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

⟦ed2559351⟧ M200

    Length: 22016 (0x5600)
    Types: M200
    Notes: @(#)patch,2.1,90/12/06,12:44:00, M200_PROGRAM
    Names: »PATCH.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »PATCH.M200« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »PATCH.M200« 

Disassembly

0x2039c


@ 2039c
        <LVAR  0x016 4(r)>
        <LVAR  0x012 @ 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2039c-203fc Body>                                              
        <POP 2039c-203b2 Prologue>                           Σ0         ↓
        <POP 203b2-203e4 Naked>                              Σ0         ↓ →0x203f4
            <MI 203b2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 203b6  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 203ba  MOVE.L  (A6+0x16),-(A7)>              Δ-4                {[4, '(A6+0x16)']}
            <Const 0x203be 0x0.4>                            Δ-4                {[4, '(A6+0x16)']|[##0]}
            <MI 203c2  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']}
            <MI 203c6  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']}
            <MI 203c8  PEA.L   (A1)>                         Δ-4                {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
            <Call 0x203ca 0x24c52>                                              {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
            <POP 203d0-203d4 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x203d4 <LVAR  0x012 @ 4(r)>>        Δ-4                {[@@18]}
            <Call 0x203d8 0x102bc>                                              {[@@18]}
                FreeString(VAR a : String)
            <POP 203de-203e0 StackAdj>                       Δ+4                {}
            <MI 203e0  TST.B   (A1)>                                            {}
            <MI 203e2  BEQ     0x203f4>                                         {}
        <POP 203e4-203ea Naked>                              Σ0         ↓ →0x203f4
            <MI 203e4  TST.B   (A6+0x10)>                                       {}
            <MI 203e8  BNE     0x203f4>                                         {}
        <POP 203ea-203f4 Naked>                              Σ0         ↓
            <MI 203ea  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x203ec 0x102bc>                                              {[4, '^(A0)']}
                FreeString(VAR a : String)
            <POP 203f2-203f4 StackAdj>                       Δ+4                {}
        <POP 203f4-203fc Epilogue>                           Σ0         ←0x203b2 ←0x203e4

0x203fc


@ 203fc
        <LVAR  0x008 4(r)>
    <POP 203fc-20422 Body>                                              
        <POP 203fc-2040e Prologue>                           Σ0         ↓
        <POP 2040e-2041e Naked>                              Σ0         ↓
            <Const 0x2040e 0xe.2>                            Δ-2                {[#14]}
            <MI 20412  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#14]|[4, '(A6+0x8)']}
            <Call 0x20416 0x103b8>                                              {[#14]|[4, '(A6+0x8)']}
                PopProgram(status : Byte; msg : String)
            <POP 2041c-2041e StackAdj>                       Δ+6                {}
        <POP 2041e-20422 Epilogue>                           Σ0         

0x20422


@ 20422
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 20422-20468 Body>                                              
        <POP 20422-20438 Prologue>                           Σ0         ↓
        <POP 20438-2044c Naked>                              Σ0         ↓ →0x20458
            <MI 20438  CLR.L   D0>                                              {}
            <MI 2043a  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2043e  LEA.L   0x20304,A0>                                      {}
            <MI 20442  MOVE.W  D0,D1>                                           {}
            <MI 20444  LSR.W   #0x3,D1>                                         {}
            <MI 20446  BTST.B  D0,(A0+D1.W)>                                    {}
            <MI 2044a  BEQ     0x20458>                                         {}
        <POP 2044c-20458 Naked>                              Σ0         →0x20460
            <MI 2044c  SUBI.W  #0x0030,D0>                                      {}
            <MI 20450  EXTW.L  D0>                                              {}
            <MI 20452  MOVE.L  D0,(A6+0xa)>                                     {}
            <MI 20456  BRA     0x20460>                                         {}
        <POP 20458-20460 Naked>                              Σ0         ↓ ←0x20438
            <MI 20458  MOVE.L  #0xffffffff,(A6+0xa)>                            {}
        <POP 20460-20468 Epilogue>                           Σ0         ←0x2044c

0x20468


@ 20468
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(rw)>
    <POP 20468-204ec Body>                                              
        <POP 20468-2047e Prologue>                           Σ0         ↓
        <POP 2047e-20484 RegCacheLoad>                       Σ0         ↓
        <POP 20484-20496 Naked>                              Σ0         ↓ →0x2049e
            <MI 20484  CLR.L   D0>                                              {}
            <MI 20486  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20488  LEA.L   0x20324,A0>                                      {}
            <MI 2048c  MOVE.W  D0,D1>                                           {}
            <MI 2048e  LSR.W   #0x3,D1>                                         {}
            <MI 20490  BTST.B  D0,(A0+D1.W)>                                    {}
            <MI 20494  BEQ     0x2049e>                                         {}
        <POP 20496-2049e Naked>                              Σ0         ↓
            <MI 20496  SUB.W   #0x20,D0>                                        {}
            <POP 0x20498 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2049c  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 2049e-204b0 Naked>                              Σ0         ↓ →0x204bc ←0x20484
            <MI 2049e  CLR.L   D0>                                              {}
            <MI 204a0  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 204a2  LEA.L   0x20344,A0>                                      {}
            <MI 204a6  MOVE.W  D0,D1>                                           {}
            <MI 204a8  LSR.W   #0x3,D1>                                         {}
            <MI 204aa  BTST.B  D0,(A0+D1.W)>                                    {}
            <MI 204ae  BEQ     0x204bc>                                         {}
        <POP 204b0-204b4 Naked>                              Σ0         ↓
            <MI 204b0  SUBI.W  #0x0030,D0>                                      {}
        <POP 204b4-204bc Naked>                              Σ0         →0x204e4 ←0x204d2
            <MI 204b4  EXTW.L  D0>                                              {}
            <MI 204b6  MOVE.L  D0,(A6+0xa)>                                     {}
            <MI 204ba  BRA     0x204e4>                                         {}
        <POP 204bc-204c8 Naked>                              Σ0         ↓ →0x204cc ←0x2049e
            <MI 204bc  LEA.L   0x20364,A0>                                      {}
            <MI 204c0  MOVE.W  D0,D1>                                           {}
            <MI 204c2  LSR.W   #0x3,D1>                                         {}
            <MI 204c4  CMP.W   #0x20,D1>                                        {}
            <MI 204c6  BLT     0x204cc>                                         {}
        <POP 204c8-204cc Naked>                              Σ0         →0x204d0
            <MI 204c8  MOVEQ.L #0x00,D1>                                        {}
            <MI 204ca  BRA     0x204d0>                                         {}
        <POP 204cc-204d0 Naked>                              Σ0         ↓ ←0x204bc
            <MI 204cc  BTST.B  D0,(A0+D1.W)>                                    {}
        <POP 204d0-204d2 Naked>                              Σ0         ↓ →0x204dc ←0x204c8
            <MI 204d0  BEQ     0x204dc>                                         {}
        <POP 204d2-204dc Naked>                              Σ0         →0x204b4
            <MI 204d2  SUBI.W  #0x0041,D0>                                      {}
            <MI 204d6  ADDI.W  #0x000a,D0>                                      {}
            <MI 204da  BRA     0x204b4>                                         {}
        <POP 204dc-204e4 Naked>                              Σ0         ↓ ←0x204d0
            <MI 204dc  MOVE.L  #0xffffffff,(A6+0xa)>                            {}
        <POP 204e4-204ec Epilogue>                           Σ0         ←0x204b4

0x204ec


@ 204ec
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 204ec-20510 Body>                                              
        <POP 204ec-204fe Prologue>                           Σ0         ↓
        <POP 204fe-20508 Naked>                              Σ0         ↓ →0x2050c
            <MI 204fe  CLR.B   (A6+0xc)>                                        {}
            <MI 20502  TST.L   (A6+0x8)>                                        {}
            <MI 20506  BLT     0x2050c>                                         {}
        <POP 20508-2050c Naked>                              Σ0         ↓
            <MI 20508  ADDQ.B  #0x1,(A6+0xc)>                                   {}
        <POP 2050c-20510 Epilogue>                           Σ0         ←0x204fe

0x20510


@ 20510
        <LVAR  0x014 @ 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00e 2(rw)>
    <POP 20510-20662 Body>                                   Δ-10       
        <POP 20510-20526 Prologue>                           Σ0         ↓
        <POP 20526-20536 RegCacheLoad>                       Σ0         ↓
        <POP 20536-20550 Naked>                              Σ0         ↓ →0x20558
            <MI 20536  MOVE.L  #0xccccccc,(A6-0x8)>                             {}
            <MI 2053e  MOVE.L  #0xf3333334,(A6-0x4)>                            {}
            <MI 20546  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 20548  CMPI.L  #0x0000000a,D0>                                  {}
            <MI 2054e  BEQ     0x20558>                                         {}
        <POP 20550-20554 Naked>                              Σ0         ↓ →0x20558
            <MI 20550  CMP.L   #0x10,D0>                                        {}
            <MI 20552  BEQ     0x20558>                                         {}
        <POP 20554-20558 Naked>                              Σ0         →0x2064a
            <MI 20554  BRA     0x2064a>                                         {}
        <POP 20558-2056a Naked>                              Σ0 Δ-4     ↓ →0x20570 ←0x20536 ←0x20550
            <MI 20558  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2055c  CLR.B   (A0)>                                            {}
            <MI 2055e  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20562  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20564  MOVEQ.L #0x01,D6>                                        {[4, 'A0']}
            <MI 20566  TST.W   (A0)>                                            {[4, 'A0']}
            <MI 20568  BNE     0x20570>                                         {[4, 'A0']}
        <POP 2056a-20570 Naked>                              Σ-4 Δ+4    →0x2064a
            <POP 2056a-2056c StackAdj>                       Δ+4                {}
            <MI 2056c  BRA     0x2064a>                                         {}
        <POP 20570-2057a Naked>                              Σ-4        ↓ →0x20580 ←0x20558
            <MI 20570  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 20572  MOVE.B  (A0+0x2),D0>                                     {[-4-]}
            <MI 20576  CMP.B   #0x2d,D0>                                        {[-4-]}
            <MI 20578  BNE     0x20580>                                         {[-4-]}
        <POP 2057a-20580 Naked>                              Σ-4        →0x20584
            <MI 2057a  MOVE.W  #0xffff,(A6-0xe)>                                {[-4-]}
            <MI 2057e  BRA     0x20584>                                         {[-4-]}
        <POP 20580-20584 Naked>                              Σ-4        ↓ ←0x20570
            <MI 20580  MOVE.W  #0x1,(A6-0xe)>                                   {[-4-]}
        <POP 20584-2058e Naked>                              Σ-4        ↓ →0x20592 ←0x2057a
            <MI 20584  MOVE.B  (A0+0x2),D0>                                     {[-4-]}
            <MI 20588  CMPI.B  #0x2b,D0>                                        {[-4-]}
            <MI 2058c  BEQ     0x20592>                                         {[-4-]}
        <POP 2058e-20592 Naked>                              Σ-4        ↓ →0x205a2
            <MI 2058e  CMP.B   #0x2d,D0>                                        {[-4-]}
            <MI 20590  BNE     0x205a2>                                         {[-4-]}
        <POP 20592-2059c Naked>                              Σ-4        ↓ →0x205a2 ←0x20584
            <MI 20592  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 20594  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 20596  EXTW.L  D0>                                              {[-4-]}
            <MI 20598  CMP.L   D0,D6>                                           {[-4-]}
            <MI 2059a  BLE     0x205a2>                                         {[-4-]}
        <POP 2059c-205a2 Naked>                              Σ-4 Δ+4    →0x2064a
            <POP 2059c-2059e StackAdj>                       Δ+4                {}
            <MI 2059e  BRA     0x2064a>                                         {}
        <POP 205a2-205a6 Naked>                              Σ-4        ↓ ←0x2058e ←0x20592
            <MI 205a2  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 205a4  CLR.L   (A0)>                                            {[-4-]}
        <POP 205a6-205c0 Naked>                              Σ-4        ↓ →0x205ca ←0x2062c
            <MI 205a6  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 205a8  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x205aa LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 205b4  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 205b6  MOVE.B  (A0+D0.L+#0x2),D5>                               {[-4-]}
            <MI 205ba  MOVE.L  (A6+0x10),D0>                                    {[-4-]}
            <MI 205bc  CMP.L   #0x10,D0>                                        {[-4-]}
            <MI 205be  BNE     0x205ca>                                         {[-4-]}
        <POP 205c0-205ca Naked>                              Σ-4 Δ-6    →0x205d2
            <POP 205c0-205c2 StackAdj>                       Δ-4                {[-8-]}
            <MI 205c2  MOVE.B  D5,-(A7)>                     Δ-2                {[-8-]|[2, 'D5']}
            <Call 0x205c4 0x20468>                                              {[-8-]|[2, 'D5']}
            <MI 205c8  BRA     0x205d2>                                         {[-8-]|[2, 'D5']}
        <POP 205ca-205d2 Naked>                              Σ-4 Δ-6    ↓ ←0x205a6
            <POP 205ca-205cc StackAdj>                       Δ-4                {[-8-]}
            <MI 205cc  MOVE.B  D5,-(A7)>                     Δ-2                {[-8-]|[2, 'D5']}
            <Call 0x205ce 0x20422>                                              {[-8-]|[2, 'D5']}
        <POP 205d2-205ec Naked>                              Σ-10 Δ+6   ↓ →0x205f2 ←0x205c0
            <POP 205d2-205d4 StackAdj>                       Δ+2                {[-8-]}
            <MI 205d4  MOVE.L  (A7)+,D3>                     Δ+4                {[-4-]}
            <MI 205d6  MOVE.W  (A6-0xe),D4>                                     {[-4-]}
            <MI 205d8  EXTW.L  D4>                                              {[-4-]}
            <Call 0x205da 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <MI 205e0  MOVE.L  D4,D7>                                           {[-4-]}
            <MI 205e2  MOVEA.L (A6+0x8),A1>                                     {[-4-]}
            <MI 205e4  MOVE.L  (A1),D0>                                         {[-4-]}
            <MI 205e6  CMP.L   (A6-0x4),D0>                                     {[-4-]}
            <MI 205ea  BLT     0x205f2>                                         {[-4-]}
        <POP 205ec-205f2 Naked>                              Σ-4        ↓ →0x205f6
            <MI 205ec  CMP.L   (A6-0x8),D0>                                     {[-4-]}
            <MI 205f0  BLE     0x205f6>                                         {[-4-]}
        <POP 205f2-205f6 Naked>                              Σ-4 Δ+4    →0x2064a ←0x205d2
            <POP 205f2-205f4 StackAdj>                       Δ+4                {}
            <MI 205f4  BRA     0x2064a>                                         {}
        <POP 205f6-20608 Naked>                              Σ-4        ↓ →0x2060c ←0x205ec
            <MI 205f6  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 205f8  MOVE.L  (A0),D4>                                         {[-4-]}
            <MI 205fa  MOVE.L  (A6+0x10),D3>                                    {[-4-]}
            <Call 0x205fc 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <MI 20602  MOVE.L  D4,(A0)>                                         {[-4-]}
            <MI 20604  TST.L   D4>                                              {[-4-]}
            <MI 20606  BNE     0x2060c>                                         {[-4-]}
        <POP 20608-2060c Naked>                              Σ-4 Δ-2    →0x2062c
            <POP 20608-2060a StackAdj>                       Δ-2                {[-6-]}
            <MI 2060a  BRA     0x2062c>                                         {[-6-]}
        <POP 2060c-20628 Naked>                              Σ-4 Δ-2    ↓ →0x2062c ←0x205f6
            <POP 2060c-2060e StackAdj>                       Δ-2                {[-6-]}
            <MI 2060e  MOVE.L  D4,-(A7)>                     Δ-4                {[-6-]|[4, 'D4']}
            <Call 0x20610 0x204ec>                                              {[-6-]|[4, 'D4']}
            <POP 20614-20616 StackAdj>                       Δ+2                {[-6-]|[-2-]}
            <MI 20616  MOVE.L  D4,-(A7)>                     Δ-4                {[-6-]|[-2-]|[4, 'D4']}
            <MI 20618  ADD.L   D7,(A7)>                                         {[-6-]|[-6-]}
            <Call 0x2061a 0x204ec>                                              {[-6-]|[-6-]}
            <POP 2061e-20620 StackAdj>                       Δ+4                {[-6-]|[-2-]}
            <MI 20620  MOVE.B  (A7+0x2),D0>                                     {[-6-]|[-2-]}
            <MI 20624  CMP.B   (A7)+,D0>                     Δ+2                {[-6-]}
            <MI 20626  BEQ     0x2062c>                                         {[-6-]}
        <POP 20628-2062c Naked>                              Σ-6 Δ+6    →0x2064a
            <POP 20628-2062a StackAdj>                       Δ+6                {}
            <MI 2062a  BRA     0x2064a>                                         {}
        <POP 2062c-20640 Naked>                              Σ-6 Δ+2    ↓ →0x205a6 ←0x20608 ←0x2060c
            <POP 2062c-2062e StackAdj>                       Δ+2                {[-4-]}
            <MI 2062e  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 20630  ADD.L   D7,(A0)>                                         {[-4-]}
            <MI 20632  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 20634  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 20636  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 20638  EXTW.L  D0>                                              {[-4-]}
            <MI 2063a  CMP.L   D0,D6>                                           {[-4-]}
            <MI 2063c  BLE     0x205a6>                                         {[-4-]}
        <POP 20640-2064a Naked>                              Σ-4 Δ+4    ↓
            <MI 20640  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 20644  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <POP 20648-2064a StackAdj>                       Δ+4                {}
        <POP 2064a-2065a Naked>                              Σ0         ↓ ←0x20554 ←0x2056a ←0x2059c ←0x205f2 ←0x20628
            <Pointer.fp 0x2064a <LVAR  0x014 @ 4(r)>>        Δ-4                {[@@20]}
            <Const 0x2064e 0x80.4>                           Δ-4                {[@@20]|[##128]}
            <Call 0x20652 0x102a8>                                              {[@@20]|[##128]}
                Free2(a : Pointer; b : Long)
            <POP 20658-2065a StackAdj>                       Δ+8                {}
        <POP 2065a-20662 Epilogue>                           Σ0         

0x20662


@ 20662
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 4(w)>
        <LVAR -0x00e 4(w)>
        <LVAR -0x010 2(rw)>
        <LVAR -0x012 2(rw)>
        <LVAR -0x014 2(w)>
        <LVAR -0x016 2(w)>
        <LVAR -0x01a 2(rw)>
        <LVAR -0x01c 2(rw)>
        <LVAR -0x01e 2(w)>
        <LVAR -0x020 2(w)>
        <LVAR -0x420 @>
        <LVAR -0x428 4(w)>
        <LVAR -0x42c @ 4(r)>
        <LVAR -0x430 4(rw)>
        <LVAR -0x434 @ 4(rw)>
    <POP 20662-209a8 Body>                                              
        <POP 20662-20678 Prologue>                           Σ0         ↓
        <POP 20678-20686 RegCacheLoad>                       Σ0         ↓
        <POP 20686-206b2 Naked>                              Σ0         ↓ →0x206e2
            <MI 20686  LEA.L   (A6-0x420),A0>                                   {}
            <MI 2068a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2068c  MOVE.L  (A7)+,(A6-0x434)>             Δ+4                {}
            <Blob 0x2068e [4] 0x254fe>                       Δ-4                {[«4»]}
            <MI 20694  CLR.B   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <Const 0x20696 0x1.2>                            Δ-2                {[«4»]|[#0]|[#1]}
            <Const 0x2069a 0x0.4>                            Δ-4                {[«4»]|[#0]|[#1]|[##0]}
            <Pointer.fp 0x2069e <LVAR -0x004 @ 1(r)>>        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[@@-4]}
            <Pointer.fp 0x206a0 <LVAR -0x42c @ 4(r)>>        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[@@-4]|[@@-1068]}
            <Call 0x206a4 0x10380>                                              {[«4»]|[#0]|[#1]|[##0]|[@@-4]|[@@-1068]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 206aa-206ae StackAdj>                       Δ+20               {}
            <MI 206ae  TST.B   (A6-0x4)>                                        {}
            <MI 206b0  BEQ     0x206e2>                                         {}
        <POP 206b2-206e2 Naked>                              Σ0         ↓
            <Blob 0x206b2 [18] @>                            Δ-18               {[«18""»]}
            <POP 206c4-206c6 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x206c6 17>                                                    {[«18""»]|[$$Problem with file]}
            <Call 0x206da 0x203fc>                                              {[«18""»]|[$$Problem with file]}
            <POP 206de-206e2 StackAdj>                       Δ+22               {}
        <POP 206e2-206fa Naked>                              Σ0         ↓ →0x206fe ←0x20686
            <MI 206e2  MOVE.L  0x2550a,D4>                                      {}
            <MI 206e8  MOVE.L  #0x1000000,D3>                                   {}
            <Call 0x206ee 0x10294>                                              {}
                ?divs_d3_d4
            <MI 206f0  DIVS.W  #0x100,D4>                                       {}
            <MI 206f4  SWAP.W  D4>                                              {}
            <MI 206f6  TST.W   D4>                                              {}
            <MI 206f8  BGE     0x206fe>                                         {}
        <POP 206fa-206fe Naked>                              Σ0         ↓
            <MI 206fa  ADDI.W  #0x0100,D4>                                      {}
        <POP 206fe-2071a Naked>                              Σ0         ↓ →0x2071e ←0x206e2
            <MI 206fe  MOVE.W  D4,(A6-0x16)>                                    {}
            <MI 20702  MOVE.L  0x2550a,D4>                                      {}
            <MI 20708  MOVE.L  #0x10000,D3>                                     {}
            <Call 0x2070e 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20710  DIVS.W  #0x100,D4>                                       {}
            <MI 20714  SWAP.W  D4>                                              {}
            <MI 20716  TST.W   D4>                                              {}
            <MI 20718  BGE     0x2071e>                                         {}
        <POP 2071a-2071e Naked>                              Σ0         ↓
            <MI 2071a  ADDI.W  #0x0100,D4>                                      {}
        <POP 2071e-20760 Naked>                              Σ0         ↓ →0x20764 ←0x206fe
            <MI 2071e  MOVE.W  D4,(A6-0x14)>                                    {}
            <MI 20722  MOVE.L  0x2550a,D4>                                      {}
            <MI 20728  MOVE.L  #0x100,D3>                                       {}
            <Call 0x2072e 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20730  MOVE.L  D3,-(A7)>                     Δ-4                {[4, 'D3']}
            <MI 20732  MOVE.L  D4,-(A7)>                     Δ-4                {[4, 'D3']|[4, 'D4']}
            <MI 20734  MOVE.L  #0x100,D3>                                       {[4, 'D3']|[4, 'D4']}
            <Call 0x2073a 0x10294>                                              {[4, 'D3']|[4, 'D4']}
                ?divs_d3_d4
            <MI 2073c  MOVE.W  D3,(A6-0x12)>                                    {[4, 'D3']|[4, 'D4']}
            <MI 20740  MOVE.L  (A7)+,D0>                     Δ+4                {[4, 'D3']}
            <MI 20742  MOVE.L  (A7)+,D1>                     Δ+4                {}
            <MI 20744  MOVE.W  D1,(A6-0x10)>                                    {}
            <MI 20748  MOVE.L  0x25504,D4>                                      {}
            <MI 2074e  MOVE.L  #0x1000000,D3>                                   {}
            <Call 0x20754 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20756  DIVS.W  #0x100,D4>                                       {}
            <MI 2075a  SWAP.W  D4>                                              {}
            <MI 2075c  TST.W   D4>                                              {}
            <MI 2075e  BGE     0x20764>                                         {}
        <POP 20760-20764 Naked>                              Σ0         ↓
            <MI 20760  ADDI.W  #0x0100,D4>                                      {}
        <POP 20764-20780 Naked>                              Σ0         ↓ →0x20784 ←0x2071e
            <MI 20764  MOVE.W  D4,(A6-0x20)>                                    {}
            <MI 20768  MOVE.L  0x25504,D4>                                      {}
            <MI 2076e  MOVE.L  #0x10000,D3>                                     {}
            <Call 0x20774 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20776  DIVS.W  #0x100,D4>                                       {}
            <MI 2077a  SWAP.W  D4>                                              {}
            <MI 2077c  TST.W   D4>                                              {}
            <MI 2077e  BGE     0x20784>                                         {}
        <POP 20780-20784 Naked>                              Σ0         ↓
            <MI 20780  ADDI.W  #0x0100,D4>                                      {}
        <POP 20784-207ca Naked>                              Σ0         →0x207d0 →0x207e2 →0x20804 ←0x20764
            <MI 20784  MOVE.W  D4,(A6-0x1e)>                                    {}
            <MI 20788  MOVE.L  0x25504,D4>                                      {}
            <MI 2078e  MOVE.L  #0x100,D3>                                       {}
            <Call 0x20794 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20796  MOVE.L  D3,-(A7)>                     Δ-4                {[4, 'D3']}
            <MI 20798  MOVE.L  D4,-(A7)>                     Δ-4                {[4, 'D3']|[4, 'D4']}
            <MI 2079a  MOVE.L  #0x100,D3>                                       {[4, 'D3']|[4, 'D4']}
            <Call 0x207a0 0x10294>                                              {[4, 'D3']|[4, 'D4']}
                ?divs_d3_d4
            <MI 207a2  MOVE.W  D3,(A6-0x1c)>                                    {[4, 'D3']|[4, 'D4']}
            <MI 207a6  MOVE.L  (A7)+,D0>                     Δ+4                {[4, 'D3']}
            <MI 207a8  MOVE.L  (A7)+,D2>                     Δ+4                {}
            <MI 207aa  MOVE.W  D2,(A6-0x1a)>                                    {}
            <MI 207ae  MOVE.B  0x254f4,D0>                                      {}
            <MI 207b4  EXTB.W  D0>                                              {}
            <MI 207b6  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x207b8 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 207c0  ADD.W   D0,D0>                                           {}
            <MI 207c2  SWITCH  D0.W>                                            {}
        <POP 207d0-207e2 Naked>                              Σ0         →0x2080c ←0x20784
            <MI 207d0  MOVE.L  #0x1,(A6-0x430)>                                 {}
            <MI 207d8  MOVE.W  D1,(A6-0x16)>                                    {}
            <MI 207dc  MOVE.W  D2,(A6-0x20)>                                    {}
            <MI 207e0  BRA     0x2080c>                                         {}
        <POP 207e2-20804 Naked>                              Σ0         →0x2080c ←0x20784
            <MI 207e2  MOVE.L  #0x2,(A6-0x430)>                                 {}
            <MI 207ea  MOVE.W  (A6-0x12),(A6-0x16)>                             {}
            <MI 207f0  MOVE.W  (A6-0x10),(A6-0x14)>                             {}
            <MI 207f6  MOVE.W  (A6-0x1c),(A6-0x20)>                             {}
            <MI 207fc  MOVE.W  (A6-0x1a),(A6-0x1e)>                             {}
            <MI 20802  BRA     0x2080c>                                         {}
        <POP 20804-2080c Naked>                              Σ0         ↓ ←0x20784
            <MI 20804  MOVE.L  #0x4,(A6-0x430)>                                 {}
        <POP 2080c-20812 Naked>                              Σ0 Δ-4     ↓ ←0x207d0 ←0x207e2
            <MI 2080c  MOVE.L  (A6-0x430),-(A7)>             Δ-4                {[4, '(A6-0x430)']}
            <MI 20810  MOVEQ.L #0x01,D0>                                        {[4, '(A6-0x430)']}
        <POP 20812-20818 Naked>                              Σ-4        ↓ →0x20984 ←0x2095a
            <MI 20812  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 20814  BGT     0x20984>                                         {[-4-]}
        <POP 20818-2088e Naked>                              Σ-4 Δ-8    ↓ →0x208a4
            <MI 20818  MOVE.L  0x254f6,D1>                                      {[-4-]}
            <MI 2081e  SUB.L   0x254fa,D1>                                      {[-4-]}
            <MI 20824  ADD.L   D0,D1>                                           {[-4-]}
            <MI 20826  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 20828  MOVE.L  D1,D4>                                           {[-4-]}
            <MI 2082a  MOVE.L  #0x400,D3>                                       {[-4-]}
            <Call 0x20830 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 20832  MOVE.L  D3,-(A7)>                     Δ-4                {[-4-]|[4, 'D3']}
            <MI 20834  MOVE.L  D4,-(A7)>                     Δ-4                {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20836  MOVE.L  D4,(A6-0x428)>                                   {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 2083a  MOVE.L  D3,(A6-0xe)>                                     {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 2083e  MOVE.L  D3,D4>                                           {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20840  MOVEQ.L #0x02,D3>                                        {[-4-]|[4, 'D3']|[4, 'D4']}
            <Call 0x20842 0x10294>                                              {[-4-]|[4, 'D3']|[4, 'D4']}
                ?divs_d3_d4
            <MI 20844  MOVE.L  D4,(A6-0x8)>                                     {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20848  MOVE.L  (A7),D1>                                         {[-4-]|[4, 'D3']|[4, 'D4']}
            <POP 0x2084a LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20854  MOVE.L  (A6-0x42c),-(A7)>             Δ-4                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']}
            <MI 20858  MOVE.W  D1,-(A7)>                     Δ-2                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']}
            <MI 2085a  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]}
            <Const 0x2085c 0x200.2>                          Δ-2                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x20860 0x1.2>                            Δ-2                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]}
            <MI 20864  MOVE.L  (A6-0x434),-(A7)>             Δ-4                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']}
            <Pointer.fp 0x20866 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']|[@@-4]}
            <Call 0x20868 0x10384>                                              {[-4-]|[4, 'D3']|[4, 'D4']|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']|[@@-4]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 2086e-20872 StackAdj>                       Δ+20               {[-4-]|[4, 'D3']|[4, 'D4']}
            <POP 0x20872 LimitCheck 0x0 ≤ D4 ≤ 0x1ff>                           {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 2087c  ASL.L   #0x1,D4>                                         {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 2087e  LEA.L   (A6-0x434),A0>                                   {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20880  MOVE.W  (A0+D4.L+#0x14),D7>                              {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20884  MOVE.L  (A7+0x4),D2>                                     {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 20888  BTST.L  #0x0,D2>                                         {[-4-]|[4, 'D3']|[4, 'D4']}
            <MI 2088c  BEQ     0x208a4>                                         {[-4-]|[4, 'D3']|[4, 'D4']}
        <POP 2088e-208a4 Naked>                              Σ-12       →0x208b8
            <MI 2088e  MOVE.W  D7,D3>                                           {[-12-]}
            <MI 20890  ANDI.W  #0x00ff,D3>                                      {[-12-]}
            <POP 0x20894 LimitCheck 0x0 ≤ D3 ≤ 0xff>                            {[-12-]}
            <MI 20898  MOVE.W  D3,D5>                                           {[-12-]}
            <MI 2089a  MOVE.W  D7,D6>                                           {[-12-]}
            <MI 2089c  LSR.W   #0x8,D6>                                         {[-12-]}
            <MI 2089e  ANDI.W  #0x00ff,D6>                                      {[-12-]}
            <MI 208a2  BRA     0x208b8>                                         {[-12-]}
        <POP 208a4-208b8 Naked>                              Σ-12       ↓ ←0x20818
            <MI 208a4  MOVE.W  D7,D5>                                           {[-12-]}
            <MI 208a6  LSR.W   #0x8,D5>                                         {[-12-]}
            <MI 208a8  ANDI.W  #0x00ff,D5>                                      {[-12-]}
            <MI 208ac  MOVE.W  D7,D3>                                           {[-12-]}
            <MI 208ae  ANDI.W  #0x00ff,D3>                                      {[-12-]}
            <POP 0x208b2 LimitCheck 0x0 ≤ D3 ≤ 0xff>                            {[-12-]}
            <MI 208b6  MOVE.W  D3,D6>                                           {[-12-]}
        <POP 208b8-208c0 Naked>                              Σ-12       ↓ →0x20906 ←0x2088e
            <MI 208b8  TST.B   0x25502>                                         {[-12-]}
            <MI 208be  BEQ     0x20906>                                         {[-12-]}
        <POP 208c0-208dc Naked>                              Σ-12       ↓ →0x20906
            <MI 208c0  MOVE.L  D0,D3>                                           {[-12-]}
            <MI 208c2  SUBQ.L  #0x1,D3>                                         {[-12-]}
            <POP 0x208c4 LimitCheck 0x0 ≤ D3 ≤ 0x3>                             {[-12-]}
            <MI 208ce  ASL.L   #0x1,D3>                                         {[-12-]}
            <MI 208d0  LEA.L   (A6-0x434),A1>                                   {[-12-]}
            <MI 208d2  LEA.L   (A1+D3.L),A1>                                    {[-12-]}
            <MI 208d6  CMP.W   (A1+0x414),D5>                                   {[-12-]}
            <MI 208da  BEQ     0x20906>                                         {[-12-]}
        <POP 208dc-20906 Naked>                              Σ-12       ↓
            <Blob 0x208dc [40] @>                            Δ-40               {[-12-]|[«40""»]}
            <POP 208e8-208ea StackAdj>                       Δ-4                {[-12-]|[«40""»]|[-4-]}
            <Lit 0x208ea 40>                                                    {[-12-]|[«40""»]|[$$Target data not as specified in OLD data]}
            <Call 0x208fe 0x203fc>                                              {[-12-]|[«40""»]|[$$Target data not as specified in OLD data]}
            <POP 20902-20906 StackAdj>                       Δ+44               {[-12-]}
        <POP 20906-2090c Naked>                              Σ-12       ↓ →0x20934 ←0x208b8 ←0x208c0
            <MI 20906  BTST.L  #0x0,D2>                                         {[-12-]}
            <MI 2090a  BEQ     0x20934>                                         {[-12-]}
        <POP 2090c-20934 Naked>                              Σ-12       →0x2095a
            <MI 2090c  MOVE.W  D6,D2>                                           {[-12-]}
            <MI 2090e  ASL.W   #0x8,D2>                                         {[-12-]}
            <MI 20910  MOVE.L  D0,D3>                                           {[-12-]}
            <MI 20912  SUBQ.L  #0x1,D3>                                         {[-12-]}
            <POP 0x20914 LimitCheck 0x0 ≤ D3 ≤ 0x3>                             {[-12-]}
            <MI 2091e  ASL.L   #0x1,D3>                                         {[-12-]}
            <MI 20920  LEA.L   (A6-0x434),A1>                                   {[-12-]}
            <MI 20922  LEA.L   (A1+D3.L),A1>                                    {[-12-]}
            <MI 20926  ADD.W   (A1+0x41e),D2>                                   {[-12-]}
            <POP 0x2092a LimitCheck 0x0 ≤ D2 ≤ 0xffff>                          {[-12-]}
            <MI 20932  BRA     0x2095a>                                         {[-12-]}
        <POP 20934-2095a Naked>                              Σ-12       ↓ ←0x20906
            <MI 20934  MOVE.L  D0,D2>                                           {[-12-]}
            <MI 20936  SUBQ.L  #0x1,D2>                                         {[-12-]}
            <POP 0x20938 LimitCheck 0x0 ≤ D2 ≤ 0x3>                             {[-12-]}
            <MI 20942  ASL.L   #0x1,D2>                                         {[-12-]}
            <MI 20944  LEA.L   (A6-0x434),A1>                                   {[-12-]}
            <MI 20946  LEA.L   (A1+D2.L),A1>                                    {[-12-]}
            <MI 2094a  MOVE.W  (A1+0x41e),D2>                                   {[-12-]}
            <MI 2094e  ASL.W   #0x8,D2>                                         {[-12-]}
            <MI 20950  ADD.W   D6,D2>                                           {[-12-]}
            <POP 0x20952 LimitCheck 0x0 ≤ D2 ≤ 0xffff>                          {[-12-]}
        <POP 2095a-20984 Naked>                              Σ-12 Δ+8   ↓ →0x20812 ←0x2090c
            <MI 2095a  MOVE.W  D2,D7>                                           {[-12-]}
            <MI 2095c  MOVE.W  D7,(A0+D4.L+#0x14)>                              {[-12-]}
            <MI 20960  MOVE.L  (A6-0x42c),-(A7)>             Δ-4                {[-12-]|[4, '(A6-0x42c)']}
            <MI 20964  MOVE.W  D1,-(A7)>                     Δ-2                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']}
            <MI 20966  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]}
            <Const 0x20968 0x200.2>                          Δ-2                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x2096c 0x1.2>                            Δ-2                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]}
            <MI 20970  MOVE.L  (A6-0x434),-(A7)>             Δ-4                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']}
            <Pointer.fp 0x20972 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']|[@@-4]}
            <Call 0x20974 0x10388>                                              {[-12-]|[4, '(A6-0x42c)']|[2, 'D1']|[#0]|[#512]|[#1]|[4, '(A6-0x434)']|[@@-4]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 2097a-2097e StackAdj>                       Δ+28               {[-4-]}
            <MI 2097e  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20980  BVC     0x20812>                                         {[-4-]}
        <POP 20984-209a0 Naked>                              Σ-4 Δ+4    ↓ ←0x20812
            <POP 20984-20986 StackAdj>                       Δ+2                {[-2-]}
            <MI 20986  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20988 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x2098c 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20990 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x20992 <LVAR -0x42c @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]|[@@-1068]}
            <Call 0x20996 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-4]|[@@-1068]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2099c-209a0 StackAdj>                       Δ+16               {}
        <POP 209a0-209a8 Epilogue>                           Σ0         

0x209a8


@ 209a8
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x00a 4(w)>
        <LVAR -0x00c 2(rw)>
        <LVAR -0x010 4(w)>
        <LVAR -0x410 @>
        <LVAR -0x41c @ 4(r)>
        <LVAR -0x424 @ 4(rw)>
    <POP 209a8-20b94 Body>                                              
        <POP 209a8-209be Prologue>                           Σ0         ↓
        <POP 209be-209cc RegCacheLoad>                       Σ0         ↓
        <POP 209cc-209f4 Naked>                              Σ0         ↓ →0x20a22
            <MI 209cc  LEA.L   (A6-0x410),A0>                                   {}
            <MI 209d0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 209d2  MOVE.L  (A7)+,(A6-0x424)>             Δ+4                {}
            <Blob 0x209d4 [4] 0x254fe>                       Δ-4                {[«4»]}
            <MI 209da  CLR.B   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <Const 0x209dc 0x1.2>                            Δ-2                {[«4»]|[#0]|[#1]}
            <Const 0x209de 0x0.4>                            Δ-4                {[«4»]|[#0]|[#1]|[##0]}
            <Pointer.fp 0x209e2 <LVAR -0x006 @ 1(r)>>        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[@@-6]}
            <Pointer.fp 0x209e4 <LVAR -0x41c @ 4(r)>>        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[@@-6]|[@@-1052]}
            <Call 0x209e6 0x10380>                                              {[«4»]|[#0]|[#1]|[##0]|[@@-6]|[@@-1052]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 209ec-209f0 StackAdj>                       Δ+20               {}
            <MI 209f0  TST.B   (A6-0x6)>                                        {}
            <MI 209f2  BEQ     0x20a22>                                         {}
        <POP 209f4-20a22 Naked>                              Σ0         ↓
            <Blob 0x209f4 [18] @>                            Δ-18               {[«18""»]}
            <POP 20a06-20a08 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20a08 17>                                                    {[«18""»]|[$$Problem with file]}
            <Call 0x20a1a 0x203fc>                                              {[«18""»]|[$$Problem with file]}
            <POP 20a1e-20a22 StackAdj>                       Δ+22               {}
        <POP 20a22-20a3e Naked>                              Σ0         →0x20a44 →0x20a48 →0x20a4c ←0x209cc
            <MI 20a22  MOVE.B  0x254f4,D0>                                      {}
            <MI 20a28  EXTB.W  D0>                                              {}
            <MI 20a2a  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x20a2c LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 20a34  ADD.W   D0,D0>                                           {}
            <MI 20a36  SWITCH  D0.W>                                            {}
        <POP 20a44-20a48 Naked>                              Σ0         →0x20a4e ←0x20a22
            <MI 20a44  MOVEQ.L #0x01,D6>                                        {}
            <MI 20a46  BRA     0x20a4e>                                         {}
        <POP 20a48-20a4c Naked>                              Σ0         →0x20a4e ←0x20a22
            <MI 20a48  MOVEQ.L #0x02,D6>                                        {}
            <MI 20a4a  BRA     0x20a4e>                                         {}
        <POP 20a4c-20a4e Naked>                              Σ0         ↓ ←0x20a22
            <MI 20a4c  MOVEQ.L #0x04,D6>                                        {}
        <POP 20a4e-20a9a Naked>                              Σ0 Δ-4     ↓ ←0x20a44 ←0x20a48
            <POP 20a4e-20a50 StackAdj>                       Δ-4                {[-4-]}
            <POP 20a50-20a51 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20a51 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20a54  MOVE.B  0x202b7,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20a5a  MOVE.B  0x202b8,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 20a60-20a62 StackAdj>                       Δ-8                {[-2-]|[«2""»]|[-8-]}
            <Blob 0x20a62 [4] 0x254f6>                       Δ-4                {[-2-]|[«2""»]|[-8-]|[«4»]}
            <Const 0x20a68 0x8.4>                            Δ-4                {[-2-]|[«2""»]|[-8-]|[«4»]|[##8]}
            <Call 0x20a6c 0x102e8>                                              {[-2-]|[«2""»]|[-8-]|[«4»]|[##8]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 20a72-20a74 StackAdj>                       Δ+4                {[-2-]|[«2""»]|[-8-]|[«4»]}
            <Lit 0x20a74>                                                       {[-2-]|[«2""»]|[-8-]|[$$…]}
                <Pointer.sp 0x20a74 12>                      Δ-4        
                <Const 0x20a78 0x1.2>                        Δ-2        
                <Const 0x20a7a 0x3.2>                        Δ-2        
                <Call 0x20a7e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20a84-20a86 StackAdj>                   Δ+8        
            <Call 0x20a86 0x102d0>                                              {[-2-]|[«2""»]|[-8-]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20a8c-20a8e StackAdj>                       Δ+8                {[-2-]|[«2""»]|[-4-]}
            <Call 0x20a8e 0x103d8>                                              {[-2-]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 20a94-20a96 StackAdj>                       Δ+4                {[-2-]|[«2""»]}
            <MI 20a96  MOVE.L  D6,(A7)>                                         {[4, 'D6']}
            <MI 20a98  MOVEQ.L #0x01,D0>                                        {[4, 'D6']}
        <POP 20a9a-20aa0 Naked>                              Σ-4        ↓ →0x20b6e ←0x20b2e
            <MI 20a9a  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 20a9c  BGT     0x20b6e>                                         {[-4-]}
        <POP 20aa0-20b14 Naked>                              Σ-4        ↓ →0x20b24
            <MI 20aa0  MOVE.L  0x254f6,D5>                                      {[-4-]}
            <MI 20aa6  SUB.L   0x254fa,D5>                                      {[-4-]}
            <MI 20aac  ADD.L   D0,D5>                                           {[-4-]}
            <MI 20aae  SUBQ.L  #0x1,D5>                                         {[-4-]}
            <MI 20ab0  MOVE.L  D5,D4>                                           {[-4-]}
            <MI 20ab2  MOVE.L  #0x400,D3>                                       {[-4-]}
            <Call 0x20ab8 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 20abe  MOVE.L  D4,D5>                                           {[-4-]}
            <MI 20ac0  MOVE.L  D3,(A6-0x10)>                                    {[-4-]}
            <MI 20ac4  MOVE.L  D3,-(A7)>                     Δ-4                {[-4-]|[4, 'D3']}
            <MI 20ac6  MOVE.L  D3,D4>                                           {[-4-]|[4, 'D3']}
            <MI 20ac8  MOVEQ.L #0x02,D3>                                        {[-4-]|[4, 'D3']}
            <Call 0x20aca 0x10294>                                              {[-4-]|[4, 'D3']}
                ?divs_d3_d4
            <MI 20ad0  MOVE.L  D4,(A6-0xa)>                                     {[-4-]|[4, 'D3']}
            <MI 20ad4  MOVE.L  (A6-0x41c),-(A7)>             Δ-4                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']}
            <POP 0x20ad6 LimitCheck 0x0 ≤ D5 ≤ 0x4000>                          {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']}
            <MI 20ae0  MOVE.W  D5,-(A7)>                     Δ-2                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']}
            <MI 20ae2  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]}
            <Const 0x20ae4 0x200.2>                          Δ-2                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]|[#512]}
            <Const 0x20ae8 0x1.2>                            Δ-2                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]|[#512]|[#1]}
            <MI 20aea  MOVE.L  (A6-0x424),-(A7)>             Δ-4                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6-0x424)']}
            <Pointer.fp 0x20aec <LVAR -0x006 @ 1(r)>>        Δ-4                {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6-0x424)']|[@@-6]}
            <Call 0x20aee 0x10384>                                              {[-4-]|[4, 'D3']|[4, '(A6-0x41c)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6-0x424)']|[@@-6]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20af4-20af8 StackAdj>                       Δ+20               {[-4-]|[4, 'D3']}
            <POP 0x20af8 LimitCheck 0x0 ≤ D4 ≤ 0x1ff>                           {[-4-]|[4, 'D3']}
            <MI 20b02  ASL.L   #0x1,D4>                                         {[-4-]|[4, 'D3']}
            <MI 20b04  LEA.L   (A6-0x424),A0>                                   {[-4-]|[4, 'D3']}
            <MI 20b06  MOVE.W  (A0+D4.L+#0x14),(A6-0xc)>                        {[-4-]|[4, 'D3']}
            <MI 20b0c  MOVE.L  (A7)+,D1>                     Δ+4                {[-4-]}
            <MI 20b0e  BTST.L  #0x0,D1>                                         {[-4-]}
            <MI 20b12  BEQ     0x20b24>                                         {[-4-]}
        <POP 20b14-20b24 Naked>                              Σ-4        →0x20b2e
            <MI 20b14  MOVE.W  (A6-0xc),D1>                                     {[-4-]}
            <MI 20b18  ANDI.W  #0x00ff,D1>                                      {[-4-]}
            <POP 0x20b1c LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-4-]}
            <MI 20b20  MOVE.W  D1,D7>                                           {[-4-]}
            <MI 20b22  BRA     0x20b2e>                                         {[-4-]}
        <POP 20b24-20b2e Naked>                              Σ-4        ↓ ←0x20aa0
            <MI 20b24  MOVE.W  (A6-0xc),D7>                                     {[-4-]}
            <MI 20b28  LSR.W   #0x8,D7>                                         {[-4-]}
            <MI 20b2a  ANDI.W  #0x00ff,D7>                                      {[-4-]}
        <POP 20b2e-20b6e Naked>                              Σ-4        ↓ →0x20a9a ←0x20b14
            <Blob 0x20b2e [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 20b32-20b34 StackAdj>                       Δ-8                {[-4-]|[«2""»]|[-8-]}
            <MI 20b34  MOVE.W  D7,D1>                                           {[-4-]|[«2""»]|[-8-]}
            <MI 20b36  EXTW.L  D1>                                              {[-4-]|[«2""»]|[-8-]}
            <MI 20b38  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[«2""»]|[-8-]|[4, 'D1']}
            <Const 0x20b3a 0x2.4>                            Δ-4                {[-4-]|[«2""»]|[-8-]|[4, 'D1']|[##2]}
            <Call 0x20b3e 0x102e8>                                              {[-4-]|[«2""»]|[-8-]|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 20b44-20b46 StackAdj>                       Δ+4                {[-4-]|[«2""»]|[-8-]|[4, 'D1']}
            <Lit 0x20b46 2>                                                     {[-4-]|[«2""»]|[-8-]|[$$ _]}
            <Call 0x20b58 0x102d0>                                              {[-4-]|[«2""»]|[-8-]|[$$ _]}
                StringCat2(a, b : String) : String
            <POP 20b5e-20b60 StackAdj>                       Δ+8                {[-4-]|[«2""»]|[-4-]}
            <Call 0x20b60 0x103d8>                                              {[-4-]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 20b66-20b68 StackAdj>                       Δ+6                {[-4-]}
            <MI 20b68  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20b6a  BVC     0x20a9a>                                         {[-4-]}
        <POP 20b6e-20b8c Naked>                              Σ-4 Δ+4    ↓ ←0x20a9a
            <POP 20b6e-20b70 StackAdj>                       Δ+4                {}
            <Call 0x20b70 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 20b76  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20b78 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x20b7a 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x20b7e <LVAR -0x006 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-6]}
            <Pointer.fp 0x20b80 <LVAR -0x41c @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-6]|[@@-1052]}
            <Call 0x20b82 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-6]|[@@-1052]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20b88-20b8c StackAdj>                       Δ+16               {}
        <POP 20b8c-20b94 Epilogue>                           Σ0         

0x20b94


@ 20b94
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x003 @ 1(rw)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 20b94-2100c Body>                                              
        <POP 20b94-20baa Prologue>                           Σ0         ↓
        <POP 20baa-20bc6 RegCacheLoad>                       Σ0         ↓
        <POP 20bc6-20bee Naked>                              Σ0         ↓ →0x20c26
            <Blob 0x20bc6 [2] @>                             Δ-2                {[«2""»]}
            <MI 20bca  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[4, '(A6+0x8)']}
            <POP 20bce-20bd0 StackAdj>                       Δ-4                {[«2""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20bd0 2>                                                     {[«2""»]|[4, '(A6+0x8)']|[$$FN]}
            <POP 20bdc-20bde StackAdj>                       Δ-2                {[«2""»]|[4, '(A6+0x8)']|[$$FN]|[-2-]}
            <POP 20bde-20bdf StackAdj>                       Δ+2                {[«2""»]|[4, '(A6+0x8)']|[$$FN]}
            <Const 0x20bdf 0x1.2>                            Δ-2                {[«2""»]|[4, '(A6+0x8)']|[$$FN]|[#1]}
            <Pointer.fp 0x20be0 <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«2""»]|[4, '(A6+0x8)']|[$$FN]|[#1]|[@@-3]}
            <Pointer.fp 0x20be2 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«2""»]|[4, '(A6+0x8)']|[$$FN]|[#1]|[@@-3]|[@@-8]}
            <Call 0x20be4 0x2039c>                                              {[«2""»]|[4, '(A6+0x8)']|[$$FN]|[#1]|[@@-3]|[@@-8]}
            <POP 20be8-20bea StackAdj>                       Δ+20               {}
            <MI 20bea  TST.B   (A6-0x3)>                                        {}
            <MI 20bec  BNE     0x20c26>                                         {}
        <POP 20bee-20bf4 Naked>                              Σ0         ↓ →0x20c26
            <MI 20bee  TST.B   (A6+0x16)>                                       {}
            <MI 20bf2  BNE     0x20c26>                                         {}
        <POP 20bf4-20c26 Naked>                              Σ0         ↓
            <Blob 0x20bf4 [52] @>                            Δ-52               {[«52""»]}
            <POP 20c06-20c08 StackAdj>                       Δ-8                {[«52""»]|[-8-]}
            <Lit 0x20c08 51>                                                    {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
            <Call 0x20c16 0x103e4>                                              {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
                AskConsoleString(prompt : String) : String
            <POP 20c1c-20c1e StackAdj>                       Δ+4                {[«52""»]|[-4-]}
            <MI 20c1e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«52""»]}
            <POP 20c20-20c24 StackAdj>                       Δ+52               {}
            <MI 20c24  MOVE.B  #0x01,(A6-0x3)>                                  {}
        <POP 20c26-20c2a Naked>                              Σ0         ↓ →0x20c30 ←0x20bc6 ←0x20bee
            <MI 20c26  TST.B   (A6-0x3)>                                        {}
            <MI 20c28  BEQ     0x20c30>                                         {}
        <POP 20c2a-20c30 Naked>                              Σ0         ↓
            <MI 20c2a  MOVE.L  (A6-0x8),0x254fe>                                {}
        <POP 20c30-20c58 Naked>                              Σ0         ↓ →0x20c8a ←0x20c26
            <Blob 0x20c30 [4] @>                             Δ-4                {[«4""»]}
            <MI 20c34  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[4, '(A6+0x8)']}
            <POP 20c38-20c3a StackAdj>                       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20c3a 4>                                                     {[«4""»]|[4, '(A6+0x8)']|[$$BASE]}
            <POP 20c46-20c48 StackAdj>                       Δ-2                {[«4""»]|[4, '(A6+0x8)']|[$$BASE]|[-2-]}
            <POP 20c48-20c49 StackAdj>                       Δ+2                {[«4""»]|[4, '(A6+0x8)']|[$$BASE]}
            <Const 0x20c49 0x1.2>                            Δ-2                {[«4""»]|[4, '(A6+0x8)']|[$$BASE]|[#1]}
            <Pointer.fp 0x20c4a <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$BASE]|[#1]|[@@-3]}
            <Pointer.fp 0x20c4c <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$BASE]|[#1]|[@@-3]|[@@-8]}
            <Call 0x20c4e 0x2039c>                                              {[«4""»]|[4, '(A6+0x8)']|[$$BASE]|[#1]|[@@-3]|[@@-8]}
            <POP 20c52-20c54 StackAdj>                       Δ+22               {}
            <MI 20c54  TST.B   (A6-0x3)>                                        {}
            <MI 20c56  BNE     0x20c8a>                                         {}
        <POP 20c58-20c5e Naked>                              Σ0         ↓ →0x20c8a
            <MI 20c58  TST.B   (A6+0x14)>                                       {}
            <MI 20c5c  BNE     0x20c8a>                                         {}
        <POP 20c5e-20c8a Naked>                              Σ0         ↓
            <Blob 0x20c5e [38] @>                            Δ-38               {[«38""»]}
            <POP 20c6a-20c6c StackAdj>                       Δ-8                {[«38""»]|[-8-]}
            <Lit 0x20c6c 38>                                                    {[«38""»]|[-4-]|[$$Enter base address of file (in hex) :_]}
            <Call 0x20c7a 0x103e4>                                              {[«38""»]|[-4-]|[$$Enter base address of file (in hex) :_]}
                AskConsoleString(prompt : String) : String
            <POP 20c80-20c82 StackAdj>                       Δ+4                {[«38""»]|[-4-]}
            <MI 20c82  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«38""»]}
            <POP 20c84-20c88 StackAdj>                       Δ+38               {}
            <MI 20c88  MOVE.B  #0x01,(A6-0x3)>                                  {}
        <POP 20c8a-20c8e Naked>                              Σ0         ↓ →0x20ccc ←0x20c30 ←0x20c58
            <MI 20c8a  TST.B   (A6-0x3)>                                        {}
            <MI 20c8c  BEQ     0x20ccc>                                         {}
        <POP 20c8e-20caa Naked>                              Σ0         ↓ →0x20ccc
            <MI 20c8e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Const 0x20c90 0x10.4>                           Δ-4                {[4, '(A6-0x8)']|[##16]}
            <Pointer.fp 0x20c94 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]}
            <Const 0x20c98 0x254fa.4>                        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152826]}
            <Call 0x20c9e 0x20510>                                              {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152826]}
            <POP 20ca2-20ca4 StackAdj>                       Δ+16               {}
            <MI 20ca4  TST.B   (A6-0x4)>                                        {}
            <MI 20ca8  BNE     0x20ccc>                                         {}
        <POP 20caa-20ccc Naked>                              Σ0         ↓
            <Blob 0x20caa [20] @>                            Δ-20               {[«20""»]}
            <POP 20cb6-20cb8 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20cb8 20>                                                    {[«20""»]|[$$Illegal hex argument]}
            <Call 0x20cc4 0x219f2>                                              {[«20""»]|[$$Illegal hex argument]}
            <POP 20cca-20ccc StackAdj>                       Δ+24               {}
        <POP 20ccc-20d00 Naked>                              Σ0         ↓ →0x20d34 ←0x20c8a ←0x20c8e
            <Blob 0x20ccc [8] @>                             Δ-8                {[«8""»]}
            <MI 20cdc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«8""»]|[4, '(A6+0x8)']}
            <POP 20ce0-20ce2 StackAdj>                       Δ-4                {[«8""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20ce2 7>                                                     {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]}
            <POP 20cee-20cf0 StackAdj>                       Δ-2                {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]|[-2-]}
            <POP 20cf0-20cf1 StackAdj>                       Δ+2                {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]}
            <Const 0x20cf1 0x1.2>                            Δ-2                {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]|[#1]}
            <Pointer.fp 0x20cf2 <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]|[#1]|[@@-3]}
            <Pointer.fp 0x20cf4 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]|[#1]|[@@-3]|[@@-8]}
            <Call 0x20cf6 0x2039c>                                              {[«8""»]|[4, '(A6+0x8)']|[$$ADDRESS]|[#1]|[@@-3]|[@@-8]}
            <POP 20cfa-20cfc StackAdj>                       Δ+26               {}
            <MI 20cfc  TST.B   (A6-0x3)>                                        {}
            <MI 20cfe  BNE     0x20d34>                                         {}
        <POP 20d00-20d06 Naked>                              Σ0         ↓ →0x20d34
            <MI 20d00  TST.B   (A6+0x12)>                                       {}
            <MI 20d04  BNE     0x20d34>                                         {}
        <POP 20d06-20d34 Naked>                              Σ0         ↓
            <Blob 0x20d06 [46] @>                            Δ-46               {[«46""»]}
            <POP 20d16-20d18 StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x20d18 45>                                                    {[«46""»]|[-4-]|[$$Enter address of data change/dump (in hex) :_]}
            <Call 0x20d26 0x103e4>                                              {[«46""»]|[-4-]|[$$Enter address of data change/dump (in hex) :_]}
                AskConsoleString(prompt : String) : String
            <POP 20d2c-20d2e StackAdj>                       Δ+4                {[«46""»]|[-4-]}
            <MI 20d2e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«46""»]}
            <POP 20d30-20d32 StackAdj>                       Δ+46               {}
            <MI 20d32  MOVE.B  #0x01,(A6-0x3)>                                  {}
        <POP 20d34-20d38 Naked>                              Σ0         ↓ →0x20d76 ←0x20ccc ←0x20d00
            <MI 20d34  TST.B   (A6-0x3)>                                        {}
            <MI 20d36  BEQ     0x20d76>                                         {}
        <POP 20d38-20d54 Naked>                              Σ0         ↓ →0x20d76
            <MI 20d38  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Const 0x20d3a 0x10.4>                           Δ-4                {[4, '(A6-0x8)']|[##16]}
            <Pointer.fp 0x20d3e <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]}
            <Const 0x20d42 0x254f6.4>                        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152822]}
            <Call 0x20d48 0x20510>                                              {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152822]}
            <POP 20d4c-20d4e StackAdj>                       Δ+16               {}
            <MI 20d4e  TST.B   (A6-0x4)>                                        {}
            <MI 20d52  BNE     0x20d76>                                         {}
        <POP 20d54-20d76 Naked>                              Σ0         ↓
            <Blob 0x20d54 [20] @>                            Δ-20               {[«20""»]}
            <POP 20d60-20d62 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20d62 20>                                                    {[«20""»]|[$$Illegal hex argument]}
            <Call 0x20d6e 0x219f2>                                              {[«20""»]|[$$Illegal hex argument]}
            <POP 20d74-20d76 StackAdj>                       Δ+24               {}
        <POP 20d76-20d7c Naked>                              Σ0         ↓ →0x20d82 ←0x20d34 ←0x20d38
            <MI 20d76  TST.B   (A6+0x10)>                                       {}
            <MI 20d7a  BNE     0x20d82>                                         {}
        <POP 20d7c-20d82 Naked>                              Σ0         ↓
            <MI 20d7c  CLR.B   0x254f4>                                         {}
        <POP 20d82-20daa Naked>                              Σ0         ↓ →0x20db0 ←0x20d76
            <Blob 0x20d82 [4] @>                             Δ-4                {[«4""»]}
            <MI 20d86  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[4, '(A6+0x8)']}
            <POP 20d8a-20d8c StackAdj>                       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20d8c 4>                                                     {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]}
            <POP 20d98-20d9a StackAdj>                       Δ-2                {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]|[-2-]}
            <MI 20d9a  CLR.B   (A7)>                                            {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]|[-2-]}
            <Pointer.fp 0x20d9c <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]|[-2-]|[@@-3]}
            <Pointer.fp 0x20d9e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]|[-2-]|[@@-3]|[@@-8]}
            <Call 0x20da0 0x2039c>                                              {[«4""»]|[4, '(A6+0x8)']|[$$BYTE]|[-2-]|[@@-3]|[@@-8]}
            <POP 20da4-20da6 StackAdj>                       Δ+22               {}
            <MI 20da6  TST.B   (A6-0x3)>                                        {}
            <MI 20da8  BEQ     0x20db0>                                         {}
        <POP 20daa-20db0 Naked>                              Σ0         ↓
            <MI 20daa  MOVE.B  #0x01,0x254f4>                                   {}
        <POP 20db0-20dd8 Naked>                              Σ0         ↓ →0x20de0 ←0x20d82
            <Blob 0x20db0 [4] @>                             Δ-4                {[«4""»]}
            <MI 20db4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[4, '(A6+0x8)']}
            <POP 20db8-20dba StackAdj>                       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20dba 4>                                                     {[«4""»]|[4, '(A6+0x8)']|[$$WORD]}
            <POP 20dc6-20dc8 StackAdj>                       Δ-2                {[«4""»]|[4, '(A6+0x8)']|[$$WORD]|[-2-]}
            <MI 20dc8  CLR.B   (A7)>                                            {[«4""»]|[4, '(A6+0x8)']|[$$WORD]|[-2-]}
            <Pointer.fp 0x20dca <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$WORD]|[-2-]|[@@-3]}
            <Pointer.fp 0x20dcc <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«4""»]|[4, '(A6+0x8)']|[$$WORD]|[-2-]|[@@-3]|[@@-8]}
            <Call 0x20dce 0x2039c>                                              {[«4""»]|[4, '(A6+0x8)']|[$$WORD]|[-2-]|[@@-3]|[@@-8]}
            <POP 20dd2-20dd4 StackAdj>                       Δ+22               {}
            <MI 20dd4  TST.B   (A6-0x3)>                                        {}
            <MI 20dd6  BEQ     0x20de0>                                         {}
        <POP 20dd8-20de0 Naked>                              Σ0         ↓
            <MI 20dd8  MOVE.B  #0x02,0x254f4>                                   {}
        <POP 20de0-20e0c Naked>                              Σ0         ↓ →0x20e14 ←0x20db0
            <Blob 0x20de0 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20de4 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 20de8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[4, '(A6+0x8)']}
            <POP 20dec-20dee StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20dee 8>                                                     {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]}
            <POP 20dfa-20dfc StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]|[-2-]}
            <MI 20dfc  CLR.B   (A7)>                                            {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]|[-2-]}
            <Pointer.fp 0x20dfe <LVAR -0x003 @ 1(rw)>>       Δ-4                {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]|[-2-]|[@@-3]}
            <Pointer.fp 0x20e00 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]|[-2-]|[@@-3]|[@@-8]}
            <Call 0x20e02 0x2039c>                                              {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$LONGWORD]|[-2-]|[@@-3]|[@@-8]}
            <POP 20e06-20e08 StackAdj>                       Δ+26               {}
            <MI 20e08  TST.B   (A6-0x3)>                                        {}
            <MI 20e0a  BEQ     0x20e14>                                         {}
        <POP 20e0c-20e14 Naked>                              Σ0         ↓
            <MI 20e0c  MOVE.B  #0x03,0x254f4>                                   {}
        <POP 20e14-20e1a Naked>                              Σ0         ↓ →0x20e92 ←0x20de0
            <MI 20e14  TST.B   (A6+0x10)>                                       {}
            <MI 20e18  BNE     0x20e92>                                         {}
        <POP 20e1a-20e22 Naked>                              Σ0         ↓ →0x20e92
            <MI 20e1a  TST.B   0x254f4>                                         {}
            <MI 20e20  BNE     0x20e92>                                         {}
        <POP 20e22-20e68 Naked>                              Σ0         ↓ →0x20e6e ←0x20e8a
            <Blob 0x20e22 [34] @>                            Δ-34               {[«34""»]}
            <POP 20e34-20e38 StackAdj>                       Δ-12               {[«34""»]|[-12-]}
            <Lit 0x20e38 33>                                                    {[«34""»]|[-8-]|[$$Enter data size code [ B/W/L ] :_]}
            <Call 0x20e46 0x103e4>                                              {[«34""»]|[-8-]|[$$Enter data size code [ B/W/L ] :_]}
                AskConsoleString(prompt : String) : String
            <POP 20e4c-20e4e StackAdj>                       Δ+4                {[«34""»]|[-8-]}
            <Call 0x20e4e 0x102f0>                                              {[«34""»]|[-8-]}
                ToUpper(a : String) : String
            <POP 20e54-20e56 StackAdj>                       Δ+4                {[«34""»]|[-4-]}
            <MI 20e56  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«34""»]}
            <POP 20e58-20e5c StackAdj>                       Δ+34               {}
            <MI 20e5c  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 20e5e  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 20e62  CMPI.B  #0x42,D0>                                        {}
            <MI 20e66  BNE     0x20e6e>                                         {}
        <POP 20e68-20e6e Naked>                              Σ0         ↓
            <MI 20e68  MOVE.B  #0x01,0x254f4>                                   {}
        <POP 20e6e-20e74 Naked>                              Σ0         ↓ →0x20e7c ←0x20e22
            <MI 20e6e  CMPI.B  #0x57,D0>                                        {}
            <MI 20e72  BNE     0x20e7c>                                         {}
        <POP 20e74-20e7c Naked>                              Σ0         ↓
            <MI 20e74  MOVE.B  #0x02,0x254f4>                                   {}
        <POP 20e7c-20e82 Naked>                              Σ0         ↓ →0x20e8a ←0x20e6e
            <MI 20e7c  CMPI.B  #0x4c,D0>                                        {}
            <MI 20e80  BNE     0x20e8a>                                         {}
        <POP 20e82-20e8a Naked>                              Σ0         ↓
            <MI 20e82  MOVE.B  #0x03,0x254f4>                                   {}
        <POP 20e8a-20e92 Naked>                              Σ0         ↓ →0x20e22 ←0x20e7c
            <MI 20e8a  TST.B   0x254f4>                                         {}
            <MI 20e90  BEQ     0x20e22>                                         {}
        <POP 20e92-20ed0 Naked>                              Σ0         ↓ →0x20f08 ←0x20e14 ←0x20e1a
            <POP 20e92-20e94 StackAdj>                       Δ-4                {[-4-]}
            <POP 20e94-20e95 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20e95 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20e98  MOVE.B  0x202db,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20e9e  MOVE.B  0x202dc,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 20ea4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']}
            <POP 20ea8-20eaa StackAdj>                       Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20eaa>                                                       {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
                <Pointer.sp 0x20eaa 8>                       Δ-4        
                <Const 0x20eae 0x1.2>                        Δ-2        
                <Const 0x20eb0 0x3.2>                        Δ-2        
                <Call 0x20eb4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20eb6-20eb8 StackAdj>                   Δ+8        
            <POP 20eb6-20eb8 StackAdj>                       Δ-2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
            <POP 20eb8-20eb9 StackAdj>                       Δ+2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
            <Const 0x20eb9 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]}
            <Const 0x20eba 0x25502.4>                        Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152834]}
            <Pointer.fp 0x20ec0 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152834]|[@@-8]}
            <Call 0x20ec2 0x2039c>                                              {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152834]|[@@-8]}
            <POP 20ec6-20ec8 StackAdj>                       Δ+22               {}
            <MI 20ec8  TST.B   0x25502>                                         {}
            <MI 20ece  BNE     0x20f08>                                         {}
        <POP 20ed0-20ed6 Naked>                              Σ0         ↓ →0x20f08
            <MI 20ed0  TST.B   (A6+0xe)>                                        {}
            <MI 20ed4  BNE     0x20f08>                                         {}
        <POP 20ed6-20f08 Naked>                              Σ0         ↓
            <Blob 0x20ed6 [46] @>                            Δ-46               {[«46""»]}
            <POP 20ee6-20ee8 StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x20ee8 45>                                                    {[«46""»]|[-4-]|[$$Enter expected old (current) data (in hex) :_]}
            <Call 0x20ef6 0x103e4>                                              {[«46""»]|[-4-]|[$$Enter expected old (current) data (in hex) :_]}
                AskConsoleString(prompt : String) : String
            <POP 20efc-20efe StackAdj>                       Δ+4                {[«46""»]|[-4-]}
            <MI 20efe  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«46""»]}
            <POP 20f00-20f02 StackAdj>                       Δ+46               {}
            <MI 20f02  MOVE.B  #0x01,0x25502>                                   {}
        <POP 20f08-20f10 Naked>                              Σ0         ↓ →0x20f4e ←0x20e92 ←0x20ed0
            <MI 20f08  TST.B   0x25502>                                         {}
            <MI 20f0e  BEQ     0x20f4e>                                         {}
        <POP 20f10-20f2c Naked>                              Σ0         ↓ →0x20f4e
            <MI 20f10  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Const 0x20f12 0x10.4>                           Δ-4                {[4, '(A6-0x8)']|[##16]}
            <Pointer.fp 0x20f16 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]}
            <Const 0x20f1a 0x25504.4>                        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152836]}
            <Call 0x20f20 0x20510>                                              {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152836]}
            <POP 20f24-20f26 StackAdj>                       Δ+16               {}
            <MI 20f26  TST.B   (A6-0x4)>                                        {}
            <MI 20f2a  BNE     0x20f4e>                                         {}
        <POP 20f2c-20f4e Naked>                              Σ0         ↓
            <Blob 0x20f2c [20] @>                            Δ-20               {[«20""»]}
            <POP 20f38-20f3a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20f3a 20>                                                    {[«20""»]|[$$Illegal hex argument]}
            <Call 0x20f46 0x219f2>                                              {[«20""»]|[$$Illegal hex argument]}
            <POP 20f4c-20f4e StackAdj>                       Δ+24               {}
        <POP 20f4e-20f8c Naked>                              Σ0         ↓ →0x20fbe ←0x20f08 ←0x20f10
            <POP 20f4e-20f50 StackAdj>                       Δ-4                {[-4-]}
            <POP 20f50-20f51 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20f51 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20f54  MOVE.B  0x202df,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20f5a  MOVE.B  0x202e0,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 20f60  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']}
            <POP 20f64-20f66 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x20f66>                                                       {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
                <Pointer.sp 0x20f66 8>                       Δ-4        
                <Const 0x20f6a 0x1.2>                        Δ-2        
                <Const 0x20f6c 0x3.2>                        Δ-2        
                <Call 0x20f70 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20f72-20f74 StackAdj>                   Δ+8        
            <POP 20f72-20f74 StackAdj>                       Δ-2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
            <POP 20f74-20f75 StackAdj>                       Δ+2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
            <Const 0x20f75 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]}
            <Const 0x20f76 0x25508.4>                        Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152840]}
            <Pointer.fp 0x20f7c <LVAR -0x008 @ 4(rw)>>       Δ-4                {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152840]|[@@-8]}
            <Call 0x20f7e 0x2039c>                                              {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[#1]|[##152840]|[@@-8]}
            <POP 20f82-20f84 StackAdj>                       Δ+22               {}
            <MI 20f84  TST.B   0x25508>                                         {}
            <MI 20f8a  BNE     0x20fbe>                                         {}
        <POP 20f8c-20f92 Naked>                              Σ0         ↓ →0x20fbe
            <MI 20f8c  TST.B   (A6+0xc)>                                        {}
            <MI 20f90  BNE     0x20fbe>                                         {}
        <POP 20f92-20fbe Naked>                              Σ0         ↓
            <Blob 0x20f92 [26] @>                            Δ-26               {[«26""»]}
            <POP 20f9e-20fa0 StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x20fa0 26>                                                    {[«26""»]|[-4-]|[$$Enter new data (in hex) :_]}
            <Call 0x20fac 0x103e4>                                              {[«26""»]|[-4-]|[$$Enter new data (in hex) :_]}
                AskConsoleString(prompt : String) : String
            <POP 20fb2-20fb4 StackAdj>                       Δ+4                {[«26""»]|[-4-]}
            <MI 20fb4  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«26""»]}
            <POP 20fb6-20fb8 StackAdj>                       Δ+26               {}
            <MI 20fb8  MOVE.B  #0x01,0x25508>                                   {}
        <POP 20fbe-20fc6 Naked>                              Σ0         ↓ →0x21004 ←0x20f4e ←0x20f8c
            <MI 20fbe  TST.B   0x25508>                                         {}
            <MI 20fc4  BEQ     0x21004>                                         {}
        <POP 20fc6-20fe2 Naked>                              Σ0         ↓ →0x21004
            <MI 20fc6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Const 0x20fc8 0x10.4>                           Δ-4                {[4, '(A6-0x8)']|[##16]}
            <Pointer.fp 0x20fcc <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]}
            <Const 0x20fd0 0x2550a.4>                        Δ-4                {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152842]}
            <Call 0x20fd6 0x20510>                                              {[4, '(A6-0x8)']|[##16]|[@@-4]|[##152842]}
            <POP 20fda-20fdc StackAdj>                       Δ+16               {}
            <MI 20fdc  TST.B   (A6-0x4)>                                        {}
            <MI 20fe0  BNE     0x21004>                                         {}
        <POP 20fe2-21004 Naked>                              Σ0         ↓
            <Blob 0x20fe2 [20] @>                            Δ-20               {[«20""»]}
            <POP 20fee-20ff0 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20ff0 20>                                                    {[«20""»]|[$$Illegal hex argument]}
            <Call 0x20ffc 0x219f2>                                              {[«20""»]|[$$Illegal hex argument]}
            <POP 21002-21004 StackAdj>                       Δ+24               {}
        <POP 21004-2100c Epilogue>                           Σ0         ←0x20fbe ←0x20fc6

0x2100c


@ 2100c
        <LVAR  0x008 4(r)>
    <POP 2100c-21132 Body>                                              
        <POP 2100c-21022 Prologue>                           Σ0         ↓
        <POP 21022-2103a RegCacheLoad>                       Σ0         ↓
        <POP 2103a-21070 Naked>                              Σ0         →0x21076 →0x21080 →0x21088
            <MI 2103a  CLR.L   0x25504>                                         {}
            <Const 0x2103c 0x1.2>                            Δ-2                {[#1]}
            <Const 0x2103e 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 21040  CLR.B   -(A7)>                        Δ-2                {[#1]|[#1]|[#0]}
            <MI 21042  CLR.B   -(A7)>                        Δ-2                {[#1]|[#1]|[#0]|[#0]}
            <Const 0x21044 0x1.2>                            Δ-2                {[#1]|[#1]|[#0]|[#0]|[#1]}
            <MI 21046  CLR.B   -(A7)>                        Δ-2                {[#1]|[#1]|[#0]|[#0]|[#1]|[#0]}
            <MI 21048  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[#1]|[#0]|[#0]|[#1]|[#0]|[4, '(A6+0x8)']}
            <Call 0x2104c 0x20b94>                                              {[#1]|[#1]|[#0]|[#0]|[#1]|[#0]|[4, '(A6+0x8)']}
            <POP 21050-21054 StackAdj>                       Δ+16               {}
            <MI 21054  MOVE.B  0x254f4,D0>                                      {}
            <MI 2105a  EXTB.W  D0>                                              {}
            <MI 2105c  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x2105e LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 21066  ADD.W   D0,D0>                                           {}
            <MI 21068  SWITCH  D0.W>                                            {}
        <POP 21076-21080 Naked>                              Σ0         →0x2108c ←0x2103a
            <MI 21076  MOVE.L  #0xff,D7>                                        {}
            <MI 2107c  MOVEQ.L #0x01,D6>                                        {}
            <MI 2107e  BRA     0x2108c>                                         {}
        <POP 21080-21088 Naked>                              Σ0         →0x2108a ←0x2103a
            <MI 21080  MOVE.L  #0xffff,D7>                                      {}
            <MI 21086  BRA     0x2108a>                                         {}
        <POP 21088-2108a Naked>                              Σ0         ↓ ←0x2103a
            <MI 21088  MOVEQ.L #-0x01,D7>                                       {}
        <POP 2108a-2108c Naked>                              Σ0         ↓ ←0x21080
            <MI 2108a  MOVEQ.L #0x02,D6>                                        {}
        <POP 2108c-21090 Naked>                              Σ0         ↓ →0x21098 ←0x21076
            <MI 2108c  CMP.L   0x25504,D7>                                      {}
            <MI 2108e  BCS     0x21098>                                         {}
        <POP 21090-21098 Naked>                              Σ0         ↓ →0x210ba
            <MI 21090  CMP.L   0x2550a,D7>                                      {}
            <MI 21096  BCC     0x210ba>                                         {}
        <POP 21098-210ba Naked>                              Σ0         ↓ ←0x2108c
            <Blob 0x21098 [40] @>                            Δ-40               {[«40""»]}
            <POP 210a4-210a6 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x210a6 40>                                                    {[«40""»]|[$$OLD or NEW value larger than size allows]}
            <Call 0x210b2 0x203fc>                                              {[«40""»]|[$$OLD or NEW value larger than size allows]}
            <POP 210b6-210ba StackAdj>                       Δ+44               {}
        <POP 210ba-210cc Naked>                              Σ0         ↓ →0x210f4 ←0x21090
            <MI 210ba  MOVE.L  0x254f6,D4>                                      {}
            <MI 210c0  MOVE.L  D6,D3>                                           {}
            <Call 0x210c2 0x10294>                                              {}
                ?divs_d3_d4
            <MI 210c8  TST.L   D3>                                              {}
            <MI 210ca  BEQ     0x210f4>                                         {}
        <POP 210cc-210f4 Naked>                              Σ0         ↓
            <Blob 0x210cc [36] @>                            Δ-36               {[«36""»]}
            <POP 210de-210e0 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x210e0 35>                                                    {[«36""»]|[$$Alignment problem with ADDRESS/SIZE]}
            <Call 0x210ee 0x203fc>                                              {[«36""»]|[$$Alignment problem with ADDRESS/SIZE]}
            <POP 210f2-210f4 StackAdj>                       Δ+40               {}
        <POP 210f4-210fa Naked>                              Σ0         ↓ →0x21126 ←0x210ba
            <MI 210f4  MOVEA.L 0x254fe,A0>                                      {}
            <MI 210f6  CMPA.W  #0x01,A0>                                        {}
            <MI 210f8  BNE     0x21126>                                         {}
        <POP 210fa-21126 Naked>                              Σ0         ↓
            <Blob 0x210fa [52] @>                            Δ-52               {[«52""»]}
            <POP 2110a-2110c StackAdj>                       Δ-8                {[«52""»]|[-8-]}
            <Lit 0x2110c 51>                                                    {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
            <Call 0x2111a 0x103e4>                                              {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
                AskConsoleString(prompt : String) : String
            <POP 21120-21122 StackAdj>                       Δ+4                {[«52""»]|[-4-]}
            <MI 21122  MOVE.L  (A7)+,0x254fe>                Δ+4                {[«52""»]}
            <POP 21124-21126 StackAdj>                       Δ+52               {}
        <POP 21126-2112a Naked>                              Σ0         ↓ ←0x210f4
            <Call 0x21126 0x20662>                                              {}
        <POP 2112a-21132 Epilogue>                           Σ0         

0x21132


@ 21132
        <LVAR  0x008 4(r)>
    <POP 21132-21218 Body>                                              
        <POP 21132-21148 Prologue>                           Σ0         ↓
        <POP 21148-21152 RegCacheLoad>                       Σ0         ↓
        <POP 21152-21186 Naked>                              Σ0         →0x2118c →0x21190 →0x21194
            <Const 0x21152 0x1.2>                            Δ-2                {[#1]}
            <Const 0x21154 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 21156  CLR.B   -(A7)>                        Δ-2                {[#1]|[#1]|[#0]}
            <MI 21158  CLR.B   -(A7)>                        Δ-2                {[#1]|[#1]|[#0]|[#0]}
            <Const 0x2115a 0x1.2>                            Δ-2                {[#1]|[#1]|[#0]|[#0]|[#1]}
            <Const 0x2115c 0x1.2>                            Δ-2                {[#1]|[#1]|[#0]|[#0]|[#1]|[#1]}
            <MI 2115e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[#1]|[#0]|[#0]|[#1]|[#1]|[4, '(A6+0x8)']}
            <Call 0x21162 0x20b94>                                              {[#1]|[#1]|[#0]|[#0]|[#1]|[#1]|[4, '(A6+0x8)']}
            <POP 21166-2116a StackAdj>                       Δ+16               {}
            <MI 2116a  MOVE.B  0x254f4,D0>                                      {}
            <MI 21170  EXTB.W  D0>                                              {}
            <MI 21172  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x21174 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 2117c  ADD.W   D0,D0>                                           {}
            <MI 2117e  SWITCH  D0.W>                                            {}
        <POP 2118c-21190 Naked>                              Σ0         →0x21196 ←0x21152
            <MI 2118c  MOVEQ.L #0x01,D7>                                        {}
            <MI 2118e  BRA     0x21196>                                         {}
        <POP 21190-21194 Naked>                              Σ0         →0x21196 ←0x21152
            <MI 21190  MOVEQ.L #0x02,D7>                                        {}
            <MI 21192  BRA     0x21196>                                         {}
        <POP 21194-21196 Naked>                              Σ0         ↓ ←0x21152
            <MI 21194  MOVEQ.L #0x04,D7>                                        {}
        <POP 21196-211a8 Naked>                              Σ0         ↓ →0x211d6 ←0x2118c ←0x21190
            <MI 21196  MOVE.L  0x254f6,D4>                                      {}
            <MI 2119c  MOVE.L  D7,D3>                                           {}
            <Call 0x2119e 0x10294>                                              {}
                ?divs_d3_d4
            <MI 211a4  TST.L   D3>                                              {}
            <MI 211a6  BEQ     0x211d6>                                         {}
        <POP 211a8-211d6 Naked>                              Σ0         ↓
            <Blob 0x211a8 [36] @>                            Δ-36               {[«36""»]}
            <POP 211ba-211bc StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x211bc 35>                                                    {[«36""»]|[$$Alignment problem with ADDRESS/SIZE]}
            <Call 0x211ce 0x203fc>                                              {[«36""»]|[$$Alignment problem with ADDRESS/SIZE]}
            <POP 211d2-211d6 StackAdj>                       Δ+40               {}
        <POP 211d6-211dc Naked>                              Σ0         ↓ →0x2120c ←0x21196
            <MI 211d6  MOVEA.L 0x254fe,A0>                                      {}
            <MI 211d8  CMPA.W  #0x01,A0>                                        {}
            <MI 211da  BNE     0x2120c>                                         {}
        <POP 211dc-2120c Naked>                              Σ0         ↓
            <Blob 0x211dc [52] @>                            Δ-52               {[«52""»]}
            <POP 211ec-211ee StackAdj>                       Δ-8                {[«52""»]|[-8-]}
            <Lit 0x211ee 51>                                                    {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
            <Call 0x21200 0x103e4>                                              {[«52""»]|[-4-]|[$$Enter filename with extention [e.g. foobar.m200] :_]}
                AskConsoleString(prompt : String) : String
            <POP 21206-21208 StackAdj>                       Δ+4                {[«52""»]|[-4-]}
            <MI 21208  MOVE.L  (A7)+,0x254fe>                Δ+4                {[«52""»]}
            <POP 2120a-2120c StackAdj>                       Δ+52               {}
        <POP 2120c-21210 Naked>                              Σ0         ↓ ←0x211d6
            <Call 0x2120c 0x209a8>                                              {}
        <POP 21210-21218 Epilogue>                           Σ0         

0x21218


@ 21218
    <POP 21218-2123e Body>                                              
        <POP 21218-2122a Prologue>                           Σ0         ↓
        <POP 2122a-2123a Naked>                              Σ0         ↓
            <MI 2122a  CLR.L   0x254fa>                                         {}
            <MI 21230  MOVE.L  #0x1,0x254fe>                                    {}
        <POP 2123a-2123e Epilogue>                           Σ0         

0x2123e


@ 2123e
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 2123e-212fc Body>                                   Δ+4        
        <POP 2123e-21254 Prologue>                           Σ0         ↓
        <POP 21254-2125c RegCacheLoad>                       Σ0         ↓
        <POP 2125c-21264 Naked>                              Σ0         ↓
            <MI 2125c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21260  CLR.B   (A0)>                                            {}
            <MI 21262  MOVEQ.L #0x00,D7>                                        {}
        <POP 21264-212b8 Naked>                              Σ0         ↓ →0x212ec ←0x212ec
            <MI 21264  MOVE.B  D7,D0>                                           {}
            <MI 21266  EXTB.W  D0>                                              {}
            <MI 21268  MULS.W  #0x0c,D0>                                        {}
            <MI 2126a  LEA.L   0x20384,A0>                                      {}
            <Blob 0x2126e [12] (A0+D0.W)>                    Δ-12               {[«12»]}
            <POP 2127e-21280 StackAdj>                       Δ-4                {[«12»]|[-4-]}
            <Lit 0x21280>                                                       {[«12»]|[$$…]}
                <Pointer.sp 0x21280 4>                       Δ-4        
                <Const 0x21284 0x1.2>                        Δ-2        
                <Const 0x21286 0xc.2>                        Δ-2        
                <Call 0x21288 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2128e-21290 StackAdj>                   Δ+8        
            <MI 21290  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«12»]}
            <POP 21292-21294 StackAdj>                       Δ+6                {[-6-]}
            <MI 21294  MOVE.L  (A6-0x6),(A7)>                                   {[-2-]|[4, '(A6-0x6)']}
            <MI 21296  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
            <Call 0x2129a 0x102c8>                                              {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
                StringEqual(a, b : String) : Byte
            <POP 212a0-212a2 StackAdj>                       Δ+8                {[-2-]}
            <MI 212a2  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 212a4  EXTB.W  D0>                                              {}
            <POP 0x212a6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 212a8  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x212aa <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x212ac 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 212b2-212b4 StackAdj>                       Δ+4                {}
            <MI 212b4  TST.B   D6>                                              {}
            <MI 212b6  BEQ     0x212ec>                                         {}
        <POP 212b8-212cc Naked>                              Σ0         →0x212d0 →0x212da
            <MI 212b8  MOVE.B  D7,D0>                                           {}
            <MI 212ba  EXTB.W  D0>                                              {}
            <POP 0x212bc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 212c2  ADD.W   D0,D0>                                           {}
            <MI 212c4  SWITCH  D0.W>                                            {}
        <POP 212d0-212da Naked>                              Σ0 Δ-4     →0x212e2 ←0x212b8
            <MI 212d0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x212d4 0x2100c>                                              {[4, '(A6+0xc)']}
            <MI 212d8  BRA     0x212e2>                                         {[4, '(A6+0xc)']}
        <POP 212da-212e2 Naked>                              Σ0 Δ-4     ↓ ←0x212b8
            <MI 212da  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x212de 0x21132>                                              {[4, '(A6+0xc)']}
        <POP 212e2-212ec Naked>                              Σ-4 Δ+4    →0x212f4 ←0x212d0
            <POP 212e2-212e4 StackAdj>                       Δ+4                {}
            <MI 212e4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 212e8  MOVE.B  #0x01,(A0)>                                      {}
            <MI 212ea  BRA     0x212f4>                                         {}
        <POP 212ec-212f4 Naked>                              Σ0         ↓ →0x21264 ←0x21264
            <MI 212ec  ADDQ.B  #0x1,D7>                                         {}
            <MI 212ee  CMP.B   #0x01,D7>                                        {}
            <MI 212f0  BLE     0x21264>                                         {}
        <POP 212f4-212fc Epilogue>                           Σ0         ←0x212e2

0x212fc


@ 212fc
        <LVAR  0x008 4(r)>
    <POP 212fc-21334 Body>                                              
        <POP 212fc-21312 Prologue>                           Σ0         ↓
        <POP 21312-2132c Naked>                              Σ0         ↓
            <Call 0x21312 0x10398>                                              {}
                FSCALL_10398
            <MI 21318  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2131c  LEA.L   0x202fa,A1>                                      {}
            <BlockMove 10,A1,A0>                                                {}
            <Call 0x21328 0x21218>                                              {}
        <POP 2132c-21334 Epilogue>                           Σ0         

0x219b0


@ 219b0
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(w)>
    <POP 219b0-219f2 Body>                                              
        <POP 219b0-219c6 Prologue>                           Σ0         ↓
        <POP 219c6-219ca Naked>                              Σ0         ↓
            <MI 219c6  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 219ca-219d0 Naked>                              Σ0         ↓ →0x219ea ←0x219d0
            <MI 219ca  CMPA.W  #0x1,A4>                                         {}
            <MI 219ce  BEQ     0x219ea>                                         {}
        <POP 219d0-219ea Naked>                              Σ0         →0x219ca
            <MI 219d0  MOVE.L  A4,(A6-0x4)>                                     {}
            <MI 219d4  MOVEA.L (A4+0x8),A4>                                     {}
            <Pointer.fp 0x219d8 <LVAR -0x004 @ 4(w)>>        Δ-4                {[@@-4]}
            <Const 0x219dc 0xc.4>                            Δ-4                {[@@-4]|[##12]}
            <Call 0x219e0 0x102a8>                                              {[@@-4]|[##12]}
                Free2(a : Pointer; b : Long)
            <POP 219e6-219e8 StackAdj>                       Δ+8                {}
            <MI 219e8  BRA     0x219ca>                                         {}
        <POP 219ea-219f2 Epilogue>                           Σ0         ←0x219ca

0x219f2


@ 219f2
        <LVAR  0x008 4(r)>
    <POP 219f2--0001 Body>                                              
        <POP 219f2-21a08 Prologue>                           Σ0         ↓
        <POP 21a08-21a12 Naked>                              Σ0         ↓ →0x21a1c
            <MI 21a08  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21a0c  CMPA.W  #0x1,A0>                                         {}
            <MI 21a10  BEQ     0x21a1c>                                         {}
        <POP 21a12-21a1c Naked>                              Σ0         ↓
            <MI 21a12  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Call 0x21a14 0x103e0>                                              {[4, 'A0']}
                WriteConsoleStringCrLf(str : String)
            <POP 21a1a-21a1c StackAdj>                       Δ+4                {}
        <POP 21a1c-21a2a Naked>                              Σ0         ←0x21a08
            <POP 21a1c-21a2a Bailout>                                           {}
                <MI 21a1c  MOVEA.L (A5+0x8),A7>                         
                <MI 21a20  MOVEA.W #0x0,A6>                             
                <MI 21a24  JMP     0x252ce>                             

0x21a50


@ 21a50
        <LVAR  0x008 1(rw)>
    <POP 21a50-21a8e Body>                                              
        <POP 21a50-21a66 Prologue>                           Σ0         ↓
        <POP 21a66-21a74 Naked>                              Σ0         ↓ →0x21a7a
            <MI 21a66  MOVE.L  0x26518,D0>                                      {}
            <MI 21a6c  CMP.L   0x2651c,D0>                                      {}
            <MI 21a72  BLE     0x21a7a>                                         {}
        <POP 21a74-21a7a Naked>                              Σ0         →0x21a86
            <MI 21a74  CLR.B   (A6+0x8)>                                        {}
            <MI 21a78  BRA     0x21a86>                                         {}
        <POP 21a7a-21a86 Naked>                              Σ0         ↓ ←0x21a66
            <MI 21a7a  LEA.L   0x25510,A0>                                      {}
            <MI 21a80  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 21a86-21a8e Epilogue>                           Σ0         ←0x21a74

0x21a8e


@ 21a8e
        <LVAR  0x008 1(rw)>
    <POP 21a8e-21ad2 Body>                                              
        <POP 21a8e-21aa4 Prologue>                           Σ0         ↓
        <POP 21aa4-21aaa RegCacheLoad>                       Σ0         ↓
        <POP 21aaa-21ab4 Naked>                              Σ0         ↓ →0x21aba
            <MI 21aaa  MOVE.L  0x26518,D0>                                      {}
            <MI 21aac  CMP.L   0x2651c,D0>                                      {}
            <MI 21ab2  BLE     0x21aba>                                         {}
        <POP 21ab4-21aba Naked>                              Σ0         →0x21ac6
            <MI 21ab4  CLR.B   (A6+0x8)>                                        {}
            <MI 21ab8  BRA     0x21ac6>                                         {}
        <POP 21aba-21ac6 Naked>                              Σ0         ↓ ←0x21aaa
            <MI 21aba  LEA.L   0x25510,A0>                                      {}
            <MI 21ac0  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 21ac6-21aca Naked>                              Σ0         ↓ ←0x21ab4
            <MI 21ac6  ADDQ.L  #0x1,D0>                                         {}
            <MI 21ac8  MOVE.L  D0,0x26518>                                      {}
        <POP 21aca-21ad2 Epilogue>                           Σ0         

0x21ad2


@ 21ad2
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21ad2-21bac Body>                                              
        <POP 21ad2-21ae8 Prologue>                           Σ0         ↓
        <POP 21ae8-21afa RegCacheLoad>                       Σ0         ↓
        <POP 21afa-21b06 Naked>                              Σ0         ↓ →0x21b10 ←0x21ba0
            <POP 21afa-21afc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21afc 0x21a50>                                              {[-2-]}
            <MI 21b00  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21b02  CMP.B   #0x5b,D0>                                        {}
            <MI 21b04  BNE     0x21b10>                                         {}
        <POP 21b06-21b10 Naked>                              Σ0         →0x21ba0
            <Call 0x21b06 0x24dd8>                                              {}
            <MI 21b0c  BRA     0x21ba0>                                         {}
        <POP 21b10-21b1c Naked>                              Σ0         ↓ →0x21b34 ←0x21afa
            <MI 21b10  MOVE.L  0x26518,D6>                                      {}
            <POP 21b12-21b14 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b14 0x21a8e>                                              {[-2-]}
            <MI 21b18  MOVE.B  (A7)+,D5>                     Δ+2                {}
            <MI 21b1a  BNE     0x21b34>                                         {}
        <POP 21b1c-21b32 Naked>                              Σ0         →0x21ba4
            <MI 21b1c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21b20  LEA.L   0x2190a,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 21b2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b2e  MOVE.B  #0x02,(A0)>                                      {}
            <MI 21b30  BRA     0x21ba4>                                         {}
        <POP 21b34-21b38 Naked>                              Σ0         ↓ →0x21b40 ←0x21b10
            <MI 21b34  CMP.B   #0x2c,D5>                                        {}
            <MI 21b36  BNE     0x21b40>                                         {}
        <POP 21b38-21b40 Naked>                              Σ0         →0x21b90
            <MI 21b38  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b3a  MOVE.B  #0x03,(A0)>                                      {}
            <MI 21b3e  BRA     0x21b90>                                         {}
        <POP 21b40-21b44 Naked>                              Σ0         ↓ →0x21b4c ←0x21b34
            <MI 21b40  CMP.B   #0x3b,D5>                                        {}
            <MI 21b42  BNE     0x21b4c>                                         {}
        <POP 21b44-21b4c Naked>                              Σ0         →0x21b90
            <MI 21b44  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b46  MOVE.B  #0x01,(A0)>                                      {}
            <MI 21b4a  BRA     0x21b90>                                         {}
        <POP 21b4c-21b52 Naked>                              Σ0         ↓ →0x21b58 ←0x21b40
            <MI 21b4c  CMPI.B  #0x5d,D5>                                        {}
            <MI 21b50  BNE     0x21b58>                                         {}
        <POP 21b52-21b58 Naked>                              Σ0         →0x21b90
            <MI 21b52  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b54  MOVE.B  #0x02,(A0)>                                      {}
            <MI 21b56  BRA     0x21b90>                                         {}
        <POP 21b58-21b5c Naked>                              Σ0         ↓ ←0x21b4c
            <MI 21b58  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b5a  CLR.B   (A0)>                                            {}
        <POP 21b5c-21b68 Naked>                              Σ0         ↓ →0x21b70 ←0x21b8e
            <POP 21b5c-21b5e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b5e 0x21a50>                                              {[-2-]}
            <MI 21b62  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 21b64  CMP.B   #0x5b,D7>                                        {}
            <MI 21b66  BNE     0x21b70>                                         {}
        <POP 21b68-21b70 Naked>                              Σ0         →0x21b8e
            <Call 0x21b68 0x24dd8>                                              {}
            <MI 21b6e  BRA     0x21b8e>                                         {}
        <POP 21b70-21b74 Naked>                              Σ0         ↓ →0x21b82 ←0x21b5c
            <MI 21b70  CMP.B   #0x3b,D7>                                        {}
            <MI 21b72  BEQ     0x21b82>                                         {}
        <POP 21b74-21b78 Naked>                              Σ0         ↓ →0x21b82
            <MI 21b74  CMP.B   #0x2c,D7>                                        {}
            <MI 21b76  BEQ     0x21b82>                                         {}
        <POP 21b78-21b7e Naked>                              Σ0         ↓ →0x21b82
            <MI 21b78  CMPI.B  #0x5d,D7>                                        {}
            <MI 21b7c  BEQ     0x21b82>                                         {}
        <POP 21b7e-21b82 Naked>                              Σ0         ↓ →0x21b86
            <MI 21b7e  TST.B   D7>                                              {}
            <MI 21b80  BNE     0x21b86>                                         {}
        <POP 21b82-21b84 Naked>                              Σ0         →0x21b90 ←0x21b70 ←0x21b74 ←0x21b78
            <MI 21b82  BRA     0x21b90>                                         {}
        <POP 21b86-21b8e Naked>                              Σ0         ↓ ←0x21b7e
            <POP 21b86-21b88 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b88 0x21a8e>                                              {[-2-]}
            <MI 21b8c  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 21b8e-21b90 Naked>                              Σ0         →0x21b5c ←0x21b68
            <MI 21b8e  BRA     0x21b5c>                                         {}
        <POP 21b90-21ba0 Naked>                              Σ0         →0x21ba4 ←0x21b38 ←0x21b44 ←0x21b52 ←0x21b82
            <MI 21b90  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21b94  MOVE.L  D6,(A0)>                                         {}
            <MI 21b96  MOVE.L  0x26518,(A0+0x4)>                                {}
            <MI 21b9a  SUBQ.L  #0x1,(A0+0x4)>                                   {}
            <MI 21b9e  BRA     0x21ba4>                                         {}
        <POP 21ba0-21ba4 Naked>                              Σ0         →0x21afa ←0x21b06
            <MI 21ba0  BRA     0x21afa>                                         {}
        <POP 21ba4-21bac Epilogue>                           Σ0         ←0x21b1c ←0x21b90

0x21bac


@ 21bac
        <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 21bac-21c4a Body>                                              
        <POP 21bac-21bc2 Prologue>                           Σ0         ↓
        <POP 21bc2-21bcc RegCacheLoad>                       Σ0         ↓
        <POP 21bcc-21bd8 Naked>                              Σ0         ↓ →0x21bde
            <MI 21bcc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21bd0  MOVE.B  (A0),D0>                                         {}
            <MI 21bd2  CMPI.B  #0x01,D0>                                        {}
            <MI 21bd6  BEQ     0x21bde>                                         {}
        <POP 21bd8-21bde Naked>                              Σ0         ↓ →0x21bec
            <MI 21bd8  CMPI.B  #0x02,D0>                                        {}
            <MI 21bdc  BNE     0x21bec>                                         {}
        <POP 21bde-21bec Naked>                              Σ0         →0x21c28 ←0x21bcc
            <MI 21bde  MOVE.L  0x2190a,(A6-0xc)>                                {}
            <MI 21be2  MOVE.L  0x2190e,(A6-0x8)>                                {}
            <MI 21be8  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 21bea  BRA     0x21c28>                                         {}
        <POP 21bec-21bfe Naked>                              Σ0         ↓ →0x21c1a ←0x21bd8 ←0x21c22
            <Pointer.fp 0x21bec <LVAR -0x00c @ 4(w)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x21bee <LVAR -0x004 @ 1(rw)>>       Δ-4                {[@@-12]|[@@-4]}
            <Call 0x21bf0 0x21ad2>                                              {[@@-12]|[@@-4]}
            <POP 21bf4-21bf6 StackAdj>                       Δ+8                {}
            <MI 21bf6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21bfa  TST.B   (A6-0x4)>                                        {}
            <MI 21bfc  BEQ     0x21c1a>                                         {}
        <POP 21bfe-21c04 Naked>                              Σ0         ↓ →0x21c1a
            <MI 21bfe  MOVE.B  (A0),D0>                                         {}
            <MI 21c00  CMP.B   #0x03,D0>                                        {}
            <MI 21c02  BNE     0x21c1a>                                         {}
        <POP 21c04-21c1a Naked>                              Σ0         →0x21c22
            <MI 21c04  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21c06  EXTB.W  D0>                                              {}
            <POP 0x21c08 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21c0a  MOVE.B  D0,(A0)>                                         {}
            <MI 21c0c  MOVE.L  0x2190a,(A6-0xc)>                                {}
            <MI 21c10  MOVE.L  0x2190e,(A6-0x8)>                                {}
            <MI 21c16  CLR.B   (A6-0x4)>                                        {}
            <MI 21c18  BRA     0x21c22>                                         {}
        <POP 21c1a-21c22 Naked>                              Σ0         ↓ ←0x21bec ←0x21bfe
            <MI 21c1a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21c1c  EXTB.W  D0>                                              {}
            <POP 0x21c1e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21c20  MOVE.B  D0,(A0)>                                         {}
        <POP 21c22-21c28 Naked>                              Σ0         ↓ →0x21bec ←0x21c04
            <MI 21c22  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21c24  CMP.B   #0x03,D0>                                        {}
            <MI 21c26  BEQ     0x21bec>                                         {}
        <POP 21c28-21c42 Naked>                              Σ0         ↓ ←0x21bde
            <MI 21c28  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 21c2c  LEA.L   (A6-0xc),A1>                                     {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 21c36  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21c3a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21c3c  EXTB.W  D0>                                              {}
            <POP 0x21c3e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21c40  MOVE.B  D0,(A0)>                                         {}
        <POP 21c42-21c4a Epilogue>                           Σ0         

0x21c4a


@ 21c4a
        <LVAR  0x008 4(rw)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x010 2(rw)>
    <POP 21c4a-21d52 Body>                                              
        <POP 21c4a-21c60 Prologue>                           Σ0         ↓
        <POP 21c60-21c6e RegCacheLoad>                       Σ0         ↓
        <POP 21c6e-21c86 Naked>                              Σ0 Δ-4     ↓
            <MI 21c6e  MOVEQ.L #0x01,D6>                                        {}
            <MI 21c70  CLR.W   (A6-0x10)>                                       {}
            <MI 21c72  MOVEQ.L #0x01,D5>                                        {}
            <POP 21c74-21c76 StackAdj>                       Δ-4                {[-4-]}
            <MI 21c76  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x21c78 0x102f0>                                              {[-4-]|[4, '(A6+0x8)']}
                ToUpper(a : String) : String
            <POP 21c7e-21c80 StackAdj>                       Δ+4                {[-4-]}
            <MI 21c80  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {}
            <MI 21c82  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21c84  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
        <POP 21c86-21c92 Naked>                              Σ-4        ↓ →0x21d40 ←0x21d26
            <MI 21c86  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21c88  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 21c8a  EXTW.L  D0>                                              {[-4-]}
            <MI 21c8c  CMP.L   D0,D6>                                           {[-4-]}
            <MI 21c8e  BGT     0x21d40>                                         {[-4-]}
        <POP 21c92-21ca4 Naked>                              Σ-4        ↓ →0x21ca6
            <MI 21c92  CLR.L   D0>                                              {[-4-]}
            <MI 21c94  MOVE.B  (A0+D6.L+#0x1),D0>                               {[-4-]}
            <MI 21c98  ANDI.W  #0x007f,D0>                                      {[-4-]}
            <MI 21c9c  MOVE.B  D0,(A6-0x4)>                                     {[-4-]}
            <MI 21c9e  CMPI.B  #0x09,D0>                                        {[-4-]}
            <MI 21ca2  BNE     0x21ca6>                                         {[-4-]}
        <POP 21ca4-21ca6 Naked>                              Σ-4        ↓
            <MI 21ca4  MOVE.B  #0x20,(A6-0x4)>                                  {[-4-]}
        <POP 21ca6-21cb2 Naked>                              Σ-4        ↓ →0x21ce2 ←0x21c92
            <MI 21ca6  CLR.L   D0>                                              {[-4-]}
            <MI 21ca8  MOVE.B  (A6-0x4),D0>                                     {[-4-]}
            <MI 21caa  SUB.W   #0x20,D0>                                        {[-4-]}
            <MI 21cac  CMPI.W  #0x000c,D0>                                      {[-4-]}
            <MI 21cb0  BHI     0x21ce2>                                         {[-4-]}
        <POP 21cb2-21cbc Naked>                              Σ-4        →0x21cda →0x21cd6 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21ce2 →0x21cde
            <MI 21cb2  ADD.W   D0,D0>                                           {[-4-]}
            <MI 21cb4  SWITCH  D0.W>                                            {[-4-]}
        <POP 21cd6-21cd8 Naked>                              Σ-4        →0x21d40 ←0x21cb2
            <MI 21cd6  BRA     0x21d40>                                         {[-4-]}
        <POP 21cda-21cde Naked>                              Σ-4        →0x21ce4 ←0x21cb2
            <MI 21cda  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <MI 21cdc  BRA     0x21ce4>                                         {[-4-]}
        <POP 21cde-21ce2 Naked>                              Σ-4        →0x21ce4 ←0x21cb2
            <MI 21cde  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 21ce0  BRA     0x21ce4>                                         {[-4-]}
        <POP 21ce2-21ce4 Naked>                              Σ-4        ↓ ←0x21ca6 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2 ←0x21cb2
            <MI 21ce2  MOVEQ.L #0x02,D7>                                        {[-4-]}
        <POP 21ce4-21d08 Naked>                              Σ-4        →0x21d0e →0x21d10 →0x21d1a ←0x21cda ←0x21cde
            <MI 21ce4  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 21ce6  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 21ce8  LEA.L   0x21912,A0>                                      {[-4-]}
            <MI 21cec  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 21cf0  CLR.L   D0>                                              {[-4-]}
            <MI 21cf2  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <POP 0x21cf6 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[-4-]}
            <MI 21cfe  ADD.W   D0,D0>                                           {[-4-]}
            <MI 21d00  SWITCH  D0.W>                                            {[-4-]}
        <POP 21d0e-21d10 Naked>                              Σ-4        →0x21d26 ←0x21ce4
            <MI 21d0e  BRA     0x21d26>                                         {[-4-]}
        <POP 21d10-21d1a Naked>                              Σ-4        →0x21d26 ←0x21ce4
            <MI 21d10  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21d12  MOVE.B  (A6-0x4),(A0+D5.L+#0x1)>                         {[-4-]}
            <MI 21d16  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 21d18  BRA     0x21d26>                                         {[-4-]}
        <POP 21d1a-21d26 Naked>                              Σ-4        ↓ ←0x21ce4
            <MI 21d1a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21d1c  MOVE.B  #0x2c,(A0+D5.L+#0x1)>                            {[-4-]}
            <MI 21d22  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 21d24  SUBQ.L  #0x1,D6>                                         {[-4-]}
        <POP 21d26-21d40 Naked>                              Σ-4        →0x21c86 ←0x21d0e ←0x21d10
            <MI 21d26  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 21d28  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 21d2a  LEA.L   0x2191b,A0>                                      {[-4-]}
            <MI 21d2e  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 21d32  CLR.L   D0>                                              {[-4-]}
            <MI 21d34  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <MI 21d38  MOVE.W  D0,(A6-0x10)>                                    {[-4-]}
            <MI 21d3a  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 21d3c  BRA     0x21c86>                                         {[-4-]}
        <POP 21d40-21d4a Naked>                              Σ-4 Δ+4    ↓ ←0x21c86 ←0x21cd6
            <MI 21d40  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21d42  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 21d44  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 21d46  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 21d48-21d4a StackAdj>                       Δ+4                {}
        <POP 21d4a-21d52 Epilogue>                           Σ0         

0x21d52


@ 21d52
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 21d52-21dfe Body>                                              
        <POP 21d52-21d68 Prologue>                           Σ0         ↓
        <POP 21d68-21d6e RegCacheLoad>                       Σ0         ↓
        <POP 21d6e-21d7c Naked>                              Σ0         ↓ →0x21d84
            <POP 21d6e-21d70 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21d70 0x21a50>                                              {[-2-]}
            <MI 21d74  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21d76  CMPI.B  #0x5b,D0>                                        {}
            <MI 21d7a  BNE     0x21d84>                                         {}
        <POP 21d7c-21d84 Naked>                              Σ0         ↓
            <POP 21d7c-21d7e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21d7e 0x21a8e>                                              {[-2-]}
            <MI 21d82  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 21d84-21d8e Naked>                              Σ0         ↓ ←0x21d6e
            <MI 21d84  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21d88  MOVE.L  #0x01,(A0)>                                      {}
            <MI 21d8a  CLR.B   (A6-0x14)>                                       {}
        <POP 21d8e-21da8 Naked>                              Σ0         ↓ →0x21dde ←0x21dde
            <Pointer.fp 0x21d8e <LVAR -0x00a @>>             Δ-4                {[@@-10]}
            <Pointer.fp 0x21d92 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]}
            <Pointer.fp 0x21d96 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]|[@@-20]}
            <Call 0x21d9a 0x21bac>                                              {[@@-10]|[@@-2]|[@@-20]}
            <POP 21d9e-21da2 StackAdj>                       Δ+12               {}
            <MI 21da2  TST.B   (A6-0x2)>                                        {}
            <MI 21da6  BNE     0x21dde>                                         {}
        <POP 21da8-21dd4 Naked>                              Σ0         ↓ →0x21dd8
            <Pointer.fp 0x21da8 <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Const 0x21daa 0xc.4>                            Δ-4                {[@@-14]|[##12]}
            <Call 0x21dae 0x1029c>                                              {[@@-14]|[##12]}
                Malloc1(length : Long) : Pointer
            <POP 21db4-21db6 StackAdj>                       Δ+8                {}
            <MI 21db6  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 21db8  MOVEA.L A0,A1>                                           {}
            <MI 21dba  LEA.L   (A6-0xa),A2>                                     {}
            <BlockMove 8,A2,A1>                                                 {}
            <MI 21dc6  MOVE.L  #0x01,(A0+0x8)>                                  {}
            <MI 21dca  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21dce  MOVEA.L (A0),A1>                                         {}
            <MI 21dd0  CMPA.W  #0x01,A1>                                        {}
            <MI 21dd2  BNE     0x21dd8>                                         {}
        <POP 21dd4-21dd8 Naked>                              Σ0         →0x21ddc
            <MI 21dd4  MOVE.L  (A6-0xe),(A0)>                                   {}
            <MI 21dd6  BRA     0x21ddc>                                         {}
        <POP 21dd8-21ddc Naked>                              Σ0         ↓ ←0x21da8
            <MI 21dd8  MOVE.L  (A6-0xe),(A4+0x8)>                               {}
        <POP 21ddc-21dde Naked>                              Σ0         ↓ ←0x21dd4
            <MI 21ddc  MOVEA.L (A6-0xe),A4>                                     {}
        <POP 21dde-21de4 Naked>                              Σ0         ↓ →0x21d8e ←0x21d8e
            <MI 21dde  TST.B   (A6-0x2)>                                        {}
            <MI 21de2  BEQ     0x21d8e>                                         {}
        <POP 21de4-21df4 Naked>                              Σ0         ↓ →0x21df6
            <MI 21de4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21de8  CLR.B   (A0)>                                            {}
            <MI 21dea  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 21dee  CMPI.B  #0x02,D0>                                        {}
            <MI 21df2  BNE     0x21df6>                                         {}
        <POP 21df4-21df6 Naked>                              Σ0         ↓
            <MI 21df4  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 21df6-21dfe Epilogue>                           Σ0         ←0x21de4

0x21dfe


@ 21dfe
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 21dfe-21e34 Body>                                              
        <POP 21dfe-21e14 Prologue>                           Σ0         ↓
        <POP 21e14-21e1a Naked>                              Σ0         ↓
            <MI 21e14  MOVEQ.L #-0x01,D7>                                       {}
            <MI 21e16  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 21e1a-21e20 Naked>                              Σ0         ↓ →0x21e28 ←0x21e20
            <MI 21e1a  CMPA.W  #0x1,A4>                                         {}
            <MI 21e1e  BEQ     0x21e28>                                         {}
        <POP 21e20-21e28 Naked>                              Σ0         →0x21e1a
            <MI 21e20  ADDQ.L  #0x1,D7>                                         {}
            <MI 21e22  MOVEA.L (A4+0x8),A4>                                     {}
            <MI 21e26  BRA     0x21e1a>                                         {}
        <POP 21e28-21e2c Naked>                              Σ0         ↓ ←0x21e1a
            <MI 21e28  MOVE.L  D7,(A6+0xc)>                                     {}
        <POP 21e2c-21e34 Epilogue>                           Σ0         

0x21e34


@ 21e34
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21e34-21ec0 Body>                                              
        <POP 21e34-21e4a Prologue>                           Σ0         ↓
        <POP 21e4a-21e4c RegCacheLoad>                       Σ0         ↓
        <POP 21e4c-21e60 Naked>                              Σ0         ↓ →0x21eb8
            <POP 21e4c-21e4e StackAdj>                       Δ-4                {[-4-]}
            <MI 21e4e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x21e52 0x21dfe>                                              {[-4-]|[4, '(A6+0xc)']}
            <POP 21e56-21e58 StackAdj>                       Δ+4                {[-4-]}
            <MI 21e58  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 21e5a  CMP.L   (A6+0x8),D0>                                     {}
            <MI 21e5e  BEQ     0x21eb8>                                         {}
        <POP 21e60-21eb8 Naked>                              Σ0         ↓
            <MI 21e60  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x21e64 0x219b0>                                              {[4, '(A6+0xc)']}
            <POP 21e68-21e6a StackAdj>                       Δ+4                {}
            <Blob 0x21e6a [32] @>                            Δ-32               {[«32""»]}
            <Blob 0x21e76 [10] (A6+0x1a)>                    Δ-10               {[«32""»]|[«10»]}
            <POP 21e82-21e84 StackAdj>                       Δ-8                {[«32""»]|[«10»]|[-8-]}
            <Lit 0x21e84 32>                                                    {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
            <POP 21e94-21e96 StackAdj>                       Δ-4                {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
            <Lit 0x21e96>                                                       {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                <Pointer.sp 0x21e96 12>                      Δ-4        
                <Const 0x21e9a 0x1.2>                        Δ-2        
                <Const 0x21e9c 0xa.2>                        Δ-2        
                <Call 0x21ea0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21ea6-21ea8 StackAdj>                   Δ+8        
            <Call 0x21ea8 0x102d0>                                              {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21eae-21eb0 StackAdj>                       Δ+8                {[«32""»]|[«10»]|[-4-]}
            <Call 0x21eb0 0x219f2>                                              {[«32""»]|[«10»]|[-4-]}
            <POP 21eb4-21eb8 StackAdj>                       Δ+46               {}
        <POP 21eb8-21ec0 Epilogue>                           Σ0         ←0x21e4c

0x21ec0


@ 21ec0
        <LVAR  0x014 1(rw)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21ec0-21f46 Body>                                   Δ-4        
        <POP 21ec0-21ed6 Prologue>                           Σ0         ↓
        <POP 21ed6-21eea Naked>                              Σ0         ↓ →0x21f38
            <MI 21ed6  CLR.B   (A6+0x14)>                                       {}
            <MI 21eda  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 21ede  ADD.L   (A6+0x8),D0>                                     {}
            <MI 21ee2  CMP.L   0x2651c,D0>                                      {}
            <MI 21ee8  BGT     0x21f38>                                         {}
        <POP 21eea-21ef0 Naked>                              Σ0 Δ-4     ↓
            <MI 21eea  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 21eee  MOVEQ.L #0x01,D7>                                        {[4, '(A6+0x8)']}
        <POP 21ef0-21ef4 Naked>                              Σ-4        ↓ →0x21f36 ←0x21f32
            <MI 21ef0  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 21ef2  BGT     0x21f36>                                         {[-4-]}
        <POP 21ef4-21f2e Naked>                              Σ-4        ↓ →0x21f32
            <MI 21ef4  MOVE.L  (A6+0x10),D0>                                    {[-4-]}
            <MI 21ef8  ADD.L   D7,D0>                                           {[-4-]}
            <MI 21efa  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x21efc LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 21f06  LEA.L   0x25510,A0>                                      {[-4-]}
            <MI 21f0c  MOVE.L  (A6+0xc),D1>                                     {[-4-]}
            <MI 21f10  ADD.L   D7,D1>                                           {[-4-]}
            <MI 21f12  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 21f14  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x21f16 LimitCheck 0x0 ≤ D1 ≤ 0x3e>                            {[-4-]}
            <MI 21f20  LEA.L   0x2150c,A1>                                      {[-4-]}
            <MI 21f24  MOVE.B  (A0+D0.L+#0x8),D0>                               {[-4-]}
            <MI 21f28  CMP.B   (A1+D1.L),D0>                                    {[-4-]}
            <MI 21f2c  BEQ     0x21f32>                                         {[-4-]}
        <POP 21f2e-21f32 Naked>                              Σ-4 Δ+4    →0x21f3e
            <POP 21f2e-21f30 StackAdj>                       Δ+4                {}
            <MI 21f30  BRA     0x21f3e>                                         {}
        <POP 21f32-21f36 Naked>                              Σ-4        ↓ →0x21ef0 ←0x21ef4
            <MI 21f32  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 21f34  BVC     0x21ef0>                                         {[-4-]}
        <POP 21f36-21f38 Naked>                              Σ-4 Δ+4    ↓ ←0x21ef0
            <POP 21f36-21f38 StackAdj>                       Δ+4                {}
        <POP 21f38-21f3e Naked>                              Σ0         ↓ ←0x21ed6
            <MI 21f38  MOVE.B  #0x01,(A6+0x14)>                                 {}
        <POP 21f3e-21f46 Epilogue>                           Σ0         ←0x21f2e

0x21f46


@ 21f46
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21f46-21fd0 Body>                                              
        <POP 21f46-21f5c Prologue>                           Σ0         ↓
        <POP 21f5c-21f66 RegCacheLoad>                       Σ0         ↓
        <POP 21f66-21f6a Naked>                              Σ0         ↓ →0x21fa8
            <MI 21f66  TST.L   (A6+0x8)>                                        {}
            <MI 21f68  BGE     0x21fa8>                                         {}
        <POP 21f6a-21f78 Naked>                              Σ0         ↓ →0x21fa8
            <MI 21f6a  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 21f6c  NEG.L   D0>                                              {}
            <MI 21f6e  ADD.L   0x2651c,D0>                                      {}
            <MI 21f70  CMPI.L  #0x00001000,D0>                                  {}
            <MI 21f76  BLE     0x21fa8>                                         {}
        <POP 21f78-21fa8 Naked>                              Σ0         ↓
            <Blob 0x21f78 [28] @>                            Δ-28               {[«28""»]}
            <POP 21f8a-21f8c StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x21f8c 27>                                                    {[«28""»]|[$$Evaluation buffer overflow.]}
            <Call 0x21fa0 0x219f2>                                              {[«28""»]|[$$Evaluation buffer overflow.]}
            <POP 21fa4-21fa8 StackAdj>                       Δ+32               {}
        <POP 21fa8-21fc8 Naked>                              Σ0         ↓ ←0x21f66 ←0x21f6a
            <MI 21fa8  LEA.L   0x25518,A0>                                      {}
            <MI 21fae  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x21fb0 [4] 0x2651c>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 21fb2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
            <MI 21fb6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x21fb8 0x10364>                                              {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                MovStringTail(Base, Len, Ptr, Delta)
            <POP 21fbe-21fc2 StackAdj>                       Δ+16               {}
            <MI 21fc2  MOVE.L  0x2651c,D0>                                      {}
            <MI 21fc4  SUB.L   (A6+0x8),D0>                                     {}
            <MI 21fc6  MOVE.L  D0,0x2651c>                                      {}
        <POP 21fc8-21fd0 Epilogue>                           Σ0         

0x21fd0


@ 21fd0
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21fd0-2205a Body>                                              
        <POP 21fd0-21fe6 Prologue>                           Σ0         ↓
        <POP 21fe6-21fea RegCacheLoad>                       Σ0         ↓
        <POP 21fea-2200a Naked>                              Σ0 Δ-8     ↓
            <MI 21fea  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21fee  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21ff0  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 21ff2  MOVE.L  (A1),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A1)']}
            <MI 21ff4  MOVE.W  (A0),D0>                                         {[4, 'A0']|[4, '(A1)']}
            <MI 21ff6  EXTW.L  D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 21ff8  NEG.L   D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 21ffa  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <Call 0x21ffc 0x21f46>                                              {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <POP 22000-22002 StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 22002  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 22004  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 22006  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 22008  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 2200a-2200e Naked>                              Σ-8        ↓ →0x22044 ←0x2200e
            <MI 2200a  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2200c  BGT     0x22044>                                         {[-8-]}
        <POP 2200e-22044 Naked>                              Σ-8        ↓ →0x2200a
            <MI 2200e  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 22010  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22012  ADD.L   (A0),D0>                                         {[-8-]}
            <MI 22014  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 22016  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22018 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 22022  LEA.L   0x25510,A0>                                      {[-8-]}
            <MI 22028  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 2202a  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x2202c LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 22036  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 2203a  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 22040  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 22042  BVC     0x2200a>                                         {[-8-]}
        <POP 22044-22052 Naked>                              Σ-8 Δ+8    ↓ ←0x2200a
            <POP 22044-22046 StackAdj>                       Δ+4                {[-4-]}
            <MI 22046  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22048  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 2204a  MOVE.W  (A1),D0>                                         {[-4-]}
            <MI 2204c  EXTW.L  D0>                                              {[-4-]}
            <MI 2204e  ADD.L   D0,(A0)>                                         {[-4-]}
            <POP 22050-22052 StackAdj>                       Δ+4                {}
        <POP 22052-2205a Epilogue>                           Σ0         

0x2205a


@ 2205a
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2205a-221da Body>                                              
        <POP 2205a-22070 Prologue>                           Σ0         ↓
        <POP 22070-2207e RegCacheLoad>                       Σ0         ↓
        <POP 2207e-22090 Naked>                              Σ0         ↓
            <MI 2207e  MOVEQ.L #0x00,D7>                                        {}
            <MI 22080  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22084  CLR.L   (A0)>                                            {}
            <MI 22086  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22088  CLR.L   (A0)>                                            {}
            <MI 2208a  MOVE.L  0x26518,D6>                                      {}
        <POP 22090-220b0 Naked>                              Σ0         ↓ →0x22182 ←0x2218c ←0x22192
            <MI 22090  MOVE.L  D6,D0>                                           {}
            <MI 22092  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22094 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 2209e  LEA.L   0x25510,A0>                                      {}
            <MI 220a4  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 220a8  CMPI.B  #0x5b,D0>                                        {}
            <MI 220ac  BNE     0x22182>                                         {}
        <POP 220b0-220c4 Naked>                              Σ0         ↓ →0x22142
            <POP 220b0-220b2 StackAdj>                       Δ-2                {[-2-]}
            <MI 220b2  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x220b4 0x1.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]}
            <Const 0x220b8 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]|[##3]}
            <Call 0x220bc 0x21ec0>                                              {[-2-]|[4, 'D6']|[##1]|[##3]}
            <POP 220be-220c0 StackAdj>                       Δ+12               {[-2-]}
            <MI 220c0  TST.B   (A7)+>                        Δ+2                {}
            <MI 220c2  BNE     0x22142>                                         {}
        <POP 220c4-220d6 Naked>                              Σ0         ↓ →0x22142
            <POP 220c4-220c6 StackAdj>                       Δ-2                {[-2-]}
            <MI 220c6  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x220c8 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]}
            <Const 0x220ca 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]|[##3]}
            <Call 0x220ce 0x21ec0>                                              {[-2-]|[4, 'D6']|[##4]|[##3]}
            <POP 220d0-220d2 StackAdj>                       Δ+12               {[-2-]}
            <MI 220d2  TST.B   (A7)+>                        Δ+2                {}
            <MI 220d4  BNE     0x22142>                                         {}
        <POP 220d6-220e8 Naked>                              Σ0         ↓ →0x22142
            <POP 220d6-220d8 StackAdj>                       Δ-2                {[-2-]}
            <MI 220d8  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x220da 0x7.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]}
            <Const 0x220de 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]|[##4]}
            <Call 0x220e0 0x21ec0>                                              {[-2-]|[4, 'D6']|[##7]|[##4]}
            <POP 220e2-220e4 StackAdj>                       Δ+12               {[-2-]}
            <MI 220e4  TST.B   (A7)+>                        Δ+2                {}
            <MI 220e6  BNE     0x22142>                                         {}
        <POP 220e8-220fa Naked>                              Σ0         ↓ →0x22142
            <POP 220e8-220ea StackAdj>                       Δ-2                {[-2-]}
            <MI 220ea  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x220ec 0xb.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]}
            <Const 0x220f0 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]|[##4]}
            <Call 0x220f2 0x21ec0>                                              {[-2-]|[4, 'D6']|[##11]|[##4]}
            <POP 220f4-220f6 StackAdj>                       Δ+12               {[-2-]}
            <MI 220f6  TST.B   (A7)+>                        Δ+2                {}
            <MI 220f8  BNE     0x22142>                                         {}
        <POP 220fa-2210c Naked>                              Σ0         ↓ →0x22142
            <POP 220fa-220fc StackAdj>                       Δ-2                {[-2-]}
            <MI 220fc  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x220fe 0xf.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]}
            <Const 0x22102 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]|[##4]}
            <Call 0x22104 0x21ec0>                                              {[-2-]|[4, 'D6']|[##15]|[##4]}
            <POP 22106-22108 StackAdj>                       Δ+12               {[-2-]}
            <MI 22108  TST.B   (A7)+>                        Δ+2                {}
            <MI 2210a  BNE     0x22142>                                         {}
        <POP 2210c-2211e Naked>                              Σ0         ↓ →0x22142
            <POP 2210c-2210e StackAdj>                       Δ-2                {[-2-]}
            <MI 2210e  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22110 0x13.4>                           Δ-4                {[-2-]|[4, 'D6']|[##19]}
            <Const 0x22114 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##19]|[##4]}
            <Call 0x22116 0x21ec0>                                              {[-2-]|[4, 'D6']|[##19]|[##4]}
            <POP 22118-2211a StackAdj>                       Δ+12               {[-2-]}
            <MI 2211a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2211c  BNE     0x22142>                                         {}
        <POP 2211e-22130 Naked>                              Σ0         ↓ →0x22142
            <POP 2211e-22120 StackAdj>                       Δ-2                {[-2-]}
            <MI 22120  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22122 0x17.4>                           Δ-4                {[-2-]|[4, 'D6']|[##23]}
            <Const 0x22126 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##23]|[##4]}
            <Call 0x22128 0x21ec0>                                              {[-2-]|[4, 'D6']|[##23]|[##4]}
            <POP 2212a-2212c StackAdj>                       Δ+12               {[-2-]}
            <MI 2212c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2212e  BNE     0x22142>                                         {}
        <POP 22130-22142 Naked>                              Σ0         ↓ →0x22146
            <POP 22130-22132 StackAdj>                       Δ-2                {[-2-]}
            <MI 22132  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x22134 0x1b.4>                           Δ-4                {[-2-]|[4, 'D6']|[##27]}
            <Const 0x22138 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##27]|[##4]}
            <Call 0x2213a 0x21ec0>                                              {[-2-]|[4, 'D6']|[##27]|[##4]}
            <POP 2213c-2213e StackAdj>                       Δ+12               {[-2-]}
            <MI 2213e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22140  BEQ     0x22146>                                         {}
        <POP 22142-22146 Naked>                              Σ0         →0x22182 ←0x220b0 ←0x220c4 ←0x220d6 ←0x220e8 ←0x220fa ←0x2210c ←0x2211e
            <MI 22142  ADDQ.L  #0x1,D7>                                         {}
            <MI 22144  BRA     0x22182>                                         {}
        <POP 22146-2214a Naked>                              Σ0         ↓ →0x22166 ←0x22130
            <MI 22146  TST.L   D7>                                              {}
            <MI 22148  BNE     0x22166>                                         {}
        <POP 2214a-2215e Naked>                              Σ0         ↓ →0x22166
            <POP 2214a-2214c StackAdj>                       Δ-2                {[-2-]}
            <MI 2214c  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2214e 0x1f.4>                           Δ-4                {[-2-]|[4, 'D6']|[##31]}
            <Const 0x22152 0x5.4>                            Δ-4                {[-2-]|[4, 'D6']|[##31]|[##5]}
            <Call 0x22156 0x21ec0>                                              {[-2-]|[4, 'D6']|[##31]|[##5]}
            <POP 22158-2215a StackAdj>                       Δ+12               {[-2-]}
            <MI 2215a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2215c  BEQ     0x22166>                                         {}
        <POP 2215e-22162 Naked>                              Σ0         ↓
            <MI 2215e  MOVEA.L (A6+0xc),A0>                                     {}
        <POP 22162-22166 Naked>                              Σ0         →0x22182 ←0x2217c
            <MI 22162  MOVE.L  D6,(A0)>                                         {}
            <MI 22164  BRA     0x22182>                                         {}
        <POP 22166-22178 Naked>                              Σ0         ↓ →0x22182 ←0x22146 ←0x2214a
            <POP 22166-22168 StackAdj>                       Δ-2                {[-2-]}
            <MI 22168  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2216a 0x24.4>                           Δ-4                {[-2-]|[4, 'D6']|[##36]}
            <Const 0x2216e 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##36]|[##4]}
            <Call 0x22170 0x21ec0>                                              {[-2-]|[4, 'D6']|[##36]|[##4]}
            <POP 22172-22174 StackAdj>                       Δ+12               {[-2-]}
            <MI 22174  TST.B   (A7)+>                        Δ+2                {}
            <MI 22176  BEQ     0x22182>                                         {}
        <POP 22178-2217c Naked>                              Σ0         ↓ →0x22180
            <MI 22178  TST.L   D7>                                              {}
            <MI 2217a  BNE     0x22180>                                         {}
        <POP 2217c-22180 Naked>                              Σ0         →0x22162
            <MI 2217c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2217e  BRA     0x22162>                                         {}
        <POP 22180-22182 Naked>                              Σ0         ↓ ←0x22178
            <MI 22180  SUBQ.L  #0x1,D7>                                         {}
        <POP 22182-2218c Naked>                              Σ0         ↓ →0x2219a ←0x22090 ←0x22142 ←0x22162 ←0x22166
            <MI 22182  ADDQ.L  #0x1,D6>                                         {}
            <MI 22184  CMP.L   0x2651c,D6>                                      {}
            <MI 2218a  BGT     0x2219a>                                         {}
        <POP 2218c-22192 Naked>                              Σ0         ↓ →0x22090
            <MI 2218c  TST.L   D7>                                              {}
            <MI 2218e  BNE     0x22090>                                         {}
        <POP 22192-2219a Naked>                              Σ0         ↓ →0x22090
            <MI 22192  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22194  TST.L   (A0)>                                            {}
            <MI 22196  BEQ     0x22090>                                         {}
        <POP 2219a-221a2 Naked>                              Σ0         ↓ →0x221d2 ←0x22182
            <MI 2219a  CMP.L   0x2651c,D6>                                      {}
            <MI 221a0  BLE     0x221d2>                                         {}
        <POP 221a2-221d2 Naked>                              Σ0         ↓
            <Blob 0x221a2 [28] @>                            Δ-28               {[«28""»]}
            <POP 221b4-221b6 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x221b6 27>                                                    {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <Call 0x221ca 0x219f2>                                              {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <POP 221ce-221d2 StackAdj>                       Δ+32               {}
        <POP 221d2-221da Epilogue>                           Σ0         ←0x2219a

0x221da


@ 221da
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 221da-22220 Body>                                              
        <POP 221da-221f0 Prologue>                           Σ0         ↓
        <POP 221f0-221f8 RegCacheLoad>                       Σ0         ↓
        <POP 221f8-22206 Naked>                              Σ0         ↓ →0x22208
            <Pointer.fp 0x221f8 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Pointer.fp 0x221fa <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x221fc 0x2205a>                                              {[@@-8]|[@@-4]}
            <POP 22200-22202 StackAdj>                       Δ+8                {}
            <MI 22202  TST.L   (A6-0x8)>                                        {}
            <MI 22204  BNE     0x22208>                                         {}
        <POP 22206-22208 Naked>                              Σ0         ↓
            <MI 22206  MOVE.L  (A6-0x4),(A6-0x8)>                               {}
        <POP 22208-22218 Naked>                              Σ0         ↓ ←0x221f8
            <MI 22208  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 2220a  ADDQ.L  #0x5,D0>                                         {}
            <MI 2220c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2220e  SUB.L   (A6-0x8),D0>                                     {[4, 'D0']}
            <MI 22210  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x22212 0x21f46>                                              {[4, 'D0']|[4, 'D0']}
            <POP 22216-22218 StackAdj>                       Δ+8                {}
        <POP 22218-22220 Epilogue>                           Σ0         

0x22220


@ 22220
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 22220-2227c Body>                                              
        <POP 22220-22236 Prologue>                           Σ0         ↓
        <POP 22236-2223e RegCacheLoad>                       Σ0         ↓
        <POP 2223e-2224c Naked>                              Σ0         ↓ →0x22252
            <Pointer.fp 0x2223e <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x22240 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x22242 0x2205a>                                              {[@@-8]|[@@-4]}
            <POP 22246-22248 StackAdj>                       Δ+8                {}
            <MI 22248  TST.L   (A6-0x8)>                                        {}
            <MI 2224a  BNE     0x22252>                                         {}
        <POP 2224c-22252 Naked>                              Σ0         →0x22264
            <MI 2224c  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 2224e  ADDQ.L  #0x5,D0>                                         {}
            <MI 22250  BRA     0x22264>                                         {}
        <POP 22252-22264 Naked>                              Σ0         ↓ ←0x2223e
            <MI 22252  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 22254  ADDQ.L  #0x5,(A7)>                                       {[-4-]}
            <Const 0x22256 0x5.4>                            Δ-4                {[-4-]|[##5]}
            <Call 0x2225a 0x21f46>                                              {[-4-]|[##5]}
            <POP 2225e-22260 StackAdj>                       Δ+8                {}
            <MI 22260  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22262  ADDQ.L  #0x6,D0>                                         {}
        <POP 22264-22274 Naked>                              Σ0         ↓ ←0x2224c
            <MI 22264  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22266  SUB.L   0x26518,D0>                                      {[4, 'D0']}
            <MI 2226c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x2226e 0x21f46>                                              {[4, 'D0']|[4, 'D0']}
            <POP 22272-22274 StackAdj>                       Δ+8                {}
        <POP 22274-2227c Epilogue>                           Σ0         

0x2227c


@ 2227c
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 2227c-22390 Body>                                              
        <POP 2227c-22292 Prologue>                           Σ0         ↓
        <POP 22292-222aa RegCacheLoad>                       Σ0         ↓
        <POP 222aa-222ae Naked>                              Σ0         ↓ →0x222b8
            <MI 222aa  TST.B   0x2652a>                                         {}
            <MI 222ac  BEQ     0x222b8>                                         {}
        <POP 222ae-222b2 Naked>                              Σ0         ↓ →0x222b8
            <MI 222ae  TST.L   0x26530>                                         {}
            <MI 222b0  BNE     0x222b8>                                         {}
        <POP 222b2-222b8 Naked>                              Σ0         ↓
            <MI 222b2  MOVE.L  (A6+0x8),0x26530>                                {}
            <MI 222b6  SUBQ.L  #0x1,0x26530>                                    {}
        <POP 222b8-222be Naked>                              Σ0         ↓ →0x22388 ←0x222aa ←0x222ae
            <MI 222b8  TST.B   0x2652a>                                         {}
            <MI 222ba  BNE     0x22388>                                         {}
        <POP 222be-222f2 Naked>                              Σ0         ↓ →0x2230c
            <MI 222be  MOVE.L  (A6+0x8),0x26518>                                {}
            <MI 222c2  ADDQ.L  #0x6,0x26518>                                    {}
            <Pointer.fp 0x222c4 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x222c6 <LVAR -0x004 @>>             Δ-4                {[@@-8]|[@@-4]}
            <Call 0x222ca 0x21d52>                                              {[@@-8]|[@@-4]}
            <POP 222ce-222d0 StackAdj>                       Δ+8                {}
            <Blob 0x222d0 [10] @>                            Δ-10               {[«10""»]}
            <MI 222dc  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6-0x8)']}
            <Const 0x222de 0x0.4>                            Δ-4                {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <Call 0x222e2 0x21e34>                                              {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <POP 222e6-222ea StackAdj>                       Δ+18               {}
            <MI 222ea  TST.B   0x26534>                                         {}
            <MI 222f0  BEQ     0x2230c>                                         {}
        <POP 222f2-2230c Naked>                              Σ0         →0x22320
            <POP 222f2-222f4 StackAdj>                       Δ-8                {[-8-]}
            <MI 222f4  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x222f6 0x0.4>                            Δ-4                {[-8-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x222fa 0x2274c>                                              {[-8-]|[4, '(A6-0x8)']|[##0]}
            <POP 22300-22302 StackAdj>                       Δ+8                {[-8-]}
            <MI 22302  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 22306  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 2230a  BRA     0x22320>                                         {}
        <POP 2230c-22320 Naked>                              Σ0         ↓ ←0x222be
            <POP 2230c-2230e StackAdj>                       Δ-4                {[-4-]}
            <MI 2230e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <Const 0x22310 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x22314 0x2271a>                                              {[-4-]|[4, '(A6-0x8)']|[##0]}
            <POP 2231a-2231c StackAdj>                       Δ+8                {[-4-]}
            <MI 2231c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
        <POP 22320-22336 Naked>                              Σ0         ↓ →0x22360 ←0x222f2
            <MI 22320  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x22322 0x219b0>                                              {[4, '(A6-0x8)']}
            <POP 22326-22328 StackAdj>                       Δ+4                {}
            <MI 22328  MOVE.L  0x26518,0x2652c>                                 {}
            <MI 2232e  TST.B   0x26534>                                         {}
            <MI 22334  BEQ     0x22360>                                         {}
        <POP 22336-22360 Naked>                              Σ0         →0x22388
            <POP 22336-22338 StackAdj>                       Δ-2                {[-2-]}
            <MI 22338  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']}
            <MI 2233c  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Blob 0x22340 [4] 0x2653e>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
            <Blob 0x22346 [4] 0x2653a>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
            <Call 0x2234c 0x1032c>                                              {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
                IsEqual(a, b : Quad) : Bool
            <POP 22352-22356 StackAdj>                       Δ+16               {[-2-]}
            <MI 22356  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22358  EXTB.W  D0>                                              {}
            <POP 0x2235a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2235c  MOVE.B  D0,0x2652a>                                      {}
            <MI 2235e  BRA     0x22388>                                         {}
        <POP 22360-22388 Naked>                              Σ0         ↓ ←0x22320
            <POP 22360-22362 StackAdj>                       Δ-2                {[-2-]}
            <MI 22362  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xc)']}
            <Blob 0x22366 [4] 0x26536>                       Δ-4                {[-2-]|[4, '(A6-0xc)']|[«4»]}
            <Call 0x2236c 0x102c8>                                              {[-2-]|[4, '(A6-0xc)']|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 22372-22374 StackAdj>                       Δ+8                {[-2-]}
            <MI 22374  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22376  EXTB.W  D0>                                              {}
            <POP 0x22378 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2237a  MOVE.B  D0,0x2652a>                                      {}
            <Pointer.fp 0x2237c <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x22380 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 22386-22388 StackAdj>                       Δ+4                {}
        <POP 22388-22390 Epilogue>                           Σ0         ←0x222b8 ←0x22336

0x22390


@ 22390
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22390-22512 Body>                                              
        <POP 22390-223a6 Prologue>                           Σ0         ↓
        <POP 223a6-223ba RegCacheLoad>                       Σ0         ↓
        <POP 223ba-223ce Naked>                              Σ0         ↓
            <MI 223ba  CLR.B   0x2652a>                                         {}
            <MI 223bc  CLR.L   0x2652c>                                         {}
            <MI 223c2  CLR.L   0x26530>                                         {}
            <MI 223c4  MOVEQ.L #0x00,D7>                                        {}
            <MI 223c6  MOVEQ.L #0x00,D6>                                        {}
            <MI 223c8  MOVE.L  0x26518,D5>                                      {}
        <POP 223ce-223d4 Naked>                              Σ0         ↓ →0x22472 ←0x2246e
            <MI 223ce  TST.L   D6>                                              {}
            <MI 223d0  BNE     0x22472>                                         {}
        <POP 223d4-223de Naked>                              Σ0         ↓ →0x22472
            <MI 223d4  CMP.L   0x2651c,D5>                                      {}
            <MI 223da  BGT     0x22472>                                         {}
        <POP 223de-223fc Naked>                              Σ0         ↓ →0x22468
            <MI 223de  MOVE.L  D5,D0>                                           {}
            <MI 223e0  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x223e2 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 223ec  LEA.L   0x25510,A0>                                      {}
            <MI 223f2  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 223f6  CMPI.B  #0x5b,D0>                                        {}
            <MI 223fa  BNE     0x22468>                                         {}
        <POP 223fc-22410 Naked>                              Σ0         ↓ →0x22424
            <POP 223fc-223fe StackAdj>                       Δ-2                {[-2-]}
            <MI 223fe  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22400 0x28.4>                           Δ-4                {[-2-]|[4, 'D5']|[##40]}
            <Const 0x22404 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##40]|[##5]}
            <Call 0x22408 0x21ec0>                                              {[-2-]|[4, 'D5']|[##40]|[##5]}
            <POP 2240a-2240c StackAdj>                       Δ+12               {[-2-]}
            <MI 2240c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2240e  BNE     0x22424>                                         {}
        <POP 22410-22424 Naked>                              Σ0         ↓ →0x22428
            <POP 22410-22412 StackAdj>                       Δ-2                {[-2-]}
            <MI 22412  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22414 0x2d.4>                           Δ-4                {[-2-]|[4, 'D5']|[##45]}
            <Const 0x22418 0x6.4>                            Δ-4                {[-2-]|[4, 'D5']|[##45]|[##6]}
            <Call 0x2241c 0x21ec0>                                              {[-2-]|[4, 'D5']|[##45]|[##6]}
            <POP 2241e-22420 StackAdj>                       Δ+12               {[-2-]}
            <MI 22420  TST.B   (A7)+>                        Δ+2                {}
            <MI 22422  BEQ     0x22428>                                         {}
        <POP 22424-22428 Naked>                              Σ0         →0x22468 ←0x223fc
            <MI 22424  ADDQ.L  #0x1,D7>                                         {}
            <MI 22426  BRA     0x22468>                                         {}
        <POP 22428-2242c Naked>                              Σ0         ↓ →0x2244a ←0x22410
            <MI 22428  TST.L   D7>                                              {}
            <MI 2242a  BNE     0x2244a>                                         {}
        <POP 2242c-22440 Naked>                              Σ0         ↓ →0x2244a
            <POP 2242c-2242e StackAdj>                       Δ-2                {[-2-]}
            <MI 2242e  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x22430 0x33.4>                           Δ-4                {[-2-]|[4, 'D5']|[##51]}
            <Const 0x22434 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##51]|[##5]}
            <Call 0x22438 0x21ec0>                                              {[-2-]|[4, 'D5']|[##51]|[##5]}
            <POP 2243a-2243c StackAdj>                       Δ+12               {[-2-]}
            <MI 2243c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2243e  BEQ     0x2244a>                                         {}
        <POP 22440-2244a Naked>                              Σ0         →0x22468
            <MI 22440  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <Call 0x22442 0x2227c>                                              {[4, 'D5']}
            <POP 22446-22448 StackAdj>                       Δ+4                {}
            <MI 22448  BRA     0x22468>                                         {}
        <POP 2244a-2245e Naked>                              Σ0         ↓ →0x22468 ←0x22428 ←0x2242c
            <POP 2244a-2244c StackAdj>                       Δ-2                {[-2-]}
            <MI 2244c  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x2244e 0x38.4>                           Δ-4                {[-2-]|[4, 'D5']|[##56]}
            <Const 0x22452 0x8.4>                            Δ-4                {[-2-]|[4, 'D5']|[##56]|[##8]}
            <Call 0x22456 0x21ec0>                                              {[-2-]|[4, 'D5']|[##56]|[##8]}
            <POP 22458-2245a StackAdj>                       Δ+12               {[-2-]}
            <MI 2245a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2245c  BEQ     0x22468>                                         {}
        <POP 2245e-22462 Naked>                              Σ0         ↓ →0x22466
            <MI 2245e  TST.L   D7>                                              {}
            <MI 22460  BNE     0x22466>                                         {}
        <POP 22462-22466 Naked>                              Σ0         →0x22468
            <MI 22462  MOVE.L  D5,D6>                                           {}
            <MI 22464  BRA     0x22468>                                         {}
        <POP 22466-22468 Naked>                              Σ0         ↓ ←0x2245e
            <MI 22466  SUBQ.L  #0x1,D7>                                         {}
        <POP 22468-2246c Naked>                              Σ0         ↓ →0x2246e ←0x223de ←0x22424 ←0x22440 ←0x2244a ←0x22462
            <MI 22468  TST.L   D6>                                              {}
            <MI 2246a  BNE     0x2246e>                                         {}
        <POP 2246c-2246e Naked>                              Σ0         ↓
            <MI 2246c  ADDQ.L  #0x1,D5>                                         {}
        <POP 2246e-22472 Naked>                              Σ0         →0x223ce ←0x22468
            <MI 2246e  BRA     0x223ce>                                         {}
        <POP 22472-2247a Naked>                              Σ0         ↓ →0x22488 ←0x223ce ←0x223d4
            <MI 22472  TST.B   0x26534>                                         {}
            <MI 22478  BNE     0x22488>                                         {}
        <POP 2247a-22488 Naked>                              Σ0         ↓
            <Const 0x2247a 0x26536.4>                        Δ-4                {[##156982]}
            <Call 0x22480 0x102bc>                                              {[##156982]}
                FreeString(VAR a : String)
            <POP 22486-22488 StackAdj>                       Δ+4                {}
        <POP 22488-2248c Naked>                              Σ0         ↓ →0x224b4 ←0x22472
            <MI 22488  TST.B   0x2652a>                                         {}
            <MI 2248a  BNE     0x224b4>                                         {}
        <POP 2248c-224b4 Naked>                              Σ0         ↓
            <Blob 0x2248c [26] @>                            Δ-26               {[«26""»]}
            <POP 22498-2249a StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2249a 26>                                                    {[«26""»]|[$$No case alternative found!]}
            <Call 0x224ac 0x219f2>                                              {[«26""»]|[$$No case alternative found!]}
            <POP 224b0-224b4 StackAdj>                       Δ+30               {}
        <POP 224b4-224b8 Naked>                              Σ0         ↓ →0x224e6 ←0x22488
            <MI 224b4  TST.L   D6>                                              {}
            <MI 224b6  BNE     0x224e6>                                         {}
        <POP 224b8-224e6 Naked>                              Σ0         ↓
            <Blob 0x224b8 [20] @>                            Δ-20               {[«20""»]}
            <POP 224ca-224cc StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x224cc 19>                                                    {[«20""»]|[$$No [ENDCASE] found!]}
            <Call 0x224de 0x219f2>                                              {[«20""»]|[$$No [ENDCASE] found!]}
            <POP 224e2-224e6 StackAdj>                       Δ+24               {}
        <POP 224e6-224fa Naked>                              Σ0         ↓ →0x22504 ←0x224b4
            <MI 224e6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 224ea  MOVE.L  D6,(A0)>                                         {}
            <MI 224ec  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 224f0  MOVE.L  0x2652c,(A0)>                                    {}
            <MI 224f6  TST.L   0x26530>                                         {}
            <MI 224f8  BNE     0x22504>                                         {}
        <POP 224fa-22504 Naked>                              Σ0         →0x2250a
            <MI 224fa  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 224fe  MOVE.L  D6,(A0)>                                         {}
            <MI 22500  SUBQ.L  #0x1,(A0)>                                       {}
            <MI 22502  BRA     0x2250a>                                         {}
        <POP 22504-2250a Naked>                              Σ0         ↓ ←0x224e6
            <MI 22504  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22508  MOVE.L  0x26530,(A0)>                                    {}
        <POP 2250a-22512 Epilogue>                           Σ0         ←0x224fa

0x22512


@ 22512
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 22512-22586 Body>                                              
        <POP 22512-22528 Prologue>                           Σ0         ↓
        <POP 22528-22532 RegCacheLoad>                       Σ0         ↓
        <POP 22532-2257e Naked>                              Σ0         ↓
            <MI 22532  MOVE.L  0x26518,D6>                                      {}
            <MI 22534  CLR.B   0x26534>                                         {}
            <MI 2253a  MOVE.L  (A6+0x8),0x26536>                                {}
            <MI 22542  MOVE.L  0x26518,D7>                                      {}
            <Pointer.fp 0x22544 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x22546 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x2254a <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x2254e 0x22390>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 22552-22556 StackAdj>                       Δ+12               {}
            <MI 22556  MOVE.L  D6,0x26518>                                      {}
            <MI 22558  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 2255c  ADDI.L  #0x00000009,D0>                                  {}
            <MI 22562  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22564  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 22568  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 2256a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x2256c 0x21f46>                                              {[4, 'D0']|[4, 'D0']}
            <POP 22570-22572 StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 22572  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 22574  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 22576  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x22578 0x21f46>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 2257c-2257e StackAdj>                       Δ+8                {}
        <POP 2257e-22586 Epilogue>                           Σ0         

0x22586


@ 22586
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 22586-22604 Body>                                              
        <POP 22586-2259c Prologue>                           Σ0         ↓
        <POP 2259c-225a6 RegCacheLoad>                       Σ0         ↓
        <POP 225a6-225fc Naked>                              Σ0         ↓
            <MI 225a6  MOVE.L  0x26518,D6>                                      {}
            <MI 225a8  MOVE.B  #0x01,0x26534>                                   {}
            <MI 225b0  MOVE.L  (A6+0x8),0x2653a>                                {}
            <MI 225b8  MOVE.L  (A6+0xc),0x2653e>                                {}
            <MI 225c0  MOVE.L  0x26518,D7>                                      {}
            <Pointer.fp 0x225c2 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x225c4 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x225c8 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x225cc 0x22390>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 225d0-225d4 StackAdj>                       Δ+12               {}
            <MI 225d4  MOVE.L  D6,0x26518>                                      {}
            <MI 225d6  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 225da  ADDI.L  #0x00000009,D0>                                  {}
            <MI 225e0  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 225e2  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 225e6  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 225e8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x225ea 0x21f46>                                              {[4, 'D0']|[4, 'D0']}
            <POP 225ee-225f0 StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 225f0  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 225f2  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 225f4  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x225f6 0x21f46>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 225fa-225fc StackAdj>                       Δ+8                {}
        <POP 225fc-22604 Epilogue>                           Σ0         

0x22604


@ 22604
        <LVAR  0x010 4(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22604-2263c Body>                                              
        <POP 22604-2261a Prologue>                           Σ0         ↓
        <POP 2261a-22620 Naked>                              Σ0         ↓ →0x22626
            <MI 2261a  TST.L   (A6+0x8)>                                        {}
            <MI 2261e  BNE     0x22626>                                         {}
        <POP 22620-22626 Naked>                              Σ0         →0x22634
            <MI 22620  CLR.L   (A6+0x10)>                                       {}
            <MI 22624  BRA     0x22634>                                         {}
        <POP 22626-22634 Naked>                              Σ0         ↓ ←0x2261a
            <MI 22626  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 2262a  SUB.L   (A6+0x8),D0>                                     {}
            <MI 2262e  ADDQ.L  #0x1,D0>                                         {}
            <MI 22630  MOVE.L  D0,(A6+0x10)>                                    {}
        <POP 22634-2263c Epilogue>                           Σ0         ←0x22620

0x2263c


@ 2263c
        <LVAR  0x014 4(w)>
        <LVAR  0x010 @ 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2263c-2269e Body>                                   Δ-4        
        <POP 2263c-22652 Prologue>                           Σ0         ↓
        <POP 22652-22668 Naked>                              Σ0 Δ-4     ↓
            <MI 22652  MOVEA.L (A6+0xc),A4>                                     {}
            <MI 22656  MOVE.L  0x2190a,(A6+0x10)>                               {}
            <MI 2265c  MOVE.L  0x2190e,(A6+0x14)>                               {}
            <MI 22662  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 22666  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 22668-2266c Naked>                              Σ-4        ↓ →0x22694 ←0x22690
            <MI 22668  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 2266a  BGT     0x22694>                                         {[-4-]}
        <POP 2266c-22672 Naked>                              Σ-4        ↓ →0x22676
            <MI 2266c  CMPA.W  #0x1,A4>                                         {[-4-]}
            <MI 22670  BNE     0x22676>                                         {[-4-]}
        <POP 22672-22676 Naked>                              Σ-4 Δ+4    →0x22696
            <POP 22672-22674 StackAdj>                       Δ+4                {}
            <MI 22674  BRA     0x22696>                                         {}
        <POP 22676-2267c Naked>                              Σ-4        ↓ →0x2268c ←0x2266c
            <MI 22676  CMP.L   (A6+0x8),D7>                                     {[-4-]}
            <MI 2267a  BNE     0x2268c>                                         {[-4-]}
        <POP 2267c-2268c Naked>                              Σ-4        →0x22690
            <MI 2267c  LEA.L   (A6+0x10),A0>                                    {[-4-]}
            <MI 22680  MOVEA.L A4,A1>                                           {[-4-]}
            <BlockMove 8,A1,A0>                                                 {[-4-]}
            <MI 2268a  BRA     0x22690>                                         {[-4-]}
        <POP 2268c-22690 Naked>                              Σ-4        ↓ ←0x22676
            <MI 2268c  MOVEA.L (A4+0x8),A4>                                     {[-4-]}
        <POP 22690-22694 Naked>                              Σ-4        ↓ →0x22668 ←0x2267c
            <MI 22690  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22692  BVC     0x22668>                                         {[-4-]}
        <POP 22694-22696 Naked>                              Σ-4 Δ+4    ↓ ←0x22668
            <POP 22694-22696 StackAdj>                       Δ+4                {}
        <POP 22696-2269e Epilogue>                           Σ0         ←0x22672

0x2269e


@ 2269e
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 2269e-2271a Body>                                   Δ-4        
        <POP 2269e-226b4 Prologue>                           Σ0         ↓
        <POP 226b4-226b8 RegCacheLoad>                       Σ0         ↓
        <POP 226b8-226d0 Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x226b8 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x226ba 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 226c0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']}
            <MI 226c4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x226c8 0x22604>                                              {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 226cc-226ce StackAdj>                       Δ+8                {[@@-8]}
            <MI 226ce  MOVEQ.L #0x01,D7>                                        {[@@-8]}
        <POP 226d0-226d4 Naked>                              Σ-4        ↓ →0x2270c ←0x226fc
            <MI 226d0  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 226d2  BGT     0x2270c>                                         {[-4-]}
        <POP 226d4-226f8 Naked>                              Σ-4        ↓ →0x226fc
            <MI 226d4  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 226d6  ADD.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 226da  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 226dc  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x226de LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 226e8  LEA.L   0x25510,A0>                                      {[-4-]}
            <MI 226ee  MOVE.B  (A0+D0.L+#0x8),D6>                               {[-4-]}
            <MI 226f2  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 226f6  BNE     0x226fc>                                         {[-4-]}
        <POP 226f8-226fc Naked>                              Σ-4 Δ+4    →0x2270e
            <POP 226f8-226fa StackAdj>                       Δ+4                {}
            <MI 226fa  BRA     0x2270e>                                         {}
        <POP 226fc-2270c Naked>                              Σ-4        ↓ →0x226d0 ←0x226d4
            <MI 226fc  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 226fe  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
            <Call 0x22700 0x102c0>                                              {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 22706-22708 StackAdj>                       Δ+6                {[-4-]}
            <MI 22708  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2270a  BVC     0x226d0>                                         {[-4-]}
        <POP 2270c-2270e Naked>                              Σ-4 Δ+4    ↓ ←0x226d0
            <POP 2270c-2270e StackAdj>                       Δ+4                {}
        <POP 2270e-22712 Naked>                              Σ0         ↓ ←0x226f8
            <MI 2270e  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 22712-2271a Epilogue>                           Σ0         

0x2271a


@ 2271a
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2271a-2274c Body>                                              
        <POP 2271a-2272c Prologue>                           Σ0         ↓
        <POP 2272c-22748 Naked>                              Σ0         ↓
            <POP 2272c-22730 StackAdj>                       Δ-12               {[-12-]}
            <MI 22730  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 22734  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22738 0x2263c>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2273c-2273e StackAdj>                       Δ+8                {[-12-]}
            <Call 0x2273e 0x2269e>                                              {[-12-]}
            <POP 22742-22744 StackAdj>                       Δ+8                {[-4-]}
            <MI 22744  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 22748-2274c Epilogue>                           Σ0         

0x2274c


@ 2274c
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2274c-22788 Body>                                              
        <POP 2274c-2275e Prologue>                           Σ0         ↓
        <POP 2275e-22784 Naked>                              Σ0         ↓
            <POP 2275e-22762 StackAdj>                       Δ-12               {[-12-]}
            <MI 22762  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 22766  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2276a 0x2271a>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2276e-22770 StackAdj>                       Δ+8                {[-12-]}
            <Const 0x22770 0x10.4>                           Δ-4                {[-12-]|[##16]}
            <Call 0x22774 0x10360>                                              {[-12-]|[##16]}
                ?StringToInt64()
            <POP 2277a-2277c StackAdj>                       Δ+8                {[-8-]}
            <MI 2277c  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {[-4-]}
            <MI 22780  MOVE.L  (A7)+,(A6+0x14)>              Δ+4                {}
        <POP 22784-22788 Epilogue>                           Σ0         

0x22788


@ 22788
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22788-227bc Body>                                              
        <POP 22788-2279a Prologue>                           Σ0         ↓
        <POP 2279a-227b8 Naked>                              Σ0         ↓
            <POP 2279a-2279e StackAdj>                       Δ-12               {[-12-]}
            <MI 2279e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 227a2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x227a6 0x2274c>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 227aa-227ac StackAdj>                       Δ+8                {[-12-]}
            <Call 0x227ac 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 227b2-227b4 StackAdj>                       Δ+8                {[-4-]}
            <MI 227b4  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 227b8-227bc Epilogue>                           Σ0         

0x227bc


@ 227bc
        <LVAR  0x008 @ 4(r)>
    <POP 227bc-22844 Body>                                              
        <POP 227bc-227d2 Prologue>                           Σ0         ↓
        <POP 227d2-227d8 RegCacheLoad>                       Σ0         ↓
        <POP 227d8-227f6 Naked>                              Σ0 Δ-8     ↓
            <MI 227d8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 227dc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x227de [4] 0x26518>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 227e0  MOVE.W  (A0),D0>                                         {[4, 'A0']|[«4»]}
            <MI 227e2  EXTW.L  D0>                                              {[4, 'A0']|[«4»]}
            <MI 227e4  NEG.L   D0>                                              {[4, 'A0']|[«4»]}
            <MI 227e6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[«4»]|[4, 'D0']}
            <Call 0x227e8 0x21f46>                                              {[4, 'A0']|[«4»]|[4, 'D0']}
            <POP 227ec-227ee StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 227ee  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 227f0  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 227f2  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 227f4  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 227f6-227fa Naked>                              Σ-8        ↓ →0x2282e ←0x227fa
            <MI 227f6  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 227f8  BGT     0x2282e>                                         {[-8-]}
        <POP 227fa-2282e Naked>                              Σ-8        ↓ →0x227f6
            <MI 227fa  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 227fc  ADD.L   0x26518,D0>                                      {[-8-]}
            <MI 227fe  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 22800  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22802 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 2280c  LEA.L   0x25510,A0>                                      {[-8-]}
            <MI 22812  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 22814  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x22816 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 22820  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 22824  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 2282a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 2282c  BVC     0x227f6>                                         {[-8-]}
        <POP 2282e-2283c Naked>                              Σ-8 Δ+8    ↓ ←0x227f6
            <POP 2282e-22830 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22830 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22834 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 2283a-2283c StackAdj>                       Δ+4                {}
        <POP 2283c-22844 Epilogue>                           Σ0         

0x22844


@ 22844
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22844-22878 Body>                                              
        <POP 22844-22856 Prologue>                           Σ0         ↓
        <POP 22856-22874 Naked>                              Σ0         ↓
            <POP 22856-22858 StackAdj>                       Δ-4                {[-4-]}
            <MI 22858  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 2285c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x22860 0x10.4>                           Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
            <Call 0x22864 0x1035c>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 2286a-2286e StackAdj>                       Δ+12               {[-4-]}
            <Call 0x2286e 0x227bc>                                              {[-4-]}
            <POP 22872-22874 StackAdj>                       Δ+4                {}
        <POP 22874-22878 Epilogue>                           Σ0         

0x22878


@ 22878
        <LVAR  0x008 4(r)>
    <POP 22878-228a2 Body>                                              
        <POP 22878-2288a Prologue>                           Σ0         ↓
        <POP 2288a-2289e Naked>                              Σ0         ↓
            <POP 2288a-2288c StackAdj>                       Δ-4                {[-4-]}
            <MI 2288c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22890 0x102e4>                                              {[-4-]|[4, '(A6+0x8)']}
                Long2String(a : Long) : String
            <POP 22896-22898 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x22898 0x227bc>                                              {[-4-]}
            <POP 2289c-2289e StackAdj>                       Δ+4                {}
        <POP 2289e-228a2 Epilogue>                           Σ0         

0x228a2


@ 228a2
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 228a2-22972 Body>                                              
        <POP 228a2-228b8 Prologue>                           Σ0         ↓
        <POP 228b8-228c0 RegCacheLoad>                       Σ0         ↓
        <POP 228c0-228d2 Naked>                              Σ0         ↓
            <MI 228c0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 228c4  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <Pointer.fp 0x228c8 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x228ca 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <POP 228d0-228d2 StackAdj>                       Δ+4                {}
        <POP 228d2-228dc Naked>                              Σ0         ↓ →0x22960 ←0x22948
            <MI 228d2  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 228d4  CMPA.W  #0x1,A0>                                         {}
            <MI 228d8  BEQ     0x22960>                                         {}
        <POP 228dc-228e0 Naked>                              Σ0         ↓ →0x22948
            <MI 228dc  TST.L   (A0)>                                            {}
            <MI 228de  BEQ     0x22948>                                         {}
        <POP 228e0-228ea Naked>                              Σ0 Δ-4     ↓ →0x228fe
            <MI 228e0  MOVE.L  (A0+0x4),-(A7)>               Δ-4                {[4, '(A0+0x4)']}
            <MI 228e4  MOVE.L  (A0),D7>                                         {[4, '(A0+0x4)']}
            <MI 228e6  CMP.L   (A7),D7>                                         {[4, '(A0+0x4)']}
            <MI 228e8  BGT     0x228fe>                                         {[4, '(A0+0x4)']}
        <POP 228ea-228fe Naked>                              Σ-4        ↓
            <MI 228ea  MOVE.L  (A7),D0>                                         {[-4-]}
            <POP 0x228ec LimitCheck -0x7fffffff ≤ D7>                           {[-4-]}
                <MI 228ec  CMPI.L  #0x80000001,D7>                      
                <MI 228f2  BLT     0x228fc>                             
            <POP 0x228f4 LimitCheck D0 ≤ 0x7fffffff>                            {[-4-]}
                <MI 228f4  CMPI.L  #0x7fffffff,D0>                      
                <MI 228fa  BLE     0x228fe>                             
                <MI 228fc  TRAP    #15>                                 
        <POP 228fe-22902 Naked>                              Σ-4        ↓ →0x22946 ←0x228e0 ←0x22942
            <MI 228fe  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22900  BGT     0x22946>                                         {[-4-]}
        <POP 22902-2292e Naked>                              Σ-4        ↓ →0x22942
            <MI 22902  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 22904  MOVE.L  D7,D0>                                           {[-4-]|[4, '(A6-0x4)']}
            <MI 22906  SUBQ.L  #0x1,D0>                                         {[-4-]|[4, '(A6-0x4)']}
            <POP 0x22908 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]|[4, '(A6-0x4)']}
            <MI 22912  LEA.L   0x25510,A0>                                      {[-4-]|[4, '(A6-0x4)']}
            <MI 22918  MOVE.B  (A0+D0.L+#0x8),-(A7)>         Δ-2                {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
            <Call 0x2291c 0x102c0>                                              {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
                AppendChar(MOD b : String; a : char)
            <POP 22922-22924 StackAdj>                       Δ+6                {[-4-]}
            <MI 22924  MOVEA.L (A6-0x4),A0>                                     {[-4-]}
            <MI 22926  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 22928  CMPI.W  #0x007a,D0>                                      {[-4-]}
            <MI 2292c  BLT     0x22942>                                         {[-4-]}
        <POP 2292e-22942 Naked>                              Σ-4        ↓
            <MI 2292e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <Call 0x22930 0x103d8>                                              {[-4-]|[4, '(A6-0x4)']}
                WriteConsoleString(str : String)
            <POP 22936-22938 StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x22938 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Call 0x2293a 0x102b8>                                              {[-4-]|[@@-4]}
                NewString(VAR a : String)
            <POP 22940-22942 StackAdj>                       Δ+4                {[-4-]}
        <POP 22942-22946 Naked>                              Σ-4        ↓ →0x228fe ←0x22902
            <MI 22942  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22944  BVC     0x228fe>                                         {[-4-]}
        <POP 22946-22948 Naked>                              Σ-4 Δ+4    ↓ ←0x228fe
            <POP 22946-22948 StackAdj>                       Δ+4                {}
        <POP 22948-22960 Naked>                              Σ0         →0x228d2 ←0x228dc
            <MI 22948  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Const 0x2294a 0x20.2>                           Δ-2                {[4, '(A6-0x4)']|[#32]}
            <Call 0x2294e 0x102c0>                                              {[4, '(A6-0x4)']|[#32]}
                AppendChar(MOD b : String; a : char)
            <POP 22954-22956 StackAdj>                       Δ+6                {}
            <MI 22956  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 22958  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <MI 2295c  BRA     0x228d2>                                         {}
        <POP 22960-2296a Naked>                              Σ0         ↓ ←0x228d2
            <MI 22960  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Call 0x22962 0x103e0>                                              {[4, '(A6-0x4)']}
                WriteConsoleStringCrLf(str : String)
            <POP 22968-2296a StackAdj>                       Δ+4                {}
        <POP 2296a-22972 Epilogue>                           Σ0         

0x22972


@ 22972
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 22972-22a7c Body>                                              
        <POP 22972-22988 Prologue>                           Σ0         ↓
        <POP 22988-2299a RegCacheLoad>                       Σ0         ↓
        <POP 2299a-229e0 Naked>                              Σ0         ↓ →0x22a16
            <Blob 0x2299a [4] @>                             Δ-4                {[«4""»]}
            <POP 2299e-229a0 StackAdj>                       Δ-8                {[«4""»]|[-8-]}
            <MI 229a0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[-8-]|[4, '(A6+0x8)']}
            <Call 0x229a2 0x102cc>                                              {[«4""»]|[-8-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <Lit 0x229a8 4>                                                     {[«4""»]|[-8-]|[$$.HLP]}
            <Call 0x229ba 0x102d0>                                              {[«4""»]|[-8-]|[$$.HLP]}
                StringCat2(a, b : String) : String
            <POP 229c0-229c2 StackAdj>                       Δ+8                {[«4""»]|[-4-]}
            <MI 229c2  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«4""»]}
            <MI 229c4  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 229c6  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]}
            <MI 229c8  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]|[#0]}
            <Const 0x229ca 0x0.4>                            Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x229ce <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x229d0 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x229d2 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 229d8-229dc StackAdj>                       Δ+20               {}
            <MI 229dc  TST.B   (A6-0x4)>                                        {}
            <MI 229de  BEQ     0x22a16>                                         {}
        <POP 229e0-22a16 Naked>                              Σ0         →0x22a6a
            <Blob 0x229e0 [22] @>                            Δ-22               {[«22""»]}
            <POP 229ec-229ee StackAdj>                       Δ-8                {[«22""»]|[-8-]}
            <Lit 0x229ee 22>                                                    {[«22""»]|[-4-]|[$$No help available for_]}
            <POP 229fe-22a00 StackAdj>                       Δ-4                {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
            <MI 22a00  MOVE.L  (A6+0x8),(A7)>                                   {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
            <Call 0x22a02 0x102d0>                                              {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 22a08-22a0a StackAdj>                       Δ+8                {[«22""»]|[-4-]}
            <Call 0x22a0a 0x103e0>                                              {[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22a10-22a14 StackAdj>                       Δ+26               {}
            <MI 22a14  BRA     0x22a6a>                                         {}
        <POP 22a16-22a2e Naked>                              Σ0         ↓ →0x22a42 ←0x2299a ←0x22a42
            <MI 22a16  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Pointer.fp 0x22a18 <LVAR  0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]}
            <Pointer.fp 0x22a1a <LVAR -0x003 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]|[@@-3]}
            <Call 0x22a1e 0x1043c>                                              {[4, '(A6-0x8)']|[@@8]|[@@-3]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 22a24-22a28 StackAdj>                       Δ+12               {}
            <MI 22a28  TST.B   (A6-0x3)>                                        {}
            <MI 22a2c  BNE     0x22a42>                                         {}
        <POP 22a2e-22a42 Naked>                              Σ0         ↓
            <POP 22a2e-22a30 StackAdj>                       Δ-4                {[-4-]}
            <MI 22a30  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22a32 0x102cc>                                              {[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 22a38-22a3a StackAdj>                       Δ+4                {[-4-]}
            <Call 0x22a3a 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22a40-22a42 StackAdj>                       Δ+4                {}
        <POP 22a42-22a48 Naked>                              Σ0         ↓ →0x22a16 ←0x22a16
            <MI 22a42  TST.B   (A6-0x3)>                                        {}
            <MI 22a46  BEQ     0x22a16>                                         {}
        <POP 22a48-22a6a Naked>                              Σ0         ↓
            <MI 22a48  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22a4a 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x22a4e 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x22a52 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x22a54 <LVAR -0x008 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x22a56 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22a5c-22a60 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22a60 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22a62 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22a68-22a6a StackAdj>                       Δ+4                {}
        <POP 22a6a-22a74 Naked>                              Σ0         ↓ ←0x229e0
            <Pointer.fp 0x22a6a <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x22a6c 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 22a72-22a74 StackAdj>                       Δ+4                {}
        <POP 22a74-22a7c Epilogue>                           Σ0         

0x22a7c


@ 22a7c
        <LVAR  0x008 4(r)>
    <POP 22a7c-22afe Body>                                              
        <POP 22a7c-22a92 Prologue>                           Σ0         ↓
        <POP 22a92-22aa2 Naked>                              Σ0         ↓ →0x22ad0
            <POP 22a92-22a94 StackAdj>                       Δ-4                {[-4-]}
            <MI 22a94  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22a98 0x21dfe>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 22a9c-22a9e StackAdj>                       Δ+4                {[-4-]}
            <MI 22a9e  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 22aa0  BNE     0x22ad0>                                         {}
        <POP 22aa2-22ad0 Naked>                              Σ0         →0x22af6
            <Blob 0x22aa2 [10] 0x2652a>                      Δ-10               {[«10»]}
            <POP 22ab0-22ab2 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x22ab2>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x22ab2 4>                       Δ-4        
                <Const 0x22ab6 0x1.2>                        Δ-2        
                <Const 0x22aba 0xa.2>                        Δ-2        
                <Call 0x22abe 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22ac4-22ac6 StackAdj>                   Δ+8        
            <Call 0x22ac6 0x22972>                                              {[«10»]|[$$…]}
            <POP 22aca-22ace StackAdj>                       Δ+14               {}
            <MI 22ace  BRA     0x22af6>                                         {}
        <POP 22ad0-22ad4 Naked>                              Σ0 Δ-4     ↓ ←0x22a92
            <MI 22ad0  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 22ad2  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 22ad4-22ad8 Naked>                              Σ-4        ↓ →0x22af4 ←0x22ad8
            <MI 22ad4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22ad6  BGT     0x22af4>                                         {[-4-]}
        <POP 22ad8-22af4 Naked>                              Σ-4        ↓ →0x22ad4
            <POP 22ad8-22ada StackAdj>                       Δ-4                {[-8-]}
            <MI 22ada  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 22ade  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x22ae0 0x2271a>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 22ae4-22ae6 StackAdj>                       Δ+8                {[-8-]}
            <MI 22ae6  MOVEA.L (A7)+,A4>                     Δ+4                {[-4-]}
            <MI 22ae8  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']}
            <Call 0x22aea 0x22972>                                              {[-4-]|[4, 'A4']}
            <POP 22aee-22af0 StackAdj>                       Δ+4                {[-4-]}
            <MI 22af0  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22af2  BVC     0x22ad4>                                         {[-4-]}
        <POP 22af4-22af6 Naked>                              Σ-4 Δ+4    ↓ ←0x22ad4
            <POP 22af4-22af6 StackAdj>                       Δ+4                {}
        <POP 22af6-22afe Epilogue>                           Σ0         ←0x22aa2

0x22afe


@ 22afe
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x020 @>
    <POP 22afe-22b80 Body>                                              
        <POP 22afe-22b14 Prologue>                           Σ0         ↓
        <POP 22b14-22b16 RegCacheLoad>                       Σ0         ↓
        <POP 22b16-22b18 Naked>                              Σ0         ↓
            <MI 22b16  MOVEQ.L #0x01,D7>                                        {}
        <POP 22b18-22b24 Naked>                              Σ0         ↓ →0x22b34 ←0x22b52
            <MI 22b18  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22b1c  MOVE.W  (A0),D0>                                         {}
            <MI 22b1e  EXTW.L  D0>                                              {}
            <MI 22b20  CMP.L   D0,D7>                                           {}
            <MI 22b22  BLE     0x22b34>                                         {}
        <POP 22b24-22b34 Naked>                              Σ0         →0x22b52
            <MI 22b24  MOVE.L  D7,D0>                                           {}
            <MI 22b26  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22b28 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 22b2e  CLR.B   (A6+D0.L-#0x20)>                                 {}
            <MI 22b32  BRA     0x22b52>                                         {}
        <POP 22b34-22b52 Naked>                              Σ0         ↓ ←0x22b18
            <MI 22b34  MOVE.L  D7,D0>                                           {}
            <MI 22b36  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22b38 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 22b3e  MOVE.L  D7,D1>                                           {}
            <MI 22b40  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x22b42 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {}
            <MI 22b4c  MOVE.B  (A0+D1.L+#0x2),(A6+D0.L-#0x20)>                  {}
        <POP 22b52-22b5c Naked>                              Σ0         ↓ →0x22b18 ←0x22b24
            <MI 22b52  ADDQ.L  #0x1,D7>                                         {}
            <MI 22b54  CMPI.L  #0x0000001e,D7>                                  {}
            <MI 22b5a  BLE     0x22b18>                                         {}
        <POP 22b5c-22b78 Naked>                              Σ0         ↓
            <Pointer.fp 0x22b5c <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22b60 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22b66-22b68 StackAdj>                       Δ+4                {}
            <MI 22b68  LEA.L   (A6+0xc),A0>                                     {}
            <MI 22b6c  LEA.L   (A6-0x20),A1>                                    {}
            <BlockMove 30,A1,A0>                                                {}
        <POP 22b78-22b80 Epilogue>                           Σ0         

0x22b80


@ 22b80
        <LVAR  0x026 4(w)>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
    <POP 22b80-22bd4 Body>                                              
        <POP 22b80-22b96 Prologue>                           Σ0         ↓
        <POP 22b96-22b9a RegCacheLoad>                       Σ0         ↓
        <POP 22b9a-22ba2 Naked>                              Σ0         ↓
            <MI 22b9a  MOVEQ.L #0x00,D7>                                        {}
            <MI 22b9c  MOVE.L  0x26542,(A6-0x6)>                                {}
        <POP 22ba2-22baa Naked>                              Σ0         ↓ →0x22bc8 ←0x22bc6
            <MI 22ba2  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22ba4  CMPA.W  #0x1,A0>                                         {}
            <MI 22ba8  BEQ     0x22bc8>                                         {}
        <POP 22baa-22bae Naked>                              Σ0         ↓ →0x22bc8
            <MI 22baa  TST.B   D7>                                              {}
            <MI 22bac  BNE     0x22bc8>                                         {}
        <POP 22bae-22bb6 Naked>                              Σ0         ↓
            <MI 22bae  MOVEA.L A0,A1>                                           {}
            <MI 22bb0  LEA.L   (A6+0x8),A2>                                     {}
            <MI 22bb4  MOVEQ.L #0x1d,D0>                                        {}
        <POP 22bb6-22bbc Naked>                              Σ0         ↓ →0x22bb6 ←0x22bb6
            <MI 22bb6  CMPM.B  (A1)+,(A2)+>                                     {}
            <MI 22bb8  DBNE    D0,0x22bb6>                                      {}
        <POP 22bbc-22bbe Naked>                              Σ0         ↓ →0x22bc2
            <MI 22bbc  BNE     0x22bc2>                                         {}
        <POP 22bbe-22bc2 Naked>                              Σ0         →0x22bc6
            <MI 22bbe  MOVEQ.L #0x01,D7>                                        {}
            <MI 22bc0  BRA     0x22bc6>                                         {}
        <POP 22bc2-22bc6 Naked>                              Σ0         ↓ ←0x22bbc
            <MI 22bc2  MOVE.L  (A0+0x26),(A6-0x6)>                              {}
        <POP 22bc6-22bc8 Naked>                              Σ0         →0x22ba2 ←0x22bbe
            <MI 22bc6  BRA     0x22ba2>                                         {}
        <POP 22bc8-22bcc Naked>                              Σ0         ↓ ←0x22ba2 ←0x22baa
            <MI 22bc8  MOVE.L  A0,(A6+0x26)>                                    {}
        <POP 22bcc-22bd4 Epilogue>                           Σ0         

0x22bd4


@ 22bd4
        <LVAR  0x008 @ 4(r)>
    <POP 22bd4-22c5a Body>                                              
        <POP 22bd4-22bea Prologue>                           Σ0         ↓
        <POP 22bea-22bf6 RegCacheLoad>                       Σ0         ↓
        <POP 22bf6-22bfc Naked>                              Σ0         ↓ →0x22c52
            <MI 22bf6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22bf8  CMPA.W  #0x01,A0>                                        {}
            <MI 22bfa  BEQ     0x22c52>                                         {}
        <POP 22bfc-22c02 Naked>                              Σ0         ↓ →0x22c12
            <MI 22bfc  TST.L   (A0+0x1e)>                                       {}
            <MI 22c00  BEQ     0x22c12>                                         {}
        <POP 22c02-22c12 Naked>                              Σ0         ↓
            <MI 22c02  MOVE.L  (A0+0x22),-(A7)>              Δ-4                {[4, '(A0+0x22)']}
            <MI 22c06  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
            <Call 0x22c0a 0x102a4>                                              {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
                Free1(a : Pointer; b : Long)
            <POP 22c10-22c12 StackAdj>                       Δ+8                {}
        <POP 22c12-22c18 Naked>                              Σ0         ↓ ←0x22bfc
            <MI 22c12  MOVEQ.L #0x00,D7>                                        {}
            <MI 22c14  MOVEA.W #0x01,A4>                                        {}
            <MI 22c16  MOVEA.L 0x26542,A3>                                      {}
        <POP 22c18-22c1c Naked>                              Σ0         ↓ →0x22c30 ←0x22c2e
            <MI 22c18  CMPA.W  #0x01,A3>                                        {}
            <MI 22c1a  BEQ     0x22c30>                                         {}
        <POP 22c1c-22c20 Naked>                              Σ0         ↓ →0x22c30
            <MI 22c1c  TST.B   D7>                                              {}
            <MI 22c1e  BNE     0x22c30>                                         {}
        <POP 22c20-22c24 Naked>                              Σ0         ↓ →0x22c28
            <MI 22c20  CMPA.L  (A6+0x8),A3>                                     {}
            <MI 22c22  BNE     0x22c28>                                         {}
        <POP 22c24-22c28 Naked>                              Σ0         →0x22c2e
            <MI 22c24  MOVEQ.L #0x01,D7>                                        {}
            <MI 22c26  BRA     0x22c2e>                                         {}
        <POP 22c28-22c2e Naked>                              Σ0         ↓ ←0x22c20
            <MI 22c28  MOVEA.L A3,A4>                                           {}
            <MI 22c2a  MOVEA.L (A3+0x26),A3>                                    {}
        <POP 22c2e-22c30 Naked>                              Σ0         →0x22c18 ←0x22c24
            <MI 22c2e  BRA     0x22c18>                                         {}
        <POP 22c30-22c34 Naked>                              Σ0         ↓ →0x22c52 ←0x22c18 ←0x22c1c
            <MI 22c30  TST.B   D7>                                              {}
            <MI 22c32  BEQ     0x22c52>                                         {}
        <POP 22c34-22c38 Naked>                              Σ0         ↓ →0x22c3e
            <MI 22c34  CMPA.W  #0x01,A4>                                        {}
            <MI 22c36  BNE     0x22c3e>                                         {}
        <POP 22c38-22c3e Naked>                              Σ0         →0x22c44
            <MI 22c38  MOVE.L  (A3+0x26),0x26542>                               {}
            <MI 22c3c  BRA     0x22c44>                                         {}
        <POP 22c3e-22c44 Naked>                              Σ0         ↓ ←0x22c34
            <MI 22c3e  MOVE.L  (A3+0x26),(A4+0x26)>                             {}
        <POP 22c44-22c52 Naked>                              Σ0         ↓ ←0x22c38
            <Pointer.fp 0x22c44 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Const 0x22c46 0x2a.4>                           Δ-4                {[@@8]|[##42]}
            <Call 0x22c4a 0x102a8>                                              {[@@8]|[##42]}
                Free2(a : Pointer; b : Long)
            <POP 22c50-22c52 StackAdj>                       Δ+8                {}
        <POP 22c52-22c5a Epilogue>                           Σ0         ←0x22bf6 ←0x22c30

0x22c5a


@ 22c5a
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x024 @>
    <POP 22c5a-22d18 Body>                                              
        <POP 22c5a-22c70 Prologue>                           Σ0         ↓
        <POP 22c70-22c7a RegCacheLoad>                       Σ0         ↓
        <POP 22c7a-22c98 Naked>                              Σ0         ↓ →0x22c9a
            <POP 22c7a-22c7c StackAdj>                       Δ-30               {[-30-]}
            <MI 22c7c  MOVEA.L (A6+0xc),A0>                                     {[-30-]}
            <MI 22c80  MOVE.L  (A0),-(A7)>                   Δ-4                {[-30-]|[4, '(A0)']}
            <Call 0x22c82 0x22afe>                                              {[-30-]|[4, '(A0)']}
            <POP 22c86-22c88 StackAdj>                       Δ+4                {[-30-]}
            <MI 22c88  LEA.L   (A6-0x24),A0>                                    {[-30-]}
            <POP 22c8c-22c94 StackPop>                       Δ+30               {[-30-]}
                <BlockMove 30,A7,A0>                         Δ+30       
            <MI 22c94  TST.L   (A6+0x8)>                                        {[-30-]}
            <MI 22c96  BGE     0x22c9a>                                         {[-30-]}
        <POP 22c98-22c9a Naked>                              Σ0         ↓
            <MI 22c98  CLR.L   (A6+0x8)>                                        {}
        <POP 22c9a-22cb6 Naked>                              Σ0         ↓ →0x22cc8 ←0x22c7a
            <POP 22c9a-22c9c StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x22c9c [30] (A6-0x6)>                     Δ-30               {[-4-]|[«30»]}
            <Call 0x22ca6 0x22b80>                                              {[-4-]|[«30»]}
            <POP 22caa-22cac StackAdj>                       Δ+30               {[-4-]}
            <MI 22cac  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 22cae  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22cb0  CMPA.W  #0x1,A0>                                         {}
            <MI 22cb4  BEQ     0x22cc8>                                         {}
        <POP 22cb6-22cbe Naked>                              Σ0         ↓ →0x22cc0
            <MI 22cb6  MOVE.L  (A0+0x1e),D0>                                    {}
            <MI 22cba  CMP.L   (A6+0x8),D0>                                     {}
            <MI 22cbc  BNE     0x22cc0>                                         {}
        <POP 22cbe-22cc0 Naked>                              Σ0         →0x22d0c
            <MI 22cbe  BRA     0x22d0c>                                         {}
        <POP 22cc0-22cc8 Naked>                              Σ0         ↓ ←0x22cb6
            <MI 22cc0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x22cc2 0x22bd4>                                              {[4, '(A6-0x6)']}
            <POP 22cc6-22cc8 StackAdj>                       Δ+4                {}
        <POP 22cc8-22cfc Naked>                              Σ0         ↓ →0x22d0c ←0x22c9a
            <Pointer.fp 0x22cc8 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Const 0x22cca 0x2a.4>                           Δ-4                {[@@-6]|[##42]}
            <Call 0x22cce 0x1029c>                                              {[@@-6]|[##42]}
                Malloc1(length : Long) : Pointer
            <POP 22cd4-22cd6 StackAdj>                       Δ+8                {}
            <MI 22cd6  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22cd8  MOVE.L  0x26542,(A0+0x26)>                               {}
            <MI 22ce0  MOVE.L  (A6-0x6),0x26542>                                {}
            <MI 22ce6  MOVEA.L A0,A1>                                           {}
            <MI 22ce8  LEA.L   (A6-0x24),A2>                                    {}
            <BlockMove 30,A2,A1>                                                {}
            <MI 22cf4  MOVE.L  (A6+0x8),(A0+0x1e)>                              {}
            <MI 22cf8  TST.L   (A6+0x8)>                                        {}
            <MI 22cfa  BEQ     0x22d0c>                                         {}
        <POP 22cfc-22d0c Naked>                              Σ0         ↓
            <POP 22cfc-22cfe StackAdj>                       Δ-4                {[-4-]}
            <MI 22cfe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22d00 0x102a0>                                              {[-4-]|[4, '(A6+0x8)']}
                Malloc2(VAR dst : Pointer; length : Word)
            <POP 22d06-22d08 StackAdj>                       Δ+4                {[-4-]}
            <MI 22d08  MOVE.L  (A7)+,(A0+0x22)>              Δ+4                {}
        <POP 22d0c-22d10 Naked>                              Σ0         ↓ ←0x22cbe ←0x22cc8
            <MI 22d0c  MOVE.L  (A6-0x6),(A6+0x10)>                              {}
        <POP 22d10-22d18 Epilogue>                           Σ0         

0x22d18


@ 22d18
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 22d18-22da2 Body>                                              
        <POP 22d18-22d2e Prologue>                           Σ0         ↓
        <POP 22d2e-22d32 RegCacheLoad>                       Σ0         ↓
        <POP 22d32-22d50 Naked>                              Σ0         ↓ →0x22d90
            <MI 22d32  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22d34  MOVE.W  (A0),D0>                                         {}
            <MI 22d36  EXTW.L  D0>                                              {}
            <MI 22d38  MOVE.L  D0,D6>                                           {}
            <POP 22d3a-22d3c StackAdj>                       Δ-4                {[-4-]}
            <Pointer.fp 0x22d3c <LVAR  0x00c @>>             Δ-4                {[-4-]|[@@12]}
            <MI 22d40  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[@@12]|[4, 'D6']}
            <Call 0x22d42 0x22c5a>                                              {[-4-]|[@@12]|[4, 'D6']}
            <POP 22d46-22d48 StackAdj>                       Δ+8                {[-4-]}
            <MI 22d48  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 22d4c  TST.L   D6>                                              {}
            <MI 22d4e  BEQ     0x22d90>                                         {}
        <POP 22d50-22d5e Naked>                              Σ0 Δ-8     ↓
            <MI 22d50  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 22d54  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 22d58  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22d5a  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D6']}
            <MI 22d5c  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D6']}
        <POP 22d5e-22d62 Naked>                              Σ-8        ↓ →0x22d8e ←0x22d62
            <MI 22d5e  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 22d60  BGT     0x22d8e>                                         {[-8-]}
        <POP 22d62-22d8e Naked>                              Σ-8        ↓ →0x22d5e
            <MI 22d62  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22d64  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22d66 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 22d70  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 22d74  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 22d76  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 22d78  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x22d7a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 22d84  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L)>                        {[-8-]}
            <MI 22d8a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 22d8c  BVC     0x22d5e>                                         {[-8-]}
        <POP 22d8e-22d90 Naked>                              Σ-8 Δ+8    ↓ ←0x22d5e
            <POP 22d8e-22d90 StackAdj>                       Δ+8                {}
        <POP 22d90-22d9a Naked>                              Σ0         ↓ ←0x22d32
            <Pointer.fp 0x22d90 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22d92 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22d98-22d9a StackAdj>                       Δ+4                {}
        <POP 22d9a-22da2 Epilogue>                           Σ0         

0x22da2


@ 22da2
        <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 22da2-22f0e Body>                                              
        <POP 22da2-22db8 Prologue>                           Σ0         ↓
        <POP 22db8-22dc6 RegCacheLoad>                       Σ0         ↓
        <POP 22dc6-22dd8 Naked>                              Σ0         ↓ →0x22e06
            <POP 22dc6-22dc8 StackAdj>                       Δ-4                {[-4-]}
            <MI 22dc8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x22dca 0x21dfe>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 22dce-22dd0 StackAdj>                       Δ+4                {[-4-]}
            <MI 22dd0  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 22dd2  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 22dd4  CMP.L   #0x01,D0>                                        {}
            <MI 22dd6  BGE     0x22e06>                                         {}
        <POP 22dd8-22e06 Naked>                              Σ0         ↓
            <Blob 0x22dd8 [26] @>                            Δ-26               {[«26""»]}
            <POP 22dea-22dec StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x22dec 25>                                                    {[«26""»]|[$$Too few arguments for SET]}
            <Call 0x22dfe 0x219f2>                                              {[«26""»]|[$$Too few arguments for SET]}
            <POP 22e02-22e06 StackAdj>                       Δ+30               {}
        <POP 22e06-22e0c Naked>                              Σ0 Δ-4     ↓ ←0x22dc6
            <MI 22e06  CLR.L   (A6-0xc)>                                        {}
            <MI 22e08  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22e0a  MOVEQ.L #0x02,D6>                                        {[4, 'D0']}
        <POP 22e0c-22e10 Naked>                              Σ-4        ↓ →0x22e2e ←0x22e10
            <MI 22e0c  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 22e0e  BGT     0x22e2e>                                         {[-4-]}
        <POP 22e10-22e2e Naked>                              Σ-4        ↓ →0x22e0c
            <POP 22e10-22e14 StackAdj>                       Δ-12               {[-16-]}
            <MI 22e14  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 22e16  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x22e18 0x2263c>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 22e1c-22e1e StackAdj>                       Δ+8                {[-16-]}
            <Call 0x22e1e 0x22604>                                              {[-16-]}
            <POP 22e22-22e24 StackAdj>                       Δ+8                {[-8-]}
            <MI 22e24  MOVE.L  (A6-0xc),D0>                                     {[-8-]}
            <MI 22e26  ADD.L   (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 22e28  MOVE.L  D0,(A6-0xc)>                                     {[-4-]}
            <MI 22e2a  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 22e2c  BVC     0x22e0c>                                         {[-4-]}
        <POP 22e2e-22e5e Naked>                              Σ-4 Δ+4    ↓ →0x22f06 ←0x22e0c
            <POP 22e2e-22e30 StackAdj>                       Δ+4                {}
            <MI 22e30  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 22e32  SUBQ.L  #0x2,D0>                                         {}
            <MI 22e34  ADD.L   D0,(A6-0xc)>                                     {}
            <POP 22e36-22e38 StackAdj>                       Δ-4                {[-4-]}
            <MI 22e38  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x22e3a 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x22e3e 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 22e42-22e44 StackAdj>                       Δ+8                {[-4-]}
            <MI 22e44  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <Pointer.fp 0x22e48 <LVAR -0x004 @ 4(w)>>        Δ-4                {[-4-]|[@@-4]}
            <MI 22e4c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <Call 0x22e4e 0x22c5a>                                              {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <POP 22e52-22e54 StackAdj>                       Δ+8                {[-4-]}
            <MI 22e54  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 22e58  TST.L   (A6-0xc)>                                        {}
            <MI 22e5a  BLE     0x22f06>                                         {}
        <POP 22e5e-22e6e Naked>                              Σ0 Δ-8     ↓
            <MI 22e5e  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 22e62  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 22e66  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22e68  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 22e6a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x10)']}
            <MI 22e6c  MOVEQ.L #0x02,D6>                                        {[4, 'A0']|[4, '(A6-0x10)']}
        <POP 22e6e-22e74 Naked>                              Σ-8        ↓ →0x22f04 ←0x22efe
            <MI 22e6e  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 22e70  BGT     0x22f04>                                         {[-8-]}
        <POP 22e74-22e94 Naked>                              Σ-8 Δ-4    ↓ →0x22ea8
            <POP 22e74-22e76 StackAdj>                       Δ-8                {[-16-]}
            <MI 22e76  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 22e78  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x22e7a 0x2263c>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 22e7e-22e80 StackAdj>                       Δ+8                {[-16-]}
            <MI 22e80  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[-12-]}
            <MI 22e84  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-8-]}
            <MI 22e88  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x1c)']}
            <MI 22e8c  MOVE.L  (A6-0x20),D5>                                    {[-8-]|[4, '(A6-0x1c)']}
            <MI 22e90  CMP.L   (A7),D5>                                         {[-8-]|[4, '(A6-0x1c)']}
            <MI 22e92  BGT     0x22ea8>                                         {[-8-]|[4, '(A6-0x1c)']}
        <POP 22e94-22ea8 Naked>                              Σ-12       ↓
            <MI 22e94  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x22e96 LimitCheck -0x7fffffff ≤ D5>                           {[-12-]}
                <MI 22e96  CMPI.L  #0x80000001,D5>                      
                <MI 22e9c  BLT     0x22ea6>                             
            <POP 0x22e9e LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 22e9e  CMPI.L  #0x7fffffff,D0>                      
                <MI 22ea4  BLE     0x22ea8>                             
                <MI 22ea6  TRAP    #15>                                 
        <POP 22ea8-22eac Naked>                              Σ-12       ↓ →0x22ede ←0x22e74 ←0x22eac
            <MI 22ea8  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 22eaa  BGT     0x22ede>                                         {[-12-]}
        <POP 22eac-22ede Naked>                              Σ-12       ↓ →0x22ea8
            <MI 22eac  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 22eae  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x22eb0 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-12-]}
            <MI 22eba  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 22ebe  MOVE.L  D5,D1>                                           {[-12-]}
            <MI 22ec0  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x22ec2 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 22ecc  LEA.L   0x25510,A1>                                      {[-12-]}
            <MI 22ed2  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L)>                        {[-12-]}
            <MI 22ed8  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 22eda  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 22edc  BVC     0x22ea8>                                         {[-12-]}
        <POP 22ede-22ee4 Naked>                              Σ-12 Δ+4   ↓ →0x22efe ←0x22ea8
            <POP 22ede-22ee0 StackAdj>                       Δ+4                {[-8-]}
            <MI 22ee0  CMP.L   (A6-0x10),D6>                                    {[-8-]}
            <MI 22ee2  BEQ     0x22efe>                                         {[-8-]}
        <POP 22ee4-22efe Naked>                              Σ-8        ↓
            <MI 22ee4  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22ee6  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22ee8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 22ef2  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 22ef6  MOVE.B  #0x2c,(A0+D0.L)>                                 {[-8-]}
            <MI 22efc  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 22efe-22f04 Naked>                              Σ-8        ↓ →0x22e6e ←0x22ede
            <MI 22efe  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 22f00  BVC     0x22e6e>                                         {[-8-]}
        <POP 22f04-22f06 Naked>                              Σ-8 Δ+8    ↓ ←0x22e6e
            <POP 22f04-22f06 StackAdj>                       Δ+8                {}
        <POP 22f06-22f0e Epilogue>                           Σ0         ←0x22e2e

0x22f0e


@ 22f0e
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
    <POP 22f0e-22ffc Body>                                              
        <POP 22f0e-22f24 Prologue>                           Σ0         ↓
        <POP 22f24-22f2c RegCacheLoad>                       Σ0         ↓
        <POP 22f2c-22f5e Naked>                              Σ0         ↓ →0x22fa0
            <POP 22f2c-22f2e StackAdj>                       Δ-4                {[-4-]}
            <MI 22f2e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x22f32 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x22f36 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 22f3a-22f3c StackAdj>                       Δ+8                {[-4-]}
            <MI 22f3c  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 22f3e-22f42 StackAdj>                       Δ-34               {[-34-]}
            <MI 22f42  MOVE.L  A4,-(A7)>                     Δ-4                {[-34-]|[4, 'A4']}
            <Call 0x22f44 0x22afe>                                              {[-34-]|[4, 'A4']}
            <POP 22f48-22f4a StackAdj>                       Δ+4                {[-34-]}
            <Call 0x22f4a 0x22b80>                                              {[-34-]}
            <POP 22f4e-22f52 StackAdj>                       Δ+30               {[-4-]}
            <MI 22f52  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 22f56  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 22f5a  CMPA.W  #0x01,A0>                                        {}
            <MI 22f5c  BNE     0x22fa0>                                         {}
        <POP 22f5e-22fa0 Naked>                              Σ0         ↓
            <Blob 0x22f5e [20] @>                            Δ-20               {[«20""»]}
            <POP 22f70-22f72 StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x22f72 19>                                                    {[«20""»]|[-4-]|[$$Unknown variable :_]}
            <MI 22f82  MOVE.L  (A6+0x8),(A7)>                                   {[«20""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 22f7c-22f82 StackAdj>                       Δ-8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Const 0x22f86 0x1.4>                            Δ-4                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <Call 0x22f8a 0x2271a>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <POP 22f8e-22f90 StackAdj>                       Δ+8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Call 0x22f90 0x102d0>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22f96-22f98 StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <Call 0x22f98 0x219f2>                                              {[«20""»]|[-4-]}
            <POP 22f9c-22fa0 StackAdj>                       Δ+24               {}
        <POP 22fa0-22fb6 Naked>                              Σ0 Δ-8     ↓ ←0x22f2c
            <MI 22fa0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x22fa2 [4] 0x26518>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 22fa4  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <MI 22fa8  NEG.L   (A7)>                                            {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <Call 0x22faa 0x21f46>                                              {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <POP 22fae-22fb0 StackAdj>                       Δ+4                {[4, 'A0']|[«4»]}
            <MI 22fb0  MOVE.L  (A0+0x1e),(A7)>                                  {[4, 'A0']|[4, '(A0+0x1e)']}
            <MI 22fb4  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, '(A0+0x1e)']}
        <POP 22fb6-22fba Naked>                              Σ-8        ↓ →0x22ff2 ←0x22fba
            <MI 22fb6  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 22fb8  BGT     0x22ff2>                                         {[-8-]}
        <POP 22fba-22ff2 Naked>                              Σ-8        ↓ →0x22fb6
            <MI 22fba  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 22fbc  ADD.L   0x26518,D0>                                      {[-8-]}
            <MI 22fbe  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 22fc0  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x22fc2 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 22fcc  LEA.L   0x25510,A0>                                      {[-8-]}
            <MI 22fd2  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 22fd6  MOVEA.L (A1+0x22),A1>                                    {[-8-]}
            <MI 22fda  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 22fdc  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x22fde LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {[-8-]}
            <MI 22fe8  MOVE.B  (A1+D1.L),(A0+D0.L+#0x8)>                        {[-8-]}
            <MI 22fee  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 22ff0  BVC     0x22fb6>                                         {[-8-]}
        <POP 22ff2-22ff4 Naked>                              Σ-8 Δ+8    ↓ ←0x22fb6
            <POP 22ff2-22ff4 StackAdj>                       Δ+8                {}
        <POP 22ff4-22ffc Epilogue>                           Σ0         

0x22ffc


@ 22ffc
        <LVAR -0x004 4(rw)>
    <POP 22ffc-2305e Body>                                              
        <POP 22ffc-23012 Prologue>                           Σ0         ↓
        <POP 23012-2301a RegCacheLoad>                       Σ0         ↓
        <POP 2301a-23020 Naked>                              Σ0         ↓
            <MI 2301a  MOVE.L  0x26542,(A6-0x4)>                                {}
        <POP 23020-23026 Naked>                              Σ0         ↓ →0x23056 ←0x23026
            <MI 23020  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 23022  CMPA.W  #0x01,A0>                                        {}
            <MI 23024  BEQ     0x23056>                                         {}
        <POP 23026-23056 Naked>                              Σ0         →0x23020
            <POP 23026-23028 StackAdj>                       Δ-30               {[-30-]}
            <MI 23028  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 2302a  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 23034-23036 StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x23036>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x23036 4>                       Δ-4        
                <Const 0x2303a 0x1.2>                        Δ-2        
                <Const 0x2303c 0x1e.2>                       Δ-2        
                <Call 0x2303e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23044-23046 StackAdj>                   Δ+8        
            <Call 0x23046 0x103e0>                                              {[-30-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 2304c-23050 StackAdj>                       Δ+34               {}
            <MI 23050  MOVE.L  (A0+0x26),(A6-0x4)>                              {}
            <MI 23054  BRA     0x23020>                                         {}
        <POP 23056-2305e Epilogue>                           Σ0         ←0x23020

0x2305e


@ 2305e
        <LVAR  0x008 4(r)>
    <POP 2305e-2309a Body>                                              
        <POP 2305e-23070 Prologue>                           Σ0         ↓
        <POP 23070-23096 Naked>                              Σ0         ↓
            <POP 23070-23074 StackAdj>                       Δ-38               {[-38-]}
            <MI 23074  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-38-]|[4, '(A6+0x8)']}
            <Const 0x23078 0x1.4>                            Δ-4                {[-38-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2307c 0x2271a>                                              {[-38-]|[4, '(A6+0x8)']|[##1]}
            <POP 23080-23082 StackAdj>                       Δ+8                {[-38-]}
            <Call 0x23082 0x22afe>                                              {[-38-]}
            <POP 23086-23088 StackAdj>                       Δ+4                {[-34-]}
            <Call 0x23088 0x22b80>                                              {[-34-]}
            <POP 2308c-23090 StackAdj>                       Δ+30               {[-4-]}
            <Call 0x23090 0x22bd4>                                              {[-4-]}
            <POP 23094-23096 StackAdj>                       Δ+4                {}
        <POP 23096-2309a Epilogue>                           Σ0         

0x2309a


@ 2309a
    <POP 2309a-230c8 Body>                                              
        <POP 2309a-230ac Prologue>                           Σ0         ↓
        <POP 230ac-230c4 Naked>                              Σ0         ↓
            <POP 230ac-230ae StackAdj>                       Δ-8                {[-8-]}
            <Call 0x230ae 0x103cc>                                              {[-8-]}
                GetPushLevel() : Long
            <Call 0x230b4 0x102e4>                                              {[-8-]}
                Long2String(a : Long) : String
            <POP 230ba-230bc StackAdj>                       Δ+4                {[-4-]}
            <Call 0x230bc 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 230c2-230c4 StackAdj>                       Δ+4                {}
        <POP 230c4-230c8 Epilogue>                           Σ0         

0x230c8


@ 230c8
        <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 230c8-233f0 Body>                                              
        <POP 230c8-230de Prologue>                           Σ0         ↓
        <POP 230de-230f6 RegCacheLoad>                       Σ0         ↓
        <POP 230f6-23106 Naked>                              Σ0         ↓ →0x2312e
            <POP 230f6-230f8 StackAdj>                       Δ-4                {[-4-]}
            <MI 230f8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x230fa 0x21dfe>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 230fe-23100 StackAdj>                       Δ+4                {[-4-]}
            <MI 23100  MOVE.L  (A7)+,(A6-0x2c)>              Δ+4                {}
            <MI 23104  BNE     0x2312e>                                         {}
        <POP 23106-2312e Naked>                              Σ0         →0x2313e
            <POP 23106-23108 StackAdj>                       Δ-4                {[-4-]}
            <POP 23108-23109 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x23109 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2310c  MOVE.B  0x21617,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 23112  MOVE.B  0x21618,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 23118-2311a StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2311a>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2311a 4>                       Δ-4        
                <Const 0x2311e 0x1.2>                        Δ-2        
                <Const 0x23120 0x3.2>                        Δ-2        
                <Call 0x23124 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23126-23128 StackAdj>                   Δ+8        
            <MI 23128  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[-2-]|[«2""»]}
            <POP 2312a-2312c StackAdj>                       Δ+4                {}
            <MI 2312c  BRA     0x2313e>                                         {}
        <POP 2312e-2313e Naked>                              Σ0         ↓ ←0x230f6
            <POP 2312e-23130 StackAdj>                       Δ-4                {[-4-]}
            <MI 23130  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23132 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23136 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2313a-2313c StackAdj>                       Δ+8                {[-4-]}
            <MI 2313c  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {}
        <POP 2313e-2318e Naked>                              Σ0         ↓ →0x2319c ←0x23106
            <Blob 0x2313e [6] @>                             Δ-6                {[«6""»]}
            <POP 2314e-23150 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <MI 23150  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 23152-23154 StackAdj>                       Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x23154 5>                                                     {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
            <Call 0x23162 0x102d0>                                              {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
                StringCat2(a, b : String) : String
            <POP 23168-2316a StackAdj>                       Δ+8                {[«6""»]|[-4-]}
            <MI 2316a  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«6""»]}
            <POP 2316c-2316e StackAdj>                       Δ+2                {[-4-]}
            <MI 2316e  MOVE.L  (A6-0x3c),(A7)>                                  {[4, '(A6-0x3c)']}
            <MI 23170  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x3c)']|[#0]}
            <Const 0x23172 0x1.2>                            Δ-2                {[4, '(A6-0x3c)']|[#0]|[#1]}
            <Const 0x23174 0x0.4>                            Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x23178 <LVAR -0x038 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
            <Pointer.fp 0x2317c <LVAR -0x036 @ 4(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
            <Call 0x23180 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 23186-23188 StackAdj>                       Δ+20               {}
            <MI 23188  TST.B   (A6-0x38)>                                       {}
            <MI 2318c  BEQ     0x2319c>                                         {}
        <POP 2318e-2319c Naked>                              Σ0         →0x233e8
            <Pointer.fp 0x2318e <LVAR -0x03c @ 4(rw)>>       Δ-4                {[@@-60]}
            <Call 0x23190 0x102bc>                                              {[@@-60]}
                FreeString(VAR a : String)
            <POP 23196-23198 StackAdj>                       Δ+4                {}
            <MI 23198  BRA     0x233e8>                                         {}
        <POP 2319c-231e2 Naked>                              Σ0         ↓ →0x23218 ←0x2313e
            <MI 2319c  MOVEA.L (A6-0x36),A0>                                    {}
            <MI 231a0  MOVE.B  (A0+0x3f),D0>                                    {}
            <MI 231a4  LSL.B   #0x6,D0>                                         {}
            <MI 231a6  LSR.B   #0x7,D0>                                         {}
            <MI 231a8  MOVE.B  D0,(A6-0x32)>                                    {}
            <MI 231ac  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x231ae 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x231b0 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x231b4 <LVAR -0x038 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]}
            <Pointer.fp 0x231b8 <LVAR -0x036 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
            <Call 0x231bc 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 231c2-231c6 StackAdj>                       Δ+16               {}
            <MI 231c6  MOVEA.L (A6-0x3c),A0>                                    {}
            <MI 231c8  MOVE.W  (A0),D1>                                         {}
            <MI 231ca  EXTW.L  D1>                                              {}
            <MI 231cc  SUBQ.L  #0x5,D1>                                         {}
            <POP 0x231ce LimitCheck -0x8000 ≤ D1 ≤ 0x7fff>                      {}
            <MI 231dc  MOVE.W  D1,(A0)>                                         {}
            <MI 231de  TST.B   D0>                                              {}
            <MI 231e0  BNE     0x23218>                                         {}
        <POP 231e2-23218 Naked>                              Σ0         →0x233e8
            <Blob 0x231e2 [18] @>                            Δ-18               {[«18""»]}
            <POP 231ee-231f0 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <MI 231f0  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 231f2-231f4 StackAdj>                       Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x231f4 18>                                                    {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
            <Call 0x23202 0x102d0>                                              {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
                StringCat2(a, b : String) : String
            <POP 23208-2320a StackAdj>                       Δ+8                {[«18""»]|[-4-]}
            <Call 0x2320a 0x103e0>                                              {[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23210-23214 StackAdj>                       Δ+22               {}
            <MI 23214  BRA     0x233e8>                                         {}
        <POP 23218-23232 Naked>                              Σ0 Δ-8     ↓ ←0x2319c
            <Pointer.fp 0x23218 <LVAR -0x030 @ 4(r)>>        Δ-4                {[@@-48]}
            <Call 0x2321c 0x102b8>                                              {[@@-48]}
                NewString(VAR a : String)
            <POP 23222-23224 StackAdj>                       Δ+4                {}
            <MI 23224  MOVEA.L (A6-0x30),A0>                                    {}
            <MI 23228  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2322a  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 2322c  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x2c)']}
            <MI 23230  MOVEQ.L #0x02,D5>                                        {[4, 'A0']|[4, '(A6-0x2c)']}
        <POP 23232-23238 Naked>                              Σ-8        ↓ →0x232ca ←0x232c4
            <MI 23232  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 23234  BGT     0x232ca>                                         {[-8-]}
        <POP 23238-23258 Naked>                              Σ-8 Δ-4    ↓ →0x2326c
            <POP 23238-2323a StackAdj>                       Δ-8                {[-16-]}
            <MI 2323a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 2323c  MOVE.L  D5,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x2323e 0x2263c>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 23242-23244 StackAdj>                       Δ+8                {[-16-]}
            <MI 23244  MOVE.L  (A7)+,(A6-0x28)>              Δ+4                {[-12-]}
            <MI 23248  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-8-]}
            <MI 2324c  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x24)']}
            <MI 23250  MOVE.L  (A6-0x28),D6>                                    {[-8-]|[4, '(A6-0x24)']}
            <MI 23254  CMP.L   (A7),D6>                                         {[-8-]|[4, '(A6-0x24)']}
            <MI 23256  BGT     0x2326c>                                         {[-8-]|[4, '(A6-0x24)']}
        <POP 23258-2326c Naked>                              Σ-12       ↓
            <MI 23258  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x2325a LimitCheck -0x7fffffff ≤ D6>                           {[-12-]}
                <MI 2325a  CMPI.L  #0x80000001,D6>                      
                <MI 23260  BLT     0x2326a>                             
            <POP 0x23262 LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 23262  CMPI.L  #0x7fffffff,D0>                      
                <MI 23268  BLE     0x2326c>                             
                <MI 2326a  TRAP    #15>                                 
        <POP 2326c-23270 Naked>                              Σ-12       ↓ →0x232a2 ←0x23238 ←0x23270
            <MI 2326c  CMP.L   (A7),D6>                                         {[-12-]}
            <MI 2326e  BGT     0x232a2>                                         {[-12-]}
        <POP 23270-232a2 Naked>                              Σ-12       ↓ →0x2326c
            <MI 23270  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 23272  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x23274 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 2327e  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 23282  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 23284  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x23286 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 23290  LEA.L   0x25510,A1>                                      {[-12-]}
            <MI 23296  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L+#0x2)>                   {[-12-]}
            <MI 2329c  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 2329e  ADDQ.L  #0x1,D6>                                         {[-12-]}
            <MI 232a0  BVC     0x2326c>                                         {[-12-]}
        <POP 232a2-232aa Naked>                              Σ-12 Δ+4   ↓ →0x232c4 ←0x2326c
            <POP 232a2-232a4 StackAdj>                       Δ+4                {[-8-]}
            <MI 232a4  CMP.L   (A6-0x2c),D5>                                    {[-8-]}
            <MI 232a8  BEQ     0x232c4>                                         {[-8-]}
        <POP 232aa-232c4 Naked>                              Σ-8        ↓
            <MI 232aa  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 232ac  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x232ae LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 232b8  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 232bc  MOVE.B  #0x2c,(A0+D0.L+#0x2)>                            {[-8-]}
            <MI 232c2  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 232c4-232ca Naked>                              Σ-8        ↓ →0x23232 ←0x232a2
            <MI 232c4  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 232c6  BVC     0x23232>                                         {[-8-]}
        <POP 232ca-2337a Naked>                              Σ-8 Δ+8    ↓ →0x23380 ←0x23232
            <POP 232ca-232cc StackAdj>                       Δ+4                {[-4-]}
            <MI 232cc  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 232ce  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 232d0  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x232d2 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 232e0  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 232e2-232e4 StackAdj>                       Δ+2                {[-2-]}
            <POP 232e4-232e5 StackAdj>                       Δ+2                {}
            <Blob 0x232e5 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x232e8 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x232ec [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 232f0-232f2 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x232f2 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
            <MI 23300  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23304-23306 StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 23306  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x23308 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 2330c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x23310 <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
            <Pointer.fp 0x23314 <LVAR -0x013 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <Call 0x23318 0x24c52>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <POP 2331e-23320 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x23320 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x23324 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 2332a-2332c StackAdj>                       Δ+2                {[-2-]}
            <POP 2332c-2332d StackAdj>                       Δ+2                {}
            <Blob 0x2332d [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x23330 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x23334 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23338-2333a StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2333a 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
            <MI 23348  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2334c-2334e StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 2334e  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x23350 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 23354  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x23358 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
            <Pointer.fp 0x2335c <LVAR -0x012 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <Call 0x23360 0x24c52>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <POP 23366-23368 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x23368 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2336c 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 23372-23374 StackAdj>                       Δ+4                {}
            <MI 23374  TST.B   (A6-0x13)>                                       {}
            <MI 23378  BNE     0x23380>                                         {}
        <POP 2337a-23380 Naked>                              Σ0         ↓ →0x23386
            <MI 2337a  TST.B   (A6-0x12)>                                       {}
            <MI 2337e  BEQ     0x23386>                                         {}
        <POP 23380-23386 Naked>                              Σ0         →0x2338a ←0x232ca
            <MI 23380  CLR.B   (A6-0x4)>                                        {}
            <MI 23384  BRA     0x2338a>                                         {}
        <POP 23386-2338a Naked>                              Σ0         ↓ ←0x2337a
            <MI 23386  MOVE.B  #0x01,(A6-0x4)>                                  {}
        <POP 2338a-233b0 Naked>                              Σ0         ↓ →0x233d0 ←0x23380
            <MI 2338a  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[4, '(A6-0x3c)']}
            <MI 2338c  MOVE.L  (A6-0x30),-(A7)>              Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 23390  MOVE.B  (A6-0x4),D0>                                     {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 23394  EXTB.W  D0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <POP 0x23396 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 2339a  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
            <Pointer.fp 0x2339c <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
            <Call 0x233a0 0x103b0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 233a6-233aa StackAdj>                       Δ+14               {}
            <MI 233aa  TST.B   (A6-0x13)>                                       {}
            <MI 233ae  BEQ     0x233d0>                                         {}
        <POP 233b0-233d0 Naked>                              Σ0         ↓
            <MI 233b0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <POP 233b4-233b6 StackAdj>                       Δ-4                {[4, '(A6-0x10)']|[-4-]}
            <MI 233b6  MOVE.B  (A6-0x14),D0>                                    {[4, '(A6-0x10)']|[-4-]}
            <MI 233ba  EXTB.W  D0>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 0x233bc LimitCheck 0x0 ≤ D0 ≤ 0xe>                             {[4, '(A6-0x10)']|[-4-]}
            <MI 233c0  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
            <Call 0x233c2 0x103c0>                                              {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
                ExpErrMsg(a: Byte) : String
            <POP 233c8-233ca StackAdj>                       Δ+2                {[4, '(A6-0x10)']|[-4-]}
            <Call 0x233ca 0x22d18>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 233ce-233d0 StackAdj>                       Δ+8                {}
        <POP 233d0-233d6 Naked>                              Σ0         ↓ →0x233e8 ←0x2338a
            <MI 233d0  TST.B   (A6-0x12)>                                       {}
            <MI 233d4  BEQ     0x233e8>                                         {}
        <POP 233d6-233e8 Naked>                              Σ0         ↓
            <MI 233d6  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <POP 233da-233dc StackAdj>                       Δ-4                {[4, '(A6-0xc)']|[-4-]}
            <Call 0x233dc 0x103c8>                                              {[4, '(A6-0xc)']|[-4-]}
                FSCALL_103c8
            <Call 0x233e2 0x22d18>                                              {[4, '(A6-0xc)']|[-4-]}
            <POP 233e6-233e8 StackAdj>                       Δ+8                {}
        <POP 233e8-233f0 Epilogue>                           Σ0         ←0x2318e ←0x231e2 ←0x233d0

0x233f0


@ 233f0
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 233f0-23468 Body>                                              
        <POP 233f0-23406 Prologue>                           Σ0         ↓
        <POP 23406-2340e RegCacheLoad>                       Σ0         ↓
        <POP 2340e-23442 Naked>                              Σ0         ↓ →0x23448
            <POP 2340e-23410 StackAdj>                       Δ-4                {[-4-]}
            <MI 23410  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23414 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23418 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2341c-2341e StackAdj>                       Δ+8                {[-4-]}
            <MI 2341e  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 23420  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23424 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23428 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 2342c-2342e StackAdj>                       Δ+8                {[-4-]}
            <MI 2342e  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 23430-23432 StackAdj>                       Δ+2                {[-2-]}
            <MI 23432  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 23434  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x23436 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 2343c-2343e StackAdj>                       Δ+8                {[-2-]}
            <MI 2343e  TST.B   (A7)+>                        Δ+2                {}
            <MI 23440  BEQ     0x23448>                                         {}
        <POP 23442-23448 Naked>                              Σ0         →0x2344c
            <Call 0x23442 0x221da>                                              {}
            <MI 23446  BRA     0x2344c>                                         {}
        <POP 23448-2344c Naked>                              Σ0         ↓ ←0x2340e
            <Call 0x23448 0x22220>                                              {}
        <POP 2344c-23460 Naked>                              Σ0         ↓ ←0x23442
            <Pointer.fp 0x2344c <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x2344e 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 23454-23456 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x23456 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x23458 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 2345e-23460 StackAdj>                       Δ+4                {}
        <POP 23460-23468 Epilogue>                           Σ0         

0x23468


@ 23468
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 23468-234e0 Body>                                              
        <POP 23468-2347e Prologue>                           Σ0         ↓
        <POP 2347e-23486 RegCacheLoad>                       Σ0         ↓
        <POP 23486-234ba Naked>                              Σ0         ↓ →0x234c0
            <POP 23486-23488 StackAdj>                       Δ-4                {[-4-]}
            <MI 23488  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2348c 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23490 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23494-23496 StackAdj>                       Δ+8                {[-4-]}
            <MI 23496  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 23498  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2349c 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x234a0 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 234a4-234a6 StackAdj>                       Δ+8                {[-4-]}
            <MI 234a6  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 234a8-234aa StackAdj>                       Δ+2                {[-2-]}
            <MI 234aa  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 234ac  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x234ae 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 234b4-234b6 StackAdj>                       Δ+8                {[-2-]}
            <MI 234b6  TST.B   (A7)+>                        Δ+2                {}
            <MI 234b8  BNE     0x234c0>                                         {}
        <POP 234ba-234c0 Naked>                              Σ0         →0x234c4
            <Call 0x234ba 0x221da>                                              {}
            <MI 234be  BRA     0x234c4>                                         {}
        <POP 234c0-234c4 Naked>                              Σ0         ↓ ←0x23486
            <Call 0x234c0 0x22220>                                              {}
        <POP 234c4-234d8 Naked>                              Σ0         ↓ ←0x234ba
            <Pointer.fp 0x234c4 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x234c6 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 234cc-234ce StackAdj>                       Δ+4                {}
            <Pointer.fp 0x234ce <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x234d0 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 234d6-234d8 StackAdj>                       Δ+4                {}
        <POP 234d8-234e0 Epilogue>                           Σ0         

0x234e0


@ 234e0
        <LVAR  0x008 4(r)>
    <POP 234e0-2350c Body>                                              
        <POP 234e0-234f2 Prologue>                           Σ0         ↓
        <POP 234f2-23508 Naked>                              Σ0         ↓
            <POP 234f2-234f4 StackAdj>                       Δ-4                {[-4-]}
            <MI 234f4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x234f8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x234fc 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23500-23502 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x23502 0x22512>                                              {[-4-]}
            <POP 23506-23508 StackAdj>                       Δ+4                {}
        <POP 23508-2350c Epilogue>                           Σ0         

0x2350c


@ 2350c
        <LVAR  0x008 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 2350c-2360c Body>                                              
        <POP 2350c-23522 Prologue>                           Σ0         ↓
        <POP 23522-2352c RegCacheLoad>                       Σ0         ↓
        <POP 2352c-2358a Naked>                              Σ0         ↓ →0x235ba
            <POP 2352c-2352e StackAdj>                       Δ-4                {[-4-]}
            <MI 2352e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23530 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23534 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23538-2353a StackAdj>                       Δ+8                {[-4-]}
            <MI 2353a  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <MI 2353c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2353e 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23542 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 23546-23548 StackAdj>                       Δ+8                {[-4-]}
            <MI 23548  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 2354a-2354e StackAdj>                       Δ-12               {[-12-]}
            <MI 2354e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x23550 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23554 0x2274c>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 23558-2355a StackAdj>                       Δ+8                {[-12-]}
            <Call 0x2355a 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23560-23562 StackAdj>                       Δ+8                {[-4-]}
            <MI 23562  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 23564-23566 StackAdj>                       Δ-8                {[-12-]}
            <MI 23566  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x23568 0x4.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x2356c 0x2274c>                                              {[-12-]|[4, '(A6+0x8)']|[##4]}
            <POP 23570-23572 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23572 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23578-2357a StackAdj>                       Δ+8                {[-4-]}
            <MI 2357a  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 2357c  MOVE.L  D6,D0>                                           {}
            <MI 2357e  ADD.L   D5,D0>                                           {}
            <MI 23580  SUBQ.L  #0x1,D0>                                         {}
            <MI 23582  MOVE.W  (A4),D1>                                         {}
            <MI 23584  EXTW.L  D1>                                              {}
            <MI 23586  CMP.L   D1,D0>                                           {}
            <MI 23588  BLE     0x235ba>                                         {}
        <POP 2358a-235ba Naked>                              Σ0         ↓
            <Blob 0x2358a [32] @>                            Δ-32               {[«32""»]}
            <POP 2359c-2359e StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x2359e 31>                                                    {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <Call 0x235b2 0x219f2>                                              {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <POP 235b6-235ba StackAdj>                       Δ+36               {}
        <POP 235ba-235c6 Naked>                              Σ0 Δ-8     ↓ ←0x2352c
            <MI 235ba  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 235bc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 235be  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 235c0  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 235c2  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 235c4  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 235c6-235ca Naked>                              Σ-8        ↓ →0x235f0 ←0x235ca
            <MI 235c6  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 235c8  BGT     0x235f0>                                         {[-8-]}
        <POP 235ca-235f0 Naked>                              Σ-8        ↓ →0x235c6
            <MI 235ca  MOVE.L  D6,D0>                                           {[-8-]}
            <MI 235cc  ADD.L   D7,D0>                                           {[-8-]}
            <MI 235ce  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 235d0  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x235d2 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 235d8  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 235da  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x235dc LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 235e2  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 235e6  MOVE.B  (A0+D1.L+#0x2),(A4+D0.L+#0x2)>                   {[-8-]}
            <MI 235ec  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 235ee  BVC     0x235c6>                                         {[-8-]}
        <POP 235f0-23604 Naked>                              Σ-8 Δ+8    ↓ ←0x235c6
            <POP 235f0-235f2 StackAdj>                       Δ+4                {[-4-]}
            <MI 235f2  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x235f4 0x227bc>                                              {[4, 'A4']}
            <POP 235f8-235fa StackAdj>                       Δ+4                {}
            <Pointer.fp 0x235fa <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x235fc 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 23602-23604 StackAdj>                       Δ+4                {}
        <POP 23604-2360c Epilogue>                           Σ0         

0x2360c


@ 2360c
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 2360c-236f2 Body>                                              
        <POP 2360c-23622 Prologue>                           Σ0         ↓
        <POP 23622-23630 RegCacheLoad>                       Σ0         ↓
        <POP 23630-23688 Naked>                              Σ0         ↓ →0x2368e
            <POP 23630-23632 StackAdj>                       Δ-4                {[-4-]}
            <MI 23632  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23634 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23638 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2363c-2363e StackAdj>                       Δ+8                {[-4-]}
            <MI 2363e  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <Pointer.fp 0x23640 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Call 0x23642 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 23648-2364a StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 2364a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x2364c 0x2.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23650 0x2274c>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 23654-23656 StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x23656 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 2365c-2365e StackAdj>                       Δ+8                {[@@-16]}
            <MI 2365e  MOVE.L  (A7),D5>                                         {[@@-16]}
            <POP 23660-23662 StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 23662  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x23664 0x3.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23668 0x2274c>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <POP 2366c-2366e StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x2366e 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 23674-23676 StackAdj>                       Δ+8                {[@@-16]}
            <MI 23676  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 23678  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 2367a  MOVE.L  D5,D0>                                           {}
            <MI 2367c  ADD.L   D6,D0>                                           {}
            <MI 2367e  SUBQ.L  #0x1,D0>                                         {}
            <MI 23680  MOVE.W  (A0),D1>                                         {}
            <MI 23682  EXTW.L  D1>                                              {}
            <MI 23684  CMP.L   D1,D0>                                           {}
            <MI 23686  BLE     0x2368e>                                         {}
        <POP 23688-2368e Naked>                              Σ0         ↓
            <MI 23688  ADDQ.L  #0x1,D1>                                         {}
            <MI 2368a  SUB.L   D5,D1>                                           {}
            <MI 2368c  MOVE.L  D1,D6>                                           {}
        <POP 2368e-23692 Naked>                              Σ0 Δ-4     ↓ ←0x23630
            <MI 2368e  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 23690  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 23692-23696 Naked>                              Σ-4        ↓ →0x236bc ←0x23696
            <MI 23692  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23694  BGT     0x236bc>                                         {[-4-]}
        <POP 23696-236bc Naked>                              Σ-4        ↓ →0x23692
            <MI 23696  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 23698  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 2369a  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x2369c LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 236a2  MOVEA.L (A6-0x14),A1>                                    {[-4-]}
            <MI 236a4  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 236a6  ADD.L   D5,D1>                                           {[-4-]}
            <MI 236a8  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 236aa  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x236ac LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 236b2  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-4-]}
            <MI 236b8  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 236ba  BVC     0x23692>                                         {[-4-]}
        <POP 236bc-236ea Naked>                              Σ-4 Δ+4    ↓ ←0x23692
            <POP 236bc-236be StackAdj>                       Δ+4                {}
            <MI 236be  MOVEA.L (A6-0x10),A0>                                    {}
            <POP 0x236c0 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff>                      {}
            <MI 236d6  MOVE.W  D6,(A0)>                                         {}
            <MI 236d8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x236da 0x227bc>                                              {[4, '(A6-0x10)']}
            <POP 236de-236e0 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x236e0 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x236e2 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 236e8-236ea StackAdj>                       Δ+4                {}
        <POP 236ea-236f2 Epilogue>                           Σ0         

0x236f2


@ 236f2
        <LVAR  0x008 4(r)>
    <POP 236f2-2371e Body>                                              
        <POP 236f2-23704 Prologue>                           Σ0         ↓
        <POP 23704-2371a Naked>                              Σ0         ↓
            <POP 23704-23706 StackAdj>                       Δ-8                {[-8-]}
            <MI 23706  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x2370a 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2370e 0x2274c>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23712-23714 StackAdj>                       Δ+8                {[-8-]}
            <Call 0x23714 0x22586>                                              {[-8-]}
            <POP 23718-2371a StackAdj>                       Δ+8                {}
        <POP 2371a-2371e Epilogue>                           Σ0         

0x2371e


@ 2371e
        <LVAR  0x008 4(r)>
    <POP 2371e-2376a Body>                                              
        <POP 2371e-23730 Prologue>                           Σ0         ↓
        <POP 23730-2375c Naked>                              Σ0         ↓ →0x23762
            <POP 23730-23734 StackAdj>                       Δ-10               {[-10-]}
            <MI 23734  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23738 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2373c 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23740  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23744 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23748 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 2374c-2374e StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2374e 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 23754-23758 StackAdj>                       Δ+16               {[-2-]}
            <MI 23758  TST.B   (A7)+>                        Δ+2                {}
            <MI 2375a  BEQ     0x23762>                                         {}
        <POP 2375c-23762 Naked>                              Σ0         →0x23766
            <Call 0x2375c 0x221da>                                              {}
            <MI 23760  BRA     0x23766>                                         {}
        <POP 23762-23766 Naked>                              Σ0         ↓ ←0x23730
            <Call 0x23762 0x22220>                                              {}
        <POP 23766-2376a Epilogue>                           Σ0         ←0x2375c

0x2376a


@ 2376a
        <LVAR  0x008 4(r)>
    <POP 2376a-237b6 Body>                                              
        <POP 2376a-2377c Prologue>                           Σ0         ↓
        <POP 2377c-237a8 Naked>                              Σ0         ↓ →0x237ae
            <POP 2377c-23780 StackAdj>                       Δ-10               {[-10-]}
            <MI 23780  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23784 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23788 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 2378c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23790 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23794 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23798-2379a StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2379a 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 237a0-237a4 StackAdj>                       Δ+16               {[-2-]}
            <MI 237a4  TST.B   (A7)+>                        Δ+2                {}
            <MI 237a6  BNE     0x237ae>                                         {}
        <POP 237a8-237ae Naked>                              Σ0         →0x237b2
            <Call 0x237a8 0x221da>                                              {}
            <MI 237ac  BRA     0x237b2>                                         {}
        <POP 237ae-237b2 Naked>                              Σ0         ↓ ←0x2377c
            <Call 0x237ae 0x22220>                                              {}
        <POP 237b2-237b6 Epilogue>                           Σ0         ←0x237a8

0x237b6


@ 237b6
        <LVAR  0x008 4(r)>
    <POP 237b6-23802 Body>                                              
        <POP 237b6-237c8 Prologue>                           Σ0         ↓
        <POP 237c8-237f4 Naked>                              Σ0         ↓ →0x237fa
            <POP 237c8-237cc StackAdj>                       Δ-10               {[-10-]}
            <MI 237cc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x237d0 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x237d4 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 237d8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x237dc 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x237e0 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 237e4-237e6 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x237e6 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 237ec-237f0 StackAdj>                       Δ+16               {[-2-]}
            <MI 237f0  TST.B   (A7)+>                        Δ+2                {}
            <MI 237f2  BEQ     0x237fa>                                         {}
        <POP 237f4-237fa Naked>                              Σ0         →0x237fe
            <Call 0x237f4 0x221da>                                              {}
            <MI 237f8  BRA     0x237fe>                                         {}
        <POP 237fa-237fe Naked>                              Σ0         ↓ ←0x237c8
            <Call 0x237fa 0x22220>                                              {}
        <POP 237fe-23802 Epilogue>                           Σ0         ←0x237f4

0x23802


@ 23802
        <LVAR  0x008 4(r)>
    <POP 23802-2384e Body>                                              
        <POP 23802-23814 Prologue>                           Σ0         ↓
        <POP 23814-23840 Naked>                              Σ0         ↓ →0x23846
            <POP 23814-23818 StackAdj>                       Δ-10               {[-10-]}
            <MI 23818  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x2381c 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23820 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23824  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23828 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2382c 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23830-23832 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23832 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 23838-2383c StackAdj>                       Δ+16               {[-2-]}
            <MI 2383c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2383e  BEQ     0x23846>                                         {}
        <POP 23840-23846 Naked>                              Σ0         →0x2384a
            <Call 0x23840 0x221da>                                              {}
            <MI 23844  BRA     0x2384a>                                         {}
        <POP 23846-2384a Naked>                              Σ0         ↓ ←0x23814
            <Call 0x23846 0x22220>                                              {}
        <POP 2384a-2384e Epilogue>                           Σ0         ←0x23840

0x2384e


@ 2384e
        <LVAR  0x008 4(r)>
    <POP 2384e-2389a Body>                                              
        <POP 2384e-23860 Prologue>                           Σ0         ↓
        <POP 23860-2388c Naked>                              Σ0         ↓ →0x23892
            <POP 23860-23864 StackAdj>                       Δ-10               {[-10-]}
            <MI 23864  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x23868 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2386c 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 23870  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23874 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23878 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 2387c-2387e StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2387e 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 23884-23888 StackAdj>                       Δ+16               {[-2-]}
            <MI 23888  TST.B   (A7)+>                        Δ+2                {}
            <MI 2388a  BNE     0x23892>                                         {}
        <POP 2388c-23892 Naked>                              Σ0         →0x23896
            <Call 0x2388c 0x221da>                                              {}
            <MI 23890  BRA     0x23896>                                         {}
        <POP 23892-23896 Naked>                              Σ0         ↓ ←0x23860
            <Call 0x23892 0x22220>                                              {}
        <POP 23896-2389a Epilogue>                           Σ0         ←0x2388c

0x2389a


@ 2389a
        <LVAR  0x008 4(r)>
    <POP 2389a-238e6 Body>                                              
        <POP 2389a-238ac Prologue>                           Σ0         ↓
        <POP 238ac-238d8 Naked>                              Σ0         ↓ →0x238de
            <POP 238ac-238b0 StackAdj>                       Δ-10               {[-10-]}
            <MI 238b0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x238b4 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x238b8 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 238bc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x238c0 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x238c4 0x2274c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 238c8-238ca StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x238ca 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 238d0-238d4 StackAdj>                       Δ+16               {[-2-]}
            <MI 238d4  TST.B   (A7)+>                        Δ+2                {}
            <MI 238d6  BNE     0x238de>                                         {}
        <POP 238d8-238de Naked>                              Σ0         →0x238e2
            <Call 0x238d8 0x221da>                                              {}
            <MI 238dc  BRA     0x238e2>                                         {}
        <POP 238de-238e2 Naked>                              Σ0         ↓ ←0x238ac
            <Call 0x238de 0x22220>                                              {}
        <POP 238e2-238e6 Epilogue>                           Σ0         ←0x238d8

0x238e6


@ 238e6
        <LVAR  0x008 4(r)>
    <POP 238e6-23930 Body>                                              
        <POP 238e6-238fc Prologue>                           Σ0         ↓
        <POP 238fc-238fe RegCacheLoad>                       Σ0         ↓
        <POP 238fe-23928 Naked>                              Σ0         ↓
            <POP 238fe-23900 StackAdj>                       Δ-16               {[-16-]}
            <MI 23900  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23904 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23908 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 2390c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23910 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23914 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23918-2391a StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2391a 0x10314>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Add(a, b : Quad) : Quad
            <POP 23920-23922 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23922 0x22844>                                              {[-8-]}
            <POP 23926-23928 StackAdj>                       Δ+8                {}
        <POP 23928-23930 Epilogue>                           Σ0         

0x23930


@ 23930
        <LVAR  0x008 4(r)>
    <POP 23930-2397a Body>                                              
        <POP 23930-23946 Prologue>                           Σ0         ↓
        <POP 23946-23948 RegCacheLoad>                       Σ0         ↓
        <POP 23948-23972 Naked>                              Σ0         ↓
            <POP 23948-2394a StackAdj>                       Δ-16               {[-16-]}
            <MI 2394a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x2394e 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23952 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23956  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x2395a 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2395e 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23962-23964 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23964 0x10318>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Subtract(a, b : Quad) : Quad
            <POP 2396a-2396c StackAdj>                       Δ+16               {[-8-]}
            <Call 0x2396c 0x22844>                                              {[-8-]}
            <POP 23970-23972 StackAdj>                       Δ+8                {}
        <POP 23972-2397a Epilogue>                           Σ0         

0x2397a


@ 2397a
        <LVAR  0x008 4(r)>
    <POP 2397a-239c4 Body>                                              
        <POP 2397a-23990 Prologue>                           Σ0         ↓
        <POP 23990-23992 RegCacheLoad>                       Σ0         ↓
        <POP 23992-239bc Naked>                              Σ0         ↓
            <POP 23992-23994 StackAdj>                       Δ-16               {[-16-]}
            <MI 23994  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23998 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2399c 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 239a0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x239a4 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x239a8 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 239ac-239ae StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x239ae 0x1031c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Multiply(a, b : Quad) : Quad
            <POP 239b4-239b6 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x239b6 0x22844>                                              {[-8-]}
            <POP 239ba-239bc StackAdj>                       Δ+8                {}
        <POP 239bc-239c4 Epilogue>                           Σ0         

0x239c4


@ 239c4
        <LVAR  0x008 4(r)>
    <POP 239c4-23a0e Body>                                              
        <POP 239c4-239da Prologue>                           Σ0         ↓
        <POP 239da-239dc RegCacheLoad>                       Σ0         ↓
        <POP 239dc-23a06 Naked>                              Σ0         ↓
            <POP 239dc-239de StackAdj>                       Δ-16               {[-16-]}
            <MI 239de  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x239e2 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x239e6 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 239ea  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x239ee 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x239f2 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 239f6-239f8 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x239f8 0x10320>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Divide(a, b : Quad) : Quad
            <POP 239fe-23a00 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23a00 0x22844>                                              {[-8-]}
            <POP 23a04-23a06 StackAdj>                       Δ+8                {}
        <POP 23a06-23a0e Epilogue>                           Σ0         

0x23a0e


@ 23a0e
        <LVAR  0x008 4(r)>
    <POP 23a0e-23a58 Body>                                              
        <POP 23a0e-23a24 Prologue>                           Σ0         ↓
        <POP 23a24-23a26 RegCacheLoad>                       Σ0         ↓
        <POP 23a26-23a50 Naked>                              Σ0         ↓
            <POP 23a26-23a28 StackAdj>                       Δ-16               {[-16-]}
            <MI 23a28  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23a2c 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a30 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23a34  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23a38 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23a3c 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23a40-23a42 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a42 0x10358>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Modulus(a, b : Quad) : Quad
            <POP 23a48-23a4a StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23a4a 0x22844>                                              {[-8-]}
            <POP 23a4e-23a50 StackAdj>                       Δ+8                {}
        <POP 23a50-23a58 Epilogue>                           Σ0         

0x23a58


@ 23a58
        <LVAR  0x008 4(r)>
    <POP 23a58-23aa2 Body>                                              
        <POP 23a58-23a6e Prologue>                           Σ0         ↓
        <POP 23a6e-23a70 RegCacheLoad>                       Σ0         ↓
        <POP 23a70-23a9a Naked>                              Σ0         ↓
            <POP 23a70-23a72 StackAdj>                       Δ-16               {[-16-]}
            <MI 23a72  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23a76 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a7a 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23a7e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23a82 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23a86 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23a8a-23a8c StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23a8c 0x10334>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitOr(a, b : Quad) : Quad
            <POP 23a92-23a94 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23a94 0x22844>                                              {[-8-]}
            <POP 23a98-23a9a StackAdj>                       Δ+8                {}
        <POP 23a9a-23aa2 Epilogue>                           Σ0         

0x23aa2


@ 23aa2
        <LVAR  0x008 4(r)>
    <POP 23aa2-23aec Body>                                              
        <POP 23aa2-23ab8 Prologue>                           Σ0         ↓
        <POP 23ab8-23aba RegCacheLoad>                       Σ0         ↓
        <POP 23aba-23ae4 Naked>                              Σ0         ↓
            <POP 23aba-23abc StackAdj>                       Δ-16               {[-16-]}
            <MI 23abc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23ac0 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ac4 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23ac8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23acc 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23ad0 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23ad4-23ad6 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ad6 0x10330>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitAnd(a, b : Quad) : Quad
            <POP 23adc-23ade StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23ade 0x22844>                                              {[-8-]}
            <POP 23ae2-23ae4 StackAdj>                       Δ+8                {}
        <POP 23ae4-23aec Epilogue>                           Σ0         

0x23aec


@ 23aec
        <LVAR  0x008 4(r)>
    <POP 23aec-23b36 Body>                                              
        <POP 23aec-23b02 Prologue>                           Σ0         ↓
        <POP 23b02-23b04 RegCacheLoad>                       Σ0         ↓
        <POP 23b04-23b2e Naked>                              Σ0         ↓
            <POP 23b04-23b06 StackAdj>                       Δ-16               {[-16-]}
            <MI 23b06  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23b0a 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b0e 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23b12  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x23b16 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23b1a 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 23b1e-23b20 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b20 0x10340>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitXor(a, b : Quad) : Quad
            <POP 23b26-23b28 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23b28 0x22844>                                              {[-8-]}
            <POP 23b2c-23b2e StackAdj>                       Δ+8                {}
        <POP 23b2e-23b36 Epilogue>                           Σ0         

0x23b36


@ 23b36
        <LVAR  0x008 4(r)>
    <POP 23b36-23b7a Body>                                              
        <POP 23b36-23b48 Prologue>                           Σ0         ↓
        <POP 23b48-23b76 Naked>                              Σ0         ↓
            <POP 23b48-23b4c StackAdj>                       Δ-16               {[-16-]}
            <MI 23b4c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23b50 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b54 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23b58  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x23b5c 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x23b60 0x22788>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 23b64-23b66 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <Call 0x23b66 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 23b6c-23b70 StackAdj>                       Δ+12               {[-8-]}
            <Call 0x23b70 0x22844>                                              {[-8-]}
            <POP 23b74-23b76 StackAdj>                       Δ+8                {}
        <POP 23b76-23b7a Epilogue>                           Σ0         

0x23b7a


@ 23b7a
        <LVAR  0x008 4(r)>
    <POP 23b7a-23bc0 Body>                                              
        <POP 23b7a-23b8c Prologue>                           Σ0         ↓
        <POP 23b8c-23bbc Naked>                              Σ0         ↓
            <POP 23b8c-23b90 StackAdj>                       Δ-16               {[-16-]}
            <MI 23b90  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23b94 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23b98 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 23b9c  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x23ba0 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x23ba4 0x22788>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 23ba8-23baa StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <MI 23baa  NEG.L   (A7)>                                            {[-16-]|[4, '(A6+0x8)']}
            <Call 0x23bac 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 23bb2-23bb6 StackAdj>                       Δ+12               {[-8-]}
            <Call 0x23bb6 0x22844>                                              {[-8-]}
            <POP 23bba-23bbc StackAdj>                       Δ+8                {}
        <POP 23bbc-23bc0 Epilogue>                           Σ0         

0x23bc0


@ 23bc0
        <LVAR  0x008 4(r)>
    <POP 23bc0-23bf6 Body>                                              
        <POP 23bc0-23bd2 Prologue>                           Σ0         ↓
        <POP 23bd2-23bf2 Naked>                              Σ0         ↓
            <POP 23bd2-23bd6 StackAdj>                       Δ-16               {[-16-]}
            <MI 23bd6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x23bda 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23bde 0x2274c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <POP 23be2-23be4 StackAdj>                       Δ+8                {[-16-]}
            <Call 0x23be4 0x10338>                                              {[-16-]}
                BitNot(a : Quad) : Quad
            <POP 23bea-23bec StackAdj>                       Δ+8                {[-8-]}
            <Call 0x23bec 0x22844>                                              {[-8-]}
            <POP 23bf0-23bf2 StackAdj>                       Δ+8                {}
        <POP 23bf2-23bf6 Epilogue>                           Σ0         

0x23bf6


@ 23bf6
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
    <POP 23bf6-23c86 Body>                                              
        <POP 23bf6-23c0c Prologue>                           Σ0         ↓
        <POP 23c0c-23c10 RegCacheLoad>                       Σ0         ↓
        <POP 23c10-23c7e Naked>                              Σ0         ↓
            <POP 23c10-23c12 StackAdj>                       Δ-8                {[-8-]}
            <MI 23c12  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23c14 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23c18 0x2274c>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23c1c-23c1e StackAdj>                       Δ+8                {[-8-]}
            <MI 23c1e  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[-4-]}
            <MI 23c22  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <POP 23c26-23c28 StackAdj>                       Δ-4                {[-8-]}
            <MI 23c28  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23c2a 0x2.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23c2e 0x2274c>                                              {[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 23c32-23c34 StackAdj>                       Δ+8                {[-8-]}
            <MI 23c34  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23c38  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 23c3c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23c3e 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23c42 0x22788>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 23c46-23c48 StackAdj>                       Δ+8                {[-4-]}
            <MI 23c48  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 23c4a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23c4c 0x4.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x23c50 0x22788>                                              {[-4-]|[4, '(A6+0x8)']|[##4]}
            <POP 23c54-23c56 StackAdj>                       Δ+8                {[-4-]}
            <MI 23c56  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 23c58-23c5a StackAdj>                       Δ-4                {[-8-]}
            <MI 23c5a  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']}
            <MI 23c5e  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <MI 23c62  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
            <MI 23c66  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 23c6a  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 23c6c  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x23c6e 0x10348>                                              {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                ?BitField_something_()
            <POP 23c74-23c78 StackAdj>                       Δ+24               {[-8-]}
            <Call 0x23c78 0x22844>                                              {[-8-]}
            <POP 23c7c-23c7e StackAdj>                       Δ+8                {}
        <POP 23c7e-23c86 Epilogue>                           Σ0         

0x23c86


@ 23c86
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 23c86-23cf8 Body>                                              
        <POP 23c86-23c9c Prologue>                           Σ0         ↓
        <POP 23c9c-23ca0 RegCacheLoad>                       Σ0         ↓
        <POP 23ca0-23cf0 Naked>                              Σ0         ↓
            <POP 23ca0-23ca2 StackAdj>                       Δ-8                {[-8-]}
            <MI 23ca2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23ca4 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23ca8 0x2274c>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23cac-23cae StackAdj>                       Δ+8                {[-8-]}
            <MI 23cae  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23cb2  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 23cb6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23cb8 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23cbc 0x22788>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 23cc0-23cc2 StackAdj>                       Δ+8                {[-4-]}
            <MI 23cc2  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 23cc4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23cc6 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23cca 0x22788>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 23cce-23cd0 StackAdj>                       Δ+8                {[-4-]}
            <MI 23cd0  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 23cd2-23cd4 StackAdj>                       Δ-4                {[-8-]}
            <MI 23cd4  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 23cd8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 23cdc  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 23cde  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x23ce0 0x1034c>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                FSCALL_1034c
            <POP 23ce6-23cea StackAdj>                       Δ+16               {[-8-]}
            <Call 0x23cea 0x22844>                                              {[-8-]}
            <POP 23cee-23cf0 StackAdj>                       Δ+8                {}
        <POP 23cf0-23cf8 Epilogue>                           Σ0         

0x23cf8


@ 23cf8
        <LVAR  0x008 4(r)>
    <POP 23cf8-23d6a Body>                                              
        <POP 23cf8-23d0e Prologue>                           Σ0         ↓
        <POP 23d0e-23d1c Naked>                              Σ0 Δ-4     ↓
            <POP 23d0e-23d10 StackAdj>                       Δ-4                {[-4-]}
            <MI 23d10  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23d14 0x21dfe>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 23d18-23d1a StackAdj>                       Δ+4                {[-4-]}
            <MI 23d1a  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 23d1c-23d20 Naked>                              Σ-4        ↓ →0x23d46 ←0x23d20
            <MI 23d1c  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23d1e  BGT     0x23d46>                                         {[-4-]}
        <POP 23d20-23d46 Naked>                              Σ-4        ↓ →0x23d1c
            <POP 23d20-23d22 StackAdj>                       Δ-4                {[-8-]}
            <MI 23d22  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 23d26  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x23d28 0x2271a>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 23d2c-23d2e StackAdj>                       Δ+8                {[-8-]}
            <Call 0x23d2e 0x103d8>                                              {[-8-]}
                WriteConsoleString(str : String)
            <POP 23d34-23d36 StackAdj>                       Δ+2                {[-6-]}
            <POP 23d36-23d37 StackAdj>                       Δ+2                {[-4-]}
            <Const 0x23d37 0x20.2>                           Δ-2                {[-4-]|[#32]}
            <Call 0x23d3a 0x103d0>                                              {[-4-]|[#32]}
                WriteConsoleChar(chr : char)
            <POP 23d40-23d42 StackAdj>                       Δ+2                {[-4-]}
            <MI 23d42  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23d44  BVC     0x23d1c>                                         {[-4-]}
        <POP 23d46-23d62 Naked>                              Σ-4 Δ+4    ↓ ←0x23d1c
            <Const 0x23d46 0x1.4>                            Δ-4                {[-4-]|[##1]}
            <Call 0x23d4a 0x103e4>                                              {[-4-]|[##1]}
                AskConsoleString(prompt : String) : String
            <POP 23d50-23d52 StackAdj>                       Δ+4                {[-4-]}
            <MI 23d52  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 23d54  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x23d56 0x21c4a>                                              {[4, 'A4']}
            <MI 23d5a  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x23d5c 0x227bc>                                              {[4, 'A4']}
            <POP 23d60-23d62 StackAdj>                       Δ+4                {}
        <POP 23d62-23d6a Epilogue>                           Σ0         

0x23d6a


@ 23d6a
        <LVAR  0x008 4(r)>
    <POP 23d6a-23dec Body>                                              
        <POP 23d6a-23d80 Prologue>                           Σ0         ↓
        <POP 23d80-23d86 RegCacheLoad>                       Σ0         ↓
        <POP 23d86-23de4 Naked>                              Σ0         ↓
            <POP 23d86-23d88 StackAdj>                       Δ-4                {[-4-]}
            <MI 23d88  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x23d8a 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23d8e 0x2271a>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 23d92-23d94 StackAdj>                       Δ+8                {[-4-]}
            <MI 23d94  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 23d96-23d98 StackAdj>                       Δ-12               {[-12-]}
            <MI 23d98  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x23d9a 0x2.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x23d9e 0x2274c>                                              {[-12-]|[4, '(A6+0x8)']|[##2]}
            <POP 23da2-23da4 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23da4 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23daa-23dac StackAdj>                       Δ+8                {[-4-]}
            <MI 23dac  MOVE.L  (A7),D7>                                         {[-4-]}
            <POP 23dae-23db0 StackAdj>                       Δ-8                {[-12-]}
            <MI 23db0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x23db2 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x23db6 0x2274c>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 23dba-23dbc StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23dbc 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23dc2-23dc4 StackAdj>                       Δ+8                {[-4-]}
            <MI 23dc4  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 23dc6-23dc8 StackAdj>                       Δ-8                {[-12-]}
            <MI 23dc8  MOVE.L  A4,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']}
            <MI 23dca  MOVE.L  D7,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']|[4, 'D7']}
            <Call 0x23dcc 0x10360>                                              {[-12-]|[4, 'A4']|[4, 'D7']}
                ?StringToInt64()
            <POP 23dd2-23dd4 StackAdj>                       Δ+4                {[-12-]|[4, 'A4']}
            <MI 23dd4  MOVE.L  D6,(A7)>                                         {[-12-]|[4, 'D6']}
            <Call 0x23dd6 0x1035c>                                              {[-12-]|[4, 'D6']}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 23ddc-23dde StackAdj>                       Δ+12               {[-4-]}
            <Call 0x23dde 0x227bc>                                              {[-4-]}
            <POP 23de2-23de4 StackAdj>                       Δ+4                {}
        <POP 23de4-23dec Epilogue>                           Σ0         

0x23dec


@ 23dec
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 23dec-23e6c Body>                                              
        <POP 23dec-23e02 Prologue>                           Σ0         ↓
        <POP 23e02-23e0a RegCacheLoad>                       Σ0         ↓
        <POP 23e0a-23e22 Naked>                              Σ0         ↓
            <POP 23e0a-23e0c StackAdj>                       Δ-8                {[-8-]}
            <MI 23e0c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x23e10 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x23e14 0x2274c>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 23e18-23e1a StackAdj>                       Δ+8                {[-8-]}
            <MI 23e1a  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23e1c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 23e1e  MOVEQ.L #0x00,D7>                                        {}
            <MI 23e20  MOVEQ.L #0x00,D6>                                        {}
        <POP 23e22-23e52 Naked>                              Σ0         ↓ →0x23e22 ←0x23e22
            <MI 23e22  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 23e26  ANDI.W  #0x0001,D0>                                      {}
            <MI 23e2a  CLR.L   D1>                                              {}
            <MI 23e2c  MOVE.W  D0,D1>                                           {}
            <MI 23e2e  ADD.L   D1,D7>                                           {}
            <POP 23e30-23e32 StackAdj>                       Δ-8                {[-8-]}
            <MI 23e32  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 23e34  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x23e36 0xffffffff.4>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
            <Call 0x23e3a 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 23e40-23e44 StackAdj>                       Δ+12               {[-8-]}
            <MI 23e44  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 23e46  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 23e48  ADDQ.L  #0x1,D6>                                         {}
            <MI 23e4a  CMPI.L  #0x0000003f,D6>                                  {}
            <MI 23e50  BLE     0x23e22>                                         {}
        <POP 23e52-23e64 Naked>                              Σ0         ↓
            <POP 23e52-23e54 StackAdj>                       Δ-8                {[-8-]}
            <MI 23e54  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, 'D7']}
            <Call 0x23e56 0x10354>                                              {[-8-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 23e5c-23e5e StackAdj>                       Δ+4                {[-8-]}
            <Call 0x23e5e 0x22844>                                              {[-8-]}
            <POP 23e62-23e64 StackAdj>                       Δ+8                {}
        <POP 23e64-23e6c Epilogue>                           Σ0         

0x23e6c


@ 23e6c
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 23e6c-23f30 Body>                                              
        <POP 23e6c-23e82 Prologue>                           Σ0         ↓
        <POP 23e82-23e8c RegCacheLoad>                       Σ0         ↓
        <POP 23e8c-23e90 Naked>                              Σ0         ↓ →0x23ec2
            <MI 23e8c  TST.B   0x2654a>                                         {}
            <MI 23e8e  BNE     0x23ec2>                                         {}
        <POP 23e90-23ec2 Naked>                              Σ0         ↓
            <Blob 0x23e90 [28] @>                            Δ-28               {[«28""»]}
            <POP 23ea2-23ea4 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x23ea4 27>                                                    {[«28""»]|[$$REPEATing, type ^G to exit.]}
            <Call 0x23eb6 0x103e0>                                              {[«28""»]|[$$REPEATing, type ^G to exit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 23ebc-23ec0 StackAdj>                       Δ+32               {}
            <MI 23ec0  MOVE.B  #0x01,0x2654a>                                   {}
        <POP 23ec2-23eec Naked>                              Σ0         ↓ →0x23f02 ←0x23e8c
            <POP 23ec2-23ec4 StackAdj>                       Δ-6                {[-6-]}
            <Call 0x23ec4 0x103f8>                                              {[-6-]}
                GetConsoleConfig() : Long
            <MI 23eca  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]}
            <POP 0x23ecc LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]}
            <MI 23ed6  MOVE.W  D0,(A7)>                                         {[2, 'D0']}
            <Pointer.fp 0x23ed8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x23edc 0x10212>                                              {[2, 'D0']|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 23ee2-23ee4 StackAdj>                       Δ+6                {}
            <MI 23ee4  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 23ee8  CMP.B   #0x01,D0>                                        {}
            <MI 23eea  BEQ     0x23f02>                                         {}
        <POP 23eec-23f02 Naked>                              Σ0         
            <MI 23eec  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x23ef0 0x219b0>                                              {[4, '(A6+0x8)']}
            <POP 23ef4-23ef6 StackAdj>                       Δ+4                {}
            <POP 23ef6-23f02 Bailout>                                           {}
                <MI 23ef6  MOVEA.L (A5+0x8),A7>                         
                <MI 23efa  MOVEA.W #0x00,A6>                            
                <MI 23efc  JMP     0x25294>                             
        <POP 23f02-23f12 Naked>                              Σ0         ↓ →0x23f28 ←0x23ec2
            <POP 23f02-23f04 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23f04 0x103d4>                                              {[-2-]}
                ReadChar() : Byte
            <MI 23f0a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 23f0c  CMPI.B  #0x07,D0>                                        {}
            <MI 23f10  BEQ     0x23f28>                                         {}
        <POP 23f12-23f28 Naked>                              Σ0         
            <MI 23f12  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x23f16 0x219b0>                                              {[4, '(A6+0x8)']}
            <POP 23f1a-23f1c StackAdj>                       Δ+4                {}
            <POP 23f1c-23f28 Bailout>                                           {}
                <MI 23f1c  MOVEA.L (A5+0x8),A7>                         
                <MI 23f20  MOVEA.W #0x00,A6>                            
                <MI 23f22  JMP     0x25294>                             
        <POP 23f28-23f30 Epilogue>                           Σ0         ←0x23f02

0x23f30


@ 23f30
    <POP 23f30-23f50 Body>                                              
        <POP 23f30-23f42 Prologue>                           Σ0         ↓
        <POP 23f42-23f4c Naked>                              Σ0         ↓
            <Const 0x23f42 0xc8.4>                           Δ-4                {[##200]}
            <Call 0x23f46 0x22878>                                              {[##200]}
            <POP 23f4a-23f4c StackAdj>                       Δ+4                {}
        <POP 23f4c-23f50 Epilogue>                           Σ0         

0x23f50


@ 23f50
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 23f50-23ffc Body>                                              
        <POP 23f50-23f66 Prologue>                           Σ0         ↓
        <POP 23f66-23f6a RegCacheLoad>                       Σ0         ↓
        <POP 23f6a-23f7e Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x23f6a <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x23f6c 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <MI 23f72  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-12]|[4, '(A6+0x8)']}
            <Call 0x23f76 0x21dfe>                                              {[@@-12]|[4, '(A6+0x8)']}
            <POP 23f7a-23f7c StackAdj>                       Δ+4                {[@@-12]}
            <MI 23f7c  MOVEQ.L #0x01,D7>                                        {[@@-12]}
        <POP 23f7e-23f82 Naked>                              Σ-4        ↓ →0x23fec ←0x23fe8
            <MI 23f7e  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23f80  BGT     0x23fec>                                         {[-4-]}
        <POP 23f82-23f94 Naked>                              Σ-4        ↓ →0x23fb4
            <POP 23f82-23f84 StackAdj>                       Δ-4                {[-8-]}
            <MI 23f84  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 23f88  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x23f8a 0x22788>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 23f8e-23f90 StackAdj>                       Δ+8                {[-8-]}
            <MI 23f90  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 23f92  BLT     0x23fb4>                                         {[-4-]}
        <POP 23f94-23f9c Naked>                              Σ-4        ↓ →0x23fb4
            <MI 23f94  CMPI.L  #0x000000ff,D6>                                  {[-4-]}
            <MI 23f9a  BGT     0x23fb4>                                         {[-4-]}
        <POP 23f9c-23fb4 Naked>                              Σ-4        →0x23fe8
            <MI 23f9c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0xc)']}
            <POP 0x23f9e LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]|[4, '(A6-0xc)']}
            <MI 23fa8  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
            <Call 0x23faa 0x102c0>                                              {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 23fb0-23fb2 StackAdj>                       Δ+6                {[-4-]}
            <MI 23fb2  BRA     0x23fe8>                                         {[-4-]}
        <POP 23fb4-23fe8 Naked>                              Σ-4        ↓ ←0x23f82 ←0x23f94
            <Pointer.fp 0x23fb4 <LVAR -0x00c @ 4(r)>>        Δ-4                {[-4-]|[@@-12]}
            <Call 0x23fb6 0x102bc>                                              {[-4-]|[@@-12]}
                FreeString(VAR a : String)
            <POP 23fbc-23fbe StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x23fbe [28] @>                            Δ-28               {[-4-]|[«28""»]}
            <POP 23fca-23fcc StackAdj>                       Δ-4                {[-4-]|[«28""»]|[-4-]}
            <Lit 0x23fcc 28>                                                    {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <Call 0x23fe0 0x219f2>                                              {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <POP 23fe4-23fe8 StackAdj>                       Δ+32               {[-4-]}
        <POP 23fe8-23fec Naked>                              Σ-4        ↓ →0x23f7e ←0x23f9c
            <MI 23fe8  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23fea  BVC     0x23f7e>                                         {[-4-]}
        <POP 23fec-23ff4 Naked>                              Σ-4 Δ+4    ↓ ←0x23f7e
            <MI 23fec  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Call 0x23fee 0x227bc>                                              {[4, '(A6-0xc)']}
            <POP 23ff2-23ff4 StackAdj>                       Δ+4                {}
        <POP 23ff4-23ffc Epilogue>                           Σ0         

0x23ffc


@ 23ffc
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 23ffc-240b4 Body>                                   Δ-8        
        <POP 23ffc-24012 Prologue>                           Σ0         ↓
        <POP 24012-24022 Naked>                              Σ0 Δ-4     ↓
            <MI 24012  CLR.B   (A6+0xc)>                                        {}
            <MI 24016  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2401a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2401c  MOVEQ.L #0x00,D0>                                        {[4, 'A0']}
            <MI 2401e  ADDQ.W  #0x1,D0>                                         {[4, 'A0']}
            <MI 24020  MOVE.B  D0,D6>                                           {[4, 'A0']}
        <POP 24022-2402a Naked>                              Σ-4        ↓ →0x240aa ←0x240a4
            <MI 24022  CMPI.B  #0x2b,D6>                                        {[-4-]}
            <MI 24026  BGT     0x240aa>                                         {[-4-]}
        <POP 2402a-24050 Naked>                              Σ-4        ↓ →0x240a4
            <MI 2402a  LEA.L   0x218de,A0>                                      {[-4-]}
            <MI 2402e  MOVE.B  D6,D0>                                           {[-4-]}
            <MI 24030  EXTB.W  D0>                                              {[-4-]}
            <MI 24032  EXTW.L  D0>                                              {[-4-]}
            <MI 24034  ROR.L   #0x1,D0>                                         {[-4-]}
            <MI 24036  ADDA.W  D0,A0>                                           {[-4-]}
            <MI 24038  SWAP.W  D0>                                              {[-4-]}
            <MI 2403a  ROL.W   #0x3,D0>                                         {[-4-]}
            <MI 2403c  CLR.L   D1>                                              {[-4-]}
            <MI 2403e  MOVE.B  (A0),D1>                                         {[-4-]}
            <MI 24040  LSL.B   D0,D1>                                           {[-4-]}
            <MI 24042  LSR.B   #0x4,D1>                                         {[-4-]}
            <MI 24044  MOVE.L  D1,D5>                                           {[-4-]}
            <MI 24046  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 24048  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 2404a  EXTW.L  D0>                                              {[-4-]}
            <MI 2404c  CMP.L   D0,D5>                                           {[-4-]}
            <MI 2404e  BNE     0x240a4>                                         {[-4-]}
        <POP 24050-24054 Naked>                              Σ-4 Δ-4    ↓
            <MI 24050  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 24052  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D5']}
        <POP 24054-24058 Naked>                              Σ-8        ↓ →0x2409a ←0x24096
            <MI 24054  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 24056  BGT     0x2409a>                                         {[-8-]}
        <POP 24058-24092 Naked>                              Σ-8        ↓ →0x24096
            <MI 24058  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 2405a  EXTB.W  D0>                                              {[-8-]}
            <MI 2405c  MULS.W  #0xa,D0>                                         {[-8-]}
            <MI 24060  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 24062  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x24064 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 2406e  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 24072  LEA.L   0x21726,A1>                                      {[-8-]}
            <MI 24076  MOVE.L  D7,D2>                                           {[-8-]}
            <MI 24078  SUBQ.L  #0x1,D2>                                         {[-8-]}
            <POP 0x2407a LimitCheck 0x0 ≤ D2 ≤ 0x9>                             {[-8-]}
            <MI 24084  LEA.L   (A1+D0.W),A1>                                    {[-8-]}
            <MI 24088  MOVE.B  (A0+D1.L+#0x2),D0>                               {[-8-]}
            <MI 2408c  CMP.B   (A1+D2.L),D0>                                    {[-8-]}
            <MI 24090  BEQ     0x24096>                                         {[-8-]}
        <POP 24092-24096 Naked>                              Σ-8 Δ+4    →0x240a4
            <POP 24092-24094 StackAdj>                       Δ+4                {[-4-]}
            <MI 24094  BRA     0x240a4>                                         {[-4-]}
        <POP 24096-2409a Naked>                              Σ-8        ↓ →0x24054 ←0x24058
            <MI 24096  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24098  BVC     0x24054>                                         {[-8-]}
        <POP 2409a-240a4 Naked>                              Σ-8 Δ+8    →0x240ac ←0x24054
            <POP 2409a-2409c StackAdj>                       Δ+4                {[-4-]}
            <MI 2409c  MOVE.B  D6,(A6+0xc)>                                     {[-4-]}
            <POP 240a0-240a2 StackAdj>                       Δ+4                {}
            <MI 240a2  BRA     0x240ac>                                         {}
        <POP 240a4-240aa Naked>                              Σ-4        ↓ →0x24022 ←0x2402a ←0x24092
            <MI 240a4  ADDQ.B  #0x1,D6>                                         {[-4-]}
            <MI 240a6  BVC     0x24022>                                         {[-4-]}
        <POP 240aa-240ac Naked>                              Σ-4 Δ+4    ↓ ←0x24022
            <POP 240aa-240ac StackAdj>                       Δ+4                {}
        <POP 240ac-240b4 Epilogue>                           Σ0         ←0x2409a

0x240b4


@ 240b4
        <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 240b4-241f0 Body>                                              
        <POP 240b4-240ca Prologue>                           Σ0         ↓
        <POP 240ca-240d8 RegCacheLoad>                       Σ0         ↓
        <POP 240d8-24144 Naked>                              Σ0         ↓ →0x2418e
            <POP 240d8-240da StackAdj>                       Δ-4                {[-4-]}
            <MI 240da  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x240de 0x102cc>                                              {[-4-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <POP 240e4-240e6 StackAdj>                       Δ+4                {[-4-]}
            <MI 240e6  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 240e8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Const 0x240ea 0x2e.2>                           Δ-2                {[4, '(A6-0x10)']|[#46]}
            <Call 0x240ee 0x102c0>                                              {[4, '(A6-0x10)']|[#46]}
                AppendChar(MOD b : String; a : char)
            <POP 240f4-240f6 StackAdj>                       Δ+6                {}
            <Blob 0x240f6 [10] 0x2652a>                      Δ-10               {[«10»]}
            <POP 24104-24106 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <MI 24106  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']}
            <POP 24108-2410a StackAdj>                       Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x2410a>                                                       {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                <Pointer.sp 0x2410a 12>                      Δ-4        
                <Const 0x2410e 0x1.2>                        Δ-2        
                <Const 0x24110 0xa.2>                        Δ-2        
                <Call 0x24114 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2411a-2411c StackAdj>                   Δ+8        
            <Call 0x2411c 0x102d0>                                              {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                StringCat2(a, b : String) : String
            <POP 24122-24124 StackAdj>                       Δ+8                {[«10»]|[-4-]}
            <MI 24124  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10»]}
            <POP 24126-24128 StackAdj>                       Δ+6                {[-4-]}
            <MI 24128  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 2412a  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x10)']|[#0]}
            <Const 0x2412c 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#0]|[#1]}
            <Const 0x2412e 0x0.4>                            Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x24132 <LVAR -0x002 @ 1(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
            <Pointer.fp 0x24134 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
            <Call 0x24136 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 2413c-24140 StackAdj>                       Δ+20               {}
            <MI 24140  TST.B   (A6-0x2)>                                        {}
            <MI 24142  BEQ     0x2418e>                                         {}
        <POP 24144-2418e Naked>                              Σ0         ↓
            <Pointer.fp 0x24144 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x24146 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <MI 2414c  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x24150 0x219b0>                                              {[4, '(A6+0x8)']}
            <POP 24154-24155 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x24155 [26] @>                            Δ-26               {[«26""»]}
            <POP 24166-24168 StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x24168 25>                                                    {[«26""»]|[-4-]|[$$Not a command or macro :_]}
            <POP 24178-2417a StackAdj>                       Δ-4                {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
            <MI 2417a  MOVE.L  (A6+0xc),(A7)>                                   {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
            <Call 0x2417e 0x102d0>                                              {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
                StringCat2(a, b : String) : String
            <POP 24184-24186 StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x24186 0x219f2>                                              {[«26""»]|[-4-]}
            <POP 2418a-2418e StackAdj>                       Δ+30               {}
        <POP 2418e-24196 Naked>                              Σ0         ↓ ←0x240d8
            <MI 2418e  MOVE.L  0x26518,(A6-0x6)>                                {}
        <POP 24196-241ae Naked>                              Σ0         ↓ →0x241c2 ←0x241c2
            <MI 24196  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Pointer.fp 0x24198 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[4, '(A6-0xc)']|[@@-16]}
            <Pointer.fp 0x2419a <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
            <Call 0x2419e 0x1043c>                                              {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 241a4-241a8 StackAdj>                       Δ+12               {}
            <MI 241a8  MOVEA.L (A6-0x10),A0>                                    {}
            <MI 241aa  TST.W   (A0)>                                            {}
            <MI 241ac  BEQ     0x241c2>                                         {}
        <POP 241ae-241c2 Naked>                              Σ0         ↓
            <MI 241ae  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x241b0 0x21c4a>                                              {[4, '(A6-0x10)']}
            <POP 241b4-241b6 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x241b6 <LVAR -0x006 @ 4(w)>>        Δ-4                {[@@-6]}
            <MI 241ba  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[@@-6]|[4, '(A6-0x10)']}
            <Call 0x241bc 0x21fd0>                                              {[@@-6]|[4, '(A6-0x10)']}
            <POP 241c0-241c2 StackAdj>                       Δ+8                {}
        <POP 241c2-241c8 Naked>                              Σ0         ↓ →0x24196 ←0x24196
            <MI 241c2  TST.B   (A6-0x8)>                                        {}
            <MI 241c6  BEQ     0x24196>                                         {}
        <POP 241c8-241e8 Naked>                              Σ0         ↓
            <MI 241c8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x241ca 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x241cc 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x241d0 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]}
            <Pointer.fp 0x241d2 <LVAR -0x00c @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
            <Call 0x241d4 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 241da-241de StackAdj>                       Δ+16               {}
            <Pointer.fp 0x241de <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x241e0 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 241e6-241e8 StackAdj>                       Δ+4                {}
        <POP 241e8-241f0 Epilogue>                           Σ0         

0x241f0


@ 241f0
        <LVAR  0x014 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 241f0-24230 Body>                                              
        <POP 241f0-24206 Prologue>                           Σ0         ↓
        <POP 24206-24228 Naked>                              Σ0         ↓
            <MI 24206  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 2420a  ADD.L   (A6+0x8),D0>                                     {}
            <MI 2420e  SUBQ.L  #0x1,D0>                                         {}
            <MI 24210  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x24212 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 2421c  LEA.L   0x25510,A0>                                      {}
            <MI 24222  MOVE.B  (A0+D0.L+#0x8),(A6+0x14)>                        {}
        <POP 24228-24230 Epilogue>                           Σ0         

0x24230


@ 24230
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 24230-242ac Body>                                              
        <POP 24230-24246 Prologue>                           Σ0         ↓
        <POP 24246-2426e Naked>                              Σ0         ↓ →0x2429e
            <POP 24246-24248 StackAdj>                       Δ-4                {[-4-]}
            <MI 24248  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 2424c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24250 0x2269e>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24254-24256 StackAdj>                       Δ+8                {[-4-]}
            <Pointer.fp 0x24256 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Pointer.fp 0x2425a <LVAR -0x008 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]|[@@-8]}
            <Call 0x2425e 0x102ec>                                              {[-4-]|[@@-4]|[@@-8]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 24264-24268 StackAdj>                       Δ+12               {}
            <MI 24268  TST.B   (A6-0x4)>                                        {}
            <MI 2426c  BNE     0x2429e>                                         {}
        <POP 2426e-2429e Naked>                              Σ0         ↓
            <Blob 0x2426e [24] @>                            Δ-24               {[«24""»]}
            <POP 24280-24282 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x24282 23>                                                    {[«24""»]|[$$Illegal marker argument]}
            <Call 0x24296 0x219f2>                                              {[«24""»]|[$$Illegal marker argument]}
            <POP 2429a-2429e StackAdj>                       Δ+28               {}
        <POP 2429e-242a4 Naked>                              Σ0         ↓ ←0x24246
            <MI 2429e  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 242a4-242ac Epilogue>                           Σ0         

0x242ac


@ 242ac
        <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 242ac-243d4 Body>                                              
        <POP 242ac-242c2 Prologue>                           Σ0         ↓
        <POP 242c2-242d2 RegCacheLoad>                       Σ0         ↓
        <POP 242d2-242ec Naked>                              Σ0 Δ-4     ↓
            <MI 242d2  MOVEQ.L #0x00,D7>                                        {}
            <MI 242d4  MOVE.L  (A6+0x14),(A6-0x20)>                             {}
            <MI 242d8  MOVE.L  0x26518,D0>                                      {}
            <MI 242de  SUB.L   (A6+0x14),D0>                                    {}
            <MI 242e2  MOVE.L  D0,(A6-0x14)>                                    {}
            <MI 242e4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 242e8  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 242ec-242f0 Naked>                              Σ-4        ↓ →0x2431c ←0x24318
            <MI 242ec  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 242ee  BGT     0x2431c>                                         {[-4-]}
        <POP 242f0-24316 Naked>                              Σ-4        ↓ →0x24318
            <POP 242f0-242f2 StackAdj>                       Δ-8                {[-12-]}
            <MI 242f2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 242f6  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x242f8 0x2263c>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 242fc-242fe StackAdj>                       Δ+8                {[-12-]}
            <MI 242fe  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 24300  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 24302  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 24304  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x24306 0x22604>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 2430a-2430c StackAdj>                       Δ+8                {[-8-]}
            <MI 2430c  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 2430e  ADD.L   D6,D7>                                           {[-4-]}
            <MI 24310  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 24314  BGE     0x24318>                                         {[-4-]}
        <POP 24316-24318 Naked>                              Σ-4        ↓
            <MI 24316  ADDQ.L  #0x1,D7>                                         {[-4-]}
        <POP 24318-2431c Naked>                              Σ-4        ↓ →0x242ec ←0x242f0
            <MI 24318  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2431a  BVC     0x242ec>                                         {[-4-]}
        <POP 2431c-2432a Naked>                              Σ-4 Δ+4    ↓ →0x24336 ←0x242ec
            <POP 2431c-2431e StackAdj>                       Δ+4                {}
            <MI 2431e  MOVE.L  (A6-0x20),D0>                                    {}
            <MI 24320  ADD.L   (A6-0x14),D0>                                    {}
            <MI 24322  MOVE.L  D0,(A6-0x18)>                                    {}
            <MI 24326  CMP.L   (A6-0x14),D7>                                    {}
            <MI 24328  BEQ     0x24336>                                         {}
        <POP 2432a-24336 Naked>                              Σ0         ↓
            <MI 2432a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2432c  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, 'D0']|[4, '(A6-0x14)']}
            <MI 2432e  SUB.L   D7,(A7)>                                         {[4, 'D0']|[-4-]}
            <Call 0x24330 0x21f46>                                              {[4, 'D0']|[-4-]}
            <POP 24334-24336 StackAdj>                       Δ+8                {}
        <POP 24336-2433e Naked>                              Σ0 Δ-4     ↓ ←0x2431c
            <MI 24336  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 2433a  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 2433e-24344 Naked>                              Σ-4        ↓ →0x243ca ←0x243c4
            <MI 2433e  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 24340  BGT     0x243ca>                                         {[-4-]}
        <POP 24344-24366 Naked>                              Σ-4 Δ-4    ↓
            <POP 24344-24346 StackAdj>                       Δ-8                {[-12-]}
            <MI 24346  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 2434a  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x2434c 0x2263c>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 24350-24352 StackAdj>                       Δ+8                {[-12-]}
            <MI 24352  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 24354  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 24356  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 24358  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x2435a 0x22604>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 2435e-24360 StackAdj>                       Δ+8                {[-8-]}
            <MI 24360  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 24362  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 24364  MOVEQ.L #0x01,D0>                                        {[-4-]|[4, 'D6']}
        <POP 24366-2436a Naked>                              Σ-8        ↓ →0x2439a ←0x2436a
            <MI 24366  CMP.L   (A7),D0>                                         {[-8-]}
            <MI 24368  BGT     0x2439a>                                         {[-8-]}
        <POP 2436a-2439a Naked>                              Σ-8        ↓ →0x24366
            <MI 2436a  MOVE.L  (A6-0x20),D1>                                    {[-8-]}
            <MI 2436c  ADD.L   D0,D1>                                           {[-8-]}
            <MI 2436e  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <MI 24370  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x24372 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-8-]}
            <MI 2437c  LEA.L   0x25510,A0>                                      {[-8-]}
            <POP 24382-24384 StackAdj>                       Δ-2                {[-10-]}
            <MI 24384  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0xc)']}
            <MI 24386  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 24388  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <Call 0x2438a 0x241f0>                                              {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <POP 2438e-24392 StackAdj>                       Δ+12               {[-10-]}
            <MI 24392  MOVE.B  (A7)+,(A0+D1.L+#0x8)>         Δ+2                {[-8-]}
            <MI 24396  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 24398  BVC     0x24366>                                         {[-8-]}
        <POP 2439a-243a2 Naked>                              Σ-8 Δ+4    ↓ →0x243c4 ←0x24366
            <POP 2439a-2439c StackAdj>                       Δ+4                {[-4-]}
            <MI 2439c  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 243a0  BGE     0x243c4>                                         {[-4-]}
        <POP 243a2-243c4 Naked>                              Σ-4        ↓
            <MI 243a2  MOVE.L  (A6-0x20),D0>                                    {[-4-]}
            <MI 243a4  ADD.L   D6,D0>                                           {[-4-]}
            <MI 243a6  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 243a8  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x243aa LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-4-]}
            <MI 243b4  LEA.L   0x25510,A0>                                      {[-4-]}
            <MI 243ba  MOVE.B  #0x2c,(A0+D1.L+#0x8)>                            {[-4-]}
            <MI 243c0  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 243c2  MOVE.L  D0,(A6-0x20)>                                    {[-4-]}
        <POP 243c4-243ca Naked>                              Σ-4        ↓ →0x2433e ←0x2439a
            <MI 243c4  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 243c6  BVC     0x2433e>                                         {[-4-]}
        <POP 243ca-243cc Naked>                              Σ-4 Δ+4    ↓ ←0x2433e
            <POP 243ca-243cc StackAdj>                       Δ+4                {}
        <POP 243cc-243d4 Epilogue>                           Σ0         

0x243d4


@ 243d4
        <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 243d4-244ca Body>                                   Δ-12       
        <POP 243d4-243ea Prologue>                           Σ0         ↓
        <POP 243ea-24400 RegCacheLoad>                       Σ0         ↓
        <POP 24400-2442a Naked>                              Σ0 Δ-4     ↓
            <POP 24400-24402 StackAdj>                       Δ-4                {[-4-]}
            <MI 24402  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 24404  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x24406 0x22604>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 2440a-2440c StackAdj>                       Δ+8                {[-4-]}
            <MI 2440c  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 2440e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 24412  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24416 0x22604>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2441a-2441c StackAdj>                       Δ+8                {[-4-]}
            <MI 2441c  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 2441e  ADDQ.L  #0x1,(A6-0x8)>                                   {}
            <MI 24420  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 24422  SUB.L   (A6-0x8),D0>                                     {}
            <MI 24424  ADDQ.L  #0x1,D0>                                         {}
            <MI 24426  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 24428  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 2442a-24430 Naked>                              Σ-4        ↓ →0x244bc ←0x244b4
            <MI 2442a  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 2442c  BGT     0x244bc>                                         {[-4-]}
        <POP 24430-2443c Naked>                              Σ-4 Δ-8    ↓
            <MI 24430  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 24434  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 24436  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 24438  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 2443a  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 2443c-24440 Naked>                              Σ-12       ↓ →0x24482 ←0x2447c
            <MI 2443c  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 2443e  BGT     0x24482>                                         {[-12-]}
        <POP 24440-24448 Naked>                              Σ-12       ↓ →0x2444c
            <MI 24440  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 24446  BNE     0x2444c>                                         {[-12-]}
        <POP 24448-2444c Naked>                              Σ-12       →0x24460
            <MI 24448  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 2444a  BRA     0x24460>                                         {[-12-]}
        <POP 2444c-24460 Naked>                              Σ-12       ↓ ←0x24440
            <POP 2444c-2444e StackAdj>                       Δ-2                {[-14-]}
            <MI 2444e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']}
            <MI 24452  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24456  MOVE.L  D5,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
            <MI 24458  SUBQ.L  #0x1,(A7)>                                       {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <Call 0x2445a 0x241f0>                                              {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <POP 2445c-2445e StackAdj>                       Δ+12               {[-14-]}
            <MI 2445e  MOVE.B  (A7)+,D7>                     Δ+2                {[-12-]}
        <POP 24460-24478 Naked>                              Σ-12       ↓ →0x2447c ←0x24448
            <POP 24460-24462 StackAdj>                       Δ-2                {[-14-]}
            <MI 24462  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']}
            <MI 24464  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24466  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2446a  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2446c  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2446e  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x24470 0x241f0>                                              {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 24472-24474 StackAdj>                       Δ+12               {[-14-]}
            <MI 24474  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 24476  BEQ     0x2447c>                                         {[-12-]}
        <POP 24478-2447c Naked>                              Σ-12 Δ+4   →0x24484
            <POP 24478-2447a StackAdj>                       Δ+4                {[-8-]}
            <MI 2447a  BRA     0x24484>                                         {[-8-]}
        <POP 2447c-24482 Naked>                              Σ-12       ↓ →0x2443c ←0x24460
            <MI 2447c  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 2447e  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 24480  BVC     0x2443c>                                         {[-12-]}
        <POP 24482-24484 Naked>                              Σ-12 Δ+4   ↓ ←0x2443c
            <POP 24482-24484 StackAdj>                       Δ+4                {[-8-]}
        <POP 24484-24488 Naked>                              Σ-8        ↓ →0x244b4 ←0x24478
            <MI 24484  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 24486  BNE     0x244b4>                                         {[-8-]}
        <POP 24488-24494 Naked>                              Σ-8        ↓ →0x24496
            <MI 24488  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 2448a  MOVE.L  D0,(A6+0x18)>                                    {[-8-]}
            <MI 2448e  ADD.L   (A6-0x8),D0>                                     {[-8-]}
            <MI 24490  CMP.L   (A6-0xc),D0>                                     {[-8-]}
            <MI 24492  BLT     0x24496>                                         {[-8-]}
        <POP 24494-24496 Naked>                              Σ-8        →0x244b0
            <MI 24494  BRA     0x244b0>                                         {[-8-]}
        <POP 24496-244aa Naked>                              Σ-8        ↓ →0x244b0 ←0x24488
            <POP 24496-24498 StackAdj>                       Δ-2                {[-10-]}
            <MI 24498  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 2449a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2449c  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x2449e 0x241f0>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 244a0-244a2 StackAdj>                       Δ+12               {[-10-]}
            <MI 244a2  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 244a4  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 244a8  BEQ     0x244b0>                                         {[-8-]}
        <POP 244aa-244b0 Naked>                              Σ-8        ↓ →0x244b4
            <MI 244aa  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 244ae  BNE     0x244b4>                                         {[-8-]}
        <POP 244b0-244b4 Naked>                              Σ-8 Δ+8    →0x244c2 ←0x24494 ←0x24496
            <POP 244b0-244b2 StackAdj>                       Δ+8                {}
            <MI 244b2  BRA     0x244c2>                                         {}
        <POP 244b4-244bc Naked>                              Σ-8 Δ+4    ↓ →0x2442a ←0x24484 ←0x244aa
            <MI 244b4  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 244b6  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 244b8  BVC     0x2442a>                                         {[-4-]}
        <POP 244bc-244c2 Naked>                              Σ-4 Δ+4    ↓ ←0x2442a
            <POP 244bc-244be StackAdj>                       Δ+4                {}
            <MI 244be  CLR.L   (A6+0x18)>                                       {}
        <POP 244c2-244ca Epilogue>                           Σ0         ←0x244b0

0x244ca


@ 244ca
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 244ca-2455e Body>                                   Δ-4        
        <POP 244ca-244e0 Prologue>                           Σ0         ↓
        <POP 244e0-244ea RegCacheLoad>                       Σ0         ↓
        <POP 244ea-24504 Naked>                              Σ0         ↓ →0x24556
            <POP 244ea-244ec StackAdj>                       Δ-4                {[-4-]}
            <MI 244ec  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 244ee  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 244f0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 244f4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x244f8 0x243d4>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 244fc-24500 StackAdj>                       Δ+16               {[-4-]}
            <MI 24500  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 24502  BLE     0x24556>                                         {}
        <POP 24504-24524 Naked>                              Σ0 Δ-4     ↓
            <MI 24504  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <Const 0x24508 0x2f.2>                           Δ-2                {[4, '(A6+0x18)']|[#47]}
            <Call 0x2450a 0x102c0>                                              {[4, '(A6+0x18)']|[#47]}
                AppendChar(MOD b : String; a : char)
            <POP 24510-24512 StackAdj>                       Δ+6                {}
            <MI 24512  MOVE.L  D5,D0>                                           {}
            <MI 24514  ADDQ.L  #0x1,D0>                                         {}
            <POP 24516-24518 StackAdj>                       Δ-4                {[-4-]}
            <MI 24518  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 2451a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x2451c 0x22604>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 24520-24522 StackAdj>                       Δ+8                {[-4-]}
            <MI 24522  MOVE.L  D0,D6>                                           {[-4-]}
        <POP 24524-24528 Naked>                              Σ-4        ↓ →0x24554 ←0x24542
            <MI 24524  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 24526  BGT     0x24554>                                         {[-4-]}
        <POP 24528-2453e Naked>                              Σ-4        ↓ →0x24542
            <POP 24528-2452a StackAdj>                       Δ-2                {[-6-]}
            <MI 2452a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 2452c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2452e  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x24530 0x241f0>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 24534-24538 StackAdj>                       Δ+12               {[-6-]}
            <MI 24538  MOVE.B  (A7)+,D7>                     Δ+2                {[-4-]}
            <MI 2453a  CMP.B   #0x2f,D7>                                        {[-4-]}
            <MI 2453c  BNE     0x24542>                                         {[-4-]}
        <POP 2453e-24542 Naked>                              Σ-4 Δ+4    →0x24556
            <POP 2453e-24540 StackAdj>                       Δ+4                {}
            <MI 24540  BRA     0x24556>                                         {}
        <POP 24542-24554 Naked>                              Σ-4        ↓ →0x24524 ←0x24528
            <MI 24542  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']}
            <MI 24546  MOVE.B  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x24548 0x102c0>                                              {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 2454e-24550 StackAdj>                       Δ+6                {[-4-]}
            <MI 24550  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 24552  BVC     0x24524>                                         {[-4-]}
        <POP 24554-24556 Naked>                              Σ-4 Δ+4    ↓ ←0x24524
            <POP 24554-24556 StackAdj>                       Δ+4                {}
        <POP 24556-2455e Epilogue>                           Σ0         ←0x244ea ←0x2453e

0x2455e


@ 2455e
        <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 2455e-24614 Body>                                   Δ-8        
        <POP 2455e-24574 Prologue>                           Σ0         ↓
        <POP 24574-24582 RegCacheLoad>                       Σ0         ↓
        <POP 24582-2459e Naked>                              Σ0         ↓ →0x2460c
            <POP 24582-24584 StackAdj>                       Δ-4                {[-4-]}
            <MI 24584  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 24586  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24588  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 2458c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24590 0x243d4>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24594-24598 StackAdj>                       Δ+16               {[-4-]}
            <MI 24598  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 2459c  BLE     0x2460c>                                         {}
        <POP 2459e-245b2 Naked>                              Σ0 Δ-4     ↓
            <POP 2459e-245a0 StackAdj>                       Δ-4                {[-4-]}
            <MI 245a0  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 245a2  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x245a4 0x22604>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 245a8-245aa StackAdj>                       Δ+8                {[-4-]}
            <MI 245aa  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 245ac  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 245ae  MOVE.L  (A6-0x14),D5>                                    {[4, '(A6-0x6)']}
        <POP 245b2-245b6 Naked>                              Σ-4        ↓ →0x2460a ←0x24606
            <MI 245b2  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 245b4  BGT     0x2460a>                                         {[-4-]}
        <POP 245b6-245cc Naked>                              Σ-4        ↓ →0x24606
            <POP 245b6-245b8 StackAdj>                       Δ-2                {[-6-]}
            <MI 245b8  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 245ba  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 245bc  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <Call 0x245be 0x241f0>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <POP 245c2-245c4 StackAdj>                       Δ+12               {[-6-]}
            <MI 245c4  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 245c6  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 245ca  BNE     0x24606>                                         {[-4-]}
        <POP 245cc-245d4 Naked>                              Σ-4 Δ-4    ↓
            <MI 245cc  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 245ce  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 245d0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 245d2  MOVE.L  D0,D6>                                           {[-4-]|[4, '(A6-0x6)']}
        <POP 245d4-245d8 Naked>                              Σ-8        ↓ →0x24604 ←0x245f2
            <MI 245d4  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 245d6  BGT     0x24604>                                         {[-8-]}
        <POP 245d8-245ee Naked>                              Σ-8        ↓ →0x245f2
            <POP 245d8-245da StackAdj>                       Δ-2                {[-10-]}
            <MI 245da  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 245dc  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 245de  MOVE.L  D6,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x245e0 0x241f0>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 245e4-245e6 StackAdj>                       Δ+12               {[-10-]}
            <MI 245e6  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 245e8  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 245ec  BNE     0x245f2>                                         {[-8-]}
        <POP 245ee-245f2 Naked>                              Σ-8 Δ+8    →0x2460c
            <POP 245ee-245f0 StackAdj>                       Δ+8                {}
            <MI 245f0  BRA     0x2460c>                                         {}
        <POP 245f2-24604 Naked>                              Σ-8        ↓ →0x245d4 ←0x245d8
            <MI 245f2  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 245f6  MOVE.B  D7,-(A7)>                     Δ-2                {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x245f8 0x102c0>                                              {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 245fe-24600 StackAdj>                       Δ+6                {[-8-]}
            <MI 24600  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 24602  BVC     0x245d4>                                         {[-8-]}
        <POP 24604-24606 Naked>                              Σ-8 Δ+4    ↓ ←0x245d4
            <POP 24604-24606 StackAdj>                       Δ+4                {[-4-]}
        <POP 24606-2460a Naked>                              Σ-4        ↓ →0x245b2 ←0x245b6
            <MI 24606  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 24608  BVC     0x245b2>                                         {[-4-]}
        <POP 2460a-2460c Naked>                              Σ-4 Δ+4    ↓ ←0x245b2
            <POP 2460a-2460c StackAdj>                       Δ+4                {}
        <POP 2460c-24614 Epilogue>                           Σ0         ←0x24582 ←0x245ee

0x24614


@ 24614
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 24614-2469a Body>                                   Δ-4        
        <POP 24614-2462a Prologue>                           Σ0         ↓
        <POP 2462a-24634 RegCacheLoad>                       Σ0         ↓
        <POP 24634-24646 Naked>                              Σ0 Δ-4     ↓
            <POP 24634-24636 StackAdj>                       Δ-4                {[-4-]}
            <MI 24636  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 24638  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2463a 0x22604>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2463e-24640 StackAdj>                       Δ+8                {[-4-]}
            <MI 24640  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 24642  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <MI 24644  MOVEQ.L #0x01,D6>                                        {[4, 'D5']}
        <POP 24646-2464a Naked>                              Σ-4        ↓ →0x24690 ←0x2468c
            <MI 24646  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 24648  BGT     0x24690>                                         {[-4-]}
        <POP 2464a-24660 Naked>                              Σ-4        ↓ →0x2468c
            <POP 2464a-2464c StackAdj>                       Δ-2                {[-6-]}
            <MI 2464c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 2464e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24650  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x24652 0x241f0>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 24656-24658 StackAdj>                       Δ+12               {[-6-]}
            <MI 24658  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 2465a  CMPI.B  #0x2f,D0>                                        {[-4-]}
            <MI 2465e  BNE     0x2468c>                                         {[-4-]}
        <POP 24660-24664 Naked>                              Σ-4 Δ-4    ↓
            <MI 24660  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 24662  MOVE.L  D6,D7>                                           {[-4-]|[4, 'D5']}
        <POP 24664-24668 Naked>                              Σ-8        ↓ →0x24686 ←0x24668
            <MI 24664  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 24666  BGT     0x24686>                                         {[-8-]}
        <POP 24668-24686 Naked>                              Σ-8        ↓ →0x24664
            <MI 24668  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <POP 2466c-2466e StackAdj>                       Δ-2                {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <MI 2466e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
            <MI 24670  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24672  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x24674 0x241f0>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 24678-2467a StackAdj>                       Δ+12               {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <Call 0x2467a 0x102c0>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]}
                AppendChar(MOD b : String; a : char)
            <POP 24680-24682 StackAdj>                       Δ+6                {[-8-]}
            <MI 24682  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24684  BVC     0x24664>                                         {[-8-]}
        <POP 24686-2468c Naked>                              Σ-8 Δ+8    →0x24692 ←0x24664
            <POP 24686-24688 StackAdj>                       Δ+4                {[-4-]}
            <POP 24688-2468a StackAdj>                       Δ+4                {}
            <MI 2468a  BRA     0x24692>                                         {}
        <POP 2468c-24690 Naked>                              Σ-4        ↓ →0x24646 ←0x2464a
            <MI 2468c  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 2468e  BVC     0x24646>                                         {[-4-]}
        <POP 24690-24692 Naked>                              Σ-4 Δ+4    ↓ ←0x24646
            <POP 24690-24692 StackAdj>                       Δ+4                {}
        <POP 24692-2469a Epilogue>                           Σ0         ←0x24686

0x2469a


@ 2469a
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2469a-2470a Body>                                   Δ-4        
        <POP 2469a-246b0 Prologue>                           Σ0         ↓
        <POP 246b0-246c8 Naked>                              Σ0 Δ-4     ↓
            <MI 246b0  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 246b4  CLR.W   (A0)>                                            {}
            <POP 246b6-246b8 StackAdj>                       Δ-4                {[-4-]}
            <MI 246b8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 246bc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x246c0 0x22604>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 246c4-246c6 StackAdj>                       Δ+8                {[-4-]}
            <MI 246c6  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 246c8-246cc Naked>                              Σ-4        ↓ →0x24700 ←0x246fc
            <MI 246c8  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 246ca  BGT     0x24700>                                         {[-4-]}
        <POP 246cc-246e8 Naked>                              Σ-4        ↓ →0x246f8
            <POP 246cc-246ce StackAdj>                       Δ-2                {[-6-]}
            <MI 246ce  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 246d2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 246d6  MOVE.L  D7,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x246d8 0x241f0>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 246dc-246e0 StackAdj>                       Δ+12               {[-6-]}
            <MI 246e0  MOVE.B  (A7)+,D6>                     Δ+2                {[-4-]}
            <MI 246e2  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 246e6  BEQ     0x246f8>                                         {[-4-]}
        <POP 246e8-246f8 Naked>                              Σ-4        →0x246fc
            <MI 246e8  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 246ec  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
            <Call 0x246ee 0x102c0>                                              {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 246f4-246f6 StackAdj>                       Δ+6                {[-4-]}
            <MI 246f6  BRA     0x246fc>                                         {[-4-]}
        <POP 246f8-246fc Naked>                              Σ-4 Δ+4    →0x24702 ←0x246cc
            <POP 246f8-246fa StackAdj>                       Δ+4                {}
            <MI 246fa  BRA     0x24702>                                         {}
        <POP 246fc-24700 Naked>                              Σ-4        ↓ →0x246c8 ←0x246e8
            <MI 246fc  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 246fe  BVC     0x246c8>                                         {[-4-]}
        <POP 24700-24702 Naked>                              Σ-4 Δ+4    ↓ ←0x246c8
            <POP 24700-24702 StackAdj>                       Δ+4                {}
        <POP 24702-2470a Epilogue>                           Σ0         ←0x246f8

0x2470a


@ 2470a
    <POP 2470a-24752 Body>                                              
        <POP 2470a-24720 Prologue>                           Σ0         ↓
        <POP 24720-2474a Naked>                              Σ0         ↓
            <Blob 0x24720 [34] @>                            Δ-34               {[«34""»]}
            <POP 2472c-2472e StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2472e 34>                                                    {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <Call 0x24742 0x219f2>                                              {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <POP 24746-2474a StackAdj>                       Δ+38               {}
        <POP 2474a-24752 Epilogue>                           Σ0         

0x24752


@ 24752
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
    <POP 24752-2488c Body>                                              
        <POP 24752-24768 Prologue>                           Σ0         ↓
        <POP 24768-2477e RegCacheLoad>                       Σ0         ↓
        <POP 2477e-2478c Naked>                              Σ0         ↓ →0x24794
            <MI 2477e  MOVE.L  0x26518,(A6-0x6)>                                {}
            <POP 24782-24784 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24784 0x21a8e>                                              {[-2-]}
            <MI 24786  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 24788  CMP.B   #0x25,D7>                                        {}
            <MI 2478a  BNE     0x24794>                                         {}
        <POP 2478c-24794 Naked>                              Σ0         →0x24874
            <MI 2478c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2478e  CLR.L   (A0)>                                            {}
            <MI 24790  BRA     0x24874>                                         {}
        <POP 24794-24798 Naked>                              Σ0         ↓ →0x247a4 ←0x2477e
            <MI 24794  CMP.B   #0x2d,D7>                                        {}
            <MI 24796  BNE     0x247a4>                                         {}
        <POP 24798-247a4 Naked>                              Σ0         →0x24874
            <MI 24798  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2479a  MOVE.L  #0x1,(A0)>                                       {}
            <MI 247a0  BRA     0x24874>                                         {}
        <POP 247a4-247aa Naked>                              Σ0         ↓ →0x247b6 ←0x24794
            <MI 247a4  CMPI.B  #0x2f,D7>                                        {}
            <MI 247a8  BNE     0x247b6>                                         {}
        <POP 247aa-247b6 Naked>                              Σ0         →0x24874
            <MI 247aa  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 247ac  MOVE.L  #0x4,(A0)>                                       {}
            <MI 247b2  BRA     0x24874>                                         {}
        <POP 247b6-247bc Naked>                              Σ0         ↓ →0x247c8 ←0x247a4
            <MI 247b6  CMPI.B  #0x3d,D7>                                        {}
            <MI 247ba  BNE     0x247c8>                                         {}
        <POP 247bc-247c8 Naked>                              Σ0         →0x24874
            <MI 247bc  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 247be  MOVE.L  #0x5,(A0)>                                       {}
            <MI 247c4  BRA     0x24874>                                         {}
        <POP 247c8-247ce Naked>                              Σ0         ↓ →0x247da ←0x247b6
            <MI 247c8  CMPI.B  #0x5c,D7>                                        {}
            <MI 247cc  BNE     0x247da>                                         {}
        <POP 247ce-247da Naked>                              Σ0         →0x24874
            <MI 247ce  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 247d0  MOVE.L  #0x6,(A0)>                                       {}
            <MI 247d6  BRA     0x24874>                                         {}
        <POP 247da-247de Naked>                              Σ0         ↓ →0x2480a ←0x247c8
            <MI 247da  TST.B   D7>                                              {}
            <MI 247dc  BNE     0x2480a>                                         {}
        <POP 247de-2480a Naked>                              Σ0         →0x24874
            <Blob 0x247de [24] @>                            Δ-24               {[«24""»]}
            <POP 247ea-247ec StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x247ec 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x24800 0x219f2>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 24804-24808 StackAdj>                       Δ+28               {}
            <MI 24808  BRA     0x24874>                                         {}
        <POP 2480a-2480e Naked>                              Σ0         ↓ →0x2483a ←0x247da
            <MI 2480a  CMP.B   #0x30,D7>                                        {}
            <MI 2480c  BCS     0x2483a>                                         {}
        <POP 2480e-24812 Naked>                              Σ0         ↓ →0x2483a
            <MI 2480e  CMP.B   #0x39,D7>                                        {}
            <MI 24810  BHI     0x2483a>                                         {}
        <POP 24812-2481a Naked>                              Σ0         ↓
            <MI 24812  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 24814  MOVE.L  #0x2,(A0)>                                       {}
        <POP 2481a-24826 Naked>                              Σ0         ↓ →0x24830 ←0x24834
            <POP 2481a-2481c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2481c 0x21a50>                                              {[-2-]}
            <MI 24820  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 24822  CMP.B   #0x30,D7>                                        {}
            <MI 24824  BCS     0x24830>                                         {}
        <POP 24826-2482a Naked>                              Σ0         ↓ →0x24830
            <MI 24826  CMP.B   #0x39,D7>                                        {}
            <MI 24828  BHI     0x24830>                                         {}
        <POP 2482a-24830 Naked>                              Σ0         ↓
            <POP 2482a-2482c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2482c 0x21a8e>                                              {[-2-]}
            <MI 2482e  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 24830-24834 Naked>                              Σ0         ↓ →0x24838 ←0x2481a ←0x24826
            <MI 24830  CMP.B   #0x30,D7>                                        {}
            <MI 24832  BCS     0x24838>                                         {}
        <POP 24834-24838 Naked>                              Σ0         ↓ →0x2481a
            <MI 24834  CMP.B   #0x39,D7>                                        {}
            <MI 24836  BLS     0x2481a>                                         {}
        <POP 24838-2483a Naked>                              Σ0         →0x24874 ←0x24830
            <MI 24838  BRA     0x24874>                                         {}
        <POP 2483a-24844 Naked>                              Σ0         ↓ ←0x2480a ←0x2480e
            <MI 2483a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2483c  MOVE.L  #0x3,(A0)>                                       {}
            <MI 24842  MOVEQ.L #0x00,D5>                                        {}
        <POP 24844-24850 Naked>                              Σ0         ↓ →0x24866 ←0x24870
            <POP 24844-24846 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24846 0x21a50>                                              {[-2-]}
            <MI 2484a  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 2484c  CMP.B   #0x25,D7>                                        {}
            <MI 2484e  BEQ     0x24866>                                         {}
        <POP 24850-24854 Naked>                              Σ0         ↓ →0x24866
            <MI 24850  CMP.B   #0x2d,D7>                                        {}
            <MI 24852  BEQ     0x24866>                                         {}
        <POP 24854-2485a Naked>                              Σ0         ↓ →0x24866
            <MI 24854  CMPI.B  #0x2f,D7>                                        {}
            <MI 24858  BEQ     0x24866>                                         {}
        <POP 2485a-24860 Naked>                              Σ0         ↓ →0x24866
            <MI 2485a  CMPI.B  #0x3d,D7>                                        {}
            <MI 2485e  BEQ     0x24866>                                         {}
        <POP 24860-24866 Naked>                              Σ0         ↓ →0x2486a
            <MI 24860  CMPI.B  #0x5c,D7>                                        {}
            <MI 24864  BNE     0x2486a>                                         {}
        <POP 24866-2486a Naked>                              Σ0         →0x24870 ←0x24844 ←0x24850 ←0x24854 ←0x2485a
            <MI 24866  MOVEQ.L #0x01,D5>                                        {}
            <MI 24868  BRA     0x24870>                                         {}
        <POP 2486a-24870 Naked>                              Σ0         ↓ ←0x24860
            <POP 2486a-2486c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2486c 0x21a8e>                                              {[-2-]}
            <MI 2486e  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 24870-24874 Naked>                              Σ0         ↓ →0x24844 ←0x24866
            <MI 24870  TST.B   D5>                                              {}
            <MI 24872  BEQ     0x24844>                                         {}
        <POP 24874-24884 Naked>                              Σ0         ↓ ←0x2478c ←0x24798 ←0x247aa ←0x247bc ←0x247ce ←0x247de ←0x24838
            <MI 24874  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24878  MOVE.L  (A6-0x6),(A0)>                                   {}
            <MI 2487c  MOVE.L  0x26518,(A0+0x4)>                                {}
            <MI 24880  SUBQ.L  #0x1,(A0+0x4)>                                   {}
        <POP 24884-2488c Epilogue>                           Σ0         

0x2488c


@ 2488c
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2488c-24912 Body>                                              
        <POP 2488c-248a2 Prologue>                           Σ0         ↓
        <POP 248a2-248a6 RegCacheLoad>                       Σ0         ↓
        <POP 248a6-248c0 Naked>                              Σ0 Δ-4     ↓ →0x248cc
            <MI 248a6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 248aa  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 248ac  MOVE.L  0x26518,D6>                                      {[4, 'A0']}
            <MI 248b2  SUB.L   (A6+0xc),D6>                                     {[4, 'A0']}
            <MI 248b4  MOVE.L  (A6+0xc),D5>                                     {[4, 'A0']}
            <MI 248b6  ADD.L   D6,D5>                                           {[4, 'A0']}
            <MI 248b8  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 248ba  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 248bc  CMP.L   D6,D0>                                           {[4, 'A0']}
            <MI 248be  BEQ     0x248cc>                                         {[4, 'A0']}
        <POP 248c0-248cc Naked>                              Σ-4        ↓
            <MI 248c0  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 248c2  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']|[4, 'D6']}
            <MI 248c4  SUB.L   D0,(A7)>                                         {[-4-]|[4, 'D5']|[-4-]}
            <Call 0x248c6 0x21f46>                                              {[-4-]|[4, 'D5']|[-4-]}
            <POP 248ca-248cc StackAdj>                       Δ+8                {[-4-]}
        <POP 248cc-248d0 Naked>                              Σ-4 Δ-4    ↓ ←0x248a6
            <MI 248cc  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 248ce  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 248d0-248d4 Naked>                              Σ-8        ↓ →0x24908 ←0x248d4
            <MI 248d0  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 248d2  BGT     0x24908>                                         {[-8-]}
        <POP 248d4-24908 Naked>                              Σ-8        ↓ →0x248d0
            <MI 248d4  MOVE.L  (A6+0xc),D0>                                     {[-8-]}
            <MI 248d6  ADD.L   D7,D0>                                           {[-8-]}
            <MI 248d8  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 248da  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x248dc LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 248e6  LEA.L   0x25510,A0>                                      {[-8-]}
            <MI 248ec  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 248ee  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x248f0 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 248fa  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 248fe  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 24904  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24906  BVC     0x248d0>                                         {[-8-]}
        <POP 24908-2490a Naked>                              Σ-8 Δ+8    ↓ ←0x248d0
            <POP 24908-2490a StackAdj>                       Δ+8                {}
        <POP 2490a-24912 Epilogue>                           Σ0         

0x24912


@ 24912
        <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 24912-24b5a Body>                                   Δ+56       
        <POP 24912-24928 Prologue>                           Σ0         ↓
        <POP 24928-2493a RegCacheLoad>                       Σ0         ↓
        <POP 2493a-2495e Naked>                              Σ0         ↓
            <MI 2493a  MOVE.L  0x26518,(A6-0x28)>                               {}
            <Pointer.fp 0x24942 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x24944 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <POP 2494a-2494c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2494c <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x24950 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x24952 0x24752>                                              {[@@-12]|[@@-20]}
            <POP 24956-24958 StackAdj>                       Δ+8                {}
            <MI 24958  CLR.L   (A6-0x34)>                                       {}
            <MI 2495c  MOVEQ.L #0x00,D7>                                        {}
        <POP 2495e-24972 Naked>                              Σ0         →0x2499c →0x249a6 →0x249ba →0x249d6 →0x249da →0x249e8 →0x249fc →0x24a02 →0x24a04 →0x24a1a →0x24a28 →0x24a40 →0x24a54 →0x24a68 →0x24a7e →0x24a80 →0x24a9a →0x24ab0 →0x24abe →0x24ac0 →0x24ac2 ←0x24b36
            <MI 2495e  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x24962 LimitCheck 0x0 ≤ D0 ≤ 0x14>                            {}
            <MI 24968  ADD.W   D0,D0>                                           {}
            <MI 2496a  SWITCH  D0.W>                                            {}
        <POP 2499c-249a6 Naked>                              Σ0         →0x24aec ←0x2495e
            <MI 2499c  MOVEQ.L #0x00,D6>                                        {}
            <MI 2499e  MOVE.L  (A6+0x8),D5>                                     {}
            <MI 249a2  BRA     0x24aec>                                         {}
        <POP 249a6-249ba Naked>                              Σ0         →0x24aec ←0x2495e
            <POP 249a6-249a8 StackAdj>                       Δ-4                {[-4-]}
            <MI 249a8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 249ac  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x249ae 0x24230>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 249b2-249b4 StackAdj>                       Δ+8                {[-4-]}
            <MI 249b4  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 249b6  BRA     0x24aec>                                         {}
        <POP 249ba-249c2 Naked>                              Σ0 Δ-12    ↓ ←0x2495e
            <MI 249ba  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 249be  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 249c0  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
        <POP 249c2-249d2 Naked>                              Σ-12 Δ+12  →0x24b48 ←0x249da
            <MI 249c2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <Call 0x249c6 0x242ac>                                              {[-12-]|[4, '(A6+0xc)']}
            <POP 249ca-249ce StackAdj>                       Δ+16               {}
            <MI 249ce  BRA     0x24b48>                                         {}
        <POP 249d6-249da Naked>                              Σ0         →0x24aec ←0x2495e
            <MI 249d6  BRA     0x24aec>                                         {}
        <POP 249da-249e4 Naked>                              Σ0 Δ-12    →0x249c2 ←0x2495e
            <MI 249da  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 249de  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 249e0  MOVE.L  D5,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
            <MI 249e2  BRA     0x249c2>                                         {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
        <POP 249e8-249fc Naked>                              Σ0         →0x24aec ←0x2495e ←0x24a02
            <POP 249e8-249ea StackAdj>                       Δ-4                {[-4-]}
            <MI 249ea  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 249ee  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x249f0 0x24230>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 249f4-249f6 StackAdj>                       Δ+8                {[-4-]}
            <MI 249f6  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 249f8  BRA     0x24aec>                                         {}
        <POP 249fc-24a02 Naked>                              Σ0         →0x24aec ←0x2495e
            <MI 249fc  MOVEQ.L #0x01,D6>                                        {}
            <MI 249fe  BRA     0x24aec>                                         {}
        <POP 24a02-24a04 Naked>                              Σ0         →0x249e8 ←0x2495e
            <MI 24a02  BRA     0x249e8>                                         {}
        <POP 24a04-24a1a Naked>                              Σ0         →0x24aec ←0x2495e
            <POP 24a04-24a06 StackAdj>                       Δ-8                {[-8-]}
            <MI 24a06  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']}
            <MI 24a0a  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24a0c 0x2263c>                                              {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24a10-24a12 StackAdj>                       Δ+8                {[-8-]}
            <MI 24a12  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-4-]}
            <MI 24a14  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {}
            <MI 24a16  BRA     0x24aec>                                         {}
        <POP 24a1a-24a28 Naked>                              Σ0         →0x24aec ←0x2495e
            <MI 24a1a  MOVE.L  (A6-0x14),(A6-0x1c)>                             {}
            <MI 24a1e  MOVE.L  (A6-0x10),(A6-0x18)>                             {}
            <MI 24a24  BRA     0x24aec>                                         {}
        <POP 24a28-24a3a Naked>                              Σ0 Δ-20    ↓ ←0x2495e
            <MI 24a28  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24a2a  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24a2c  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24a2e  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24a32  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24a36 0x2455e>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 24a3a-24a40 Naked>                              Σ-20 Δ+20  →0x24aec ←0x24a40
            <POP 24a3a-24a3c StackAdj>                       Δ+20               {}
            <MI 24a3c  BRA     0x24aec>                                         {}
        <POP 24a40-24a54 Naked>                              Σ0 Δ-20    →0x24a3a ←0x2495e
            <MI 24a40  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24a42  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24a44  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24a46  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24a4a  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24a4e 0x244ca>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24a52  BRA     0x24a3a>                                         {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 24a54-24a5e Naked>                              Σ0 Δ-12    ↓ ←0x2495e
            <MI 24a54  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24a56  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24a58  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x24a5a 0x24614>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
        <POP 24a5e-24a62 Naked>                              Σ-12 Δ+12  ↓ ←0x24a9a
            <POP 24a5e-24a62 StackAdj>                       Δ+12               {}
        <POP 24a62-24a68 Naked>                              Σ0         →0x24aec ←0x24a68 ←0x24a7e ←0x24ac0
            <MI 24a62  MOVEQ.L #0x01,D7>                                        {}
            <MI 24a64  BRA     0x24aec>                                         {}
        <POP 24a68-24a7e Naked>                              Σ0         →0x24a62 ←0x2495e
            <MI 24a68  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24a6a  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 24a6c  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 24a6e  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 24a72  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24a76 0x244ca>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 24a7a-24a7c StackAdj>                       Δ+20               {}
            <MI 24a7c  BRA     0x24a62>                                         {}
        <POP 24a7e-24a80 Naked>                              Σ0         →0x24a62 ←0x2495e
            <MI 24a7e  BRA     0x24a62>                                         {}
        <POP 24a80-24a94 Naked>                              Σ0 Δ-12    ↓ ←0x2495e
            <MI 24a80  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 24a82-24a84 StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 24a84  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 24a88  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24a8a 0x2263c>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24a8e-24a90 StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x24a90 0x24614>                                              {[4, '(A6-0x8)']|[-8-]}
        <POP 24a94-24a9a Naked>                              Σ-12 Δ+12  →0x24aec ←0x24ab0
            <POP 24a94-24a98 StackAdj>                       Δ+12               {}
            <MI 24a98  BRA     0x24aec>                                         {}
        <POP 24a9a-24ab0 Naked>                              Σ0 Δ-12    →0x24a5e ←0x2495e
            <MI 24a9a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 24a9c-24a9e StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 24a9e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 24aa2  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x24aa4 0x2263c>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 24aa8-24aaa StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x24aaa 0x2469a>                                              {[4, '(A6-0x8)']|[-8-]}
            <MI 24aae  BRA     0x24a5e>                                         {[4, '(A6-0x8)']|[-8-]}
        <POP 24ab0-24abe Naked>                              Σ0 Δ-12    →0x24a94 ←0x2495e
            <MI 24ab0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24ab2  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
            <MI 24ab6  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x24ab8 0x2470a>                                              {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <MI 24abc  BRA     0x24a94>                                         {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
        <POP 24abe-24ac0 Naked>                              Σ0         →0x24aec ←0x2495e
            <MI 24abe  BRA     0x24aec>                                         {}
        <POP 24ac0-24ac2 Naked>                              Σ0         →0x24a62 ←0x2495e
            <MI 24ac0  BRA     0x24a62>                                         {}
        <POP 24ac2-24aec Naked>                              Σ0         ↓ ←0x2495e
            <Blob 0x24ac2 [24] @>                            Δ-24               {[«24""»]}
            <POP 24ace-24ad0 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x24ad0 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x24ae4 0x219f2>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 24ae8-24aec StackAdj>                       Δ+28               {}
        <POP 24aec-24af0 Naked>                              Σ0         ↓ →0x24b36 ←0x2499c ←0x249a6 ←0x249d6 ←0x249e8 ←0x249fc ←0x24a04 ←0x24a1a ←0x24a3a ←0x24a62 ←0x24a94 ←0x24abe
            <MI 24aec  TST.B   D7>                                              {}
            <MI 24aee  BNE     0x24b36>                                         {}
        <POP 24af0-24b36 Naked>                              Σ0         ↓
            <Pointer.fp 0x24af0 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x24af4 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x24af6 0x24752>                                              {[@@-12]|[@@-20]}
            <POP 24afa-24afc StackAdj>                       Δ+8                {}
            <MI 24afc  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x24b00 LimitCheck 0x0 ≤ D0 ≤ 0x13>                            {}
            <MI 24b0a  MOVE.L  D0,D4>                                           {}
            <MI 24b0c  MOVEQ.L #0x07,D3>                                        {}
            <Call 0x24b0e 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 24b14  LEA.L   0x21924,A0>                                      {}
            <MI 24b18  MOVE.L  (A6-0xc),D0>                                     {}
            <POP 0x24b1c LimitCheck 0x0 ≤ D0 ≤ 0x6>                             {}
            <MI 24b26  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 24b2a  MOVE.B  (A0+D0.L),D1>                                    {}
            <MI 24b2e  EXTB.W  D1>                                              {}
            <MI 24b30  EXTW.L  D1>                                              {}
            <MI 24b32  MOVE.L  D1,(A6-0x34)>                                    {}
        <POP 24b36-24b3c Naked>                              Σ0         ↓ →0x2495e ←0x24aec
            <MI 24b36  TST.B   D7>                                              {}
            <MI 24b38  BEQ     0x2495e>                                         {}
        <POP 24b3c-24b48 Naked>                              Σ0         ↓
            <MI 24b3c  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 24b40  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <Call 0x24b42 0x2488c>                                              {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <POP 24b46-24b48 StackAdj>                       Δ+8                {}
        <POP 24b48-24b52 Naked>                              Σ0         ↓ ←0x249c2
            <Pointer.fp 0x24b48 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x24b4a 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 24b50-24b52 StackAdj>                       Δ+4                {}
        <POP 24b52-24b5a Epilogue>                           Σ0         

0x24b5a


@ 24b5a
        <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 24b5a-24c52 Body>                                   Δ-12       
        <POP 24b5a-24b70 Prologue>                           Σ0         ↓
        <POP 24b70-24b82 RegCacheLoad>                       Σ0         ↓
        <POP 24b82-24baa Naked>                              Σ0 Δ-4     ↓
            <MI 24b82  CLR.L   (A6+0x14)>                                       {}
            <POP 24b86-24b88 StackAdj>                       Δ-4                {[-4-]}
            <MI 24b88  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 24b8a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x24b8c 0x22604>                                              {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <POP 24b90-24b92 StackAdj>                       Δ+8                {[-4-]}
            <MI 24b92  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 24b94  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24b98  MOVE.W  (A0),D0>                                         {}
            <MI 24b9a  EXTW.L  D0>                                              {}
            <MI 24b9c  ADDQ.L  #0x1,D0>                                         {}
            <MI 24b9e  MOVE.L  D0,(A6-0x8)>                                     {}
            <MI 24ba0  NEG.L   D0>                                              {}
            <MI 24ba2  ADD.L   (A6-0xc),D0>                                     {}
            <MI 24ba4  ADDQ.L  #0x1,D0>                                         {}
            <MI 24ba6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 24ba8  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 24baa-24bb0 Naked>                              Σ-4        ↓ →0x24c48 ←0x24c40
            <MI 24baa  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 24bac  BGT     0x24c48>                                         {[-4-]}
        <POP 24bb0-24bbc Naked>                              Σ-4 Δ-8    ↓
            <MI 24bb0  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 24bb4  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 24bb6  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 24bb8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 24bba  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 24bbc-24bc0 Naked>                              Σ-12       ↓ →0x24c08 ←0x24c02
            <MI 24bbc  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 24bbe  BGT     0x24c08>                                         {[-12-]}
        <POP 24bc0-24bc8 Naked>                              Σ-12       ↓ →0x24bcc
            <MI 24bc0  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 24bc6  BNE     0x24bcc>                                         {[-12-]}
        <POP 24bc8-24bcc Naked>                              Σ-12       →0x24be4
            <MI 24bc8  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 24bca  BRA     0x24be4>                                         {[-12-]}
        <POP 24bcc-24be4 Naked>                              Σ-12       ↓ ←0x24bc0
            <MI 24bcc  MOVEA.L (A6+0x8),A0>                                     {[-12-]}
            <MI 24bd0  MOVE.L  D5,D0>                                           {[-12-]}
            <MI 24bd2  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <MI 24bd4  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x24bd6 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 24be0  MOVE.B  (A0+D0.L+#0x2),D7>                               {[-12-]}
        <POP 24be4-24bfe Naked>                              Σ-12       ↓ →0x24c02 ←0x24bc8
            <POP 24be4-24be6 StackAdj>                       Δ-2                {[-14-]}
            <MI 24be6  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x10)']}
            <MI 24be8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24bea  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24bee  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24bf0  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24bf2  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <Call 0x24bf4 0x241f0>                                              {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <POP 24bf8-24bfa StackAdj>                       Δ+12               {[-14-]}
            <MI 24bfa  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 24bfc  BEQ     0x24c02>                                         {[-12-]}
        <POP 24bfe-24c02 Naked>                              Σ-12 Δ+4   →0x24c0a
            <POP 24bfe-24c00 StackAdj>                       Δ+4                {[-8-]}
            <MI 24c00  BRA     0x24c0a>                                         {[-8-]}
        <POP 24c02-24c08 Naked>                              Σ-12       ↓ →0x24bbc ←0x24be4
            <MI 24c02  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 24c04  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 24c06  BVC     0x24bbc>                                         {[-12-]}
        <POP 24c08-24c0a Naked>                              Σ-12 Δ+4   ↓ ←0x24bbc
            <POP 24c08-24c0a StackAdj>                       Δ+4                {[-8-]}
        <POP 24c0a-24c0e Naked>                              Σ-8        ↓ →0x24c40 ←0x24bfe
            <MI 24c0a  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 24c0c  BNE     0x24c40>                                         {[-8-]}
        <POP 24c0e-24c18 Naked>                              Σ-8        ↓ →0x24c3e
            <MI 24c0e  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 24c10  MOVE.L  D0,D1>                                           {[-8-]}
            <MI 24c12  ADD.L   (A6-0x8),D1>                                     {[-8-]}
            <MI 24c14  CMP.L   (A6-0xc),D1>                                     {[-8-]}
            <MI 24c16  BGE     0x24c3e>                                         {[-8-]}
        <POP 24c18-24c2e Naked>                              Σ-8        ↓ →0x24c34
            <POP 24c18-24c1a StackAdj>                       Δ-2                {[-10-]}
            <MI 24c1a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x10)']}
            <MI 24c1c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 24c1e  MOVE.L  D1,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <Call 0x24c20 0x241f0>                                              {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <POP 24c24-24c26 StackAdj>                       Δ+12               {[-10-]}
            <MI 24c26  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 24c28  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 24c2c  BEQ     0x24c34>                                         {[-8-]}
        <POP 24c2e-24c34 Naked>                              Σ-8        ↓ →0x24c3c
            <MI 24c2e  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 24c32  BNE     0x24c3c>                                         {[-8-]}
        <POP 24c34-24c3c Naked>                              Σ-8 Δ+8    →0x24c4a ←0x24c18 ←0x24c3e
            <MI 24c34  MOVE.L  D0,(A6+0x14)>                                    {[-8-]}
            <POP 24c38-24c3a StackAdj>                       Δ+8                {}
            <MI 24c3a  BRA     0x24c4a>                                         {}
        <POP 24c3c-24c3e Naked>                              Σ-8        →0x24c40 ←0x24c2e
            <MI 24c3c  BRA     0x24c40>                                         {[-8-]}
        <POP 24c3e-24c40 Naked>                              Σ-8        →0x24c34 ←0x24c0e
            <MI 24c3e  BRA     0x24c34>                                         {[-8-]}
        <POP 24c40-24c48 Naked>                              Σ-8 Δ+4    ↓ →0x24baa ←0x24c0a ←0x24c3c
            <MI 24c40  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 24c42  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 24c44  BVC     0x24baa>                                         {[-4-]}
        <POP 24c48-24c4a Naked>                              Σ-4 Δ+4    ↓ ←0x24baa
            <POP 24c48-24c4a StackAdj>                       Δ+4                {}
        <POP 24c4a-24c52 Epilogue>                           Σ0         ←0x24c34

0x24c52


@ 24c52
        <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 24c52-24d3a Body>                                   Δ-12       
        <POP 24c52-24c68 Prologue>                           Σ0         ↓
        <POP 24c68-24c78 RegCacheLoad>                       Σ0         ↓
        <POP 24c78-24c9e Naked>                              Σ0         ↓ →0x24d32
            <MI 24c78  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24c7c  CLR.B   (A0)>                                            {}
            <MI 24c7e  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 24c82  MOVE.L  #0x01,(A1)>                                      {}
            <POP 24c84-24c86 StackAdj>                       Δ-8                {[-8-]}
            <MI 24c86  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 24c8a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <Call 0x24c8e 0x2263c>                                              {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <POP 24c92-24c94 StackAdj>                       Δ+8                {[-8-]}
            <MI 24c94  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-4-]}
            <MI 24c96  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {}
            <MI 24c98  TST.L   (A6-0x1c)>                                       {}
            <MI 24c9a  BEQ     0x24d32>                                         {}
        <POP 24c9e-24cb4 Naked>                              Σ0         ↓ →0x24d32
            <POP 24c9e-24ca0 StackAdj>                       Δ-4                {[-4-]}
            <MI 24ca0  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']}
            <MI 24ca2  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24ca4  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <Call 0x24ca8 0x24b5a>                                              {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <POP 24cac-24cae StackAdj>                       Δ+12               {[-4-]}
            <MI 24cae  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 24cb2  BEQ     0x24d32>                                         {}
        <POP 24cb4-24cd4 Naked>                              Σ0 Δ-4     ↓
            <MI 24cb4  MOVE.B  #0x01,(A0)>                                      {}
            <MI 24cb6  PEA.L   (A1)>                         Δ-4                {[4, '^(A1)']}
            <Call 0x24cb8 0x102b8>                                              {[4, '^(A1)']}
                NewString(VAR a : String)
            <MI 24cbe  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']}
            <MI 24cc0  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x24cc2 0x22604>                                              {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 24cc6-24cc8 StackAdj>                       Δ+8                {[4, '^(A1)']}
            <MI 24cc8  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 24cca  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 24cce  ADDQ.L  #0x1,D0>                                         {}
            <MI 24cd0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 24cd2  MOVE.L  D0,D5>                                           {[4, '(A6-0x8)']}
        <POP 24cd4-24cd8 Naked>                              Σ-4        ↓ →0x24d30 ←0x24d2c
            <MI 24cd4  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 24cd6  BGT     0x24d30>                                         {[-4-]}
        <POP 24cd8-24cee Naked>                              Σ-4        ↓ →0x24d2c
            <POP 24cd8-24cda StackAdj>                       Δ-2                {[-6-]}
            <MI 24cda  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']}
            <MI 24cdc  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24cde  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <Call 0x24ce0 0x241f0>                                              {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <POP 24ce4-24ce6 StackAdj>                       Δ+12               {[-6-]}
            <MI 24ce6  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 24ce8  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 24cec  BNE     0x24d2c>                                         {[-4-]}
        <POP 24cee-24cf6 Naked>                              Σ-4 Δ-4    ↓
            <MI 24cee  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 24cf0  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 24cf2  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 24cf4  MOVE.L  D0,D7>                                           {[-4-]|[4, '(A6-0x8)']}
        <POP 24cf6-24cfa Naked>                              Σ-8        ↓ →0x24d28 ←0x24d14
            <MI 24cf6  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 24cf8  BGT     0x24d28>                                         {[-8-]}
        <POP 24cfa-24d10 Naked>                              Σ-8        ↓ →0x24d14
            <POP 24cfa-24cfc StackAdj>                       Δ-2                {[-10-]}
            <MI 24cfc  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']}
            <MI 24cfe  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 24d00  MOVE.L  D7,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <Call 0x24d02 0x241f0>                                              {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <POP 24d06-24d08 StackAdj>                       Δ+12               {[-10-]}
            <MI 24d08  MOVE.B  (A7)+,D6>                     Δ+2                {[-8-]}
            <MI 24d0a  CMPI.B  #0x2f,D6>                                        {[-8-]}
            <MI 24d0e  BNE     0x24d14>                                         {[-8-]}
        <POP 24d10-24d14 Naked>                              Σ-8 Δ+8    →0x24d32
            <POP 24d10-24d12 StackAdj>                       Δ+8                {}
            <MI 24d12  BRA     0x24d32>                                         {}
        <POP 24d14-24d28 Naked>                              Σ-8        ↓ →0x24cf6 ←0x24cfa
            <MI 24d14  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 24d18  MOVE.L  (A0),-(A7)>                   Δ-4                {[-8-]|[4, '(A0)']}
            <MI 24d1a  MOVE.B  D6,-(A7)>                     Δ-2                {[-8-]|[4, '(A0)']|[2, 'D6']}
            <Call 0x24d1c 0x102c0>                                              {[-8-]|[4, '(A0)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 24d22-24d24 StackAdj>                       Δ+6                {[-8-]}
            <MI 24d24  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24d26  BVC     0x24cf6>                                         {[-8-]}
        <POP 24d28-24d2c Naked>                              Σ-8 Δ+8    →0x24d32 ←0x24cf6
            <POP 24d28-24d2a StackAdj>                       Δ+8                {}
            <MI 24d2a  BRA     0x24d32>                                         {}
        <POP 24d2c-24d30 Naked>                              Σ-4        ↓ →0x24cd4 ←0x24cd8
            <MI 24d2c  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 24d2e  BVC     0x24cd4>                                         {[-4-]}
        <POP 24d30-24d32 Naked>                              Σ-4 Δ+4    ↓ ←0x24cd4
            <POP 24d30-24d32 StackAdj>                       Δ+4                {}
        <POP 24d32-24d3a Epilogue>                           Σ0         ←0x24c78 ←0x24c9e ←0x24d10 ←0x24d28

0x24d3a


@ 24d3a
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 1(r)>
    <POP 24d3a-24dd8 Body>                                              
        <POP 24d3a-24d50 Prologue>                           Σ0         ↓
        <POP 24d50-24d5e RegCacheLoad>                       Σ0         ↓
        <POP 24d5e-24d76 Naked>                              Σ0         ↓ →0x24dc6
            <MI 24d5e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 24d60  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x24d62 <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
            <Call 0x24d66 0x2123e>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
            <POP 24d6c-24d70 StackAdj>                       Δ+12               {}
            <MI 24d70  TST.B   (A6-0x10)>                                       {}
            <MI 24d74  BNE     0x24dc6>                                         {}
        <POP 24d76-24d90 Naked>                              Σ0         ↓
            <MI 24d76  MOVE.L  0x26518,D7>                                      {}
            <POP 24d78-24d7a StackAdj>                       Δ-4                {[-4-]}
            <MI 24d7a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x24d7c 0x21dfe>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 24d80-24d82 StackAdj>                       Δ+4                {[-4-]}
            <MI 24d82  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 24d84  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 24d86  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x24d88 0x240b4>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 24d8c-24d8e StackAdj>                       Δ+8                {}
            <MI 24d8e  MOVE.L  0x26518,D5>                                      {}
        <POP 24d90-24dae Naked>                              Σ0         ↓ →0x24dba ←0x24dba
            <MI 24d90  MOVE.L  D7,D0>                                           {}
            <MI 24d92  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x24d94 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 24d9e  LEA.L   0x25510,A0>                                      {}
            <MI 24da4  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 24da8  CMPI.B  #0x25,D0>                                        {}
            <MI 24dac  BNE     0x24dba>                                         {}
        <POP 24dae-24dba Naked>                              Σ0         ↓
            <MI 24dae  MOVE.L  D7,0x26518>                                      {}
            <MI 24db0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 24db2  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x24db4 0x24912>                                              {[4, '(A6+0x8)']|[4, 'D6']}
            <POP 24db8-24dba StackAdj>                       Δ+8                {}
        <POP 24dba-24dc4 Naked>                              Σ0         ↓ →0x24d90 ←0x24d90
            <MI 24dba  ADDQ.L  #0x1,D7>                                         {}
            <MI 24dbc  CMP.L   0x2651c,D7>                                      {}
            <MI 24dc2  BLE     0x24d90>                                         {}
        <POP 24dc4-24dc6 Naked>                              Σ0         ↓
            <MI 24dc4  MOVE.L  D5,0x26518>                                      {}
        <POP 24dc6-24dd0 Naked>                              Σ0         ↓ ←0x24d5e
            <Pointer.fp 0x24dc6 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x24dc8 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 24dce-24dd0 StackAdj>                       Δ+4                {}
        <POP 24dd0-24dd8 Epilogue>                           Σ0         

0x24dd8


@ 24dd8
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00b 1(w)>
        <LVAR -0x00c @ 1(r)>
    <POP 24dd8-250ea Body>                                   Δ+148      
        <POP 24dd8-24dee Prologue>                           Σ0         ↓
        <POP 24dee-24dfc RegCacheLoad>                       Σ0         ↓
        <POP 24dfc-24e22 Naked>                              Σ0         ↓ →0x250cc ←0x250cc
            <MI 24dfc  MOVE.L  0x26518,D7>                                      {}
            <Pointer.fp 0x24dfe <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Pointer.fp 0x24e00 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-6]|[@@-12]}
            <Call 0x24e04 0x21d52>                                              {[@@-6]|[@@-12]}
            <POP 24e08-24e0a StackAdj>                       Δ+8                {}
            <MI 24e0a  MOVE.L  0x26518,D6>                                      {}
            <POP 24e0c-24e0e StackAdj>                       Δ-4                {[-4-]}
            <MI 24e0e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Call 0x24e10 0x21dfe>                                              {[-4-]|[4, '(A6-0x6)']}
            <POP 24e14-24e16 StackAdj>                       Δ+4                {[-4-]}
            <MI 24e16  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 24e18  CMPI.L  #0xffffffff,D0>                                  {}
            <MI 24e1e  BEQ     0x250cc>                                         {}
        <POP 24e22-24e4c Naked>                              Σ0         ↓ →0x24e5a
            <POP 24e22-24e24 StackAdj>                       Δ-4                {[-4-]}
            <MI 24e24  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Const 0x24e26 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x6)']|[##0]}
            <Call 0x24e2a 0x2271a>                                              {[-4-]|[4, '(A6-0x6)']|[##0]}
            <POP 24e2e-24e30 StackAdj>                       Δ+8                {[-4-]}
            <MI 24e30  MOVE.L  (A7),(A6-0xa)>                                   {[-4-]}
            <POP 24e32-24e34 StackAdj>                       Δ+2                {[-2-]}
            <MI 24e34  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <Call 0x24e36 0x23ffc>                                              {[-2-]|[4, '(A6-0xa)']}
            <POP 24e3a-24e3c StackAdj>                       Δ+4                {[-2-]}
            <MI 24e3c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 24e3e  EXTB.W  D0>                                              {}
            <POP 0x24e40 LimitCheck 0x0 ≤ D0 ≤ 0x2b>                            {}
            <MI 24e44  MOVE.B  D0,(A6-0xb)>                                     {}
            <MI 24e48  TST.B   D0>                                              {}
            <MI 24e4a  BNE     0x24e5a>                                         {}
        <POP 24e4c-24e5a Naked>                              Σ0         →0x250c4
            <MI 24e4c  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 24e4e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <Call 0x24e50 0x24d3a>                                              {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <POP 24e54-24e56 StackAdj>                       Δ+8                {}
            <MI 24e56  BRA     0x250c4>                                         {}
        <POP 24e5a-24e90 Naked>                              Σ0         ↓ →0x24ebc ←0x24e22
            <Pointer.fp 0x24e5a <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x24e5c 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 24e62-24e64 StackAdj>                       Δ+4                {}
            <MI 24e64  MOVE.B  D0,D1>                                           {}
            <MI 24e66  EXTB.W  D1>                                              {}
            <POP 0x24e68 LimitCheck 0x0 ≤ D1 ≤ 0x2b>                            {}
            <MI 24e6c  LEA.L   0x218f4,A0>                                      {}
            <MI 24e70  MOVE.W  D1,D0>                                           {}
            <MI 24e72  EXTW.L  D0>                                              {}
            <MI 24e74  MOVE.L  D0,D2>                                           {}
            <MI 24e76  ROR.L   #0x1,D2>                                         {}
            <MI 24e78  ADDA.W  D2,A0>                                           {}
            <MI 24e7a  SWAP.W  D2>                                              {}
            <MI 24e7c  ROL.W   #0x3,D2>                                         {}
            <MI 24e7e  CLR.L   D3>                                              {}
            <MI 24e80  MOVE.B  (A0),D3>                                         {}
            <MI 24e82  LSL.B   D2,D3>                                           {}
            <MI 24e84  LSR.B   #0x4,D3>                                         {}
            <MI 24e86  MOVE.L  D3,D5>                                           {}
            <MI 24e88  CMPI.L  #0x0000000f,D5>                                  {}
            <MI 24e8e  BEQ     0x24ebc>                                         {}
        <POP 24e90-24ebc Naked>                              Σ0         ↓
            <MI 24e90  MOVE.L  D0,D4>                                           {}
            <MI 24e92  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x24e94 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 24e9a  LEA.L   0x21726,A0>                                      {}
            <Blob 0x24e9e [10] (A0+D4.W)>                    Δ-10               {[«10»]}
            <MI 24eb0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«10»]|[4, '(A6-0x6)']}
            <MI 24eb2  MOVE.L  D5,-(A7)>                     Δ-4                {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <Call 0x24eb4 0x21e34>                                              {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <POP 24eb8-24ebc StackAdj>                       Δ+18               {}
        <POP 24ebc-24ed0 Naked>                              Σ0         →0x24f26 →0x24f32 →0x24f44 →0x24f52 →0x250b6 →0x24f5a →0x24f5e →0x24f66 →0x24f6e →0x24f76 →0x24f7e →0x24f86 →0x24f8e →0x24f96 →0x24f9e →0x24fa6 →0x24fb0 →0x24fba →0x24fc4 →0x24fce →0x24fd8 →0x24fe2 →0x24fec →0x24ff6 →0x25000 →0x2500a →0x25014 →0x2501e →0x25028 →0x25032 →0x2503c →0x25046 →0x25050 →0x2505a →0x25064 →0x2506e →0x25078 →0x25082 →0x25088 →0x25092 →0x2509c →0x250a6 →0x250ac ←0x24e5a
            <MI 24ebc  SUBQ.W  #0x1,D1>                                         {}
            <POP 0x24ebe LimitCheck 0x0 ≤ D1 ≤ 0x2a>                            {}
            <MI 24ec6  ADD.W   D1,D1>                                           {}
            <MI 24ec8  SWITCH  D1.W>                                            {}
        <POP 24f26-24f2c Naked>                              Σ0 Δ-4     ↓ ←0x24ebc
            <MI 24f26  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f28 0x228a2>                                              {[4, '(A6-0x6)']}
        <POP 24f2c-24f32 Naked>                              Σ-4 Δ+4    →0x250c4 ←0x24f44 ←0x24f52 ←0x24f5e ←0x24f66 ←0x24f6e ←0x24f76 ←0x24f7e ←0x24f86 ←0x24f8e ←0x24f96 ←0x24f9e ←0x24fa6 ←0x24fb0 ←0x24fba ←0x24fc4 ←0x24fce ←0x24fd8 ←0x24fe2 ←0x24fec ←0x24ff6 ←0x25000 ←0x2500a ←0x25014 ←0x2501e ←0x25028 ←0x25032 ←0x2503c ←0x25046 ←0x25050 ←0x2505a ←0x25064 ←0x2506e ←0x25078 ←0x25088 ←0x25092 ←0x2509c ←0x250ac
            <POP 24f2c-24f2e StackAdj>                       Δ+4                {}
            <MI 24f2e  BRA     0x250c4>                                         {}
        <POP 24f32-24f44 Naked>                              Σ0         →0x250c4 ←0x24ebc
            <MI 24f32  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x24f34 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x24f38 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 24f3e-24f40 StackAdj>                       Δ+6                {}
            <MI 24f40  BRA     0x250c4>                                         {}
        <POP 24f44-24f52 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <POP 24f44-24f46 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x24f46 0x102ac>                                              {[-4-]}
                FSCALL_102ac
            <Call 0x24f4c 0x22878>                                              {[-4-]}
            <MI 24f50  BRA     0x24f2c>                                         {[-4-]}
        <POP 24f52-24f5a Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f52  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f54 0x22a7c>                                              {[4, '(A6-0x6)']}
            <MI 24f58  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f5a-24f5e Naked>                              Σ0         →0x250c4 ←0x24ebc
            <MI 24f5a  BRA     0x250c4>                                         {}
        <POP 24f5e-24f66 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f5e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f60 0x22da2>                                              {[4, '(A6-0x6)']}
            <MI 24f64  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f66-24f6e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f66  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f68 0x22f0e>                                              {[4, '(A6-0x6)']}
            <MI 24f6c  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f6e-24f76 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f6e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f70 0x22ffc>                                              {[4, '(A6-0x6)']}
            <MI 24f74  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f76-24f7e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f76  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f78 0x233f0>                                              {[4, '(A6-0x6)']}
            <MI 24f7c  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f7e-24f86 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f7e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f80 0x23468>                                              {[4, '(A6-0x6)']}
            <MI 24f84  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f86-24f8e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f86  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f88 0x234e0>                                              {[4, '(A6-0x6)']}
            <MI 24f8c  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f8e-24f96 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f8e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f90 0x2350c>                                              {[4, '(A6-0x6)']}
            <MI 24f94  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f96-24f9e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f96  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24f98 0x2360c>                                              {[4, '(A6-0x6)']}
            <MI 24f9c  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24f9e-24fa6 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24f9e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fa0 0x236f2>                                              {[4, '(A6-0x6)']}
            <MI 24fa4  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fa6-24fb0 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fa6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fa8 0x2371e>                                              {[4, '(A6-0x6)']}
            <MI 24fac  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fb0-24fba Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fb0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fb2 0x2376a>                                              {[4, '(A6-0x6)']}
            <MI 24fb6  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fba-24fc4 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fba  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fbc 0x237b6>                                              {[4, '(A6-0x6)']}
            <MI 24fc0  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fc4-24fce Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fc4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fc6 0x23802>                                              {[4, '(A6-0x6)']}
            <MI 24fca  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fce-24fd8 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fce  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fd0 0x2384e>                                              {[4, '(A6-0x6)']}
            <MI 24fd4  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fd8-24fe2 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fd8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fda 0x2389a>                                              {[4, '(A6-0x6)']}
            <MI 24fde  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fe2-24fec Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fe2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fe4 0x238e6>                                              {[4, '(A6-0x6)']}
            <MI 24fe8  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24fec-24ff6 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24fec  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24fee 0x23930>                                              {[4, '(A6-0x6)']}
            <MI 24ff2  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 24ff6-25000 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 24ff6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24ff8 0x2397a>                                              {[4, '(A6-0x6)']}
            <MI 24ffc  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25000-2500a Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25000  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25002 0x239c4>                                              {[4, '(A6-0x6)']}
            <MI 25006  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2500a-25014 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2500a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2500c 0x23a0e>                                              {[4, '(A6-0x6)']}
            <MI 25010  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25014-2501e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25014  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25016 0x23a58>                                              {[4, '(A6-0x6)']}
            <MI 2501a  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2501e-25028 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2501e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25020 0x23aa2>                                              {[4, '(A6-0x6)']}
            <MI 25024  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25028-25032 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25028  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2502a 0x23aec>                                              {[4, '(A6-0x6)']}
            <MI 2502e  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25032-2503c Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25032  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25034 0x23b36>                                              {[4, '(A6-0x6)']}
            <MI 25038  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2503c-25046 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2503c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2503e 0x23b7a>                                              {[4, '(A6-0x6)']}
            <MI 25042  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25046-25050 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25046  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25048 0x23bc0>                                              {[4, '(A6-0x6)']}
            <MI 2504c  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25050-2505a Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25050  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25052 0x23bf6>                                              {[4, '(A6-0x6)']}
            <MI 25056  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2505a-25064 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2505a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2505c 0x23c86>                                              {[4, '(A6-0x6)']}
            <MI 25060  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25064-2506e Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25064  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25066 0x23cf8>                                              {[4, '(A6-0x6)']}
            <MI 2506a  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2506e-25078 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2506e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25070 0x2305e>                                              {[4, '(A6-0x6)']}
            <MI 25074  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25078-25082 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25078  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2507a 0x230c8>                                              {[4, '(A6-0x6)']}
            <MI 2507e  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25082-25088 Naked>                              Σ0         →0x250c4 ←0x24ebc
            <Call 0x25082 0x2309a>                                              {}
            <MI 25086  BRA     0x250c4>                                         {}
        <POP 25088-25092 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25088  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2508a 0x23d6a>                                              {[4, '(A6-0x6)']}
            <MI 2508e  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 25092-2509c Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 25092  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x25094 0x23dec>                                              {[4, '(A6-0x6)']}
            <MI 25098  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 2509c-250a6 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 2509c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2509e 0x23e6c>                                              {[4, '(A6-0x6)']}
            <MI 250a2  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 250a6-250ac Naked>                              Σ0         →0x250c4 ←0x24ebc
            <Call 0x250a6 0x23f30>                                              {}
            <MI 250aa  BRA     0x250c4>                                         {}
        <POP 250ac-250b6 Naked>                              Σ0 Δ-4     →0x24f2c ←0x24ebc
            <MI 250ac  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x250ae 0x23f50>                                              {[4, '(A6-0x6)']}
            <MI 250b2  BRA     0x24f2c>                                         {[4, '(A6-0x6)']}
        <POP 250b6-250c4 Naked>                              Σ0         ←0x24ebc
            <POP 250b6-250c4 Bailout>                                           {}
                <MI 250b6  MOVEA.L (A5+0x8),A7>                         
                <MI 250ba  MOVEA.W #0x0,A6>                             
                <MI 250be  JMP     0x252ce>                             
        <POP 250c4-250cc Naked>                              Σ0         ↓ ←0x24e4c ←0x24f2c ←0x24f32 ←0x24f5a ←0x25082 ←0x250a6
            <MI 250c4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x250c6 0x219b0>                                              {[4, '(A6-0x6)']}
            <POP 250ca-250cc StackAdj>                       Δ+4                {}
        <POP 250cc-250e2 Naked>                              Σ0         ↓ →0x24dfc ←0x24dfc
            <MI 250cc  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 250ce  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']|[4, 'D6']}
            <MI 250d0  SUB.L   D7,(A7)>                                         {[4, 'D6']|[-4-]}
            <Call 0x250d2 0x21f46>                                              {[4, 'D6']|[-4-]}
            <POP 250d6-250d8 StackAdj>                       Δ+8                {}
            <MI 250d8  MOVE.L  D7,0x26518>                                      {}
            <MI 250da  TST.B   (A6-0xc)>                                        {}
            <MI 250de  BEQ     0x24dfc>                                         {}
        <POP 250e2-250ea Epilogue>                           Σ0         

0x250ea


@ 250ea
START
    <POP 250ea--0001 Body>                                              
        <POP 250ea-250f4 Prologue>                           Σ0         
        <POP 250f4-25124 Naked>                              Σ0         ↓ →0x2518c
            <MI 250f4  MOVE.L  #0x1,0x26542>                                    {}
            <POP 250fe-25100 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x25100 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 25106  MOVE.L  (A7)+,0x26546>                Δ+4                {}
            <Const 0x2510c 0x26520.4>                        Δ-4                {[##156960]}
            <Call 0x25112 0x212fc>                                              {[##156960]}
            <POP 25118-2511a StackAdj>                       Δ+4                {}
            <MI 2511a  MOVEA.L 0x26546,A0>                                      {}
            <MI 25120  TST.W   (A0)>                                            {}
            <MI 25122  BLE     0x2518c>                                         {}
        <POP 25124-2518c Naked>                              Σ0         →0x251c6
            <Blob 0x25124 [8] @>                             Δ-8                {[«8""»]}
            <Blob 0x25134 [8] @>                             Δ-8                {[«8""»]|[«8""»]}
            <POP 25144-25146 StackAdj>                       Δ-8                {[«8""»]|[«8""»]|[-8-]}
            <Lit 0x25146 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <POP 25158-2515a StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
            <POP 2515a-2515b StackAdj>                       Δ+4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <Blob 0x2515b [4] 0x26546>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
            <POP 25160-25162 StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
            <Lit 0x25162 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
            <Call 0x25176 0x102d4>                                              {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
                StringCat3(a, b, c : String) : String
            <POP 2517c-25180 StackAdj>                       Δ+12               {[«8""»]|[«8""»]|[-4-]}
            <MI 25180  MOVE.L  (A7)+,0x26546>                Δ+4                {[«8""»]|[«8""»]}
            <POP 25186-2518a StackAdj>                       Δ+16               {}
            <MI 2518a  BRA     0x251c6>                                         {}
        <POP 2518c-251c6 Naked>                              Σ0         ↓ ←0x250f4
            <Const 0x2518c 0x26546.4>                        Δ-4                {[##156998]}
            <Call 0x25192 0x102bc>                                              {[##156998]}
                FreeString(VAR a : String)
            <POP 25198-25199 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x25199 [8] @>                             Δ-8                {[«8""»]}
            <POP 251a8-251aa StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x251aa 7>                                                     {[«8""»]|[$$[INIT];]}
            <MI 251be  MOVE.L  (A7)+,0x26546>                Δ+4                {[«8""»]}
            <POP 251c4-251c6 StackAdj>                       Δ+8                {}
        <POP 251c6-251ce Naked>                              Σ0         ↓ ←0x25124
            <MI 251c6  MOVE.B  #0x01,0x26550>                                   {}
        <POP 251ce-251d6 Naked>                              Σ0         ↓ →0x251e0 ←0x252dc
            <MI 251ce  TST.B   0x26550>                                         {}
            <MI 251d4  BEQ     0x251e0>                                         {}
        <POP 251d6-251e0 Naked>                              Σ0         →0x2528e
            <MI 251d6  CLR.B   0x26550>                                         {}
            <MI 251dc  BRA     0x2528e>                                         {}
        <POP 251e0-2528e Naked>                              Σ0         ↓ ←0x251ce
            <Blob 0x251e0 [10] 0x2652a>                      Δ-10               {[«10»]}
            <Blob 0x251ee [2] @>                             Δ-2                {[«10»]|[«2""»]}
            <POP 251f2-251f6 StackAdj>                       Δ-12               {[«10»]|[«2""»]|[-12-]}
            <Lit 0x251f6>                                                       {[«10»]|[«2""»]|[-8-]|[$$…]}
                <Pointer.sp 0x251f6 14>                      Δ-4        
                <Const 0x251fa 0x1.2>                        Δ-2        
                <Const 0x251fe 0xa.2>                        Δ-2        
                <Call 0x25202 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 25208-2520a StackAdj>                   Δ+8        
            <POP 25208-2520a StackAdj>                       Δ-4                {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
            <Lit 0x2520a 2>                                                     {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
            <Call 0x2521e 0x102d0>                                              {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
                StringCat2(a, b : String) : String
            <POP 25224-25226 StackAdj>                       Δ+8                {[«10»]|[«2""»]|[-8-]}
            <Call 0x25226 0x103e4>                                              {[«10»]|[«2""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 2522c-2522e StackAdj>                       Δ+4                {[«10»]|[«2""»]|[-4-]}
            <MI 2522e  MOVE.L  (A7)+,0x2654c>                Δ+4                {[«10»]|[«2""»]}
            <POP 25234-25236 StackAdj>                       Δ+8                {[-4-]}
            <POP 25236-25237 StackAdj>                       Δ+4                {}
            <Blob 0x25237 [4] 0x2654c>                       Δ-4                {[«4»]}
            <Call 0x2523c 0x21c4a>                                              {[«4»]}
            <POP 25240-25242 StackAdj>                       Δ+2                {[-2-]}
            <POP 25242-25243 StackAdj>                       Δ+2                {}
            <Blob 0x25243 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x25246 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <POP 2524a-2524c StackAdj>                       Δ-8                {[«2""»]|[«2""»]|[-8-]}
            <Lit 0x2524c 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <POP 2525e-25260 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
            <POP 25260-25261 StackAdj>                       Δ+4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <Blob 0x25261 [4] 0x2654c>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
            <POP 25266-25268 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
            <Lit 0x25268 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
            <Call 0x2527c 0x102d4>                                              {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
                StringCat3(a, b, c : String) : String
            <POP 25282-25286 StackAdj>                       Δ+12               {[«2""»]|[«2""»]|[-4-]}
            <MI 25286  MOVE.L  (A7)+,0x26546>                Δ+4                {[«2""»]|[«2""»]}
            <POP 2528c-2528e StackAdj>                       Δ+4                {}
        <POP 2528e-252ba Naked>                              Σ0         ↓ ←0x251d6
            <MI 2528e  CLR.B   0x2654a>                                         {}
            <MI 25294  MOVE.L  #0x1,0x26518>                                    {}
            <MI 2529e  CLR.L   0x2651c>                                         {}
            <POP 252a4-252a6 StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x252a6 [4] 0x26546>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x252ac 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 252b2-252b4 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x252b4 0x227bc>                                              {[-4-]}
            <POP 252b8-252ba StackAdj>                       Δ+4                {}
        <POP 252ba-252c8 Naked>                              Σ0         ↓ →0x252ce ←0x252c8
            <MI 252ba  MOVE.L  0x26518,D0>                                      {}
            <MI 252c0  CMP.L   0x2651c,D0>                                      {}
            <MI 252c6  BGT     0x252ce>                                         {}
        <POP 252c8-252ce Naked>                              Σ0         →0x252ba
            <Call 0x252c8 0x24dd8>                                              {}
            <MI 252cc  BRA     0x252ba>                                         {}
        <POP 252ce-252dc Naked>                              Σ0         ↓ ←0x252ba
            <Const 0x252ce 0x26546.4>                        Δ-4                {[##156998]}
            <Call 0x252d4 0x102bc>                                              {[##156998]}
                FreeString(VAR a : String)
            <POP 252da-252dc StackAdj>                       Δ+4                {}
        <POP 252dc-252e0 Naked>                              Σ0         →0x251ce
            <MI 252dc  BRA     0x251ce>                                         {}

0x252f4


@ 252f4
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 252f4-2535c Body>                                              
        <POP 252f4-2530a Prologue>                           Σ0         ↓
        <POP 2530a-25354 Naked>                              Σ0         ↓
            <Blob 0x2530a [14] @>                            Δ-14               {[«14""»]}
            <Const 0x25316 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 2531a-2531c StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2531c 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 2532e-25330 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 25330  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 25334  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 25336  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 25338  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x2533a 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 25340-25342 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x25342 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25348-2534a StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x2534a 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 25350-25354 StackAdj>                       Δ+20               {}
        <POP 25354-2535c Epilogue>                           Σ0         

0x253b0


@ 253b0
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 253b0-254ec Body>                                              
        <POP 253b0-253c6 Prologue>                           Σ0         ↓
        <POP 253c6-253dc RegCacheLoad>                       Σ0         ↓
        <POP 253dc-2543c Naked>                              Σ0         ↓ →0x25484
            <Call 0x253dc 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x253e2 [18] @>                            Δ-18               {[«18""»]}
            <POP 253ee-253f0 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x253f0 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x253fc 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 253fe-253ff StackAdj>                       Δ+22       ↓       {}
            <Blob 0x253ff [14] @>                            Δ-14               {[«14""»]}
            <POP 2540e-25410 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x25410 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2541a-2541c StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2541c  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x25420 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 25426-25428 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x25428 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2542e-25430 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x25430 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 25432-25434 StackAdj>                       Δ+18               {}
            <MI 25434  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 25438  CMPA.W  #0x01,A0>                                        {}
            <MI 2543a  BEQ     0x25484>                                         {}
        <POP 2543c-25484 Naked>                              Σ0         ↓
            <Blob 0x2543c [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2544c [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2545c-2545e StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2545e 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 25468-2546a StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2546a>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2546a 12>                      Δ-4        
                <Const 0x2546e 0x1.2>                        Δ-2        
                <Const 0x25470 0x1e.2>                       Δ-2        
                <Call 0x25472 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 25474-25476 StackAdj>                   Δ+8        
            <Call 0x25476 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2547c-2547e StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2547e 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 25480-25484 StackAdj>                       Δ+48               {}
        <POP 25484-254e4 Naked>                              Σ0         ↓ ←0x253dc
            <Blob 0x25484 [14] @>                            Δ-14               {[«14""»]}
            <POP 25494-25496 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x25496 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 254a0-254a2 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 254a2  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x254a6 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 254ac-254ae StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x254ae 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 254b4-254b6 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x254b6 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 254b8-254b9 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x254b9 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x254c8 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 254cc-254ce StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x254ce 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x254dc 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 254e2-254e4 StackAdj>                       Δ+30               {}
        <POP 254e4-254ec Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.ec1f0ce99c455a30
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 50 ea              |  P     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 65 64              |  ed    |		.PTR	0x26564
00020010					code.end:
00020010 00 02 54 ec              |  T     |		.PTR	0x254ec
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 52 f4              |  R     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 53 b0              |  S     |		.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 40 28 23 29 70 61        |@(#)pa  |		.XXX[0x6]
00020110 74 63 68 2c 32 2e 31 2c  |tch,2.1,|		.XXX[0x18]
00020118 39 30 2f 31 32 2f 30 36  |90/12/06|
00020120 2c 31 32 3a 34 34 3a 30  |,12:44:0|
00020128 30 5c                    |0\      |		.XXX[0x2]
0002012a 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal hex argument'
0002013e 4f 4c 44 20 6f 72 20 4e  |OLD or N|		.TXT	'OLD or NEW value larger than size allows'
00020166 50 72 6f 62 6c 65 6d 20  |Problem |		.TXT	'Problem with file '
00020178 41 6c 69 67 6e 6d 65 6e  |Alignmen|		.TXT	'Alignment problem with ADDRESS/SIZE '
0002019c 54 61 72 67 65 74 20 64  |Target d|		.TXT	'Target data not as specified in OLD data'
000201c4 45 6e 74 65 72 20 66 69  |Enter fi|		.TXT	'Enter filename with extention [e.g. foobar.m200] :_ '
000201f8 45 6e 74 65 72 20 62 61  |Enter ba|		.TXT	'Enter base address of file (in hex) :_'
0002021e 45 6e 74 65 72 20 64 61  |Enter da|		.TXT	'Enter data size code [ B/W/L ] :_ '
00020240 45 6e 74 65 72 20 65 78  |Enter ex|		.TXT	'Enter expected old (current) data (in hex) :_ '
0002026e 45 6e 74 65 72 20 6e 65  |Enter ne|		.TXT	'Enter new data (in hex) :_'
00020288 45 6e 74 65 72 20 61 64  |Enter ad|		.TXT	'Enter address of data change/dump (in hex) :_ '
000202b6 20 3a                    | :      |		.TXT	' :'
000202b8 5f 20                    |_       |		.XXX[0x2]
000202ba 20 5f                    | _      |		.TXT	' _'
000202bc 46 4e                    |FN      |		.TXT	'FN'
000202be 42 41 53 45              |BASE    |		.TXT	'BASE'
000202c2 41 44 44 52 45 53 53 20  |ADDRESS |		.TXT	'ADDRESS '
000202ca 42 59 54 45              |BYTE    |		.TXT	'BYTE'
000202ce 57 4f 52 44              |WORD    |		.TXT	'WORD'
000202d2 4c 4f 4e 47              |LONG    |		.TXT	'LONG'
000202d6 57 4f 52 44              |WORD    |		.TXT	'WORD'
000202da 4f 4c                    |OL      |		.TXT	'OL'
000202dc 44 20                    |D       |		.XXX[0x2]
000202de 4e 45                    |NE      |		.TXT	'NE'
000202e0 57 20 43 48 41 4e 47 45  |W CHANGE|		.XXX[0x30]
000202e8 20 20 20 20 20 20 44 55  |      DU|
000202f0 4d 50 20 20 20 20 20 20  |MP      |
000202f8 20 20 50 41 54 43 48 20  |  PATCH |
00020300 20 20 20 20 00 00 00 00  |        |
00020308 00 00 ff 03 00 00 00 00  |        |
00020310 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x20]
00020330 7e 00 00 00 00 00 00 00  |~       |		.XXX[0x8]
00020338 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x10]
00020348 00 00 ff 03 00 00 00 00  |        |		.XXX[0x8]
00020350 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x18]
00020368 00 00 00 00 7e 00 00 00  |    ~   |		.XXX[0x8]
00020370 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x10]
00020380 00 00 00 00 43 48 41 4e  |    CHAN|		.XXX[0x18]
00020388 47 45 20 20 20 20 20 20  |GE      |
00020390 44 55 4d 50 20 20 20 20  |DUMP    |
00020398 20 20 20 20              |        |		.XXX[0x4]
0002039c ; --------------------------------------------------------------------------------------
0002039c ; OMSI PASCAL Function
0002039c ;    <LVAR  0x016 4(r)>
0002039c ;    <LVAR  0x012 @ 4(r)>
0002039c ;    <LVAR  0x010 1(r)>
0002039c ;    <LVAR  0x00c 4(r)>
0002039c ;    <LVAR  0x008 4(r)>
0002039c ; --------------------------------------------------------------------------------------
0002039c 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
000203a0 bf d5                    |        |		CMPA.L	(A5),A7
000203a2 62 06                    |b       |		BHI	0x203aa
000203a4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000203a8 4e 76                    |Nv      |		TRAPV
000203aa de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000203ae 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000203b2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000203b6 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
000203ba 2f 2e 00 16              |/.      |		MOVE.L	(A6+0x16),-(A7)
000203be 48 78 00 00              |Hx      |		PEA.L	0x0
000203c2 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000203c6 48 50                    |HP      |		PEA.L	(A0)
000203c8 48 51                    |HQ      |		PEA.L	(A1)
000203ca 4e b9 00 02 4c 52        |N   LR  |		JSR	0x24c52
000203d0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000203d4 48 6e 00 12              |Hn      |		PEA.L	(A6+0x12)
000203d8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000203de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203e0 4a 11                    |J       |		TST.B	(A1)
000203e2 67 10                    |g       |		BEQ	0x203f4
000203e4 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
000203e8 66 0a                    |f       |		BNE	0x203f4
000203ea 48 50                    |HP      |		PEA.L	(A0)
000203ec 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000203f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203f4 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000203f8 4e 5e                    |N^      |		UNLK	A6
000203fa 4e 75                    |Nu      |		RTS
000203fc ; --------------------------------------------------------------------------------------
000203fc ; OMSI PASCAL Function
000203fc ;    <LVAR  0x008 4(r)>
000203fc ; --------------------------------------------------------------------------------------
000203fc 4e 56 ff f6              |NV      |		LINK.W	A6,#0xfff6
00020400 bf d5                    |        |		CMPA.L	(A5),A7
00020402 62 06                    |b       |		BHI	0x2040a
00020404 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020408 4e 76                    |Nv      |		TRAPV
0002040a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002040e 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020412 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020416 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002041c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002041e 4e 5e                    |N^      |		UNLK	A6
00020420 4e 75                    |Nu      |		RTS
00020422 ; --------------------------------------------------------------------------------------
00020422 ; OMSI PASCAL Function
00020422 ;    <LVAR  0x00a 4(w)>
00020422 ;    <LVAR  0x008 1(r)>
00020422 ; --------------------------------------------------------------------------------------
00020422 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00020426 bf d5                    |        |		CMPA.L	(A5),A7
00020428 62 06                    |b       |		BHI	0x20430
0002042a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002042e 4e 76                    |Nv      |		TRAPV
00020430 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020434 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00020438 42 80                    |B       |		CLR.L	D0
0002043a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002043e 41 fa fe c4              |A       |		LEA.L	0x20304,A0
00020442 32 00                    |2       |		MOVE.W	D0,D1
00020444 e6 49                    | I      |		LSR.W	#0x3,D1
00020446 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
0002044a 67 0c                    |g       |		BEQ	0x20458
0002044c 04 40 00 30              | @ 0    |		SUBI.W	#0x0030,D0
00020450 48 c0                    |H       |		EXTW.L	D0
00020452 2d 40 00 0a              |-@      |		MOVE.L	D0,(A6+0xa)
00020456 60 08                    |`       |		BRA	0x20460
00020458 2d 7c ff ff ff ff 00 0a  |-|      |		MOVE.L	#0xffffffff,(A6+0xa)
00020460 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020464 4e 5e                    |N^      |		UNLK	A6
00020466 4e 75                    |Nu      |		RTS
00020468 ; --------------------------------------------------------------------------------------
00020468 ; OMSI PASCAL Function
00020468 ;    <LVAR  0x00a 4(w)>
00020468 ;    <LVAR  0x008 1(rw)>
00020468 ; --------------------------------------------------------------------------------------
00020468 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0002046c bf d5                    |        |		CMPA.L	(A5),A7
0002046e 62 06                    |b       |		BHI	0x20476
00020470 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020474 4e 76                    |Nv      |		TRAPV
00020476 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002047a 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
0002047e 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00020482 74 20                    |t       |		MOVEQ.L	#0x20,D2
00020484 42 80                    |B       |		CLR.L	D0
00020486 10 11                    |        |		MOVE.B	(A1),D0
00020488 41 fa fe 9a              |A       |		LEA.L	0x20324,A0
0002048c 32 00                    |2       |		MOVE.W	D0,D1
0002048e e6 49                    | I      |		LSR.W	#0x3,D1
00020490 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
00020494 67 08                    |g       |		BEQ	0x2049e
00020496 90 42                    | B      |		SUB.W	D2,D0
00020498 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002049c 12 80                    |        |		MOVE.B	D0,(A1)
0002049e 42 80                    |B       |		CLR.L	D0
000204a0 10 11                    |        |		MOVE.B	(A1),D0
000204a2 41 fa fe a0              |A       |		LEA.L	0x20344,A0
000204a6 32 00                    |2       |		MOVE.W	D0,D1
000204a8 e6 49                    | I      |		LSR.W	#0x3,D1
000204aa 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
000204ae 67 0c                    |g       |		BEQ	0x204bc
000204b0 04 40 00 30              | @ 0    |		SUBI.W	#0x0030,D0
000204b4 48 c0                    |H       |		EXTW.L	D0
000204b6 2d 40 00 0a              |-@      |		MOVE.L	D0,(A6+0xa)
000204ba 60 28                    |`(      |		BRA	0x204e4
000204bc 41 fa fe a6              |A       |		LEA.L	0x20364,A0
000204c0 32 00                    |2       |		MOVE.W	D0,D1
000204c2 e6 49                    | I      |		LSR.W	#0x3,D1
000204c4 b2 42                    | B      |		CMP.W	D2,D1
000204c6 6d 04                    |m       |		BLT	0x204cc
000204c8 72 00                    |r       |		MOVEQ.L	#0x00,D1
000204ca 60 04                    |`       |		BRA	0x204d0
000204cc 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
000204d0 67 0a                    |g       |		BEQ	0x204dc
000204d2 04 40 00 41              | @ A    |		SUBI.W	#0x0041,D0
000204d6 06 40 00 0a              | @      |		ADDI.W	#0x000a,D0
000204da 60 d8                    |`       |		BRA	0x204b4
000204dc 2d 7c ff ff ff ff 00 0a  |-|      |		MOVE.L	#0xffffffff,(A6+0xa)
000204e4 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
000204e8 4e 5e                    |N^      |		UNLK	A6
000204ea 4e 75                    |Nu      |		RTS
000204ec ; --------------------------------------------------------------------------------------
000204ec ; OMSI PASCAL Function
000204ec ;    <LVAR  0x00c 1(rw)>
000204ec ;    <LVAR  0x008 4(r)>
000204ec ; --------------------------------------------------------------------------------------
000204ec 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
000204f0 bf d5                    |        |		CMPA.L	(A5),A7
000204f2 62 06                    |b       |		BHI	0x204fa
000204f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204f8 4e 76                    |Nv      |		TRAPV
000204fa de fc 00 04              |        |		ADDA.W	#0x4,A7
000204fe 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
00020502 4a ae 00 08              |J       |		TST.L	(A6+0x8)
00020506 6d 04                    |m       |		BLT	0x2050c
00020508 52 2e 00 0c              |R.      |		ADDQ.B	#0x1,(A6+0xc)
0002050c 4e 5e                    |N^      |		UNLK	A6
0002050e 4e 75                    |Nu      |		RTS
00020510 ; --------------------------------------------------------------------------------------
00020510 ; OMSI PASCAL Function
00020510 ;    <LVAR  0x014 @ 4(r)>
00020510 ;    <LVAR  0x010 4(r)>
00020510 ;    <LVAR  0x00c 4(r)>
00020510 ;    <LVAR  0x008 4(r)>
00020510 ;    <LVAR -0x004 4(rw)>
00020510 ;    <LVAR -0x008 4(rw)>
00020510 ;    <LVAR -0x00e 2(rw)>
00020510 ; --------------------------------------------------------------------------------------
00020510 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00020514 bf d5                    |        |		CMPA.L	(A5),A7
00020516 62 06                    |b       |		BHI	0x2051e
00020518 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002051c 4e 76                    |Nv      |		TRAPV
0002051e de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00020522 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020526 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0002052a 47 ee 00 10              |G       |		LEA.L	(A6+0x10),A3
0002052e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00020532 72 10                    |r       |		MOVEQ.L	#0x10,D1
00020534 74 2d                    |t-      |		MOVEQ.L	#0x2d,D2
00020536 2d 7c 0c cc cc cc ff f8  |-|      |		MOVE.L	#0xccccccc,(A6-0x8)
0002053e 2d 7c f3 33 33 34 ff fc  |-| 334  |		MOVE.L	#0xf3333334,(A6-0x4)
00020546 20 13                    |        |		MOVE.L	(A3),D0
00020548 0c 80 00 00 00 0a        |        |		CMPI.L	#0x0000000a,D0
0002054e 67 08                    |g       |		BEQ	0x20558
00020550 b0 81                    |        |		CMP.L	D1,D0
00020552 67 04                    |g       |		BEQ	0x20558
00020554 60 00 00 f4              |`       |		BRA	0x2064a
00020558 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002055c 42 10                    |B       |		CLR.B	(A0)
0002055e 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020562 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020564 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00020566 4a 50                    |JP      |		TST.W	(A0)
00020568 66 06                    |f       |		BNE	0x20570
0002056a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002056c 60 00 00 dc              |`       |		BRA	0x2064a
00020570 20 57                    | W      |		MOVEA.L	(A7),A0
00020572 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00020576 b0 02                    |        |		CMP.B	D2,D0
00020578 66 06                    |f       |		BNE	0x20580
0002057a 38 bc ff ff              |8       |		MOVE.W	#0xffff,(A4)
0002057e 60 04                    |`       |		BRA	0x20584
00020580 38 bc 00 01              |8       |		MOVE.W	#0x1,(A4)
00020584 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00020588 0c 00 00 2b              |   +    |		CMPI.B	#0x2b,D0
0002058c 67 04                    |g       |		BEQ	0x20592
0002058e b0 02                    |        |		CMP.B	D2,D0
00020590 66 10                    |f       |		BNE	0x205a2
00020592 52 86                    |R       |		ADDQ.L	#0x1,D6
00020594 30 10                    |0       |		MOVE.W	(A0),D0
00020596 48 c0                    |H       |		EXTW.L	D0
00020598 bc 80                    |        |		CMP.L	D0,D6
0002059a 6f 06                    |o       |		BLE	0x205a2
0002059c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002059e 60 00 00 aa              |`       |		BRA	0x2064a
000205a2 20 52                    | R      |		MOVEA.L	(A2),A0
000205a4 42 90                    |B       |		CLR.L	(A0)
000205a6 20 06                    |        |		MOVE.L	D6,D0
000205a8 53 80                    |S       |		SUBQ.L	#0x1,D0
000205aa 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000205b0 63 02                    |c       |		BLS	0x205b4
000205b2 4e 4f                    |NO      |		TRAP	#15
000205b4 20 57                    | W      |		MOVEA.L	(A7),A0
000205b6 1a 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D5
000205ba 20 13                    |        |		MOVE.L	(A3),D0
000205bc b0 81                    |        |		CMP.L	D1,D0
000205be 66 0a                    |f       |		BNE	0x205ca
000205c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205c2 1f 05                    |        |		MOVE.B	D5,-(A7)
000205c4 4e ba fe a2              |N       |		JSR	0x20468
000205c8 60 08                    |`       |		BRA	0x205d2
000205ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205cc 1f 05                    |        |		MOVE.B	D5,-(A7)
000205ce 4e ba fe 52              |N  R    |		JSR	0x20422
000205d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205d4 26 1f                    |&       |		MOVE.L	(A7)+,D3
000205d6 38 14                    |8       |		MOVE.W	(A4),D4
000205d8 48 c4                    |H       |		EXTW.L	D4
000205da 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000205e0 2e 04                    |.       |		MOVE.L	D4,D7
000205e2 22 52                    |"R      |		MOVEA.L	(A2),A1
000205e4 20 11                    |        |		MOVE.L	(A1),D0
000205e6 b0 ae ff fc              |        |		CMP.L	(A6-0x4),D0
000205ea 6d 06                    |m       |		BLT	0x205f2
000205ec b0 ae ff f8              |        |		CMP.L	(A6-0x8),D0
000205f0 6f 04                    |o       |		BLE	0x205f6
000205f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205f4 60 54                    |`T      |		BRA	0x2064a
000205f6 20 52                    | R      |		MOVEA.L	(A2),A0
000205f8 28 10                    |(       |		MOVE.L	(A0),D4
000205fa 26 13                    |&       |		MOVE.L	(A3),D3
000205fc 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020602 20 84                    |        |		MOVE.L	D4,(A0)
00020604 4a 84                    |J       |		TST.L	D4
00020606 66 04                    |f       |		BNE	0x2060c
00020608 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002060a 60 20                    |`       |		BRA	0x2062c
0002060c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002060e 2f 04                    |/       |		MOVE.L	D4,-(A7)
00020610 4e ba fe da              |N       |		JSR	0x204ec
00020614 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020616 2f 04                    |/       |		MOVE.L	D4,-(A7)
00020618 df 97                    |        |		ADD.L	D7,(A7)
0002061a 4e ba fe d0              |N       |		JSR	0x204ec
0002061e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020620 10 2f 00 02              | /      |		MOVE.B	(A7+0x2),D0
00020624 b0 1f                    |        |		CMP.B	(A7)+,D0
00020626 67 04                    |g       |		BEQ	0x2062c
00020628 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002062a 60 1e                    |`       |		BRA	0x2064a
0002062c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002062e 20 52                    | R      |		MOVEA.L	(A2),A0
00020630 df 90                    |        |		ADD.L	D7,(A0)
00020632 52 86                    |R       |		ADDQ.L	#0x1,D6
00020634 20 57                    | W      |		MOVEA.L	(A7),A0
00020636 30 10                    |0       |		MOVE.W	(A0),D0
00020638 48 c0                    |H       |		EXTW.L	D0
0002063a bc 80                    |        |		CMP.L	D0,D6
0002063c 6f 00 ff 68              |o  h    |		BLE	0x205a6
00020640 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020644 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00020648 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002064a 48 6e 00 14              |Hn      |		PEA.L	(A6+0x14)
0002064e 48 78 00 80              |Hx      |		PEA.L	0x80
00020652 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00020658 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002065a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002065e 4e 5e                    |N^      |		UNLK	A6
00020660 4e 75                    |Nu      |		RTS
00020662 ; --------------------------------------------------------------------------------------
00020662 ; OMSI PASCAL Function
00020662 ;    <LVAR -0x004 @ 1(r)>
00020662 ;    <LVAR -0x008 4(w)>
00020662 ;    <LVAR -0x00e 4(w)>
00020662 ;    <LVAR -0x010 2(rw)>
00020662 ;    <LVAR -0x012 2(rw)>
00020662 ;    <LVAR -0x014 2(w)>
00020662 ;    <LVAR -0x016 2(w)>
00020662 ;    <LVAR -0x01a 2(rw)>
00020662 ;    <LVAR -0x01c 2(rw)>
00020662 ;    <LVAR -0x01e 2(w)>
00020662 ;    <LVAR -0x020 2(w)>
00020662 ;    <LVAR -0x420 @>
00020662 ;    <LVAR -0x428 4(w)>
00020662 ;    <LVAR -0x42c @ 4(r)>
00020662 ;    <LVAR -0x430 4(rw)>
00020662 ;    <LVAR -0x434 @ 4(rw)>
00020662 ; --------------------------------------------------------------------------------------
00020662 4e 56 fb 44              |NV D    |		LINK.W	A6,#0xfb44
00020666 bf d5                    |        |		CMPA.L	(A5),A7
00020668 62 06                    |b       |		BHI	0x20670
0002066a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002066e 4e 76                    |Nv      |		TRAPV
00020670 de fc 00 88              |        |		ADDA.W	#0x88,A7
00020674 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020678 45 f9 00 01 02 94        |E       |		LEA.L	?divs_d3_d4,A2
0002067e 47 ee fb cc              |G       |		LEA.L	(A6-0x434),A3
00020682 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
00020686 41 ee fb e0              |A       |		LEA.L	(A6-0x420),A0
0002068a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002068c 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002068e 2f 39 00 02 54 fe        |/9  T   |		MOVE.L	0x254fe,-(A7)
00020694 42 27                    |B'      |		CLR.B	-(A7)
00020696 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
0002069a 48 78 00 00              |Hx      |		PEA.L	0x0
0002069e 48 54                    |HT      |		PEA.L	(A4)
000206a0 48 6e fb d4              |Hn      |		PEA.L	(A6-0x42c)
000206a4 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000206aa de fc 00 14              |        |		ADDA.W	#0x14,A7
000206ae 4a 14                    |J       |		TST.B	(A4)
000206b0 67 30                    |g0      |		BEQ	0x206e2
000206b2 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000206b6 20 4f                    | O      |		MOVEA.L	A7,A0
000206b8 43 fa fa ac              |C       |		LEA.L	0x20166,A1
000206bc 70 10                    |p       |		MOVEQ.L	#0x10,D0
000206be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206c0 51 c8 ff fc              |Q       |		DBF	D0,0x206be
000206c4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206c6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000206ca 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000206ce 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
000206d2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000206d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206da 4e ba fd 20              |N       |		JSR	0x203fc
000206de de fc 00 16              |        |		ADDA.W	#0x16,A7
000206e2 28 39 00 02 55 0a        |(9  U   |		MOVE.L	0x2550a,D4
000206e8 26 3c 01 00 00 00        |&<      |		MOVE.L	#0x1000000,D3
000206ee 4e 92                    |N       |		JSR	(A2)
000206f0 89 fc 01 00              |        |		DIVS.W	#0x100,D4
000206f4 48 44                    |HD      |		SWAP.W	D4
000206f6 4a 44                    |JD      |		TST.W	D4
000206f8 6c 04                    |l       |		BGE	0x206fe
000206fa 06 44 01 00              | D      |		ADDI.W	#0x0100,D4
000206fe 3d 44 ff ea              |=D      |		MOVE.W	D4,(A6-0x16)
00020702 28 39 00 02 55 0a        |(9  U   |		MOVE.L	0x2550a,D4
00020708 26 3c 00 01 00 00        |&<      |		MOVE.L	#0x10000,D3
0002070e 4e 92                    |N       |		JSR	(A2)
00020710 89 fc 01 00              |        |		DIVS.W	#0x100,D4
00020714 48 44                    |HD      |		SWAP.W	D4
00020716 4a 44                    |JD      |		TST.W	D4
00020718 6c 04                    |l       |		BGE	0x2071e
0002071a 06 44 01 00              | D      |		ADDI.W	#0x0100,D4
0002071e 3d 44 ff ec              |=D      |		MOVE.W	D4,(A6-0x14)
00020722 28 39 00 02 55 0a        |(9  U   |		MOVE.L	0x2550a,D4
00020728 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
0002072e 4e 92                    |N       |		JSR	(A2)
00020730 2f 03                    |/       |		MOVE.L	D3,-(A7)
00020732 2f 04                    |/       |		MOVE.L	D4,-(A7)
00020734 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
0002073a 4e 92                    |N       |		JSR	(A2)
0002073c 3d 43 ff ee              |=C      |		MOVE.W	D3,(A6-0x12)
00020740 20 1f                    |        |		MOVE.L	(A7)+,D0
00020742 22 1f                    |"       |		MOVE.L	(A7)+,D1
00020744 3d 41 ff f0              |=A      |		MOVE.W	D1,(A6-0x10)
00020748 28 39 00 02 55 04        |(9  U   |		MOVE.L	0x25504,D4
0002074e 26 3c 01 00 00 00        |&<      |		MOVE.L	#0x1000000,D3
00020754 4e 92                    |N       |		JSR	(A2)
00020756 89 fc 01 00              |        |		DIVS.W	#0x100,D4
0002075a 48 44                    |HD      |		SWAP.W	D4
0002075c 4a 44                    |JD      |		TST.W	D4
0002075e 6c 04                    |l       |		BGE	0x20764
00020760 06 44 01 00              | D      |		ADDI.W	#0x0100,D4
00020764 3d 44 ff e0              |=D      |		MOVE.W	D4,(A6-0x20)
00020768 28 39 00 02 55 04        |(9  U   |		MOVE.L	0x25504,D4
0002076e 26 3c 00 01 00 00        |&<      |		MOVE.L	#0x10000,D3
00020774 4e 92                    |N       |		JSR	(A2)
00020776 89 fc 01 00              |        |		DIVS.W	#0x100,D4
0002077a 48 44                    |HD      |		SWAP.W	D4
0002077c 4a 44                    |JD      |		TST.W	D4
0002077e 6c 04                    |l       |		BGE	0x20784
00020780 06 44 01 00              | D      |		ADDI.W	#0x0100,D4
00020784 3d 44 ff e2              |=D      |		MOVE.W	D4,(A6-0x1e)
00020788 28 39 00 02 55 04        |(9  U   |		MOVE.L	0x25504,D4
0002078e 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00020794 4e 92                    |N       |		JSR	(A2)
00020796 2f 03                    |/       |		MOVE.L	D3,-(A7)
00020798 2f 04                    |/       |		MOVE.L	D4,-(A7)
0002079a 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
000207a0 4e 92                    |N       |		JSR	(A2)
000207a2 3d 43 ff e4              |=C      |		MOVE.W	D3,(A6-0x1c)
000207a6 20 1f                    |        |		MOVE.L	(A7)+,D0
000207a8 24 1f                    |$       |		MOVE.L	(A7)+,D2
000207aa 3d 42 ff e6              |=B      |		MOVE.W	D2,(A6-0x1a)
000207ae 10 39 00 02 54 f4        | 9  T   |		MOVE.B	0x254f4,D0
000207b4 48 80                    |H       |		EXTB.W	D0
000207b6 53 40                    |S@      |		SUBQ.W	#0x1,D0
000207b8 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
000207bc 63 02                    |c       |		BLS	0x207c0
000207be 4e 4e                    |NN      |		TRAP	#14
000207c0 d0 40                    | @      |		ADD.W	D0,D0
000207c2 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000207ca 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x207d0
000207cc 00 18                    |        |		.CONST	0x18			; [0x1] -> 0x207e2
000207ce 00 3a                    | :      |		.CONST	0x3a			; [0x2] -> 0x20804
000207d0					switch@0x207c2[0x0]:
000207d0 2d 7c 00 00 00 01 fb d0  |-|      |		MOVE.L	#0x1,(A6-0x430)
000207d8 3d 41 ff ea              |=A      |		MOVE.W	D1,(A6-0x16)
000207dc 3d 42 ff e0              |=B      |		MOVE.W	D2,(A6-0x20)
000207e0 60 2a                    |`*      |		BRA	0x2080c
000207e2					switch@0x207c2[0x1]:
000207e2 2d 7c 00 00 00 02 fb d0  |-|      |		MOVE.L	#0x2,(A6-0x430)
000207ea 3d 6e ff ee ff ea        |=n      |		MOVE.W	(A6-0x12),(A6-0x16)
000207f0 3d 6e ff f0 ff ec        |=n      |		MOVE.W	(A6-0x10),(A6-0x14)
000207f6 3d 6e ff e4 ff e0        |=n      |		MOVE.W	(A6-0x1c),(A6-0x20)
000207fc 3d 6e ff e6 ff e2        |=n      |		MOVE.W	(A6-0x1a),(A6-0x1e)
00020802 60 08                    |`       |		BRA	0x2080c
00020804					switch@0x207c2[0x2]:
00020804 2d 7c 00 00 00 04 fb d0  |-|      |		MOVE.L	#0x4,(A6-0x430)
0002080c 2f 2e fb d0              |/.      |		MOVE.L	(A6-0x430),-(A7)
00020810 70 01                    |p       |		MOVEQ.L	#0x01,D0
00020812 b0 97                    |        |		CMP.L	(A7),D0
00020814 6e 00 01 6e              |n  n    |		BGT	0x20984
00020818 22 39 00 02 54 f6        |"9  T   |		MOVE.L	0x254f6,D1
0002081e 92 b9 00 02 54 fa        |    T   |		SUB.L	0x254fa,D1
00020824 d2 80                    |        |		ADD.L	D0,D1
00020826 53 81                    |S       |		SUBQ.L	#0x1,D1
00020828 28 01                    |(       |		MOVE.L	D1,D4
0002082a 26 3c 00 00 04 00        |&<      |		MOVE.L	#0x400,D3
00020830 4e 92                    |N       |		JSR	(A2)
00020832 2f 03                    |/       |		MOVE.L	D3,-(A7)
00020834 2f 04                    |/       |		MOVE.L	D4,-(A7)
00020836 2d 44 fb d8              |-D      |		MOVE.L	D4,(A6-0x428)
0002083a 2d 43 ff f2              |-C      |		MOVE.L	D3,(A6-0xe)
0002083e 28 03                    |(       |		MOVE.L	D3,D4
00020840 76 02                    |v       |		MOVEQ.L	#0x02,D3
00020842 4e 92                    |N       |		JSR	(A2)
00020844 2d 44 ff f8              |-D      |		MOVE.L	D4,(A6-0x8)
00020848 22 17                    |"       |		MOVE.L	(A7),D1
0002084a 0c 81 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D1
00020850 63 02                    |c       |		BLS	0x20854
00020852 4e 4f                    |NO      |		TRAP	#15
00020854 2f 2e fb d4              |/.      |		MOVE.L	(A6-0x42c),-(A7)
00020858 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002085a 42 67                    |Bg      |		CLR.W	-(A7)
0002085c 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020860 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00020864 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020866 48 54                    |HT      |		PEA.L	(A4)
00020868 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
0002086e de fc 00 14              |        |		ADDA.W	#0x14,A7
00020872 0c 84 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D4
00020878 63 02                    |c       |		BLS	0x2087c
0002087a 4e 4f                    |NO      |		TRAP	#15
0002087c e3 84                    |        |		ASL.L	#0x1,D4
0002087e 20 4b                    | K      |		MOVEA.L	A3,A0
00020880 3e 30 48 14              |>0H     |		MOVE.W	(A0+D4.L+#0x14),D7
00020884 24 2f 00 04              |$/      |		MOVE.L	(A7+0x4),D2
00020888 08 02 00 00              |        |		BTST.L	#0x0,D2
0002088c 67 16                    |g       |		BEQ	0x208a4
0002088e 36 07                    |6       |		MOVE.W	D7,D3
00020890 02 43 00 ff              | C      |		ANDI.W	#0x00ff,D3
00020894 47 bc 00 ff              |G       |		CHK.W	#0xff,D3
00020898 3a 03                    |:       |		MOVE.W	D3,D5
0002089a 3c 07                    |<       |		MOVE.W	D7,D6
0002089c e0 4e                    | N      |		LSR.W	#0x8,D6
0002089e 02 46 00 ff              | F      |		ANDI.W	#0x00ff,D6
000208a2 60 14                    |`       |		BRA	0x208b8
000208a4 3a 07                    |:       |		MOVE.W	D7,D5
000208a6 e0 4d                    | M      |		LSR.W	#0x8,D5
000208a8 02 45 00 ff              | E      |		ANDI.W	#0x00ff,D5
000208ac 36 07                    |6       |		MOVE.W	D7,D3
000208ae 02 43 00 ff              | C      |		ANDI.W	#0x00ff,D3
000208b2 47 bc 00 ff              |G       |		CHK.W	#0xff,D3
000208b6 3c 03                    |<       |		MOVE.W	D3,D6
000208b8 4a 39 00 02 55 02        |J9  U   |		TST.B	0x25502
000208be 67 46                    |gF      |		BEQ	0x20906
000208c0 26 00                    |&       |		MOVE.L	D0,D3
000208c2 53 83                    |S       |		SUBQ.L	#0x1,D3
000208c4 0c 83 00 00 00 03        |        |		CMPI.L	#0x00000003,D3
000208ca 63 02                    |c       |		BLS	0x208ce
000208cc 4e 4f                    |NO      |		TRAP	#15
000208ce e3 83                    |        |		ASL.L	#0x1,D3
000208d0 22 4b                    |"K      |		MOVEA.L	A3,A1
000208d2 43 f1 38 00              |C 8     |		LEA.L	(A1+D3.L),A1
000208d6 ba 69 04 14              | i      |		CMP.W	(A1+0x414),D5
000208da 67 2a                    |g*      |		BEQ	0x20906
000208dc 43 fa f8 e6              |C       |		LEA.L	0x201c4,A1
000208e0 76 09                    |v       |		MOVEQ.L	#0x09,D3
000208e2 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000208e4 51 cb ff fc              |Q       |		DBF	D3,0x208e2
000208e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000208ea 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000208ee 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000208f2 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000208f6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208fc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208fe 4e ba fa fc              |N       |		JSR	0x203fc
00020902 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020906 08 02 00 00              |        |		BTST.L	#0x0,D2
0002090a 67 28                    |g(      |		BEQ	0x20934
0002090c 34 06                    |4       |		MOVE.W	D6,D2
0002090e e1 42                    | B      |		ASL.W	#0x8,D2
00020910 26 00                    |&       |		MOVE.L	D0,D3
00020912 53 83                    |S       |		SUBQ.L	#0x1,D3
00020914 0c 83 00 00 00 03        |        |		CMPI.L	#0x00000003,D3
0002091a 63 02                    |c       |		BLS	0x2091e
0002091c 4e 4f                    |NO      |		TRAP	#15
0002091e e3 83                    |        |		ASL.L	#0x1,D3
00020920 22 4b                    |"K      |		MOVEA.L	A3,A1
00020922 43 f1 38 00              |C 8     |		LEA.L	(A1+D3.L),A1
00020926 d4 69 04 1e              | i      |		ADD.W	(A1+0x41e),D2
0002092a 0c 42 ff ff              | B      |		CMPI.W	#0xffff,D2
0002092e 63 02                    |c       |		BLS	0x20932
00020930 4e 4f                    |NO      |		TRAP	#15
00020932 60 26                    |`&      |		BRA	0x2095a
00020934 24 00                    |$       |		MOVE.L	D0,D2
00020936 53 82                    |S       |		SUBQ.L	#0x1,D2
00020938 0c 82 00 00 00 03        |        |		CMPI.L	#0x00000003,D2
0002093e 63 02                    |c       |		BLS	0x20942
00020940 4e 4f                    |NO      |		TRAP	#15
00020942 e3 82                    |        |		ASL.L	#0x1,D2
00020944 22 4b                    |"K      |		MOVEA.L	A3,A1
00020946 43 f1 28 00              |C (     |		LEA.L	(A1+D2.L),A1
0002094a 34 29 04 1e              |4)      |		MOVE.W	(A1+0x41e),D2
0002094e e1 42                    | B      |		ASL.W	#0x8,D2
00020950 d4 46                    | F      |		ADD.W	D6,D2
00020952 0c 42 ff ff              | B      |		CMPI.W	#0xffff,D2
00020956 63 02                    |c       |		BLS	0x2095a
00020958 4e 4f                    |NO      |		TRAP	#15
0002095a 3e 02                    |>       |		MOVE.W	D2,D7
0002095c 31 87 48 14              |1 H     |		MOVE.W	D7,(A0+D4.L+#0x14)
00020960 2f 2e fb d4              |/.      |		MOVE.L	(A6-0x42c),-(A7)
00020964 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020966 42 67                    |Bg      |		CLR.W	-(A7)
00020968 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0002096c 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00020970 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020972 48 54                    |HT      |		PEA.L	(A4)
00020974 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0002097a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002097e 52 80                    |R       |		ADDQ.L	#0x1,D0
00020980 68 00 fe 90              |h       |		BVC	0x20812
00020984 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020986 42 17                    |B       |		CLR.B	(A7)
00020988 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
0002098c 48 78 00 01              |Hx      |		PEA.L	0x1
00020990 48 54                    |HT      |		PEA.L	(A4)
00020992 48 6e fb d4              |Hn      |		PEA.L	(A6-0x42c)
00020996 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002099c de fc 00 10              |        |		ADDA.W	#0x10,A7
000209a0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000209a4 4e 5e                    |N^      |		UNLK	A6
000209a6 4e 75                    |Nu      |		RTS
000209a8 ; --------------------------------------------------------------------------------------
000209a8 ; OMSI PASCAL Function
000209a8 ;    <LVAR -0x006 @ 1(r)>
000209a8 ;    <LVAR -0x00a 4(w)>
000209a8 ;    <LVAR -0x00c 2(rw)>
000209a8 ;    <LVAR -0x010 4(w)>
000209a8 ;    <LVAR -0x410 @>
000209a8 ;    <LVAR -0x41c @ 4(r)>
000209a8 ;    <LVAR -0x424 @ 4(rw)>
000209a8 ; --------------------------------------------------------------------------------------
000209a8 4e 56 fb 7c              |NV |    |		LINK.W	A6,#0xfb7c
000209ac bf d5                    |        |		CMPA.L	(A5),A7
000209ae 62 06                    |b       |		BHI	0x209b6
000209b0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209b4 4e 76                    |Nv      |		TRAPV
000209b6 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
000209ba 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000209be 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000209c2 47 ee fb dc              |G       |		LEA.L	(A6-0x424),A3
000209c6 49 ee fb e4              |I       |		LEA.L	(A6-0x41c),A4
000209ca 74 01                    |t       |		MOVEQ.L	#0x01,D2
000209cc 41 ee fb f0              |A       |		LEA.L	(A6-0x410),A0
000209d0 2f 08                    |/       |		MOVE.L	A0,-(A7)
000209d2 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000209d4 2f 39 00 02 54 fe        |/9  T   |		MOVE.L	0x254fe,-(A7)
000209da 42 27                    |B'      |		CLR.B	-(A7)
000209dc 1f 02                    |        |		MOVE.B	D2,-(A7)
000209de 48 78 00 00              |Hx      |		PEA.L	0x0
000209e2 48 52                    |HR      |		PEA.L	(A2)
000209e4 48 54                    |HT      |		PEA.L	(A4)
000209e6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000209ec de fc 00 14              |        |		ADDA.W	#0x14,A7
000209f0 4a 12                    |J       |		TST.B	(A2)
000209f2 67 2e                    |g.      |		BEQ	0x20a22
000209f4 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000209f8 20 4f                    | O      |		MOVEA.L	A7,A0
000209fa 43 fa f7 6a              |C  j    |		LEA.L	0x20166,A1
000209fe 70 10                    |p       |		MOVEQ.L	#0x10,D0
00020a00 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a02 51 c8 ff fc              |Q       |		DBF	D0,0x20a00
00020a06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a08 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a0c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a0e 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00020a12 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a1a 4e ba f9 e0              |N       |		JSR	0x203fc
00020a1e de fc 00 16              |        |		ADDA.W	#0x16,A7
00020a22 10 39 00 02 54 f4        | 9  T   |		MOVE.B	0x254f4,D0
00020a28 48 80                    |H       |		EXTB.W	D0
00020a2a 53 40                    |S@      |		SUBQ.W	#0x1,D0
00020a2c 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00020a30 63 02                    |c       |		BLS	0x20a34
00020a32 4e 4e                    |NN      |		TRAP	#14
00020a34 d0 40                    | @      |		ADD.W	D0,D0
00020a36 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00020a3e 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x20a44
00020a40 00 0a                    |        |		.CONST	0xa			; [0x1] -> 0x20a48
00020a42 00 0e                    |        |		.CONST	0xe			; [0x2] -> 0x20a4c
00020a44					switch@0x20a36[0x0]:
00020a44 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00020a46 60 06                    |`       |		BRA	0x20a4e
00020a48					switch@0x20a36[0x1]:
00020a48 7c 02                    ||       |		MOVEQ.L	#0x02,D6
00020a4a 60 02                    |`       |		BRA	0x20a4e
00020a4c					switch@0x20a36[0x2]:
00020a4c 7c 04                    ||       |		MOVEQ.L	#0x04,D6
00020a4e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a50 1e ba f8 64              |   d    |		MOVE.B	0x202b6,(A7)
00020a54 1f 7a f8 61 00 01        | z a    |		MOVE.B	0x202b7,(A7+0x1)
00020a5a 1f 7a f8 5c 00 02        | z \    |		MOVE.B	0x202b8,(A7+0x2)
00020a60 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a62 2f 39 00 02 54 f6        |/9  T   |		MOVE.L	0x254f6,-(A7)
00020a68 48 78 00 08              |Hx      |		PEA.L	0x8
00020a6c 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00020a72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a74 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020a78 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a7a 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020a7e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a86 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020a8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a8e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020a94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a96 2e 86                    |.       |		MOVE.L	D6,(A7)
00020a98 70 01                    |p       |		MOVEQ.L	#0x01,D0
00020a9a b0 97                    |        |		CMP.L	(A7),D0
00020a9c 6e 00 00 d0              |n       |		BGT	0x20b6e
00020aa0 2a 39 00 02 54 f6        |*9  T   |		MOVE.L	0x254f6,D5
00020aa6 9a b9 00 02 54 fa        |    T   |		SUB.L	0x254fa,D5
00020aac da 80                    |        |		ADD.L	D0,D5
00020aae 53 85                    |S       |		SUBQ.L	#0x1,D5
00020ab0 28 05                    |(       |		MOVE.L	D5,D4
00020ab2 26 3c 00 00 04 00        |&<      |		MOVE.L	#0x400,D3
00020ab8 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00020abe 2a 04                    |*       |		MOVE.L	D4,D5
00020ac0 2d 43 ff f0              |-C      |		MOVE.L	D3,(A6-0x10)
00020ac4 2f 03                    |/       |		MOVE.L	D3,-(A7)
00020ac6 28 03                    |(       |		MOVE.L	D3,D4
00020ac8 76 02                    |v       |		MOVEQ.L	#0x02,D3
00020aca 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00020ad0 2d 44 ff f6              |-D      |		MOVE.L	D4,(A6-0xa)
00020ad4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020ad6 0c 85 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D5
00020adc 63 02                    |c       |		BLS	0x20ae0
00020ade 4e 4f                    |NO      |		TRAP	#15
00020ae0 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020ae2 42 67                    |Bg      |		CLR.W	-(A7)
00020ae4 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020ae8 1f 02                    |        |		MOVE.B	D2,-(A7)
00020aea 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020aec 48 52                    |HR      |		PEA.L	(A2)
00020aee 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020af4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020af8 0c 84 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D4
00020afe 63 02                    |c       |		BLS	0x20b02
00020b00 4e 4f                    |NO      |		TRAP	#15
00020b02 e3 84                    |        |		ASL.L	#0x1,D4
00020b04 20 4b                    | K      |		MOVEA.L	A3,A0
00020b06 3d 70 48 14 ff f4        |=pH     |		MOVE.W	(A0+D4.L+#0x14),(A6-0xc)
00020b0c 22 1f                    |"       |		MOVE.L	(A7)+,D1
00020b0e 08 01 00 00              |        |		BTST.L	#0x0,D1
00020b12 67 10                    |g       |		BEQ	0x20b24
00020b14 32 2e ff f4              |2.      |		MOVE.W	(A6-0xc),D1
00020b18 02 41 00 ff              | A      |		ANDI.W	#0x00ff,D1
00020b1c 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00020b20 3e 01                    |>       |		MOVE.W	D1,D7
00020b22 60 0a                    |`       |		BRA	0x20b2e
00020b24 3e 2e ff f4              |>.      |		MOVE.W	(A6-0xc),D7
00020b28 e0 4f                    | O      |		LSR.W	#0x8,D7
00020b2a 02 47 00 ff              | G      |		ANDI.W	#0x00ff,D7
00020b2e 3f 3a f7 8a              |?:      |		MOVE.W	0x202ba,-(A7)
00020b32 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b34 32 07                    |2       |		MOVE.W	D7,D1
00020b36 48 c1                    |H       |		EXTW.L	D1
00020b38 2f 01                    |/       |		MOVE.L	D1,-(A7)
00020b3a 48 78 00 02              |Hx      |		PEA.L	0x2
00020b3e 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00020b44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b46 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020b4a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b4c 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020b50 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b56 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b58 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020b5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b60 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020b66 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b68 52 80                    |R       |		ADDQ.L	#0x1,D0
00020b6a 68 00 ff 2e              |h  .    |		BVC	0x20a9a
00020b6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b70 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020b76 42 27                    |B'      |		CLR.B	-(A7)
00020b78 1f 02                    |        |		MOVE.B	D2,-(A7)
00020b7a 48 78 00 01              |Hx      |		PEA.L	0x1
00020b7e 48 52                    |HR      |		PEA.L	(A2)
00020b80 48 54                    |HT      |		PEA.L	(A4)
00020b82 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020b88 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020b8c 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020b90 4e 5e                    |N^      |		UNLK	A6
00020b92 4e 75                    |Nu      |		RTS
00020b94 ; --------------------------------------------------------------------------------------
00020b94 ; OMSI PASCAL Function
00020b94 ;    <LVAR  0x016 1(r)>
00020b94 ;    <LVAR  0x014 1(r)>
00020b94 ;    <LVAR  0x012 1(r)>
00020b94 ;    <LVAR  0x010 1(r)>
00020b94 ;    <LVAR  0x00e 1(r)>
00020b94 ;    <LVAR  0x00c 1(r)>
00020b94 ;    <LVAR  0x008 4(r)>
00020b94 ;    <LVAR -0x003 @ 1(rw)>
00020b94 ;    <LVAR -0x004 @ 1(r)>
00020b94 ;    <LVAR -0x008 @ 4(rw)>
00020b94 ; --------------------------------------------------------------------------------------
00020b94 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00020b98 bf d5                    |        |		CMPA.L	(A5),A7
00020b9a 62 06                    |b       |		BHI	0x20ba2
00020b9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ba0 4e 76                    |Nv      |		TRAPV
00020ba2 de fc 00 7c              |   |    |		ADDA.W	#0x7c,A7
00020ba6 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020baa 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00020bae 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020bb4 49 ee ff fd              |I       |		LEA.L	(A6-0x3),A4
00020bb8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020bba 74 14                    |t       |		MOVEQ.L	#0x14,D2
00020bbc 76 16                    |v       |		MOVEQ.L	#0x16,D3
00020bbe 78 10                    |x       |		MOVEQ.L	#0x10,D4
00020bc0 7a 18                    |z       |		MOVEQ.L	#0x18,D5
00020bc2 7c 1a                    ||       |		MOVEQ.L	#0x1a,D6
00020bc4 7e 2e                    |~.      |		MOVEQ.L	#0x2e,D7
00020bc6 3f 3a f6 f4              |?:      |		MOVE.W	0x202bc,-(A7)
00020bca 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020bce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bd0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020bd4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020bd6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020bda 4e 93                    |N       |		JSR	(A3)
00020bdc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020bde 1e 81                    |        |		MOVE.B	D1,(A7)
00020be0 48 54                    |HT      |		PEA.L	(A4)
00020be2 48 52                    |HR      |		PEA.L	(A2)
00020be4 4e ba f7 b6              |N       |		JSR	0x2039c
00020be8 de c2                    |        |		ADDA.W	D2,A7
00020bea 4a 14                    |J       |		TST.B	(A4)
00020bec 66 38                    |f8      |		BNE	0x20c26
00020bee 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00020bf2 66 32                    |f2      |		BNE	0x20c26
00020bf4 9e fc 00 34              |   4    |		SUBA.W	#0x34,A7
00020bf8 20 4f                    | O      |		MOVEA.L	A7,A0
00020bfa 43 fa f5 c8              |C       |		LEA.L	0x201c4,A1
00020bfe 70 32                    |p2      |		MOVEQ.L	#0x32,D0
00020c00 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c02 51 c8 ff fc              |Q       |		DBF	D0,0x20c00
00020c06 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c08 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c0e 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
00020c12 4e 93                    |N       |		JSR	(A3)
00020c14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c16 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020c1c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c1e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020c20 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00020c24 18 81                    |        |		MOVE.B	D1,(A4)
00020c26 4a 14                    |J       |		TST.B	(A4)
00020c28 67 06                    |g       |		BEQ	0x20c30
00020c2a 23 d2 00 02 54 fe        |#   T   |		MOVE.L	(A2),0x254fe
00020c30 2f 3a f6 8c              |/:      |		MOVE.L	0x202be,-(A7)
00020c34 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020c38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c3a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c40 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020c44 4e 93                    |N       |		JSR	(A3)
00020c46 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c48 1e 81                    |        |		MOVE.B	D1,(A7)
00020c4a 48 54                    |HT      |		PEA.L	(A4)
00020c4c 48 52                    |HR      |		PEA.L	(A2)
00020c4e 4e ba f7 4c              |N  L    |		JSR	0x2039c
00020c52 de c3                    |        |		ADDA.W	D3,A7
00020c54 4a 14                    |J       |		TST.B	(A4)
00020c56 66 32                    |f2      |		BNE	0x20c8a
00020c58 4a 2e 00 14              |J.      |		TST.B	(A6+0x14)
00020c5c 66 2c                    |f,      |		BNE	0x20c8a
00020c5e 41 fa f5 be              |A       |		LEA.L	0x2021e,A0
00020c62 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020c64 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c66 51 c8 ff fc              |Q       |		DBF	D0,0x20c64
00020c6a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c6c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c72 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00020c76 4e 93                    |N       |		JSR	(A3)
00020c78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c7a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020c80 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c82 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020c84 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00020c88 18 81                    |        |		MOVE.B	D1,(A4)
00020c8a 4a 14                    |J       |		TST.B	(A4)
00020c8c 67 3e                    |g>      |		BEQ	0x20ccc
00020c8e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020c90 48 78 00 10              |Hx      |		PEA.L	0x10
00020c94 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020c98 48 79 00 02 54 fa        |Hy  T   |		PEA.L	0x254fa
00020c9e 4e ba f8 70              |N  p    |		JSR	0x20510
00020ca2 de c4                    |        |		ADDA.W	D4,A7
00020ca4 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020ca8 66 22                    |f"      |		BNE	0x20ccc
00020caa 41 fa f4 92              |A       |		LEA.L	0x2013e,A0
00020cae 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020cb0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020cb2 51 c8 ff fc              |Q       |		DBF	D0,0x20cb0
00020cb6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020cb8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020cbc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020cbe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020cc0 4e 93                    |N       |		JSR	(A3)
00020cc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cc4 4e b9 00 02 19 f2        |N       |		JSR	0x219f2
00020cca de c5                    |        |		ADDA.W	D5,A7
00020ccc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020cce 20 4f                    | O      |		MOVEA.L	A7,A0
00020cd0 43 fa f5 f0              |C       |		LEA.L	0x202c2,A1
00020cd4 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020cd6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020cd8 51 c8 ff fc              |Q       |		DBF	D0,0x20cd6
00020cdc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020ce0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ce2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020ce6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ce8 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00020cec 4e 93                    |N       |		JSR	(A3)
00020cee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cf0 1e 81                    |        |		MOVE.B	D1,(A7)
00020cf2 48 54                    |HT      |		PEA.L	(A4)
00020cf4 48 52                    |HR      |		PEA.L	(A2)
00020cf6 4e ba f6 a4              |N       |		JSR	0x2039c
00020cfa de c6                    |        |		ADDA.W	D6,A7
00020cfc 4a 14                    |J       |		TST.B	(A4)
00020cfe 66 34                    |f4      |		BNE	0x20d34
00020d00 4a 2e 00 12              |J.      |		TST.B	(A6+0x12)
00020d04 66 2e                    |f.      |		BNE	0x20d34
00020d06 9e c7                    |        |		SUBA.W	D7,A7
00020d08 20 4f                    | O      |		MOVEA.L	A7,A0
00020d0a 43 fa f5 7c              |C  |    |		LEA.L	0x20288,A1
00020d0e 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
00020d10 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d12 51 c8 ff fc              |Q       |		DBF	D0,0x20d10
00020d16 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d18 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020d1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d1e 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00020d22 4e 93                    |N       |		JSR	(A3)
00020d24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d26 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020d2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d2e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020d30 de c7                    |        |		ADDA.W	D7,A7
00020d32 18 81                    |        |		MOVE.B	D1,(A4)
00020d34 4a 14                    |J       |		TST.B	(A4)
00020d36 67 3e                    |g>      |		BEQ	0x20d76
00020d38 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020d3a 48 78 00 10              |Hx      |		PEA.L	0x10
00020d3e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020d42 48 79 00 02 54 f6        |Hy  T   |		PEA.L	0x254f6
00020d48 4e ba f7 c6              |N       |		JSR	0x20510
00020d4c de c4                    |        |		ADDA.W	D4,A7
00020d4e 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020d52 66 22                    |f"      |		BNE	0x20d76
00020d54 41 fa f3 e8              |A       |		LEA.L	0x2013e,A0
00020d58 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020d5a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020d5c 51 c8 ff fc              |Q       |		DBF	D0,0x20d5a
00020d60 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d62 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020d66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d68 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020d6a 4e 93                    |N       |		JSR	(A3)
00020d6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d6e 4e b9 00 02 19 f2        |N       |		JSR	0x219f2
00020d74 de c5                    |        |		ADDA.W	D5,A7
00020d76 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00020d7a 66 06                    |f       |		BNE	0x20d82
00020d7c 42 39 00 02 54 f4        |B9  T   |		CLR.B	0x254f4
00020d82 2f 3a f5 46              |/: F    |		MOVE.L	0x202ca,-(A7)
00020d86 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020d8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d8c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020d90 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d92 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020d96 4e 93                    |N       |		JSR	(A3)
00020d98 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d9a 42 17                    |B       |		CLR.B	(A7)
00020d9c 48 54                    |HT      |		PEA.L	(A4)
00020d9e 48 52                    |HR      |		PEA.L	(A2)
00020da0 4e ba f5 fa              |N       |		JSR	0x2039c
00020da4 de c3                    |        |		ADDA.W	D3,A7
00020da6 4a 14                    |J       |		TST.B	(A4)
00020da8 67 06                    |g       |		BEQ	0x20db0
00020daa 13 c1 00 02 54 f4        |    T   |		MOVE.B	D1,0x254f4
00020db0 2f 3a f5 1c              |/:      |		MOVE.L	0x202ce,-(A7)
00020db4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020db8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dba 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020dbe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dc0 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020dc4 4e 93                    |N       |		JSR	(A3)
00020dc6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020dc8 42 17                    |B       |		CLR.B	(A7)
00020dca 48 54                    |HT      |		PEA.L	(A4)
00020dcc 48 52                    |HR      |		PEA.L	(A2)
00020dce 4e ba f5 cc              |N       |		JSR	0x2039c
00020dd2 de c3                    |        |		ADDA.W	D3,A7
00020dd4 4a 14                    |J       |		TST.B	(A4)
00020dd6 67 08                    |g       |		BEQ	0x20de0
00020dd8 13 fc 00 02 00 02 54 f4  |      T |		MOVE.B	#0x02,0x254f4
00020de0 2f 3a f4 f4              |/:      |		MOVE.L	0x202d6,-(A7)
00020de4 2f 3a f4 ec              |/:      |		MOVE.L	0x202d2,-(A7)
00020de8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020dec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dee 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020df2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020df4 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020df8 4e 93                    |N       |		JSR	(A3)
00020dfa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020dfc 42 17                    |B       |		CLR.B	(A7)
00020dfe 48 54                    |HT      |		PEA.L	(A4)
00020e00 48 52                    |HR      |		PEA.L	(A2)
00020e02 4e ba f5 98              |N       |		JSR	0x2039c
00020e06 de c6                    |        |		ADDA.W	D6,A7
00020e08 4a 14                    |J       |		TST.B	(A4)
00020e0a 67 08                    |g       |		BEQ	0x20e14
00020e0c 13 fc 00 03 00 02 54 f4  |      T |		MOVE.B	#0x03,0x254f4
00020e14 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00020e18 66 78                    |fx      |		BNE	0x20e92
00020e1a 4a 39 00 02 54 f4        |J9  T   |		TST.B	0x254f4
00020e20 66 70                    |fp      |		BNE	0x20e92
00020e22 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00020e26 20 4f                    | O      |		MOVEA.L	A7,A0
00020e28 43 fa f3 f4              |C       |		LEA.L	0x2021e,A1
00020e2c 70 20                    |p       |		MOVEQ.L	#0x20,D0
00020e2e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e30 51 c8 ff fc              |Q       |		DBF	D0,0x20e2e
00020e34 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020e38 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020e3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e3e 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020e42 4e 93                    |N       |		JSR	(A3)
00020e44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e46 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020e4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e4e 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00020e54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e56 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020e58 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020e5c 20 52                    | R      |		MOVEA.L	(A2),A0
00020e5e 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00020e62 0c 00 00 42              |   B    |		CMPI.B	#0x42,D0
00020e66 66 06                    |f       |		BNE	0x20e6e
00020e68 13 c1 00 02 54 f4        |    T   |		MOVE.B	D1,0x254f4
00020e6e 0c 00 00 57              |   W    |		CMPI.B	#0x57,D0
00020e72 66 08                    |f       |		BNE	0x20e7c
00020e74 13 fc 00 02 00 02 54 f4  |      T |		MOVE.B	#0x02,0x254f4
00020e7c 0c 00 00 4c              |   L    |		CMPI.B	#0x4c,D0
00020e80 66 08                    |f       |		BNE	0x20e8a
00020e82 13 fc 00 03 00 02 54 f4  |      T |		MOVE.B	#0x03,0x254f4
00020e8a 4a 39 00 02 54 f4        |J9  T   |		TST.B	0x254f4
00020e90 67 90                    |g       |		BEQ	0x20e22
00020e92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e94 1e ba f4 44              |   D    |		MOVE.B	0x202da,(A7)
00020e98 1f 7a f4 41 00 01        | z A    |		MOVE.B	0x202db,(A7+0x1)
00020e9e 1f 7a f4 3c 00 02        | z <    |		MOVE.B	0x202dc,(A7+0x2)
00020ea4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020ea8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020eaa 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020eae 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020eb0 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020eb4 4e 93                    |N       |		JSR	(A3)
00020eb6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020eb8 1e 81                    |        |		MOVE.B	D1,(A7)
00020eba 48 79 00 02 55 02        |Hy  U   |		PEA.L	0x25502
00020ec0 48 52                    |HR      |		PEA.L	(A2)
00020ec2 4e ba f4 d8              |N       |		JSR	0x2039c
00020ec6 de c3                    |        |		ADDA.W	D3,A7
00020ec8 4a 39 00 02 55 02        |J9  U   |		TST.B	0x25502
00020ece 66 38                    |f8      |		BNE	0x20f08
00020ed0 4a 2e 00 0e              |J.      |		TST.B	(A6+0xe)
00020ed4 66 32                    |f2      |		BNE	0x20f08
00020ed6 9e c7                    |        |		SUBA.W	D7,A7
00020ed8 20 4f                    | O      |		MOVEA.L	A7,A0
00020eda 43 fa f3 64              |C  d    |		LEA.L	0x20240,A1
00020ede 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
00020ee0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ee2 51 c8 ff fc              |Q       |		DBF	D0,0x20ee0
00020ee6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ee8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020eec 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020eee 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00020ef2 4e 93                    |N       |		JSR	(A3)
00020ef4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ef6 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020efc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020efe 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020f00 de c7                    |        |		ADDA.W	D7,A7
00020f02 13 c1 00 02 55 02        |    U   |		MOVE.B	D1,0x25502
00020f08 4a 39 00 02 55 02        |J9  U   |		TST.B	0x25502
00020f0e 67 3e                    |g>      |		BEQ	0x20f4e
00020f10 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020f12 48 78 00 10              |Hx      |		PEA.L	0x10
00020f16 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020f1a 48 79 00 02 55 04        |Hy  U   |		PEA.L	0x25504
00020f20 4e ba f5 ee              |N       |		JSR	0x20510
00020f24 de c4                    |        |		ADDA.W	D4,A7
00020f26 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020f2a 66 22                    |f"      |		BNE	0x20f4e
00020f2c 41 fa f2 10              |A       |		LEA.L	0x2013e,A0
00020f30 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020f32 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020f34 51 c8 ff fc              |Q       |		DBF	D0,0x20f32
00020f38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f3a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f40 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020f42 4e 93                    |N       |		JSR	(A3)
00020f44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f46 4e b9 00 02 19 f2        |N       |		JSR	0x219f2
00020f4c de c5                    |        |		ADDA.W	D5,A7
00020f4e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f50 1e ba f3 8c              |        |		MOVE.B	0x202de,(A7)
00020f54 1f 7a f3 89 00 01        | z      |		MOVE.B	0x202df,(A7+0x1)
00020f5a 1f 7a f3 84 00 02        | z      |		MOVE.B	0x202e0,(A7+0x2)
00020f60 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020f64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f66 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020f6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f6c 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020f70 4e 93                    |N       |		JSR	(A3)
00020f72 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f74 1e 81                    |        |		MOVE.B	D1,(A7)
00020f76 48 79 00 02 55 08        |Hy  U   |		PEA.L	0x25508
00020f7c 48 52                    |HR      |		PEA.L	(A2)
00020f7e 4e ba f4 1c              |N       |		JSR	0x2039c
00020f82 de c3                    |        |		ADDA.W	D3,A7
00020f84 4a 39 00 02 55 08        |J9  U   |		TST.B	0x25508
00020f8a 66 32                    |f2      |		BNE	0x20fbe
00020f8c 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
00020f90 66 2c                    |f,      |		BNE	0x20fbe
00020f92 41 fa f2 f4              |A       |		LEA.L	0x20288,A0
00020f96 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020f98 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020f9a 51 c8 ff fc              |Q       |		DBF	D0,0x20f98
00020f9e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020fa0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020fa4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020fa6 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020fa8 4e 93                    |N       |		JSR	(A3)
00020faa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fac 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020fb2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fb4 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020fb6 de c6                    |        |		ADDA.W	D6,A7
00020fb8 13 c1 00 02 55 08        |    U   |		MOVE.B	D1,0x25508
00020fbe 4a 39 00 02 55 08        |J9  U   |		TST.B	0x25508
00020fc4 67 3e                    |g>      |		BEQ	0x21004
00020fc6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020fc8 48 78 00 10              |Hx      |		PEA.L	0x10
00020fcc 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020fd0 48 79 00 02 55 0a        |Hy  U   |		PEA.L	0x2550a
00020fd6 4e ba f5 38              |N  8    |		JSR	0x20510
00020fda de c4                    |        |		ADDA.W	D4,A7
00020fdc 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020fe0 66 22                    |f"      |		BNE	0x21004
00020fe2 41 fa f1 5a              |A  Z    |		LEA.L	0x2013e,A0
00020fe6 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020fe8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020fea 51 c8 ff fc              |Q       |		DBF	D0,0x20fe8
00020fee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ff0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ff4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ff6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ff8 4e 93                    |N       |		JSR	(A3)
00020ffa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ffc 4e b9 00 02 19 f2        |N       |		JSR	0x219f2
00021002 de c5                    |        |		ADDA.W	D5,A7
00021004 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021008 4e 5e                    |N^      |		UNLK	A6
0002100a 4e 75                    |Nu      |		RTS
0002100c ; --------------------------------------------------------------------------------------
0002100c ; OMSI PASCAL Function
0002100c ;    <LVAR  0x008 4(r)>
0002100c ; --------------------------------------------------------------------------------------
0002100c 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00021010 bf d5                    |        |		CMPA.L	(A5),A7
00021012 62 06                    |b       |		BHI	0x2101a
00021014 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021018 4e 76                    |Nv      |		TRAPV
0002101a de fc 00 7c              |   |    |		ADDA.W	#0x7c,A7
0002101e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021022 45 f9 00 02 55 04        |E   U   |		LEA.L	0x25504,A2
00021028 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002102e 49 f9 00 02 54 fe        |I   T   |		LEA.L	0x254fe,A4
00021034 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021036 74 28                    |t(      |		MOVEQ.L	#0x28,D2
00021038 7a 34                    |z4      |		MOVEQ.L	#0x34,D5
0002103a 42 92                    |B       |		CLR.L	(A2)
0002103c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002103e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021040 42 27                    |B'      |		CLR.B	-(A7)
00021042 42 27                    |B'      |		CLR.B	-(A7)
00021044 1f 01                    |        |		MOVE.B	D1,-(A7)
00021046 42 27                    |B'      |		CLR.B	-(A7)
00021048 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002104c 4e ba fb 46              |N  F    |		JSR	0x20b94
00021050 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021054 10 39 00 02 54 f4        | 9  T   |		MOVE.B	0x254f4,D0
0002105a 48 80                    |H       |		EXTB.W	D0
0002105c 53 40                    |S@      |		SUBQ.W	#0x1,D0
0002105e 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00021062 63 02                    |c       |		BLS	0x21066
00021064 4e 4e                    |NN      |		TRAP	#14
00021066 d0 40                    | @      |		ADD.W	D0,D0
00021068 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021070 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x21076
00021072 00 10                    |        |		.CONST	0x10			; [0x1] -> 0x21080
00021074 00 18                    |        |		.CONST	0x18			; [0x2] -> 0x21088
00021076					switch@0x21068[0x0]:
00021076 2e 3c 00 00 00 ff        |.<      |		MOVE.L	#0xff,D7
0002107c 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0002107e 60 0c                    |`       |		BRA	0x2108c
00021080					switch@0x21068[0x1]:
00021080 2e 3c 00 00 ff ff        |.<      |		MOVE.L	#0xffff,D7
00021086 60 02                    |`       |		BRA	0x2108a
00021088					switch@0x21068[0x2]:
00021088 7e ff                    |~       |		MOVEQ.L	#-0x01,D7
0002108a 7c 02                    ||       |		MOVEQ.L	#0x02,D6
0002108c be 92                    |        |		CMP.L	(A2),D7
0002108e 65 08                    |e       |		BCS	0x21098
00021090 be b9 00 02 55 0a        |    U   |		CMP.L	0x2550a,D7
00021096 64 22                    |d"      |		BCC	0x210ba
00021098 41 fa f0 cc              |A       |		LEA.L	0x20166,A0
0002109c 70 09                    |p       |		MOVEQ.L	#0x09,D0
0002109e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000210a0 51 c8 ff fc              |Q       |		DBF	D0,0x2109e
000210a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210ae 4e 93                    |N       |		JSR	(A3)
000210b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210b2 4e ba f3 48              |N  H    |		JSR	0x203fc
000210b6 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000210ba 28 39 00 02 54 f6        |(9  T   |		MOVE.L	0x254f6,D4
000210c0 26 06                    |&       |		MOVE.L	D6,D3
000210c2 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000210c8 4a 83                    |J       |		TST.L	D3
000210ca 67 28                    |g(      |		BEQ	0x210f4
000210cc 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
000210d0 20 4f                    | O      |		MOVEA.L	A7,A0
000210d2 43 fa f0 a4              |C       |		LEA.L	0x20178,A1
000210d6 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000210d8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210da 51 c8 ff fc              |Q       |		DBF	D0,0x210d8
000210de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210e6 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000210ea 4e 93                    |N       |		JSR	(A3)
000210ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210ee 4e ba f3 0c              |N       |		JSR	0x203fc
000210f2 de c2                    |        |		ADDA.W	D2,A7
000210f4 20 54                    | T      |		MOVEA.L	(A4),A0
000210f6 b0 c1                    |        |		CMPA.W	D1,A0
000210f8 66 2c                    |f,      |		BNE	0x21126
000210fa 9e c5                    |        |		SUBA.W	D5,A7
000210fc 20 4f                    | O      |		MOVEA.L	A7,A0
000210fe 43 fa f0 c4              |C       |		LEA.L	0x201c4,A1
00021102 70 32                    |p2      |		MOVEQ.L	#0x32,D0
00021104 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021106 51 c8 ff fc              |Q       |		DBF	D0,0x21104
0002110a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002110c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021110 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021112 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
00021116 4e 93                    |N       |		JSR	(A3)
00021118 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002111a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021120 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021122 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00021124 de c5                    |        |		ADDA.W	D5,A7
00021126 4e ba f5 3a              |N  :    |		JSR	0x20662
0002112a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002112e 4e 5e                    |N^      |		UNLK	A6
00021130 4e 75                    |Nu      |		RTS
00021132 ; --------------------------------------------------------------------------------------
00021132 ; OMSI PASCAL Function
00021132 ;    <LVAR  0x008 4(r)>
00021132 ; --------------------------------------------------------------------------------------
00021132 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00021136 bf d5                    |        |		CMPA.L	(A5),A7
00021138 62 06                    |b       |		BHI	0x21140
0002113a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002113e 4e 76                    |Nv      |		TRAPV
00021140 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00021144 48 e7 f9 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021148 45 f9 00 02 54 fe        |E   T   |		LEA.L	0x254fe,A2
0002114e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021150 74 34                    |t4      |		MOVEQ.L	#0x34,D2
00021152 1f 01                    |        |		MOVE.B	D1,-(A7)
00021154 1f 01                    |        |		MOVE.B	D1,-(A7)
00021156 42 27                    |B'      |		CLR.B	-(A7)
00021158 42 27                    |B'      |		CLR.B	-(A7)
0002115a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002115c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002115e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021162 4e ba fa 30              |N  0    |		JSR	0x20b94
00021166 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002116a 10 39 00 02 54 f4        | 9  T   |		MOVE.B	0x254f4,D0
00021170 48 80                    |H       |		EXTB.W	D0
00021172 53 40                    |S@      |		SUBQ.W	#0x1,D0
00021174 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00021178 63 02                    |c       |		BLS	0x2117c
0002117a 4e 4e                    |NN      |		TRAP	#14
0002117c d0 40                    | @      |		ADD.W	D0,D0
0002117e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021186 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x2118c
00021188 00 0a                    |        |		.CONST	0xa			; [0x1] -> 0x21190
0002118a 00 0e                    |        |		.CONST	0xe			; [0x2] -> 0x21194
0002118c					switch@0x2117e[0x0]:
0002118c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002118e 60 06                    |`       |		BRA	0x21196
00021190					switch@0x2117e[0x1]:
00021190 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00021192 60 02                    |`       |		BRA	0x21196
00021194					switch@0x2117e[0x2]:
00021194 7e 04                    |~       |		MOVEQ.L	#0x04,D7
00021196 28 39 00 02 54 f6        |(9  T   |		MOVE.L	0x254f6,D4
0002119c 26 07                    |&       |		MOVE.L	D7,D3
0002119e 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000211a4 4a 83                    |J       |		TST.L	D3
000211a6 67 2e                    |g.      |		BEQ	0x211d6
000211a8 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
000211ac 20 4f                    | O      |		MOVEA.L	A7,A0
000211ae 43 fa ef c8              |C       |		LEA.L	0x20178,A1
000211b2 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000211b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211b6 51 c8 ff fc              |Q       |		DBF	D0,0x211b4
000211ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211bc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211c0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211c2 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000211c6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000211cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211ce 4e ba f2 2c              |N  ,    |		JSR	0x203fc
000211d2 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000211d6 20 52                    | R      |		MOVEA.L	(A2),A0
000211d8 b0 c1                    |        |		CMPA.W	D1,A0
000211da 66 30                    |f0      |		BNE	0x2120c
000211dc 9e c2                    |        |		SUBA.W	D2,A7
000211de 20 4f                    | O      |		MOVEA.L	A7,A0
000211e0 43 fa ef e2              |C       |		LEA.L	0x201c4,A1
000211e4 70 32                    |p2      |		MOVEQ.L	#0x32,D0
000211e6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211e8 51 c8 ff fc              |Q       |		DBF	D0,0x211e6
000211ec 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000211ee 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000211f2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211f4 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
000211f8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000211fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021200 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021206 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021208 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002120a de c2                    |        |		ADDA.W	D2,A7
0002120c 4e ba f7 9a              |N       |		JSR	0x209a8
00021210 4c df 07 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00021214 4e 5e                    |N^      |		UNLK	A6
00021216 4e 75                    |Nu      |		RTS
00021218 ; --------------------------------------------------------------------------------------
00021218 ; OMSI PASCAL Function
00021218 ; --------------------------------------------------------------------------------------
00021218 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
0002121c bf d5                    |        |		CMPA.L	(A5),A7
0002121e 62 06                    |b       |		BHI	0x21226
00021220 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021224 4e 76                    |Nv      |		TRAPV
00021226 de fc 00 04              |        |		ADDA.W	#0x4,A7
0002122a 42 b9 00 02 54 fa        |B   T   |		CLR.L	0x254fa
00021230 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x254fe
00021238 54 fe                    |T       |
0002123a 4e 5e                    |N^      |		UNLK	A6
0002123c 4e 75                    |Nu      |		RTS
0002123e ; --------------------------------------------------------------------------------------
0002123e ; OMSI PASCAL Function
0002123e ;    <LVAR  0x010 4(r)>
0002123e ;    <LVAR  0x00c 4(r)>
0002123e ;    <LVAR  0x008 4(r)>
0002123e ;    <LVAR -0x006 @ 4(rw)>
0002123e ; --------------------------------------------------------------------------------------
0002123e 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00021242 bf d5                    |        |		CMPA.L	(A5),A7
00021244 62 06                    |b       |		BHI	0x2124c
00021246 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002124a 4e 76                    |Nv      |		TRAPV
0002124c de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021250 48 e7 e3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00021254 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021258 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002125a 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
0002125c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021260 42 10                    |B       |		CLR.B	(A0)
00021262 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021264 10 07                    |        |		MOVE.B	D7,D0
00021266 48 80                    |H       |		EXTB.W	D0
00021268 c1 c2                    |        |		MULS.W	D2,D0
0002126a 41 fa f1 18              |A       |		LEA.L	0x20384,A0
0002126e 9e c2                    |        |		SUBA.W	D2,A7
00021270 22 4f                    |"O      |		MOVEA.L	A7,A1
00021272 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021276 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00021278 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002127a 51 c8 ff fc              |Q       |		DBF	D0,0x21278
0002127e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021280 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021284 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021286 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021288 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002128e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021290 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021292 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021294 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021296 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002129a 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000212a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212a2 10 1f                    |        |		MOVE.B	(A7)+,D0
000212a4 48 80                    |H       |		EXTB.W	D0
000212a6 41 81                    |A       |		CHK.W	D1,D0
000212a8 1c 00                    |        |		MOVE.B	D0,D6
000212aa 48 52                    |HR      |		PEA.L	(A2)
000212ac 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000212b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212b4 4a 06                    |J       |		TST.B	D6
000212b6 67 34                    |g4      |		BEQ	0x212ec
000212b8 10 07                    |        |		MOVE.B	D7,D0
000212ba 48 80                    |H       |		EXTB.W	D0
000212bc b0 41                    | A      |		CMP.W	D1,D0
000212be 63 02                    |c       |		BLS	0x212c2
000212c0 4e 4e                    |NN      |		TRAP	#14
000212c2 d0 40                    | @      |		ADD.W	D0,D0
000212c4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000212cc 00 04                    |        |		.CONST	0x4			; [0x0] -> 0x212d0
000212ce 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x212da
000212d0					switch@0x212c4[0x0]:
000212d0 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000212d4 4e ba fd 36              |N  6    |		JSR	0x2100c
000212d8 60 08                    |`       |		BRA	0x212e2
000212da					switch@0x212c4[0x1]:
000212da 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000212de 4e ba fe 52              |N  R    |		JSR	0x21132
000212e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212e4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000212e8 10 81                    |        |		MOVE.B	D1,(A0)
000212ea 60 08                    |`       |		BRA	0x212f4
000212ec 52 07                    |R       |		ADDQ.B	#0x1,D7
000212ee be 01                    |        |		CMP.B	D1,D7
000212f0 6f 00 ff 72              |o  r    |		BLE	0x21264
000212f4 4c df 07 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2
000212f8 4e 5e                    |N^      |		UNLK	A6
000212fa 4e 75                    |Nu      |		RTS
000212fc ; --------------------------------------------------------------------------------------
000212fc ; OMSI PASCAL Function
000212fc ;    <LVAR  0x008 4(r)>
000212fc ; --------------------------------------------------------------------------------------
000212fc 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00021300 bf d5                    |        |		CMPA.L	(A5),A7
00021302 62 06                    |b       |		BHI	0x2130a
00021304 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021308 4e 76                    |Nv      |		TRAPV
0002130a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002130e 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00021312 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021318 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002131c 43 fa ef dc              |C       |		LEA.L	0x202fa,A1
00021320 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021322 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021324 51 c8 ff fc              |Q       |		DBF	D0,0x21322
00021328 4e ba fe ee              |N       |		JSR	0x21218
0002132c 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021330 4e 5e                    |N^      |		UNLK	A6
00021332 4e 75                    |Nu      |		RTS
00021334 ; --------------------------------------------------------------------------------------
00021334 ; COMMAND TABLE
00021334 ; --------------------------------------------------------------------------------------
00021334					COMMAND_TABLE_21334:
00021334 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
0002133e 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
00021348 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00021352 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
0002135c 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
00021366 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
00021370 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
0002137a 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
00021384 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
0002138e 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
00021398 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
000213a2 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
000213ac 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
000213b6 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
000213c0 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
000213ca 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
000213d4 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
000213de 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
000213e8 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
000213f2 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
000213fc 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
00021406 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00021410 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
0002141a 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
00021424 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
0002142e 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
00021438 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00021442 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
0002144c 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
00021456 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00021460 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
0002146a 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
00021474 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
0002147e 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
00021488 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
00021492 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
0002149c 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
000214a6 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
000214b0 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
000214ba 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
000214c4 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
000214ce 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
000214d8 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
000214e2 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
000214ec 57 72 6f 6e 67 20 6e 75  |Wrong nu|		.TXT	'Wrong number of arguments for :_'
0002150c 45 51 2c 4e              |EQ,N    |		.XXX[0x4]
00021510 45 2c 23 45 51 2c 23 4e  |E,#EQ,#N|		.XXX[0x38]
00021518 45 2c 23 4c 54 2c 23 47  |E,#LT,#G|
00021520 54 2c 23 4c 45 2c 23 47  |T,#LE,#G|
00021528 45 2c 45 4c 53 45 5d 45  |E,ELSE]E|
00021530 4e 44 5d 43 41 53 45 2c  |ND]CASE,|
00021538 23 43 41 53 45 2c 57 48  |#CASE,WH|
00021540 45 4e 2c 45 4e 44 43 41  |EN,ENDCA|
00021548 53 45 5d 20              |SE]     |		.XXX[0x4]
0002154c 45 76 61 6c 75 61 74 69  |Evaluati|		.TXT	'Evaluation buffer overflow. '
00021568 55 6e 62 61 6c 61 6e 63  |Unbalanc|		.TXT	'Unbalanced [ELSE] or [END]! '
00021584 5b 57 48 45 4e 20 5d 20  |[WHEN ] |		.TXT	'[WHEN ]   '
0002158e 4e 6f 20 63 61 73 65 20  |No case |		.TXT	'No case alternative found!'
000215a8 4e 6f 20 5b 45 4e 44 43  |No [ENDC|		.TXT	'No [ENDCASE] found! '
000215bc 4e 6f 20 68 65 6c 70 20  |No help |		.TXT	'No help available for_'
000215d2 2e 48 4c 50              |.HLP    |		.TXT	'.HLP'
000215d6 54 6f 6f 20 66 65 77 20  |Too few |		.TXT	'Too few arguments for SET '
000215f0 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown variable :_ '
00021604 20 69 73 20 6e 6f 74 20  | is not |		.TXT	' is not a program.'
00021616 43 4c                    |CL      |		.TXT	'CL'
00021618 49 20                    |I       |		.XXX[0x2]
0002161a 2e 4d 32 30 30 20        |.M200   |		.TXT	'.M200 '
00021620 53 54                    |ST      |		.TXT	'ST'
00021622 41 54                    |AT      |		.TXT	'AT'
00021624 55 53                    |US      |		.TXT	'US'
00021626 52 45                    |RE      |		.TXT	'RE'
00021628 53 55                    |SU      |		.TXT	'SU'
0002162a 4c 54                    |LT      |		.TXT	'LT'
0002162c 4f 66 66 73 65 74 2f 4c  |Offset/L|		.TXT	'Offset/Length error in [INSERT] '
0002164c 52 45 50 45 41 54 69 6e  |REPEATin|		.TXT	'REPEATing, type ^G to exit. '
00021668 41 53 43 49 49 20 61 72  |ASCII ar|		.TXT	'ASCII argument out of range.'
00021684 4e 6f 74 20 61 20 63 6f  |Not a co|		.TXT	'Not a command or macro :_ '
0002169e 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal marker argument '
000216b6 53 77 69 74 63 68 20 65  |Switch e|		.TXT	'Switch exclusion is unimplemented.'
000216d8 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
000216f0 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
00021708 5b 49 4e 49 54 5d 5b 20  |[INIT][ |		.TXT	'[INIT][ '
00021710 5d 5b 42 59 45 5d 3b 20  |][BYE]; |		.TXT	'][BYE]; '
00021718 5b 49 4e 49 54 5d 3b 20  |[INIT]; |		.TXT	'[INIT]; '
00021720 3e 5f                    |>_      |		.TXT	'>_'
00021722 5b 20                    |[       |		.TXT	'[ '
00021724 5d 3b                    |];      |		.TXT	'];'
00021726 ; --------------------------------------------------------------------------------------
00021726 ; COMMAND TABLE
00021726 ; --------------------------------------------------------------------------------------
00021726					COMMAND_TABLE_21726:
00021726 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
00021730 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
0002173a 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00021744 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
0002174e 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
00021758 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
00021762 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
0002176c 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
00021776 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
00021780 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
0002178a 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
00021794 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
0002179e 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
000217a8 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
000217b2 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
000217bc 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
000217c6 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
000217d0 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
000217da 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
000217e4 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
000217ee 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
000217f8 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00021802 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
0002180c 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
00021816 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
00021820 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
0002182a 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00021834 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
0002183e 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
00021848 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00021852 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
0002185c 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
00021866 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
00021870 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
0002187a 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
00021884 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
0002188e 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
00021898 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
000218a2 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
000218ac 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
000218b6 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
000218c0 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
000218ca 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
000218d4 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
000218de a5 34                    | 4      |		.XXX[0x2]
000218e0 45 73 34 22 46 75 33 33  |Es4"Fu33|		.XXX[0x98]
000218e8 33 33 33 32 33 66 37 84  |33323f7 |
000218f0 44 57 a6 55 0f 00 f0 ff  |DW U    |
000218f8 10 22 14 31 22 22 22 22  | " 1""""|
00021900 22 22 22 22 14 3f 1f 03  |"""" ?  |
00021908 10 0f 00 00 00 00 ff ff  |        |
00021910 ff ff 00 01 01 00 01 01  |        |
00021918 00 01 02 00 00 01 02 00  |        |
00021920 01 02 00 01 14 06 01 14  |        |
00021928 08 14 0f 02 03 14 14 08  |        |
00021930 14 0f 14 14 14 14 14 14  |        |
00021938 14 04 14 05 14 14 14 14  |        |
00021940 14 14 14 14 14 14 14 04  |        |
00021948 14 14 14 14 14 14 04 14  |        |
00021950 07 14 14 14 14 04 14 14  |        |
00021958 14 14 14 14 0c 14 14 09  |        |
00021960 14 14 14 0d 14 14 14 0b  |        |
00021968 0a 14 0e 14 14 14 08 14  |        |
00021970 14 0c 14 14 09 14 14 14  |        |
00021978 14 14 14 14 14 14 14 14  |        |		.BLANK	14[0x10]
00021988 14 14 14 14 14 10 14 14  |        |		.XXX[0x28]
00021990 11 14 14 14 14 14 14 14  |        |
00021998 14 14 14 13 14 14 14 14  |        |
000219a0 14 12 14 14 14 11 14 14  |        |
000219a8 14 14 14 14 14 14 14 14  |        |
000219b0 ; --------------------------------------------------------------------------------------
000219b0 ; OMSI PASCAL Function
000219b0 ;    <LVAR  0x008 4(r)>
000219b0 ;    <LVAR -0x004 @ 4(w)>
000219b0 ; --------------------------------------------------------------------------------------
000219b0 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
000219b4 bf d5                    |        |		CMPA.L	(A5),A7
000219b6 62 06                    |b       |		BHI	0x219be
000219b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219bc 4e 76                    |Nv      |		TRAPV
000219be de fc 00 10              |        |		ADDA.W	#0x10,A7
000219c2 48 e7 00 08              |H       |		MOVEM.L	A4,-(A7)
000219c6 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
000219ca b8 fc 00 01              |        |		CMPA.W	#0x1,A4
000219ce 67 1a                    |g       |		BEQ	0x219ea
000219d0 2d 4c ff fc              |-L      |		MOVE.L	A4,(A6-0x4)
000219d4 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
000219d8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000219dc 48 78 00 0c              |Hx      |		PEA.L	0xc
000219e0 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
000219e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219e8 60 e0                    |`       |		BRA	0x219ca
000219ea 4c df 10 00              |L       |		MOVEM.L	(A7)+,A4
000219ee 4e 5e                    |N^      |		UNLK	A6
000219f0 4e 75                    |Nu      |		RTS
000219f2 ; --------------------------------------------------------------------------------------
000219f2 ; OMSI PASCAL Function
000219f2 ;    <LVAR  0x008 4(r)>
000219f2 ; --------------------------------------------------------------------------------------
000219f2 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
000219f6 bf d5                    |        |		CMPA.L	(A5),A7
000219f8 62 06                    |b       |		BHI	0x21a00
000219fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219fe 4e 76                    |Nv      |		TRAPV
00021a00 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021a04 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021a08 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021a0c b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00021a10 67 0a                    |g       |		BEQ	0x21a1c
00021a12 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021a14 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021a1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a1c 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00021a20 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00021a24 4e f9 00 02 52 ce        |N   R   |		JMP	0x252ce
00021a2a 4c df 01 00 4e 5e        |L   N^  |		.XXX[0x6]
00021a30 4e 75 4e 56 ff fc bf d5  |NuNV    |		.XXX[0x20]
00021a38 62 06 44 fc 00 02 4e 76  |b D   Nv|
00021a40 de fc 00 04 2d 79 00 02  |    -y  |
00021a48 65 18 00 08 4e 5e 4e 75  |e   N^Nu|
00021a50 ; --------------------------------------------------------------------------------------
00021a50 ; OMSI PASCAL Function
00021a50 ;    <LVAR  0x008 1(rw)>
00021a50 ; --------------------------------------------------------------------------------------
00021a50 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00021a54 bf d5                    |        |		CMPA.L	(A5),A7
00021a56 62 06                    |b       |		BHI	0x21a5e
00021a58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a5c 4e 76                    |Nv      |		TRAPV
00021a5e de fc 00 10              |        |		ADDA.W	#0x10,A7
00021a62 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021a66 20 39 00 02 65 18        | 9  e   |		MOVE.L	0x26518,D0
00021a6c b0 b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D0
00021a72 6f 06                    |o       |		BLE	0x21a7a
00021a74 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00021a78 60 0c                    |`       |		BRA	0x21a86
00021a7a 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00021a80 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00021a86 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021a8a 4e 5e                    |N^      |		UNLK	A6
00021a8c 4e 75                    |Nu      |		RTS
00021a8e ; --------------------------------------------------------------------------------------
00021a8e ; OMSI PASCAL Function
00021a8e ;    <LVAR  0x008 1(rw)>
00021a8e ; --------------------------------------------------------------------------------------
00021a8e 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00021a92 bf d5                    |        |		CMPA.L	(A5),A7
00021a94 62 06                    |b       |		BHI	0x21a9c
00021a96 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a9a 4e 76                    |Nv      |		TRAPV
00021a9c de fc 00 14              |        |		ADDA.W	#0x14,A7
00021aa0 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00021aa4 43 f9 00 02 65 18        |C   e   |		LEA.L	0x26518,A1
00021aaa 20 11                    |        |		MOVE.L	(A1),D0
00021aac b0 b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D0
00021ab2 6f 06                    |o       |		BLE	0x21aba
00021ab4 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00021ab8 60 0c                    |`       |		BRA	0x21ac6
00021aba 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00021ac0 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00021ac6 52 80                    |R       |		ADDQ.L	#0x1,D0
00021ac8 22 80                    |"       |		MOVE.L	D0,(A1)
00021aca 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021ace 4e 5e                    |N^      |		UNLK	A6
00021ad0 4e 75                    |Nu      |		RTS
00021ad2 ; --------------------------------------------------------------------------------------
00021ad2 ; OMSI PASCAL Function
00021ad2 ;    <LVAR  0x00c 4(r)>
00021ad2 ;    <LVAR  0x008 4(r)>
00021ad2 ; --------------------------------------------------------------------------------------
00021ad2 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021ad6 bf d5                    |        |		CMPA.L	(A5),A7
00021ad8 62 06                    |b       |		BHI	0x21ae0
00021ada 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021ade 4e 76                    |Nv      |		TRAPV
00021ae0 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021ae4 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021ae8 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021aec 47 f9 00 02 65 18        |G   e   |		LEA.L	0x26518,A3
00021af2 72 5b                    |r[      |		MOVEQ.L	#0x5b,D1
00021af4 74 02                    |t       |		MOVEQ.L	#0x02,D2
00021af6 76 2c                    |v,      |		MOVEQ.L	#0x2c,D3
00021af8 78 3b                    |x;      |		MOVEQ.L	#0x3b,D4
00021afa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021afc 4e ba ff 52              |N  R    |		JSR	0x21a50
00021b00 10 1f                    |        |		MOVE.B	(A7)+,D0
00021b02 b0 01                    |        |		CMP.B	D1,D0
00021b04 66 0a                    |f       |		BNE	0x21b10
00021b06 4e b9 00 02 4d d8        |N   M   |		JSR	0x24dd8
00021b0c 60 00 00 92              |`       |		BRA	0x21ba0
00021b10 2c 13                    |,       |		MOVE.L	(A3),D6
00021b12 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b14 4e ba ff 78              |N  x    |		JSR	0x21a8e
00021b18 1a 1f                    |        |		MOVE.B	(A7)+,D5
00021b1a 66 18                    |f       |		BNE	0x21b34
00021b1c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021b20 43 fa fd e8              |C       |		LEA.L	0x2190a,A1
00021b24 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021b26 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b28 51 c8 ff fc              |Q       |		DBF	D0,0x21b26
00021b2c 20 52                    | R      |		MOVEA.L	(A2),A0
00021b2e 10 82                    |        |		MOVE.B	D2,(A0)
00021b30 60 72                    |`r      |		BRA	0x21ba4
00021b32 60 5c                    |`\      |		.XXX[0x2]
00021b34 ba 03                    |        |		CMP.B	D3,D5
00021b36 66 08                    |f       |		BNE	0x21b40
00021b38 20 52                    | R      |		MOVEA.L	(A2),A0
00021b3a 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00021b3e 60 50                    |`P      |		BRA	0x21b90
00021b40 ba 04                    |        |		CMP.B	D4,D5
00021b42 66 08                    |f       |		BNE	0x21b4c
00021b44 20 52                    | R      |		MOVEA.L	(A2),A0
00021b46 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00021b4a 60 44                    |`D      |		BRA	0x21b90
00021b4c 0c 05 00 5d              |   ]    |		CMPI.B	#0x5d,D5
00021b50 66 06                    |f       |		BNE	0x21b58
00021b52 20 52                    | R      |		MOVEA.L	(A2),A0
00021b54 10 82                    |        |		MOVE.B	D2,(A0)
00021b56 60 38                    |`8      |		BRA	0x21b90
00021b58 20 52                    | R      |		MOVEA.L	(A2),A0
00021b5a 42 10                    |B       |		CLR.B	(A0)
00021b5c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b5e 4e ba fe f0              |N       |		JSR	0x21a50
00021b62 1e 1f                    |        |		MOVE.B	(A7)+,D7
00021b64 be 01                    |        |		CMP.B	D1,D7
00021b66 66 08                    |f       |		BNE	0x21b70
00021b68 4e b9 00 02 4d d8        |N   M   |		JSR	0x24dd8
00021b6e 60 1e                    |`       |		BRA	0x21b8e
00021b70 be 04                    |        |		CMP.B	D4,D7
00021b72 67 0e                    |g       |		BEQ	0x21b82
00021b74 be 03                    |        |		CMP.B	D3,D7
00021b76 67 0a                    |g       |		BEQ	0x21b82
00021b78 0c 07 00 5d              |   ]    |		CMPI.B	#0x5d,D7
00021b7c 67 04                    |g       |		BEQ	0x21b82
00021b7e 4a 07                    |J       |		TST.B	D7
00021b80 66 04                    |f       |		BNE	0x21b86
00021b82 60 0c                    |`       |		BRA	0x21b90
00021b84 60 08                    |`       |		.XXX[0x2]
00021b86 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b88 4e ba ff 04              |N       |		JSR	0x21a8e
00021b8c 1e 1f                    |        |		MOVE.B	(A7)+,D7
00021b8e 60 cc                    |`       |		BRA	0x21b5c
00021b90 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021b94 20 86                    |        |		MOVE.L	D6,(A0)
00021b96 21 53 00 04              |!S      |		MOVE.L	(A3),(A0+0x4)
00021b9a 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00021b9e 60 04                    |`       |		BRA	0x21ba4
00021ba0 60 00 ff 58              |`  X    |		BRA	0x21afa
00021ba4 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00021ba8 4e 5e                    |N^      |		UNLK	A6
00021baa 4e 75                    |Nu      |		RTS
00021bac ; --------------------------------------------------------------------------------------
00021bac ; OMSI PASCAL Function
00021bac ;    <LVAR  0x010 4(r)>
00021bac ;    <LVAR  0x00c 4(r)>
00021bac ;    <LVAR  0x008 4(r)>
00021bac ;    <LVAR -0x004 @ 1(rw)>
00021bac ;    <LVAR -0x008 4(w)>
00021bac ;    <LVAR -0x00c @ 4(w)>
00021bac ; --------------------------------------------------------------------------------------
00021bac 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00021bb0 bf d5                    |        |		CMPA.L	(A5),A7
00021bb2 62 06                    |b       |		BHI	0x21bba
00021bb4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021bb8 4e 76                    |Nv      |		TRAPV
00021bba de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021bbe 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00021bc2 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021bc6 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00021bca 72 03                    |r       |		MOVEQ.L	#0x03,D1
00021bcc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021bd0 10 10                    |        |		MOVE.B	(A0),D0
00021bd2 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00021bd6 67 06                    |g       |		BEQ	0x21bde
00021bd8 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00021bdc 66 0e                    |f       |		BNE	0x21bec
00021bde 26 ba fd 2a              |&  *    |		MOVE.L	0x2190a,(A3)
00021be2 2d 7a fd 2a ff f8        |-z *    |		MOVE.L	0x2190e,(A6-0x8)
00021be8 14 80                    |        |		MOVE.B	D0,(A2)
00021bea 60 3c                    |`<      |		BRA	0x21c28
00021bec 48 53                    |HS      |		PEA.L	(A3)
00021bee 48 52                    |HR      |		PEA.L	(A2)
00021bf0 4e ba fe e0              |N       |		JSR	0x21ad2
00021bf4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bf6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021bfa 4a 12                    |J       |		TST.B	(A2)
00021bfc 67 1c                    |g       |		BEQ	0x21c1a
00021bfe 10 10                    |        |		MOVE.B	(A0),D0
00021c00 b0 01                    |        |		CMP.B	D1,D0
00021c02 66 16                    |f       |		BNE	0x21c1a
00021c04 10 12                    |        |		MOVE.B	(A2),D0
00021c06 48 80                    |H       |		EXTB.W	D0
00021c08 41 81                    |A       |		CHK.W	D1,D0
00021c0a 10 80                    |        |		MOVE.B	D0,(A0)
00021c0c 26 ba fc fc              |&       |		MOVE.L	0x2190a,(A3)
00021c10 2d 7a fc fc ff f8        |-z      |		MOVE.L	0x2190e,(A6-0x8)
00021c16 42 12                    |B       |		CLR.B	(A2)
00021c18 60 08                    |`       |		BRA	0x21c22
00021c1a 10 12                    |        |		MOVE.B	(A2),D0
00021c1c 48 80                    |H       |		EXTB.W	D0
00021c1e 41 81                    |A       |		CHK.W	D1,D0
00021c20 10 80                    |        |		MOVE.B	D0,(A0)
00021c22 10 12                    |        |		MOVE.B	(A2),D0
00021c24 b0 01                    |        |		CMP.B	D1,D0
00021c26 67 c4                    |g       |		BEQ	0x21bec
00021c28 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021c2c 22 4b                    |"K      |		MOVEA.L	A3,A1
00021c2e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021c30 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c32 51 c8 ff fc              |Q       |		DBF	D0,0x21c30
00021c36 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021c3a 10 12                    |        |		MOVE.B	(A2),D0
00021c3c 48 80                    |H       |		EXTB.W	D0
00021c3e 41 81                    |A       |		CHK.W	D1,D0
00021c40 10 80                    |        |		MOVE.B	D0,(A0)
00021c42 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00021c46 4e 5e                    |N^      |		UNLK	A6
00021c48 4e 75                    |Nu      |		RTS
00021c4a ; --------------------------------------------------------------------------------------
00021c4a ; OMSI PASCAL Function
00021c4a ;    <LVAR  0x008 4(rw)>
00021c4a ;    <LVAR -0x004 1(rw)>
00021c4a ;    <LVAR -0x010 2(rw)>
00021c4a ; --------------------------------------------------------------------------------------
00021c4a 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021c4e bf d5                    |        |		CMPA.L	(A5),A7
00021c50 62 06                    |b       |		BHI	0x21c58
00021c52 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c56 4e 76                    |Nv      |		TRAPV
00021c58 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021c5c 48 e7 c7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00021c60 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00021c64 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021c68 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00021c6c 72 20                    |r       |		MOVEQ.L	#0x20,D1
00021c6e 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00021c70 42 51                    |BQ      |		CLR.W	(A1)
00021c72 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00021c74 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c76 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021c78 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00021c7e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c80 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021c82 20 53                    | S      |		MOVEA.L	(A3),A0
00021c84 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021c86 20 57                    | W      |		MOVEA.L	(A7),A0
00021c88 30 10                    |0       |		MOVE.W	(A0),D0
00021c8a 48 c0                    |H       |		EXTW.L	D0
00021c8c bc 80                    |        |		CMP.L	D0,D6
00021c8e 6e 00 00 b0              |n       |		BGT	0x21d40
00021c92 42 80                    |B       |		CLR.L	D0
00021c94 10 30 68 01              | 0h     |		MOVE.B	(A0+D6.L+#0x1),D0
00021c98 02 40 00 7f              | @      |		ANDI.W	#0x007f,D0
00021c9c 14 80                    |        |		MOVE.B	D0,(A2)
00021c9e 0c 00 00 09              |        |		CMPI.B	#0x09,D0
00021ca2 66 02                    |f       |		BNE	0x21ca6
00021ca4 14 81                    |        |		MOVE.B	D1,(A2)
00021ca6 42 80                    |B       |		CLR.L	D0
00021ca8 10 12                    |        |		MOVE.B	(A2),D0
00021caa 90 41                    | A      |		SUB.W	D1,D0
00021cac 0c 40 00 0c              | @      |		CMPI.W	#0x000c,D0
00021cb0 62 30                    |b0      |		BHI	switch@0x21cb4[0x2]
00021cb2 d0 40                    | @      |		ADD.W	D0,D0
00021cb4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021cbc 00 1e                    |        |		.CONST	0x1e			; [0x0] -> 0x21cda
00021cbe 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x21cd6
00021cc0 00 26                    | &      |		.CONST	0x26			; [0x2] -> 0x21ce2
00021cc2 00 26                    | &      |		.CONST	0x26			; [0x3] -> 0x21ce2
00021cc4 00 26                    | &      |		.CONST	0x26			; [0x4] -> 0x21ce2
00021cc6 00 26                    | &      |		.CONST	0x26			; [0x5] -> 0x21ce2
00021cc8 00 26                    | &      |		.CONST	0x26			; [0x6] -> 0x21ce2
00021cca 00 26                    | &      |		.CONST	0x26			; [0x7] -> 0x21ce2
00021ccc 00 26                    | &      |		.CONST	0x26			; [0x8] -> 0x21ce2
00021cce 00 26                    | &      |		.CONST	0x26			; [0x9] -> 0x21ce2
00021cd0 00 26                    | &      |		.CONST	0x26			; [0xa] -> 0x21ce2
00021cd2 00 26                    | &      |		.CONST	0x26			; [0xb] -> 0x21ce2
00021cd4 00 22                    | "      |		.CONST	0x22			; [0xc] -> 0x21cde
00021cd6					switch@0x21cb4[0x1]:
00021cd6 60 68                    |`h      |		BRA	0x21d40
00021cd8 60 0a                    |`       |		.XXX[0x2]
00021cda					switch@0x21cb4[0x0]:
00021cda 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021cdc 60 06                    |`       |		BRA	0x21ce4
00021cde					switch@0x21cb4[0xc]:
00021cde 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021ce0 60 02                    |`       |		BRA	0x21ce4
00021ce2					switch@0x21cb4[0x2]:
00021ce2					switch@0x21cb4[0x3]:
00021ce2					switch@0x21cb4[0x4]:
00021ce2					switch@0x21cb4[0x5]:
00021ce2					switch@0x21cb4[0x6]:
00021ce2					switch@0x21cb4[0x7]:
00021ce2					switch@0x21cb4[0x8]:
00021ce2					switch@0x21cb4[0x9]:
00021ce2					switch@0x21cb4[0xa]:
00021ce2					switch@0x21cb4[0xb]:
00021ce2 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00021ce4 70 03                    |p       |		MOVEQ.L	#0x03,D0
00021ce6 c1 d1                    |        |		MULS.W	(A1),D0
00021ce8 41 fa fc 28              |A  (    |		LEA.L	0x21912,A0
00021cec 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021cf0 42 80                    |B       |		CLR.L	D0
00021cf2 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
00021cf6 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00021cfa 63 02                    |c       |		BLS	0x21cfe
00021cfc 4e 4e                    |NN      |		TRAP	#14
00021cfe d0 40                    | @      |		ADD.W	D0,D0
00021d00 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021d08 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x21d0e
00021d0a 00 08                    |        |		.CONST	0x8			; [0x1] -> 0x21d10
00021d0c 00 12                    |        |		.CONST	0x12			; [0x2] -> 0x21d1a
00021d0e					switch@0x21d00[0x0]:
00021d0e 60 16                    |`       |		BRA	0x21d26
00021d10					switch@0x21d00[0x1]:
00021d10 20 57                    | W      |		MOVEA.L	(A7),A0
00021d12 11 92 58 01              |  X     |		MOVE.B	(A2),(A0+D5.L+#0x1)
00021d16 52 85                    |R       |		ADDQ.L	#0x1,D5
00021d18 60 0c                    |`       |		BRA	0x21d26
00021d1a					switch@0x21d00[0x2]:
00021d1a 20 57                    | W      |		MOVEA.L	(A7),A0
00021d1c 11 bc 00 2c 58 01        |   ,X   |		MOVE.B	#0x2c,(A0+D5.L+#0x1)
00021d22 52 85                    |R       |		ADDQ.L	#0x1,D5
00021d24 53 86                    |S       |		SUBQ.L	#0x1,D6
00021d26 70 03                    |p       |		MOVEQ.L	#0x03,D0
00021d28 c1 d1                    |        |		MULS.W	(A1),D0
00021d2a 41 fa fb ef              |A       |		LEA.L	0x2191b,A0
00021d2e 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021d32 42 80                    |B       |		CLR.L	D0
00021d34 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
00021d38 32 80                    |2       |		MOVE.W	D0,(A1)
00021d3a 52 86                    |R       |		ADDQ.L	#0x1,D6
00021d3c 60 00 ff 48              |`  H    |		BRA	0x21c86
00021d40 20 57                    | W      |		MOVEA.L	(A7),A0
00021d42 20 05                    |        |		MOVE.L	D5,D0
00021d44 53 80                    |S       |		SUBQ.L	#0x1,D0
00021d46 30 80                    |0       |		MOVE.W	D0,(A0)
00021d48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d4a 4c df 0f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
00021d4e 4e 5e                    |N^      |		UNLK	A6
00021d50 4e 75                    |Nu      |		RTS
00021d52 ; --------------------------------------------------------------------------------------
00021d52 ; OMSI PASCAL Function
00021d52 ;    <LVAR  0x00c 4(r)>
00021d52 ;    <LVAR  0x008 4(r)>
00021d52 ;    <LVAR -0x002 @ 1(r)>
00021d52 ;    <LVAR -0x00a @>
00021d52 ;    <LVAR -0x00e @ 4(r)>
00021d52 ;    <LVAR -0x014 @ 1(r)>
00021d52 ; --------------------------------------------------------------------------------------
00021d52 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00021d56 bf d5                    |        |		CMPA.L	(A5),A7
00021d58 62 06                    |b       |		BHI	0x21d60
00021d5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d5e 4e 76                    |Nv      |		TRAPV
00021d60 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021d64 48 e7 c1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
00021d68 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
00021d6c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021d6e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021d70 4e ba fc de              |N       |		JSR	0x21a50
00021d74 10 1f                    |        |		MOVE.B	(A7)+,D0
00021d76 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
00021d7a 66 08                    |f       |		BNE	0x21d84
00021d7c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021d7e 4e ba fd 0e              |N       |		JSR	0x21a8e
00021d82 1e 1f                    |        |		MOVE.B	(A7)+,D7
00021d84 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021d88 20 81                    |        |		MOVE.L	D1,(A0)
00021d8a 42 2e ff ec              |B.      |		CLR.B	(A6-0x14)
00021d8e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021d92 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021d96 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021d9a 4e ba fe 10              |N       |		JSR	0x21bac
00021d9e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021da2 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00021da6 66 36                    |f6      |		BNE	0x21dde
00021da8 48 53                    |HS      |		PEA.L	(A3)
00021daa 48 78 00 0c              |Hx      |		PEA.L	0xc
00021dae 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
00021db4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021db6 20 53                    | S      |		MOVEA.L	(A3),A0
00021db8 22 48                    |"H      |		MOVEA.L	A0,A1
00021dba 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
00021dbe 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021dc0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021dc2 51 c8 ff fc              |Q       |		DBF	D0,0x21dc0
00021dc6 21 41 00 08              |!A      |		MOVE.L	D1,(A0+0x8)
00021dca 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021dce 22 50                    |"P      |		MOVEA.L	(A0),A1
00021dd0 b2 c1                    |        |		CMPA.W	D1,A1
00021dd2 66 04                    |f       |		BNE	0x21dd8
00021dd4 20 93                    |        |		MOVE.L	(A3),(A0)
00021dd6 60 04                    |`       |		BRA	0x21ddc
00021dd8 29 53 00 08              |)S      |		MOVE.L	(A3),(A4+0x8)
00021ddc 28 53                    |(S      |		MOVEA.L	(A3),A4
00021dde 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00021de2 67 aa                    |g       |		BEQ	0x21d8e
00021de4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021de8 42 10                    |B       |		CLR.B	(A0)
00021dea 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
00021dee 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00021df2 66 02                    |f       |		BNE	0x21df6
00021df4 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00021df6 4c df 1f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3+A4
00021dfa 4e 5e                    |N^      |		UNLK	A6
00021dfc 4e 75                    |Nu      |		RTS
00021dfe ; --------------------------------------------------------------------------------------
00021dfe ; OMSI PASCAL Function
00021dfe ;    <LVAR  0x00c 4(w)>
00021dfe ;    <LVAR  0x008 4(r)>
00021dfe ; --------------------------------------------------------------------------------------
00021dfe 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00021e02 bf d5                    |        |		CMPA.L	(A5),A7
00021e04 62 06                    |b       |		BHI	0x21e0c
00021e06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e0a 4e 76                    |Nv      |		TRAPV
00021e0c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021e10 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
00021e14 7e ff                    |~       |		MOVEQ.L	#-0x01,D7
00021e16 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00021e1a b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00021e1e 67 08                    |g       |		BEQ	0x21e28
00021e20 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e22 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00021e26 60 f2                    |`       |		BRA	0x21e1a
00021e28 2d 47 00 0c              |-G      |		MOVE.L	D7,(A6+0xc)
00021e2c 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
00021e30 4e 5e                    |N^      |		UNLK	A6
00021e32 4e 75                    |Nu      |		RTS
00021e34 ; --------------------------------------------------------------------------------------
00021e34 ; OMSI PASCAL Function
00021e34 ;    <LVAR  0x00c 4(r)>
00021e34 ;    <LVAR  0x008 4(r)>
00021e34 ; --------------------------------------------------------------------------------------
00021e34 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
00021e38 bf d5                    |        |		CMPA.L	(A5),A7
00021e3a 62 06                    |b       |		BHI	0x21e42
00021e3c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e40 4e 76                    |Nv      |		TRAPV
00021e42 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00021e46 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00021e4a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021e4c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e4e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021e52 4e ba ff aa              |N       |		JSR	0x21dfe
00021e56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e58 20 1f                    |        |		MOVE.L	(A7)+,D0
00021e5a b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
00021e5e 67 58                    |gX      |		BEQ	0x21eb8
00021e60 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021e64 4e ba fb 4a              |N  J    |		JSR	0x219b0
00021e68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e6a 41 fa f6 a0              |A       |		LEA.L	0x2150c,A0
00021e6e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021e70 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021e72 51 c8 ff fc              |Q       |		DBF	D0,0x21e70
00021e76 41 ee 00 1a              |A       |		LEA.L	(A6+0x1a),A0
00021e7a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021e7c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021e7e 51 c8 ff fc              |Q       |		DBF	D0,0x21e7c
00021e82 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021e84 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
00021e88 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e8a 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021e8e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e96 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021e9a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e9c 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00021ea0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ea6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ea8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021eae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021eb0 4e ba fb 40              |N  @    |		JSR	0x219f2
00021eb4 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021eb8 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00021ebc 4e 5e                    |N^      |		UNLK	A6
00021ebe 4e 75                    |Nu      |		RTS
00021ec0 ; --------------------------------------------------------------------------------------
00021ec0 ; OMSI PASCAL Function
00021ec0 ;    <LVAR  0x014 1(rw)>
00021ec0 ;    <LVAR  0x010 4(r)>
00021ec0 ;    <LVAR  0x00c 4(r)>
00021ec0 ;    <LVAR  0x008 4(r)>
00021ec0 ; --------------------------------------------------------------------------------------
00021ec0 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc		; Spelunked
00021ec4 bf d5                    |        |		CMPA.L	(A5),A7
00021ec6 62 06                    |b       |		BHI	0x21ece
00021ec8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021ecc 4e 76                    |Nv      |		TRAPV
00021ece de fc 00 20              |        |		ADDA.W	#0x20,A7
00021ed2 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00021ed6 42 2e 00 14              |B.      |		CLR.B	(A6+0x14)
00021eda 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00021ede d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00021ee2 b0 b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D0
00021ee8 6e 4e                    |nN      |		BGT	0x21f38
00021eea 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021eee 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021ef0 be 97                    |        |		CMP.L	(A7),D7
00021ef2 6e 42                    |nB      |		BGT	0x21f36
00021ef4 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00021ef8 d0 87                    |        |		ADD.L	D7,D0
00021efa 53 80                    |S       |		SUBQ.L	#0x1,D0
00021efc 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00021f02 63 02                    |c       |		BLS	0x21f06
00021f04 4e 4f                    |NO      |		TRAP	#15
00021f06 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00021f0c 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
00021f10 d2 87                    |        |		ADD.L	D7,D1
00021f12 53 81                    |S       |		SUBQ.L	#0x1,D1
00021f14 53 81                    |S       |		SUBQ.L	#0x1,D1
00021f16 0c 81 00 00 00 3e        |     >  |		CMPI.L	#0x0000003e,D1
00021f1c 63 02                    |c       |		BLS	0x21f20
00021f1e 4e 4f                    |NO      |		TRAP	#15
00021f20 43 fa f5 ea              |C       |		LEA.L	0x2150c,A1
00021f24 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
00021f28 b0 31 18 00              | 1      |		CMP.B	(A1+D1.L),D0
00021f2c 67 04                    |g       |		BEQ	0x21f32
00021f2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f30 60 0c                    |`       |		BRA	0x21f3e
00021f32 52 87                    |R       |		ADDQ.L	#0x1,D7
00021f34 68 ba                    |h       |		BVC	0x21ef0
00021f36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f38 1d 7c 00 01 00 14        | |      |		MOVE.B	#0x01,(A6+0x14)
00021f3e 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00021f42 4e 5e                    |N^      |		UNLK	A6
00021f44 4e 75                    |Nu      |		RTS
00021f46 ; --------------------------------------------------------------------------------------
00021f46 ; OMSI PASCAL Function
00021f46 ;    <LVAR  0x00c 4(r)>
00021f46 ;    <LVAR  0x008 4(r)>
00021f46 ; --------------------------------------------------------------------------------------
00021f46 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00021f4a bf d5                    |        |		CMPA.L	(A5),A7
00021f4c 62 06                    |b       |		BHI	0x21f54
00021f4e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f52 4e 76                    |Nv      |		TRAPV
00021f54 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021f58 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00021f5c 45 f9 00 02 65 1c        |E   e   |		LEA.L	0x2651c,A2
00021f62 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00021f66 4a 93                    |J       |		TST.L	(A3)
00021f68 6c 3e                    |l>      |		BGE	0x21fa8
00021f6a 20 13                    |        |		MOVE.L	(A3),D0
00021f6c 44 80                    |D       |		NEG.L	D0
00021f6e d0 92                    |        |		ADD.L	(A2),D0
00021f70 0c 80 00 00 10 00        |        |		CMPI.L	#0x00001000,D0
00021f76 6f 30                    |o0      |		BLE	0x21fa8
00021f78 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00021f7c 20 4f                    | O      |		MOVEA.L	A7,A0
00021f7e 43 fa f5 cc              |C       |		LEA.L	0x2154c,A1
00021f82 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00021f84 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f86 51 c8 ff fc              |Q       |		DBF	D0,0x21f84
00021f8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f90 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021f94 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00021f98 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fa0 4e ba fa 50              |N  P    |		JSR	0x219f2
00021fa4 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021fa8 41 f9 00 02 55 18        |A   U   |		LEA.L	0x25518,A0
00021fae 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021fb0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021fb2 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021fb6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021fb8 4e b9 00 01 03 64        |N    d  |		JSR	MovStringTail(Base, Len, Ptr, Delta)
00021fbe de fc 00 10              |        |		ADDA.W	#0x10,A7
00021fc2 20 12                    |        |		MOVE.L	(A2),D0
00021fc4 90 93                    |        |		SUB.L	(A3),D0
00021fc6 24 80                    |$       |		MOVE.L	D0,(A2)
00021fc8 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00021fcc 4e 5e                    |N^      |		UNLK	A6
00021fce 4e 75                    |Nu      |		RTS
00021fd0 ; --------------------------------------------------------------------------------------
00021fd0 ; OMSI PASCAL Function
00021fd0 ;    <LVAR  0x00c 4(r)>
00021fd0 ;    <LVAR  0x008 4(r)>
00021fd0 ; --------------------------------------------------------------------------------------
00021fd0 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00021fd4 bf d5                    |        |		CMPA.L	(A5),A7
00021fd6 62 06                    |b       |		BHI	0x21fde
00021fd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021fdc 4e 76                    |Nv      |		TRAPV
00021fde de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00021fe2 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00021fe6 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00021fea 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021fee 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021ff0 22 52                    |"R      |		MOVEA.L	(A2),A1
00021ff2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021ff4 30 10                    |0       |		MOVE.W	(A0),D0
00021ff6 48 c0                    |H       |		EXTW.L	D0
00021ff8 44 80                    |D       |		NEG.L	D0
00021ffa 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021ffc 4e ba ff 48              |N  H    |		JSR	0x21f46
00022000 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022002 30 10                    |0       |		MOVE.W	(A0),D0
00022004 48 c0                    |H       |		EXTW.L	D0
00022006 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022008 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002200a be 97                    |        |		CMP.L	(A7),D7
0002200c 6e 36                    |n6      |		BGT	0x22044
0002200e 20 52                    | R      |		MOVEA.L	(A2),A0
00022010 20 07                    |        |		MOVE.L	D7,D0
00022012 d0 90                    |        |		ADD.L	(A0),D0
00022014 53 80                    |S       |		SUBQ.L	#0x1,D0
00022016 53 80                    |S       |		SUBQ.L	#0x1,D0
00022018 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002201e 63 02                    |c       |		BLS	0x22022
00022020 4e 4f                    |NO      |		TRAP	#15
00022022 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00022028 22 07                    |"       |		MOVE.L	D7,D1
0002202a 53 81                    |S       |		SUBQ.L	#0x1,D1
0002202c 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022032 63 02                    |c       |		BLS	0x22036
00022034 4e 4f                    |NO      |		TRAP	#15
00022036 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
0002203a 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00022040 52 87                    |R       |		ADDQ.L	#0x1,D7
00022042 68 c6                    |h       |		BVC	0x2200a
00022044 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022046 20 52                    | R      |		MOVEA.L	(A2),A0
00022048 22 57                    |"W      |		MOVEA.L	(A7),A1
0002204a 30 11                    |0       |		MOVE.W	(A1),D0
0002204c 48 c0                    |H       |		EXTW.L	D0
0002204e d1 90                    |        |		ADD.L	D0,(A0)
00022050 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022052 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00022056 4e 5e                    |N^      |		UNLK	A6
00022058 4e 75                    |Nu      |		RTS
0002205a ; --------------------------------------------------------------------------------------
0002205a ; OMSI PASCAL Function
0002205a ;    <LVAR  0x00c 4(r)>
0002205a ;    <LVAR  0x008 4(r)>
0002205a ; --------------------------------------------------------------------------------------
0002205a 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
0002205e bf d5                    |        |		CMPA.L	(A5),A7
00022060 62 06                    |b       |		BHI	0x22068
00022062 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022066 4e 76                    |Nv      |		TRAPV
00022068 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0002206c 48 e7 c3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00022070 45 fa fe 4e              |E  N    |		LEA.L	0x21ec0,A2
00022074 47 f8 00 04              |G       |		LEA.L	0x4,A3
00022078 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
0002207c 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002207e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022080 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022084 42 90                    |B       |		CLR.L	(A0)
00022086 20 54                    | T      |		MOVEA.L	(A4),A0
00022088 42 90                    |B       |		CLR.L	(A0)
0002208a 2c 39 00 02 65 18        |,9  e   |		MOVE.L	0x26518,D6
00022090 20 06                    |        |		MOVE.L	D6,D0
00022092 53 80                    |S       |		SUBQ.L	#0x1,D0
00022094 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002209a 63 02                    |c       |		BLS	0x2209e
0002209c 4e 4f                    |NO      |		TRAP	#15
0002209e 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
000220a4 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
000220a8 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000220ac 66 00 00 d4              |f       |		BNE	0x22182
000220b0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220b2 2f 06                    |/       |		MOVE.L	D6,-(A7)
000220b4 48 78 00 01              |Hx      |		PEA.L	0x1
000220b8 48 78 00 03              |Hx      |		PEA.L	0x3
000220bc 4e 92                    |N       |		JSR	(A2)
000220be de c1                    |        |		ADDA.W	D1,A7
000220c0 4a 1f                    |J       |		TST.B	(A7)+
000220c2 66 7e                    |f~      |		BNE	0x22142
000220c4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220c6 2f 06                    |/       |		MOVE.L	D6,-(A7)
000220c8 48 53                    |HS      |		PEA.L	(A3)
000220ca 48 78 00 03              |Hx      |		PEA.L	0x3
000220ce 4e 92                    |N       |		JSR	(A2)
000220d0 de c1                    |        |		ADDA.W	D1,A7
000220d2 4a 1f                    |J       |		TST.B	(A7)+
000220d4 66 6c                    |fl      |		BNE	0x22142
000220d6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220d8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000220da 48 78 00 07              |Hx      |		PEA.L	0x7
000220de 48 53                    |HS      |		PEA.L	(A3)
000220e0 4e 92                    |N       |		JSR	(A2)
000220e2 de c1                    |        |		ADDA.W	D1,A7
000220e4 4a 1f                    |J       |		TST.B	(A7)+
000220e6 66 5a                    |fZ      |		BNE	0x22142
000220e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220ea 2f 06                    |/       |		MOVE.L	D6,-(A7)
000220ec 48 78 00 0b              |Hx      |		PEA.L	0xb
000220f0 48 53                    |HS      |		PEA.L	(A3)
000220f2 4e 92                    |N       |		JSR	(A2)
000220f4 de c1                    |        |		ADDA.W	D1,A7
000220f6 4a 1f                    |J       |		TST.B	(A7)+
000220f8 66 48                    |fH      |		BNE	0x22142
000220fa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220fc 2f 06                    |/       |		MOVE.L	D6,-(A7)
000220fe 48 78 00 0f              |Hx      |		PEA.L	0xf
00022102 48 53                    |HS      |		PEA.L	(A3)
00022104 4e 92                    |N       |		JSR	(A2)
00022106 de c1                    |        |		ADDA.W	D1,A7
00022108 4a 1f                    |J       |		TST.B	(A7)+
0002210a 66 36                    |f6      |		BNE	0x22142
0002210c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002210e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022110 48 78 00 13              |Hx      |		PEA.L	0x13
00022114 48 53                    |HS      |		PEA.L	(A3)
00022116 4e 92                    |N       |		JSR	(A2)
00022118 de c1                    |        |		ADDA.W	D1,A7
0002211a 4a 1f                    |J       |		TST.B	(A7)+
0002211c 66 24                    |f$      |		BNE	0x22142
0002211e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022120 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022122 48 78 00 17              |Hx      |		PEA.L	0x17
00022126 48 53                    |HS      |		PEA.L	(A3)
00022128 4e 92                    |N       |		JSR	(A2)
0002212a de c1                    |        |		ADDA.W	D1,A7
0002212c 4a 1f                    |J       |		TST.B	(A7)+
0002212e 66 12                    |f       |		BNE	0x22142
00022130 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022132 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022134 48 78 00 1b              |Hx      |		PEA.L	0x1b
00022138 48 53                    |HS      |		PEA.L	(A3)
0002213a 4e 92                    |N       |		JSR	(A2)
0002213c de c1                    |        |		ADDA.W	D1,A7
0002213e 4a 1f                    |J       |		TST.B	(A7)+
00022140 67 04                    |g       |		BEQ	0x22146
00022142 52 87                    |R       |		ADDQ.L	#0x1,D7
00022144 60 3c                    |`<      |		BRA	0x22182
00022146 4a 87                    |J       |		TST.L	D7
00022148 66 1c                    |f       |		BNE	0x22166
0002214a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002214c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002214e 48 78 00 1f              |Hx      |		PEA.L	0x1f
00022152 48 78 00 05              |Hx      |		PEA.L	0x5
00022156 4e 92                    |N       |		JSR	(A2)
00022158 de c1                    |        |		ADDA.W	D1,A7
0002215a 4a 1f                    |J       |		TST.B	(A7)+
0002215c 67 08                    |g       |		BEQ	0x22166
0002215e 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022162 20 86                    |        |		MOVE.L	D6,(A0)
00022164 60 1c                    |`       |		BRA	0x22182
00022166 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022168 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002216a 48 78 00 24              |Hx $    |		PEA.L	0x24
0002216e 48 53                    |HS      |		PEA.L	(A3)
00022170 4e 92                    |N       |		JSR	(A2)
00022172 de c1                    |        |		ADDA.W	D1,A7
00022174 4a 1f                    |J       |		TST.B	(A7)+
00022176 67 0a                    |g       |		BEQ	0x22182
00022178 4a 87                    |J       |		TST.L	D7
0002217a 66 04                    |f       |		BNE	0x22180
0002217c 20 54                    | T      |		MOVEA.L	(A4),A0
0002217e 60 e2                    |`       |		BRA	0x22162
00022180 53 87                    |S       |		SUBQ.L	#0x1,D7
00022182 52 86                    |R       |		ADDQ.L	#0x1,D6
00022184 bc b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D6
0002218a 6e 0e                    |n       |		BGT	0x2219a
0002218c 4a 87                    |J       |		TST.L	D7
0002218e 66 00 ff 00              |f       |		BNE	0x22090
00022192 20 54                    | T      |		MOVEA.L	(A4),A0
00022194 4a 90                    |J       |		TST.L	(A0)
00022196 67 00 fe f8              |g       |		BEQ	0x22090
0002219a bc b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D6
000221a0 6f 30                    |o0      |		BLE	0x221d2
000221a2 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000221a6 20 4f                    | O      |		MOVEA.L	A7,A0
000221a8 43 fa f3 be              |C       |		LEA.L	0x21568,A1
000221ac 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000221ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221b0 51 c8 ff fc              |Q       |		DBF	D0,0x221ae
000221b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221ba 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000221be 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000221c2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221ca 4e ba f8 26              |N  &    |		JSR	0x219f2
000221ce de fc 00 20              |        |		ADDA.W	#0x20,A7
000221d2 4c df 1f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
000221d6 4e 5e                    |N^      |		UNLK	A6
000221d8 4e 75                    |Nu      |		RTS
000221da ; --------------------------------------------------------------------------------------
000221da ; OMSI PASCAL Function
000221da ;    <LVAR -0x004 @ 4(r)>
000221da ;    <LVAR -0x008 @ 4(rw)>
000221da ; --------------------------------------------------------------------------------------
000221da 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
000221de bf d5                    |        |		CMPA.L	(A5),A7
000221e0 62 06                    |b       |		BHI	0x221e8
000221e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000221e6 4e 76                    |Nv      |		TRAPV
000221e8 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000221ec 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000221f0 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000221f4 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000221f8 48 50                    |HP      |		PEA.L	(A0)
000221fa 48 51                    |HQ      |		PEA.L	(A1)
000221fc 4e ba fe 5c              |N  \    |		JSR	0x2205a
00022200 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022202 4a 90                    |J       |		TST.L	(A0)
00022204 66 02                    |f       |		BNE	0x22208
00022206 20 91                    |        |		MOVE.L	(A1),(A0)
00022208 20 11                    |        |		MOVE.L	(A1),D0
0002220a 5a 80                    |Z       |		ADDQ.L	#0x5,D0
0002220c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002220e 90 90                    |        |		SUB.L	(A0),D0
00022210 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022212 4e ba fd 32              |N  2    |		JSR	0x21f46
00022216 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022218 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002221c 4e 5e                    |N^      |		UNLK	A6
0002221e 4e 75                    |Nu      |		RTS
00022220 ; --------------------------------------------------------------------------------------
00022220 ; OMSI PASCAL Function
00022220 ;    <LVAR -0x004 @ 4(r)>
00022220 ;    <LVAR -0x008 @ 4(r)>
00022220 ; --------------------------------------------------------------------------------------
00022220 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00022224 bf d5                    |        |		CMPA.L	(A5),A7
00022226 62 06                    |b       |		BHI	0x2222e
00022228 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002222c 4e 76                    |Nv      |		TRAPV
0002222e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022232 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00022236 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
0002223a 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002223e 48 50                    |HP      |		PEA.L	(A0)
00022240 48 51                    |HQ      |		PEA.L	(A1)
00022242 4e ba fe 16              |N       |		JSR	0x2205a
00022246 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022248 4a 90                    |J       |		TST.L	(A0)
0002224a 66 06                    |f       |		BNE	0x22252
0002224c 20 11                    |        |		MOVE.L	(A1),D0
0002224e 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00022250 60 12                    |`       |		BRA	0x22264
00022252 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022254 5a 97                    |Z       |		ADDQ.L	#0x5,(A7)
00022256 48 78 00 05              |Hx      |		PEA.L	0x5
0002225a 4e ba fc ea              |N       |		JSR	0x21f46
0002225e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022260 20 10                    |        |		MOVE.L	(A0),D0
00022262 5c 80                    |\       |		ADDQ.L	#0x6,D0
00022264 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022266 90 b9 00 02 65 18        |    e   |		SUB.L	0x26518,D0
0002226c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002226e 4e ba fc d6              |N       |		JSR	0x21f46
00022272 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022274 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00022278 4e 5e                    |N^      |		UNLK	A6
0002227a 4e 75                    |Nu      |		RTS
0002227c ; --------------------------------------------------------------------------------------
0002227c ; OMSI PASCAL Function
0002227c ;    <LVAR  0x008 4(r)>
0002227c ;    <LVAR -0x004 @>
0002227c ;    <LVAR -0x008 @ 4(r)>
0002227c ;    <LVAR -0x00c @ 4(rw)>
0002227c ;    <LVAR -0x010 4(rw)>
0002227c ;    <LVAR -0x014 4(rw)>
0002227c ; --------------------------------------------------------------------------------------
0002227c 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
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 32              |   2    |		ADDA.W	#0x32,A7
0002228e 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022292 43 f9 00 02 65 2a        |C   e*  |		LEA.L	0x2652a,A1
00022298 45 f9 00 02 65 30        |E   e0  |		LEA.L	0x26530,A2
0002229e 47 f9 00 02 65 18        |G   e   |		LEA.L	0x26518,A3
000222a4 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
000222a8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000222aa 4a 11                    |J       |		TST.B	(A1)
000222ac 67 0a                    |g       |		BEQ	0x222b8
000222ae 4a 92                    |J       |		TST.L	(A2)
000222b0 66 06                    |f       |		BNE	0x222b8
000222b2 24 ae 00 08              |$       |		MOVE.L	(A6+0x8),(A2)
000222b6 53 92                    |S       |		SUBQ.L	#0x1,(A2)
000222b8 4a 11                    |J       |		TST.B	(A1)
000222ba 66 00 00 cc              |f       |		BNE	0x22388
000222be 26 ae 00 08              |&       |		MOVE.L	(A6+0x8),(A3)
000222c2 5c 93                    |\       |		ADDQ.L	#0x6,(A3)
000222c4 48 54                    |HT      |		PEA.L	(A4)
000222c6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000222ca 4e ba fa 86              |N       |		JSR	0x21d52
000222ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222d0 41 fa f2 bc              |A       |		LEA.L	0x2158e,A0
000222d4 70 04                    |p       |		MOVEQ.L	#0x04,D0
000222d6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000222d8 51 c8 ff fc              |Q       |		DBF	D0,0x222d6
000222dc 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000222de 48 78 00 00              |Hx      |		PEA.L	0x0
000222e2 4e ba fb 50              |N  P    |		JSR	0x21e34
000222e6 de fc 00 12              |        |		ADDA.W	#0x12,A7
000222ea 4a 39 00 02 65 34        |J9  e4  |		TST.B	0x26534
000222f0 67 1a                    |g       |		BEQ	0x2230c
000222f2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000222f4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000222f6 48 78 00 00              |Hx      |		PEA.L	0x0
000222fa 4e b9 00 02 27 4c        |N   'L  |		JSR	0x2274c
00022300 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022302 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00022306 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
0002230a 60 14                    |`       |		BRA	0x22320
0002230c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002230e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022310 48 78 00 00              |Hx      |		PEA.L	0x0
00022314 4e b9 00 02 27 1a        |N   '   |		JSR	0x2271a
0002231a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002231c 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00022320 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022322 4e ba f6 8c              |N       |		JSR	0x219b0
00022326 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022328 23 d3 00 02 65 2c        |#   e,  |		MOVE.L	(A3),0x2652c
0002232e 4a 39 00 02 65 34        |J9  e4  |		TST.B	0x26534
00022334 67 2a                    |g*      |		BEQ	0x22360
00022336 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022338 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002233c 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00022340 2f 39 00 02 65 3e        |/9  e>  |		MOVE.L	0x2653e,-(A7)
00022346 2f 39 00 02 65 3a        |/9  e:  |		MOVE.L	0x2653a,-(A7)
0002234c 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022352 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022356 10 1f                    |        |		MOVE.B	(A7)+,D0
00022358 48 80                    |H       |		EXTB.W	D0
0002235a 41 81                    |A       |		CHK.W	D1,D0
0002235c 12 80                    |        |		MOVE.B	D0,(A1)
0002235e 60 28                    |`(      |		BRA	0x22388
00022360 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022362 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00022366 2f 39 00 02 65 36        |/9  e6  |		MOVE.L	0x26536,-(A7)
0002236c 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00022372 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022374 10 1f                    |        |		MOVE.B	(A7)+,D0
00022376 48 80                    |H       |		EXTB.W	D0
00022378 41 81                    |A       |		CHK.W	D1,D0
0002237a 12 80                    |        |		MOVE.B	D0,(A1)
0002237c 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00022380 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022386 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022388 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002238c 4e 5e                    |N^      |		UNLK	A6
0002238e 4e 75                    |Nu      |		RTS
00022390 ; --------------------------------------------------------------------------------------
00022390 ; OMSI PASCAL Function
00022390 ;    <LVAR  0x010 4(r)>
00022390 ;    <LVAR  0x00c 4(r)>
00022390 ;    <LVAR  0x008 4(r)>
00022390 ; --------------------------------------------------------------------------------------
00022390 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
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 56              |   V    |		ADDA.W	#0x56,A7
000223a2 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000223a6 45 f9 00 02 65 30        |E   e0  |		LEA.L	0x26530,A2
000223ac 47 fa fb 12              |G       |		LEA.L	0x21ec0,A3
000223b0 49 f9 00 02 65 2a        |I   e*  |		LEA.L	0x2652a,A4
000223b6 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000223b8 74 01                    |t       |		MOVEQ.L	#0x01,D2
000223ba 42 14                    |B       |		CLR.B	(A4)
000223bc 42 b9 00 02 65 2c        |B   e,  |		CLR.L	0x2652c
000223c2 42 92                    |B       |		CLR.L	(A2)
000223c4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000223c6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000223c8 2a 39 00 02 65 18        |*9  e   |		MOVE.L	0x26518,D5
000223ce 4a 86                    |J       |		TST.L	D6
000223d0 66 00 00 a0              |f       |		BNE	0x22472
000223d4 ba b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D5
000223da 6e 00 00 96              |n       |		BGT	0x22472
000223de 20 05                    |        |		MOVE.L	D5,D0
000223e0 53 80                    |S       |		SUBQ.L	#0x1,D0
000223e2 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000223e8 63 02                    |c       |		BLS	0x223ec
000223ea 4e 4f                    |NO      |		TRAP	#15
000223ec 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
000223f2 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
000223f6 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000223fa 66 6c                    |fl      |		BNE	0x22468
000223fc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223fe 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022400 48 78 00 28              |Hx (    |		PEA.L	0x28
00022404 48 78 00 05              |Hx      |		PEA.L	0x5
00022408 4e 93                    |N       |		JSR	(A3)
0002240a de c1                    |        |		ADDA.W	D1,A7
0002240c 4a 1f                    |J       |		TST.B	(A7)+
0002240e 66 14                    |f       |		BNE	0x22424
00022410 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022412 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022414 48 78 00 2d              |Hx -    |		PEA.L	0x2d
00022418 48 78 00 06              |Hx      |		PEA.L	0x6
0002241c 4e 93                    |N       |		JSR	(A3)
0002241e de c1                    |        |		ADDA.W	D1,A7
00022420 4a 1f                    |J       |		TST.B	(A7)+
00022422 67 04                    |g       |		BEQ	0x22428
00022424 52 87                    |R       |		ADDQ.L	#0x1,D7
00022426 60 40                    |`@      |		BRA	0x22468
00022428 4a 87                    |J       |		TST.L	D7
0002242a 66 1e                    |f       |		BNE	0x2244a
0002242c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002242e 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022430 48 78 00 33              |Hx 3    |		PEA.L	0x33
00022434 48 78 00 05              |Hx      |		PEA.L	0x5
00022438 4e 93                    |N       |		JSR	(A3)
0002243a de c1                    |        |		ADDA.W	D1,A7
0002243c 4a 1f                    |J       |		TST.B	(A7)+
0002243e 67 0a                    |g       |		BEQ	0x2244a
00022440 2f 05                    |/       |		MOVE.L	D5,-(A7)
00022442 4e ba fe 38              |N  8    |		JSR	0x2227c
00022446 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022448 60 1e                    |`       |		BRA	0x22468
0002244a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002244c 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002244e 48 78 00 38              |Hx 8    |		PEA.L	0x38
00022452 48 78 00 08              |Hx      |		PEA.L	0x8
00022456 4e 93                    |N       |		JSR	(A3)
00022458 de c1                    |        |		ADDA.W	D1,A7
0002245a 4a 1f                    |J       |		TST.B	(A7)+
0002245c 67 0a                    |g       |		BEQ	0x22468
0002245e 4a 87                    |J       |		TST.L	D7
00022460 66 04                    |f       |		BNE	0x22466
00022462 2c 05                    |,       |		MOVE.L	D5,D6
00022464 60 02                    |`       |		BRA	0x22468
00022466 53 87                    |S       |		SUBQ.L	#0x1,D7
00022468 4a 86                    |J       |		TST.L	D6
0002246a 66 02                    |f       |		BNE	0x2246e
0002246c 52 85                    |R       |		ADDQ.L	#0x1,D5
0002246e 60 00 ff 5e              |`  ^    |		BRA	0x223ce
00022472 4a 39 00 02 65 34        |J9  e4  |		TST.B	0x26534
00022478 66 0e                    |f       |		BNE	0x22488
0002247a 48 79 00 02 65 36        |Hy  e6  |		PEA.L	0x26536
00022480 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022486 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022488 4a 14                    |J       |		TST.B	(A4)
0002248a 66 28                    |f(      |		BNE	0x224b4
0002248c 41 fa f1 1a              |A       |		LEA.L	0x215a8,A0
00022490 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022492 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022494 51 c8 ff fc              |Q       |		DBF	D0,0x22492
00022498 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002249a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002249e 3f 02                    |?       |		MOVE.W	D2,-(A7)
000224a0 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000224a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224ac 4e ba f5 44              |N  D    |		JSR	0x219f2
000224b0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000224b4 4a 86                    |J       |		TST.L	D6
000224b6 66 2e                    |f.      |		BNE	0x224e6
000224b8 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000224bc 20 4f                    | O      |		MOVEA.L	A7,A0
000224be 43 fa f0 e8              |C       |		LEA.L	0x215a8,A1
000224c2 70 12                    |p       |		MOVEQ.L	#0x12,D0
000224c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224c6 51 c8 ff fc              |Q       |		DBF	D0,0x224c4
000224ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224d0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000224d2 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000224d6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224de 4e ba f5 12              |N       |		JSR	0x219f2
000224e2 de fc 00 18              |        |		ADDA.W	#0x18,A7
000224e6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000224ea 20 86                    |        |		MOVE.L	D6,(A0)
000224ec 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000224f0 20 b9 00 02 65 2c        |    e,  |		MOVE.L	0x2652c,(A0)
000224f6 4a 92                    |J       |		TST.L	(A2)
000224f8 66 0a                    |f       |		BNE	0x22504
000224fa 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000224fe 20 86                    |        |		MOVE.L	D6,(A0)
00022500 53 90                    |S       |		SUBQ.L	#0x1,(A0)
00022502 60 06                    |`       |		BRA	0x2250a
00022504 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022508 20 92                    |        |		MOVE.L	(A2),(A0)
0002250a 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
0002250e 4e 5e                    |N^      |		UNLK	A6
00022510 4e 75                    |Nu      |		RTS
00022512 ; --------------------------------------------------------------------------------------
00022512 ; OMSI PASCAL Function
00022512 ;    <LVAR  0x008 4(r)>
00022512 ;    <LVAR -0x008 @ 4(r)>
00022512 ;    <LVAR -0x00c @ 4(r)>
00022512 ;    <LVAR -0x010 @ 4(r)>
00022512 ; --------------------------------------------------------------------------------------
00022512 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00022516 bf d5                    |        |		CMPA.L	(A5),A7
00022518 62 06                    |b       |		BHI	0x22520
0002251a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002251e 4e 76                    |Nv      |		TRAPV
00022520 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022524 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00022528 41 f9 00 02 65 18        |A   e   |		LEA.L	0x26518,A0
0002252e 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00022532 2c 10                    |,       |		MOVE.L	(A0),D6
00022534 42 39 00 02 65 34        |B9  e4  |		CLR.B	0x26534
0002253a 23 ee 00 08 00 02 65 36  |#     e6|		MOVE.L	(A6+0x8),0x26536
00022542 2e 10                    |.       |		MOVE.L	(A0),D7
00022544 48 51                    |HQ      |		PEA.L	(A1)
00022546 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002254a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002254e 4e ba fe 40              |N  @    |		JSR	0x22390
00022552 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022556 20 86                    |        |		MOVE.L	D6,(A0)
00022558 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
0002255c 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
00022562 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022564 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
00022568 53 80                    |S       |		SUBQ.L	#0x1,D0
0002256a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002256c 4e ba f9 d8              |N       |		JSR	0x21f46
00022570 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022572 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022574 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022576 9f 97                    |        |		SUB.L	D7,(A7)
00022578 4e ba f9 cc              |N       |		JSR	0x21f46
0002257c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002257e 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00022582 4e 5e                    |N^      |		UNLK	A6
00022584 4e 75                    |Nu      |		RTS
00022586 ; --------------------------------------------------------------------------------------
00022586 ; OMSI PASCAL Function
00022586 ;    <LVAR  0x00c 4(r)>
00022586 ;    <LVAR  0x008 4(r)>
00022586 ;    <LVAR -0x008 @ 4(r)>
00022586 ;    <LVAR -0x00c @ 4(r)>
00022586 ;    <LVAR -0x010 @ 4(r)>
00022586 ; --------------------------------------------------------------------------------------
00022586 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002258a bf d5                    |        |		CMPA.L	(A5),A7
0002258c 62 06                    |b       |		BHI	0x22594
0002258e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022592 4e 76                    |Nv      |		TRAPV
00022594 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022598 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
0002259c 41 f9 00 02 65 18        |A   e   |		LEA.L	0x26518,A0
000225a2 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000225a6 2c 10                    |,       |		MOVE.L	(A0),D6
000225a8 13 fc 00 01 00 02 65 34  |      e4|		MOVE.B	#0x01,0x26534
000225b0 23 ee 00 08 00 02 65 3a  |#     e:|		MOVE.L	(A6+0x8),0x2653a
000225b8 23 ee 00 0c 00 02 65 3e  |#     e>|		MOVE.L	(A6+0xc),0x2653e
000225c0 2e 10                    |.       |		MOVE.L	(A0),D7
000225c2 48 51                    |HQ      |		PEA.L	(A1)
000225c4 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000225c8 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000225cc 4e ba fd c2              |N       |		JSR	0x22390
000225d0 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000225d4 20 86                    |        |		MOVE.L	D6,(A0)
000225d6 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
000225da 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
000225e0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000225e2 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
000225e6 53 80                    |S       |		SUBQ.L	#0x1,D0
000225e8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000225ea 4e ba f9 5a              |N  Z    |		JSR	0x21f46
000225ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000225f0 2e 91                    |.       |		MOVE.L	(A1),(A7)
000225f2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000225f4 9f 97                    |        |		SUB.L	D7,(A7)
000225f6 4e ba f9 4e              |N  N    |		JSR	0x21f46
000225fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225fc 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00022600 4e 5e                    |N^      |		UNLK	A6
00022602 4e 75                    |Nu      |		RTS
00022604 ; --------------------------------------------------------------------------------------
00022604 ; OMSI PASCAL Function
00022604 ;    <LVAR  0x010 4(rw)>
00022604 ;    <LVAR  0x00c 4(r)>
00022604 ;    <LVAR  0x008 4(r)>
00022604 ; --------------------------------------------------------------------------------------
00022604 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
00022608 bf d5                    |        |		CMPA.L	(A5),A7
0002260a 62 06                    |b       |		BHI	0x22612
0002260c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022610 4e 76                    |Nv      |		TRAPV
00022612 de fc 00 08              |        |		ADDA.W	#0x8,A7
00022616 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
0002261a 4a ae 00 08              |J       |		TST.L	(A6+0x8)
0002261e 66 06                    |f       |		BNE	0x22626
00022620 42 ae 00 10              |B       |		CLR.L	(A6+0x10)
00022624 60 0e                    |`       |		BRA	0x22634
00022626 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
0002262a 90 ae 00 08              |        |		SUB.L	(A6+0x8),D0
0002262e 52 80                    |R       |		ADDQ.L	#0x1,D0
00022630 2d 40 00 10              |-@      |		MOVE.L	D0,(A6+0x10)
00022634 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00022638 4e 5e                    |N^      |		UNLK	A6
0002263a 4e 75                    |Nu      |		RTS
0002263c ; --------------------------------------------------------------------------------------
0002263c ; OMSI PASCAL Function
0002263c ;    <LVAR  0x014 4(w)>
0002263c ;    <LVAR  0x010 @ 4(w)>
0002263c ;    <LVAR  0x00c 4(r)>
0002263c ;    <LVAR  0x008 4(r)>
0002263c ; --------------------------------------------------------------------------------------
0002263c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00022640 bf d5                    |        |		CMPA.L	(A5),A7
00022642 62 06                    |b       |		BHI	0x2264a
00022644 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022648 4e 76                    |Nv      |		TRAPV
0002264a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002264e 48 e7 81 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D0,-(A7)
00022652 28 6e 00 0c              |(n      |		MOVEA.L	(A6+0xc),A4
00022656 2d 7a f2 b2 00 10        |-z      |		MOVE.L	0x2190a,(A6+0x10)
0002265c 2d 7a f2 b0 00 14        |-z      |		MOVE.L	0x2190e,(A6+0x14)
00022662 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022666 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022668 be 97                    |        |		CMP.L	(A7),D7
0002266a 6e 28                    |n(      |		BGT	0x22694
0002266c b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00022670 66 04                    |f       |		BNE	0x22676
00022672 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022674 60 20                    |`       |		BRA	0x22696
00022676 be ae 00 08              |        |		CMP.L	(A6+0x8),D7
0002267a 66 10                    |f       |		BNE	0x2268c
0002267c 41 ee 00 10              |A       |		LEA.L	(A6+0x10),A0
00022680 22 4c                    |"L      |		MOVEA.L	A4,A1
00022682 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022684 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022686 51 c8 ff fc              |Q       |		DBF	D0,0x22684
0002268a 60 04                    |`       |		BRA	0x22690
0002268c 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00022690 52 87                    |R       |		ADDQ.L	#0x1,D7
00022692 68 d4                    |h       |		BVC	0x22668
00022694 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022696 4c df 13 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A4
0002269a 4e 5e                    |N^      |		UNLK	A6
0002269c 4e 75                    |Nu      |		RTS
0002269e ; --------------------------------------------------------------------------------------
0002269e ; OMSI PASCAL Function
0002269e ;    <LVAR  0x010 4(w)>
0002269e ;    <LVAR  0x00c 4(r)>
0002269e ;    <LVAR  0x008 4(r)>
0002269e ;    <LVAR -0x008 @ 4(r)>
0002269e ; --------------------------------------------------------------------------------------
0002269e 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000226a2 bf d5                    |        |		CMPA.L	(A5),A7
000226a4 62 06                    |b       |		BHI	0x226ac
000226a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000226aa 4e 76                    |Nv      |		TRAPV
000226ac de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000226b0 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
000226b4 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
000226b8 48 51                    |HQ      |		PEA.L	(A1)
000226ba 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000226c0 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000226c4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000226c8 4e ba ff 3a              |N  :    |		JSR	0x22604
000226cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226ce 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000226d0 be 97                    |        |		CMP.L	(A7),D7
000226d2 6e 38                    |n8      |		BGT	0x2270c
000226d4 20 07                    |        |		MOVE.L	D7,D0
000226d6 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
000226da 53 80                    |S       |		SUBQ.L	#0x1,D0
000226dc 53 80                    |S       |		SUBQ.L	#0x1,D0
000226de 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000226e4 63 02                    |c       |		BLS	0x226e8
000226e6 4e 4f                    |NO      |		TRAP	#15
000226e8 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
000226ee 1c 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D6
000226f2 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
000226f6 66 04                    |f       |		BNE	0x226fc
000226f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000226fa 60 12                    |`       |		BRA	0x2270e
000226fc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000226fe 1f 06                    |        |		MOVE.B	D6,-(A7)
00022700 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022706 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022708 52 87                    |R       |		ADDQ.L	#0x1,D7
0002270a 68 c4                    |h       |		BVC	0x226d0
0002270c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002270e 2d 51 00 10              |-Q      |		MOVE.L	(A1),(A6+0x10)
00022712 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00022716 4e 5e                    |N^      |		UNLK	A6
00022718 4e 75                    |Nu      |		RTS
0002271a ; --------------------------------------------------------------------------------------
0002271a ; OMSI PASCAL Function
0002271a ;    <LVAR  0x010 4(w)>
0002271a ;    <LVAR  0x00c 4(r)>
0002271a ;    <LVAR  0x008 4(r)>
0002271a ; --------------------------------------------------------------------------------------
0002271a 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0002271e bf d5                    |        |		CMPA.L	(A5),A7
00022720 62 06                    |b       |		BHI	0x22728
00022722 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022726 4e 76                    |Nv      |		TRAPV
00022728 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002272c 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022730 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022734 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022738 4e ba ff 02              |N       |		JSR	0x2263c
0002273c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002273e 4e ba ff 5e              |N  ^    |		JSR	0x2269e
00022742 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022744 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00022748 4e 5e                    |N^      |		UNLK	A6
0002274a 4e 75                    |Nu      |		RTS
0002274c ; --------------------------------------------------------------------------------------
0002274c ; OMSI PASCAL Function
0002274c ;    <LVAR  0x014 4(w)>
0002274c ;    <LVAR  0x010 4(w)>
0002274c ;    <LVAR  0x00c 4(r)>
0002274c ;    <LVAR  0x008 4(r)>
0002274c ; --------------------------------------------------------------------------------------
0002274c 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00022750 bf d5                    |        |		CMPA.L	(A5),A7
00022752 62 06                    |b       |		BHI	0x2275a
00022754 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022758 4e 76                    |Nv      |		TRAPV
0002275a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002275e 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022762 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022766 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002276a 4e ba ff ae              |N       |		JSR	0x2271a
0002276e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022770 48 78 00 10              |Hx      |		PEA.L	0x10
00022774 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
0002277a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002277c 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00022780 2d 5f 00 14              |-_      |		MOVE.L	(A7)+,(A6+0x14)
00022784 4e 5e                    |N^      |		UNLK	A6
00022786 4e 75                    |Nu      |		RTS
00022788 ; --------------------------------------------------------------------------------------
00022788 ; OMSI PASCAL Function
00022788 ;    <LVAR  0x010 4(w)>
00022788 ;    <LVAR  0x00c 4(r)>
00022788 ;    <LVAR  0x008 4(r)>
00022788 ; --------------------------------------------------------------------------------------
00022788 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0002278c bf d5                    |        |		CMPA.L	(A5),A7
0002278e 62 06                    |b       |		BHI	0x22796
00022790 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022794 4e 76                    |Nv      |		TRAPV
00022796 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002279a 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
0002279e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000227a2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000227a6 4e ba ff a4              |N       |		JSR	0x2274c
000227aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227ac 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000227b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227b4 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
000227b8 4e 5e                    |N^      |		UNLK	A6
000227ba 4e 75                    |Nu      |		RTS
000227bc ; --------------------------------------------------------------------------------------
000227bc ; OMSI PASCAL Function
000227bc ;    <LVAR  0x008 @ 4(r)>
000227bc ; --------------------------------------------------------------------------------------
000227bc 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
000227c0 bf d5                    |        |		CMPA.L	(A5),A7
000227c2 62 06                    |b       |		BHI	0x227ca
000227c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000227c8 4e 76                    |Nv      |		TRAPV
000227ca de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000227ce 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
000227d2 45 f9 00 02 65 18        |E   e   |		LEA.L	0x26518,A2
000227d8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000227dc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000227de 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000227e0 30 10                    |0       |		MOVE.W	(A0),D0
000227e2 48 c0                    |H       |		EXTW.L	D0
000227e4 44 80                    |D       |		NEG.L	D0
000227e6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000227e8 4e ba f7 5c              |N  \    |		JSR	0x21f46
000227ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227ee 30 10                    |0       |		MOVE.W	(A0),D0
000227f0 48 c0                    |H       |		EXTW.L	D0
000227f2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000227f4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000227f6 be 97                    |        |		CMP.L	(A7),D7
000227f8 6e 34                    |n4      |		BGT	0x2282e
000227fa 20 07                    |        |		MOVE.L	D7,D0
000227fc d0 92                    |        |		ADD.L	(A2),D0
000227fe 53 80                    |S       |		SUBQ.L	#0x1,D0
00022800 53 80                    |S       |		SUBQ.L	#0x1,D0
00022802 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022808 63 02                    |c       |		BLS	0x2280c
0002280a 4e 4f                    |NO      |		TRAP	#15
0002280c 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00022812 22 07                    |"       |		MOVE.L	D7,D1
00022814 53 81                    |S       |		SUBQ.L	#0x1,D1
00022816 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
0002281c 63 02                    |c       |		BLS	0x22820
0002281e 4e 4f                    |NO      |		TRAP	#15
00022820 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00022824 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
0002282a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002282c 68 c8                    |h       |		BVC	0x227f6
0002282e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022830 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022834 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002283a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002283c 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00022840 4e 5e                    |N^      |		UNLK	A6
00022842 4e 75                    |Nu      |		RTS
00022844 ; --------------------------------------------------------------------------------------
00022844 ; OMSI PASCAL Function
00022844 ;    <LVAR  0x00c 4(r)>
00022844 ;    <LVAR  0x008 4(r)>
00022844 ; --------------------------------------------------------------------------------------
00022844 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022848 bf d5                    |        |		CMPA.L	(A5),A7
0002284a 62 06                    |b       |		BHI	0x22852
0002284c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022850 4e 76                    |Nv      |		TRAPV
00022852 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022856 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022858 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002285c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022860 48 78 00 10              |Hx      |		PEA.L	0x10
00022864 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
0002286a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002286e 4e ba ff 4c              |N  L    |		JSR	0x227bc
00022872 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022874 4e 5e                    |N^      |		UNLK	A6
00022876 4e 75                    |Nu      |		RTS
00022878 ; --------------------------------------------------------------------------------------
00022878 ; OMSI PASCAL Function
00022878 ;    <LVAR  0x008 4(r)>
00022878 ; --------------------------------------------------------------------------------------
00022878 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0002287c bf d5                    |        |		CMPA.L	(A5),A7
0002287e 62 06                    |b       |		BHI	0x22886
00022880 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022884 4e 76                    |Nv      |		TRAPV
00022886 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002288a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002288c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022890 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022896 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022898 4e ba ff 22              |N  "    |		JSR	0x227bc
0002289c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002289e 4e 5e                    |N^      |		UNLK	A6
000228a0 4e 75                    |Nu      |		RTS
000228a2 ; --------------------------------------------------------------------------------------
000228a2 ; OMSI PASCAL Function
000228a2 ;    <LVAR  0x008 4(r)>
000228a2 ;    <LVAR -0x004 @ 4(r)>
000228a2 ;    <LVAR -0x008 4(rw)>
000228a2 ; --------------------------------------------------------------------------------------
000228a2 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000228a6 bf d5                    |        |		CMPA.L	(A5),A7
000228a8 62 06                    |b       |		BHI	0x228b0
000228aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000228ae 4e 76                    |Nv      |		TRAPV
000228b0 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000228b4 48 e7 81 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D0,-(A7)
000228b8 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000228bc 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
000228c0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000228c4 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
000228c8 48 51                    |HQ      |		PEA.L	(A1)
000228ca 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000228d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228d2 20 52                    | R      |		MOVEA.L	(A2),A0
000228d4 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
000228d8 67 00 00 86              |g       |		BEQ	0x22960
000228dc 4a 90                    |J       |		TST.L	(A0)
000228de 67 68                    |gh      |		BEQ	0x22948
000228e0 2f 28 00 04              |/(      |		MOVE.L	(A0+0x4),-(A7)
000228e4 2e 10                    |.       |		MOVE.L	(A0),D7
000228e6 be 97                    |        |		CMP.L	(A7),D7
000228e8 6e 14                    |n       |		BGT	0x228fe
000228ea 20 17                    |        |		MOVE.L	(A7),D0
000228ec 0c 87 80 00 00 01        |        |		CMPI.L	#0x80000001,D7
000228f2 6d 08                    |m       |		BLT	0x228fc
000228f4 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
000228fa 6f 02                    |o       |		BLE	0x228fe
000228fc 4e 4f                    |NO      |		TRAP	#15
000228fe be 97                    |        |		CMP.L	(A7),D7
00022900 6e 44                    |nD      |		BGT	0x22946
00022902 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022904 20 07                    |        |		MOVE.L	D7,D0
00022906 53 80                    |S       |		SUBQ.L	#0x1,D0
00022908 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002290e 63 02                    |c       |		BLS	0x22912
00022910 4e 4f                    |NO      |		TRAP	#15
00022912 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00022918 1f 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),-(A7)
0002291c 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022922 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022924 20 51                    | Q      |		MOVEA.L	(A1),A0
00022926 30 10                    |0       |		MOVE.W	(A0),D0
00022928 0c 40 00 7a              | @ z    |		CMPI.W	#0x007a,D0
0002292c 6d 14                    |m       |		BLT	0x22942
0002292e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022930 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022936 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022938 48 51                    |HQ      |		PEA.L	(A1)
0002293a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022940 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022942 52 87                    |R       |		ADDQ.L	#0x1,D7
00022944 68 b8                    |h       |		BVC	0x228fe
00022946 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022948 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002294a 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
0002294e 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022954 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022956 20 52                    | R      |		MOVEA.L	(A2),A0
00022958 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
0002295c 60 00 ff 74              |`  t    |		BRA	0x228d2
00022960 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022962 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022968 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002296a 4c df 07 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2
0002296e 4e 5e                    |N^      |		UNLK	A6
00022970 4e 75                    |Nu      |		RTS
00022972 ; --------------------------------------------------------------------------------------
00022972 ; OMSI PASCAL Function
00022972 ;    <LVAR  0x008 @ 4(r)>
00022972 ;    <LVAR -0x003 @ 1(r)>
00022972 ;    <LVAR -0x004 @ 1(r)>
00022972 ;    <LVAR -0x008 @ 4(r)>
00022972 ;    <LVAR -0x00c @ 4(rw)>
00022972 ; --------------------------------------------------------------------------------------
00022972 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
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 46              |   F    |		ADDA.W	#0x46,A7
00022984 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022988 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0002298c 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00022990 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00022994 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00022998 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002299a 2f 3a ec 36              |/: 6    |		MOVE.L	0x215d2,-(A7)
0002299e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000229a0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000229a2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000229a8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000229ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229ae 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000229b2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000229b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229ba 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000229c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229c2 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000229c4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000229c6 42 27                    |B'      |		CLR.B	-(A7)
000229c8 42 27                    |B'      |		CLR.B	-(A7)
000229ca 48 78 00 00              |Hx      |		PEA.L	0x0
000229ce 48 53                    |HS      |		PEA.L	(A3)
000229d0 48 54                    |HT      |		PEA.L	(A4)
000229d2 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000229d8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000229dc 4a 13                    |J       |		TST.B	(A3)
000229de 67 36                    |g6      |		BEQ	0x22a16
000229e0 41 fa eb f0              |A       |		LEA.L	0x215d2,A0
000229e4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000229e6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000229e8 51 c8 ff fc              |Q       |		DBF	D0,0x229e6
000229ec 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000229ee 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000229f2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229f4 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000229f8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000229fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a00 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022a02 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022a08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a0a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022a10 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022a14 60 54                    |`T      |		BRA	0x22a6a
00022a16 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022a18 48 51                    |HQ      |		PEA.L	(A1)
00022a1a 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00022a1e 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00022a24 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022a28 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00022a2c 66 14                    |f       |		BNE	0x22a42
00022a2e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a30 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022a32 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022a38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a3a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022a40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a42 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00022a46 67 ce                    |g       |		BEQ	0x22a16
00022a48 42 27                    |B'      |		CLR.B	-(A7)
00022a4a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022a4e 48 78 00 01              |Hx      |		PEA.L	0x1
00022a52 48 53                    |HS      |		PEA.L	(A3)
00022a54 48 54                    |HT      |		PEA.L	(A4)
00022a56 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022a5c de fc 00 10              |        |		ADDA.W	#0x10,A7
00022a60 48 51                    |HQ      |		PEA.L	(A1)
00022a62 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022a68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a6a 48 52                    |HR      |		PEA.L	(A2)
00022a6c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022a72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a74 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022a78 4e 5e                    |N^      |		UNLK	A6
00022a7a 4e 75                    |Nu      |		RTS
00022a7c ; --------------------------------------------------------------------------------------
00022a7c ; OMSI PASCAL Function
00022a7c ;    <LVAR  0x008 4(r)>
00022a7c ; --------------------------------------------------------------------------------------
00022a7c 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00022a80 bf d5                    |        |		CMPA.L	(A5),A7
00022a82 62 06                    |b       |		BHI	0x22a8a
00022a84 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a88 4e 76                    |Nv      |		TRAPV
00022a8a de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00022a8e 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
00022a92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a94 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022a98 4e ba f3 64              |N  d    |		JSR	0x21dfe
00022a9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a9e 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00022aa0 66 2e                    |f.      |		BNE	0x22ad0
00022aa2 41 f9 00 02 65 2a        |A   e*  |		LEA.L	0x2652a,A0
00022aa8 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022aaa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022aac 51 c8 ff fc              |Q       |		DBF	D0,0x22aaa
00022ab0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ab2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ab6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022aba 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022abe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022ac4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ac6 4e ba fe aa              |N       |		JSR	0x22972
00022aca de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022ace 60 26                    |`&      |		BRA	0x22af6
00022ad0 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022ad2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022ad4 be 97                    |        |		CMP.L	(A7),D7
00022ad6 6e 1c                    |n       |		BGT	0x22af4
00022ad8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ada 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022ade 2f 07                    |/       |		MOVE.L	D7,-(A7)
00022ae0 4e ba fc 38              |N  8    |		JSR	0x2271a
00022ae4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ae6 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022ae8 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022aea 4e ba fe 86              |N       |		JSR	0x22972
00022aee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022af0 52 87                    |R       |		ADDQ.L	#0x1,D7
00022af2 68 e0                    |h       |		BVC	0x22ad4
00022af4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022af6 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
00022afa 4e 5e                    |N^      |		UNLK	A6
00022afc 4e 75                    |Nu      |		RTS
00022afe ; --------------------------------------------------------------------------------------
00022afe ; OMSI PASCAL Function
00022afe ;    <LVAR  0x00c @>
00022afe ;    <LVAR  0x008 @ 4(r)>
00022afe ;    <LVAR -0x020 @>
00022afe ; --------------------------------------------------------------------------------------
00022afe 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00022b02 bf d5                    |        |		CMPA.L	(A5),A7
00022b04 62 06                    |b       |		BHI	0x22b0c
00022b06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b0a 4e 76                    |Nv      |		TRAPV
00022b0c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022b10 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00022b14 74 1d                    |t       |		MOVEQ.L	#0x1d,D2
00022b16 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022b18 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022b1c 30 10                    |0       |		MOVE.W	(A0),D0
00022b1e 48 c0                    |H       |		EXTW.L	D0
00022b20 be 80                    |        |		CMP.L	D0,D7
00022b22 6f 10                    |o       |		BLE	0x22b34
00022b24 20 07                    |        |		MOVE.L	D7,D0
00022b26 53 80                    |S       |		SUBQ.L	#0x1,D0
00022b28 b0 82                    |        |		CMP.L	D2,D0
00022b2a 63 02                    |c       |		BLS	0x22b2e
00022b2c 4e 4f                    |NO      |		TRAP	#15
00022b2e 42 36 08 e0              |B6      |		CLR.B	(A6+D0.L-#0x20)
00022b32 60 1e                    |`       |		BRA	0x22b52
00022b34 20 07                    |        |		MOVE.L	D7,D0
00022b36 53 80                    |S       |		SUBQ.L	#0x1,D0
00022b38 b0 82                    |        |		CMP.L	D2,D0
00022b3a 63 02                    |c       |		BLS	0x22b3e
00022b3c 4e 4f                    |NO      |		TRAP	#15
00022b3e 22 07                    |"       |		MOVE.L	D7,D1
00022b40 53 81                    |S       |		SUBQ.L	#0x1,D1
00022b42 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022b48 63 02                    |c       |		BLS	0x22b4c
00022b4a 4e 4f                    |NO      |		TRAP	#15
00022b4c 1d b0 18 02 08 e0        |        |		MOVE.B	(A0+D1.L+#0x2),(A6+D0.L-#0x20)
00022b52 52 87                    |R       |		ADDQ.L	#0x1,D7
00022b54 0c 87 00 00 00 1e        |        |		CMPI.L	#0x0000001e,D7
00022b5a 6f bc                    |o       |		BLE	0x22b18
00022b5c 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022b60 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022b66 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b68 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00022b6c 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
00022b70 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022b72 30 d9                    |0       |		MOVE.W	(A1)+,(A0)+
00022b74 51 c8 ff fc              |Q       |		DBF	D0,0x22b72
00022b78 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
00022b7c 4e 5e                    |N^      |		UNLK	A6
00022b7e 4e 75                    |Nu      |		RTS
00022b80 ; --------------------------------------------------------------------------------------
00022b80 ; OMSI PASCAL Function
00022b80 ;    <LVAR  0x026 4(w)>
00022b80 ;    <LVAR  0x008 @>
00022b80 ;    <LVAR -0x006 4(rw)>
00022b80 ; --------------------------------------------------------------------------------------
00022b80 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00022b84 bf d5                    |        |		CMPA.L	(A5),A7
00022b86 62 06                    |b       |		BHI	0x22b8e
00022b88 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b8c 4e 76                    |Nv      |		TRAPV
00022b8e de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022b92 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
00022b96 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00022b9a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022b9c 26 b9 00 02 65 42        |&   eB  |		MOVE.L	0x26542,(A3)
00022ba2 20 53                    | S      |		MOVEA.L	(A3),A0
00022ba4 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022ba8 67 1e                    |g       |		BEQ	0x22bc8
00022baa 4a 07                    |J       |		TST.B	D7
00022bac 66 1a                    |f       |		BNE	0x22bc8
00022bae 22 48                    |"H      |		MOVEA.L	A0,A1
00022bb0 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00022bb4 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022bb6 b5 09                    |        |		CMPM.B	(A1)+,(A2)+
00022bb8 56 c8 ff fc              |V       |		DBNE	D0,0x22bb6
00022bbc 66 04                    |f       |		BNE	0x22bc2
00022bbe 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022bc0 60 04                    |`       |		BRA	0x22bc6
00022bc2 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
00022bc6 60 da                    |`       |		BRA	0x22ba2
00022bc8 2d 48 00 26              |-H &    |		MOVE.L	A0,(A6+0x26)
00022bcc 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00022bd0 4e 5e                    |N^      |		UNLK	A6
00022bd2 4e 75                    |Nu      |		RTS
00022bd4 ; --------------------------------------------------------------------------------------
00022bd4 ; OMSI PASCAL Function
00022bd4 ;    <LVAR  0x008 @ 4(r)>
00022bd4 ; --------------------------------------------------------------------------------------
00022bd4 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00022bd8 bf d5                    |        |		CMPA.L	(A5),A7
00022bda 62 06                    |b       |		BHI	0x22be2
00022bdc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022be0 4e 76                    |Nv      |		TRAPV
00022be2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022be6 48 e7 81 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D0,-(A7)
00022bea 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022bee 45 f9 00 02 65 42        |E   eB  |		LEA.L	0x26542,A2
00022bf4 70 01                    |p       |		MOVEQ.L	#0x01,D0
00022bf6 20 51                    | Q      |		MOVEA.L	(A1),A0
00022bf8 b0 c0                    |        |		CMPA.W	D0,A0
00022bfa 67 56                    |gV      |		BEQ	0x22c52
00022bfc 4a a8 00 1e              |J       |		TST.L	(A0+0x1e)
00022c00 67 10                    |g       |		BEQ	0x22c12
00022c02 2f 28 00 22              |/( "    |		MOVE.L	(A0+0x22),-(A7)
00022c06 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
00022c0a 4e b9 00 01 02 a4        |N       |		JSR	Free1(a : Pointer; b : Long)
00022c10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c12 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022c14 38 40                    |8@      |		MOVEA.W	D0,A4
00022c16 26 52                    |&R      |		MOVEA.L	(A2),A3
00022c18 b6 c0                    |        |		CMPA.W	D0,A3
00022c1a 67 14                    |g       |		BEQ	0x22c30
00022c1c 4a 07                    |J       |		TST.B	D7
00022c1e 66 10                    |f       |		BNE	0x22c30
00022c20 b7 d1                    |        |		CMPA.L	(A1),A3
00022c22 66 04                    |f       |		BNE	0x22c28
00022c24 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022c26 60 06                    |`       |		BRA	0x22c2e
00022c28 28 4b                    |(K      |		MOVEA.L	A3,A4
00022c2a 26 6b 00 26              |&k &    |		MOVEA.L	(A3+0x26),A3
00022c2e 60 e8                    |`       |		BRA	0x22c18
00022c30 4a 07                    |J       |		TST.B	D7
00022c32 67 1e                    |g       |		BEQ	0x22c52
00022c34 b8 c0                    |        |		CMPA.W	D0,A4
00022c36 66 06                    |f       |		BNE	0x22c3e
00022c38 24 ab 00 26              |$  &    |		MOVE.L	(A3+0x26),(A2)
00022c3c 60 06                    |`       |		BRA	0x22c44
00022c3e 29 6b 00 26 00 26        |)k & &  |		MOVE.L	(A3+0x26),(A4+0x26)
00022c44 48 51                    |HQ      |		PEA.L	(A1)
00022c46 48 78 00 2a              |Hx *    |		PEA.L	0x2a
00022c4a 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00022c50 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c52 4c df 1f 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A3+A4
00022c56 4e 5e                    |N^      |		UNLK	A6
00022c58 4e 75                    |Nu      |		RTS
00022c5a ; --------------------------------------------------------------------------------------
00022c5a ; OMSI PASCAL Function
00022c5a ;    <LVAR  0x010 4(w)>
00022c5a ;    <LVAR  0x00c 4(r)>
00022c5a ;    <LVAR  0x008 4(r)>
00022c5a ;    <LVAR -0x006 @ 4(rw)>
00022c5a ;    <LVAR -0x024 @>
00022c5a ; --------------------------------------------------------------------------------------
00022c5a 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00022c5e bf d5                    |        |		CMPA.L	(A5),A7
00022c60 62 06                    |b       |		BHI	0x22c68
00022c62 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022c66 4e 76                    |Nv      |		TRAPV
00022c68 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022c6c 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022c70 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00022c74 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00022c78 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00022c7a 9e c1                    |        |		SUBA.W	D1,A7
00022c7c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022c80 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00022c82 4e ba fe 7a              |N  z    |		JSR	0x22afe
00022c86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c88 41 ee ff dc              |A       |		LEA.L	(A6-0x24),A0
00022c8c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022c8e 30 df                    |0       |		MOVE.W	(A7)+,(A0)+
00022c90 51 c8 ff fc              |Q       |		DBF	D0,0x22c8e
00022c94 4a 94                    |J       |		TST.L	(A4)
00022c96 6c 02                    |l       |		BGE	0x22c9a
00022c98 42 94                    |B       |		CLR.L	(A4)
00022c9a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c9c 20 4b                    | K      |		MOVEA.L	A3,A0
00022c9e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022ca0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022ca2 51 c8 ff fc              |Q       |		DBF	D0,0x22ca0
00022ca6 4e ba fe d8              |N       |		JSR	0x22b80
00022caa de c1                    |        |		ADDA.W	D1,A7
00022cac 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022cae 20 53                    | S      |		MOVEA.L	(A3),A0
00022cb0 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022cb4 67 12                    |g       |		BEQ	0x22cc8
00022cb6 20 28 00 1e              | (      |		MOVE.L	(A0+0x1e),D0
00022cba b0 94                    |        |		CMP.L	(A4),D0
00022cbc 66 02                    |f       |		BNE	0x22cc0
00022cbe 60 4c                    |`L      |		BRA	0x22d0c
00022cc0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022cc2 4e ba ff 10              |N       |		JSR	0x22bd4
00022cc6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022cc8 48 53                    |HS      |		PEA.L	(A3)
00022cca 48 78 00 2a              |Hx *    |		PEA.L	0x2a
00022cce 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
00022cd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cd6 20 53                    | S      |		MOVEA.L	(A3),A0
00022cd8 21 79 00 02 65 42 00 26  |!y  eB &|		MOVE.L	0x26542,(A0+0x26)
00022ce0 23 d3 00 02 65 42        |#   eB  |		MOVE.L	(A3),0x26542
00022ce6 22 48                    |"H      |		MOVEA.L	A0,A1
00022ce8 45 ee ff dc              |E       |		LEA.L	(A6-0x24),A2
00022cec 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022cee 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022cf0 51 c8 ff fc              |Q       |		DBF	D0,0x22cee
00022cf4 21 54 00 1e              |!T      |		MOVE.L	(A4),(A0+0x1e)
00022cf8 4a 94                    |J       |		TST.L	(A4)
00022cfa 67 10                    |g       |		BEQ	0x22d0c
00022cfc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cfe 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022d00 4e b9 00 01 02 a0        |N       |		JSR	Malloc2(VAR dst : Pointer; length : Word)
00022d06 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d08 21 5f 00 22              |!_ "    |		MOVE.L	(A7)+,(A0+0x22)
00022d0c 2d 53 00 10              |-S      |		MOVE.L	(A3),(A6+0x10)
00022d10 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022d14 4e 5e                    |N^      |		UNLK	A6
00022d16 4e 75                    |Nu      |		RTS
00022d18 ; --------------------------------------------------------------------------------------
00022d18 ; OMSI PASCAL Function
00022d18 ;    <LVAR  0x00c @>
00022d18 ;    <LVAR  0x008 @ 4(r)>
00022d18 ;    <LVAR -0x008 4(rw)>
00022d18 ; --------------------------------------------------------------------------------------
00022d18 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00022d1c bf d5                    |        |		CMPA.L	(A5),A7
00022d1e 62 06                    |b       |		BHI	0x22d26
00022d20 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d24 4e 76                    |Nv      |		TRAPV
00022d26 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022d2a 48 e7 c3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D1+D0,-(A7)
00022d2e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00022d32 20 52                    | R      |		MOVEA.L	(A2),A0
00022d34 30 10                    |0       |		MOVE.W	(A0),D0
00022d36 48 c0                    |H       |		EXTW.L	D0
00022d38 2c 00                    |,       |		MOVE.L	D0,D6
00022d3a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d3c 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00022d40 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022d42 4e ba ff 16              |N       |		JSR	0x22c5a
00022d46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d48 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00022d4c 4a 86                    |J       |		TST.L	D6
00022d4e 67 40                    |g@      |		BEQ	0x22d90
00022d50 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00022d54 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
00022d58 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022d5a 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022d5c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022d5e be 97                    |        |		CMP.L	(A7),D7
00022d60 6e 2c                    |n,      |		BGT	0x22d8e
00022d62 20 07                    |        |		MOVE.L	D7,D0
00022d64 53 80                    |S       |		SUBQ.L	#0x1,D0
00022d66 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00022d6c 63 02                    |c       |		BLS	0x22d70
00022d6e 4e 4f                    |NO      |		TRAP	#15
00022d70 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00022d74 22 52                    |"R      |		MOVEA.L	(A2),A1
00022d76 22 07                    |"       |		MOVE.L	D7,D1
00022d78 53 81                    |S       |		SUBQ.L	#0x1,D1
00022d7a 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00022d80 63 02                    |c       |		BLS	0x22d84
00022d82 4e 4f                    |NO      |		TRAP	#15
00022d84 11 b1 18 02 08 00        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L)
00022d8a 52 87                    |R       |		ADDQ.L	#0x1,D7
00022d8c 68 d0                    |h       |		BVC	0x22d5e
00022d8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d90 48 52                    |HR      |		PEA.L	(A2)
00022d92 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022d98 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d9a 4c df 07 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2
00022d9e 4e 5e                    |N^      |		UNLK	A6
00022da0 4e 75                    |Nu      |		RTS
00022da2 ; --------------------------------------------------------------------------------------
00022da2 ; OMSI PASCAL Function
00022da2 ;    <LVAR  0x008 4(r)>
00022da2 ;    <LVAR -0x004 @ 4(w)>
00022da2 ;    <LVAR -0x008 4(rw)>
00022da2 ;    <LVAR -0x00c 4(rw)>
00022da2 ;    <LVAR -0x010 4(rw)>
00022da2 ;    <LVAR -0x01c 4(rw)>
00022da2 ;    <LVAR -0x020 4(rw)>
00022da2 ; --------------------------------------------------------------------------------------
00022da2 4e 56 ff 82              |NV      |		LINK.W	A6,#0xff82
00022da6 bf d5                    |        |		CMPA.L	(A5),A7
00022da8 62 06                    |b       |		BHI	0x22db0
00022daa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022dae 4e 76                    |Nv      |		TRAPV
00022db0 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00022db4 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00022db8 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00022dbc 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
00022dc0 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00022dc4 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022dc6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dc8 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022dca 4e ba f0 32              |N  2    |		JSR	0x21dfe
00022dce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022dd0 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022dd2 20 13                    |        |		MOVE.L	(A3),D0
00022dd4 b0 82                    |        |		CMP.L	D2,D0
00022dd6 6c 2e                    |l.      |		BGE	0x22e06
00022dd8 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00022ddc 20 4f                    | O      |		MOVEA.L	A7,A0
00022dde 43 fa e7 f6              |C       |		LEA.L	0x215d6,A1
00022de2 72 18                    |r       |		MOVEQ.L	#0x18,D1
00022de4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022de6 51 c9 ff fc              |Q       |		DBF	D1,0x22de4
00022dea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022df0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022df2 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00022df6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022dfc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dfe 4e ba eb f2              |N       |		JSR	0x219f2
00022e02 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00022e06 42 92                    |B       |		CLR.L	(A2)
00022e08 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022e0a 7c 02                    ||       |		MOVEQ.L	#0x02,D6
00022e0c bc 97                    |        |		CMP.L	(A7),D6
00022e0e 6e 1e                    |n       |		BGT	0x22e2e
00022e10 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022e14 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022e16 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022e18 4e ba f8 22              |N  "    |		JSR	0x2263c
00022e1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e1e 4e ba f7 e4              |N       |		JSR	0x22604
00022e22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e24 20 12                    |        |		MOVE.L	(A2),D0
00022e26 d0 9f                    |        |		ADD.L	(A7)+,D0
00022e28 24 80                    |$       |		MOVE.L	D0,(A2)
00022e2a 52 86                    |R       |		ADDQ.L	#0x1,D6
00022e2c 68 de                    |h       |		BVC	0x22e0c
00022e2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e30 20 13                    |        |		MOVE.L	(A3),D0
00022e32 55 80                    |U       |		SUBQ.L	#0x2,D0
00022e34 d1 92                    |        |		ADD.L	D0,(A2)
00022e36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e38 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022e3a 48 78 00 01              |Hx      |		PEA.L	0x1
00022e3e 4e ba f8 da              |N       |		JSR	0x2271a
00022e42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e44 2d 57 ff fc              |-W      |		MOVE.L	(A7),(A6-0x4)
00022e48 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022e4c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022e4e 4e ba fe 0a              |N       |		JSR	0x22c5a
00022e52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e54 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00022e58 4a 92                    |J       |		TST.L	(A2)
00022e5a 6f 00 00 aa              |o       |		BLE	0x22f06
00022e5e 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00022e62 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
00022e66 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022e68 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022e6a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022e6c 7c 02                    ||       |		MOVEQ.L	#0x02,D6
00022e6e bc 97                    |        |		CMP.L	(A7),D6
00022e70 6e 00 00 92              |n       |		BGT	0x22f04
00022e74 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022e76 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022e78 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022e7a 4e ba f7 c0              |N       |		JSR	0x2263c
00022e7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e80 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
00022e84 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
00022e88 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00022e8c 2a 2e ff e0              |*.      |		MOVE.L	(A6-0x20),D5
00022e90 ba 97                    |        |		CMP.L	(A7),D5
00022e92 6e 14                    |n       |		BGT	0x22ea8
00022e94 20 17                    |        |		MOVE.L	(A7),D0
00022e96 0c 85 80 00 00 01        |        |		CMPI.L	#0x80000001,D5
00022e9c 6d 08                    |m       |		BLT	0x22ea6
00022e9e 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
00022ea4 6f 02                    |o       |		BLE	0x22ea8
00022ea6 4e 4f                    |NO      |		TRAP	#15
00022ea8 ba 97                    |        |		CMP.L	(A7),D5
00022eaa 6e 32                    |n2      |		BGT	0x22ede
00022eac 20 07                    |        |		MOVE.L	D7,D0
00022eae 53 80                    |S       |		SUBQ.L	#0x1,D0
00022eb0 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00022eb6 63 02                    |c       |		BLS	0x22eba
00022eb8 4e 4f                    |NO      |		TRAP	#15
00022eba 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00022ebe 22 05                    |"       |		MOVE.L	D5,D1
00022ec0 53 81                    |S       |		SUBQ.L	#0x1,D1
00022ec2 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
00022ec8 63 02                    |c       |		BLS	0x22ecc
00022eca 4e 4f                    |NO      |		TRAP	#15
00022ecc 43 f9 00 02 55 10        |C   U   |		LEA.L	0x25510,A1
00022ed2 11 b1 18 08 08 00        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L)
00022ed8 52 87                    |R       |		ADDQ.L	#0x1,D7
00022eda 52 85                    |R       |		ADDQ.L	#0x1,D5
00022edc 68 ca                    |h       |		BVC	0x22ea8
00022ede 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ee0 bc 93                    |        |		CMP.L	(A3),D6
00022ee2 67 1a                    |g       |		BEQ	0x22efe
00022ee4 20 07                    |        |		MOVE.L	D7,D0
00022ee6 53 80                    |S       |		SUBQ.L	#0x1,D0
00022ee8 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00022eee 63 02                    |c       |		BLS	0x22ef2
00022ef0 4e 4f                    |NO      |		TRAP	#15
00022ef2 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00022ef6 11 bc 00 2c 08 00        |   ,    |		MOVE.B	#0x2c,(A0+D0.L)
00022efc 52 87                    |R       |		ADDQ.L	#0x1,D7
00022efe 52 86                    |R       |		ADDQ.L	#0x1,D6
00022f00 68 00 ff 6c              |h  l    |		BVC	0x22e6e
00022f04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f06 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022f0a 4e 5e                    |N^      |		UNLK	A6
00022f0c 4e 75                    |Nu      |		RTS
00022f0e ; --------------------------------------------------------------------------------------
00022f0e ; OMSI PASCAL Function
00022f0e ;    <LVAR  0x008 4(r)>
00022f0e ;    <LVAR -0x00c 4(rw)>
00022f0e ; --------------------------------------------------------------------------------------
00022f0e 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00022f12 bf d5                    |        |		CMPA.L	(A5),A7
00022f14 62 06                    |b       |		BHI	0x22f1c
00022f16 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f1a 4e 76                    |Nv      |		TRAPV
00022f1c de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00022f20 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00022f24 47 f9 00 02 65 18        |G   e   |		LEA.L	0x26518,A3
00022f2a 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022f2c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f2e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022f32 48 78 00 01              |Hx      |		PEA.L	0x1
00022f36 4e ba f7 e2              |N       |		JSR	0x2271a
00022f3a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f3c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022f3e 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00022f42 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022f44 4e ba fb b8              |N       |		JSR	0x22afe
00022f48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f4a 4e ba fc 34              |N  4    |		JSR	0x22b80
00022f4e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00022f52 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00022f56 20 6e ff f4              | n      |		MOVEA.L	(A6-0xc),A0
00022f5a b0 c2                    |        |		CMPA.W	D2,A0
00022f5c 66 42                    |fB      |		BNE	0x22fa0
00022f5e 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00022f62 22 4f                    |"O      |		MOVEA.L	A7,A1
00022f64 45 fa e6 8a              |E       |		LEA.L	0x215f0,A2
00022f68 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022f6a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022f6c 51 c8 ff fc              |Q       |		DBF	D0,0x22f6a
00022f70 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022f72 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022f76 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f78 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022f7c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f82 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00022f86 48 78 00 01              |Hx      |		PEA.L	0x1
00022f8a 4e ba f7 8e              |N       |		JSR	0x2271a
00022f8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f90 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022f96 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f98 4e ba ea 58              |N  X    |		JSR	0x219f2
00022f9c de fc 00 18              |        |		ADDA.W	#0x18,A7
00022fa0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022fa2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022fa4 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
00022fa8 44 97                    |D       |		NEG.L	(A7)
00022faa 4e ba ef 9a              |N       |		JSR	0x21f46
00022fae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fb0 2e a8 00 1e              |.       |		MOVE.L	(A0+0x1e),(A7)
00022fb4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022fb6 be 97                    |        |		CMP.L	(A7),D7
00022fb8 6e 38                    |n8      |		BGT	0x22ff2
00022fba 20 07                    |        |		MOVE.L	D7,D0
00022fbc d0 93                    |        |		ADD.L	(A3),D0
00022fbe 53 80                    |S       |		SUBQ.L	#0x1,D0
00022fc0 53 80                    |S       |		SUBQ.L	#0x1,D0
00022fc2 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00022fc8 63 02                    |c       |		BLS	0x22fcc
00022fca 4e 4f                    |NO      |		TRAP	#15
00022fcc 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00022fd2 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00022fd6 22 69 00 22              |"i "    |		MOVEA.L	(A1+0x22),A1
00022fda 22 07                    |"       |		MOVE.L	D7,D1
00022fdc 53 81                    |S       |		SUBQ.L	#0x1,D1
00022fde 0c 81 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D1
00022fe4 63 02                    |c       |		BLS	0x22fe8
00022fe6 4e 4f                    |NO      |		TRAP	#15
00022fe8 11 b1 18 00 08 08        |        |		MOVE.B	(A1+D1.L),(A0+D0.L+#0x8)
00022fee 52 87                    |R       |		ADDQ.L	#0x1,D7
00022ff0 68 c4                    |h       |		BVC	0x22fb6
00022ff2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ff4 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
00022ff8 4e 5e                    |N^      |		UNLK	A6
00022ffa 4e 75                    |Nu      |		RTS
00022ffc ; --------------------------------------------------------------------------------------
00022ffc ; OMSI PASCAL Function
00022ffc ;    <LVAR -0x004 4(rw)>
00022ffc ; --------------------------------------------------------------------------------------
00022ffc 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00023000 bf d5                    |        |		CMPA.L	(A5),A7
00023002 62 06                    |b       |		BHI	0x2300a
00023004 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023008 4e 76                    |Nv      |		TRAPV
0002300a de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
0002300e 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00023012 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00023016 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023018 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
0002301a 26 b9 00 02 65 42        |&   eB  |		MOVE.L	0x26542,(A3)
00023020 20 53                    | S      |		MOVEA.L	(A3),A0
00023022 b0 c1                    |        |		CMPA.W	D1,A0
00023024 67 30                    |g0      |		BEQ	0x23056
00023026 9e c2                    |        |		SUBA.W	D2,A7
00023028 22 4f                    |"O      |		MOVEA.L	A7,A1
0002302a 24 48                    |$H      |		MOVEA.L	A0,A2
0002302c 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002302e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023030 51 c8 ff fc              |Q       |		DBF	D0,0x2302e
00023034 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023036 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002303a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002303c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002303e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023044 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023046 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002304c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00023050 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
00023054 60 ca                    |`       |		BRA	0x23020
00023056 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
0002305a 4e 5e                    |N^      |		UNLK	A6
0002305c 4e 75                    |Nu      |		RTS
0002305e ; --------------------------------------------------------------------------------------
0002305e ; OMSI PASCAL Function
0002305e ;    <LVAR  0x008 4(r)>
0002305e ; --------------------------------------------------------------------------------------
0002305e 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00023062 bf d5                    |        |		CMPA.L	(A5),A7
00023064 62 06                    |b       |		BHI	0x2306c
00023066 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002306a 4e 76                    |Nv      |		TRAPV
0002306c de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00023070 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
00023074 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023078 48 78 00 01              |Hx      |		PEA.L	0x1
0002307c 4e ba f6 9c              |N       |		JSR	0x2271a
00023080 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023082 4e ba fa 7a              |N  z    |		JSR	0x22afe
00023086 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023088 4e ba fa f6              |N       |		JSR	0x22b80
0002308c de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023090 4e ba fb 42              |N  B    |		JSR	0x22bd4
00023094 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023096 4e 5e                    |N^      |		UNLK	A6
00023098 4e 75                    |Nu      |		RTS
0002309a ; --------------------------------------------------------------------------------------
0002309a ; OMSI PASCAL Function
0002309a ; --------------------------------------------------------------------------------------
0002309a 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0002309e bf d5                    |        |		CMPA.L	(A5),A7
000230a0 62 06                    |b       |		BHI	0x230a8
000230a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230a6 4e 76                    |Nv      |		TRAPV
000230a8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000230ac 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000230ae 4e b9 00 01 03 cc        |N       |		JSR	GetPushLevel() : Long
000230b4 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000230ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230bc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000230c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230c4 4e 5e                    |N^      |		UNLK	A6
000230c6 4e 75                    |Nu      |		RTS
000230c8 ; --------------------------------------------------------------------------------------
000230c8 ; OMSI PASCAL Function
000230c8 ;    <LVAR  0x008 4(r)>
000230c8 ;    <LVAR -0x004 1(rw)>
000230c8 ;    <LVAR -0x008 @ 4(rw)>
000230c8 ;    <LVAR -0x00c @ 4(r)>
000230c8 ;    <LVAR -0x010 @ 4(r)>
000230c8 ;    <LVAR -0x012 @ 1(r)>
000230c8 ;    <LVAR -0x013 @ 1(r)>
000230c8 ;    <LVAR -0x014 @ 1(r)>
000230c8 ;    <LVAR -0x024 4(rw)>
000230c8 ;    <LVAR -0x028 4(rw)>
000230c8 ;    <LVAR -0x02c 4(rw)>
000230c8 ;    <LVAR -0x030 @ 4(r)>
000230c8 ;    <LVAR -0x032 1(w)>
000230c8 ;    <LVAR -0x036 @ 4(r)>
000230c8 ;    <LVAR -0x038 @ 1(r)>
000230c8 ;    <LVAR -0x03c @ 4(rw)>
000230c8 ; --------------------------------------------------------------------------------------
000230c8 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
000230cc bf d5                    |        |		CMPA.L	(A5),A7
000230ce 62 06                    |b       |		BHI	0x230d6
000230d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230d4 4e 76                    |Nv      |		TRAPV
000230d6 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
000230da 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000230de 45 ee ff c4              |E       |		LEA.L	(A6-0x3c),A2
000230e2 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000230e6 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000230ec 74 01                    |t       |		MOVEQ.L	#0x01,D2
000230ee 76 14                    |v       |		MOVEQ.L	#0x14,D3
000230f0 28 3c ff ff 80 00        |(<      |		MOVE.L	#0xffff8000,D4
000230f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230f8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000230fa 4e ba ed 02              |N       |		JSR	0x21dfe
000230fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023100 2d 5f ff d4              |-_      |		MOVE.L	(A7)+,(A6-0x2c)
00023104 66 28                    |f(      |		BNE	0x2312e
00023106 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023108 1e ba e5 0c              |        |		MOVE.B	0x21616,(A7)
0002310c 1f 7a e5 09 00 01        | z      |		MOVE.B	0x21617,(A7+0x1)
00023112 1f 7a e5 04 00 02        | z      |		MOVE.B	0x21618,(A7+0x2)
00023118 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002311a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002311e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023120 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00023124 4e 94                    |N       |		JSR	(A4)
00023126 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023128 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002312a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002312c 60 10                    |`       |		BRA	0x2313e
0002312e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023130 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023132 48 78 00 01              |Hx      |		PEA.L	0x1
00023136 4e ba f5 e2              |N       |		JSR	0x2271a
0002313a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002313c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002313e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023140 20 4f                    | O      |		MOVEA.L	A7,A0
00023142 43 fa e4 d6              |C       |		LEA.L	0x2161a,A1
00023146 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023148 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002314a 51 c8 ff fc              |Q       |		DBF	D0,0x23148
0002314e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023150 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023152 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023154 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023158 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002315a 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0002315e 4e 94                    |N       |		JSR	(A4)
00023160 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023162 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023168 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002316a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002316c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002316e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00023170 42 27                    |B'      |		CLR.B	-(A7)
00023172 1f 02                    |        |		MOVE.B	D2,-(A7)
00023174 48 78 00 00              |Hx      |		PEA.L	0x0
00023178 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
0002317c 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
00023180 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00023186 de c3                    |        |		ADDA.W	D3,A7
00023188 4a 2e ff c8              |J.      |		TST.B	(A6-0x38)
0002318c 67 0e                    |g       |		BEQ	0x2319c
0002318e 48 52                    |HR      |		PEA.L	(A2)
00023190 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023196 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023198 60 00 02 4e              |`  N    |		BRA	0x233e8
0002319c 20 6e ff ca              | n      |		MOVEA.L	(A6-0x36),A0
000231a0 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
000231a4 ed 08                    |        |		LSL.B	#0x6,D0
000231a6 ee 08                    |        |		LSR.B	#0x7,D0
000231a8 1d 40 ff ce              | @      |		MOVE.B	D0,(A6-0x32)
000231ac 42 27                    |B'      |		CLR.B	-(A7)
000231ae 1f 02                    |        |		MOVE.B	D2,-(A7)
000231b0 48 78 00 01              |Hx      |		PEA.L	0x1
000231b4 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000231b8 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
000231bc 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000231c2 de fc 00 10              |        |		ADDA.W	#0x10,A7
000231c6 20 52                    | R      |		MOVEA.L	(A2),A0
000231c8 32 10                    |2       |		MOVE.W	(A0),D1
000231ca 48 c1                    |H       |		EXTW.L	D1
000231cc 5b 81                    |[       |		SUBQ.L	#0x5,D1
000231ce 92 84                    |        |		SUB.L	D4,D1
000231d0 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
000231d6 63 02                    |c       |		BLS	0x231da
000231d8 4e 4f                    |NO      |		TRAP	#15
000231da d2 84                    |        |		ADD.L	D4,D1
000231dc 30 81                    |0       |		MOVE.W	D1,(A0)
000231de 4a 00                    |J       |		TST.B	D0
000231e0 66 36                    |f6      |		BNE	0x23218
000231e2 41 fa e4 32              |A  2    |		LEA.L	0x21616,A0
000231e6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000231e8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000231ea 51 c8 ff fc              |Q       |		DBF	D0,0x231e8
000231ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231f0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000231f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231f4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000231f8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000231fa 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000231fe 4e 94                    |N       |		JSR	(A4)
00023200 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023202 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023208 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002320a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023210 de fc 00 16              |        |		ADDA.W	#0x16,A7
00023214 60 00 01 d2              |`       |		BRA	0x233e8
00023218 48 6e ff d0              |Hn      |		PEA.L	(A6-0x30)
0002321c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023222 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023224 20 6e ff d0              | n      |		MOVEA.L	(A6-0x30),A0
00023228 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002322a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002322c 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00023230 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00023232 ba 97                    |        |		CMP.L	(A7),D5
00023234 6e 00 00 94              |n       |		BGT	0x232ca
00023238 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002323a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002323c 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002323e 4e ba f3 fc              |N       |		JSR	0x2263c
00023242 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023244 2d 5f ff d8              |-_      |		MOVE.L	(A7)+,(A6-0x28)
00023248 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
0002324c 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00023250 2c 2e ff d8              |,.      |		MOVE.L	(A6-0x28),D6
00023254 bc 97                    |        |		CMP.L	(A7),D6
00023256 6e 14                    |n       |		BGT	0x2326c
00023258 20 17                    |        |		MOVE.L	(A7),D0
0002325a 0c 86 80 00 00 01        |        |		CMPI.L	#0x80000001,D6
00023260 6d 08                    |m       |		BLT	0x2326a
00023262 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
00023268 6f 02                    |o       |		BLE	0x2326c
0002326a 4e 4f                    |NO      |		TRAP	#15
0002326c bc 97                    |        |		CMP.L	(A7),D6
0002326e 6e 32                    |n2      |		BGT	0x232a2
00023270 20 07                    |        |		MOVE.L	D7,D0
00023272 53 80                    |S       |		SUBQ.L	#0x1,D0
00023274 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
0002327a 63 02                    |c       |		BLS	0x2327e
0002327c 4e 4f                    |NO      |		TRAP	#15
0002327e 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00023282 22 06                    |"       |		MOVE.L	D6,D1
00023284 53 81                    |S       |		SUBQ.L	#0x1,D1
00023286 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
0002328c 63 02                    |c       |		BLS	0x23290
0002328e 4e 4f                    |NO      |		TRAP	#15
00023290 43 f9 00 02 55 10        |C   U   |		LEA.L	0x25510,A1
00023296 11 b1 18 08 08 02        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L+#0x2)
0002329c 52 87                    |R       |		ADDQ.L	#0x1,D7
0002329e 52 86                    |R       |		ADDQ.L	#0x1,D6
000232a0 68 ca                    |h       |		BVC	0x2326c
000232a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000232a4 ba ae ff d4              |        |		CMP.L	(A6-0x2c),D5
000232a8 67 1a                    |g       |		BEQ	0x232c4
000232aa 20 07                    |        |		MOVE.L	D7,D0
000232ac 53 80                    |S       |		SUBQ.L	#0x1,D0
000232ae 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000232b4 63 02                    |c       |		BLS	0x232b8
000232b6 4e 4f                    |NO      |		TRAP	#15
000232b8 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000232bc 11 bc 00 2c 08 02        |   ,    |		MOVE.B	#0x2c,(A0+D0.L+#0x2)
000232c2 52 87                    |R       |		ADDQ.L	#0x1,D7
000232c4 52 85                    |R       |		ADDQ.L	#0x1,D5
000232c6 68 00 ff 6a              |h  j    |		BVC	0x23232
000232ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000232cc 20 57                    | W      |		MOVEA.L	(A7),A0
000232ce 20 07                    |        |		MOVE.L	D7,D0
000232d0 53 80                    |S       |		SUBQ.L	#0x1,D0
000232d2 90 84                    |        |		SUB.L	D4,D0
000232d4 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000232da 63 02                    |c       |		BLS	0x232de
000232dc 4e 4f                    |NO      |		TRAP	#15
000232de d0 84                    |        |		ADD.L	D4,D0
000232e0 30 80                    |0       |		MOVE.W	D0,(A0)
000232e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000232e4 3e ba e3 3e              |>  >    |		MOVE.W	0x21624,(A7)
000232e8 3f 3a e3 38              |?: 8    |		MOVE.W	0x21622,-(A7)
000232ec 3f 3a e3 32              |?: 2    |		MOVE.W	0x21620,-(A7)
000232f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232f2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000232f6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000232f8 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000232fc 4e 94                    |N       |		JSR	(A4)
000232fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023300 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00023304 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023306 2e 93                    |.       |		MOVE.L	(A3),(A7)
00023308 48 78 00 00              |Hx      |		PEA.L	0x0
0002330c 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00023310 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00023314 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
00023318 4e b9 00 02 4c 52        |N   LR  |		JSR	0x24c52
0002331e de c3                    |        |		ADDA.W	D3,A7
00023320 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00023324 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002332a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002332c 3e ba e2 fc              |>       |		MOVE.W	0x2162a,(A7)
00023330 3f 3a e2 f6              |?:      |		MOVE.W	0x21628,-(A7)
00023334 3f 3a e2 f0              |?:      |		MOVE.W	0x21626,-(A7)
00023338 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002333a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002333e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023340 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00023344 4e 94                    |N       |		JSR	(A4)
00023346 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023348 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002334c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002334e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00023350 48 78 00 00              |Hx      |		PEA.L	0x0
00023354 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00023358 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002335c 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00023360 4e b9 00 02 4c 52        |N   LR  |		JSR	0x24c52
00023366 de c3                    |        |		ADDA.W	D3,A7
00023368 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002336c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023372 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023374 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
00023378 66 06                    |f       |		BNE	0x23380
0002337a 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
0002337e 67 06                    |g       |		BEQ	0x23386
00023380 42 2e ff fc              |B.      |		CLR.B	(A6-0x4)
00023384 60 04                    |`       |		BRA	0x2338a
00023386 1d 42 ff fc              | B      |		MOVE.B	D2,(A6-0x4)
0002338a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002338c 2f 2e ff d0              |/.      |		MOVE.L	(A6-0x30),-(A7)
00023390 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00023394 48 80                    |H       |		EXTB.W	D0
00023396 41 bc 00 02              |A       |		CHK.W	#0x2,D0
0002339a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002339c 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000233a0 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000233a6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000233aa 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
000233ae 67 20                    |g       |		BEQ	0x233d0
000233b0 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000233b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000233b6 10 2e ff ec              | .      |		MOVE.B	(A6-0x14),D0
000233ba 48 80                    |H       |		EXTB.W	D0
000233bc 41 bc 00 0e              |A       |		CHK.W	#0xe,D0
000233c0 1f 00                    |        |		MOVE.B	D0,-(A7)
000233c2 4e b9 00 01 03 c0        |N       |		JSR	ExpErrMsg(a: Byte) : String
000233c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000233ca 4e ba f9 4c              |N  L    |		JSR	0x22d18
000233ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233d0 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
000233d4 67 12                    |g       |		BEQ	0x233e8
000233d6 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
000233da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000233dc 4e b9 00 01 03 c8        |N       |		JSR	FSCALL_103c8
000233e2 4e ba f9 34              |N  4    |		JSR	0x22d18
000233e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233e8 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000233ec 4e 5e                    |N^      |		UNLK	A6
000233ee 4e 75                    |Nu      |		RTS
000233f0 ; --------------------------------------------------------------------------------------
000233f0 ; OMSI PASCAL Function
000233f0 ;    <LVAR  0x008 4(r)>
000233f0 ;    <LVAR -0x004 @ 4(rw)>
000233f0 ;    <LVAR -0x008 @ 4(rw)>
000233f0 ; --------------------------------------------------------------------------------------
000233f0 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000233f4 bf d5                    |        |		CMPA.L	(A5),A7
000233f6 62 06                    |b       |		BHI	0x233fe
000233f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000233fc 4e 76                    |Nv      |		TRAPV
000233fe de fc 00 18              |        |		ADDA.W	#0x18,A7
00023402 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00023406 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
0002340a 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002340e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023410 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023414 48 78 00 01              |Hx      |		PEA.L	0x1
00023418 4e ba f3 00              |N       |		JSR	0x2271a
0002341c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002341e 20 97                    |        |		MOVE.L	(A7),(A0)
00023420 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023424 48 78 00 02              |Hx      |		PEA.L	0x2
00023428 4e ba f2 f0              |N       |		JSR	0x2271a
0002342c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002342e 22 97                    |"       |		MOVE.L	(A7),(A1)
00023430 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023432 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023434 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023436 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002343c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002343e 4a 1f                    |J       |		TST.B	(A7)+
00023440 67 06                    |g       |		BEQ	0x23448
00023442 4e ba ed 96              |N       |		JSR	0x221da
00023446 60 04                    |`       |		BRA	0x2344c
00023448 4e ba ed d6              |N       |		JSR	0x22220
0002344c 48 51                    |HQ      |		PEA.L	(A1)
0002344e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023454 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023456 48 50                    |HP      |		PEA.L	(A0)
00023458 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002345e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023460 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00023464 4e 5e                    |N^      |		UNLK	A6
00023466 4e 75                    |Nu      |		RTS
00023468 ; --------------------------------------------------------------------------------------
00023468 ; OMSI PASCAL Function
00023468 ;    <LVAR  0x008 4(r)>
00023468 ;    <LVAR -0x004 @ 4(rw)>
00023468 ;    <LVAR -0x008 @ 4(rw)>
00023468 ; --------------------------------------------------------------------------------------
00023468 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
0002346c bf d5                    |        |		CMPA.L	(A5),A7
0002346e 62 06                    |b       |		BHI	0x23476
00023470 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023474 4e 76                    |Nv      |		TRAPV
00023476 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002347a 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
0002347e 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00023482 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00023486 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023488 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002348c 48 78 00 01              |Hx      |		PEA.L	0x1
00023490 4e ba f2 88              |N       |		JSR	0x2271a
00023494 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023496 20 97                    |        |		MOVE.L	(A7),(A0)
00023498 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002349c 48 78 00 02              |Hx      |		PEA.L	0x2
000234a0 4e ba f2 78              |N  x    |		JSR	0x2271a
000234a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000234a6 22 97                    |"       |		MOVE.L	(A7),(A1)
000234a8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000234aa 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000234ac 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000234ae 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000234b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000234b6 4a 1f                    |J       |		TST.B	(A7)+
000234b8 66 06                    |f       |		BNE	0x234c0
000234ba 4e ba ed 1e              |N       |		JSR	0x221da
000234be 60 04                    |`       |		BRA	0x234c4
000234c0 4e ba ed 5e              |N  ^    |		JSR	0x22220
000234c4 48 51                    |HQ      |		PEA.L	(A1)
000234c6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000234cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234ce 48 50                    |HP      |		PEA.L	(A0)
000234d0 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000234d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234d8 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000234dc 4e 5e                    |N^      |		UNLK	A6
000234de 4e 75                    |Nu      |		RTS
000234e0 ; --------------------------------------------------------------------------------------
000234e0 ; OMSI PASCAL Function
000234e0 ;    <LVAR  0x008 4(r)>
000234e0 ; --------------------------------------------------------------------------------------
000234e0 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
000234e4 bf d5                    |        |		CMPA.L	(A5),A7
000234e6 62 06                    |b       |		BHI	0x234ee
000234e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000234ec 4e 76                    |Nv      |		TRAPV
000234ee de fc 00 10              |        |		ADDA.W	#0x10,A7
000234f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000234f4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000234f8 48 78 00 01              |Hx      |		PEA.L	0x1
000234fc 4e ba f2 1c              |N       |		JSR	0x2271a
00023500 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023502 4e ba f0 0e              |N       |		JSR	0x22512
00023506 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023508 4e 5e                    |N^      |		UNLK	A6
0002350a 4e 75                    |Nu      |		RTS
0002350c ; --------------------------------------------------------------------------------------
0002350c ; OMSI PASCAL Function
0002350c ;    <LVAR  0x008 4(r)>
0002350c ;    <LVAR -0x014 @ 4(rw)>
0002350c ; --------------------------------------------------------------------------------------
0002350c 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00023510 bf d5                    |        |		CMPA.L	(A5),A7
00023512 62 06                    |b       |		BHI	0x2351a
00023514 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023518 4e 76                    |Nv      |		TRAPV
0002351a de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
0002351e 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00023522 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00023526 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
0002352a 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
0002352c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002352e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023530 48 78 00 01              |Hx      |		PEA.L	0x1
00023534 4e ba f1 e4              |N       |		JSR	0x2271a
00023538 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002353a 26 97                    |&       |		MOVE.L	(A7),(A3)
0002353c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002353e 48 78 00 02              |Hx      |		PEA.L	0x2
00023542 4e ba f1 d6              |N       |		JSR	0x2271a
00023546 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023548 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002354a 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
0002354e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023550 48 78 00 03              |Hx      |		PEA.L	0x3
00023554 4e ba f1 f6              |N       |		JSR	0x2274c
00023558 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002355a 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023560 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023562 2c 17                    |,       |		MOVE.L	(A7),D6
00023564 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023566 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023568 48 78 00 04              |Hx      |		PEA.L	0x4
0002356c 4e ba f1 de              |N       |		JSR	0x2274c
00023570 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023572 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023578 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002357a 2a 1f                    |*       |		MOVE.L	(A7)+,D5
0002357c 20 06                    |        |		MOVE.L	D6,D0
0002357e d0 85                    |        |		ADD.L	D5,D0
00023580 53 80                    |S       |		SUBQ.L	#0x1,D0
00023582 32 14                    |2       |		MOVE.W	(A4),D1
00023584 48 c1                    |H       |		EXTW.L	D1
00023586 b0 81                    |        |		CMP.L	D1,D0
00023588 6f 30                    |o0      |		BLE	0x235ba
0002358a 9e fc 00 20              |        |		SUBA.W	#0x20,A7
0002358e 20 4f                    | O      |		MOVEA.L	A7,A0
00023590 43 fa e0 9a              |C       |		LEA.L	0x2162c,A1
00023594 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00023596 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023598 51 c8 ff fc              |Q       |		DBF	D0,0x23596
0002359c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002359e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000235a2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000235a6 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
000235aa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000235b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235b2 4e ba e4 3e              |N  >    |		JSR	0x219f2
000235b6 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000235ba 20 53                    | S      |		MOVEA.L	(A3),A0
000235bc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000235be 30 10                    |0       |		MOVE.W	(A0),D0
000235c0 48 c0                    |H       |		EXTW.L	D0
000235c2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000235c4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000235c6 be 97                    |        |		CMP.L	(A7),D7
000235c8 6e 26                    |n&      |		BGT	0x235f0
000235ca 20 06                    |        |		MOVE.L	D6,D0
000235cc d0 87                    |        |		ADD.L	D7,D0
000235ce 53 80                    |S       |		SUBQ.L	#0x1,D0
000235d0 53 80                    |S       |		SUBQ.L	#0x1,D0
000235d2 b0 82                    |        |		CMP.L	D2,D0
000235d4 63 02                    |c       |		BLS	0x235d8
000235d6 4e 4f                    |NO      |		TRAP	#15
000235d8 22 07                    |"       |		MOVE.L	D7,D1
000235da 53 81                    |S       |		SUBQ.L	#0x1,D1
000235dc b2 82                    |        |		CMP.L	D2,D1
000235de 63 02                    |c       |		BLS	0x235e2
000235e0 4e 4f                    |NO      |		TRAP	#15
000235e2 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000235e6 19 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A4+D0.L+#0x2)
000235ec 52 87                    |R       |		ADDQ.L	#0x1,D7
000235ee 68 d6                    |h       |		BVC	0x235c6
000235f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000235f2 2e 8c                    |.       |		MOVE.L	A4,(A7)
000235f4 4e ba f1 c6              |N       |		JSR	0x227bc
000235f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000235fa 48 53                    |HS      |		PEA.L	(A3)
000235fc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023602 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023604 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00023608 4e 5e                    |N^      |		UNLK	A6
0002360a 4e 75                    |Nu      |		RTS
0002360c ; --------------------------------------------------------------------------------------
0002360c ; OMSI PASCAL Function
0002360c ;    <LVAR  0x008 4(r)>
0002360c ;    <LVAR -0x010 @ 4(r)>
0002360c ;    <LVAR -0x014 @ 4(rw)>
0002360c ; --------------------------------------------------------------------------------------
0002360c 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00023610 bf d5                    |        |		CMPA.L	(A5),A7
00023612 62 06                    |b       |		BHI	0x2361a
00023614 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023618 4e 76                    |Nv      |		TRAPV
0002361a de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0002361e 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00023622 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00023626 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
0002362a 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
0002362e 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00023630 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023632 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023634 48 78 00 01              |Hx      |		PEA.L	0x1
00023638 4e ba f0 e0              |N       |		JSR	0x2271a
0002363c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002363e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00023640 48 53                    |HS      |		PEA.L	(A3)
00023642 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023648 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002364a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002364c 48 78 00 02              |Hx      |		PEA.L	0x2
00023650 4e ba f0 fa              |N       |		JSR	0x2274c
00023654 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023656 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
0002365c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002365e 2a 17                    |*       |		MOVE.L	(A7),D5
00023660 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023662 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023664 48 78 00 03              |Hx      |		PEA.L	0x3
00023668 4e ba f0 e2              |N       |		JSR	0x2274c
0002366c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002366e 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023674 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023676 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00023678 20 52                    | R      |		MOVEA.L	(A2),A0
0002367a 20 05                    |        |		MOVE.L	D5,D0
0002367c d0 86                    |        |		ADD.L	D6,D0
0002367e 53 80                    |S       |		SUBQ.L	#0x1,D0
00023680 32 10                    |2       |		MOVE.W	(A0),D1
00023682 48 c1                    |H       |		EXTW.L	D1
00023684 b0 81                    |        |		CMP.L	D1,D0
00023686 6f 06                    |o       |		BLE	0x2368e
00023688 52 81                    |R       |		ADDQ.L	#0x1,D1
0002368a 92 85                    |        |		SUB.L	D5,D1
0002368c 2c 01                    |,       |		MOVE.L	D1,D6
0002368e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023690 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023692 be 97                    |        |		CMP.L	(A7),D7
00023694 6e 26                    |n&      |		BGT	0x236bc
00023696 20 53                    | S      |		MOVEA.L	(A3),A0
00023698 20 07                    |        |		MOVE.L	D7,D0
0002369a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002369c b0 82                    |        |		CMP.L	D2,D0
0002369e 63 02                    |c       |		BLS	0x236a2
000236a0 4e 4f                    |NO      |		TRAP	#15
000236a2 22 52                    |"R      |		MOVEA.L	(A2),A1
000236a4 22 07                    |"       |		MOVE.L	D7,D1
000236a6 d2 85                    |        |		ADD.L	D5,D1
000236a8 53 81                    |S       |		SUBQ.L	#0x1,D1
000236aa 53 81                    |S       |		SUBQ.L	#0x1,D1
000236ac b2 82                    |        |		CMP.L	D2,D1
000236ae 63 02                    |c       |		BLS	0x236b2
000236b0 4e 4f                    |NO      |		TRAP	#15
000236b2 11 b1 18 02 08 02        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x2)
000236b8 52 87                    |R       |		ADDQ.L	#0x1,D7
000236ba 68 d6                    |h       |		BVC	0x23692
000236bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236be 20 53                    | S      |		MOVEA.L	(A3),A0
000236c0 04 86 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D6
000236c6 0c 86 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D6
000236cc 63 02                    |c       |		BLS	0x236d0
000236ce 4e 4f                    |NO      |		TRAP	#15
000236d0 06 86 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D6
000236d6 30 86                    |0       |		MOVE.W	D6,(A0)
000236d8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000236da 4e ba f0 e0              |N       |		JSR	0x227bc
000236de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236e0 48 52                    |HR      |		PEA.L	(A2)
000236e2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000236e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236ea 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000236ee 4e 5e                    |N^      |		UNLK	A6
000236f0 4e 75                    |Nu      |		RTS
000236f2 ; --------------------------------------------------------------------------------------
000236f2 ; OMSI PASCAL Function
000236f2 ;    <LVAR  0x008 4(r)>
000236f2 ; --------------------------------------------------------------------------------------
000236f2 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
000236f6 bf d5                    |        |		CMPA.L	(A5),A7
000236f8 62 06                    |b       |		BHI	0x23700
000236fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000236fe 4e 76                    |Nv      |		TRAPV
00023700 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023704 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023706 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002370a 48 78 00 01              |Hx      |		PEA.L	0x1
0002370e 4e ba f0 3c              |N  <    |		JSR	0x2274c
00023712 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023714 4e ba ee 70              |N  p    |		JSR	0x22586
00023718 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002371a 4e 5e                    |N^      |		UNLK	A6
0002371c 4e 75                    |Nu      |		RTS
0002371e ; --------------------------------------------------------------------------------------
0002371e ; OMSI PASCAL Function
0002371e ;    <LVAR  0x008 4(r)>
0002371e ; --------------------------------------------------------------------------------------
0002371e 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023722 bf d5                    |        |		CMPA.L	(A5),A7
00023724 62 06                    |b       |		BHI	0x2372c
00023726 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002372a 4e 76                    |Nv      |		TRAPV
0002372c de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023730 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023734 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023738 48 78 00 01              |Hx      |		PEA.L	0x1
0002373c 4e ba f0 0e              |N       |		JSR	0x2274c
00023740 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023744 48 78 00 02              |Hx      |		PEA.L	0x2
00023748 4e ba f0 02              |N       |		JSR	0x2274c
0002374c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002374e 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00023754 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023758 4a 1f                    |J       |		TST.B	(A7)+
0002375a 67 06                    |g       |		BEQ	0x23762
0002375c 4e ba ea 7c              |N  |    |		JSR	0x221da
00023760 60 04                    |`       |		BRA	0x23766
00023762 4e ba ea bc              |N       |		JSR	0x22220
00023766 4e 5e                    |N^      |		UNLK	A6
00023768 4e 75                    |Nu      |		RTS
0002376a ; --------------------------------------------------------------------------------------
0002376a ; OMSI PASCAL Function
0002376a ;    <LVAR  0x008 4(r)>
0002376a ; --------------------------------------------------------------------------------------
0002376a 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0002376e bf d5                    |        |		CMPA.L	(A5),A7
00023770 62 06                    |b       |		BHI	0x23778
00023772 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023776 4e 76                    |Nv      |		TRAPV
00023778 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002377c 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023780 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023784 48 78 00 01              |Hx      |		PEA.L	0x1
00023788 4e ba ef c2              |N       |		JSR	0x2274c
0002378c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023790 48 78 00 02              |Hx      |		PEA.L	0x2
00023794 4e ba ef b6              |N       |		JSR	0x2274c
00023798 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002379a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
000237a0 de fc 00 10              |        |		ADDA.W	#0x10,A7
000237a4 4a 1f                    |J       |		TST.B	(A7)+
000237a6 66 06                    |f       |		BNE	0x237ae
000237a8 4e ba ea 30              |N  0    |		JSR	0x221da
000237ac 60 04                    |`       |		BRA	0x237b2
000237ae 4e ba ea 70              |N  p    |		JSR	0x22220
000237b2 4e 5e                    |N^      |		UNLK	A6
000237b4 4e 75                    |Nu      |		RTS
000237b6 ; --------------------------------------------------------------------------------------
000237b6 ; OMSI PASCAL Function
000237b6 ;    <LVAR  0x008 4(r)>
000237b6 ; --------------------------------------------------------------------------------------
000237b6 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000237ba bf d5                    |        |		CMPA.L	(A5),A7
000237bc 62 06                    |b       |		BHI	0x237c4
000237be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237c2 4e 76                    |Nv      |		TRAPV
000237c4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000237c8 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000237cc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000237d0 48 78 00 01              |Hx      |		PEA.L	0x1
000237d4 4e ba ef 76              |N  v    |		JSR	0x2274c
000237d8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000237dc 48 78 00 02              |Hx      |		PEA.L	0x2
000237e0 4e ba ef 6a              |N  j    |		JSR	0x2274c
000237e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237e6 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
000237ec de fc 00 10              |        |		ADDA.W	#0x10,A7
000237f0 4a 1f                    |J       |		TST.B	(A7)+
000237f2 67 06                    |g       |		BEQ	0x237fa
000237f4 4e ba e9 e4              |N       |		JSR	0x221da
000237f8 60 04                    |`       |		BRA	0x237fe
000237fa 4e ba ea 24              |N  $    |		JSR	0x22220
000237fe 4e 5e                    |N^      |		UNLK	A6
00023800 4e 75                    |Nu      |		RTS
00023802 ; --------------------------------------------------------------------------------------
00023802 ; OMSI PASCAL Function
00023802 ;    <LVAR  0x008 4(r)>
00023802 ; --------------------------------------------------------------------------------------
00023802 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023806 bf d5                    |        |		CMPA.L	(A5),A7
00023808 62 06                    |b       |		BHI	0x23810
0002380a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002380e 4e 76                    |Nv      |		TRAPV
00023810 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023814 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023818 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002381c 48 78 00 01              |Hx      |		PEA.L	0x1
00023820 4e ba ef 2a              |N  *    |		JSR	0x2274c
00023824 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023828 48 78 00 02              |Hx      |		PEA.L	0x2
0002382c 4e ba ef 1e              |N       |		JSR	0x2274c
00023830 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023832 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00023838 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002383c 4a 1f                    |J       |		TST.B	(A7)+
0002383e 67 06                    |g       |		BEQ	0x23846
00023840 4e ba e9 98              |N       |		JSR	0x221da
00023844 60 04                    |`       |		BRA	0x2384a
00023846 4e ba e9 d8              |N       |		JSR	0x22220
0002384a 4e 5e                    |N^      |		UNLK	A6
0002384c 4e 75                    |Nu      |		RTS
0002384e ; --------------------------------------------------------------------------------------
0002384e ; OMSI PASCAL Function
0002384e ;    <LVAR  0x008 4(r)>
0002384e ; --------------------------------------------------------------------------------------
0002384e 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023852 bf d5                    |        |		CMPA.L	(A5),A7
00023854 62 06                    |b       |		BHI	0x2385c
00023856 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002385a 4e 76                    |Nv      |		TRAPV
0002385c de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023860 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023864 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023868 48 78 00 01              |Hx      |		PEA.L	0x1
0002386c 4e ba ee de              |N       |		JSR	0x2274c
00023870 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023874 48 78 00 02              |Hx      |		PEA.L	0x2
00023878 4e ba ee d2              |N       |		JSR	0x2274c
0002387c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002387e 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00023884 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023888 4a 1f                    |J       |		TST.B	(A7)+
0002388a 66 06                    |f       |		BNE	0x23892
0002388c 4e ba e9 4c              |N  L    |		JSR	0x221da
00023890 60 04                    |`       |		BRA	0x23896
00023892 4e ba e9 8c              |N       |		JSR	0x22220
00023896 4e 5e                    |N^      |		UNLK	A6
00023898 4e 75                    |Nu      |		RTS
0002389a ; --------------------------------------------------------------------------------------
0002389a ; OMSI PASCAL Function
0002389a ;    <LVAR  0x008 4(r)>
0002389a ; --------------------------------------------------------------------------------------
0002389a 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0002389e bf d5                    |        |		CMPA.L	(A5),A7
000238a0 62 06                    |b       |		BHI	0x238a8
000238a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000238a6 4e 76                    |Nv      |		TRAPV
000238a8 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000238ac 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000238b0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000238b4 48 78 00 01              |Hx      |		PEA.L	0x1
000238b8 4e ba ee 92              |N       |		JSR	0x2274c
000238bc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000238c0 48 78 00 02              |Hx      |		PEA.L	0x2
000238c4 4e ba ee 86              |N       |		JSR	0x2274c
000238c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238ca 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
000238d0 de fc 00 10              |        |		ADDA.W	#0x10,A7
000238d4 4a 1f                    |J       |		TST.B	(A7)+
000238d6 66 06                    |f       |		BNE	0x238de
000238d8 4e ba e9 00              |N       |		JSR	0x221da
000238dc 60 04                    |`       |		BRA	0x238e2
000238de 4e ba e9 40              |N  @    |		JSR	0x22220
000238e2 4e 5e                    |N^      |		UNLK	A6
000238e4 4e 75                    |Nu      |		RTS
000238e6 ; --------------------------------------------------------------------------------------
000238e6 ; OMSI PASCAL Function
000238e6 ;    <LVAR  0x008 4(r)>
000238e6 ; --------------------------------------------------------------------------------------
000238e6 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000238ea bf d5                    |        |		CMPA.L	(A5),A7
000238ec 62 06                    |b       |		BHI	0x238f4
000238ee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000238f2 4e 76                    |Nv      |		TRAPV
000238f4 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000238f8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000238fc 70 10                    |p       |		MOVEQ.L	#0x10,D0
000238fe 9e c0                    |        |		SUBA.W	D0,A7
00023900 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023904 48 78 00 01              |Hx      |		PEA.L	0x1
00023908 4e ba ee 42              |N  B    |		JSR	0x2274c
0002390c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023910 48 78 00 02              |Hx      |		PEA.L	0x2
00023914 4e ba ee 36              |N  6    |		JSR	0x2274c
00023918 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002391a 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00023920 de c0                    |        |		ADDA.W	D0,A7
00023922 4e ba ef 20              |N       |		JSR	0x22844
00023926 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023928 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0002392c 4e 5e                    |N^      |		UNLK	A6
0002392e 4e 75                    |Nu      |		RTS
00023930 ; --------------------------------------------------------------------------------------
00023930 ; OMSI PASCAL Function
00023930 ;    <LVAR  0x008 4(r)>
00023930 ; --------------------------------------------------------------------------------------
00023930 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023934 bf d5                    |        |		CMPA.L	(A5),A7
00023936 62 06                    |b       |		BHI	0x2393e
00023938 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002393c 4e 76                    |Nv      |		TRAPV
0002393e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023942 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023946 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023948 9e c0                    |        |		SUBA.W	D0,A7
0002394a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002394e 48 78 00 01              |Hx      |		PEA.L	0x1
00023952 4e ba ed f8              |N       |		JSR	0x2274c
00023956 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002395a 48 78 00 02              |Hx      |		PEA.L	0x2
0002395e 4e ba ed ec              |N       |		JSR	0x2274c
00023962 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023964 4e b9 00 01 03 18        |N       |		JSR	Subtract(a, b : Quad) : Quad
0002396a de c0                    |        |		ADDA.W	D0,A7
0002396c 4e ba ee d6              |N       |		JSR	0x22844
00023970 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023972 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023976 4e 5e                    |N^      |		UNLK	A6
00023978 4e 75                    |Nu      |		RTS
0002397a ; --------------------------------------------------------------------------------------
0002397a ; OMSI PASCAL Function
0002397a ;    <LVAR  0x008 4(r)>
0002397a ; --------------------------------------------------------------------------------------
0002397a 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0002397e bf d5                    |        |		CMPA.L	(A5),A7
00023980 62 06                    |b       |		BHI	0x23988
00023982 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023986 4e 76                    |Nv      |		TRAPV
00023988 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0002398c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023990 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023992 9e c0                    |        |		SUBA.W	D0,A7
00023994 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023998 48 78 00 01              |Hx      |		PEA.L	0x1
0002399c 4e ba ed ae              |N       |		JSR	0x2274c
000239a0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000239a4 48 78 00 02              |Hx      |		PEA.L	0x2
000239a8 4e ba ed a2              |N       |		JSR	0x2274c
000239ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239ae 4e b9 00 01 03 1c        |N       |		JSR	Multiply(a, b : Quad) : Quad
000239b4 de c0                    |        |		ADDA.W	D0,A7
000239b6 4e ba ee 8c              |N       |		JSR	0x22844
000239ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239bc 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
000239c0 4e 5e                    |N^      |		UNLK	A6
000239c2 4e 75                    |Nu      |		RTS
000239c4 ; --------------------------------------------------------------------------------------
000239c4 ; OMSI PASCAL Function
000239c4 ;    <LVAR  0x008 4(r)>
000239c4 ; --------------------------------------------------------------------------------------
000239c4 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000239c8 bf d5                    |        |		CMPA.L	(A5),A7
000239ca 62 06                    |b       |		BHI	0x239d2
000239cc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000239d0 4e 76                    |Nv      |		TRAPV
000239d2 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000239d6 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000239da 70 10                    |p       |		MOVEQ.L	#0x10,D0
000239dc 9e c0                    |        |		SUBA.W	D0,A7
000239de 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000239e2 48 78 00 01              |Hx      |		PEA.L	0x1
000239e6 4e ba ed 64              |N  d    |		JSR	0x2274c
000239ea 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000239ee 48 78 00 02              |Hx      |		PEA.L	0x2
000239f2 4e ba ed 58              |N  X    |		JSR	0x2274c
000239f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239f8 4e b9 00 01 03 20        |N       |		JSR	Divide(a, b : Quad) : Quad
000239fe de c0                    |        |		ADDA.W	D0,A7
00023a00 4e ba ee 42              |N  B    |		JSR	0x22844
00023a04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a06 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023a0a 4e 5e                    |N^      |		UNLK	A6
00023a0c 4e 75                    |Nu      |		RTS
00023a0e ; --------------------------------------------------------------------------------------
00023a0e ; OMSI PASCAL Function
00023a0e ;    <LVAR  0x008 4(r)>
00023a0e ; --------------------------------------------------------------------------------------
00023a0e 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023a12 bf d5                    |        |		CMPA.L	(A5),A7
00023a14 62 06                    |b       |		BHI	0x23a1c
00023a16 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a1a 4e 76                    |Nv      |		TRAPV
00023a1c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023a20 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023a24 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023a26 9e c0                    |        |		SUBA.W	D0,A7
00023a28 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a2c 48 78 00 01              |Hx      |		PEA.L	0x1
00023a30 4e ba ed 1a              |N       |		JSR	0x2274c
00023a34 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a38 48 78 00 02              |Hx      |		PEA.L	0x2
00023a3c 4e ba ed 0e              |N       |		JSR	0x2274c
00023a40 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a42 4e b9 00 01 03 58        |N    X  |		JSR	Modulus(a, b : Quad) : Quad
00023a48 de c0                    |        |		ADDA.W	D0,A7
00023a4a 4e ba ed f8              |N       |		JSR	0x22844
00023a4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a50 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023a54 4e 5e                    |N^      |		UNLK	A6
00023a56 4e 75                    |Nu      |		RTS
00023a58 ; --------------------------------------------------------------------------------------
00023a58 ; OMSI PASCAL Function
00023a58 ;    <LVAR  0x008 4(r)>
00023a58 ; --------------------------------------------------------------------------------------
00023a58 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023a5c bf d5                    |        |		CMPA.L	(A5),A7
00023a5e 62 06                    |b       |		BHI	0x23a66
00023a60 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a64 4e 76                    |Nv      |		TRAPV
00023a66 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023a6a 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023a6e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023a70 9e c0                    |        |		SUBA.W	D0,A7
00023a72 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a76 48 78 00 01              |Hx      |		PEA.L	0x1
00023a7a 4e ba ec d0              |N       |		JSR	0x2274c
00023a7e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023a82 48 78 00 02              |Hx      |		PEA.L	0x2
00023a86 4e ba ec c4              |N       |		JSR	0x2274c
00023a8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a8c 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00023a92 de c0                    |        |		ADDA.W	D0,A7
00023a94 4e ba ed ae              |N       |		JSR	0x22844
00023a98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a9a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023a9e 4e 5e                    |N^      |		UNLK	A6
00023aa0 4e 75                    |Nu      |		RTS
00023aa2 ; --------------------------------------------------------------------------------------
00023aa2 ; OMSI PASCAL Function
00023aa2 ;    <LVAR  0x008 4(r)>
00023aa2 ; --------------------------------------------------------------------------------------
00023aa2 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023aa6 bf d5                    |        |		CMPA.L	(A5),A7
00023aa8 62 06                    |b       |		BHI	0x23ab0
00023aaa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023aae 4e 76                    |Nv      |		TRAPV
00023ab0 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023ab4 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023ab8 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023aba 9e c0                    |        |		SUBA.W	D0,A7
00023abc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023ac0 48 78 00 01              |Hx      |		PEA.L	0x1
00023ac4 4e ba ec 86              |N       |		JSR	0x2274c
00023ac8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023acc 48 78 00 02              |Hx      |		PEA.L	0x2
00023ad0 4e ba ec 7a              |N  z    |		JSR	0x2274c
00023ad4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ad6 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00023adc de c0                    |        |		ADDA.W	D0,A7
00023ade 4e ba ed 64              |N  d    |		JSR	0x22844
00023ae2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ae4 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
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 d8              |NV      |		LINK.W	A6,#0xffd8
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 28              |   (    |		ADDA.W	#0x28,A7
00023afe 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023b02 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023b04 9e c0                    |        |		SUBA.W	D0,A7
00023b06 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b0a 48 78 00 01              |Hx      |		PEA.L	0x1
00023b0e 4e ba ec 3c              |N  <    |		JSR	0x2274c
00023b12 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b16 48 78 00 02              |Hx      |		PEA.L	0x2
00023b1a 4e ba ec 30              |N  0    |		JSR	0x2274c
00023b1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b20 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00023b26 de c0                    |        |		ADDA.W	D0,A7
00023b28 4e ba ed 1a              |N       |		JSR	0x22844
00023b2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b2e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023b32 4e 5e                    |N^      |		UNLK	A6
00023b34 4e 75                    |Nu      |		RTS
00023b36 ; --------------------------------------------------------------------------------------
00023b36 ; OMSI PASCAL Function
00023b36 ;    <LVAR  0x008 4(r)>
00023b36 ; --------------------------------------------------------------------------------------
00023b36 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00023b3a bf d5                    |        |		CMPA.L	(A5),A7
00023b3c 62 06                    |b       |		BHI	0x23b44
00023b3e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b42 4e 76                    |Nv      |		TRAPV
00023b44 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023b48 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023b4c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b50 48 78 00 01              |Hx      |		PEA.L	0x1
00023b54 4e ba eb f6              |N       |		JSR	0x2274c
00023b58 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00023b5c 48 78 00 02              |Hx      |		PEA.L	0x2
00023b60 4e ba ec 26              |N  &    |		JSR	0x22788
00023b64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b66 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00023b6c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023b70 4e ba ec d2              |N       |		JSR	0x22844
00023b74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b76 4e 5e                    |N^      |		UNLK	A6
00023b78 4e 75                    |Nu      |		RTS
00023b7a ; --------------------------------------------------------------------------------------
00023b7a ; OMSI PASCAL Function
00023b7a ;    <LVAR  0x008 4(r)>
00023b7a ; --------------------------------------------------------------------------------------
00023b7a 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00023b7e bf d5                    |        |		CMPA.L	(A5),A7
00023b80 62 06                    |b       |		BHI	0x23b88
00023b82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b86 4e 76                    |Nv      |		TRAPV
00023b88 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023b8c 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023b90 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b94 48 78 00 01              |Hx      |		PEA.L	0x1
00023b98 4e ba eb b2              |N       |		JSR	0x2274c
00023b9c 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00023ba0 48 78 00 02              |Hx      |		PEA.L	0x2
00023ba4 4e ba eb e2              |N       |		JSR	0x22788
00023ba8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023baa 44 97                    |D       |		NEG.L	(A7)
00023bac 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00023bb2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023bb6 4e ba ec 8c              |N       |		JSR	0x22844
00023bba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bbc 4e 5e                    |N^      |		UNLK	A6
00023bbe 4e 75                    |Nu      |		RTS
00023bc0 ; --------------------------------------------------------------------------------------
00023bc0 ; OMSI PASCAL Function
00023bc0 ;    <LVAR  0x008 4(r)>
00023bc0 ; --------------------------------------------------------------------------------------
00023bc0 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00023bc4 bf d5                    |        |		CMPA.L	(A5),A7
00023bc6 62 06                    |b       |		BHI	0x23bce
00023bc8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023bcc 4e 76                    |Nv      |		TRAPV
00023bce de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00023bd2 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00023bd6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023bda 48 78 00 01              |Hx      |		PEA.L	0x1
00023bde 4e ba eb 6c              |N  l    |		JSR	0x2274c
00023be2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023be4 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00023bea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bec 4e ba ec 56              |N  V    |		JSR	0x22844
00023bf0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bf2 4e 5e                    |N^      |		UNLK	A6
00023bf4 4e 75                    |Nu      |		RTS
00023bf6 ; --------------------------------------------------------------------------------------
00023bf6 ; OMSI PASCAL Function
00023bf6 ;    <LVAR  0x008 4(r)>
00023bf6 ;    <LVAR -0x00c 4(rw)>
00023bf6 ;    <LVAR -0x010 4(rw)>
00023bf6 ;    <LVAR -0x014 4(rw)>
00023bf6 ;    <LVAR -0x018 4(rw)>
00023bf6 ; --------------------------------------------------------------------------------------
00023bf6 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00023bfa bf d5                    |        |		CMPA.L	(A5),A7
00023bfc 62 06                    |b       |		BHI	0x23c04
00023bfe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c02 4e 76                    |Nv      |		TRAPV
00023c04 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023c08 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
00023c0c 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00023c10 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023c12 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023c14 48 78 00 01              |Hx      |		PEA.L	0x1
00023c18 4e ba eb 32              |N  2    |		JSR	0x2274c
00023c1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c1e 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
00023c22 2d 57 ff ec              |-W      |		MOVE.L	(A7),(A6-0x14)
00023c26 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023c28 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023c2a 48 78 00 02              |Hx      |		PEA.L	0x2
00023c2e 4e ba eb 1c              |N       |		JSR	0x2274c
00023c32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c34 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023c38 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
00023c3c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023c3e 48 78 00 03              |Hx      |		PEA.L	0x3
00023c42 4e ba eb 44              |N  D    |		JSR	0x22788
00023c46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c48 2e 17                    |.       |		MOVE.L	(A7),D7
00023c4a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023c4c 48 78 00 04              |Hx      |		PEA.L	0x4
00023c50 4e ba eb 36              |N  6    |		JSR	0x22788
00023c54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c56 2c 17                    |,       |		MOVE.L	(A7),D6
00023c58 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023c5a 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00023c5e 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00023c62 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00023c66 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00023c6a 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023c6c 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023c6e 4e b9 00 01 03 48        |N    H  |		JSR	?BitField_something_()
00023c74 de fc 00 18              |        |		ADDA.W	#0x18,A7
00023c78 4e ba eb ca              |N       |		JSR	0x22844
00023c7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c7e 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00023c82 4e 5e                    |N^      |		UNLK	A6
00023c84 4e 75                    |Nu      |		RTS
00023c86 ; --------------------------------------------------------------------------------------
00023c86 ; OMSI PASCAL Function
00023c86 ;    <LVAR  0x008 4(r)>
00023c86 ;    <LVAR -0x00c 4(rw)>
00023c86 ;    <LVAR -0x010 4(rw)>
00023c86 ; --------------------------------------------------------------------------------------
00023c86 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023c8a bf d5                    |        |		CMPA.L	(A5),A7
00023c8c 62 06                    |b       |		BHI	0x23c94
00023c8e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c92 4e 76                    |Nv      |		TRAPV
00023c94 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023c98 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
00023c9c 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00023ca0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023ca2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023ca4 48 78 00 01              |Hx      |		PEA.L	0x1
00023ca8 4e ba ea a2              |N       |		JSR	0x2274c
00023cac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cae 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023cb2 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
00023cb6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023cb8 48 78 00 02              |Hx      |		PEA.L	0x2
00023cbc 4e ba ea ca              |N       |		JSR	0x22788
00023cc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cc2 2e 17                    |.       |		MOVE.L	(A7),D7
00023cc4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023cc6 48 78 00 03              |Hx      |		PEA.L	0x3
00023cca 4e ba ea bc              |N       |		JSR	0x22788
00023cce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cd0 2c 17                    |,       |		MOVE.L	(A7),D6
00023cd2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023cd4 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00023cd8 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00023cdc 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023cde 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023ce0 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00023ce6 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023cea 4e ba eb 58              |N  X    |		JSR	0x22844
00023cee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cf0 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00023cf4 4e 5e                    |N^      |		UNLK	A6
00023cf6 4e 75                    |Nu      |		RTS
00023cf8 ; --------------------------------------------------------------------------------------
00023cf8 ; OMSI PASCAL Function
00023cf8 ;    <LVAR  0x008 4(r)>
00023cf8 ; --------------------------------------------------------------------------------------
00023cf8 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023cfc bf d5                    |        |		CMPA.L	(A5),A7
00023cfe 62 06                    |b       |		BHI	0x23d06
00023d00 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d04 4e 76                    |Nv      |		TRAPV
00023d06 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023d0a 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
00023d0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d10 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d14 4e ba e0 e8              |N       |		JSR	0x21dfe
00023d18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d1a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023d1c be 97                    |        |		CMP.L	(A7),D7
00023d1e 6e 26                    |n&      |		BGT	0x23d46
00023d20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d22 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023d26 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023d28 4e ba e9 f0              |N       |		JSR	0x2271a
00023d2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d2e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023d34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023d36 1e bc 00 20              |        |		MOVE.B	#0x20,(A7)
00023d3a 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00023d40 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023d42 52 87                    |R       |		ADDQ.L	#0x1,D7
00023d44 68 d6                    |h       |		BVC	0x23d1c
00023d46 48 78 00 01              |Hx      |		PEA.L	0x1
00023d4a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00023d50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d52 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00023d54 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00023d56 4e ba de f2              |N       |		JSR	0x21c4a
00023d5a 2e 8c                    |.       |		MOVE.L	A4,(A7)
00023d5c 4e ba ea 5e              |N  ^    |		JSR	0x227bc
00023d60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d62 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
00023d66 4e 5e                    |N^      |		UNLK	A6
00023d68 4e 75                    |Nu      |		RTS
00023d6a ; --------------------------------------------------------------------------------------
00023d6a ; OMSI PASCAL Function
00023d6a ;    <LVAR  0x008 4(r)>
00023d6a ; --------------------------------------------------------------------------------------
00023d6a 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023d6e bf d5                    |        |		CMPA.L	(A5),A7
00023d70 62 06                    |b       |		BHI	0x23d78
00023d72 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d76 4e 76                    |Nv      |		TRAPV
00023d78 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00023d7c 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
00023d80 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00023d84 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023d86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d88 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023d8a 48 78 00 01              |Hx      |		PEA.L	0x1
00023d8e 4e ba e9 8a              |N       |		JSR	0x2271a
00023d92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d94 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00023d96 9e c0                    |        |		SUBA.W	D0,A7
00023d98 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023d9a 48 78 00 02              |Hx      |		PEA.L	0x2
00023d9e 4e ba e9 ac              |N       |		JSR	0x2274c
00023da2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023da4 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023daa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dac 2e 17                    |.       |		MOVE.L	(A7),D7
00023dae 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023db0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023db2 48 78 00 03              |Hx      |		PEA.L	0x3
00023db6 4e ba e9 94              |N       |		JSR	0x2274c
00023dba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dbc 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023dc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dc4 2c 17                    |,       |		MOVE.L	(A7),D6
00023dc6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023dc8 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00023dca 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023dcc 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00023dd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023dd4 2e 86                    |.       |		MOVE.L	D6,(A7)
00023dd6 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00023ddc de c0                    |        |		ADDA.W	D0,A7
00023dde 4e ba e9 dc              |N       |		JSR	0x227bc
00023de2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023de4 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
00023de8 4e 5e                    |N^      |		UNLK	A6
00023dea 4e 75                    |Nu      |		RTS
00023dec ; --------------------------------------------------------------------------------------
00023dec ; OMSI PASCAL Function
00023dec ;    <LVAR  0x008 4(r)>
00023dec ;    <LVAR -0x00a 2(r)>
00023dec ;    <LVAR -0x00c 4(rw)>
00023dec ;    <LVAR -0x010 4(rw)>
00023dec ; --------------------------------------------------------------------------------------
00023dec 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00023df0 bf d5                    |        |		CMPA.L	(A5),A7
00023df2 62 06                    |b       |		BHI	0x23dfa
00023df4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023df8 4e 76                    |Nv      |		TRAPV
00023dfa de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00023dfe 48 e7 c3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D1+D0,-(A7)
00023e02 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
00023e06 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00023e0a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e0c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023e10 48 78 00 01              |Hx      |		PEA.L	0x1
00023e14 4e ba e9 36              |N  6    |		JSR	0x2274c
00023e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e1a 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00023e1c 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00023e1e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023e20 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00023e22 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
00023e26 02 40 00 01              | @      |		ANDI.W	#0x0001,D0
00023e2a 42 81                    |B       |		CLR.L	D1
00023e2c 32 00                    |2       |		MOVE.W	D0,D1
00023e2e de 81                    |        |		ADD.L	D1,D7
00023e30 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e32 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023e34 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023e36 48 78 ff ff              |Hx      |		PEA.L	0xffffffff
00023e3a 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00023e40 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023e44 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00023e46 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00023e48 52 86                    |R       |		ADDQ.L	#0x1,D6
00023e4a 0c 86 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D6
00023e50 6f d0                    |o       |		BLE	0x23e22
00023e52 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e54 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023e56 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00023e5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023e5e 4e ba e9 e4              |N       |		JSR	0x22844
00023e62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e64 4c df 03 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1
00023e68 4e 5e                    |N^      |		UNLK	A6
00023e6a 4e 75                    |Nu      |		RTS
00023e6c ; --------------------------------------------------------------------------------------
00023e6c ; OMSI PASCAL Function
00023e6c ;    <LVAR  0x008 4(r)>
00023e6c ;    <LVAR -0x004 @ 1(r)>
00023e6c ; --------------------------------------------------------------------------------------
00023e6c 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
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 44              |   D    |		ADDA.W	#0x44,A7
00023e7e 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00023e82 45 f9 00 02 65 4a        |E   eJ  |		LEA.L	0x2654a,A2
00023e88 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023e8a 74 00                    |t       |		MOVEQ.L	#0x00,D2
00023e8c 4a 12                    |J       |		TST.B	(A2)
00023e8e 66 32                    |f2      |		BNE	0x23ec2
00023e90 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00023e94 20 4f                    | O      |		MOVEA.L	A7,A0
00023e96 43 fa d7 b4              |C       |		LEA.L	0x2164c,A1
00023e9a 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00023e9c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e9e 51 c8 ff fc              |Q       |		DBF	D0,0x23e9c
00023ea2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ea4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023ea8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023eaa 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00023eae 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023eb4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023eb6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023ebc de fc 00 20              |        |		ADDA.W	#0x20,A7
00023ec0 14 81                    |        |		MOVE.B	D1,(A2)
00023ec2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023ec4 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00023eca 20 1f                    |        |		MOVE.L	(A7)+,D0
00023ecc 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00023ed2 63 02                    |c       |		BLS	0x23ed6
00023ed4 4e 4f                    |NO      |		TRAP	#15
00023ed6 3e 80                    |>       |		MOVE.W	D0,(A7)
00023ed8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00023edc 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00023ee2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023ee4 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00023ee8 b0 01                    |        |		CMP.B	D1,D0
00023eea 67 16                    |g       |		BEQ	0x23f02
00023eec 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023ef0 4e ba da be              |N       |		JSR	0x219b0
00023ef4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ef6 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00023efa 3c 42                    |<B      |		MOVEA.W	D2,A6
00023efc 4e f9 00 02 52 94        |N   R   |		JMP	0x25294
00023f02 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023f04 4e b9 00 01 03 d4        |N       |		JSR	ReadChar() : Byte
00023f0a 10 1f                    |        |		MOVE.B	(A7)+,D0
00023f0c 0c 00 00 07              |        |		CMPI.B	#0x07,D0
00023f10 67 16                    |g       |		BEQ	0x23f28
00023f12 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023f16 4e ba da 98              |N       |		JSR	0x219b0
00023f1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f1c 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00023f20 3c 42                    |<B      |		MOVEA.W	D2,A6
00023f22 4e f9 00 02 52 94        |N   R   |		JMP	0x25294
00023f28 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00023f2c 4e 5e                    |N^      |		UNLK	A6
00023f2e 4e 75                    |Nu      |		RTS
00023f30 ; --------------------------------------------------------------------------------------
00023f30 ; OMSI PASCAL Function
00023f30 ; --------------------------------------------------------------------------------------
00023f30 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
00023f34 bf d5                    |        |		CMPA.L	(A5),A7
00023f36 62 06                    |b       |		BHI	0x23f3e
00023f38 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f3c 4e 76                    |Nv      |		TRAPV
00023f3e de fc 00 08              |        |		ADDA.W	#0x8,A7
00023f42 48 78 00 c8              |Hx      |		PEA.L	0xc8
00023f46 4e ba e9 30              |N  0    |		JSR	0x22878
00023f4a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f4c 4e 5e                    |N^      |		UNLK	A6
00023f4e 4e 75                    |Nu      |		RTS
00023f50 ; --------------------------------------------------------------------------------------
00023f50 ; OMSI PASCAL Function
00023f50 ;    <LVAR  0x008 4(r)>
00023f50 ;    <LVAR -0x00c @ 4(r)>
00023f50 ; --------------------------------------------------------------------------------------
00023f50 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
00023f54 bf d5                    |        |		CMPA.L	(A5),A7
00023f56 62 06                    |b       |		BHI	0x23f5e
00023f58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f5c 4e 76                    |Nv      |		TRAPV
00023f5e de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00023f62 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00023f66 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00023f6a 48 51                    |HQ      |		PEA.L	(A1)
00023f6c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023f72 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023f76 4e ba de 86              |N       |		JSR	0x21dfe
00023f7a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f7c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023f7e be 97                    |        |		CMP.L	(A7),D7
00023f80 6e 6a                    |nj      |		BGT	0x23fec
00023f82 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f84 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023f88 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023f8a 4e ba e7 fc              |N       |		JSR	0x22788
00023f8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f90 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00023f92 6d 20                    |m       |		BLT	0x23fb4
00023f94 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
00023f9a 6e 18                    |n       |		BGT	0x23fb4
00023f9c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023f9e 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
00023fa4 63 02                    |c       |		BLS	0x23fa8
00023fa6 4e 4f                    |NO      |		TRAP	#15
00023fa8 1f 06                    |        |		MOVE.B	D6,-(A7)
00023faa 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00023fb0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023fb2 60 34                    |`4      |		BRA	0x23fe8
00023fb4 48 51                    |HQ      |		PEA.L	(A1)
00023fb6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023fbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023fbe 41 fa d6 c4              |A       |		LEA.L	0x21684,A0
00023fc2 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023fc4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023fc6 51 c8 ff fc              |Q       |		DBF	D0,0x23fc4
00023fca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023fcc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023fd0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023fd4 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00023fd8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023fde 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fe0 4e ba da 10              |N       |		JSR	0x219f2
00023fe4 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023fe8 52 87                    |R       |		ADDQ.L	#0x1,D7
00023fea 68 92                    |h       |		BVC	0x23f7e
00023fec 2e 91                    |.       |		MOVE.L	(A1),(A7)
00023fee 4e ba e7 cc              |N       |		JSR	0x227bc
00023ff2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ff4 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00023ff8 4e 5e                    |N^      |		UNLK	A6
00023ffa 4e 75                    |Nu      |		RTS
00023ffc ; --------------------------------------------------------------------------------------
00023ffc ; OMSI PASCAL Function
00023ffc ;    <LVAR  0x00c 1(rw)>
00023ffc ;    <LVAR  0x008 4(r)>
00023ffc ; --------------------------------------------------------------------------------------
00023ffc 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00024000 bf d5                    |        |		CMPA.L	(A5),A7
00024002 62 06                    |b       |		BHI	0x2400a
00024004 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024008 4e 76                    |Nv      |		TRAPV
0002400a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002400e 48 e7 e7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024012 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
00024016 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002401a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002401c 70 00                    |p       |		MOVEQ.L	#0x00,D0
0002401e 52 40                    |R@      |		ADDQ.W	#0x1,D0
00024020 1c 00                    |        |		MOVE.B	D0,D6
00024022 0c 06 00 2b              |   +    |		CMPI.B	#0x2b,D6
00024026 6e 00 00 82              |n       |		BGT	0x240aa
0002402a 41 fa d8 b2              |A       |		LEA.L	0x218de,A0
0002402e 10 06                    |        |		MOVE.B	D6,D0
00024030 48 80                    |H       |		EXTB.W	D0
00024032 48 c0                    |H       |		EXTW.L	D0
00024034 e2 98                    |        |		ROR.L	#0x1,D0
00024036 d0 c0                    |        |		ADDA.W	D0,A0
00024038 48 40                    |H@      |		SWAP.W	D0
0002403a e7 58                    | X      |		ROL.W	#0x3,D0
0002403c 42 81                    |B       |		CLR.L	D1
0002403e 12 10                    |        |		MOVE.B	(A0),D1
00024040 e1 29                    | )      |		LSL.B	D0,D1
00024042 e8 09                    |        |		LSR.B	#0x4,D1
00024044 2a 01                    |*       |		MOVE.L	D1,D5
00024046 20 57                    | W      |		MOVEA.L	(A7),A0
00024048 30 10                    |0       |		MOVE.W	(A0),D0
0002404a 48 c0                    |H       |		EXTW.L	D0
0002404c ba 80                    |        |		CMP.L	D0,D5
0002404e 66 54                    |fT      |		BNE	0x240a4
00024050 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024052 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024054 be 97                    |        |		CMP.L	(A7),D7
00024056 6e 42                    |nB      |		BGT	0x2409a
00024058 10 06                    |        |		MOVE.B	D6,D0
0002405a 48 80                    |H       |		EXTB.W	D0
0002405c c1 fc 00 0a              |        |		MULS.W	#0xa,D0
00024060 22 07                    |"       |		MOVE.L	D7,D1
00024062 53 81                    |S       |		SUBQ.L	#0x1,D1
00024064 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
0002406a 63 02                    |c       |		BLS	0x2406e
0002406c 4e 4f                    |NO      |		TRAP	#15
0002406e 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00024072 43 fa d6 b2              |C       |		LEA.L	COMMAND_TABLE_21726,A1
00024076 24 07                    |$       |		MOVE.L	D7,D2
00024078 53 82                    |S       |		SUBQ.L	#0x1,D2
0002407a 0c 82 00 00 00 09        |        |		CMPI.L	#0x00000009,D2
00024080 63 02                    |c       |		BLS	0x24084
00024082 4e 4f                    |NO      |		TRAP	#15
00024084 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
00024088 10 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D0
0002408c b0 31 28 00              | 1(     |		CMP.B	(A1+D2.L),D0
00024090 67 04                    |g       |		BEQ	0x24096
00024092 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024094 60 0e                    |`       |		BRA	0x240a4
00024096 52 87                    |R       |		ADDQ.L	#0x1,D7
00024098 68 ba                    |h       |		BVC	0x24054
0002409a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002409c 1d 46 00 0c              | F      |		MOVE.B	D6,(A6+0xc)
000240a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000240a2 60 08                    |`       |		BRA	0x240ac
000240a4 52 06                    |R       |		ADDQ.B	#0x1,D6
000240a6 68 00 ff 7a              |h  z    |		BVC	0x24022
000240aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000240ac 4c df 03 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1
000240b0 4e 5e                    |N^      |		UNLK	A6
000240b2 4e 75                    |Nu      |		RTS
000240b4 ; --------------------------------------------------------------------------------------
000240b4 ; OMSI PASCAL Function
000240b4 ;    <LVAR  0x00c 4(r)>
000240b4 ;    <LVAR  0x008 4(r)>
000240b4 ;    <LVAR -0x002 @ 1(r)>
000240b4 ;    <LVAR -0x006 @ 4(w)>
000240b4 ;    <LVAR -0x008 @ 1(r)>
000240b4 ;    <LVAR -0x00c @ 4(r)>
000240b4 ;    <LVAR -0x010 @ 4(rw)>
000240b4 ; --------------------------------------------------------------------------------------
000240b4 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
000240b8 bf d5                    |        |		CMPA.L	(A5),A7
000240ba 62 06                    |b       |		BHI	0x240c2
000240bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000240c0 4e 76                    |Nv      |		TRAPV
000240c2 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000240c6 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000240ca 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
000240ce 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
000240d2 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
000240d6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000240d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240da 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000240de 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000240e4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000240e6 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000240e8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000240ea 1f 3c 00 2e              | < .    |		MOVE.B	#0x2e,-(A7)
000240ee 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000240f4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000240f6 41 f9 00 02 65 2a        |A   e*  |		LEA.L	0x2652a,A0
000240fc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000240fe 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024100 51 c8 ff fc              |Q       |		DBF	D0,0x240fe
00024104 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024106 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024108 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002410a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002410e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024110 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00024114 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002411a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002411c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024122 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024124 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024126 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024128 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002412a 42 27                    |B'      |		CLR.B	-(A7)
0002412c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002412e 48 78 00 00              |Hx      |		PEA.L	0x0
00024132 48 53                    |HS      |		PEA.L	(A3)
00024134 48 54                    |HT      |		PEA.L	(A4)
00024136 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002413c de fc 00 14              |        |		ADDA.W	#0x14,A7
00024140 4a 13                    |J       |		TST.B	(A3)
00024142 67 4a                    |gJ      |		BEQ	0x2418e
00024144 48 52                    |HR      |		PEA.L	(A2)
00024146 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002414c 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00024150 4e ba d8 5e              |N  ^    |		JSR	0x219b0
00024154 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00024158 20 4f                    | O      |		MOVEA.L	A7,A0
0002415a 43 fa d5 28              |C  (    |		LEA.L	0x21684,A1
0002415e 70 18                    |p       |		MOVEQ.L	#0x18,D0
00024160 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024162 51 c8 ff fc              |Q       |		DBF	D0,0x24160
00024166 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024168 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002416c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002416e 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00024172 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024178 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002417a 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
0002417e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024184 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024186 4e ba d8 6a              |N  j    |		JSR	0x219f2
0002418a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002418e 2d 79 00 02 65 18 ff fa  |-y  e   |		MOVE.L	0x26518,(A6-0x6)
00024196 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024198 48 52                    |HR      |		PEA.L	(A2)
0002419a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002419e 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
000241a4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000241a8 20 52                    | R      |		MOVEA.L	(A2),A0
000241aa 4a 50                    |JP      |		TST.W	(A0)
000241ac 67 14                    |g       |		BEQ	0x241c2
000241ae 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000241b0 4e ba da 98              |N       |		JSR	0x21c4a
000241b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000241b6 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000241ba 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000241bc 4e ba de 12              |N       |		JSR	0x21fd0
000241c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000241c2 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
000241c6 67 ce                    |g       |		BEQ	0x24196
000241c8 42 27                    |B'      |		CLR.B	-(A7)
000241ca 1f 01                    |        |		MOVE.B	D1,-(A7)
000241cc 48 78 00 01              |Hx      |		PEA.L	0x1
000241d0 48 53                    |HS      |		PEA.L	(A3)
000241d2 48 54                    |HT      |		PEA.L	(A4)
000241d4 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000241da de fc 00 10              |        |		ADDA.W	#0x10,A7
000241de 48 52                    |HR      |		PEA.L	(A2)
000241e0 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000241e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000241e8 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000241ec 4e 5e                    |N^      |		UNLK	A6
000241ee 4e 75                    |Nu      |		RTS
000241f0 ; --------------------------------------------------------------------------------------
000241f0 ; OMSI PASCAL Function
000241f0 ;    <LVAR  0x014 1(w)>
000241f0 ;    <LVAR  0x00c 4(r)>
000241f0 ;    <LVAR  0x008 4(r)>
000241f0 ; --------------------------------------------------------------------------------------
000241f0 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
000241f4 bf d5                    |        |		CMPA.L	(A5),A7
000241f6 62 06                    |b       |		BHI	0x241fe
000241f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000241fc 4e 76                    |Nv      |		TRAPV
000241fe de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024202 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00024206 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
0002420a d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
0002420e 53 80                    |S       |		SUBQ.L	#0x1,D0
00024210 53 80                    |S       |		SUBQ.L	#0x1,D0
00024212 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00024218 63 02                    |c       |		BLS	0x2421c
0002421a 4e 4f                    |NO      |		TRAP	#15
0002421c 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00024222 1d 70 08 08 00 14        | p      |		MOVE.B	(A0+D0.L+#0x8),(A6+0x14)
00024228 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002422c 4e 5e                    |N^      |		UNLK	A6
0002422e 4e 75                    |Nu      |		RTS
00024230 ; --------------------------------------------------------------------------------------
00024230 ; OMSI PASCAL Function
00024230 ;    <LVAR  0x010 4(w)>
00024230 ;    <LVAR  0x00c 4(r)>
00024230 ;    <LVAR  0x008 4(r)>
00024230 ;    <LVAR -0x004 @ 1(r)>
00024230 ;    <LVAR -0x008 @ 4(r)>
00024230 ; --------------------------------------------------------------------------------------
00024230 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00024234 bf d5                    |        |		CMPA.L	(A5),A7
00024236 62 06                    |b       |		BHI	0x2423e
00024238 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002423c 4e 76                    |Nv      |		TRAPV
0002423e de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00024242 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00024246 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024248 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002424c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024250 4e ba e4 4c              |N  L    |		JSR	0x2269e
00024254 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024256 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002425a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002425e 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
00024264 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024268 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
0002426c 66 30                    |f0      |		BNE	0x2429e
0002426e 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00024272 20 4f                    | O      |		MOVEA.L	A7,A0
00024274 43 fa d4 28              |C  (    |		LEA.L	0x2169e,A1
00024278 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002427a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002427c 51 c8 ff fc              |Q       |		DBF	D0,0x2427a
00024280 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024282 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024286 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002428a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002428e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024294 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024296 4e ba d7 5a              |N  Z    |		JSR	0x219f2
0002429a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002429e 2d 6e ff f8 00 10        |-n      |		MOVE.L	(A6-0x8),(A6+0x10)
000242a4 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000242a8 4e 5e                    |N^      |		UNLK	A6
000242aa 4e 75                    |Nu      |		RTS
000242ac ; --------------------------------------------------------------------------------------
000242ac ; OMSI PASCAL Function
000242ac ;    <LVAR  0x014 4(r)>
000242ac ;    <LVAR  0x010 4(r)>
000242ac ;    <LVAR  0x00c 4(r)>
000242ac ;    <LVAR  0x008 4(r)>
000242ac ;    <LVAR -0x00c 4(rw)>
000242ac ;    <LVAR -0x010 4(rw)>
000242ac ;    <LVAR -0x014 4(rw)>
000242ac ;    <LVAR -0x018 4(w)>
000242ac ;    <LVAR -0x020 4(rw)>
000242ac ; --------------------------------------------------------------------------------------
000242ac 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
000242b0 bf d5                    |        |		CMPA.L	(A5),A7
000242b2 62 06                    |b       |		BHI	0x242ba
000242b4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000242b8 4e 76                    |Nv      |		TRAPV
000242ba de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
000242be 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000242c2 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
000242c6 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
000242ca 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
000242ce 49 ee ff ec              |I       |		LEA.L	(A6-0x14),A4
000242d2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000242d4 22 ae 00 14              |"       |		MOVE.L	(A6+0x14),(A1)
000242d8 20 39 00 02 65 18        | 9  e   |		MOVE.L	0x26518,D0
000242de 90 ae 00 14              |        |		SUB.L	(A6+0x14),D0
000242e2 28 80                    |(       |		MOVE.L	D0,(A4)
000242e4 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000242e8 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
000242ec ba 97                    |        |		CMP.L	(A7),D5
000242ee 6e 2c                    |n,      |		BGT	0x2431c
000242f0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000242f2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000242f6 2f 05                    |/       |		MOVE.L	D5,-(A7)
000242f8 4e ba e3 42              |N  B    |		JSR	0x2263c
000242fc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000242fe 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024300 26 97                    |&       |		MOVE.L	(A7),(A3)
00024302 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024304 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024306 4e ba e2 fc              |N       |		JSR	0x22604
0002430a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002430c 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0002430e de 86                    |        |		ADD.L	D6,D7
00024310 ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
00024314 6c 02                    |l       |		BGE	0x24318
00024316 52 87                    |R       |		ADDQ.L	#0x1,D7
00024318 52 85                    |R       |		ADDQ.L	#0x1,D5
0002431a 68 d0                    |h       |		BVC	0x242ec
0002431c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002431e 20 11                    |        |		MOVE.L	(A1),D0
00024320 d0 94                    |        |		ADD.L	(A4),D0
00024322 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00024326 be 94                    |        |		CMP.L	(A4),D7
00024328 67 0c                    |g       |		BEQ	0x24336
0002432a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002432c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002432e 9f 97                    |        |		SUB.L	D7,(A7)
00024330 4e ba dc 14              |N       |		JSR	0x21f46
00024334 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024336 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002433a 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
0002433e ba 97                    |        |		CMP.L	(A7),D5
00024340 6e 00 00 88              |n       |		BGT	0x243ca
00024344 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024346 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002434a 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002434c 4e ba e2 ee              |N       |		JSR	0x2263c
00024350 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024352 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024354 26 97                    |&       |		MOVE.L	(A7),(A3)
00024356 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024358 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002435a 4e ba e2 a8              |N       |		JSR	0x22604
0002435e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024360 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024362 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024364 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024366 b0 97                    |        |		CMP.L	(A7),D0
00024368 6e 30                    |n0      |		BGT	0x2439a
0002436a 22 11                    |"       |		MOVE.L	(A1),D1
0002436c d2 80                    |        |		ADD.L	D0,D1
0002436e 53 81                    |S       |		SUBQ.L	#0x1,D1
00024370 53 81                    |S       |		SUBQ.L	#0x1,D1
00024372 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
00024378 63 02                    |c       |		BLS	0x2437c
0002437a 4e 4f                    |NO      |		TRAP	#15
0002437c 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00024382 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024384 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024386 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024388 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002438a 4e ba fe 64              |N  d    |		JSR	0x241f0
0002438e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024392 11 9f 18 08              |        |		MOVE.B	(A7)+,(A0+D1.L+#0x8)
00024396 52 80                    |R       |		ADDQ.L	#0x1,D0
00024398 68 cc                    |h       |		BVC	0x24366
0002439a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002439c ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
000243a0 6c 22                    |l"      |		BGE	0x243c4
000243a2 20 11                    |        |		MOVE.L	(A1),D0
000243a4 d0 86                    |        |		ADD.L	D6,D0
000243a6 22 00                    |"       |		MOVE.L	D0,D1
000243a8 53 81                    |S       |		SUBQ.L	#0x1,D1
000243aa 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000243b0 63 02                    |c       |		BLS	0x243b4
000243b2 4e 4f                    |NO      |		TRAP	#15
000243b4 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
000243ba 11 bc 00 2c 18 08        |   ,    |		MOVE.B	#0x2c,(A0+D1.L+#0x8)
000243c0 52 80                    |R       |		ADDQ.L	#0x1,D0
000243c2 22 80                    |"       |		MOVE.L	D0,(A1)
000243c4 52 85                    |R       |		ADDQ.L	#0x1,D5
000243c6 68 00 ff 76              |h  v    |		BVC	0x2433e
000243ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243cc 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
000243d0 4e 5e                    |N^      |		UNLK	A6
000243d2 4e 75                    |Nu      |		RTS
000243d4 ; --------------------------------------------------------------------------------------
000243d4 ; OMSI PASCAL Function
000243d4 ;    <LVAR  0x018 4(rw)>
000243d4 ;    <LVAR  0x014 4(r)>
000243d4 ;    <LVAR  0x010 4(r)>
000243d4 ;    <LVAR  0x00c 4(r)>
000243d4 ;    <LVAR  0x008 4(r)>
000243d4 ;    <LVAR -0x008 4(rw)>
000243d4 ;    <LVAR -0x00c 4(rw)>
000243d4 ;    <LVAR -0x018 4(w)>
000243d4 ; --------------------------------------------------------------------------------------
000243d4 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
000243d8 bf d5                    |        |		CMPA.L	(A5),A7
000243da 62 06                    |b       |		BHI	0x243e2
000243dc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000243e0 4e 76                    |Nv      |		TRAPV
000243e2 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000243e6 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000243ea 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000243ee 43 ee 00 14              |C       |		LEA.L	(A6+0x14),A1
000243f2 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
000243f6 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
000243fa 49 fa fd f4              |I       |		LEA.L	0x241f0,A4
000243fe 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024400 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024402 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024404 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024406 4e ba e1 fc              |N       |		JSR	0x22604
0002440a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002440c 26 97                    |&       |		MOVE.L	(A7),(A3)
0002440e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024412 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024416 4e ba e1 ec              |N       |		JSR	0x22604
0002441a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002441c 20 9f                    |        |		MOVE.L	(A7)+,(A0)
0002441e 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00024420 20 13                    |        |		MOVE.L	(A3),D0
00024422 90 90                    |        |		SUB.L	(A0),D0
00024424 52 80                    |R       |		ADDQ.L	#0x1,D0
00024426 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024428 70 01                    |p       |		MOVEQ.L	#0x01,D0
0002442a b0 97                    |        |		CMP.L	(A7),D0
0002442c 6e 00 00 8e              |n       |		BGT	0x244bc
00024430 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00024434 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024436 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00024438 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002443a 7a 01                    |z       |		MOVEQ.L	#0x01,D5
0002443c ba 97                    |        |		CMP.L	(A7),D5
0002443e 6e 42                    |nB      |		BGT	0x24482
00024440 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
00024446 66 04                    |f       |		BNE	0x2444c
00024448 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
0002444a 60 14                    |`       |		BRA	0x24460
0002444c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002444e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024452 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024456 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024458 53 97                    |S       |		SUBQ.L	#0x1,(A7)
0002445a 4e 94                    |N       |		JSR	(A4)
0002445c de c1                    |        |		ADDA.W	D1,A7
0002445e 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024460 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024462 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024464 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024466 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
0002446a d0 85                    |        |		ADD.L	D5,D0
0002446c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002446e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024470 4e 94                    |N       |		JSR	(A4)
00024472 de c1                    |        |		ADDA.W	D1,A7
00024474 be 1f                    |        |		CMP.B	(A7)+,D7
00024476 67 04                    |g       |		BEQ	0x2447c
00024478 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002447a 60 08                    |`       |		BRA	0x24484
0002447c 2c 05                    |,       |		MOVE.L	D5,D6
0002447e 52 85                    |R       |		ADDQ.L	#0x1,D5
00024480 68 ba                    |h       |		BVC	0x2443c
00024482 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024484 bc 90                    |        |		CMP.L	(A0),D6
00024486 66 2c                    |f,      |		BNE	0x244b4
00024488 20 17                    |        |		MOVE.L	(A7),D0
0002448a 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
0002448e d0 90                    |        |		ADD.L	(A0),D0
00024490 b0 93                    |        |		CMP.L	(A3),D0
00024492 6d 02                    |m       |		BLT	0x24496
00024494 60 1a                    |`       |		BRA	0x244b0
00024496 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024498 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002449a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002449c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002449e 4e 94                    |N       |		JSR	(A4)
000244a0 de c1                    |        |		ADDA.W	D1,A7
000244a2 1e 1f                    |        |		MOVE.B	(A7)+,D7
000244a4 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
000244a8 67 06                    |g       |		BEQ	0x244b0
000244aa 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
000244ae 66 04                    |f       |		BNE	0x244b4
000244b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244b2 60 0e                    |`       |		BRA	0x244c2
000244b4 20 1f                    |        |		MOVE.L	(A7)+,D0
000244b6 52 80                    |R       |		ADDQ.L	#0x1,D0
000244b8 68 00 ff 70              |h  p    |		BVC	0x2442a
000244bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244be 42 ae 00 18              |B       |		CLR.L	(A6+0x18)
000244c2 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
000244c6 4e 5e                    |N^      |		UNLK	A6
000244c8 4e 75                    |Nu      |		RTS
000244ca ; --------------------------------------------------------------------------------------
000244ca ; OMSI PASCAL Function
000244ca ;    <LVAR  0x018 4(r)>
000244ca ;    <LVAR  0x014 4(r)>
000244ca ;    <LVAR  0x010 4(r)>
000244ca ;    <LVAR  0x00c 4(r)>
000244ca ;    <LVAR  0x008 4(r)>
000244ca ; --------------------------------------------------------------------------------------
000244ca 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000244ce bf d5                    |        |		CMPA.L	(A5),A7
000244d0 62 06                    |b       |		BHI	0x244d8
000244d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000244d6 4e 76                    |Nv      |		TRAPV
000244d8 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
000244dc 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
000244e0 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
000244e4 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
000244e8 72 2f                    |r/      |		MOVEQ.L	#0x2f,D1
000244ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244ec 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000244ee 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000244f0 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000244f4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000244f8 4e ba fe da              |N       |		JSR	0x243d4
000244fc de fc 00 10              |        |		ADDA.W	#0x10,A7
00024500 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00024502 6f 52                    |oR      |		BLE	0x24556
00024504 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00024508 1f 01                    |        |		MOVE.B	D1,-(A7)
0002450a 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024510 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024512 20 05                    |        |		MOVE.L	D5,D0
00024514 52 80                    |R       |		ADDQ.L	#0x1,D0
00024516 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024518 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002451a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002451c 4e ba e0 e6              |N       |		JSR	0x22604
00024520 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024522 2c 00                    |,       |		MOVE.L	D0,D6
00024524 bc 97                    |        |		CMP.L	(A7),D6
00024526 6e 2c                    |n,      |		BGT	0x24554
00024528 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002452a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002452c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002452e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024530 4e ba fc be              |N       |		JSR	0x241f0
00024534 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024538 1e 1f                    |        |		MOVE.B	(A7)+,D7
0002453a be 01                    |        |		CMP.B	D1,D7
0002453c 66 04                    |f       |		BNE	0x24542
0002453e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024540 60 14                    |`       |		BRA	0x24556
00024542 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00024546 1f 07                    |        |		MOVE.B	D7,-(A7)
00024548 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002454e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024550 52 86                    |R       |		ADDQ.L	#0x1,D6
00024552 68 d0                    |h       |		BVC	0x24524
00024554 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024556 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
0002455a 4e 5e                    |N^      |		UNLK	A6
0002455c 4e 75                    |Nu      |		RTS
0002455e ; --------------------------------------------------------------------------------------
0002455e ; OMSI PASCAL Function
0002455e ;    <LVAR  0x018 4(r)>
0002455e ;    <LVAR  0x014 4(r)>
0002455e ;    <LVAR  0x010 4(r)>
0002455e ;    <LVAR  0x00c 4(r)>
0002455e ;    <LVAR  0x008 4(r)>
0002455e ;    <LVAR -0x006 4(rw)>
0002455e ;    <LVAR -0x014 4(rw)>
0002455e ; --------------------------------------------------------------------------------------
0002455e 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00024562 bf d5                    |        |		CMPA.L	(A5),A7
00024564 62 06                    |b       |		BHI	0x2456c
00024566 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002456a 4e 76                    |Nv      |		TRAPV
0002456c de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00024570 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00024574 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
00024578 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
0002457c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00024580 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024582 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024584 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024586 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024588 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002458c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024590 4e ba fe 42              |N  B    |		JSR	0x243d4
00024594 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024598 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
0002459c 6f 6e                    |on      |		BLE	0x2460c
0002459e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245a0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000245a2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000245a4 4e ba e0 5e              |N  ^    |		JSR	0x22604
000245a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245aa 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000245ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000245ae 2a 2e ff ec              |*.      |		MOVE.L	(A6-0x14),D5
000245b2 ba 97                    |        |		CMP.L	(A7),D5
000245b4 6e 54                    |nT      |		BGT	0x2460a
000245b6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000245b8 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000245ba 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000245bc 2f 05                    |/       |		MOVE.L	D5,-(A7)
000245be 4e ba fc 30              |N  0    |		JSR	0x241f0
000245c2 de c1                    |        |		ADDA.W	D1,A7
000245c4 10 1f                    |        |		MOVE.B	(A7)+,D0
000245c6 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
000245ca 66 3a                    |f:      |		BNE	0x24606
000245cc 20 05                    |        |		MOVE.L	D5,D0
000245ce 52 80                    |R       |		ADDQ.L	#0x1,D0
000245d0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000245d2 2c 00                    |,       |		MOVE.L	D0,D6
000245d4 bc 97                    |        |		CMP.L	(A7),D6
000245d6 6e 2c                    |n,      |		BGT	0x24604
000245d8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000245da 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000245dc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000245de 2f 06                    |/       |		MOVE.L	D6,-(A7)
000245e0 4e ba fc 0e              |N       |		JSR	0x241f0
000245e4 de c1                    |        |		ADDA.W	D1,A7
000245e6 1e 1f                    |        |		MOVE.B	(A7)+,D7
000245e8 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
000245ec 66 04                    |f       |		BNE	0x245f2
000245ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245f0 60 1a                    |`       |		BRA	0x2460c
000245f2 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
000245f6 1f 07                    |        |		MOVE.B	D7,-(A7)
000245f8 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000245fe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024600 52 86                    |R       |		ADDQ.L	#0x1,D6
00024602 68 d0                    |h       |		BVC	0x245d4
00024604 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024606 52 85                    |R       |		ADDQ.L	#0x1,D5
00024608 68 a8                    |h       |		BVC	0x245b2
0002460a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002460c 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00024610 4e 5e                    |N^      |		UNLK	A6
00024612 4e 75                    |Nu      |		RTS
00024614 ; --------------------------------------------------------------------------------------
00024614 ; OMSI PASCAL Function
00024614 ;    <LVAR  0x010 4(r)>
00024614 ;    <LVAR  0x00c 4(r)>
00024614 ;    <LVAR  0x008 4(r)>
00024614 ; --------------------------------------------------------------------------------------
00024614 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00024618 bf d5                    |        |		CMPA.L	(A5),A7
0002461a 62 06                    |b       |		BHI	0x24622
0002461c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024620 4e 76                    |Nv      |		TRAPV
00024622 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00024626 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
0002462a 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
0002462e 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00024632 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024634 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024636 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024638 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002463a 4e ba df c8              |N       |		JSR	0x22604
0002463e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024640 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00024642 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024644 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00024646 bc 97                    |        |		CMP.L	(A7),D6
00024648 6e 46                    |nF      |		BGT	0x24690
0002464a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002464c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002464e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024650 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024652 4e ba fb 9c              |N       |		JSR	0x241f0
00024656 de c1                    |        |		ADDA.W	D1,A7
00024658 10 1f                    |        |		MOVE.B	(A7)+,D0
0002465a 0c 00 00 2f              |   /    |		CMPI.B	#0x2f,D0
0002465e 66 2c                    |f,      |		BNE	0x2468c
00024660 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024662 2e 06                    |.       |		MOVE.L	D6,D7
00024664 be 97                    |        |		CMP.L	(A7),D7
00024666 6e 1e                    |n       |		BGT	0x24686
00024668 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002466c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002466e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024670 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024672 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024674 4e ba fb 7a              |N  z    |		JSR	0x241f0
00024678 de c1                    |        |		ADDA.W	D1,A7
0002467a 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024680 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024682 52 87                    |R       |		ADDQ.L	#0x1,D7
00024684 68 de                    |h       |		BVC	0x24664
00024686 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024688 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002468a 60 06                    |`       |		BRA	0x24692
0002468c 52 86                    |R       |		ADDQ.L	#0x1,D6
0002468e 68 b6                    |h       |		BVC	0x24646
00024690 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024692 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
00024696 4e 5e                    |N^      |		UNLK	A6
00024698 4e 75                    |Nu      |		RTS
0002469a ; --------------------------------------------------------------------------------------
0002469a ; OMSI PASCAL Function
0002469a ;    <LVAR  0x010 4(r)>
0002469a ;    <LVAR  0x00c 4(r)>
0002469a ;    <LVAR  0x008 4(r)>
0002469a ; --------------------------------------------------------------------------------------
0002469a 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
0002469e bf d5                    |        |		CMPA.L	(A5),A7
000246a0 62 06                    |b       |		BHI	0x246a8
000246a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000246a6 4e 76                    |Nv      |		TRAPV
000246a8 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000246ac 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
000246b0 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000246b4 42 50                    |BP      |		CLR.W	(A0)
000246b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000246b8 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000246bc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000246c0 4e ba df 42              |N  B    |		JSR	0x22604
000246c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246c6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000246c8 be 97                    |        |		CMP.L	(A7),D7
000246ca 6e 34                    |n4      |		BGT	0x24700
000246cc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000246ce 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000246d2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000246d6 2f 07                    |/       |		MOVE.L	D7,-(A7)
000246d8 4e ba fb 16              |N       |		JSR	0x241f0
000246dc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000246e0 1c 1f                    |        |		MOVE.B	(A7)+,D6
000246e2 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
000246e6 67 10                    |g       |		BEQ	0x246f8
000246e8 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000246ec 1f 06                    |        |		MOVE.B	D6,-(A7)
000246ee 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000246f4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000246f6 60 04                    |`       |		BRA	0x246fc
000246f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000246fa 60 06                    |`       |		BRA	0x24702
000246fc 52 87                    |R       |		ADDQ.L	#0x1,D7
000246fe 68 c8                    |h       |		BVC	0x246c8
00024700 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024702 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00024706 4e 5e                    |N^      |		UNLK	A6
00024708 4e 75                    |Nu      |		RTS
0002470a ; --------------------------------------------------------------------------------------
0002470a ; OMSI PASCAL Function
0002470a ; --------------------------------------------------------------------------------------
0002470a 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
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 3a              |   :    |		ADDA.W	#0x3a,A7
0002471c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00024720 41 fa cf b6              |A       |		LEA.L	0x216d8,A0
00024724 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024726 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024728 51 c8 ff fc              |Q       |		DBF	D0,0x24726
0002472c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002472e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024732 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024736 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
0002473a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024740 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024742 4e ba d2 ae              |N       |		JSR	0x219f2
00024746 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002474a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002474e 4e 5e                    |N^      |		UNLK	A6
00024750 4e 75                    |Nu      |		RTS
00024752 ; --------------------------------------------------------------------------------------
00024752 ; OMSI PASCAL Function
00024752 ;    <LVAR  0x00c 4(r)>
00024752 ;    <LVAR  0x008 4(r)>
00024752 ;    <LVAR -0x006 4(rw)>
00024752 ; --------------------------------------------------------------------------------------
00024752 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00024756 bf d5                    |        |		CMPA.L	(A5),A7
00024758 62 06                    |b       |		BHI	0x24760
0002475a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002475e 4e 76                    |Nv      |		TRAPV
00024760 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00024764 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024768 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
0002476c 45 f9 00 02 65 18        |E   e   |		LEA.L	0x26518,A2
00024772 47 fa d3 1a              |G       |		LEA.L	0x21a8e,A3
00024776 72 30                    |r0      |		MOVEQ.L	#0x30,D1
00024778 74 39                    |t9      |		MOVEQ.L	#0x39,D2
0002477a 76 25                    |v%      |		MOVEQ.L	#0x25,D3
0002477c 78 2d                    |x-      |		MOVEQ.L	#0x2d,D4
0002477e 2d 52 ff fa              |-R      |		MOVE.L	(A2),(A6-0x6)
00024782 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024784 4e 93                    |N       |		JSR	(A3)
00024786 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024788 be 03                    |        |		CMP.B	D3,D7
0002478a 66 08                    |f       |		BNE	0x24794
0002478c 20 51                    | Q      |		MOVEA.L	(A1),A0
0002478e 42 90                    |B       |		CLR.L	(A0)
00024790 60 00 00 e2              |`       |		BRA	0x24874
00024794 be 04                    |        |		CMP.B	D4,D7
00024796 66 0c                    |f       |		BNE	0x247a4
00024798 20 51                    | Q      |		MOVEA.L	(A1),A0
0002479a 20 bc 00 00 00 01        |        |		MOVE.L	#0x1,(A0)
000247a0 60 00 00 d2              |`       |		BRA	0x24874
000247a4 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
000247a8 66 0c                    |f       |		BNE	0x247b6
000247aa 20 51                    | Q      |		MOVEA.L	(A1),A0
000247ac 20 bc 00 00 00 04        |        |		MOVE.L	#0x4,(A0)
000247b2 60 00 00 c0              |`       |		BRA	0x24874
000247b6 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
000247ba 66 0c                    |f       |		BNE	0x247c8
000247bc 20 51                    | Q      |		MOVEA.L	(A1),A0
000247be 20 bc 00 00 00 05        |        |		MOVE.L	#0x5,(A0)
000247c4 60 00 00 ae              |`       |		BRA	0x24874
000247c8 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
000247cc 66 0c                    |f       |		BNE	0x247da
000247ce 20 51                    | Q      |		MOVEA.L	(A1),A0
000247d0 20 bc 00 00 00 06        |        |		MOVE.L	#0x6,(A0)
000247d6 60 00 00 9c              |`       |		BRA	0x24874
000247da 4a 07                    |J       |		TST.B	D7
000247dc 66 2c                    |f,      |		BNE	0x2480a
000247de 41 fa cf 10              |A       |		LEA.L	0x216f0,A0
000247e2 70 05                    |p       |		MOVEQ.L	#0x05,D0
000247e4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000247e6 51 c8 ff fc              |Q       |		DBF	D0,0x247e4
000247ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000247ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000247f0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000247f4 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
000247f8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000247fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024800 4e ba d1 f0              |N       |		JSR	0x219f2
00024804 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024808 60 6a                    |`j      |		BRA	0x24874
0002480a be 01                    |        |		CMP.B	D1,D7
0002480c 65 2c                    |e,      |		BCS	0x2483a
0002480e be 02                    |        |		CMP.B	D2,D7
00024810 62 28                    |b(      |		BHI	0x2483a
00024812 20 51                    | Q      |		MOVEA.L	(A1),A0
00024814 20 bc 00 00 00 02        |        |		MOVE.L	#0x2,(A0)
0002481a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002481c 4e ba d2 32              |N  2    |		JSR	0x21a50
00024820 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024822 be 01                    |        |		CMP.B	D1,D7
00024824 65 0a                    |e       |		BCS	0x24830
00024826 be 02                    |        |		CMP.B	D2,D7
00024828 62 06                    |b       |		BHI	0x24830
0002482a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002482c 4e 93                    |N       |		JSR	(A3)
0002482e 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024830 be 01                    |        |		CMP.B	D1,D7
00024832 65 04                    |e       |		BCS	0x24838
00024834 be 02                    |        |		CMP.B	D2,D7
00024836 63 e2                    |c       |		BLS	0x2481a
00024838 60 3a                    |`:      |		BRA	0x24874
0002483a 20 51                    | Q      |		MOVEA.L	(A1),A0
0002483c 20 bc 00 00 00 03        |        |		MOVE.L	#0x3,(A0)
00024842 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00024844 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024846 4e ba d2 08              |N       |		JSR	0x21a50
0002484a 1e 1f                    |        |		MOVE.B	(A7)+,D7
0002484c be 03                    |        |		CMP.B	D3,D7
0002484e 67 16                    |g       |		BEQ	0x24866
00024850 be 04                    |        |		CMP.B	D4,D7
00024852 67 12                    |g       |		BEQ	0x24866
00024854 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024858 67 0c                    |g       |		BEQ	0x24866
0002485a 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
0002485e 67 06                    |g       |		BEQ	0x24866
00024860 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
00024864 66 04                    |f       |		BNE	0x2486a
00024866 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00024868 60 06                    |`       |		BRA	0x24870
0002486a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002486c 4e 93                    |N       |		JSR	(A3)
0002486e 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024870 4a 05                    |J       |		TST.B	D5
00024872 67 d0                    |g       |		BEQ	0x24844
00024874 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024878 20 ae ff fa              |        |		MOVE.L	(A6-0x6),(A0)
0002487c 21 52 00 04              |!R      |		MOVE.L	(A2),(A0+0x4)
00024880 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00024884 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00024888 4e 5e                    |N^      |		UNLK	A6
0002488a 4e 75                    |Nu      |		RTS
0002488c ; --------------------------------------------------------------------------------------
0002488c ; OMSI PASCAL Function
0002488c ;    <LVAR  0x00c 4(r)>
0002488c ;    <LVAR  0x008 4(r)>
0002488c ; --------------------------------------------------------------------------------------
0002488c 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00024890 bf d5                    |        |		CMPA.L	(A5),A7
00024892 62 06                    |b       |		BHI	0x2489a
00024894 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024898 4e 76                    |Nv      |		TRAPV
0002489a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002489e 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000248a2 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
000248a6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000248aa 2f 08                    |/       |		MOVE.L	A0,-(A7)
000248ac 2c 39 00 02 65 18        |,9  e   |		MOVE.L	0x26518,D6
000248b2 9c 92                    |        |		SUB.L	(A2),D6
000248b4 2a 12                    |*       |		MOVE.L	(A2),D5
000248b6 da 86                    |        |		ADD.L	D6,D5
000248b8 30 10                    |0       |		MOVE.W	(A0),D0
000248ba 48 c0                    |H       |		EXTW.L	D0
000248bc b0 86                    |        |		CMP.L	D6,D0
000248be 67 0c                    |g       |		BEQ	0x248cc
000248c0 2f 05                    |/       |		MOVE.L	D5,-(A7)
000248c2 2f 06                    |/       |		MOVE.L	D6,-(A7)
000248c4 91 97                    |        |		SUB.L	D0,(A7)
000248c6 4e ba d6 7e              |N  ~    |		JSR	0x21f46
000248ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248cc 2f 00                    |/       |		MOVE.L	D0,-(A7)
000248ce 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000248d0 be 97                    |        |		CMP.L	(A7),D7
000248d2 6e 34                    |n4      |		BGT	0x24908
000248d4 20 12                    |        |		MOVE.L	(A2),D0
000248d6 d0 87                    |        |		ADD.L	D7,D0
000248d8 53 80                    |S       |		SUBQ.L	#0x1,D0
000248da 53 80                    |S       |		SUBQ.L	#0x1,D0
000248dc 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000248e2 63 02                    |c       |		BLS	0x248e6
000248e4 4e 4f                    |NO      |		TRAP	#15
000248e6 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
000248ec 22 07                    |"       |		MOVE.L	D7,D1
000248ee 53 81                    |S       |		SUBQ.L	#0x1,D1
000248f0 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000248f6 63 02                    |c       |		BLS	0x248fa
000248f8 4e 4f                    |NO      |		TRAP	#15
000248fa 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
000248fe 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00024904 52 87                    |R       |		ADDQ.L	#0x1,D7
00024906 68 c8                    |h       |		BVC	0x248d0
00024908 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002490a 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
0002490e 4e 5e                    |N^      |		UNLK	A6
00024910 4e 75                    |Nu      |		RTS
00024912 ; --------------------------------------------------------------------------------------
00024912 ; OMSI PASCAL Function
00024912 ;    <LVAR  0x00c 4(r)>
00024912 ;    <LVAR  0x008 4(r)>
00024912 ;    <LVAR -0x008 @ 4(r)>
00024912 ;    <LVAR -0x00c @ 4(r)>
00024912 ;    <LVAR -0x010 4(r)>
00024912 ;    <LVAR -0x014 @ 4(r)>
00024912 ;    <LVAR -0x018 4(rw)>
00024912 ;    <LVAR -0x01c 4(rw)>
00024912 ;    <LVAR -0x020 4(rw)>
00024912 ;    <LVAR -0x024 4(rw)>
00024912 ;    <LVAR -0x028 4(rw)>
00024912 ;    <LVAR -0x034 4(rw)>
00024912 ; --------------------------------------------------------------------------------------
00024912 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00024916 bf d5                    |        |		CMPA.L	(A5),A7
00024918 62 06                    |b       |		BHI	0x24920
0002491a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002491e 4e 76                    |Nv      |		TRAPV
00024920 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00024924 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024928 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
0002492c 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00024930 47 ee ff dc              |G       |		LEA.L	(A6-0x24),A3
00024934 49 ee ff e0              |I       |		LEA.L	(A6-0x20),A4
00024938 74 14                    |t       |		MOVEQ.L	#0x14,D2
0002493a 2d 79 00 02 65 18 ff d8  |-y  e   |		MOVE.L	0x26518,(A6-0x28)
00024942 48 51                    |HQ      |		PEA.L	(A1)
00024944 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002494a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002494c 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00024950 48 52                    |HR      |		PEA.L	(A2)
00024952 4e ba fd fe              |N       |		JSR	0x24752
00024956 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024958 42 ae ff cc              |B       |		CLR.L	(A6-0x34)
0002495c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002495e 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00024962 b0 82                    |        |		CMP.L	D2,D0
00024964 63 02                    |c       |		BLS	0x24968
00024966 4e 4e                    |NN      |		TRAP	#14
00024968 d0 40                    | @      |		ADD.W	D0,D0
0002496a 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00024972 00 2a                    | *      |		.CONST	0x2a			; [0x0] -> 0x2499c
00024974 00 34                    | 4      |		.CONST	0x34			; [0x1] -> 0x249a6
00024976 00 48                    | H      |		.CONST	0x48			; [0x2] -> 0x249ba
00024978 00 64                    | d      |		.CONST	0x64			; [0x3] -> 0x249d6
0002497a 00 68                    | h      |		.CONST	0x68			; [0x4] -> 0x249da
0002497c 00 76                    | v      |		.CONST	0x76			; [0x5] -> 0x249e8
0002497e 00 8a                    |        |		.CONST	0x8a			; [0x6] -> 0x249fc
00024980 00 90                    |        |		.CONST	0x90			; [0x7] -> 0x24a02
00024982 00 92                    |        |		.CONST	0x92			; [0x8] -> 0x24a04
00024984 00 a8                    |        |		.CONST	0xa8			; [0x9] -> 0x24a1a
00024986 00 b6                    |        |		.CONST	0xb6			; [0xa] -> 0x24a28
00024988 00 ce                    |        |		.CONST	0xce			; [0xb] -> 0x24a40
0002498a 00 e2                    |        |		.CONST	0xe2			; [0xc] -> 0x24a54
0002498c 00 f6                    |        |		.CONST	0xf6			; [0xd] -> 0x24a68
0002498e 01 0c                    |        |		.CONST	0x10c			; [0xe] -> 0x24a7e
00024990 01 0e                    |        |		.CONST	0x10e			; [0xf] -> 0x24a80
00024992 01 28                    | (      |		.CONST	0x128			; [0x10] -> 0x24a9a
00024994 01 3e                    | >      |		.CONST	0x13e			; [0x11] -> 0x24ab0
00024996 01 4c                    | L      |		.CONST	0x14c			; [0x12] -> 0x24abe
00024998 01 4e                    | N      |		.CONST	0x14e			; [0x13] -> 0x24ac0
0002499a 01 50                    | P      |		.CONST	0x150			; [0x14] -> 0x24ac2
0002499c					switch@0x2496a[0x0]:
0002499c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002499e 2a 2e 00 08              |*.      |		MOVE.L	(A6+0x8),D5
000249a2 60 00 01 48              |`  H    |		BRA	0x24aec
000249a6					switch@0x2496a[0x1]:
000249a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249a8 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000249ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000249ae 4e ba f8 80              |N       |		JSR	0x24230
000249b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249b4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000249b6 60 00 01 34              |`  4    |		BRA	0x24aec
000249ba					switch@0x2496a[0x2]:
000249ba 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
000249be 2f 06                    |/       |		MOVE.L	D6,-(A7)
000249c0 2f 06                    |/       |		MOVE.L	D6,-(A7)
000249c2 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000249c6 4e ba f8 e4              |N       |		JSR	0x242ac
000249ca de fc 00 10              |        |		ADDA.W	#0x10,A7
000249ce 60 00 01 78              |`  x    |		BRA	0x24b48
000249d2 60 00 01 18              |`       |		.XXX[0x4]
000249d6					switch@0x2496a[0x3]:
000249d6 60 00 01 14              |`       |		BRA	0x24aec
000249da					switch@0x2496a[0x4]:
000249da 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
000249de 2f 06                    |/       |		MOVE.L	D6,-(A7)
000249e0 2f 05                    |/       |		MOVE.L	D5,-(A7)
000249e2 60 de                    |`       |		BRA	0x249c2
000249e4 60 00 01 06              |`       |		.XXX[0x4]
000249e8					switch@0x2496a[0x5]:
000249e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249ea 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000249ee 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000249f0 4e ba f8 3e              |N  >    |		JSR	0x24230
000249f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249f6 2a 1f                    |*       |		MOVE.L	(A7)+,D5
000249f8 60 00 00 f2              |`       |		BRA	0x24aec
000249fc					switch@0x2496a[0x6]:
000249fc 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000249fe 60 00 00 ec              |`       |		BRA	0x24aec
00024a02					switch@0x2496a[0x7]:
00024a02 60 e4                    |`       |		BRA	switch@0x2496a[0x5]
00024a04					switch@0x2496a[0x8]:
00024a04 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024a06 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024a0a 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024a0c 4e ba dc 2e              |N  .    |		JSR	0x2263c
00024a10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a12 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00024a14 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024a16 60 00 00 d4              |`       |		BRA	0x24aec
00024a1a					switch@0x2496a[0x9]:
00024a1a 2d 52 ff e4              |-R      |		MOVE.L	(A2),(A6-0x1c)
00024a1e 2d 6e ff f0 ff e8        |-n      |		MOVE.L	(A6-0x10),(A6-0x18)
00024a24 60 00 00 c6              |`       |		BRA	0x24aec
00024a28					switch@0x2496a[0xa]:
00024a28 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a2a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024a2c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024a2e 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024a32 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024a36 4e ba fb 26              |N  &    |		JSR	0x2455e
00024a3a de c2                    |        |		ADDA.W	D2,A7
00024a3c 60 00 00 ae              |`       |		BRA	0x24aec
00024a40					switch@0x2496a[0xb]:
00024a40 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a42 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024a44 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024a46 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024a4a 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024a4e 4e ba fa 7a              |N  z    |		JSR	0x244ca
00024a52 60 e6                    |`       |		BRA	0x24a3a
00024a54					switch@0x2496a[0xc]:
00024a54 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a56 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024a58 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024a5a 4e ba fb b8              |N       |		JSR	0x24614
00024a5e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024a62 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024a64 60 00 00 86              |`       |		BRA	0x24aec
00024a68					switch@0x2496a[0xd]:
00024a68 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a6a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024a6c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024a6e 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00024a72 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00024a76 4e ba fa 52              |N  R    |		JSR	0x244ca
00024a7a de c2                    |        |		ADDA.W	D2,A7
00024a7c 60 e4                    |`       |		BRA	0x24a62
00024a7e					switch@0x2496a[0xe]:
00024a7e 60 e2                    |`       |		BRA	0x24a62
00024a80					switch@0x2496a[0xf]:
00024a80 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a82 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024a84 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024a88 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024a8a 4e ba db b0              |N       |		JSR	0x2263c
00024a8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a90 4e ba fb 82              |N       |		JSR	0x24614
00024a94 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024a98 60 52                    |`R      |		BRA	0x24aec
00024a9a					switch@0x2496a[0x10]:
00024a9a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a9c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024a9e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00024aa2 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024aa4 4e ba db 96              |N       |		JSR	0x2263c
00024aa8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024aaa 4e ba fb ee              |N       |		JSR	0x2469a
00024aae 60 ae                    |`       |		BRA	0x24a5e
00024ab0					switch@0x2496a[0x11]:
00024ab0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024ab2 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024ab6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ab8 4e ba fc 50              |N  P    |		JSR	0x2470a
00024abc 60 d6                    |`       |		BRA	0x24a94
00024abe					switch@0x2496a[0x12]:
00024abe 60 2c                    |`,      |		BRA	0x24aec
00024ac0					switch@0x2496a[0x13]:
00024ac0 60 a0                    |`       |		BRA	0x24a62
00024ac2					switch@0x2496a[0x14]:
00024ac2 41 fa cc 44              |A  D    |		LEA.L	0x21708,A0
00024ac6 70 05                    |p       |		MOVEQ.L	#0x05,D0
00024ac8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024aca 51 c8 ff fc              |Q       |		DBF	D0,0x24ac8
00024ace 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ad0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024ad4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024ad8 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00024adc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024ae2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ae4 4e ba cf 0c              |N       |		JSR	0x219f2
00024ae8 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024aec 4a 07                    |J       |		TST.B	D7
00024aee 66 46                    |fF      |		BNE	0x24b36
00024af0 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00024af4 48 52                    |HR      |		PEA.L	(A2)
00024af6 4e ba fc 5a              |N  Z    |		JSR	0x24752
00024afa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024afc 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00024b00 0c 80 00 00 00 13        |        |		CMPI.L	#0x00000013,D0
00024b06 63 02                    |c       |		BLS	0x24b0a
00024b08 4e 4f                    |NO      |		TRAP	#15
00024b0a 28 00                    |(       |		MOVE.L	D0,D4
00024b0c 76 07                    |v       |		MOVEQ.L	#0x07,D3
00024b0e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00024b14 41 fa ce 0e              |A       |		LEA.L	0x21924,A0
00024b18 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
00024b1c 0c 80 00 00 00 06        |        |		CMPI.L	#0x00000006,D0
00024b22 63 02                    |c       |		BLS	0x24b26
00024b24 4e 4f                    |NO      |		TRAP	#15
00024b26 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00024b2a 12 30 08 00              | 0      |		MOVE.B	(A0+D0.L),D1
00024b2e 48 81                    |H       |		EXTB.W	D1
00024b30 48 c1                    |H       |		EXTW.L	D1
00024b32 2d 41 ff cc              |-A      |		MOVE.L	D1,(A6-0x34)
00024b36 4a 07                    |J       |		TST.B	D7
00024b38 67 00 fe 24              |g  $    |		BEQ	0x2495e
00024b3c 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00024b40 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024b42 4e ba fd 48              |N  H    |		JSR	0x2488c
00024b46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b48 48 51                    |HQ      |		PEA.L	(A1)
00024b4a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024b50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b52 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024b56 4e 5e                    |N^      |		UNLK	A6
00024b58 4e 75                    |Nu      |		RTS
00024b5a ; --------------------------------------------------------------------------------------
00024b5a ; OMSI PASCAL Function
00024b5a ;    <LVAR  0x014 4(rw)>
00024b5a ;    <LVAR  0x010 4(r)>
00024b5a ;    <LVAR  0x00c 4(r)>
00024b5a ;    <LVAR  0x008 4(r)>
00024b5a ;    <LVAR -0x008 4(rw)>
00024b5a ;    <LVAR -0x00c 4(rw)>
00024b5a ;    <LVAR -0x018 4(w)>
00024b5a ; --------------------------------------------------------------------------------------
00024b5a 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00024b5e bf d5                    |        |		CMPA.L	(A5),A7
00024b60 62 06                    |b       |		BHI	0x24b68
00024b62 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024b66 4e 76                    |Nv      |		TRAPV
00024b68 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00024b6c 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024b70 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00024b74 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
00024b78 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00024b7c 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
00024b80 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00024b82 42 ae 00 14              |B       |		CLR.L	(A6+0x14)
00024b86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b88 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024b8a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024b8c 4e ba da 76              |N  v    |		JSR	0x22604
00024b90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b92 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024b94 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024b98 30 10                    |0       |		MOVE.W	(A0),D0
00024b9a 48 c0                    |H       |		EXTW.L	D0
00024b9c 52 80                    |R       |		ADDQ.L	#0x1,D0
00024b9e 22 80                    |"       |		MOVE.L	D0,(A1)
00024ba0 44 80                    |D       |		NEG.L	D0
00024ba2 d0 94                    |        |		ADD.L	(A4),D0
00024ba4 52 80                    |R       |		ADDQ.L	#0x1,D0
00024ba6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024ba8 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024baa b0 97                    |        |		CMP.L	(A7),D0
00024bac 6e 00 00 9a              |n       |		BGT	0x24c48
00024bb0 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00024bb4 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024bb6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00024bb8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024bba 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00024bbc ba 97                    |        |		CMP.L	(A7),D5
00024bbe 6e 48                    |nH      |		BGT	0x24c08
00024bc0 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
00024bc6 66 04                    |f       |		BNE	0x24bcc
00024bc8 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
00024bca 60 18                    |`       |		BRA	0x24be4
00024bcc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024bd0 20 05                    |        |		MOVE.L	D5,D0
00024bd2 53 80                    |S       |		SUBQ.L	#0x1,D0
00024bd4 53 80                    |S       |		SUBQ.L	#0x1,D0
00024bd6 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00024bdc 63 02                    |c       |		BLS	0x24be0
00024bde 4e 4f                    |NO      |		TRAP	#15
00024be0 1e 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D7
00024be4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024be6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024be8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024bea 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
00024bee d0 85                    |        |		ADD.L	D5,D0
00024bf0 53 80                    |S       |		SUBQ.L	#0x1,D0
00024bf2 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024bf4 4e ba f5 fa              |N       |		JSR	0x241f0
00024bf8 de c2                    |        |		ADDA.W	D2,A7
00024bfa be 1f                    |        |		CMP.B	(A7)+,D7
00024bfc 67 04                    |g       |		BEQ	0x24c02
00024bfe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c00 60 08                    |`       |		BRA	0x24c0a
00024c02 2c 05                    |,       |		MOVE.L	D5,D6
00024c04 52 85                    |R       |		ADDQ.L	#0x1,D5
00024c06 68 b4                    |h       |		BVC	0x24bbc
00024c08 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c0a bc 91                    |        |		CMP.L	(A1),D6
00024c0c 66 32                    |f2      |		BNE	0x24c40
00024c0e 20 17                    |        |		MOVE.L	(A7),D0
00024c10 22 00                    |"       |		MOVE.L	D0,D1
00024c12 d2 91                    |        |		ADD.L	(A1),D1
00024c14 b2 94                    |        |		CMP.L	(A4),D1
00024c16 6c 26                    |l&      |		BGE	0x24c3e
00024c18 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024c1a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024c1c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024c1e 2f 01                    |/       |		MOVE.L	D1,-(A7)
00024c20 4e ba f5 ce              |N       |		JSR	0x241f0
00024c24 de c2                    |        |		ADDA.W	D2,A7
00024c26 1e 1f                    |        |		MOVE.B	(A7)+,D7
00024c28 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00024c2c 67 06                    |g       |		BEQ	0x24c34
00024c2e 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00024c32 66 08                    |f       |		BNE	0x24c3c
00024c34 2d 40 00 14              |-@      |		MOVE.L	D0,(A6+0x14)
00024c38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c3a 60 0e                    |`       |		BRA	0x24c4a
00024c3c 60 02                    |`       |		BRA	0x24c40
00024c3e 60 f4                    |`       |		BRA	0x24c34
00024c40 20 1f                    |        |		MOVE.L	(A7)+,D0
00024c42 52 80                    |R       |		ADDQ.L	#0x1,D0
00024c44 68 00 ff 64              |h  d    |		BVC	0x24baa
00024c48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c4a 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024c4e 4e 5e                    |N^      |		UNLK	A6
00024c50 4e 75                    |Nu      |		RTS
00024c52 ; --------------------------------------------------------------------------------------
00024c52 ; OMSI PASCAL Function
00024c52 ;    <LVAR  0x018 4(r)>
00024c52 ;    <LVAR  0x014 4(r)>
00024c52 ;    <LVAR  0x010 4(r)>
00024c52 ;    <LVAR  0x00c 4(r)>
00024c52 ;    <LVAR  0x008 4(r)>
00024c52 ;    <LVAR -0x008 4(rw)>
00024c52 ;    <LVAR -0x014 4(rw)>
00024c52 ;    <LVAR -0x018 4(rw)>
00024c52 ;    <LVAR -0x01c 4(rw)>
00024c52 ; --------------------------------------------------------------------------------------
00024c52 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
00024c56 bf d5                    |        |		CMPA.L	(A5),A7
00024c58 62 06                    |b       |		BHI	0x24c60
00024c5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c5e 4e 76                    |Nv      |		TRAPV
00024c60 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00024c64 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024c68 45 ee ff e4              |E       |		LEA.L	(A6-0x1c),A2
00024c6c 47 ee ff e8              |G       |		LEA.L	(A6-0x18),A3
00024c70 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00024c74 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00024c76 74 01                    |t       |		MOVEQ.L	#0x01,D2
00024c78 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024c7c 42 10                    |B       |		CLR.B	(A0)
00024c7e 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00024c82 22 82                    |"       |		MOVE.L	D2,(A1)
00024c84 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024c86 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00024c8a 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00024c8e 4e ba d9 ac              |N       |		JSR	0x2263c
00024c92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c94 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024c96 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00024c98 4a 92                    |J       |		TST.L	(A2)
00024c9a 67 00 00 96              |g       |		BEQ	0x24d32
00024c9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ca0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024ca2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ca4 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00024ca8 4e ba fe b0              |N       |		JSR	0x24b5a
00024cac de c1                    |        |		ADDA.W	D1,A7
00024cae 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00024cb2 67 7e                    |g~      |		BEQ	0x24d32
00024cb4 10 82                    |        |		MOVE.B	D2,(A0)
00024cb6 48 51                    |HQ      |		PEA.L	(A1)
00024cb8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00024cbe 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024cc0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024cc2 4e ba d9 40              |N  @    |		JSR	0x22604
00024cc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024cc8 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024cca 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00024cce 52 80                    |R       |		ADDQ.L	#0x1,D0
00024cd0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024cd2 2a 00                    |*       |		MOVE.L	D0,D5
00024cd4 ba 97                    |        |		CMP.L	(A7),D5
00024cd6 6e 58                    |nX      |		BGT	0x24d30
00024cd8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024cda 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024cdc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024cde 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024ce0 4e ba f5 0e              |N       |		JSR	0x241f0
00024ce4 de c1                    |        |		ADDA.W	D1,A7
00024ce6 10 1f                    |        |		MOVE.B	(A7)+,D0
00024ce8 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
00024cec 66 3e                    |f>      |		BNE	0x24d2c
00024cee 20 05                    |        |		MOVE.L	D5,D0
00024cf0 52 80                    |R       |		ADDQ.L	#0x1,D0
00024cf2 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024cf4 2e 00                    |.       |		MOVE.L	D0,D7
00024cf6 be 97                    |        |		CMP.L	(A7),D7
00024cf8 6e 2e                    |n.      |		BGT	0x24d28
00024cfa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024cfc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024cfe 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d00 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024d02 4e ba f4 ec              |N       |		JSR	0x241f0
00024d06 de c1                    |        |		ADDA.W	D1,A7
00024d08 1c 1f                    |        |		MOVE.B	(A7)+,D6
00024d0a 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00024d0e 66 04                    |f       |		BNE	0x24d14
00024d10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d12 60 1e                    |`       |		BRA	0x24d32
00024d14 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00024d18 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024d1a 1f 06                    |        |		MOVE.B	D6,-(A7)
00024d1c 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00024d22 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024d24 52 87                    |R       |		ADDQ.L	#0x1,D7
00024d26 68 ce                    |h       |		BVC	0x24cf6
00024d28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d2a 60 06                    |`       |		BRA	0x24d32
00024d2c 52 85                    |R       |		ADDQ.L	#0x1,D5
00024d2e 68 a4                    |h       |		BVC	0x24cd4
00024d30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024d32 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024d36 4e 5e                    |N^      |		UNLK	A6
00024d38 4e 75                    |Nu      |		RTS
00024d3a ; --------------------------------------------------------------------------------------
00024d3a ; OMSI PASCAL Function
00024d3a ;    <LVAR  0x00c @ 4(r)>
00024d3a ;    <LVAR  0x008 4(r)>
00024d3a ;    <LVAR -0x010 @ 1(r)>
00024d3a ; --------------------------------------------------------------------------------------
00024d3a 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00024d3e bf d5                    |        |		CMPA.L	(A5),A7
00024d40 62 06                    |b       |		BHI	0x24d48
00024d42 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024d46 4e 76                    |Nv      |		TRAPV
00024d48 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00024d4c 48 e7 87 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
00024d50 43 f9 00 02 65 18        |C   e   |		LEA.L	0x26518,A1
00024d56 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00024d5a 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00024d5e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024d60 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d62 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00024d66 4e b9 00 02 12 3e        |N    >  |		JSR	0x2123e
00024d6c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024d70 4a 2e ff f0              |J.      |		TST.B	(A6-0x10)
00024d74 66 50                    |fP      |		BNE	0x24dc6
00024d76 2e 11                    |.       |		MOVE.L	(A1),D7
00024d78 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024d7a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d7c 4e ba d0 80              |N       |		JSR	0x21dfe
00024d80 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024d82 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024d84 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024d86 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d88 4e ba f3 2a              |N  *    |		JSR	0x240b4
00024d8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d8e 2a 11                    |*       |		MOVE.L	(A1),D5
00024d90 20 07                    |        |		MOVE.L	D7,D0
00024d92 53 80                    |S       |		SUBQ.L	#0x1,D0
00024d94 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00024d9a 63 02                    |c       |		BLS	0x24d9e
00024d9c 4e 4f                    |NO      |		TRAP	#15
00024d9e 41 f9 00 02 55 10        |A   U   |		LEA.L	0x25510,A0
00024da4 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
00024da8 0c 00 00 25              |   %    |		CMPI.B	#0x25,D0
00024dac 66 0c                    |f       |		BNE	0x24dba
00024dae 22 87                    |"       |		MOVE.L	D7,(A1)
00024db0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024db2 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024db4 4e ba fb 5c              |N  \    |		JSR	0x24912
00024db8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024dba 52 87                    |R       |		ADDQ.L	#0x1,D7
00024dbc be b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D7
00024dc2 6f cc                    |o       |		BLE	0x24d90
00024dc4 22 85                    |"       |		MOVE.L	D5,(A1)
00024dc6 48 53                    |HS      |		PEA.L	(A3)
00024dc8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024dce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024dd0 4c df 0f e1              |L       |		MOVEM.L	(A7)+,D0+D5+D6+D7+A0+A1+A2+A3
00024dd4 4e 5e                    |N^      |		UNLK	A6
00024dd6 4e 75                    |Nu      |		RTS
00024dd8 ; --------------------------------------------------------------------------------------
00024dd8 ; OMSI PASCAL Function
00024dd8 ;    <LVAR -0x006 @ 4(r)>
00024dd8 ;    <LVAR -0x00a @ 4(rw)>
00024dd8 ;    <LVAR -0x00b 1(w)>
00024dd8 ;    <LVAR -0x00c @ 1(r)>
00024dd8 ; --------------------------------------------------------------------------------------
00024dd8 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00024ddc bf d5                    |        |		CMPA.L	(A5),A7
00024dde 62 06                    |b       |		BHI	0x24de6
00024de0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024de4 4e 76                    |Nv      |		TRAPV
00024de6 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00024dea 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024dee 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00024df2 47 f9 00 02 65 18        |G   e   |		LEA.L	0x26518,A3
00024df8 49 ee ff f6              |I       |		LEA.L	(A6-0xa),A4
00024dfc 2e 13                    |.       |		MOVE.L	(A3),D7
00024dfe 48 52                    |HR      |		PEA.L	(A2)
00024e00 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00024e04 4e ba cf 4c              |N  L    |		JSR	0x21d52
00024e08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e0a 2c 13                    |,       |		MOVE.L	(A3),D6
00024e0c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024e0e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e10 4e ba cf ec              |N       |		JSR	0x21dfe
00024e14 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024e16 20 1f                    |        |		MOVE.L	(A7)+,D0
00024e18 0c 80 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D0
00024e1e 67 00 02 ac              |g       |		BEQ	0x250cc
00024e22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024e24 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e26 48 78 00 00              |Hx      |		PEA.L	0x0
00024e2a 4e ba d8 ee              |N       |		JSR	0x2271a
00024e2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e30 28 97                    |(       |		MOVE.L	(A7),(A4)
00024e32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024e34 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024e36 4e ba f1 c4              |N       |		JSR	0x23ffc
00024e3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024e3c 10 1f                    |        |		MOVE.B	(A7)+,D0
00024e3e 48 80                    |H       |		EXTB.W	D0
00024e40 41 bc 00 2b              |A  +    |		CHK.W	#0x2b,D0
00024e44 1d 40 ff f5              | @      |		MOVE.B	D0,(A6-0xb)
00024e48 4a 00                    |J       |		TST.B	D0
00024e4a 66 0e                    |f       |		BNE	0x24e5a
00024e4c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024e4e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e50 4e ba fe e8              |N       |		JSR	0x24d3a
00024e54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e56 60 00 02 6c              |`  l    |		BRA	0x250c4
00024e5a 48 54                    |HT      |		PEA.L	(A4)
00024e5c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024e62 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024e64 12 00                    |        |		MOVE.B	D0,D1
00024e66 48 81                    |H       |		EXTB.W	D1
00024e68 43 bc 00 2b              |C  +    |		CHK.W	#0x2b,D1
00024e6c 41 fa ca 86              |A       |		LEA.L	0x218f4,A0
00024e70 30 01                    |0       |		MOVE.W	D1,D0
00024e72 48 c0                    |H       |		EXTW.L	D0
00024e74 24 00                    |$       |		MOVE.L	D0,D2
00024e76 e2 9a                    |        |		ROR.L	#0x1,D2
00024e78 d0 c2                    |        |		ADDA.W	D2,A0
00024e7a 48 42                    |HB      |		SWAP.W	D2
00024e7c e7 5a                    | Z      |		ROL.W	#0x3,D2
00024e7e 42 83                    |B       |		CLR.L	D3
00024e80 16 10                    |        |		MOVE.B	(A0),D3
00024e82 e5 2b                    | +      |		LSL.B	D2,D3
00024e84 e8 0b                    |        |		LSR.B	#0x4,D3
00024e86 2a 03                    |*       |		MOVE.L	D3,D5
00024e88 0c 85 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D5
00024e8e 67 2c                    |g,      |		BEQ	0x24ebc
00024e90 28 00                    |(       |		MOVE.L	D0,D4
00024e92 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00024e94 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00024e9a 41 fa c8 8a              |A       |		LEA.L	COMMAND_TABLE_21726,A0
00024e9e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024ea2 22 4f                    |"O      |		MOVEA.L	A7,A1
00024ea4 41 f0 40 00              |A @     |		LEA.L	(A0+D4.W),A0
00024ea8 70 09                    |p       |		MOVEQ.L	#0x09,D0
00024eaa 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00024eac 51 c8 ff fc              |Q       |		DBF	D0,0x24eaa
00024eb0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024eb2 2f 05                    |/       |		MOVE.L	D5,-(A7)
00024eb4 4e ba cf 7e              |N  ~    |		JSR	0x21e34
00024eb8 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024ebc 53 41                    |SA      |		SUBQ.W	#0x1,D1
00024ebe 0c 41 00 2a              | A *    |		CMPI.W	#0x002a,D1
00024ec2 63 02                    |c       |		BLS	0x24ec6
00024ec4 4e 4e                    |NN      |		TRAP	#14
00024ec6 d2 41                    | A      |		ADD.W	D1,D1
00024ec8 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00024ed0 00 56                    | V      |		.CONST	0x56			; [0x0] -> 0x24f26
00024ed2 00 62                    | b      |		.CONST	0x62			; [0x1] -> 0x24f32
00024ed4 00 74                    | t      |		.CONST	0x74			; [0x2] -> 0x24f44
00024ed6 00 82                    |        |		.CONST	0x82			; [0x3] -> 0x24f52
00024ed8 01 e6                    |        |		.CONST	0x1e6			; [0x4] -> 0x250b6
00024eda 00 8a                    |        |		.CONST	0x8a			; [0x5] -> 0x24f5a
00024edc 00 8e                    |        |		.CONST	0x8e			; [0x6] -> 0x24f5e
00024ede 00 96                    |        |		.CONST	0x96			; [0x7] -> 0x24f66
00024ee0 00 9e                    |        |		.CONST	0x9e			; [0x8] -> 0x24f6e
00024ee2 00 a6                    |        |		.CONST	0xa6			; [0x9] -> 0x24f76
00024ee4 00 ae                    |        |		.CONST	0xae			; [0xa] -> 0x24f7e
00024ee6 00 b6                    |        |		.CONST	0xb6			; [0xb] -> 0x24f86
00024ee8 00 be                    |        |		.CONST	0xbe			; [0xc] -> 0x24f8e
00024eea 00 c6                    |        |		.CONST	0xc6			; [0xd] -> 0x24f96
00024eec 00 ce                    |        |		.CONST	0xce			; [0xe] -> 0x24f9e
00024eee 00 d6                    |        |		.CONST	0xd6			; [0xf] -> 0x24fa6
00024ef0 00 e0                    |        |		.CONST	0xe0			; [0x10] -> 0x24fb0
00024ef2 00 ea                    |        |		.CONST	0xea			; [0x11] -> 0x24fba
00024ef4 00 f4                    |        |		.CONST	0xf4			; [0x12] -> 0x24fc4
00024ef6 00 fe                    |        |		.CONST	0xfe			; [0x13] -> 0x24fce
00024ef8 01 08                    |        |		.CONST	0x108			; [0x14] -> 0x24fd8
00024efa 01 12                    |        |		.CONST	0x112			; [0x15] -> 0x24fe2
00024efc 01 1c                    |        |		.CONST	0x11c			; [0x16] -> 0x24fec
00024efe 01 26                    | &      |		.CONST	0x126			; [0x17] -> 0x24ff6
00024f00 01 30                    | 0      |		.CONST	0x130			; [0x18] -> 0x25000
00024f02 01 3a                    | :      |		.CONST	0x13a			; [0x19] -> 0x2500a
00024f04 01 44                    | D      |		.CONST	0x144			; [0x1a] -> 0x25014
00024f06 01 4e                    | N      |		.CONST	0x14e			; [0x1b] -> 0x2501e
00024f08 01 58                    | X      |		.CONST	0x158			; [0x1c] -> 0x25028
00024f0a 01 62                    | b      |		.CONST	0x162			; [0x1d] -> 0x25032
00024f0c 01 6c                    | l      |		.CONST	0x16c			; [0x1e] -> 0x2503c
00024f0e 01 76                    | v      |		.CONST	0x176			; [0x1f] -> 0x25046
00024f10 01 80                    |        |		.CONST	0x180			; [0x20] -> 0x25050
00024f12 01 8a                    |        |		.CONST	0x18a			; [0x21] -> 0x2505a
00024f14 01 94                    |        |		.CONST	0x194			; [0x22] -> 0x25064
00024f16 01 9e                    |        |		.CONST	0x19e			; [0x23] -> 0x2506e
00024f18 01 a8                    |        |		.CONST	0x1a8			; [0x24] -> 0x25078
00024f1a 01 b2                    |        |		.CONST	0x1b2			; [0x25] -> 0x25082
00024f1c 01 b8                    |        |		.CONST	0x1b8			; [0x26] -> 0x25088
00024f1e 01 c2                    |        |		.CONST	0x1c2			; [0x27] -> 0x25092
00024f20 01 cc                    |        |		.CONST	0x1cc			; [0x28] -> 0x2509c
00024f22 01 d6                    |        |		.CONST	0x1d6			; [0x29] -> 0x250a6
00024f24 01 dc                    |        |		.CONST	0x1dc			; [0x2a] -> 0x250ac
00024f26					switch@0x24ec8[0x0]:
00024f26 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f28 4e ba d9 78              |N  x    |		JSR	0x228a2
00024f2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f2e 60 00 01 94              |`       |		BRA	0x250c4
00024f32					switch@0x24ec8[0x1]:
00024f32 42 27                    |B'      |		CLR.B	-(A7)
00024f34 48 78 00 01              |Hx      |		PEA.L	0x1
00024f38 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00024f3e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024f40 60 00 01 82              |`       |		BRA	0x250c4
00024f44					switch@0x24ec8[0x2]:
00024f44 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f46 4e b9 00 01 02 ac        |N       |		JSR	FSCALL_102ac
00024f4c 4e ba d9 2a              |N  *    |		JSR	0x22878
00024f50 60 da                    |`       |		BRA	0x24f2c
00024f52					switch@0x24ec8[0x3]:
00024f52 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f54 4e ba db 26              |N  &    |		JSR	0x22a7c
00024f58 60 d2                    |`       |		BRA	0x24f2c
00024f5a					switch@0x24ec8[0x5]:
00024f5a 60 00 01 68              |`  h    |		BRA	0x250c4
00024f5e					switch@0x24ec8[0x6]:
00024f5e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f60 4e ba de 40              |N  @    |		JSR	0x22da2
00024f64 60 c6                    |`       |		BRA	0x24f2c
00024f66					switch@0x24ec8[0x7]:
00024f66 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f68 4e ba df a4              |N       |		JSR	0x22f0e
00024f6c 60 be                    |`       |		BRA	0x24f2c
00024f6e					switch@0x24ec8[0x8]:
00024f6e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f70 4e ba e0 8a              |N       |		JSR	0x22ffc
00024f74 60 b6                    |`       |		BRA	0x24f2c
00024f76					switch@0x24ec8[0x9]:
00024f76 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f78 4e ba e4 76              |N  v    |		JSR	0x233f0
00024f7c 60 ae                    |`       |		BRA	0x24f2c
00024f7e					switch@0x24ec8[0xa]:
00024f7e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f80 4e ba e4 e6              |N       |		JSR	0x23468
00024f84 60 a6                    |`       |		BRA	0x24f2c
00024f86					switch@0x24ec8[0xb]:
00024f86 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f88 4e ba e5 56              |N  V    |		JSR	0x234e0
00024f8c 60 9e                    |`       |		BRA	0x24f2c
00024f8e					switch@0x24ec8[0xc]:
00024f8e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f90 4e ba e5 7a              |N  z    |		JSR	0x2350c
00024f94 60 96                    |`       |		BRA	0x24f2c
00024f96					switch@0x24ec8[0xd]:
00024f96 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024f98 4e ba e6 72              |N  r    |		JSR	0x2360c
00024f9c 60 8e                    |`       |		BRA	0x24f2c
00024f9e					switch@0x24ec8[0xe]:
00024f9e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fa0 4e ba e7 50              |N  P    |		JSR	0x236f2
00024fa4 60 86                    |`       |		BRA	0x24f2c
00024fa6					switch@0x24ec8[0xf]:
00024fa6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fa8 4e ba e7 74              |N  t    |		JSR	0x2371e
00024fac 60 00 ff 7e              |`  ~    |		BRA	0x24f2c
00024fb0					switch@0x24ec8[0x10]:
00024fb0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fb2 4e ba e7 b6              |N       |		JSR	0x2376a
00024fb6 60 00 ff 74              |`  t    |		BRA	0x24f2c
00024fba					switch@0x24ec8[0x11]:
00024fba 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fbc 4e ba e7 f8              |N       |		JSR	0x237b6
00024fc0 60 00 ff 6a              |`  j    |		BRA	0x24f2c
00024fc4					switch@0x24ec8[0x12]:
00024fc4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fc6 4e ba e8 3a              |N  :    |		JSR	0x23802
00024fca 60 00 ff 60              |`  `    |		BRA	0x24f2c
00024fce					switch@0x24ec8[0x13]:
00024fce 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fd0 4e ba e8 7c              |N  |    |		JSR	0x2384e
00024fd4 60 00 ff 56              |`  V    |		BRA	0x24f2c
00024fd8					switch@0x24ec8[0x14]:
00024fd8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fda 4e ba e8 be              |N       |		JSR	0x2389a
00024fde 60 00 ff 4c              |`  L    |		BRA	0x24f2c
00024fe2					switch@0x24ec8[0x15]:
00024fe2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fe4 4e ba e9 00              |N       |		JSR	0x238e6
00024fe8 60 00 ff 42              |`  B    |		BRA	0x24f2c
00024fec					switch@0x24ec8[0x16]:
00024fec 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024fee 4e ba e9 40              |N  @    |		JSR	0x23930
00024ff2 60 00 ff 38              |`  8    |		BRA	0x24f2c
00024ff6					switch@0x24ec8[0x17]:
00024ff6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ff8 4e ba e9 80              |N       |		JSR	0x2397a
00024ffc 60 00 ff 2e              |`  .    |		BRA	0x24f2c
00025000					switch@0x24ec8[0x18]:
00025000 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025002 4e ba e9 c0              |N       |		JSR	0x239c4
00025006 60 00 ff 24              |`  $    |		BRA	0x24f2c
0002500a					switch@0x24ec8[0x19]:
0002500a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002500c 4e ba ea 00              |N       |		JSR	0x23a0e
00025010 60 00 ff 1a              |`       |		BRA	0x24f2c
00025014					switch@0x24ec8[0x1a]:
00025014 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025016 4e ba ea 40              |N  @    |		JSR	0x23a58
0002501a 60 00 ff 10              |`       |		BRA	0x24f2c
0002501e					switch@0x24ec8[0x1b]:
0002501e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025020 4e ba ea 80              |N       |		JSR	0x23aa2
00025024 60 00 ff 06              |`       |		BRA	0x24f2c
00025028					switch@0x24ec8[0x1c]:
00025028 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002502a 4e ba ea c0              |N       |		JSR	0x23aec
0002502e 60 00 fe fc              |`       |		BRA	0x24f2c
00025032					switch@0x24ec8[0x1d]:
00025032 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025034 4e ba eb 00              |N       |		JSR	0x23b36
00025038 60 00 fe f2              |`       |		BRA	0x24f2c
0002503c					switch@0x24ec8[0x1e]:
0002503c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002503e 4e ba eb 3a              |N  :    |		JSR	0x23b7a
00025042 60 00 fe e8              |`       |		BRA	0x24f2c
00025046					switch@0x24ec8[0x1f]:
00025046 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025048 4e ba eb 76              |N  v    |		JSR	0x23bc0
0002504c 60 00 fe de              |`       |		BRA	0x24f2c
00025050					switch@0x24ec8[0x20]:
00025050 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025052 4e ba eb a2              |N       |		JSR	0x23bf6
00025056 60 00 fe d4              |`       |		BRA	0x24f2c
0002505a					switch@0x24ec8[0x21]:
0002505a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002505c 4e ba ec 28              |N  (    |		JSR	0x23c86
00025060 60 00 fe ca              |`       |		BRA	0x24f2c
00025064					switch@0x24ec8[0x22]:
00025064 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025066 4e ba ec 90              |N       |		JSR	0x23cf8
0002506a 60 00 fe c0              |`       |		BRA	0x24f2c
0002506e					switch@0x24ec8[0x23]:
0002506e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025070 4e ba df ec              |N       |		JSR	0x2305e
00025074 60 00 fe b6              |`       |		BRA	0x24f2c
00025078					switch@0x24ec8[0x24]:
00025078 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002507a 4e ba e0 4c              |N  L    |		JSR	0x230c8
0002507e 60 00 fe ac              |`       |		BRA	0x24f2c
00025082					switch@0x24ec8[0x25]:
00025082 4e ba e0 16              |N       |		JSR	0x2309a
00025086 60 3c                    |`<      |		BRA	0x250c4
00025088					switch@0x24ec8[0x26]:
00025088 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002508a 4e ba ec de              |N       |		JSR	0x23d6a
0002508e 60 00 fe 9c              |`       |		BRA	0x24f2c
00025092					switch@0x24ec8[0x27]:
00025092 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025094 4e ba ed 56              |N  V    |		JSR	0x23dec
00025098 60 00 fe 92              |`       |		BRA	0x24f2c
0002509c					switch@0x24ec8[0x28]:
0002509c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002509e 4e ba ed cc              |N       |		JSR	0x23e6c
000250a2 60 00 fe 88              |`       |		BRA	0x24f2c
000250a6					switch@0x24ec8[0x29]:
000250a6 4e ba ee 88              |N       |		JSR	0x23f30
000250aa 60 18                    |`       |		BRA	0x250c4
000250ac					switch@0x24ec8[0x2a]:
000250ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250ae 4e ba ee a0              |N       |		JSR	0x23f50
000250b2 60 00 fe 78              |`  x    |		BRA	0x24f2c
000250b6					switch@0x24ec8[0x4]:
000250b6 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
000250ba 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
000250be 4e f9 00 02 52 ce        |N   R   |		JMP	0x252ce
000250c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250c6 4e ba c8 e8              |N       |		JSR	0x219b0
000250ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000250cc 2f 06                    |/       |		MOVE.L	D6,-(A7)
000250ce 2f 06                    |/       |		MOVE.L	D6,-(A7)
000250d0 9f 97                    |        |		SUB.L	D7,(A7)
000250d2 4e ba ce 72              |N  r    |		JSR	0x21f46
000250d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250d8 26 87                    |&       |		MOVE.L	D7,(A3)
000250da 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
000250de 67 00 fd 1c              |g       |		BEQ	0x24dfc
000250e2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000250e6 4e 5e                    |N^      |		UNLK	A6
000250e8 4e 75                    |Nu      |		RTS
000250ea ; --------------------------------------------------------------------------------------
000250ea ; OMSI PASCAL Function
000250ea ; --------------------------------------------------------------------------------------
000250ea					START:
000250ea 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000250ee 4e f9 00 01 02 80        |N       |		JMP	?start_program
000250f4					MAIN:
000250f4 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x26542
000250fc 65 42                    |eB      |
000250fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025100 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00025106 23 df 00 02 65 46        |#   eF  |		MOVE.L	(A7)+,0x26546
0002510c 48 79 00 02 65 20        |Hy  e   |		PEA.L	0x26520
00025112 4e b9 00 02 12 fc        |N       |		JSR	0x212fc
00025118 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002511a 20 79 00 02 65 46        | y  eF  |		MOVEA.L	0x26546,A0
00025120 4a 50                    |JP      |		TST.W	(A0)
00025122 6f 68                    |oh      |		BLE	0x2518c
00025124 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025126 20 4f                    | O      |		MOVEA.L	A7,A0
00025128 43 fa c5 de              |C       |		LEA.L	0x21708,A1
0002512c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002512e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025130 51 c8 ff fc              |Q       |		DBF	D0,0x2512e
00025134 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025136 20 4f                    | O      |		MOVEA.L	A7,A0
00025138 43 fa c5 d6              |C       |		LEA.L	0x21710,A1
0002513c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002513e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025140 51 c8 ff fc              |Q       |		DBF	D0,0x2513e
00025144 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025146 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002514a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002514e 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00025152 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025158 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002515a 2e b9 00 02 65 46        |.   eF  |		MOVE.L	0x26546,(A7)
00025160 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025162 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00025166 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002516a 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0002516e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025174 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025176 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
0002517c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025180 23 df 00 02 65 46        |#   eF  |		MOVE.L	(A7)+,0x26546
00025186 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002518a 60 3a                    |`:      |		BRA	0x251c6
0002518c 48 79 00 02 65 46        |Hy  eF  |		PEA.L	0x26546
00025192 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025198 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002519a 20 4f                    | O      |		MOVEA.L	A7,A0
0002519c 43 fa c5 7a              |C  z    |		LEA.L	0x21718,A1
000251a0 70 06                    |p       |		MOVEQ.L	#0x06,D0
000251a2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000251a4 51 c8 ff fc              |Q       |		DBF	D0,0x251a2
000251a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000251aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000251ae 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000251b2 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000251b6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000251bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000251be 23 df 00 02 65 46        |#   eF  |		MOVE.L	(A7)+,0x26546
000251c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000251c6 13 fc 00 01 00 02 65 50  |      eP|		MOVE.B	#0x01,0x26550
000251ce 4a 39 00 02 65 50        |J9  eP  |		TST.B	0x26550
000251d4 67 0a                    |g       |		BEQ	0x251e0
000251d6 42 39 00 02 65 50        |B9  eP  |		CLR.B	0x26550
000251dc 60 00 00 b0              |`       |		BRA	0x2528e
000251e0 41 f9 00 02 65 2a        |A   e*  |		LEA.L	0x2652a,A0
000251e6 70 04                    |p       |		MOVEQ.L	#0x04,D0
000251e8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000251ea 51 c8 ff fc              |Q       |		DBF	D0,0x251e8
000251ee 3f 3a c5 30              |?: 0    |		MOVE.W	0x21720,-(A7)
000251f2 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
000251f6 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000251fa 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000251fe 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00025202 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025208 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002520a 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002520e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025212 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00025216 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002521c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002521e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025224 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025226 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
0002522c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002522e 23 df 00 02 65 4c        |#   eL  |		MOVE.L	(A7)+,0x2654c
00025234 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025236 2e b9 00 02 65 4c        |.   eL  |		MOVE.L	0x2654c,(A7)
0002523c 4e ba ca 0c              |N       |		JSR	0x21c4a
00025240 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025242 3e ba c4 de              |>       |		MOVE.W	0x21722,(A7)
00025246 3f 3a c4 dc              |?:      |		MOVE.W	0x21724,-(A7)
0002524a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002524c 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00025250 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025254 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00025258 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002525e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025260 2e b9 00 02 65 4c        |.   eL  |		MOVE.L	0x2654c,(A7)
00025266 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025268 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002526c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025270 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00025274 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002527a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002527c 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00025282 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025286 23 df 00 02 65 46        |#   eF  |		MOVE.L	(A7)+,0x26546
0002528c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002528e 42 39 00 02 65 4a        |B9  eJ  |		CLR.B	0x2654a
00025294 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x26518
0002529c 65 18                    |e       |
0002529e 42 b9 00 02 65 1c        |B   e   |		CLR.L	0x2651c
000252a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000252a6 2f 39 00 02 65 46        |/9  eF  |		MOVE.L	0x26546,-(A7)
000252ac 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000252b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000252b4 4e ba d5 06              |N       |		JSR	0x227bc
000252b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000252ba 20 39 00 02 65 18        | 9  e   |		MOVE.L	0x26518,D0
000252c0 b0 b9 00 02 65 1c        |    e   |		CMP.L	0x2651c,D0
000252c6 6e 06                    |n       |		BGT	0x252ce
000252c8 4e ba fb 0e              |N       |		JSR	0x24dd8
000252cc 60 ec                    |`       |		BRA	0x252ba
000252ce 48 79 00 02 65 46        |Hy  eF  |		PEA.L	0x26546
000252d4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000252da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000252dc 60 00 fe f0              |`       |		BRA	0x251ce
000252e0 4e b9 00 01 02 84        |N       |		.XXX[0x6]
000252e6 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000252f4 ; --------------------------------------------------------------------------------------
000252f4 ; OMSI PASCAL Function
000252f4 ;    <LVAR  0x008 1(r)>
000252f4 ; --------------------------------------------------------------------------------------
000252f4					PROG_FAIL:
000252f4 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000252f8 bf d5                    |        |		CMPA.L	(A5),A7
000252fa 62 06                    |b       |		BHI	0x25302
000252fc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025300 4e 76                    |Nv      |		TRAPV
00025302 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00025306 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002530a 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
0002530e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00025310 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025312 51 c8 ff fc              |Q       |		DBF	D0,0x25310
00025316 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002531a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002531c 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00025320 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025324 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00025328 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002532e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025330 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00025334 48 80                    |H       |		EXTB.W	D0
00025336 48 c0                    |H       |		EXTW.L	D0
00025338 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002533a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00025340 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025342 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025348 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002534a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00025350 de fc 00 14              |        |		ADDA.W	#0x14,A7
00025354 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00025358 4e 5e                    |N^      |		UNLK	A6
0002535a 4e 75                    |Nu      |		RTS
0002535c 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002536a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00025378 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00025386 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00025398 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000253b0 ; --------------------------------------------------------------------------------------
000253b0 ; OMSI PASCAL Function
000253b0 ;    <LVAR  0x00e 1(r)>
000253b0 ;    <LVAR  0x00a 4(r)>
000253b0 ;    <LVAR  0x008 1(r)>
000253b0 ; --------------------------------------------------------------------------------------
000253b0					EXP_FAIL:
000253b0 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000253b4 bf d5                    |        |		CMPA.L	(A5),A7
000253b6 62 06                    |b       |		BHI	0x253be
000253b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000253bc 4e 76                    |Nv      |		TRAPV
000253be de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000253c2 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000253c6 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000253cc 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000253d2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000253d4 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000253d6 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000253d8 78 12                    |x       |		MOVEQ.L	#0x12,D4
000253da 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000253dc 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000253e2 41 fa ff b4              |A       |		LEA.L	0x25398,A0
000253e6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000253e8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000253ea 51 c8 ff fc              |Q       |		DBF	D0,0x253e8
000253ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000253f0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000253f4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000253f6 3f 04                    |?       |		MOVE.W	D4,-(A7)
000253f8 4e 93                    |N       |		JSR	(A3)
000253fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000253fc 4e 94                    |N       |		JSR	(A4)
000253fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025400 20 4f                    | O      |		MOVEA.L	A7,A0
00025402 43 fa ff 58              |C  X    |		LEA.L	0x2535c,A1
00025406 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00025408 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002540a 51 c8 ff fc              |Q       |		DBF	D0,0x25408
0002540e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025410 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00025414 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025416 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025418 4e 93                    |N       |		JSR	(A3)
0002541a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002541c 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00025420 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00025426 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025428 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002542e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025430 4e 94                    |N       |		JSR	(A4)
00025432 de c4                    |        |		ADDA.W	D4,A7
00025434 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00025438 b0 c1                    |        |		CMPA.W	D1,A0
0002543a 67 48                    |gH      |		BEQ	0x25484
0002543c 9e c5                    |        |		SUBA.W	D5,A7
0002543e 22 4f                    |"O      |		MOVEA.L	A7,A1
00025440 45 fa ff 28              |E  (    |		LEA.L	0x2536a,A2
00025444 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00025446 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00025448 51 c8 ff fc              |Q       |		DBF	D0,0x25446
0002544c 9e c3                    |        |		SUBA.W	D3,A7
0002544e 22 4f                    |"O      |		MOVEA.L	A7,A1
00025450 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00025454 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00025456 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00025458 51 c8 ff fc              |Q       |		DBF	D0,0x25456
0002545c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002545e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00025462 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025464 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025466 4e 93                    |N       |		JSR	(A3)
00025468 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002546a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002546e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025470 3f 03                    |?       |		MOVE.W	D3,-(A7)
00025472 4e 93                    |N       |		JSR	(A3)
00025474 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025476 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002547c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002547e 4e 94                    |N       |		JSR	(A4)
00025480 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00025484 9e c5                    |        |		SUBA.W	D5,A7
00025486 20 4f                    | O      |		MOVEA.L	A7,A0
00025488 43 fa fe ee              |C       |		LEA.L	0x25378,A1
0002548c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002548e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025490 51 c8 ff fc              |Q       |		DBF	D0,0x2548e
00025494 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025496 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002549a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002549c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002549e 4e 93                    |N       |		JSR	(A3)
000254a0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000254a2 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000254a6 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000254ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000254ae 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000254b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000254b6 4e 94                    |N       |		JSR	(A4)
000254b8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000254ba 20 4f                    | O      |		MOVEA.L	A7,A0
000254bc 43 fa fe da              |C       |		LEA.L	0x25398,A1
000254c0 70 16                    |p       |		MOVEQ.L	#0x16,D0
000254c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000254c4 51 c8 ff fc              |Q       |		DBF	D0,0x254c2
000254c8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000254cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000254ce 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000254d2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000254d4 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000254d8 4e 93                    |N       |		JSR	(A3)
000254da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000254dc 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000254e2 de c3                    |        |		ADDA.W	D3,A7
000254e4 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000254e8 4e 5e                    |N^      |		UNLK	A6
000254ea 4e 75                    |Nu      |		RTS