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

⟦21a69ecf4⟧ M200

    Length: 20992 (0x5200)
    Types: M200
    Notes: M200_PROGRAM
    Names: »MEMMACS.M200«

Derivation

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

Disassembly

0x20ffa


@ 20ffa
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20ffa-21062 Body>                                              
        <POP 20ffa-21010 Prologue>                           Σ0         ↓
        <POP 21010-2105a Naked>                              Σ0         ↓
            <Blob 0x21010 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2101c 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 21020-21022 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x21022 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 21034-21036 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21036  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2103a  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2103c  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2103e  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x21040 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21046-21048 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x21048 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2104e-21050 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x21050 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21056-2105a StackAdj>                       Δ+20               {}
        <POP 2105a-21062 Epilogue>                           Σ0         

0x21062


@ 21062
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21062-2119e Body>                                              
        <POP 21062-21078 Prologue>                           Σ0         ↓
        <POP 21078-2108e RegCacheLoad>                       Σ0         ↓
        <POP 2108e-210ee Naked>                              Σ0         ↓ →0x21136
            <Call 0x2108e 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21094 [18] @>                            Δ-18               {[«18""»]}
            <POP 210a0-210a2 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x210a2 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x210ae 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 210b0-210b1 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x210b1 [14] @>                            Δ-14               {[«14""»]}
            <POP 210c0-210c2 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x210c2 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 210cc-210ce StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 210ce  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x210d2 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 210d8-210da StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x210da 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 210e0-210e2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x210e2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 210e4-210e6 StackAdj>                       Δ+18               {}
            <MI 210e6  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 210ea  CMPA.W  #0x01,A0>                                        {}
            <MI 210ec  BEQ     0x21136>                                         {}
        <POP 210ee-21136 Naked>                              Σ0         ↓
            <Blob 0x210ee [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x210fe [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2110e-21110 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21110 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2111a-2111c StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2111c>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2111c 12>                      Δ-4        
                <Const 0x21120 0x1.2>                        Δ-2        
                <Const 0x21122 0x1e.2>                       Δ-2        
                <Call 0x21124 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21126-21128 StackAdj>                   Δ+8        
            <Call 0x21128 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2112e-21130 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21130 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21132-21136 StackAdj>                       Δ+48               {}
        <POP 21136-21196 Naked>                              Σ0         ↓ ←0x2108e
            <Blob 0x21136 [14] @>                            Δ-14               {[«14""»]}
            <POP 21146-21148 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21148 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21152-21154 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21154  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21158 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2115e-21160 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21160 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21166-21168 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21168 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2116a-2116b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2116b [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2117a 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2117e-21180 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21180 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2118e 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21194-21196 StackAdj>                       Δ+30               {}
        <POP 21196-2119e Epilogue>                           Σ0         

0x2119e


@ 2119e
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2119e-211d8 Body>                                              
        <POP 2119e-211b0 Prologue>                           Σ0         ↓
        <POP 211b0-211d4 Naked>                              Σ0         ↓
            <POP 211b0-211b2 StackAdj>                       Δ-4                {[-4-]}
            <MI 211b2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <POP 211b6-211b8 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0xc)']|[-4-]}
            <MI 211b8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
            <Call 0x211bc 0x102cc>                                              {[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 211c2-211c4 StackAdj>                       Δ+4                {[-4-]|[4, '(A6+0xc)']|[-4-]}
            <Call 0x211c4 0x102d0>                                              {[-4-]|[4, '(A6+0xc)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 211ca-211cc StackAdj>                       Δ+8                {[-4-]}
            <Call 0x211cc 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 211d2-211d4 StackAdj>                       Δ+4                {}
        <POP 211d4-211d8 Epilogue>                           Σ0         

0x211d8


@ 211d8
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 211d8-212f0 Body>                                              
        <POP 211d8-211ee Prologue>                           Σ0         ↓
        <POP 211ee-211fe RegCacheLoad>                       Σ0         ↓
        <POP 211fe-2120c Naked>                              Σ0 Δ-4     ↓ →0x2126c
            <MI 211fe  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21202  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21204  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 21206  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 21208  CMP.L   (A6+0x8),D0>                                     {[4, 'A0']}
            <MI 2120a  BLE     0x2126c>                                         {[4, 'A0']}
        <POP 2120c-2126c Naked>                              Σ-4        ↓
            <Blob 0x2120c [34] @>                            Δ-34               {[-4-]|[«34""»]}
            <POP 21218-2121a StackAdj>                       Δ-4                {[-4-]|[«34""»]|[-4-]}
            <Lit 0x2121a 34>                                                    {[-4-]|[«34""»]|[$$FULL_HEX_ERROR -- STRING_LENGTH =_]}
            <Call 0x2122a 0x103d8>                                              {[-4-]|[«34""»]|[$$FULL_HEX_ERROR -- STRING_LENGTH =_]}
                WriteConsoleString(str : String)
            <POP 2122c-2122e StackAdj>                       Δ+34               {[-4-]|[-4-]}
            <MI 2122e  MOVE.W  (A0),D0>                                         {[-4-]|[-4-]}
            <MI 21230  EXTW.L  D0>                                              {[-4-]|[-4-]}
            <MI 21232  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[-4-]|[4, 'D0']}
            <Call 0x21234 0x102e4>                                              {[-4-]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 2123a-2123c StackAdj>                       Δ+4                {[-4-]|[-4-]}
            <Call 0x2123c 0x103d8>                                              {[-4-]|[-4-]}
                WriteConsoleString(str : String)
            <POP 2123e-2123f StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x2123f [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x21242 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 21246-21248 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21248 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$ SIZE =_]}
            <Call 0x2125a 0x103d8>                                              {[-4-]|[«4""»]|[«4""»]|[$$ SIZE =_]}
                WriteConsoleString(str : String)
            <POP 2125c-2125e StackAdj>                       Δ+4                {[-4-]|[«4""»]|[«4""»]}
            <MI 2125e  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[«4""»]|[4, '(A6+0x8)']}
            <Call 0x21260 0x102e4>                                              {[-4-]|[«4""»]|[4, '(A6+0x8)']}
                Long2String(a : Long) : String
            <POP 21266-21268 StackAdj>                       Δ+4                {[-4-]|[«4""»]}
            <Call 0x21268 0x103d8>                                              {[-4-]|[«4""»]}
                WriteConsoleString(str : String)
            <POP 2126a-2126c StackAdj>                       Δ+4                {[-4-]}
        <POP 2126c-21296 Naked>                              Σ-4 Δ-4    ↓ ←0x211fe
            <MI 2126c  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 2126e  EXTW.L  D0>                                              {[-4-]}
            <MI 21270  NEG.L   D0>                                              {[-4-]}
            <MI 21272  ADD.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 21274  MOVE.L  D0,D6>                                           {[-4-]}
            <MI 21276  MOVE.L  (A6+0x8),D0>                                     {[-4-]}
            <POP 0x21278 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 2128e  MOVE.W  D0,(A0)>                                         {[-4-]}
            <MI 21290  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 21292  ADDQ.L  #0x1,(A7)>                                       {[-8-]}
            <MI 21294  MOVE.L  (A6+0x8),D7>                                     {[-8-]}
        <POP 21296-2129a Naked>                              Σ-8        ↓ →0x212be ←0x2129a
            <MI 21296  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 21298  BLT     0x212be>                                         {[-8-]}
        <POP 2129a-212be Naked>                              Σ-8        ↓ →0x21296
            <MI 2129a  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 2129c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2129e LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 212a4  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 212a8  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 212aa  SUB.L   D6,D1>                                           {[-8-]}
            <MI 212ac  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x212ae LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 212b4  MOVE.B  (A0+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-8-]}
            <MI 212ba  SUBQ.L  #0x1,D7>                                         {[-8-]}
            <MI 212bc  BVC     0x21296>                                         {[-8-]}
        <POP 212be-212c2 Naked>                              Σ-8        ↓ ←0x21296
            <MI 212be  MOVE.L  D6,(A7)>                                         {[-4-]|[4, 'D6']}
            <MI 212c0  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D6']}
        <POP 212c2-212c6 Naked>                              Σ-8        ↓ →0x212de ←0x212c6
            <MI 212c2  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 212c4  BGT     0x212de>                                         {[-8-]}
        <POP 212c6-212de Naked>                              Σ-8        ↓ →0x212c2
            <MI 212c6  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 212c8  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x212ca LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 212d0  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 212d4  MOVE.B  #0x30,(A0+D0.L+#0x2)>                            {[-8-]}
            <MI 212da  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 212dc  BVC     0x212c2>                                         {[-8-]}
        <POP 212de-212e8 Naked>                              Σ-8 Δ+8    ↓ ←0x212c2
            <POP 212de-212e0 StackAdj>                       Δ+4                {[-4-]}
            <MI 212e0  MOVE.L  (A6+0xc),(A6+0x10)>                              {[-4-]}
            <POP 212e6-212e8 StackAdj>                       Δ+4                {}
        <POP 212e8-212f0 Epilogue>                           Σ0         

0x212f0


@ 212f0
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 212f0-21378 Body>                                              
        <POP 212f0-21306 Prologue>                           Σ0         ↓
        <POP 21306-2130e RegCacheLoad>                       Σ0         ↓
        <POP 2130e-2131c Naked>                              Σ0         ↓ →0x2133a
            <MI 2130e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x21312 0x103d8>                                              {[4, '(A6+0xc)']}
                WriteConsoleString(str : String)
            <POP 21314-21316 StackAdj>                       Δ+4                {}
            <MI 21316  TST.B   (A6+0xa)>                                        {}
            <MI 2131a  BEQ     0x2133a>                                         {}
        <POP 2131c-2133a Naked>                              Σ0         →0x21364
            <Blob 0x2131c [4] @>                             Δ-4                {[«4""»]}
            <POP 21320-21322 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x21322 4>                                                     {[«4""»]|[$$true]}
            <Call 0x21334 0x103d8>                                              {[«4""»]|[$$true]}
                WriteConsoleString(str : String)
            <POP 21336-21338 StackAdj>                       Δ+8                {}
            <MI 21338  BRA     0x21364>                                         {}
        <POP 2133a-21364 Naked>                              Σ0         ↓ ←0x2130e
            <Blob 0x2133a [6] @>                             Δ-6                {[«6""»]}
            <POP 2134a-2134c StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2134c 5>                                                     {[«6""»]|[$$false]}
            <Call 0x2135e 0x103d8>                                              {[«6""»]|[$$false]}
                WriteConsoleString(str : String)
            <POP 21360-21364 StackAdj>                       Δ+10               {}
        <POP 21364-2136a Naked>                              Σ0         ↓ →0x21370 ←0x2131c
            <MI 21364  TST.B   (A6+0x8)>                                        {}
            <MI 21368  BEQ     0x21370>                                         {}
        <POP 2136a-21370 Naked>                              Σ0         ↓
            <Call 0x2136a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 21370-21378 Epilogue>                           Σ0         ←0x21364

0x21378


@ 21378
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21378-213be Body>                                              
        <POP 21378-2138a Prologue>                           Σ0         ↓
        <POP 2138a-213b4 Naked>                              Σ0         ↓ →0x213ba
            <POP 2138a-2138c StackAdj>                       Δ-4                {[-4-]}
            <MI 2138c  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xe)']}
            <POP 21390-21392 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0xe)']|[-4-]}
            <MI 21392  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xe)']|[-4-]|[4, '(A6+0xa)']}
            <Call 0x21396 0x102e4>                                              {[-4-]|[4, '(A6+0xe)']|[-4-]|[4, '(A6+0xa)']}
                Long2String(a : Long) : String
            <POP 2139c-2139e StackAdj>                       Δ+4                {[-4-]|[4, '(A6+0xe)']|[-4-]}
            <Call 0x2139e 0x102d0>                                              {[-4-]|[4, '(A6+0xe)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213a4-213a6 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x213a6 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 213ac-213ae StackAdj>                       Δ+4                {}
            <MI 213ae  TST.B   (A6+0x8)>                                        {}
            <MI 213b2  BEQ     0x213ba>                                         {}
        <POP 213b4-213ba Naked>                              Σ0         ↓
            <Call 0x213b4 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 213ba-213be Epilogue>                           Σ0         ←0x2138a

0x213be


@ 213be
        <LVAR  0x012 4(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 213be-2140e Body>                                              
        <POP 213be-213d0 Prologue>                           Σ0         ↓
        <POP 213d0-21404 Naked>                              Σ0         ↓ →0x2140a
            <POP 213d0-213d2 StackAdj>                       Δ-4                {[-4-]}
            <MI 213d2  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x12)']}
            <POP 213d6-213d8 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x12)']|[-4-]}
            <MI 213d8  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x12)']|[-4-]|[4, '(A6+0xe)']}
            <MI 213dc  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x12)']|[-4-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']}
            <Const 0x213e0 0x10.4>                           Δ-4                {[-4-]|[4, '(A6+0x12)']|[-4-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']|[##16]}
            <Call 0x213e4 0x1035c>                                              {[-4-]|[4, '(A6+0x12)']|[-4-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 213ea-213ee StackAdj>                       Δ+12               {[-4-]|[4, '(A6+0x12)']|[-4-]}
            <Call 0x213ee 0x102d0>                                              {[-4-]|[4, '(A6+0x12)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213f4-213f6 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x213f6 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 213fc-213fe StackAdj>                       Δ+4                {}
            <MI 213fe  TST.B   (A6+0x8)>                                        {}
            <MI 21402  BEQ     0x2140a>                                         {}
        <POP 21404-2140a Naked>                              Σ0         ↓
            <Call 0x21404 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 2140a-2140e Epilogue>                           Σ0         ←0x213d0

0x2140e


@ 2140e
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 2140e-21466 Body>                                              
        <POP 2140e-21420 Prologue>                           Σ0         ↓
        <POP 21420-2145c Naked>                              Σ0         ↓ →0x21462
            <POP 21420-21422 StackAdj>                       Δ-4                {[-4-]}
            <MI 21422  MOVE.L  (A6+0x16),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x16)']}
            <POP 21426-21428 StackAdj>                       Δ-8                {[-4-]|[4, '(A6+0x16)']|[-8-]}
            <MI 21428  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0x12)']}
            <MI 2142c  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0x12)']|[4, '(A6+0xe)']}
            <Const 0x21430 0x10.4>                           Δ-4                {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0x12)']|[4, '(A6+0xe)']|[##16]}
            <Call 0x21434 0x1035c>                                              {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0x12)']|[4, '(A6+0xe)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 2143a-2143c StackAdj>                       Δ+8                {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0x12)']}
            <MI 2143c  MOVE.L  (A6+0xa),(A7)>                                   {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0xa)']}
            <Call 0x21440 0x211d8>                                              {[-4-]|[4, '(A6+0x16)']|[-8-]|[4, '(A6+0xa)']}
            <POP 21444-21446 StackAdj>                       Δ+8                {[-4-]|[4, '(A6+0x16)']|[-4-]}
            <Call 0x21446 0x102d0>                                              {[-4-]|[4, '(A6+0x16)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2144c-2144e StackAdj>                       Δ+8                {[-4-]}
            <Call 0x2144e 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 21454-21456 StackAdj>                       Δ+4                {}
            <MI 21456  TST.B   (A6+0x8)>                                        {}
            <MI 2145a  BEQ     0x21462>                                         {}
        <POP 2145c-21462 Naked>                              Σ0         ↓
            <Call 0x2145c 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 21462-21466 Epilogue>                           Σ0         ←0x21420

0x21466


@ 21466
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 21466-214f4 Body>                                              
        <POP 21466-2147c Prologue>                           Σ0         ↓
        <POP 2147c-21486 RegCacheLoad>                       Σ0         ↓
        <POP 21486-2148c Naked>                              Σ0         ↓
            <MI 21486  MOVE.B  #0x0b,(A6+0xc)>                                  {}
            <MI 2148a  MOVEQ.L #0x00,D7>                                        {}
        <POP 2148c-214e0 Naked>                              Σ0         ↓ →0x214e6 ←0x214e6
            <MI 2148c  MOVE.B  D7,D0>                                           {}
            <MI 2148e  EXTB.W  D0>                                              {}
            <MI 21490  MULS.W  #0x0a,D0>                                        {}
            <MI 21492  LEA.L   0x20688,A0>                                      {}
            <Blob 0x21496 [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 214a6-214a8 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x214a8>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x214a8 4>                       Δ-4        
                <Const 0x214ac 0x1.2>                        Δ-2        
                <Const 0x214ae 0xa.2>                        Δ-2        
                <Call 0x214b0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 214b6-214b8 StackAdj>                   Δ+8        
            <MI 214b8  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«10»]}
            <POP 214ba-214bc StackAdj>                       Δ+4                {[-6-]}
            <MI 214bc  MOVE.L  (A6-0x6),(A7)>                                   {[-2-]|[4, '(A6-0x6)']}
            <MI 214be  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x8)']}
            <Call 0x214c2 0x102c8>                                              {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x8)']}
                StringEqual(a, b : String) : Byte
            <POP 214c8-214ca StackAdj>                       Δ+8                {[-2-]}
            <MI 214ca  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 214cc  EXTB.W  D0>                                              {}
            <POP 0x214ce LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 214d0  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x214d2 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x214d4 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 214da-214dc StackAdj>                       Δ+4                {}
            <MI 214dc  TST.B   D6>                                              {}
            <MI 214de  BEQ     0x214e6>                                         {}
        <POP 214e0-214e6 Naked>                              Σ0         →0x214ec
            <MI 214e0  MOVE.B  D7,(A6+0xc)>                                     {}
            <MI 214e4  BRA     0x214ec>                                         {}
        <POP 214e6-214ec Naked>                              Σ0         ↓ →0x2148c ←0x2148c
            <MI 214e6  ADDQ.B  #0x1,D7>                                         {}
            <MI 214e8  CMP.B   #0x0b,D7>                                        {}
            <MI 214ea  BLE     0x2148c>                                         {}
        <POP 214ec-214f4 Epilogue>                           Σ0         ←0x214e0

0x214f4


@ 214f4
    <POP 214f4-2156c Body>                                              
        <POP 214f4-2150a Prologue>                           Σ0         ↓
        <POP 2150a-21510 RegCacheLoad>                       Σ0         ↓
        <POP 21510-21512 Naked>                              Σ0         ↓
            <MI 21510  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21512-21522 Naked>                              Σ0         ↓ →0x21546 ←0x21546
            <POP 21512-21514 StackAdj>                       Δ-2                {[-2-]}
            <MI 21514  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21516 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2151c-2151e StackAdj>                       Δ+2                {[-2-]}
            <MI 2151e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21520  BEQ     0x21546>                                         {}
        <POP 21522-21546 Naked>                              Σ0         ↓
            <MI 21522  MOVE.B  D7,D0>                                           {}
            <MI 21524  EXTB.W  D0>                                              {}
            <MI 21526  MOVE.W  D0,D1>                                           {}
            <MI 21528  SUBI.W  #0x000c,D1>                                      {}
            <POP 0x2152c LimitCheck 0x0 ≤ D1 ≤ 0x3>                             {}
            <MI 21530  LEA.L   0x2511a,A0>                                      {}
            <MI 21536  MOVE.B  #0x01,(A0+D1.W+#0x13)>                           {}
            <MI 2153c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2153e 0x25070>                                              {[2, 'D0']}
            <POP 21544-21546 StackAdj>                       Δ+2                {}
        <POP 21546-2154e Naked>                              Σ0         ↓ →0x21512 ←0x21512
            <MI 21546  ADDQ.B  #0x1,D7>                                         {}
            <MI 21548  CMPI.B  #0x0f,D7>                                        {}
            <MI 2154c  BLE     0x21512>                                         {}
        <POP 2154e-2155a Naked>                              Σ0         ↓ →0x21560
            <POP 2154e-21550 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21550 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21556  TST.B   (A7)+>                        Δ+2                {}
            <MI 21558  BEQ     0x21560>                                         {}
        <POP 2155a-21560 Naked>                              Σ0         →0x21564
            <MI 2155a  MOVE.W  #0x4,0x25132>                                    {}
            <MI 2155e  BRA     0x21564>                                         {}
        <POP 21560-21564 Naked>                              Σ0         ↓ ←0x2154e
            <MI 21560  MOVE.W  #0x8,0x25132>                                    {}
        <POP 21564-2156c Epilogue>                           Σ0         ←0x2155a

0x2156c


@ 2156c
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 2156c-215ec Body>                                              
        <POP 2156c-21582 Prologue>                           Σ0         ↓
        <POP 21582-21586 RegCacheLoad>                       Σ0         ↓
        <POP 21586-215a8 Naked>                              Σ0         ↓ →0x215b6
            <Pointer.fp 0x21586 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21588 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 2158e  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 21592  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x8)']}
            <Pointer.fp 0x21594 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x8)']|[@@-4]}
            <Call 0x21598 0x102fc>                                              {[4, '(A6+0xc)']|[4, '(A6-0x8)']|[@@-4]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 2159e-215a2 StackAdj>                       Δ+12               {}
            <MI 215a2  TST.B   (A6-0x4)>                                        {}
            <MI 215a6  BEQ     0x215b6>                                         {}
        <POP 215a8-215b6 Naked>                              Σ0         →0x215cc
            <Pointer.fp 0x215a8 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x215ac 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 215b2-215b4 StackAdj>                       Δ+4                {}
            <MI 215b4  BRA     0x215cc>                                         {}
        <POP 215b6-215cc Naked>                              Σ0         ↓ ←0x21586
            <Pointer.fp 0x215b6 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x215b8 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <MI 215be  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0x8)']}
            <Call 0x215c2 0x103e4>                                              {[@@-8]|[4, '(A6+0x8)']}
                AskConsoleString(prompt : String) : String
            <POP 215c8-215ca StackAdj>                       Δ+4                {[@@-8]}
            <MI 215ca  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
        <POP 215cc-215e4 Naked>                              Σ0         ↓ ←0x215a8
            <POP 215cc-215ce StackAdj>                       Δ-8                {[-8-]}
            <MI 215ce  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x215d0 0x10.4>                           Δ-4                {[-8-]|[4, '(A6-0x8)']|[##16]}
            <Call 0x215d4 0x10360>                                              {[-8-]|[4, '(A6-0x8)']|[##16]}
                ?StringToInt64()
            <POP 215da-215dc StackAdj>                       Δ+8                {[-8-]}
            <MI 215dc  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {[-4-]}
            <MI 215e0  MOVE.L  (A7)+,(A6+0x14)>              Δ+4                {}
        <POP 215e4-215ec Epilogue>                           Σ0         

0x215ec


@ 215ec
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 215ec-21660 Body>                                              
        <POP 215ec-21602 Prologue>                           Σ0         ↓
        <POP 21602-21606 RegCacheLoad>                       Σ0         ↓
        <POP 21606-21628 Naked>                              Σ0         ↓ →0x21642
            <Pointer.fp 0x21606 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x21608 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 2160e  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 21612  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Pointer.fp 0x21614 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
            <Call 0x21618 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 2161e-21622 StackAdj>                       Δ+12               {}
            <MI 21622  TST.B   (A6-0x4)>                                        {}
            <MI 21626  BEQ     0x21642>                                         {}
        <POP 21628-21642 Naked>                              Σ0         →0x21658
            <POP 21628-2162a StackAdj>                       Δ-8                {[-8-]}
            <MI 2162a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x2162c 0x10.4>                           Δ-4                {[-8-]|[4, '(A6-0x8)']|[##16]}
            <Call 0x21630 0x10360>                                              {[-8-]|[4, '(A6-0x8)']|[##16]}
                ?StringToInt64()
            <POP 21636-21638 StackAdj>                       Δ+8                {[-8-]}
            <MI 21638  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[-4-]}
            <MI 2163c  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
            <MI 21640  BRA     0x21658>                                         {}
        <POP 21642-21658 Naked>                              Σ0         ↓ ←0x21606
            <MI 21642  MOVE.L  0x20708,(A6+0xc)>                                {}
            <MI 21648  MOVE.L  0x2070c,(A6+0x10)>                               {}
            <Pointer.fp 0x2164e <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x21650 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21656-21658 StackAdj>                       Δ+4                {}
        <POP 21658-21660 Epilogue>                           Σ0         ←0x21628

0x21660


@ 21660
        <LVAR  0x018 4(w)>
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
    <POP 21660-216fa Body>                                              
        <POP 21660-21676 Prologue>                           Σ0         ↓
        <POP 21676-2167e RegCacheLoad>                       Σ0         ↓
        <POP 2167e-2168e Naked>                              Σ0 Δ-4     ↓
            <MI 2167e  MOVE.L  0x20700,(A6-0x8)>                                {}
            <MI 21682  MOVE.L  0x20704,(A6-0x4)>                                {}
            <MI 21686  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 2168a  MOVE.L  (A6+0xc),D7>                                     {[4, '(A6+0x8)']}
        <POP 2168e-21692 Naked>                              Σ-4        ↓ →0x216e8 ←0x216be
            <MI 2168e  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 21690  BGT     0x216e8>                                         {[-4-]}
        <POP 21692-216be Naked>                              Σ-4 Δ-24   ↓
            <POP 21692-21694 StackAdj>                       Δ-8                {[-12-]}
            <MI 21694  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x4)']}
            <MI 21696  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Const 0x21698 0x8.4>                            Δ-4                {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[##8]}
            <Call 0x2169c 0x10344>                                              {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[##8]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 216a2-216a6 StackAdj>                       Δ+12               {[-12-]}
            <MI 216a6  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-8-]}
            <MI 216a8  MOVE.L  (A7),(A6-0x4)>                                   {[-8-]}
            <POP 216aa-216ac StackAdj>                       Δ-4                {[-12-]}
            <MI 216ac  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x4)']}
            <MI 216ae  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <POP 216b0-216b2 StackAdj>                       Δ-8                {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[-8-]}
            <MI 216b2  MOVEA.L (A6+0x10),A0>                                    {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[-8-]}
            <MI 216b6  MOVE.L  D7,D0>                                           {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[-8-]}
            <MI 216b8  CMP.L   (A6+0x8),D0>                                     {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[-8-]}
            <MI 216bc  BGT     0x216c4>                                         {[-12-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[-8-]}
        <POP 216be-216e8 Naked>                              Σ-28 Δ+24  ↓ →0x2168e
            <POP 0x216be LimitCheck>                                            {[-28-]}
                <MI 216be  SUB.L   (A6+0xc),D0>                         
                <MI 216c2  BGE     0x216c6>                             
                <MI 216c4  TRAP    #15>                                 
            <MI 216c6  CLR.L   D1>                                              {[-28-]}
            <MI 216c8  MOVE.B  (A0+D0.L),D1>                                    {[-28-]}
            <MI 216cc  MOVE.L  D1,-(A7)>                     Δ-4                {[-28-]|[4, 'D1']}
            <Call 0x216ce 0x10354>                                              {[-28-]|[4, 'D1']}
                Long2Quad(a : Long) : Quad
            <POP 216d4-216d6 StackAdj>                       Δ+4                {[-28-]}
            <Call 0x216d6 0x10314>                                              {[-28-]}
                Add(a, b : Quad) : Quad
            <POP 216dc-216e0 StackAdj>                       Δ+16               {[-12-]}
            <MI 216e0  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-8-]}
            <MI 216e2  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-4-]}
            <MI 216e4  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 216e6  BVC     0x2168e>                                         {[-4-]}
        <POP 216e8-216f2 Naked>                              Σ-4 Δ+4    ↓ ←0x2168e
            <POP 216e8-216ea StackAdj>                       Δ+4                {}
            <MI 216ea  MOVE.L  (A6-0x8),(A6+0x14)>                              {}
            <MI 216ee  MOVE.L  (A6-0x4),(A6+0x18)>                              {}
        <POP 216f2-216fa Epilogue>                           Σ0         

0x216fa


@ 216fa
        <LVAR  0x010 2(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
    <POP 216fa-217ba Body>                                              
        <POP 216fa-21710 Prologue>                           Σ0         ↓
        <POP 21710-2171e RegCacheLoad>                       Σ0         ↓
        <POP 2171e-21784 Naked>                              Σ0         ↓ →0x217b2
            <POP 2171e-21720 StackAdj>                       Δ-12               {[-12-]}
            <MI 21720  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 21722  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Blob 0x21724 [4] @>                             Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[«4""»]}
            <Blob 0x21728 [4] @>                             Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[«4""»]|[«4""»]}
            <Call 0x2172c 0x10330>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 21732-21734 StackAdj>                       Δ+16               {[-12-]}
            <Call 0x21734 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 2173a-2173c StackAdj>                       Δ+8                {[-4-]}
            <MI 2173c  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x2173e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21748  MOVE.W  D0,(A6+0x10)>                                    {}
            <POP 2174c-2174e StackAdj>                       Δ-8                {[-8-]}
            <MI 2174e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']}
            <MI 21750  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x21752 0xfffffff8.4>                     Δ-4                {[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967288]}
            <Call 0x21756 0x10344>                                              {[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967288]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 2175c-2175e StackAdj>                       Δ+12               {[-8-]}
            <MI 2175e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-4-]}
            <MI 21762  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 21766-21768 StackAdj>                       Δ+2                {[-2-]}
            <MI 21768  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <MI 2176c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Blob 0x21770 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]}
            <Blob 0x21774 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
            <Call 0x21778 0x1032c>                                              {[-2-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 2177e-21780 StackAdj>                       Δ+16               {[-2-]}
            <MI 21780  TST.B   (A7)+>                        Δ+2                {}
            <MI 21782  BNE     0x217b2>                                         {}
        <POP 21784-217b2 Naked>                              Σ0         ↓
            <Blob 0x21784 [34] @>                            Δ-34               {[«34""»]}
            <POP 21790-21792 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x21792 34>                                                    {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]}
            <POP 217a2-217a4 StackAdj>                       Δ-4                {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]|[-4-]}
            <MI 217a4  MOVE.L  (A6+0xc),(A7)>                                   {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']}
            <MI 217a6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x217a8 0x1.2>                            Δ-2                {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <Call 0x217aa 0x213be>                                              {[«34""»]|[$$GET_STRING_1 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <POP 217ae-217b2 StackAdj>                       Δ+48               {}
        <POP 217b2-217ba Epilogue>                           Σ0         ←0x2171e

0x217ba


@ 217ba
        <LVAR  0x010 2(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 2(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 217ba-21890 Body>                                              
        <POP 217ba-217d0 Prologue>                           Σ0         ↓
        <POP 217d0-217de RegCacheLoad>                       Σ0         ↓
        <POP 217de-217e8 Naked>                              Σ0         ↓
            <MI 217de  MOVE.L  (A6+0x8),(A6-0x10)>                              {}
            <MI 217e2  MOVE.L  (A6+0xc),(A6-0xc)>                               {}
            <MI 217e6  MOVEQ.L #0x01,D7>                                        {}
        <POP 217e8-21836 Naked>                              Σ0         ↓ →0x217e8 ←0x217e8
            <POP 0x217e8 LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {}
            <POP 217ee-217f0 StackAdj>                       Δ-12               {[-12-]}
            <MI 217f0  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xc)']}
            <MI 217f2  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Blob 0x217f4 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]}
            <Blob 0x217f8 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
            <Call 0x217fc 0x10330>                                              {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 21802-21804 StackAdj>                       Δ+16               {[-12-]}
            <Call 0x21804 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 2180a-2180c StackAdj>                       Δ+8                {[-4-]}
            <MI 2180c  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x2180e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21818  MOVE.B  D0,(A6+D7.L-#0x8)>                               {}
            <POP 2181c-2181e StackAdj>                       Δ-8                {[-8-]}
            <MI 2181e  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 21820  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x21822 0xfffffff8.4>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967288]}
            <Call 0x21826 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967288]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 2182c-2182e StackAdj>                       Δ+12               {[-8-]}
            <MI 2182e  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 21830  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 21832  SUBQ.L  #0x1,D7>                                         {}
            <MI 21834  BGE     0x217e8>                                         {}
        <POP 21836-21856 Naked>                              Σ0         ↓ →0x21888
            <MI 21836  MOVE.W  (A6-0x8),(A6+0x10)>                              {}
            <POP 2183c-2183e StackAdj>                       Δ-2                {[-2-]}
            <MI 2183e  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xc)']}
            <MI 21840  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Blob 0x21842 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]}
            <Blob 0x21846 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
            <Call 0x2184a 0x1032c>                                              {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21850-21852 StackAdj>                       Δ+16               {[-2-]}
            <MI 21852  TST.B   (A7)+>                        Δ+2                {}
            <MI 21854  BNE     0x21888>                                         {}
        <POP 21856-21888 Naked>                              Σ0         ↓
            <Blob 0x21856 [34] @>                            Δ-34               {[«34""»]}
            <POP 21862-21864 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x21864 34>                                                    {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]}
            <POP 21874-21876 StackAdj>                       Δ-4                {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]|[-4-]}
            <MI 21876  MOVE.L  (A6+0xc),(A7)>                                   {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']}
            <MI 2187a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x2187e 0x1.2>                            Δ-2                {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <Call 0x21880 0x213be>                                              {[«34""»]|[$$GET_STRING_2 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <POP 21884-21888 StackAdj>                       Δ+48               {}
        <POP 21888-21890 Epilogue>                           Σ0         ←0x21836

0x21890


@ 21890
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 21890-2196a Body>                                              
        <POP 21890-218a6 Prologue>                           Σ0         ↓
        <POP 218a6-218b4 RegCacheLoad>                       Σ0         ↓
        <POP 218b4-218be Naked>                              Σ0         ↓
            <MI 218b4  MOVE.L  (A6+0x8),(A6-0x10)>                              {}
            <MI 218b8  MOVE.L  (A6+0xc),(A6-0xc)>                               {}
            <MI 218bc  MOVEQ.L #0x03,D7>                                        {}
        <POP 218be-21910 Naked>                              Σ0         ↓ →0x218be ←0x218be
            <POP 0x218be LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <POP 218c8-218ca StackAdj>                       Δ-12               {[-12-]}
            <MI 218ca  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xc)']}
            <MI 218cc  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Blob 0x218ce [4] @>                             Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]}
            <Blob 0x218d2 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
            <Call 0x218d6 0x10330>                                              {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 218dc-218de StackAdj>                       Δ+16               {[-12-]}
            <Call 0x218de 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 218e4-218e6 StackAdj>                       Δ+8                {[-4-]}
            <MI 218e6  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x218e8 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 218f2  MOVE.B  D0,(A6+D7.L-#0x8)>                               {}
            <POP 218f6-218f8 StackAdj>                       Δ-8                {[-8-]}
            <MI 218f8  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 218fa  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x218fc 0xfffffff8.4>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967288]}
            <Call 0x21900 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967288]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 21906-21908 StackAdj>                       Δ+12               {[-8-]}
            <MI 21908  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 2190a  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 2190c  SUBQ.L  #0x1,D7>                                         {}
            <MI 2190e  BGE     0x218be>                                         {}
        <POP 21910-21930 Naked>                              Σ0         ↓ →0x21962
            <MI 21910  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
            <POP 21916-21918 StackAdj>                       Δ-2                {[-2-]}
            <MI 21918  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xc)']}
            <MI 2191a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Blob 0x2191c [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]}
            <Blob 0x21920 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
            <Call 0x21924 0x1032c>                                              {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 2192a-2192c StackAdj>                       Δ+16               {[-2-]}
            <MI 2192c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2192e  BNE     0x21962>                                         {}
        <POP 21930-21962 Naked>                              Σ0         ↓
            <Blob 0x21930 [34] @>                            Δ-34               {[«34""»]}
            <POP 2193c-2193e StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2193e 34>                                                    {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]}
            <POP 2194e-21950 StackAdj>                       Δ-4                {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]|[-4-]}
            <MI 21950  MOVE.L  (A6+0xc),(A7)>                                   {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']}
            <MI 21954  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x21958 0x1.2>                            Δ-2                {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <Call 0x2195a 0x213be>                                              {[«34""»]|[$$GET_STRING_4 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <POP 2195e-21962 StackAdj>                       Δ+48               {}
        <POP 21962-2196a Epilogue>                           Σ0         ←0x21910

0x2196a


@ 2196a
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(r)>
        <LVAR -0x00c 4(r)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 2196a-21a4a Body>                                              
        <POP 2196a-21980 Prologue>                           Σ0         ↓
        <POP 21980-2198e RegCacheLoad>                       Σ0         ↓
        <POP 2198e-21998 Naked>                              Σ0         ↓
            <MI 2198e  MOVE.L  (A6+0x8),(A6-0x14)>                              {}
            <MI 21992  MOVE.L  (A6+0xc),(A6-0x10)>                              {}
            <MI 21996  MOVEQ.L #0x07,D7>                                        {}
        <POP 21998-219ea Naked>                              Σ0         ↓ →0x21998 ←0x21998
            <POP 0x21998 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <POP 219a2-219a4 StackAdj>                       Δ-12               {[-12-]}
            <MI 219a4  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x10)']}
            <MI 219a6  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Blob 0x219a8 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]}
            <Blob 0x219ac [4] @>                             Δ-4                {[-12-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]|[«4""»]}
            <Call 0x219b0 0x10330>                                              {[-12-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 219b6-219b8 StackAdj>                       Δ+16               {[-12-]}
            <Call 0x219b8 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 219be-219c0 StackAdj>                       Δ+8                {[-4-]}
            <MI 219c0  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x219c2 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 219cc  MOVE.B  D0,(A6+D7.L-#0xc)>                               {}
            <POP 219d0-219d2 StackAdj>                       Δ-8                {[-8-]}
            <MI 219d2  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x10)']}
            <MI 219d4  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Const 0x219d6 0xfffffff8.4>                     Δ-4                {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[##4294967288]}
            <Call 0x219da 0x10344>                                              {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[##4294967288]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 219e0-219e2 StackAdj>                       Δ+12               {[-8-]}
            <MI 219e2  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 219e4  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 219e6  SUBQ.L  #0x1,D7>                                         {}
            <MI 219e8  BGE     0x21998>                                         {}
        <POP 219ea-21a10 Naked>                              Σ0         ↓ →0x21a42
            <MI 219ea  MOVE.L  (A6-0xc),(A6+0x10)>                              {}
            <MI 219f0  MOVE.L  (A6-0x8),(A6+0x14)>                              {}
            <POP 219f6-219f8 StackAdj>                       Δ-2                {[-2-]}
            <MI 219f8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']}
            <MI 219fa  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Blob 0x219fc [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]}
            <Blob 0x21a00 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]|[«4""»]}
            <Call 0x21a04 0x1032c>                                              {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21a0a-21a0c StackAdj>                       Δ+16               {[-2-]}
            <MI 21a0c  TST.B   (A7)+>                        Δ+2                {}
            <MI 21a0e  BNE     0x21a42>                                         {}
        <POP 21a10-21a42 Naked>                              Σ0         ↓
            <Blob 0x21a10 [34] @>                            Δ-34               {[«34""»]}
            <POP 21a1c-21a1e StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x21a1e 34>                                                    {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]}
            <POP 21a2e-21a30 StackAdj>                       Δ-4                {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]|[-4-]}
            <MI 21a30  MOVE.L  (A6+0xc),(A7)>                                   {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']}
            <MI 21a34  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x21a38 0x1.2>                            Δ-2                {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <Call 0x21a3a 0x213be>                                              {[«34""»]|[$$GET_STRING_8 : ARGUMENT TOO BIG =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <POP 21a3e-21a42 StackAdj>                       Δ+48               {}
        <POP 21a42-21a4a Epilogue>                           Σ0         ←0x219ea

0x21a4a


@ 21a4a
        <LVAR  0x010 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21a4a-21b26 Body>                                              
        <POP 21a4a-21a60 Prologue>                           Σ0         ↓
        <POP 21a60-21a6c RegCacheLoad>                       Σ0         ↓
        <POP 21a6c-21a82 Naked>                              Σ0         ↓ →0x21a8e
            <POP 21a6c-21a6e StackAdj>                       Δ-4                {[-4-]}
            <MI 21a6e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 21a72  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x21a76 0x10350>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                Quad2Long(a : Quad) : Long
            <POP 21a7c-21a7e StackAdj>                       Δ+8                {[-4-]}
            <MI 21a7e  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 21a80  BLT     0x21a8e>                                         {}
        <POP 21a82-21a8a Naked>                              Σ0         ↓ →0x21a8e
            <MI 21a82  CMPI.L  #0x00000003,D7>                                  {}
            <MI 21a88  BGT     0x21a8e>                                         {}
        <POP 21a8a-21a8e Naked>                              Σ0         →0x21b1c
            <MI 21a8a  BRA     0x21b1c>                                         {}
        <POP 21a8e-21a96 Naked>                              Σ0         ↓ →0x21ab4 ←0x21a6c ←0x21a82
            <MI 21a8e  CMPI.L  #0x00000004,D7>                                  {}
            <MI 21a94  BLT     0x21ab4>                                         {}
        <POP 21a96-21a9e Naked>                              Σ0         ↓ →0x21ab4
            <MI 21a96  CMPI.L  #0x00000007,D7>                                  {}
            <MI 21a9c  BGT     0x21ab4>                                         {}
        <POP 21a9e-21aaa Naked>                              Σ0         ↓ →0x21ab0
            <POP 21a9e-21aa0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21aa0 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21aa6  TST.B   (A7)+>                        Δ+2                {}
            <MI 21aa8  BEQ     0x21ab0>                                         {}
        <POP 21aaa-21ab0 Naked>                              Σ0         →0x21ab2
            <MI 21aaa  MOVE.B  #0x0d,(A6+0x10)>                                 {}
            <MI 21aae  BRA     0x21ab2>                                         {}
        <POP 21ab0-21ab2 Naked>                              Σ0         ↓ ←0x21a9e
            <MI 21ab0  MOVE.B  #0x0c,(A6+0x10)>                                 {}
        <POP 21ab2-21ab4 Naked>                              Σ0         →0x21b1e ←0x21aaa
            <MI 21ab2  BRA     0x21b1e>                                         {}
        <POP 21ab4-21abc Naked>                              Σ0         ↓ →0x21ac8 ←0x21a8e ←0x21a96
            <MI 21ab4  CMPI.L  #0x00000008,D7>                                  {}
            <MI 21aba  BLT     0x21ac8>                                         {}
        <POP 21abc-21ac4 Naked>                              Σ0         ↓ →0x21ac8
            <MI 21abc  CMPI.L  #0x0000000b,D7>                                  {}
            <MI 21ac2  BGT     0x21ac8>                                         {}
        <POP 21ac4-21ac8 Naked>                              Σ0         →0x21b1e
            <MI 21ac4  MOVE.B  #0x0e,(A6+0x10)>                                 {}
            <MI 21ac6  BRA     0x21b1e>                                         {}
        <POP 21ac8-21acc Naked>                              Σ0         ↓ →0x21ae4 ←0x21ab4 ←0x21abc
            <MI 21ac8  CMP.L   #0x0c,D7>                                        {}
            <MI 21aca  BLT     0x21ae4>                                         {}
        <POP 21acc-21ad0 Naked>                              Σ0         ↓ →0x21ae4
            <MI 21acc  CMP.L   #0x0f,D7>                                        {}
            <MI 21ace  BGT     0x21ae4>                                         {}
        <POP 21ad0-21adc Naked>                              Σ0         ↓ →0x21ae0
            <POP 21ad0-21ad2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ad2 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21ad8  TST.B   (A7)+>                        Δ+2                {}
            <MI 21ada  BEQ     0x21ae0>                                         {}
        <POP 21adc-21ae0 Naked>                              Σ0         →0x21ae2
            <MI 21adc  MOVE.B  #0x0f,(A6+0x10)>                                 {}
            <MI 21ade  BRA     0x21ae2>                                         {}
        <POP 21ae0-21ae2 Naked>                              Σ0         ↓ ←0x21ad0
            <MI 21ae0  MOVE.B  #0x0e,(A6+0x10)>                                 {}
        <POP 21ae2-21ae4 Naked>                              Σ0         →0x21b1e ←0x21adc
            <MI 21ae2  BRA     0x21b1e>                                         {}
        <POP 21ae4-21b1c Naked>                              Σ0         ↓ ←0x21ac8 ←0x21acc
            <Blob 0x21ae4 [38] @>                            Δ-38               {[«38""»]}
            <POP 21af6-21af8 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x21af8 37>                                                    {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]}
            <POP 21b08-21b0a StackAdj>                       Δ-4                {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]|[-4-]}
            <MI 21b0a  MOVE.L  (A6+0xc),(A7)>                                   {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]|[4, '(A6+0xc)']}
            <MI 21b0e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x21b12 0x1.2>                            Δ-2                {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <Call 0x21b14 0x213be>                                              {[«38""»]|[$$ERROR : SET NUMBER IS TOO BIG, SET =_]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[#1]}
            <POP 21b18-21b1c StackAdj>                       Δ+52               {}
        <POP 21b1c-21b1e Naked>                              Σ0         ↓ ←0x21a8a
            <MI 21b1c  MOVE.B  #0x0c,(A6+0x10)>                                 {}
        <POP 21b1e-21b26 Epilogue>                           Σ0         ←0x21ab2 ←0x21ac4 ←0x21ae2

0x21b26


@ 21b26
        <LVAR  0x010 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21b26-21b7e Body>                                              
        <POP 21b26-21b3c Prologue>                           Σ0         ↓
        <POP 21b3c-21b3e RegCacheLoad>                       Σ0         ↓
        <POP 21b3e-21b76 Naked>                              Σ0         ↓
            <POP 21b3e-21b40 StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x21b40 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x21b44 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <POP 21b48-21b4a StackAdj>                       Δ-8                {[-2-]|[«4""»]|[«4""»]|[-8-]}
            <MI 21b4a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0xc)']}
            <MI 21b4e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x21b52 0x33.4>                           Δ-4                {[-2-]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]}
            <Const 0x21b56 0x6.4>                            Δ-4                {[-2-]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]|[##6]}
            <Call 0x21b5a 0x1034c>                                              {[-2-]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]|[##6]}
                FSCALL_1034c
            <POP 21b60-21b62 StackAdj>                       Δ+16               {[-2-]|[«4""»]|[«4""»]|[-8-]}
            <Call 0x21b62 0x1032c>                                              {[-2-]|[«4""»]|[«4""»]|[-8-]}
                IsEqual(a, b : Quad) : Bool
            <POP 21b68-21b6a StackAdj>                       Δ+16               {[-2-]}
            <MI 21b6a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21b6c  EXTB.W  D0>                                              {}
            <POP 0x21b6e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21b72  MOVE.B  D0,(A6+0x10)>                                    {}
        <POP 21b76-21b7e Epilogue>                           Σ0         

0x21b7e


@ 21b7e
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 2(r) 4(rw)>
        <LVAR -0x016 2(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
    <POP 21b7e-21c1c Body>                                              
        <POP 21b7e-21b94 Prologue>                           Σ0         ↓
        <POP 21b94-21b9e RegCacheLoad>                       Σ0         ↓
        <POP 21b9e-21bb4 Naked>                              Σ0         ↓
            <MI 21b9e  MOVE.L  (A6+0x8),(A6-0x14)>                              {}
            <MI 21ba2  MOVE.L  (A6+0xc),(A6-0x10)>                              {}
            <MI 21ba6  MOVE.L  0x20700,(A6-0x1c)>                               {}
            <MI 21bac  MOVE.L  0x20704,(A6-0x18)>                               {}
            <MI 21bb2  MOVEQ.L #0x00,D5>                                        {}
        <POP 21bb4-21bb8 Naked>                              Σ0         ↓ ←0x21be0
            <MI 21bb4  MOVEQ.L #0x00,D7>                                        {}
            <MI 21bb6  MOVEQ.L #0x00,D6>                                        {}
        <POP 21bb8-21bc0 Naked>                              Σ0         ↓ →0x21bc2 ←0x21bc2
            <MI 21bb8  MOVE.W  (A6-0x14),D0>                                    {}
            <MI 21bba  ANDI.W  #0x8000,D0>                                      {}
            <MI 21bbe  BEQ     0x21bc2>                                         {}
        <POP 21bc0-21bc2 Naked>                              Σ0         ↓
            <MI 21bc0  ADDQ.L  #0x1,D7>                                         {}
        <POP 21bc2-21be0 Naked>                              Σ0         ↓ →0x21bb8 ←0x21bb8
            <POP 21bc2-21bc4 StackAdj>                       Δ-8                {[-8-]}
            <MI 21bc4  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x10)']}
            <MI 21bc6  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Const 0x21bc8 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[##1]}
            <Call 0x21bcc 0x10344>                                              {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[##1]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 21bd2-21bd6 StackAdj>                       Δ+12               {[-8-]}
            <MI 21bd6  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 21bd8  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 21bda  ADDQ.L  #0x1,D6>                                         {}
            <MI 21bdc  CMP.L   #0x07,D6>                                        {}
            <MI 21bde  BLE     0x21bb8>                                         {}
        <POP 21be0-21c08 Naked>                              Σ0         ↓ →0x21bb4
            <MI 21be0  MOVE.W  (A6-0x16),D0>                                    {}
            <MI 21be4  MULU.W  #0x2,D0>                                         {}
            <MI 21be8  MOVE.L  D7,D4>                                           {}
            <MI 21bea  MOVEQ.L #0x02,D3>                                        {}
            <Call 0x21bec 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21bf2  ADD.L   D0,D3>                                           {}
            <POP 0x21bf4 LimitCheck 0x0 ≤ D3 ≤ 0xffff>                          {}
            <MI 21bfe  MOVE.W  D3,(A6-0x16)>                                    {}
            <MI 21c02  ADDQ.L  #0x1,D5>                                         {}
            <MI 21c04  CMP.L   #0x07,D5>                                        {}
            <MI 21c06  BLE     0x21bb4>                                         {}
        <POP 21c08-21c14 Naked>                              Σ0         ↓
            <MI 21c08  MOVE.L  (A6-0x1c),(A6+0x10)>                             {}
            <MI 21c0e  MOVE.L  (A6-0x18),(A6+0x14)>                             {}
        <POP 21c14-21c1c Epilogue>                           Σ0         

0x21c1c


@ 21c1c
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 2(r) 4(rw)>
    <POP 21c1c-21c9a Body>                                              
        <POP 21c1c-21c32 Prologue>                           Σ0         ↓
        <POP 21c32-21c3a RegCacheLoad>                       Σ0         ↓
        <POP 21c3a-21c46 Naked>                              Σ0         ↓
            <MI 21c3a  MOVE.L  (A6+0x8),(A6-0x10)>                              {}
            <MI 21c3e  MOVE.L  (A6+0xc),(A6-0xc)>                               {}
            <MI 21c42  MOVEQ.L #0x00,D7>                                        {}
            <MI 21c44  MOVEQ.L #0x00,D6>                                        {}
        <POP 21c46-21c4e Naked>                              Σ0         ↓ →0x21c50 ←0x21c50
            <MI 21c46  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 21c48  ANDI.W  #0x8000,D0>                                      {}
            <MI 21c4c  BEQ     0x21c50>                                         {}
        <POP 21c4e-21c50 Naked>                              Σ0         ↓
            <MI 21c4e  ADDQ.L  #0x1,D7>                                         {}
        <POP 21c50-21c72 Naked>                              Σ0         ↓ →0x21c46 ←0x21c46
            <POP 21c50-21c52 StackAdj>                       Δ-8                {[-8-]}
            <MI 21c52  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 21c54  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x21c56 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##1]}
            <Call 0x21c5a 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##1]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 21c60-21c64 StackAdj>                       Δ+12               {[-8-]}
            <MI 21c64  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 21c66  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 21c68  ADDQ.L  #0x1,D6>                                         {}
            <MI 21c6a  CMPI.L  #0x0000003f,D6>                                  {}
            <MI 21c70  BLE     0x21c46>                                         {}
        <POP 21c72-21c78 Naked>                              Σ0         ↓ →0x21c86
            <MI 21c72  BTST.L  #0x0,D7>                                         {}
            <MI 21c76  BEQ     0x21c86>                                         {}
        <POP 21c78-21c86 Naked>                              Σ0         →0x21c92
            <MI 21c78  MOVE.L  0x20708,(A6+0x10)>                               {}
            <MI 21c7e  MOVE.L  0x2070c,(A6+0x14)>                               {}
            <MI 21c84  BRA     0x21c92>                                         {}
        <POP 21c86-21c92 Naked>                              Σ0         ↓ ←0x21c72
            <MI 21c86  MOVE.L  0x20700,(A6+0x10)>                               {}
            <MI 21c8c  MOVE.L  0x20704,(A6+0x14)>                               {}
        <POP 21c92-21c9a Epilogue>                           Σ0         ←0x21c78

0x21c9a


@ 21c9a
        <LVAR  0x02a 4(w)>
        <LVAR  0x026 4(w)>
        <LVAR  0x022 4(r)>
        <LVAR  0x01e 4(r)>
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00e 4(rw)>
    <POP 21c9a-21d8a Body>                                              
        <POP 21c9a-21cb0 Prologue>                           Σ0         ↓
        <POP 21cb0-21cbc RegCacheLoad>                       Σ0         ↓
        <POP 21cbc-21d5a Naked>                              Σ0         ↓ →0x21d7a
            <MI 21cbc  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21cc0-21cc2 StackAdj>                       Δ-16               {[-16-]}
            <MI 21cc2  MOVEA.L A7,A1>                                           {[-16-]}
            <MI 21cc4  MOVEA.L A0,A2>                                           {[-16-]}
            <BlockMove 8,A2,A1>                                                 {[-16-]}
            <Const 0x21cce 0x1.4>                            Δ-4                {[-16-]|[##1]}
            <Call 0x21cd2 0x10344>                                              {[-16-]|[##1]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 21cd8-21cdc StackAdj>                       Δ+12               {[-8-]}
            <MI 21cdc  MOVEA.L A0,A1>                                           {[-8-]}
            <MI 21cde  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <POP 21ce8-21cea StackAdj>                       Δ-24               {[-32-]}
            <MI 21cea  MOVEA.L (A6+0x22),A1>                                    {[-32-]}
            <POP 21cee-21cf0 StackAdj>                       Δ-8                {[-40-]}
            <MI 21cf0  MOVEA.L A7,A2>                                           {[-40-]}
            <BlockMove 8,A1,A2>                                                 {[-40-]}
            <MI 21cfa  MOVE.L  (A6+0x1a),-(A7)>              Δ-4                {[-40-]|[4, '(A6+0x1a)']}
            <MI 21cfe  MOVE.L  (A6+0x16),-(A7)>              Δ-4                {[-40-]|[4, '(A6+0x1a)']|[4, '(A6+0x16)']}
            <Call 0x21d02 0x10330>                                              {[-40-]|[4, '(A6+0x1a)']|[4, '(A6+0x16)']}
                BitAnd(a, b : Quad) : Quad
            <POP 21d08-21d0a StackAdj>                       Δ+8                {[-40-]}
            <MI 21d0a  MOVEA.L (A6+0x1e),A1>                                    {[-40-]}
            <POP 21d0e-21d10 StackAdj>                       Δ-8                {[-48-]}
            <MI 21d10  MOVEA.L A7,A2>                                           {[-48-]}
            <BlockMove 8,A1,A2>                                                 {[-48-]}
            <MI 21d1a  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-48-]|[4, '(A6+0x12)']}
            <MI 21d1e  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-48-]|[4, '(A6+0x12)']|[4, '(A6+0xe)']}
            <Call 0x21d22 0x10330>                                              {[-48-]|[4, '(A6+0x12)']|[4, '(A6+0xe)']}
                BitAnd(a, b : Quad) : Quad
            <POP 21d28-21d2a StackAdj>                       Δ+16               {[-40-]}
            <Call 0x21d2a 0x10340>                                              {[-40-]}
                BitXor(a, b : Quad) : Quad
            <POP 21d30-21d32 StackAdj>                       Δ+16               {[-24-]}
            <Call 0x21d32 0x21c1c>                                              {[-24-]}
            <MI 21d36  MOVEA.L A7,A1>                                           {[-24-]}
            <BlockMove 8,A0,A1>                                                 {[-24-]}
            <Const 0x21d40 0x3f.4>                           Δ-4                {[-24-]|[##63]}
            <Const 0x21d44 0x1.4>                            Δ-4                {[-24-]|[##63]|[##1]}
            <Call 0x21d48 0x10348>                                              {[-24-]|[##63]|[##1]}
                ?BitField_something_()
            <POP 21d4e-21d50 StackAdj>                       Δ+24               {[-8-]}
            <MI 21d50  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[-4-]}
            <MI 21d52  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {}
            <MI 21d54  TST.B   (A6+0xc)>                                        {}
            <MI 21d58  BEQ     0x21d7a>                                         {}
        <POP 21d5a-21d7a Naked>                              Σ0         →0x21d82
            <POP 21d5a-21d5c StackAdj>                       Δ-8                {[-8-]}
            <MI 21d5c  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xa)']}
            <MI 21d5e  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
            <Blob 0x21d60 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[«4""»]}
            <Blob 0x21d64 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[«4""»]|[«4""»]}
            <Call 0x21d68 0x10340>                                              {[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[«4""»]|[«4""»]}
                BitXor(a, b : Quad) : Quad
            <POP 21d6e-21d70 StackAdj>                       Δ+16               {[-8-]}
            <MI 21d70  MOVE.L  (A7)+,(A6+0x26)>              Δ+4                {[-4-]}
            <MI 21d74  MOVE.L  (A7)+,(A6+0x2a)>              Δ+4                {}
            <MI 21d78  BRA     0x21d82>                                         {}
        <POP 21d7a-21d82 Naked>                              Σ0         ↓ ←0x21cbc
            <MI 21d7a  MOVE.L  (A6-0xe),(A6+0x26)>                              {}
            <MI 21d7e  MOVE.L  (A6-0xa),(A6+0x2a)>                              {}
        <POP 21d82-21d8a Epilogue>                           Σ0         ←0x21d5a

0x21d8a


@ 21d8a
        <LVAR  0x01c 4(w)>
        <LVAR  0x018 4(w)>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 21d8a-21e16 Body>                                              
        <POP 21d8a-21da0 Prologue>                           Σ0         ↓
        <POP 21da0-21da8 RegCacheLoad>                       Σ0         ↓
        <POP 21da8-21db2 Naked>                              Σ0         ↓
            <MI 21da8  MOVE.L  0x20700,(A6-0x8)>                                {}
            <MI 21dac  MOVE.L  0x20704,(A6-0x4)>                                {}
            <MI 21db0  MOVEQ.L #0x01,D7>                                        {}
        <POP 21db2-21e06 Naked>                              Σ0         ↓ →0x21db2 ←0x21db2
            <MI 21db2  MOVE.L  D7,D0>                                           {}
            <MI 21db4  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21db6 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 21dc0  MOVE.L  D0,D1>                                           {}
            <MI 21dc2  ASL.L   #0x3,D1>                                         {}
            <POP 21dc4-21dc6 StackAdj>                       Δ-8                {[-8-]}
            <Pointer.fp 0x21dc6 <LVAR  0x010 @>>             Δ-4                {[-8-]|[@@16]}
            <Pointer.fp 0x21dca <LVAR  0x008 @>>             Δ-4                {[-8-]|[@@16]|[@@8]}
            <MI 21dce  LEA.L   0x20730,A0>                                      {[-8-]|[@@16]|[@@8]}
            <MI 21dd2  MOVE.L  (A0+D1.L+#0x4),-(A7)>         Δ-4                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']}
            <MI 21dd6  MOVE.L  (A0+D1.L),-(A7)>              Δ-4                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']}
            <MI 21dda  LEA.L   0x20778,A0>                                      {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']}
            <MI 21dde  MOVE.L  (A0+D1.L+#0x4),-(A7)>         Δ-4                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']}
            <MI 21de2  MOVE.L  (A0+D1.L),-(A7)>              Δ-4                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']}
            <MI 21de6  LEA.L   0x207c0,A0>                                      {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']}
            <MI 21dea  MOVE.B  (A0+D0.L),-(A7)>              Δ-2                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[2, '(A0+D0.L)']}
            <Pointer.fp 0x21dee <LVAR -0x008 @ 4(rw)>>       Δ-4                {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[2, '(A0+D0.L)']|[@@-8]}
            <Call 0x21df0 0x21c9a>                                              {[-8-]|[@@16]|[@@8]|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[4, '(A0+D1.L+#0x4)']|[4, '(A0+D1.L)']|[2, '(A0+D0.L)']|[@@-8]}
            <POP 21df4-21df8 StackAdj>                       Δ+30               {[-8-]}
            <MI 21df8  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-4-]}
            <MI 21dfa  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 21dfc  ADDQ.L  #0x1,D7>                                         {}
            <MI 21dfe  CMPI.L  #0x00000009,D7>                                  {}
            <MI 21e04  BLE     0x21db2>                                         {}
        <POP 21e06-21e0e Naked>                              Σ0         ↓
            <MI 21e06  MOVE.L  (A6-0x8),(A6+0x18)>                              {}
            <MI 21e0a  MOVE.L  (A6-0x4),(A6+0x1c)>                              {}
        <POP 21e0e-21e16 Epilogue>                           Σ0         

0x21e16


@ 21e16
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21e16-21fb8 Body>                                   Δ+8        
        <POP 21e16-21e2c Prologue>                           Σ0         ↓
        <POP 21e2c-21e4a RegCacheLoad>                       Σ0         ↓
        <POP 21e4a-21e74 Naked>                              Σ0         ↓ →0x21eb6
            <POP 21e4a-21e4c StackAdj>                       Δ-4                {[-4-]}
            <MI 21e4c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 21e50  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x21e54 0x10350>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                Quad2Long(a : Quad) : Long
            <POP 21e5a-21e5c StackAdj>                       Δ+8                {[-4-]}
            <MI 21e5c  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x21e5e LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21e68  ASL.L   #0x2,D0>                                         {}
            <MI 21e6a  LEA.L   0x207fa,A0>                                      {}
            <MI 21e6e  MOVE.L  (A0+D0.L),D7>                                    {}
            <MI 21e72  BLT     0x21eb6>                                         {}
        <POP 21e74-21e7c Naked>                              Σ0         ↓ →0x21eb6
            <MI 21e74  CMPI.L  #0x0000003f,D7>                                  {}
            <MI 21e7a  BGT     0x21eb6>                                         {}
        <POP 21e7c-21eb6 Naked>                              Σ0 Δ-8     →0x21f9e
            <Blob 0x21e7c [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21e80 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21e84-21e86 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21e86 8>                                                     {[«4""»]|[«4""»]|[$$TYP BIT_]}
            <Call 0x21e92 0x103d8>                                              {[«4""»]|[«4""»]|[$$TYP BIT_]}
                WriteConsoleString(str : String)
            <POP 21e94-21e96 StackAdj>                       Δ+4                {[«4""»]|[«4""»]}
            <MI 21e96  MOVE.L  D7,(A7)>                                         {[«4""»]|[4, 'D7']}
            <Call 0x21e98 0x102e4>                                              {[«4""»]|[4, 'D7']}
                Long2String(a : Long) : String
            <POP 21e9e-21ea0 StackAdj>                       Δ+4                {[«4""»]}
            <Call 0x21ea0 0x103d8>                                              {[«4""»]}
                WriteConsoleString(str : String)
            <POP 21ea2-21ea3 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21ea3 [8] @>                             Δ-8                {[«8""»]}
            <MI 21eb2  BRA     0x21f9e>                                         {[«8""»]}
        <POP 21eb6-21ebc Naked>                              Σ0         ↓ →0x21f3c ←0x21e4a ←0x21e74
            <MI 21eb6  CMP.L   #-0x40,D7>                                       {}
            <MI 21eb8  BLT     0x21f3c>                                         {}
        <POP 21ebc-21ec4 Naked>                              Σ0         ↓ →0x21f3c
            <MI 21ebc  CMPI.L  #0xffffffff,D7>                                  {}
            <MI 21ec2  BGT     0x21f3c>                                         {}
        <POP 21ec4-21ec8 Naked>                              Σ0         ↓ →0x21eee
            <MI 21ec4  CMP.L   #-0x40,D7>                                       {}
            <MI 21ec6  BNE     0x21eee>                                         {}
        <POP 21ec8-21eee Naked>                              Σ0         →0x21f3a
            <Blob 0x21ec8 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21ecc [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21ed0 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x21ed4 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 21ed8-21eda StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21eda 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$VAL BIT 0 IS BAD]}
            <Call 0x21ee8 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$VAL BIT 0 IS BAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 21eea-21eec StackAdj>                       Δ+20               {}
            <MI 21eec  BRA     0x21f3a>                                         {}
        <POP 21eee-21f3a Naked>                              Σ0         ↓ ←0x21ec4
            <Blob 0x21eee [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21ef2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21ef6-21ef8 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21ef8 8>                                                     {[«4""»]|[«4""»]|[$$VAL BIT_]}
            <Call 0x21f04 0x103d8>                                              {[«4""»]|[«4""»]|[$$VAL BIT_]}
                WriteConsoleString(str : String)
            <POP 21f06-21f08 StackAdj>                       Δ+8                {[«4""»]}
            <Const 0x21f08 0x0.4>                            Δ-4                {[«4""»]|[##0]}
            <MI 21f0c  SUB.L   D7,(A7)>                                         {[«4""»]|[-4-]}
            <Call 0x21f0e 0x102e4>                                              {[«4""»]|[-4-]}
                Long2String(a : Long) : String
            <POP 21f14-21f16 StackAdj>                       Δ+4                {[«4""»]}
            <Call 0x21f16 0x103d8>                                              {[«4""»]}
                WriteConsoleString(str : String)
            <POP 21f18-21f19 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21f19 [8] @>                             Δ-8                {[«8""»]}
            <POP 21f28-21f2a StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x21f2a 7>                                                     {[«8""»]|[$$ IS BAD]}
            <Call 0x21f36 0x103e0>                                              {[«8""»]|[$$ IS BAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f38-21f3a StackAdj>                       Δ+12               {}
        <POP 21f3a-21f3c Naked>                              Σ0         →0x21fb0 ←0x21ec8
            <MI 21f3a  BRA     0x21fb0>                                         {}
        <POP 21f3c-21f44 Naked>                              Σ0         ↓ →0x21f66 ←0x21eb6 ←0x21ebc
            <MI 21f3c  CMPI.L  #0x00000040,D7>                                  {}
            <MI 21f42  BNE     0x21f66>                                         {}
        <POP 21f44-21f66 Naked>                              Σ0         →0x21fb0
            <Blob 0x21f44 [20] @>                            Δ-20               {[«20""»]}
            <POP 21f50-21f52 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21f52 20>                                                    {[«20""»]|[$$Multiple bit error !]}
            <Call 0x21f5e 0x103e0>                                              {[«20""»]|[$$Multiple bit error !]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f60-21f64 StackAdj>                       Δ+24               {}
            <MI 21f64  BRA     0x21fb0>                                         {}
        <POP 21f66-21f9e Naked>                              Σ0 Δ-8     ↓ ←0x21f3c
            <Blob 0x21f66 [4] @>                             Δ-4                {[«4""»]}
            <POP 21f6a-21f6c StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x21f6c 4>                                                     {[«4""»]|[$$CBIT]}
            <Call 0x21f7a 0x103d8>                                              {[«4""»]|[$$CBIT]}
                WriteConsoleString(str : String)
            <MI 21f7c  MOVE.L  D7,(A7)>                                         {[«4""»]|[4, 'D7']}
            <MI 21f7e  SUBI.L  #0x00000046,(A7)>                                {[«4""»]|[-4-]}
            <Call 0x21f84 0x102e4>                                              {[«4""»]|[-4-]}
                Long2String(a : Long) : String
            <POP 21f8a-21f8c StackAdj>                       Δ+4                {[«4""»]}
            <Call 0x21f8c 0x103d8>                                              {[«4""»]}
                WriteConsoleString(str : String)
            <POP 21f8e-21f8f StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21f8f [8] @>                             Δ-8                {[«8""»]}
        <POP 21f9e-21fb0 Naked>                              Σ-8 Δ+8    ↓ ←0x21e7c
            <POP 21f9e-21fa0 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x21fa0>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x21fa0 4>                       Δ-4        
                <Const 0x21fa4 0x1.2>                        Δ-2        
                <Const 0x21fa6 0x7.2>                        Δ-2        
                <Call 0x21fa8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21faa-21fac StackAdj>                   Δ+8        
            <Call 0x21fac 0x103e0>                                              {[-8-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21fae-21fb0 StackAdj>                       Δ+12               {}
        <POP 21fb0-21fb8 Epilogue>                           Σ0         ←0x21f3a ←0x21f44

0x21fb8


@ 21fb8
        <LVAR  0x019 @>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
    <POP 21fb8-22092 Body>                                              
        <POP 21fb8-21fce Prologue>                           Σ0         ↓
        <POP 21fce-21fe0 RegCacheLoad>                       Σ0         ↓
        <POP 21fe0-2201a Naked>                              Σ0         ↓ →0x2208a
            <POP 21fe0-21fe2 StackAdj>                       Δ-18               {[-18-]}
            <Pointer.fp 0x21fe2 <LVAR  0x008 @>>             Δ-4                {[-18-]|[@@8]}
            <Const 0x21fe6 0x0.4>                            Δ-4                {[-18-]|[@@8]|[##0]}
            <Const 0x21fe8 0x7.4>                            Δ-4                {[-18-]|[@@8]|[##0]|[##7]}
            <Call 0x21fea 0x21660>                                              {[-18-]|[@@8]|[##0]|[##7]}
            <POP 21fec-21fee StackAdj>                       Δ+4                {[-18-]|[@@8]|[##0]}
            <Pointer.fp 0x21fee <LVAR  0x010 @>>             Δ-4                {[-18-]|[@@8]|[##0]|[@@16]}
            <Const 0x21ff2 0x0.4>                            Δ-4                {[-18-]|[@@8]|[##0]|[@@16]|[##0]}
            <Const 0x21ff4 0x7.4>                            Δ-4                {[-18-]|[@@8]|[##0]|[@@16]|[##0]|[##7]}
            <Call 0x21ff6 0x21660>                                              {[-18-]|[@@8]|[##0]|[@@16]|[##0]|[##7]}
            <POP 21ff8-21ffa StackAdj>                       Δ+12               {[-18-]|[@@8]|[##0]}
            <Call 0x21ffa 0x21d8a>                                              {[-18-]|[@@8]|[##0]}
            <POP 21ffe-22000 StackAdj>                       Δ+8                {[-18-]}
            <Pointer.fp 0x22000 <LVAR  0x019 @>>             Δ-4                {[-18-]|[@@25]}
            <Const 0x22004 0x0.4>                            Δ-4                {[-18-]|[@@25]|[##0]}
            <Const 0x22006 0x1.4>                            Δ-4                {[-18-]|[@@25]|[##0]|[##1]}
            <Call 0x2200a 0x21660>                                              {[-18-]|[@@25]|[##0]|[##1]}
            <POP 2200c-2200e StackAdj>                       Δ+12               {[-18-]}
            <Call 0x2200e 0x1032c>                                              {[-18-]}
                IsEqual(a, b : Quad) : Bool
            <POP 22014-22016 StackAdj>                       Δ+16               {[-2-]}
            <MI 22016  TST.B   (A7)+>                        Δ+2                {}
            <MI 22018  BNE     0x2208a>                                         {}
        <POP 2201a-2208a Naked>                              Σ0         ↓
            <Call 0x2201a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x22020 [38] @>                            Δ-38               {[«38""»]}
            <POP 22032-22034 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x22034 37>                                                    {[«38""»]|[$$************* ECC ERROR ***********__]}
            <Call 0x22048 0x103d8>                                              {[«38""»]|[$$************* ECC ERROR ***********__]}
                WriteConsoleString(str : String)
            <POP 2204e-22050 StackAdj>                       Δ+18               {[-24-]}
            <Pointer.fp 0x22050 <LVAR  0x008 @>>             Δ-4                {[-24-]|[@@8]}
            <Const 0x22054 0x0.4>                            Δ-4                {[-24-]|[@@8]|[##0]}
            <Const 0x22056 0x7.4>                            Δ-4                {[-24-]|[@@8]|[##0]|[##7]}
            <Call 0x22058 0x21660>                                              {[-24-]|[@@8]|[##0]|[##7]}
            <POP 2205a-2205c StackAdj>                       Δ+4                {[-24-]|[@@8]|[##0]}
            <Pointer.fp 0x2205c <LVAR  0x010 @>>             Δ-4                {[-24-]|[@@8]|[##0]|[@@16]}
            <Const 0x22060 0x0.4>                            Δ-4                {[-24-]|[@@8]|[##0]|[@@16]|[##0]}
            <Const 0x22062 0x7.4>                            Δ-4                {[-24-]|[@@8]|[##0]|[@@16]|[##0]|[##7]}
            <Call 0x22064 0x21660>                                              {[-24-]|[@@8]|[##0]|[@@16]|[##0]|[##7]}
            <POP 22066-22068 StackAdj>                       Δ+12               {[-24-]|[@@8]|[##0]}
            <Call 0x22068 0x21d8a>                                              {[-24-]|[@@8]|[##0]}
            <POP 2206c-2206e StackAdj>                       Δ+8                {[-24-]}
            <Pointer.fp 0x2206e <LVAR  0x019 @>>             Δ-4                {[-24-]|[@@25]}
            <Const 0x22072 0x0.4>                            Δ-4                {[-24-]|[@@25]|[##0]}
            <Const 0x22074 0x1.4>                            Δ-4                {[-24-]|[@@25]|[##0]|[##1]}
            <Call 0x22078 0x21660>                                              {[-24-]|[@@25]|[##0]|[##1]}
            <POP 2207a-2207c StackAdj>                       Δ+12               {[-24-]}
            <Call 0x2207c 0x10340>                                              {[-24-]}
                BitXor(a, b : Quad) : Quad
            <POP 22082-22084 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x22084 0x21e16>                                              {[-8-]}
            <POP 22088-2208a StackAdj>                       Δ+8                {}
        <POP 2208a-22092 Epilogue>                           Σ0         ←0x21fe0

0x22092


@ 22092
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22092-22144 Body>                                              
        <POP 22092-220a8 Prologue>                           Σ0         ↓
        <POP 220a8-220ac RegCacheLoad>                       Σ0         ↓
        <POP 220ac-220d4 Naked>                              Σ0         ↓ →0x2213c
            <POP 220ac-220ae StackAdj>                       Δ-2                {[-2-]}
            <MI 220ae  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']}
            <MI 220b2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 220b6-220b8 StackAdj>                       Δ-8                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <MI 220b8  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]|[4, '(A6+0x14)']}
            <MI 220bc  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x220c0 0x21b7e>                                              {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 220c4-220c6 StackAdj>                       Δ+8                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <Call 0x220c6 0x1032c>                                              {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
                IsEqual(a, b : Quad) : Bool
            <POP 220cc-220d0 StackAdj>                       Δ+16               {[-2-]}
            <MI 220d0  TST.B   (A7)+>                        Δ+2                {}
            <MI 220d2  BNE     0x2213c>                                         {}
        <POP 220d4-2213c Naked>                              Σ0         ↓
            <Call 0x220d4 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x220da [34] @>                            Δ-34               {[«34""»]}
            <POP 220e6-220e8 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x220e8 34>                                                    {[«34""»]|[$$*********** BAD PARITY ***********]}
            <Call 0x220f8 0x103d8>                                              {[«34""»]|[$$*********** BAD PARITY ***********]}
                WriteConsoleString(str : String)
            <POP 220fe-220ff StackAdj>                       Δ+38       ↓       {}
            <Blob 0x220ff [16] @>                            Δ-16               {[«16""»]}
            <POP 22110-22112 StackAdj>                       Δ-4                {[«16""»]|[-4-]}
            <Lit 0x22112 15>                                                    {[«16""»]|[$$ GOOD PARITY =_]}
            <MI 22122  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']}
            <POP 2211c-22122 StackAdj>                       Δ-8                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-8-]}
            <MI 22126  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-8-]|[4, '(A6+0x10)']}
            <Call 0x2212a 0x21b7e>                                              {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-8-]|[4, '(A6+0x10)']}
            <POP 2212e-22130 StackAdj>                       Δ+8                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-4-]}
            <Const 0x22130 0x2.4>                            Δ-4                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-4-]|[##2]}
            <Const 0x22134 0x1.2>                            Δ-2                {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-4-]|[##2]|[#1]}
            <Call 0x22136 0x2140e>                                              {[«16""»]|[$$ GOOD PARITY =_]|[4, '(A6+0x14)']|[-4-]|[##2]|[#1]}
            <POP 2213a-2213c StackAdj>                       Δ+34               {}
        <POP 2213c-22144 Epilogue>                           Σ0         ←0x220ac

0x22144


@ 22144
        <LVAR  0x024 4(w)>
        <LVAR  0x020 4(w)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x020 4(w)>
        <LVAR -0x034 4(rw)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
    <POP 22144-22358 Body>                                              
        <POP 22144-2215a Prologue>                           Σ0         ↓
        <POP 2215a-22172 RegCacheLoad>                       Σ0         ↓
        <POP 22172-2218a Naked>                              Σ0         ↓
            <POP 22172-22174 StackAdj>                       Δ-8                {[-8-]}
            <Const 0x22174 0x7ff.4>                          Δ-4                {[-8-]|[##2047]}
            <Call 0x22178 0x10354>                                              {[-8-]|[##2047]}
                Long2Quad(a : Long) : Quad
            <POP 2217e-22180 StackAdj>                       Δ+4                {[-8-]}
            <MI 22180  MOVE.L  (A7)+,(A6-0x38)>              Δ+4                {[-4-]}
            <MI 22184  MOVE.L  (A7)+,(A6-0x34)>              Δ+4                {}
            <MI 22188  MOVEQ.L #0x00,D7>                                        {}
        <POP 2218a-221a4 Naked>                              Σ0         ↓ →0x2218a ←0x2218a
            <POP 0x2218a LimitCheck 0x0 ≤ D7 ≤ 0xb>                             {}
            <MI 22190  MOVE.L  D7,D0>                                           {}
            <MI 22192  ASL.L   #0x2,D0>                                         {}
            <MI 22194  LEA.L   0x207ca,A0>                                      {}
            <MI 22198  MOVE.L  (A0+D0.L),(A6+D0.L-#0x30)>                       {}
            <MI 2219e  ADDQ.L  #0x1,D7>                                         {}
            <MI 221a0  CMP.L   #0x0b,D7>                                        {}
            <MI 221a2  BLE     0x2218a>                                         {}
        <POP 221a4-221b0 Naked>                              Σ0         ↓ →0x221b8
            <POP 221a4-221a6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x221a6 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 221ac  TST.B   (A7)+>                        Δ+2                {}
            <MI 221ae  BEQ     0x221b8>                                         {}
        <POP 221b0-221b8 Naked>                              Σ0         ↓
            <MI 221b0  MOVE.L  #0x31,(A6-0x20)>                                 {}
        <POP 221b8-2228a Naked>                              Σ0         ↓ ←0x221a4
            <MI 221b8  MOVE.L  0x20700,(A6-0x48)>                               {}
            <MI 221bc  MOVE.L  0x20704,(A6-0x44)>                               {}
            <MI 221c0  MOVE.L  0x20700,(A6-0x40)>                               {}
            <MI 221c6  MOVE.L  0x20704,(A6-0x3c)>                               {}
            <POP 221cc-221ce StackAdj>                       Δ-8                {[-8-]}
            <MI 221ce  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 221d0  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 221d2-221d4 StackAdj>                       Δ-16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <MI 221d4  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']}
            <MI 221d8  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']}
            <Const 0x221dc 0x3e.4>                           Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##62]}
            <Const 0x221e0 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##62]|[##1]}
            <Call 0x221e2 0x1034c>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##62]|[##1]}
                FSCALL_1034c
            <POP 221e4-221e6 StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <Const 0x221e6 0xb.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##11]}
            <Call 0x221ea 0x10344>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##11]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 221f0-221f2 StackAdj>                       Δ+12               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <Call 0x221f2 0x10334>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 221f8-221fa StackAdj>                       Δ+16               {[-8-]}
            <MI 221fa  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 221fc  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <POP 221fe-22200 StackAdj>                       Δ-4                {[-8-]}
            <MI 22200  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 22202  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 22204-22206 StackAdj>                       Δ-16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <MI 22206  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']}
            <MI 2220a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Const 0x2220e 0x2d.4>                           Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##45]}
            <Const 0x22212 0x9.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##45]|[##9]}
            <Call 0x22216 0x1034c>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##45]|[##9]}
                FSCALL_1034c
            <POP 22218-2221a StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <Const 0x2221a 0x2.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##2]}
            <Call 0x2221e 0x10344>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##2]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 22224-22226 StackAdj>                       Δ+12               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <Call 0x22226 0x10334>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 2222c-2222e StackAdj>                       Δ+16               {[-8-]}
            <MI 2222e  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 22230  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <POP 22232-22234 StackAdj>                       Δ-4                {[-8-]}
            <MI 22234  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 22236  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 22238-2223a StackAdj>                       Δ-16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <MI 2223a  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']}
            <MI 2223e  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']}
            <Const 0x22242 0x3d.4>                           Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##61]}
            <Const 0x22246 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##61]|[##1]}
            <Call 0x22248 0x1034c>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##61]|[##1]}
                FSCALL_1034c
            <POP 2224a-2224c StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <Const 0x2224c 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##1]}
            <Call 0x2224e 0x10344>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##1]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 22254-22256 StackAdj>                       Δ+12               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <Call 0x22256 0x10334>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 2225c-2225e StackAdj>                       Δ+16               {[-8-]}
            <MI 2225e  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 22260  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <POP 22262-22264 StackAdj>                       Δ-4                {[-8-]}
            <MI 22264  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 22266  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 22268-2226a StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <MI 2226a  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]|[4, '(A6+0x1c)']}
            <MI 2226e  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']}
            <Const 0x22272 0x3f.4>                           Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##63]}
            <Const 0x22276 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##63]|[##1]}
            <Call 0x22278 0x1034c>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]|[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[##63]|[##1]}
                FSCALL_1034c
            <POP 2227a-2227c StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <Call 0x2227c 0x10334>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 22282-22284 StackAdj>                       Δ+16               {[-8-]}
            <MI 22284  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 22286  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {}
            <MI 22288  MOVEQ.L #0x00,D7>                                        {}
        <POP 2228a-222d6 Naked>                              Σ0         ↓ →0x2228a ←0x2228a
            <POP 2228a-2228c StackAdj>                       Δ-8                {[-8-]}
            <MI 2228c  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']}
            <MI 22290  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 22294-22296 StackAdj>                       Δ-16               {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]}
            <MI 22296  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']}
            <MI 2229a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 0x2229e LimitCheck 0x0 ≤ D7 ≤ 0xb>                             {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 222a4  MOVE.L  D7,D0>                                           {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 222a6  ASL.L   #0x2,D0>                                         {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 222a8  MOVE.L  (A6+D0.L-#0x30),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6+D0.L-#0x30)']}
            <Const 0x222ac 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6+D0.L-#0x30)']|[##1]}
            <Call 0x222ae 0x1034c>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6+D0.L-#0x30)']|[##1]}
                FSCALL_1034c
            <POP 222b0-222b2 StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]}
            <Const 0x222b2 0xb.4>                            Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-16-]|[##11]}
            <MI 222b6  SUB.L   D7,(A7)>                                         {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-20-]}
            <Call 0x222b8 0x10344>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-20-]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 222be-222c0 StackAdj>                       Δ+12               {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-8-]}
            <Call 0x222c0 0x10334>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 222c6-222c8 StackAdj>                       Δ+16               {[-8-]}
            <MI 222c8  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[-4-]}
            <MI 222cc  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {}
            <MI 222d0  ADDQ.L  #0x1,D7>                                         {}
            <MI 222d2  CMP.L   #0x0b,D7>                                        {}
            <MI 222d4  BLE     0x2228a>                                         {}
        <POP 222d6-2232e Naked>                              Σ0         ↓ →0x22348
            <POP 222d6-222d8 StackAdj>                       Δ-8                {[-8-]}
            <MI 222d8  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 222da  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <MI 222dc  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x3c)']}
            <MI 222e0  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x222e4 0x10340>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
                BitXor(a, b : Quad) : Quad
            <POP 222ea-222ec StackAdj>                       Δ+16               {[-8-]}
            <MI 222ec  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 222ee  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <POP 222f0-222f2 StackAdj>                       Δ-4                {[-8-]}
            <MI 222f2  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 222f4  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 222f6-222f8 StackAdj>                       Δ-16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <MI 222f8  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']}
            <MI 222fc  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Const 0x22300 0x2c.4>                           Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##44]}
            <Const 0x22304 0x1.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##44]|[##1]}
            <Call 0x22306 0x1034c>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[##44]|[##1]}
                FSCALL_1034c
            <POP 22308-2230a StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]}
            <Const 0x2230a 0xb.4>                            Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##11]}
            <Call 0x2230e 0x10344>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-16-]|[##11]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 22314-22316 StackAdj>                       Δ+12               {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
            <Call 0x22316 0x10340>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[-8-]}
                BitXor(a, b : Quad) : Quad
            <POP 2231c-2231e StackAdj>                       Δ+16               {[-8-]}
            <MI 2231e  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 22320  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <POP 22322-22324 StackAdj>                       Δ+2                {[-2-]}
            <Call 0x22324 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2232a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2232c  BEQ     0x22348>                                         {}
        <POP 2232e-22348 Naked>                              Σ0         ↓
            <POP 2232e-22330 StackAdj>                       Δ-8                {[-8-]}
            <MI 22330  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 22332  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <MI 22334  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x34)']}
            <MI 22338  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <Call 0x2233c 0x10330>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
                BitAnd(a, b : Quad) : Quad
            <POP 22342-22344 StackAdj>                       Δ+16               {[-8-]}
            <MI 22344  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 22346  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {}
        <POP 22348-22350 Naked>                              Σ0         ↓ ←0x222d6
            <MI 22348  MOVE.L  (A6-0x48),(A6+0x20)>                             {}
            <MI 2234c  MOVE.L  (A6-0x44),(A6+0x24)>                             {}
        <POP 22350-22358 Epilogue>                           Σ0         

0x22358


@ 22358
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22358-22442 Body>                                   Δ+24       
        <POP 22358-2236e Prologue>                           Σ0         ↓
        <POP 2236e-22372 RegCacheLoad>                       Σ0         ↓
        <POP 22372-2239e Naked>                              Σ0         ↓ →0x2240a
            <POP 22372-22376 StackAdj>                       Δ-12               {[-12-]}
            <MI 22376  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 2237a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x2237e 0x38.4>                           Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##56]}
            <Const 0x22382 0x2.4>                            Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##56]|[##2]}
            <Call 0x22386 0x1034c>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##56]|[##2]}
                FSCALL_1034c
            <POP 2238c-22390 StackAdj>                       Δ+16               {[-12-]}
            <Call 0x22390 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 22396-22398 StackAdj>                       Δ+8                {[-4-]}
            <MI 22398  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2239a  CMP.L   #0x03,D0>                                        {}
            <MI 2239c  BHI     0x2240a>                                         {}
        <POP 2239e-223a8 Naked>                              Σ0         →0x223b0 →0x223d2 →0x223f0 →0x22404
            <MI 2239e  ADD.W   D0,D0>                                           {}
            <MI 223a0  SWITCH  D0.W>                                            {}
        <POP 223b0-223b4 Naked>                              Σ0 Δ-4     ↓ ←0x2239e
            <Blob 0x223b0 [4] @>                             Δ-4                {[«4""»]}
        <POP 223b4-223c0 Naked>                              Σ-4 Δ-12   ↓ ←0x22404
            <POP 223b4-223b6 StackAdj>                       Δ-4                {[-8-]}
            <Pointer.sp 0x223b6 4>                           Δ-4                {[-8-]|[^^4]}
            <Const 0x223ba 0x1.2>                            Δ-2                {[-8-]|[^^4]|[#1]}
            <Const 0x223bc 0x4.2>                            Δ-2                {[-8-]|[^^4]|[#1]|[#4]}
        <POP 223c0-223d2 Naked>                              Σ-16 Δ+16  →0x2243a ←0x223e4
            <Call 0x223c0 0x102c4>                                              {[-16-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 223c6-223c8 StackAdj>                       Δ+8                {[-8-]}
            <Call 0x223c8 0x103d8>                                              {[-8-]}
                WriteConsoleString(str : String)
            <POP 223ce-223d0 StackAdj>                       Δ+8                {}
            <MI 223d0  BRA     0x2243a>                                         {}
        <POP 223d2-223e4 Naked>                              Σ0 Δ-4     ↓ ←0x2239e
            <POP 223d2-223d4 StackAdj>                       Δ-4                {[-4-]}
            <POP 223d4-223d5 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x223d5 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 223d8  MOVE.B  0x20373,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 223de  MOVE.B  0x20374,(A7+0x2)>                                {[-2-]|[«2""»]}
        <POP 223e4-223f0 Naked>                              Σ-4 Δ-12   →0x223c0 ←0x223f0
            <POP 223e4-223e6 StackAdj>                       Δ-4                {[-8-]}
            <Pointer.sp 0x223e6 4>                           Δ-4                {[-8-]|[^^4]}
            <Const 0x223ea 0x1.2>                            Δ-2                {[-8-]|[^^4]|[#1]}
            <Const 0x223ec 0x3.2>                            Δ-2                {[-8-]|[^^4]|[#1]|[#3]}
            <MI 223ee  BRA     0x223c0>                                         {[-8-]|[^^4]|[#1]|[#3]}
        <POP 223f0-22404 Naked>                              Σ0 Δ-4     →0x223e4 ←0x2239e
            <POP 223f0-223f2 StackAdj>                       Δ-4                {[-4-]}
            <POP 223f2-223f3 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x223f3 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 223f6  MOVE.B  0x20377,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 223fc  MOVE.B  0x20378,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 22402  BRA     0x223e4>                                         {[-2-]|[«2""»]}
        <POP 22404-2240a Naked>                              Σ0 Δ-4     →0x223b4 ←0x2239e
            <Blob 0x22404 [4] @>                             Δ-4                {[«4""»]}
            <MI 22408  BRA     0x223b4>                                         {[«4""»]}
        <POP 2240a-2243a Naked>                              Σ0         ↓ ←0x22372
            <Blob 0x2240a [30] @>                            Δ-30               {[«30""»]}
            <POP 2241c-2241e StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x2241e 29>                                                    {[«30""»]|[$$DISPLAY TAG WORD : CASE ERROR]}
            <Call 0x22430 0x103d8>                                              {[«30""»]|[$$DISPLAY TAG WORD : CASE ERROR]}
                WriteConsoleString(str : String)
            <POP 22436-2243a StackAdj>                       Δ+34               {}
        <POP 2243a-22442 Epilogue>                           Σ0         ←0x223c0

0x22442


@ 22442
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22442-225c8 Body>                                   Δ+6        
        <POP 22442-22458 Prologue>                           Σ0         ↓
        <POP 22458-2246e RegCacheLoad>                       Σ0         ↓
        <POP 2246e-22496 Naked>                              Σ0         ↓ →0x224a4
            <POP 2246e-22470 StackAdj>                       Δ-10               {[-10-]}
            <MI 22470  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <MI 22472  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x22474 0x33.4>                           Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]}
            <Const 0x22478 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]|[##1]}
            <Call 0x2247a 0x1034c>                                              {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##51]|[##1]}
                FSCALL_1034c
            <POP 22480-22482 StackAdj>                       Δ+12               {[-10-]|[4, '(A6+0xc)']}
            <POP 22482-22483 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x22483 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x22486 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x2248a 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 22490-22492 StackAdj>                       Δ+16               {[-2-]}
            <MI 22492  TST.B   (A7)+>                        Δ+2                {}
            <MI 22494  BEQ     0x224a4>                                         {}
        <POP 22496-224a4 Naked>                              Σ0 Δ-6     →0x224b0
            <Blob 0x22496 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2249a [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2249e [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 224a2  BRA     0x224b0>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 224a4-224b0 Naked>                              Σ0 Δ-6     ↓ ←0x2246e
            <Blob 0x224a4 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x224a8 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x224ac [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
        <POP 224b0-224f2 Naked>                              Σ-6 Δ+6    ↓ →0x22518 ←0x22496
            <POP 224b0-224b2 StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x224b2>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x224b2 4>                       Δ-4        
                <Const 0x224b6 0x1.2>                        Δ-2        
                <Const 0x224b8 0x6.2>                        Δ-2        
                <Call 0x224ba 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 224c0-224c2 StackAdj>                   Δ+8        
            <Call 0x224c2 0x103d8>                                              {[-6-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 224c8-224ca StackAdj>                       Δ+10               {}
            <POP 224ca-224cc StackAdj>                       Δ-10               {[-10-]}
            <MI 224cc  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <MI 224ce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x224d0 0x3a.4>                           Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##58]}
            <Const 0x224d4 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##58]|[##1]}
            <Call 0x224d6 0x1034c>                                              {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##58]|[##1]}
                FSCALL_1034c
            <POP 224dc-224de StackAdj>                       Δ+12               {[-10-]|[4, '(A6+0xc)']}
            <POP 224de-224df StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x224df [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x224e2 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x224e6 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 224ec-224ee StackAdj>                       Δ+16               {[-2-]}
            <MI 224ee  TST.B   (A7)+>                        Δ+2                {}
            <MI 224f0  BEQ     0x22518>                                         {}
        <POP 224f2-22518 Naked>                              Σ0         ↓
            <Blob 0x224f2 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x224f6 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x224fa [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 224fe-22500 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22500 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ WIRED]}
            <Call 0x22510 0x103d8>                                              {[«2""»]|[«2""»]|[«2""»]|[$$ WIRED]}
                WriteConsoleString(str : String)
            <POP 22516-22518 StackAdj>                       Δ+10               {}
        <POP 22518-22540 Naked>                              Σ0         ↓ →0x2256c ←0x224b0
            <POP 22518-2251a StackAdj>                       Δ-10               {[-10-]}
            <MI 2251a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <MI 2251c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x2251e 0x3b.4>                           Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##59]}
            <Const 0x22522 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##59]|[##1]}
            <Call 0x22524 0x1034c>                                              {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##59]|[##1]}
                FSCALL_1034c
            <POP 2252a-2252c StackAdj>                       Δ+12               {[-10-]|[4, '(A6+0xc)']}
            <POP 2252c-2252d StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x2252d [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x22530 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x22534 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 2253a-2253c StackAdj>                       Δ+16               {[-2-]}
            <MI 2253c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2253e  BEQ     0x2256c>                                         {}
        <POP 22540-2256c Naked>                              Σ0         ↓
            <Blob 0x22540 [6] @>                             Δ-6                {[«6""»]}
            <POP 22550-22552 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x22552 5>                                                     {[«6""»]|[$$ PERM]}
            <Call 0x22564 0x103d8>                                              {[«6""»]|[$$ PERM]}
                WriteConsoleString(str : String)
            <POP 2256a-2256c StackAdj>                       Δ+10               {}
        <POP 2256c-22594 Naked>                              Σ0         ↓ →0x225c0 ←0x22518
            <POP 2256c-2256e StackAdj>                       Δ-10               {[-10-]}
            <MI 2256e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <MI 22570  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x22572 0x3c.4>                           Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##60]}
            <Const 0x22576 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##60]|[##1]}
            <Call 0x22578 0x1034c>                                              {[-10-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##60]|[##1]}
                FSCALL_1034c
            <POP 2257e-22580 StackAdj>                       Δ+12               {[-10-]|[4, '(A6+0xc)']}
            <POP 22580-22581 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x22581 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x22584 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x22588 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 2258e-22590 StackAdj>                       Δ+16               {[-2-]}
            <MI 22590  TST.B   (A7)+>                        Δ+2                {}
            <MI 22592  BEQ     0x225c0>                                         {}
        <POP 22594-225c0 Naked>                              Σ0         ↓
            <Blob 0x22594 [8] @>                             Δ-8                {[«8""»]}
            <POP 225a4-225a6 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x225a6 7>                                                     {[«8""»]|[$$ WRTBLE]}
            <Call 0x225b8 0x103d8>                                              {[«8""»]|[$$ WRTBLE]}
                WriteConsoleString(str : String)
            <POP 225be-225c0 StackAdj>                       Δ+12               {}
        <POP 225c0-225c8 Epilogue>                           Σ0         ←0x2256c

0x225c8


@ 225c8
        <LVAR  0x016 1(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 225c8-226e4 Body>                                              
        <POP 225c8-225de Prologue>                           Σ0         ↓
        <POP 225de-225fe RegCacheLoad>                       Σ0         ↓
        <POP 225fe-226dc Naked>                              Σ0         ↓
            <POP 225fe-22600 StackAdj>                       Δ-8                {[-8-]}
            <Pointer.fp 0x22600 <LVAR  0x008 @>>             Δ-4                {[-8-]|[@@8]}
            <Const 0x22604 0x0.4>                            Δ-4                {[-8-]|[@@8]|[##0]}
            <Const 0x22606 0x7.4>                            Δ-4                {[-8-]|[@@8]|[##0]|[##7]}
            <Call 0x2260a 0x21660>                                              {[-8-]|[@@8]|[##0]|[##7]}
            <POP 2260e-22610 StackAdj>                       Δ+12               {[-8-]}
            <MI 22610  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 22612  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <POP 22614-22616 StackAdj>                       Δ-4                {[-8-]}
            <Pointer.fp 0x22616 <LVAR  0x010 @>>             Δ-4                {[-8-]|[@@16]}
            <Const 0x2261a 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]}
            <Const 0x2261c 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]|[##0]}
            <Call 0x2261e 0x21660>                                              {[-8-]|[@@16]|[##0]|[##0]}
            <POP 22622-22624 StackAdj>                       Δ+12               {[-8-]}
            <MI 22624  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-4-]}
            <MI 22626  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 2262a-2262b StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2262b [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2262e  MOVE.B  0x203bd,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 22634  MOVE.B  0x203be,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2263a-2263c StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2263c>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2263c 4>                       Δ-4        
                <Const 0x22640 0x1.2>                        Δ-2        
                <Const 0x22642 0x3.2>                        Δ-2        
                <Call 0x22646 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22648-2264a StackAdj>                   Δ+8        
            <MI 2264a  MOVE.B  (A6+0x16),D0>                                    {[-2-]|[«2""»]|[$$…]}
            <MI 2264e  EXTB.W  D0>                                              {[-2-]|[«2""»]|[$$…]}
            <MI 22650  SUB.W   #0x0c,D0>                                        {[-2-]|[«2""»]|[$$…]}
            <MI 22652  EXTW.L  D0>                                              {[-2-]|[«2""»]|[$$…]}
            <MI 22654  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[«2""»]|[$$…]|[4, 'D0']}
            <MI 22656  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«2""»]|[$$…]|[4, 'D0']|[#0]}
            <Call 0x22658 0x21378>                                              {[-2-]|[«2""»]|[$$…]|[4, 'D0']|[#0]}
            <POP 2265c-2265e StackAdj>                       Δ+10               {[-2-]|[«2""»]}
            <POP 2265e-2265f StackAdj>                       Δ+4                {}
            <Blob 0x2265f [4] @>                             Δ-4                {[«4""»]}
            <POP 22662-22664 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22664 4>                                                     {[«4""»]|[$$ TVR]}
            <POP 2266e-22670 StackAdj>                       Δ-4                {[«4""»]|[$$ TVR]|[-4-]}
            <MI 22670  MOVE.L  (A6+0x12),(A7)>                                  {[«4""»]|[$$ TVR]|[4, '(A6+0x12)']}
            <MI 22674  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[$$ TVR]|[4, '(A6+0x12)']|[#0]}
            <Call 0x22676 0x21378>                                              {[«4""»]|[$$ TVR]|[4, '(A6+0x12)']|[#0]}
            <POP 2267a-2267c StackAdj>                       Δ+10               {[«4""»]}
            <POP 2267c-2267d StackAdj>                       Δ+4                {}
            <Blob 0x2267d [4] @>                             Δ-4                {[«4""»]}
            <POP 22680-22682 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22682 4>                                                     {[«4""»]|[$$ ->_]}
            <POP 2268c-2268e StackAdj>                       Δ-4                {[«4""»]|[$$ ->_]|[-4-]}
            <MI 2268e  MOVE.L  (A6-0xc),(A7)>                                   {[«4""»]|[$$ ->_]|[4, '(A6-0xc)']}
            <MI 22690  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«4""»]|[$$ ->_]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x22692 0x10.4>                           Δ-4                {[«4""»]|[$$ ->_]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##16]}
            <MI 22696  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[$$ ->_]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##16]|[#0]}
            <Call 0x22698 0x2140e>                                              {[«4""»]|[$$ ->_]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##16]|[#0]}
            <POP 2269c-226a0 StackAdj>                       Δ+20               {[-2-]}
            <POP 226a0-226a1 StackAdj>                       Δ+2                {}
            <Blob 0x226a1 [2] @>                             Δ-2                {[«2""»]}
            <POP 226a4-226a6 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x226a6 2>                                                     {[«2""»]|[$$__]}
            <POP 226b2-226b4 StackAdj>                       Δ-4                {[«2""»]|[$$__]|[-4-]}
            <MI 226b4  MOVE.L  (A6-0x4),(A7)>                                   {[«2""»]|[$$__]|[4, '(A6-0x4)']}
            <MI 226b8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«2""»]|[$$__]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Const 0x226ba 0x2.4>                            Δ-4                {[«2""»]|[$$__]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[##2]}
            <MI 226be  CLR.B   -(A7)>                        Δ-2                {[«2""»]|[$$__]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[##2]|[#0]}
            <Call 0x226c0 0x2140e>                                              {[«2""»]|[$$__]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[##2]|[#0]}
            <POP 226c4-226c6 StackAdj>                       Δ+16               {[«2""»]|[-2-]}
            <MI 226c6  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 226c8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 226ca  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, '(A6-0x4)']}
            <MI 226ce  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Call 0x226d0 0x22092>                                              {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <POP 226d4-226d6 StackAdj>                       Δ+16               {}
            <Call 0x226d6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 226dc-226e4 Epilogue>                           Σ0         

0x226e4


@ 226e4
        <LVAR  0x01e 4(r)>
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 4(rw)>
    <POP 226e4-2283e Body>                                              
        <POP 226e4-226fa Prologue>                           Σ0         ↓
        <POP 226fa-22712 RegCacheLoad>                       Σ0         ↓
        <POP 22712-22836 Naked>                              Σ0         ↓
            <POP 22712-22714 StackAdj>                       Δ-8                {[-8-]}
            <Pointer.fp 0x22714 <LVAR  0x008 @>>             Δ-4                {[-8-]|[@@8]}
            <Const 0x22718 0x0.4>                            Δ-4                {[-8-]|[@@8]|[##0]}
            <Const 0x2271c 0x7.4>                            Δ-4                {[-8-]|[@@8]|[##0]|[##7]}
            <Call 0x22720 0x21660>                                              {[-8-]|[@@8]|[##0]|[##7]}
            <POP 22724-22726 StackAdj>                       Δ+12               {[-8-]}
            <MI 22726  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[-4-]}
            <MI 22728  MOVE.L  (A7),(A6-0xe)>                                   {[-4-]}
            <POP 2272a-2272c StackAdj>                       Δ-4                {[-8-]}
            <Pointer.fp 0x2272c <LVAR  0x010 @>>             Δ-4                {[-8-]|[@@16]}
            <Const 0x22730 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]}
            <Const 0x22734 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]|[##0]}
            <Call 0x22738 0x21660>                                              {[-8-]|[@@16]|[##0]|[##0]}
            <POP 2273c-2273e StackAdj>                       Δ+12               {[-8-]}
            <MI 2273e  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-4-]}
            <MI 22742  MOVE.L  (A7),(A6-0x6)>                                   {[-4-]}
            <POP 22746-22747 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22747 [8] @>                             Δ-8                {[«8""»]}
            <POP 22756-22758 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x22758 7>                                                     {[«8""»]|[$$SET  =_]}
            <POP 22764-22766 StackAdj>                       Δ-4                {[«8""»]|[$$SET  =_]|[-4-]}
            <MI 22766  MOVE.L  (A6+0x1e),(A7)>                                  {[«8""»]|[$$SET  =_]|[4, '(A6+0x1e)']}
            <MI 2276a  MOVE.L  (A6+0x1a),-(A7)>              Δ-4                {[«8""»]|[$$SET  =_]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']}
            <Const 0x2276e 0x1.4>                            Δ-4                {[«8""»]|[$$SET  =_]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[##1]}
            <MI 22772  CLR.B   -(A7)>                        Δ-2                {[«8""»]|[$$SET  =_]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[##1]|[#0]}
            <Call 0x22774 0x2140e>                                              {[«8""»]|[$$SET  =_]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[##1]|[#0]}
            <POP 22778-22779 StackAdj>                       Δ+26       ↓       {}
            <Blob 0x22779 [10] @>                            Δ-10               {[«10""»]}
            <POP 22788-2278a StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2278a 9>                                                     {[«10""»]|[$$  LINE =_]}
            <POP 22794-22796 StackAdj>                       Δ-4                {[«10""»]|[$$  LINE =_]|[-4-]}
            <MI 22796  MOVE.L  (A6+0x16),(A7)>                                  {[«10""»]|[$$  LINE =_]|[4, '(A6+0x16)']}
            <MI 2279a  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[«10""»]|[$$  LINE =_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']}
            <Const 0x2279e 0x3.4>                            Δ-4                {[«10""»]|[$$  LINE =_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##3]}
            <MI 227a2  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$  LINE =_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##3]|[#0]}
            <Call 0x227a4 0x2140e>                                              {[«10""»]|[$$  LINE =_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##3]|[#0]}
            <POP 227a8-227a9 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x227a9 [10] @>                            Δ-10               {[«10""»]}
            <POP 227b8-227ba StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x227ba 9>                                                     {[«10""»]|[$$  LRU  =_]}
            <MI 227c4  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']}
            <POP 227c2-227c4 StackAdj>                       Δ-8                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 227c6  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x227c8 0x34.4>                           Δ-4                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]}
            <Const 0x227cc 0x4.4>                            Δ-4                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
            <Call 0x227d0 0x1034c>                                              {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
                FSCALL_1034c
            <POP 227d6-227d8 StackAdj>                       Δ+16               {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x227d8 0x1.4>                            Δ-4                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-4-]|[##1]}
            <MI 227dc  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <Call 0x227de 0x2140e>                                              {[«10""»]|[$$  LRU  =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <POP 227e2-227e3 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x227e3 [10] @>                            Δ-10               {[«10""»]}
            <POP 227f2-227f4 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x227f4 9>                                                     {[«10""»]|[$$  PS   =_]}
            <Call 0x22800 0x103d8>                                              {[«10""»]|[$$  PS   =_]}
                WriteConsoleString(str : String)
            <POP 22806-2280a StackAdj>                       Δ+10               {[-4-]}
            <MI 2280a  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 2280c  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x2280e 0x22358>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 22812-22814 StackAdj>                       Δ+4                {[4, '(A6-0xe)']}
            <MI 22814  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22816  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x22818 0x22442>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 2281c-2281e StackAdj>                       Δ+4                {[4, '(A6-0xe)']}
            <MI 2281e  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22820  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <MI 22822  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']}
            <MI 22826  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Call 0x2282a 0x22092>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 2282e-22830 StackAdj>                       Δ+16               {}
            <Call 0x22830 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22836-2283e Epilogue>                           Σ0         

0x2283e


@ 2283e
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 4(rw)>
    <POP 2283e-22a36 Body>                                              
        <POP 2283e-22854 Prologue>                           Σ0         ↓
        <POP 22854-22870 RegCacheLoad>                       Σ0         ↓
        <POP 22870-22a2e Naked>                              Σ0         ↓
            <POP 22870-22872 StackAdj>                       Δ-8                {[-8-]}
            <Pointer.fp 0x22872 <LVAR  0x008 @>>             Δ-4                {[-8-]|[@@8]}
            <Const 0x22876 0x0.4>                            Δ-4                {[-8-]|[@@8]|[##0]}
            <Const 0x2287a 0x7.4>                            Δ-4                {[-8-]|[@@8]|[##0]|[##7]}
            <Call 0x2287e 0x21660>                                              {[-8-]|[@@8]|[##0]|[##7]}
            <POP 22882-22884 StackAdj>                       Δ+12               {[-8-]}
            <MI 22884  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[-4-]}
            <MI 22886  MOVE.L  (A7),(A6-0xe)>                                   {[-4-]}
            <POP 22888-2288a StackAdj>                       Δ-4                {[-8-]}
            <Pointer.fp 0x2288a <LVAR  0x010 @>>             Δ-4                {[-8-]|[@@16]}
            <Const 0x2288e 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]}
            <Const 0x22892 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]|[##0]}
            <Call 0x22896 0x21660>                                              {[-8-]|[@@16]|[##0]|[##0]}
            <POP 2289a-2289c StackAdj>                       Δ+12               {[-8-]}
            <MI 2289c  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-4-]}
            <MI 228a0  MOVE.L  (A7),(A6-0x6)>                                   {[-4-]}
            <POP 228a4-228a5 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x228a5 [6] @>                             Δ-6                {[«6""»]}
            <POP 228b4-228b6 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x228b6 5>                                                     {[«6""»]|[$$ SET_]}
            <POP 228c2-228c4 StackAdj>                       Δ-4                {[«6""»]|[$$ SET_]|[-4-]}
            <MI 228c4  MOVE.L  (A6+0x16),(A7)>                                  {[«6""»]|[$$ SET_]|[4, '(A6+0x16)']}
            <MI 228c8  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[«6""»]|[$$ SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']}
            <Const 0x228cc 0x1.4>                            Δ-4                {[«6""»]|[$$ SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##1]}
            <MI 228d0  CLR.B   -(A7)>                        Δ-2                {[«6""»]|[$$ SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##1]|[#0]}
            <Call 0x228d2 0x2140e>                                              {[«6""»]|[$$ SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[##1]|[#0]}
            <POP 228d6-228d8 StackAdj>                       Δ+20               {[-4-]}
            <POP 228d8-228d9 StackAdj>                       Δ+4                {}
            <Blob 0x228d9 [4] @>                             Δ-4                {[«4""»]}
            <POP 228dc-228de StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x228de 4>                                                     {[«4""»]|[$$ ->_]}
            <POP 228ea-228ec StackAdj>                       Δ-4                {[«4""»]|[$$ ->_]|[-4-]}
            <MI 228ec  MOVE.L  (A6-0xe),(A7)>                                   {[«4""»]|[$$ ->_]|[4, '(A6-0xe)']}
            <MI 228ee  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«4""»]|[$$ ->_]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Const 0x228f0 0x10.4>                           Δ-4                {[«4""»]|[$$ ->_]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[##16]}
            <MI 228f4  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[$$ ->_]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[##16]|[#0]}
            <Call 0x228f6 0x2140e>                                              {[«4""»]|[$$ ->_]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[##16]|[#0]}
            <POP 228fa-228fc StackAdj>                       Δ+20               {[-2-]}
            <POP 228fc-228fd StackAdj>                       Δ+2                {}
            <Blob 0x228fd [2] @>                             Δ-2                {[«2""»]}
            <POP 22900-22902 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x22902 2>                                                     {[«2""»]|[$$__]}
            <POP 2290e-22910 StackAdj>                       Δ-4                {[«2""»]|[$$__]|[-4-]}
            <MI 22910  MOVE.L  (A6-0x6),(A7)>                                   {[«2""»]|[$$__]|[4, '(A6-0x6)']}
            <MI 22914  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«2""»]|[$$__]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x22918 0x2.4>                            Δ-4                {[«2""»]|[$$__]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##2]}
            <MI 2291c  CLR.B   -(A7)>                        Δ-2                {[«2""»]|[$$__]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##2]|[#0]}
            <Call 0x2291e 0x2140e>                                              {[«2""»]|[$$__]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##2]|[#0]}
            <POP 22922-22924 StackAdj>                       Δ+20               {}
            <Blob 0x22924 [10] @>                            Δ-10               {[«10""»]}
            <POP 22930-22932 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x22932 10>                                                    {[«10""»]|[$$  LRU   =_]}
            <MI 2293e  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']}
            <POP 2293c-2293e StackAdj>                       Δ-8                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22940  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22942 0x34.4>                           Δ-4                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]}
            <Const 0x22946 0x4.4>                            Δ-4                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
            <Call 0x2294a 0x1034c>                                              {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
                FSCALL_1034c
            <POP 22950-22952 StackAdj>                       Δ+16               {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22952 0x1.4>                            Δ-4                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-4-]|[##1]}
            <MI 22956  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <Call 0x22958 0x2140e>                                              {[«10""»]|[$$  LRU   =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <POP 2295c-2295e StackAdj>                       Δ+24               {[-4-]}
            <MI 2295e  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22960  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x22962 0x22358>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 22966-22968 StackAdj>                       Δ+4                {[4, '(A6-0xe)']}
            <MI 22968  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 2296a  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x2296c 0x22442>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 22970-22971 StackAdj>                       Δ+8        ↓       {}
            <Blob 0x22971 [10] @>                            Δ-10               {[«10""»]}
            <POP 22980-22982 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x22982 9>                                                     {[«10""»]|[$$ SPACE =_]}
            <MI 2298e  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']}
            <POP 2298c-2298e StackAdj>                       Δ-8                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22990  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22992 0x3d.4>                           Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]}
            <Const 0x22996 0x3.4>                            Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]|[##3]}
            <Call 0x2299a 0x1034c>                                              {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]|[##3]}
                FSCALL_1034c
            <POP 229a0-229a2 StackAdj>                       Δ+16               {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x229a2 0x1.4>                            Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]}
            <MI 229a6  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <Call 0x229a8 0x2140e>                                              {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <POP 229ac-229ae StackAdj>                       Δ+24               {[-4-]}
            <POP 229ae-229af StackAdj>                       Δ+4                {}
            <Blob 0x229af [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x229b2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 229b6-229b8 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x229b8 8>                                                     {[«4""»]|[«4""»]|[$$ NAME =_]}
            <MI 229c2  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']}
            <POP 229c0-229c2 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 229c4  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x229c6 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]}
            <Const 0x229ca 0x20.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]|[##32]}
            <Call 0x229ce 0x1034c>                                              {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]|[##32]}
                FSCALL_1034c
            <POP 229d4-229d6 StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x229d6 0x8.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]}
            <MI 229da  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]|[#0]}
            <Call 0x229dc 0x2140e>                                              {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]|[#0]}
            <POP 229e0-229e2 StackAdj>                       Δ+22               {[«4""»]}
            <POP 229e2-229e3 StackAdj>                       Δ+4                {}
            <Blob 0x229e3 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x229e6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 229ea-229ec StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x229ec 8>                                                     {[«4""»]|[«4""»]|[$$ PAGE =_]}
            <MI 229f6  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']}
            <POP 229f4-229f6 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 229f8  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x229fa 0x20.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]}
            <Const 0x229fe 0x13.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]|[##19]}
            <Call 0x22a02 0x1034c>                                              {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]|[##19]}
                FSCALL_1034c
            <POP 22a08-22a0a StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22a0a 0x5.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]}
            <MI 22a0e  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]|[#0]}
            <Call 0x22a10 0x2140e>                                              {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]|[#0]}
            <POP 22a14-22a16 StackAdj>                       Δ+22               {[«4""»]}
            <MI 22a16  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22a18  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <MI 22a1a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']}
            <MI 22a1e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Call 0x22a22 0x22092>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 22a26-22a28 StackAdj>                       Δ+16               {}
            <Call 0x22a28 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22a2e-22a36 Epilogue>                           Σ0         

0x22a36


@ 22a36
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 4(rw)>
    <POP 22a36-22bd2 Body>                                              
        <POP 22a36-22a4c Prologue>                           Σ0         ↓
        <POP 22a4c-22a66 RegCacheLoad>                       Σ0         ↓
        <POP 22a66-22bca Naked>                              Σ0         ↓
            <POP 22a66-22a68 StackAdj>                       Δ-8                {[-8-]}
            <Pointer.fp 0x22a68 <LVAR  0x008 @>>             Δ-4                {[-8-]|[@@8]}
            <Const 0x22a6c 0x0.4>                            Δ-4                {[-8-]|[@@8]|[##0]}
            <Const 0x22a70 0x7.4>                            Δ-4                {[-8-]|[@@8]|[##0]|[##7]}
            <Call 0x22a74 0x21660>                                              {[-8-]|[@@8]|[##0]|[##7]}
            <POP 22a78-22a7a StackAdj>                       Δ+12               {[-8-]}
            <MI 22a7a  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[-4-]}
            <MI 22a7c  MOVE.L  (A7),(A6-0xe)>                                   {[-4-]}
            <POP 22a7e-22a80 StackAdj>                       Δ-4                {[-8-]}
            <Pointer.fp 0x22a80 <LVAR  0x010 @>>             Δ-4                {[-8-]|[@@16]}
            <Const 0x22a84 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]}
            <Const 0x22a88 0x0.4>                            Δ-4                {[-8-]|[@@16]|[##0]|[##0]}
            <Call 0x22a8c 0x21660>                                              {[-8-]|[@@16]|[##0]|[##0]}
            <POP 22a90-22a92 StackAdj>                       Δ+12               {[-8-]}
            <MI 22a92  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-4-]}
            <MI 22a96  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <Blob 0x22a9a [4] @>                             Δ-4                {[«4""»]}
            <POP 22a9e-22aa0 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22aa0 4>                                                     {[«4""»]|[$$SET_]}
            <POP 22aac-22aae StackAdj>                       Δ-4                {[«4""»]|[$$SET_]|[-4-]}
            <MI 22aae  MOVE.L  (A6+0x16),(A7)>                                  {[«4""»]|[$$SET_]|[4, '(A6+0x16)']}
            <MI 22ab2  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[«4""»]|[$$SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']}
            <MI 22ab6  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[$$SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[#0]}
            <Call 0x22ab8 0x213be>                                              {[«4""»]|[$$SET_]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[#0]}
            <POP 22abc-22abe StackAdj>                       Δ+18               {}
            <Blob 0x22abe [10] @>                            Δ-10               {[«10""»]}
            <POP 22aca-22acc StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x22acc 10>                                                    {[«10""»]|[$$ -> LRU =_]}
            <MI 22ad8  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']}
            <POP 22ad6-22ad8 StackAdj>                       Δ-8                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22ada  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22adc 0x34.4>                           Δ-4                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]}
            <Const 0x22ae0 0x4.4>                            Δ-4                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
            <Call 0x22ae4 0x1034c>                                              {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##52]|[##4]}
                FSCALL_1034c
            <POP 22aea-22aec StackAdj>                       Δ+16               {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22aec 0x1.4>                            Δ-4                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-4-]|[##1]}
            <MI 22af0  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <Call 0x22af2 0x2140e>                                              {[«10""»]|[$$ -> LRU =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <POP 22af6-22af7 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x22af7 [10] @>                            Δ-10               {[«10""»]}
            <POP 22b06-22b08 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x22b08 9>                                                     {[«10""»]|[$$ SPACE =_]}
            <MI 22b14  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']}
            <POP 22b12-22b14 StackAdj>                       Δ-8                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22b16  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22b18 0x3d.4>                           Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]}
            <Const 0x22b1c 0x3.4>                            Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]|[##3]}
            <Call 0x22b20 0x1034c>                                              {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##61]|[##3]}
                FSCALL_1034c
            <POP 22b26-22b28 StackAdj>                       Δ+16               {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22b28 0x1.4>                            Δ-4                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]}
            <MI 22b2c  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <Call 0x22b2e 0x2140e>                                              {[«10""»]|[$$ SPACE =_]|[4, '(A6-0xe)']|[-4-]|[##1]|[#0]}
            <POP 22b32-22b36 StackAdj>                       Δ+24               {[-4-]}
            <POP 22b36-22b37 StackAdj>                       Δ+4                {}
            <Blob 0x22b37 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22b3a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22b3e-22b40 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22b40 8>                                                     {[«4""»]|[«4""»]|[$$ NAME =_]}
            <MI 22b4a  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']}
            <POP 22b48-22b4a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22b4c  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22b4e 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]}
            <Const 0x22b52 0x20.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]|[##32]}
            <Call 0x22b56 0x1034c>                                              {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##0]|[##32]}
                FSCALL_1034c
            <POP 22b5c-22b5e StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22b5e 0x8.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]}
            <MI 22b62  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]|[#0]}
            <Call 0x22b64 0x2140e>                                              {[«4""»]|[«4""»]|[$$ NAME =_]|[4, '(A6-0xe)']|[-4-]|[##8]|[#0]}
            <POP 22b68-22b6a StackAdj>                       Δ+22               {[«4""»]}
            <POP 22b6a-22b6b StackAdj>                       Δ+4                {}
            <Blob 0x22b6b [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22b6e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22b72-22b74 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22b74 8>                                                     {[«4""»]|[«4""»]|[$$ PAGE =_]}
            <MI 22b7e  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']}
            <POP 22b7c-22b7e StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]}
            <MI 22b80  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']}
            <Const 0x22b82 0x20.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]}
            <Const 0x22b86 0x13.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]|[##19]}
            <Call 0x22b8a 0x1034c>                                              {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0x12)']|[##32]|[##19]}
                FSCALL_1034c
            <POP 22b90-22b92 StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]}
            <Const 0x22b92 0x5.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]}
            <MI 22b96  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]|[#0]}
            <Call 0x22b98 0x2140e>                                              {[«4""»]|[«4""»]|[$$ PAGE =_]|[4, '(A6-0xe)']|[-4-]|[##5]|[#0]}
            <POP 22b9c-22b9e StackAdj>                       Δ+22               {[«4""»]}
            <MI 22b9e  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22ba0  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x22ba2 0x22358>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 22ba6-22ba8 StackAdj>                       Δ+4                {[4, '(A6-0xe)']}
            <MI 22ba8  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22baa  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x22bac 0x22442>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 22bb0-22bb2 StackAdj>                       Δ+4                {[4, '(A6-0xe)']}
            <MI 22bb2  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 22bb4  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <MI 22bb6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']}
            <MI 22bba  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Call 0x22bbe 0x22092>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 22bc2-22bc4 StackAdj>                       Δ+16               {}
            <Call 0x22bc4 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22bca-22bd2 Epilogue>                           Σ0         

0x22bd2


@ 22bd2
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x019 @>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
    <POP 22bd2-22d04 Body>                                              
        <POP 22bd2-22be8 Prologue>                           Σ0         ↓
        <POP 22be8-22c00 RegCacheLoad>                       Σ0         ↓
        <POP 22c00-22cfc Naked>                              Σ0         ↓
            <POP 22c00-22c02 StackAdj>                       Δ-4                {[-4-]}
            <POP 22c02-22c03 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x22c03 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 22c06  MOVE.B  0x20449,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 22c0c  MOVE.B  0x2044a,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 22c12-22c14 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x22c14>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x22c14 4>                       Δ-4        
                <Const 0x22c18 0x1.2>                        Δ-2        
                <Const 0x22c1a 0x3.2>                        Δ-2        
                <Call 0x22c1e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22c20-22c22 StackAdj>                   Δ+8        
            <MI 22c22  MOVE.B  (A6+0x20),D0>                                    {[-2-]|[«2""»]|[$$…]}
            <MI 22c26  EXTB.W  D0>                                              {[-2-]|[«2""»]|[$$…]}
            <MI 22c28  SUB.W   #0x0c,D0>                                        {[-2-]|[«2""»]|[$$…]}
            <MI 22c2a  EXTW.L  D0>                                              {[-2-]|[«2""»]|[$$…]}
            <MI 22c2c  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[«2""»]|[$$…]|[4, 'D0']}
            <MI 22c2e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«2""»]|[$$…]|[4, 'D0']|[#0]}
            <Call 0x22c30 0x21378>                                              {[-2-]|[«2""»]|[$$…]|[4, 'D0']|[#0]}
            <POP 22c34-22c36 StackAdj>                       Δ+10               {[-2-]|[«2""»]}
            <POP 22c36-22c37 StackAdj>                       Δ+4                {}
            <Blob 0x22c37 [4] @>                             Δ-4                {[«4""»]}
            <POP 22c3a-22c3c StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22c3c 4>                                                     {[«4""»]|[$$ RDR]}
            <POP 22c48-22c4a StackAdj>                       Δ-4                {[«4""»]|[$$ RDR]|[-4-]}
            <MI 22c4a  MOVE.L  (A6+0x1c),(A7)>                                  {[«4""»]|[$$ RDR]|[4, '(A6+0x1c)']}
            <MI 22c4e  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[$$ RDR]|[4, '(A6+0x1c)']|[#0]}
            <Call 0x22c50 0x21378>                                              {[«4""»]|[$$ RDR]|[4, '(A6+0x1c)']|[#0]}
            <POP 22c54-22c56 StackAdj>                       Δ+10               {[«4""»]}
            <POP 22c56-22c57 StackAdj>                       Δ+4                {}
            <Blob 0x22c57 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22c5a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22c5e-22c60 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22c60 8>                                                     {[«4""»]|[«4""»]|[$$ TYPE =_]}
            <Pointer.fp 0x22c6a <LVAR  0x008 @>>             Δ-4                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]}
            <POP 22c68-22c6a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-8-]}
            <Const 0x22c6e 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-8-]|[##0]}
            <Const 0x22c70 0x7.4>                            Δ-4                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-8-]|[##0]|[##7]}
            <Call 0x22c74 0x21660>                                              {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-8-]|[##0]|[##7]}
            <POP 22c76-22c78 StackAdj>                       Δ+12               {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-4-]}
            <Const 0x22c78 0x10.4>                           Δ-4                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-4-]|[##16]}
            <MI 22c7c  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-4-]|[##16]|[#0]}
            <Call 0x22c7e 0x2140e>                                              {[«4""»]|[«4""»]|[$$ TYPE =_]|[@@8]|[-4-]|[##16]|[#0]}
            <POP 22c82-22c84 StackAdj>                       Δ+22               {[«4""»]}
            <POP 22c84-22c85 StackAdj>                       Δ+4                {}
            <Blob 0x22c85 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22c88 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22c8c-22c8e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22c8e 8>                                                     {[«4""»]|[«4""»]|[$$  VAL =_]}
            <Pointer.fp 0x22c98 <LVAR  0x010 @>>             Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]}
            <POP 22c96-22c98 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]}
            <Const 0x22c9c 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]}
            <Const 0x22c9e 0x7.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]|[##7]}
            <Call 0x22ca2 0x21660>                                              {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]|[##7]}
            <POP 22ca4-22ca6 StackAdj>                       Δ+12               {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]}
            <Const 0x22ca6 0x10.4>                           Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]}
            <MI 22caa  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]|[#0]}
            <Call 0x22cac 0x2140e>                                              {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]|[#0]}
            <POP 22cb0-22cb2 StackAdj>                       Δ+22               {[«4""»]}
            <POP 22cb2-22cb3 StackAdj>                       Δ+4                {}
            <Blob 0x22cb3 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22cb6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22cba-22cbc StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22cbc 8>                                                     {[«4""»]|[«4""»]|[$$  ECC =_]}
            <Pointer.fp 0x22cc6 <LVAR  0x019 @>>             Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]}
            <POP 22cc4-22cc6 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]}
            <Const 0x22cca 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]}
            <Const 0x22ccc 0x1.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]|[##1]}
            <Call 0x22cd0 0x21660>                                              {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]|[##1]}
            <POP 22cd2-22cd4 StackAdj>                       Δ+12               {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]}
            <Const 0x22cd4 0x4.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]}
            <MI 22cd8  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]|[#0]}
            <Call 0x22cda 0x2140e>                                              {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]|[#0]}
            <POP 22cde-22cdf StackAdj>                       Δ+26       ↓       {}
            <Blob 0x22cdf [20] (A6+0x8)>                     Δ-20               {[«20»]}
            <Call 0x22cee 0x21fb8>                                              {[«20»]}
            <POP 22cf2-22cf6 StackAdj>                       Δ+20               {}
            <Call 0x22cf6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22cfc-22d04 Epilogue>                           Σ0         

0x22d04


@ 22d04
        <LVAR  0x020 4(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x019 @>
        <LVAR  0x010 @>
        <LVAR  0x008 @>
    <POP 22d04-22e38 Body>                                              
        <POP 22d04-22d1a Prologue>                           Σ0         ↓
        <POP 22d1a-22d2e RegCacheLoad>                       Σ0         ↓
        <POP 22d2e-22e30 Naked>                              Σ0         ↓
            <Blob 0x22d2e [6] @>                             Δ-6                {[«6""»]}
            <POP 22d3e-22d40 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x22d40 5>                                                     {[«6""»]|[$$WORD_]}
            <POP 22d4c-22d4e StackAdj>                       Δ-16               {[«6""»]|[$$WORD_]|[-16-]}
            <MI 22d4e  MOVE.L  (A6+0x20),-(A7)>              Δ-4                {[«6""»]|[$$WORD_]|[-16-]|[4, '(A6+0x20)']}
            <MI 22d52  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[«6""»]|[$$WORD_]|[-16-]|[4, '(A6+0x20)']|[4, '(A6+0x1c)']}
            <Blob 0x22d56 [4] @>                             Δ-4                {[«6""»]|[$$WORD_]|[-16-]|[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[«4""»]}
            <Blob 0x22d5a [4] @>                             Δ-4                {[«6""»]|[$$WORD_]|[-16-]|[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[«4""»]|[«4""»]}
            <Call 0x22d5e 0x10330>                                              {[«6""»]|[$$WORD_]|[-16-]|[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 22d64-22d68 StackAdj>                       Δ+16               {[«6""»]|[$$WORD_]|[-16-]}
            <Const 0x22d68 0xfffffff9.4>                     Δ-4                {[«6""»]|[$$WORD_]|[-16-]|[##4294967289]}
            <Call 0x22d6c 0x10344>                                              {[«6""»]|[$$WORD_]|[-16-]|[##4294967289]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 22d72-22d74 StackAdj>                       Δ+12               {[«6""»]|[$$WORD_]|[-8-]}
            <Const 0x22d74 0x2.4>                            Δ-4                {[«6""»]|[$$WORD_]|[-8-]|[##2]}
            <MI 22d78  CLR.B   -(A7)>                        Δ-2                {[«6""»]|[$$WORD_]|[-8-]|[##2]|[#0]}
            <Call 0x22d7a 0x2140e>                                              {[«6""»]|[$$WORD_]|[-8-]|[##2]|[#0]}
            <POP 22d7c-22d7d StackAdj>                       Δ+24       ↓       {}
            <Blob 0x22d7d [12] @>                            Δ-12               {[«12""»]}
            <POP 22d8c-22d8e StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22d8e 11>                                                    {[«12""»]|[$$ => TYPE =_]}
            <Pointer.fp 0x22d9a <LVAR  0x008 @>>             Δ-4                {[«12""»]|[$$ => TYPE =_]|[@@8]}
            <POP 22d98-22d9a StackAdj>                       Δ-8                {[«12""»]|[$$ => TYPE =_]|[@@8]|[-8-]}
            <Const 0x22d9e 0x0.4>                            Δ-4                {[«12""»]|[$$ => TYPE =_]|[@@8]|[-8-]|[##0]}
            <Const 0x22da0 0x7.4>                            Δ-4                {[«12""»]|[$$ => TYPE =_]|[@@8]|[-8-]|[##0]|[##7]}
            <Call 0x22da4 0x21660>                                              {[«12""»]|[$$ => TYPE =_]|[@@8]|[-8-]|[##0]|[##7]}
            <POP 22da8-22daa StackAdj>                       Δ+12               {[«12""»]|[$$ => TYPE =_]|[@@8]|[-4-]}
            <Const 0x22daa 0x10.4>                           Δ-4                {[«12""»]|[$$ => TYPE =_]|[@@8]|[-4-]|[##16]}
            <MI 22dae  CLR.B   -(A7)>                        Δ-2                {[«12""»]|[$$ => TYPE =_]|[@@8]|[-4-]|[##16]|[#0]}
            <Call 0x22db0 0x2140e>                                              {[«12""»]|[$$ => TYPE =_]|[@@8]|[-4-]|[##16]|[#0]}
            <POP 22db2-22db6 StackAdj>                       Δ+26               {[-4-]}
            <POP 22db6-22db7 StackAdj>                       Δ+4                {}
            <Blob 0x22db7 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22dba [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22dbe-22dc0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22dc0 8>                                                     {[«4""»]|[«4""»]|[$$  VAL =_]}
            <Pointer.fp 0x22dca <LVAR  0x010 @>>             Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]}
            <POP 22dc8-22dca StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]}
            <Const 0x22dce 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]}
            <Const 0x22dd0 0x7.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]|[##7]}
            <Call 0x22dd4 0x21660>                                              {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-8-]|[##0]|[##7]}
            <POP 22dd8-22dda StackAdj>                       Δ+12               {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]}
            <Const 0x22dda 0x10.4>                           Δ-4                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]}
            <MI 22dde  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]|[#0]}
            <Call 0x22de0 0x2140e>                                              {[«4""»]|[«4""»]|[$$  VAL =_]|[@@16]|[-4-]|[##16]|[#0]}
            <POP 22de2-22de6 StackAdj>                       Δ+22               {[«4""»]}
            <POP 22de6-22de7 StackAdj>                       Δ+4                {}
            <Blob 0x22de7 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22dea [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22dee-22df0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22df0 8>                                                     {[«4""»]|[«4""»]|[$$  ECC =_]}
            <Pointer.fp 0x22dfa <LVAR  0x019 @>>             Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]}
            <POP 22df8-22dfa StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]}
            <Const 0x22dfe 0x0.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]}
            <Const 0x22e00 0x1.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]|[##1]}
            <Call 0x22e04 0x21660>                                              {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-8-]|[##0]|[##1]}
            <POP 22e08-22e0a StackAdj>                       Δ+12               {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]}
            <Const 0x22e0a 0x4.4>                            Δ-4                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]}
            <MI 22e0e  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]|[#0]}
            <Call 0x22e10 0x2140e>                                              {[«4""»]|[«4""»]|[$$  ECC =_]|[@@25]|[-4-]|[##4]|[#0]}
            <POP 22e12-22e13 StackAdj>                       Δ+26       ↓       {}
            <Blob 0x22e13 [20] (A6+0x8)>                     Δ-20               {[«20»]}
            <Call 0x22e22 0x21fb8>                                              {[«20»]}
            <POP 22e26-22e2a StackAdj>                       Δ+20               {}
            <Call 0x22e2a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22e30-22e38 Epilogue>                           Σ0         

0x22e38


@ 22e38
        <LVAR  0x026 @ 1(r)>
        <LVAR  0x022 @ 4(r)>
        <LVAR  0x01e @ 4(r)>
        <LVAR  0x01c 1(r)>
        <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 -0x00a 4(rw)>
    <POP 22e38-22f7e Body>                                              
        <POP 22e38-22e4e Prologue>                           Σ0         ↓
        <POP 22e4e-22e5a RegCacheLoad>                       Σ0         ↓
        <POP 22e5a-22e5c Naked>                              Σ0         ↓
            <MI 22e5a  MOVEQ.L #0x0f,D7>                                        {}
        <POP 22e5c-22e74 Naked>                              Σ0         ↓ →0x22f38 ←0x22f38
            <MI 22e5c  MOVE.B  D7,D0>                                           {}
            <MI 22e5e  EXTB.W  D0>                                              {}
            <MI 22e60  SUB.W   #0x0c,D0>                                        {}
            <POP 0x22e62 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 22e66  LEA.L   0x2511a,A0>                                      {}
            <MI 22e6c  TST.B   (A0+D0.W+#0x13)>                                 {}
            <MI 22e70  BEQ     0x22f38>                                         {}
        <POP 22e74-22ea4 Naked>                              Σ0         ↓ →0x22f38
            <MI 22e74  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 22e78  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 22e7c  MOVEA.L (A6+0x8),A2>                                     {}
            <MI 22e80  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 22e82  MOVE.B  (A6+0x26),-(A7)>              Δ-2                {[2, 'D7']|[2, '(A6+0x26)']}
            <MI 22e86  MOVE.L  (A6+0x22),-(A7)>              Δ-4                {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']}
            <MI 22e8a  MOVE.L  (A6+0x1e),-(A7)>              Δ-4                {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x1e)']}
            <MI 22e8e  PEA.L   (A0)>                         Δ-4                {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x1e)']|[4, '^(A0)']}
            <MI 22e90  PEA.L   (A1)>                         Δ-4                {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x1e)']|[4, '^(A0)']|[4, '^(A1)']}
            <MI 22e92  PEA.L   (A2)>                         Δ-4                {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x1e)']|[4, '^(A0)']|[4, '^(A1)']|[4, '^(A2)']}
            <Call 0x22e94 0x24f32>                                              {[2, 'D7']|[2, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x1e)']|[4, '^(A0)']|[4, '^(A1)']|[4, '^(A2)']}
            <POP 22e9a-22e9e StackAdj>                       Δ+24               {}
            <MI 22e9e  TST.B   (A0)>                                            {}
            <MI 22ea0  BEQ     0x22f38>                                         {}
        <POP 22ea4-22ee8 Naked>                              Σ0         ↓ →0x22f36
            <MI 22ea4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 22ea8  MOVE.B  D7,(A0)>                                         {}
            <MI 22eaa  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 22eae  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22eb0  MOVE.B  D7,D0>                                           {}
            <MI 22eb2  EXTB.W  D0>                                              {}
            <MI 22eb4  SUB.W   #0x0c,D0>                                        {}
            <MI 22eb6  MULS.W  #0x4,D0>                                         {}
            <MI 22eba  CLR.L   D1>                                              {}
            <MI 22ebc  MOVE.B  (A1),D1>                                         {}
            <MI 22ebe  ASR.W   #0x4,D1>                                         {}
            <MI 22ec0  EXTW.L  D1>                                              {}
            <MI 22ec2  DIVS.W  0x25132,D1>                                      {}
            <MI 22ec8  SWAP.W  D1>                                              {}
            <POP 22eca-22ecc StackAdj>                       Δ-8                {[-8-]}
            <MI 22ecc  ADD.W   D0,D1>                                           {[-8-]}
            <MI 22ece  EXTW.L  D1>                                              {[-8-]}
            <MI 22ed0  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <Call 0x22ed2 0x10354>                                              {[-8-]|[4, 'D1']}
                Long2Quad(a : Long) : Quad
            <POP 22ed8-22eda StackAdj>                       Δ+4                {[-8-]}
            <MI 22eda  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-4-]}
            <MI 22ede  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 22ee2  TST.B   (A6+0x1c)>                                       {}
            <MI 22ee6  BEQ     0x22f36>                                         {}
        <POP 22ee8-22f36 Naked>                              Σ0         ↓
            <MI 22ee8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 22eec  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 22ef0-22ef4 StackAdj>                       Δ-16               {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]}
            <Pointer.fp 0x22ef4 <LVAR  0x026 @ 1(r)>>        Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]}
            <Const 0x22ef8 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]}
            <Const 0x22efa 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[##0]}
            <Call 0x22efc 0x21660>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[##0]}
            <POP 22efe-22f00 StackAdj>                       Δ+4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]}
            <Pointer.fp 0x22f00 <LVAR  0x022 @ 4(r)>>        Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]}
            <Const 0x22f04 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]}
            <Const 0x22f06 0x3.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[##3]}
            <Call 0x22f0a 0x21660>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[##3]}
            <POP 22f0c-22f0e StackAdj>                       Δ+4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]}
            <Pointer.fp 0x22f0e <LVAR  0x01e @ 4(r)>>        Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[@@30]}
            <Const 0x22f12 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[@@30]|[##0]}
            <Const 0x22f14 0x3.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[@@30]|[##0]|[##3]}
            <Call 0x22f18 0x21660>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]|[@@30]|[##0]|[##3]}
            <POP 22f1a-22f1c StackAdj>                       Δ+12               {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]}
            <Call 0x22f1c 0x22144>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[@@38]|[##0]|[@@34]|[##0]}
            <POP 22f20-22f24 StackAdj>                       Δ+14               {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[-2-]}
            <MI 22f24  MOVEA.L A7,A0>                                           {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[-2-]}
            <BlockMove 9,A2,A0>                                                 {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[-2-]}
            <Call 0x22f2e 0x226e4>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-16-]|[-2-]}
            <POP 22f32-22f36 StackAdj>                       Δ+26               {}
        <POP 22f36-22f38 Naked>                              Σ0         →0x22f76 ←0x22ea4
            <MI 22f36  BRA     0x22f76>                                         {}
        <POP 22f38-22f40 Naked>                              Σ0         ↓ →0x22e5c ←0x22e5c ←0x22e74
            <MI 22f38  SUBQ.B  #0x1,D7>                                         {}
            <MI 22f3a  CMP.B   #0x0c,D7>                                        {}
            <MI 22f3c  BGE     0x22e5c>                                         {}
        <POP 22f40-22f76 Naked>                              Σ0         ↓
            <Blob 0x22f40 [34] @>                            Δ-34               {[«34""»]}
            <POP 22f4c-22f4e StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x22f4e 34>                                                    {[«34""»]|[$$NO BOARDS HIT - PAGE NOT IN MEMORY]}
            <Call 0x22f60 0x103e0>                                              {[«34""»]|[$$NO BOARDS HIT - PAGE NOT IN MEMORY]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f66-22f6a StackAdj>                       Δ+38               {}
            <MI 22f6a  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 22f6e  CLR.B   (A0)>                                            {}
            <MI 22f70  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 22f74  MOVE.B  #0x0c,(A0)>                                      {}
        <POP 22f76-22f7e Epilogue>                           Σ0         ←0x22f36

0x22f7e


@ 22f7e
        <LVAR  0x008 4(r)>
        <LVAR -0x019 @>
        <LVAR -0x022 @>
        <LVAR -0x023 @ 1(r)>
        <LVAR -0x024 1(w)>
        <LVAR -0x025 @ 1(r)>
        <LVAR -0x026 @ 1(r)>
        <LVAR -0x027 @ 1(r)>
        <LVAR -0x028 1(rw)>
        <LVAR -0x029 1(rw)>
        <LVAR -0x02a 1(rw)>
        <LVAR -0x02b 1(rw)>
        <LVAR -0x02c 1(rw)>
        <LVAR -0x02d 1(rw)>
        <LVAR -0x02e 1(rw)>
        <LVAR -0x02f 1(rw)>
        <LVAR -0x030 1(rw)>
        <LVAR -0x034 4(rw)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
        <LVAR -0x04c 4(rw)>
        <LVAR -0x050 4(rw)>
    <POP 22f7e-23288 Body>                                   Δ-8        
        <POP 22f7e-22f94 Prologue>                           Σ0         ↓
        <POP 22f94-22fa0 RegCacheLoad>                       Σ0         ↓
        <POP 22fa0-230e2 Naked>                              Σ0 Δ-4     ↓
            <MI 22fa0  CLR.B   (A6-0x26)>                                       {}
            <MI 22fa4  CLR.B   (A6-0x27)>                                       {}
            <MI 22fa8  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x22fac [12] @>                            Δ-12               {[«12""»]}
            <POP 22fbe-22fc0 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 22fc0  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 22fc2-22fc4 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x22fc4 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x22fd4 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 22fd8-22fda StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 22fda  MOVE.L  (A7)+,(A6-0x50)>              Δ+4                {[«12""»]|[-4-]}
            <MI 22fde  MOVE.L  (A7)+,(A6-0x4c)>              Δ+4                {[«12""»]}
            <MI 22fe2  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 22fe4  LEA.L   0x204b8,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 22ff0-22ff2 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 22ff2  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 22ff4-22ff6 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x22ff6 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23006 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 2300a-2300c StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 2300c  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23010  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[«12""»]}
            <MI 23014  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 23016  LEA.L   0x204c4,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 23022-23024 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23024  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23026-23028 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23028 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23038 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 2303c-2303e StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 2303e  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23040  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«12""»]}
            <MI 23042  MOVE.L  (A6-0x3c),(A7)>                                  {[-8-]|[4, '(A6-0x3c)']}
            <MI 23044  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Blob 0x23046 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]}
            <Blob 0x2304a [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
            <Call 0x2304e 0x10330>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 23054-23058 StackAdj>                       Δ+16               {[-8-]}
            <MI 23058  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[-4-]}
            <MI 2305a  MOVE.L  (A7),(A6-0x3c)>                                  {[-4-]}
            <POP 2305c-2305e StackAdj>                       Δ-4                {[-8-]}
            <MI 2305e  MOVE.L  (A0),-(A7)>                   Δ-4                {[-8-]|[4, '(A0)']}
            <Call 0x23060 0x215ec>                                              {[-8-]|[4, '(A0)']}
            <POP 23064-23066 StackAdj>                       Δ+4                {[-8-]}
            <MI 23066  MOVE.L  (A7)+,(A6-0x38)>              Δ+4                {[-4-]}
            <MI 2306a  MOVE.L  (A7),(A6-0x34)>                                  {[-4-]}
            <POP 2306e-23070 StackAdj>                       Δ+2                {[-2-]}
            <MI 23070  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4c)']}
            <MI 23074  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <Call 0x23078 0x216fa>                                              {[-2-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <POP 2307c-2307e StackAdj>                       Δ+8                {[-2-]}
            <MI 2307e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x23080 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 23084  MOVE.B  D0,(A6-0x30)>                                    {}
            <POP 23088-2308a StackAdj>                       Δ-4                {[-4-]}
            <MI 2308a  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']}
            <MI 2308e  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Call 0x23092 0x21890>                                              {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 23096-23098 StackAdj>                       Δ+8                {[-4-]}
            <MI 23098  MOVE.B  (A7),(A6-0x2f)>                                  {[-4-]}
            <MI 2309c  MOVE.B  (A7+0x1),(A6-0x2e)>                              {[-4-]}
            <MI 230a2  MOVE.B  (A7+0x2),(A6-0x2d)>                              {[-4-]}
            <MI 230a8  MOVE.B  (A7+0x3),(A6-0x2c)>                              {[-4-]}
            <MI 230ae  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x3c)']}
            <MI 230b0  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x230b2 0x21890>                                              {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 230b6-230b8 StackAdj>                       Δ+8                {[-4-]}
            <MI 230b8  MOVE.B  (A7),(A6-0x2b)>                                  {[-4-]}
            <MI 230bc  MOVE.B  (A7+0x1),(A6-0x2a)>                              {[-4-]}
            <MI 230c2  MOVE.B  (A7+0x2),(A6-0x29)>                              {[-4-]}
            <MI 230c8  MOVE.B  (A7+0x3),(A6-0x28)>                              {[-4-]}
            <MI 230ce  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x34)']}
            <MI 230d2  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <Call 0x230d6 0x10350>                                              {[-4-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
                Quad2Long(a : Quad) : Long
            <POP 230dc-230de StackAdj>                       Δ+8                {[-4-]}
            <MI 230de  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 230e0  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 230e2-230e8 Naked>                              Σ-4        ↓ →0x2327e ←0x23278
            <MI 230e2  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 230e4  BGT     0x2327e>                                         {[-4-]}
        <POP 230e8-230f6 Naked>                              Σ-4        ↓ →0x23128
            <MI 230e8  MOVE.L  D7,D4>                                           {[-4-]}
            <MI 230ea  MOVEQ.L #0x10,D3>                                        {[-4-]}
            <Call 0x230ec 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 230f2  TST.L   D3>                                              {[-4-]}
            <MI 230f4  BNE     0x23128>                                         {[-4-]}
        <POP 230f6-230fa Naked>                              Σ-4        ↓ →0x23128
            <MI 230f6  TST.L   D7>                                              {[-4-]}
            <MI 230f8  BEQ     0x23128>                                         {[-4-]}
        <POP 230fa-23120 Naked>                              Σ-4 Δ-4    ↓ →0x23126
            <Blob 0x230fa [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <POP 230fe-23100 StackAdj>                       Δ-6                {[-4-]|[«4""»]|[-6-]}
            <Lit 0x23100 4>                                                     {[-4-]|[«4""»]|[-2-]|[$$MORE]}
            <POP 23110-23112 StackAdj>                       Δ-2                {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
            <MI 23112  CLR.B   (A7)>                                            {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
            <Call 0x23114 0x103f0>                                              {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2311a-2311c StackAdj>                       Δ+6                {[-4-]|[«4""»]|[-2-]}
            <MI 2311c  TST.B   (A7)+>                        Δ+2                {[-4-]|[«4""»]}
            <MI 2311e  BNE     0x23126>                                         {[-4-]|[«4""»]}
        <POP 23120-23126 Naked>                              Σ-8 Δ+8    →0x23280
            <POP 23120-23122 StackAdj>                       Δ+8                {}
            <MI 23122  BRA     0x23280>                                         {}
        <POP 23126-23128 Naked>                              Σ-8 Δ+4    ↓ ←0x230fa
            <POP 23126-23128 StackAdj>                       Δ+4                {[-4-]}
        <POP 23128-2312c Naked>                              Σ-4        ↓ →0x2316a ←0x230e8 ←0x230f6
            <MI 23128  TST.L   D7>                                              {[-4-]}
            <MI 2312a  BEQ     0x2316a>                                         {[-4-]}
        <POP 2312c-2316a Naked>                              Σ-4        ↓
            <POP 2312c-2312e StackAdj>                       Δ-8                {[-12-]}
            <MI 2312e  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x3c)']}
            <MI 23130  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Blob 0x23132 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]}
            <Blob 0x23136 [4] @>                             Δ-4                {[-12-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
            <Call 0x2313a 0x10314>                                              {[-12-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
                Add(a, b : Quad) : Quad
            <POP 23140-23144 StackAdj>                       Δ+16               {[-12-]}
            <MI 23144  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[-8-]}
            <MI 23146  MOVE.L  (A7),(A6-0x3c)>                                  {[-8-]}
            <MI 23148  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']}
            <MI 2314a  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x2314c 0x21890>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 23150-23152 StackAdj>                       Δ+8                {[-8-]}
            <MI 23152  MOVE.B  (A7),(A6-0x2b)>                                  {[-8-]}
            <MI 23156  MOVE.B  (A7+0x1),(A6-0x2a)>                              {[-8-]}
            <MI 2315c  MOVE.B  (A7+0x2),(A6-0x29)>                              {[-8-]}
            <MI 23162  MOVE.B  (A7+0x3),(A6-0x28)>                              {[-8-]}
            <POP 23168-2316a StackAdj>                       Δ+4                {[-4-]}
        <POP 2316a-2316e Naked>                              Σ-4        ↓ →0x2317e ←0x23128
            <MI 2316a  TST.L   D7>                                              {[-4-]}
            <MI 2316c  BEQ     0x2317e>                                         {[-4-]}
        <POP 2316e-2317e Naked>                              Σ-4        ↓ →0x231d0
            <POP 2316e-23170 StackAdj>                       Δ-2                {[-6-]}
            <MI 23170  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x3c)']}
            <MI 23172  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x23174 0x21b26>                                              {[-6-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 23178-2317a StackAdj>                       Δ+8                {[-6-]}
            <MI 2317a  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 2317c  BEQ     0x231d0>                                         {[-4-]}
        <POP 2317e-231d0 Naked>                              Σ-4        ↓ ←0x2316a
            <MI 2317e  MOVE.B  (A6-0x30),-(A7)>              Δ-2                {[-4-]|[2, '(A6-0x30)']}
            <POP 23182-23184 StackAdj>                       Δ-4                {[-4-]|[2, '(A6-0x30)']|[-4-]}
            <MI 23184  MOVE.B  (A6-0x2f),(A7)>                                  {[-4-]|[2, '(A6-0x30)']|[-4-]}
            <MI 23188  MOVE.B  (A6-0x2e),(A7+0x1)>                              {[-4-]|[2, '(A6-0x30)']|[-4-]}
            <MI 2318e  MOVE.B  (A6-0x2d),(A7+0x2)>                              {[-4-]|[2, '(A6-0x30)']|[-4-]}
            <MI 23194  MOVE.B  (A6-0x2c),(A7+0x3)>                              {[-4-]|[2, '(A6-0x30)']|[-4-]}
            <POP 2319a-2319c StackAdj>                       Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]}
            <MI 2319c  MOVE.B  (A6-0x2b),(A7)>                                  {[-4-]|[2, '(A6-0x30)']|[-8-]}
            <MI 231a0  MOVE.B  (A6-0x2a),(A7+0x1)>                              {[-4-]|[2, '(A6-0x30)']|[-8-]}
            <MI 231a6  MOVE.B  (A6-0x29),(A7+0x2)>                              {[-4-]|[2, '(A6-0x30)']|[-8-]}
            <MI 231ac  MOVE.B  (A6-0x28),(A7+0x3)>                              {[-4-]|[2, '(A6-0x30)']|[-8-]}
            <Const 0x231b2 0x1.2>                            Δ-2                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]}
            <Pointer.fp 0x231b4 <LVAR -0x026 @ 1(r)>>        Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]}
            <Pointer.fp 0x231b8 <LVAR -0x027 @ 1(r)>>        Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]|[@@-39]}
            <Pointer.fp 0x231bc <LVAR -0x025 @ 1(r)>>        Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]}
            <Pointer.fp 0x231c0 <LVAR -0x023 @ 1(r)>>        Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]}
            <Pointer.fp 0x231c4 <LVAR -0x022 @>>             Δ-4                {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]|[@@-34]}
            <Call 0x231c8 0x22e38>                                              {[-4-]|[2, '(A6-0x30)']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]|[@@-34]}
            <POP 231cc-231d0 StackAdj>                       Δ+32               {[-4-]}
        <POP 231d0-231d8 Naked>                              Σ-4        ↓ →0x23278 ←0x2316e
            <MI 231d0  TST.B   (A6-0x26)>                                       {[-4-]}
            <MI 231d4  BEQ     0x23278>                                         {[-4-]}
        <POP 231d8-231e0 Naked>                              Σ-4        ↓ →0x23278
            <MI 231d8  TST.B   (A6-0x27)>                                       {[-4-]}
            <MI 231dc  BEQ     0x23278>                                         {[-4-]}
        <POP 231e0-23278 Naked>                              Σ-4        ↓
            <MI 231e0  CLR.L   D0>                                              {[-4-]}
            <MI 231e2  MOVE.B  (A6-0x23),D0>                                    {[-4-]}
            <MI 231e6  ASR.W   #0x4,D0>                                         {[-4-]}
            <MI 231e8  EXTW.L  D0>                                              {[-4-]}
            <MI 231ea  DIVS.W  0x25132,D0>                                      {[-4-]}
            <MI 231f0  SWAP.W  D0>                                              {[-4-]}
            <MI 231f2  MOVE.B  (A6-0x25),D1>                                    {[-4-]}
            <MI 231f6  EXTB.W  D1>                                              {[-4-]}
            <MI 231f8  MOVE.W  D1,D2>                                           {[-4-]}
            <MI 231fa  SUBI.W  #0x000c,D2>                                      {[-4-]}
            <MI 231fe  MULS.W  #0x4,D2>                                         {[-4-]}
            <MI 23202  ADD.W   D2,D0>                                           {[-4-]}
            <MI 23204  MULS.W  #0x10,D0>                                        {[-4-]}
            <POP 0x23208 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 2320c  MOVE.B  D0,(A6-0x24)>                                    {[-4-]}
            <POP 0x23210 LimitCheck 0x0 ≤ D1 ≤ 0xf>                             {[-4-]}
            <MI 23214  MOVE.B  D1,-(A7)>                     Δ-2                {[-4-]|[2, 'D1']}
            <MI 23216  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D1']|[2, 'D0']}
            <MI 23218  MOVE.B  (A6-0x30),-(A7)>              Δ-2                {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']}
            <POP 2321c-2321e StackAdj>                       Δ-4                {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-4-]}
            <MI 2321e  MOVE.B  (A6-0x2f),(A7)>                                  {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-4-]}
            <MI 23222  MOVE.B  (A6-0x2e),(A7+0x1)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-4-]}
            <MI 23228  MOVE.B  (A6-0x2d),(A7+0x2)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-4-]}
            <MI 2322e  MOVE.B  (A6-0x2c),(A7+0x3)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-4-]}
            <POP 23234-23236 StackAdj>                       Δ-4                {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]}
            <MI 23236  MOVE.B  (A6-0x2b),(A7)>                                  {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]}
            <MI 2323a  MOVE.B  (A6-0x2a),(A7+0x1)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]}
            <MI 23240  MOVE.B  (A6-0x29),(A7+0x2)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]}
            <MI 23246  MOVE.B  (A6-0x28),(A7+0x3)>                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]}
            <Pointer.fp 0x2324c <LVAR -0x019 @>>             Δ-4                {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]|[@@-25]}
            <Call 0x23250 0x24c90>                                              {[-4-]|[2, 'D1']|[2, 'D0']|[2, '(A6-0x30)']|[-8-]|[@@-25]}
            <POP 23256-2325a StackAdj>                       Δ+14               {[-4-]|[2, 'D1']|[2, 'D0']}
            <MI 2325a  MOVE.L  (A6-0x3c),(A7)>                                  {[-4-]|[4, '(A6-0x3c)']}
            <MI 2325c  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Blob 0x2325e [20] (A6-0x19)>                    Δ-20               {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«20»]}
            <Call 0x23270 0x22d04>                                              {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«20»]}
            <POP 23274-23278 StackAdj>                       Δ+28               {[-4-]}
        <POP 23278-2327e Naked>                              Σ-4        ↓ →0x230e2 ←0x231d0 ←0x231d8
            <MI 23278  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2327a  BVC     0x230e2>                                         {[-4-]}
        <POP 2327e-23280 Naked>                              Σ-4 Δ+4    ↓ ←0x230e2
            <POP 2327e-23280 StackAdj>                       Δ+4                {}
        <POP 23280-23288 Epilogue>                           Σ0         ←0x23120

0x23288


@ 23288
        <LVAR  0x008 4(r)>
        <LVAR -0x017 @>
        <LVAR -0x018 1(w)>
        <LVAR -0x01a 2(rw)>
        <LVAR -0x01b 1(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x02c 4(rw)>
        <LVAR -0x030 4(rw)>
        <LVAR -0x034 4(rw)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
    <POP 23288-234ca Body>                                   Δ-8        
        <POP 23288-2329e Prologue>                           Σ0         ↓
        <POP 2329e-232ae RegCacheLoad>                       Σ0         ↓
        <POP 232ae-2337c Naked>                              Σ0         ↓ →0x233a6
            <MI 232ae  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x232b2 [8] @>                             Δ-8                {[«8""»]}
            <POP 232c2-232c4 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 232c4  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 232c6-232c8 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x232c8 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x232d4 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 232d6-232d8 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 232d8  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«8""»]|[-4-]}
            <MI 232dc  MOVE.L  (A7)+,(A6-0x38)>              Δ+4                {[«8""»]}
            <MI 232e0  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 232e2  LEA.L   0x204dc,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 232ee-232f0 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 232f0  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 232f2-232f4 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x232f4 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23300 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23302-23304 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23304  MOVE.L  (A7)+,(A6-0x34)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23308  MOVE.L  (A7)+,(A6-0x30)>              Δ+4                {[«8""»]}
            <MI 2330c  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 2330e  LEA.L   0x204e4,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 2331a-2331c StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 2331c  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 2331e-23320 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23320 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x2332c 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 2332e-23330 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23330  MOVE.L  (A7)+,(A6-0x2c)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23334  MOVE.L  (A7)+,(A6-0x28)>              Δ+4                {[«8""»]}
            <MI 23338  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[4, '(A0)']}
            <Call 0x2333a 0x215ec>                                              {[«8""»]|[4, '(A0)']}
            <POP 2333e-23340 StackAdj>                       Δ+4                {[«8""»]}
            <MI 23340  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-4-]}
            <MI 23344  MOVE.L  (A7),(A6-0x20)>                                  {[-4-]}
            <POP 23348-2334a StackAdj>                       Δ+2                {[-2-]}
            <MI 2334a  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']}
            <MI 2334e  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <Call 0x23352 0x21a4a>                                              {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <POP 23356-23358 StackAdj>                       Δ+8                {[-2-]}
            <MI 23358  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2335a  EXTB.W  D0>                                              {}
            <POP 0x2335c LimitCheck 0xc ≤ D0 ≤ 0xf>                             {}
            <MI 23364  MOVE.B  D0,D6>                                           {}
            <MI 23366  MOVE.B  D6,D0>                                           {}
            <MI 23368  EXTB.W  D0>                                              {}
            <MI 2336a  SUB.W   #0x0c,D0>                                        {}
            <POP 0x2336c LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 23370  LEA.L   0x2511a,A0>                                      {}
            <MI 23376  TST.B   (A0+D0.W+#0x13)>                                 {}
            <MI 2337a  BNE     0x233a6>                                         {}
        <POP 2337c-233a6 Naked>                              Σ0         →0x234c2
            <Blob 0x2337c [26] @>                            Δ-26               {[«26""»]}
            <POP 23388-2338a StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2338a 26>                                                    {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
            <Call 0x23398 0x103e0>                                              {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
                WriteConsoleStringCrLf(str : String)
            <POP 2339e-233a2 StackAdj>                       Δ+30               {}
            <MI 233a2  BRA     0x234c2>                                         {}
        <POP 233a6-233ea Naked>                              Σ0 Δ-4     ↓ ←0x232ae
            <POP 233a6-233a8 StackAdj>                       Δ-2                {[-2-]}
            <MI 233a8  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']}
            <MI 233ac  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <Call 0x233b0 0x216fa>                                              {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <POP 233b4-233b6 StackAdj>                       Δ+8                {[-2-]}
            <MI 233b6  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x233b8 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 233bc  MOVE.B  D0,(A6-0x1b)>                                    {}
            <POP 233c0-233c2 StackAdj>                       Δ-2                {[-2-]}
            <MI 233c2  MOVE.L  (A6-0x30),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x30)']}
            <MI 233c6  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x30)']|[4, '(A6-0x34)']}
            <Call 0x233ca 0x217ba>                                              {[-2-]|[4, '(A6-0x30)']|[4, '(A6-0x34)']}
            <POP 233ce-233d0 StackAdj>                       Δ+8                {[-2-]}
            <MI 233d0  MOVE.W  (A7),(A6-0x1a)>                                  {[-2-]}
            <POP 233d4-233d6 StackAdj>                       Δ-2                {[-4-]}
            <MI 233d6  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x20)']}
            <MI 233da  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x233de 0x10350>                                              {[-4-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
                Quad2Long(a : Quad) : Long
            <POP 233e4-233e6 StackAdj>                       Δ+8                {[-4-]}
            <MI 233e6  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 233e8  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 233ea-233f0 Naked>                              Σ-4        ↓ →0x234c0 ←0x234ba
            <MI 233ea  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 233ec  BGT     0x234c0>                                         {[-4-]}
        <POP 233f0-233fe Naked>                              Σ-4        ↓ →0x23430
            <MI 233f0  MOVE.L  D7,D4>                                           {[-4-]}
            <MI 233f2  MOVEQ.L #0x10,D3>                                        {[-4-]}
            <Call 0x233f4 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 233fa  TST.L   D3>                                              {[-4-]}
            <MI 233fc  BNE     0x23430>                                         {[-4-]}
        <POP 233fe-23402 Naked>                              Σ-4        ↓ →0x23430
            <MI 233fe  TST.L   D7>                                              {[-4-]}
            <MI 23400  BEQ     0x23430>                                         {[-4-]}
        <POP 23402-23424 Naked>                              Σ-4 Δ-4    ↓ →0x2342a
            <Blob 0x23402 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <POP 23406-23408 StackAdj>                       Δ-6                {[-4-]|[«4""»]|[-6-]}
            <Lit 0x23408 4>                                                     {[-4-]|[«4""»]|[-2-]|[$$MORE]}
            <POP 23414-23416 StackAdj>                       Δ-2                {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
            <MI 23416  CLR.B   (A7)>                                            {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
            <Call 0x23418 0x103f0>                                              {[-4-]|[«4""»]|[-2-]|[$$MORE]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2341e-23420 StackAdj>                       Δ+6                {[-4-]|[«4""»]|[-2-]}
            <MI 23420  TST.B   (A7)+>                        Δ+2                {[-4-]|[«4""»]}
            <MI 23422  BNE     0x2342a>                                         {[-4-]|[«4""»]}
        <POP 23424-2342a Naked>                              Σ-8 Δ+8    →0x234c2
            <POP 23424-23426 StackAdj>                       Δ+8                {}
            <MI 23426  BRA     0x234c2>                                         {}
        <POP 2342a-23430 Naked>                              Σ-8 Δ+4    →0x234ba ←0x23402
            <POP 2342a-2342c StackAdj>                       Δ+4                {[-4-]}
            <MI 2342c  BRA     0x234ba>                                         {[-4-]}
        <POP 23430-234ba Naked>                              Σ-4        ↓ ←0x233f0 ←0x233fe
            <POP 23430-23434 StackAdj>                       Δ-10               {[-14-]}
            <MI 23434  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[-14-]|[4, '(A6-0x28)']}
            <MI 23438  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']}
            <POP 2343c-2343e StackAdj>                       Δ-8                {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
            <MI 2343e  MOVE.L  D7,-(A7)>                     Δ-4                {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]|[4, 'D7']}
            <Call 0x23440 0x10354>                                              {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 23446-23448 StackAdj>                       Δ+4                {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
            <Call 0x23448 0x10314>                                              {[-14-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 2344e-23452 StackAdj>                       Δ+16               {[-14-]}
            <Call 0x23452 0x216fa>                                              {[-14-]}
            <POP 23456-23458 StackAdj>                       Δ+8                {[-6-]}
            <MI 23458  MOVE.W  (A7)+,D0>                     Δ+2                {[-4-]}
            <POP 0x2345a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 2345e  MOVE.B  D0,(A6-0x18)>                                    {[-4-]}
            <MI 23462  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[2, 'D6']}
            <MI 23464  MOVE.B  (A6-0x1b),-(A7)>              Δ-2                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']}
            <MI 23468  MOVE.W  (A6-0x1a),-(A7)>              Δ-2                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']}
            <MI 2346c  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']}
            <Pointer.fp 0x2346e <LVAR -0x017 @>>             Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]}
            <Call 0x23472 0x24dec>                                              {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]}
            <POP 23478-2347a StackAdj>                       Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]}
            <MI 2347a  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']}
            <MI 2347e  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']}
            <POP 23482-23484 StackAdj>                       Δ-8                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
            <MI 23484  MOVE.L  D7,-(A7)>                     Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]|[4, 'D7']}
            <Call 0x23486 0x10354>                                              {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 2348c-2348e StackAdj>                       Δ+4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
            <Call 0x2348e 0x10314>                                              {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 23494-23498 StackAdj>                       Δ+16               {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]}
            <Const 0x23498 0x7.4>                            Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[##7]}
            <Call 0x2349c 0x10344>                                              {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[@@-23]|[-4-]|[##7]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 234a2-234a3 StackAdj>                       Δ+12       ↓       {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']}
            <Blob 0x234a3 [20] (A6-0x17)>                    Δ-20               {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[«20»]}
            <Call 0x234b2 0x22d04>                                              {[-4-]|[2, 'D6']|[2, '(A6-0x1b)']|[2, '(A6-0x1a)']|[2, 'D0']|[«20»]}
            <POP 234b6-234ba StackAdj>                       Δ+28               {[-4-]}
        <POP 234ba-234c0 Naked>                              Σ-4        ↓ →0x233ea ←0x2342a
            <MI 234ba  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 234bc  BVC     0x233ea>                                         {[-4-]}
        <POP 234c0-234c2 Naked>                              Σ-4 Δ+4    ↓ ←0x233ea
            <POP 234c0-234c2 StackAdj>                       Δ+4                {}
        <POP 234c2-234ca Epilogue>                           Σ0         ←0x2337c ←0x23424

0x234ca


@ 234ca
        <LVAR  0x008 4(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x009 1(r)>
        <LVAR -0x011 @>
        <LVAR -0x019 @>
        <LVAR -0x022 @>
        <LVAR -0x023 @ 1(r)>
        <LVAR -0x024 1(w)>
        <LVAR -0x025 @ 1(r)>
        <LVAR -0x026 @ 1(r)>
        <LVAR -0x027 @ 1(r)>
        <LVAR -0x028 1(rw)>
        <LVAR -0x029 1(rw)>
        <LVAR -0x02a 1(rw)>
        <LVAR -0x02b 1(rw)>
        <LVAR -0x02c 1(rw)>
        <LVAR -0x02d 1(rw)>
        <LVAR -0x02e 1(rw)>
        <LVAR -0x02f 1(rw)>
        <LVAR -0x030 1(w)>
        <LVAR -0x034 4(rw)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
        <LVAR -0x04c 4(rw)>
        <LVAR -0x050 4(rw)>
        <LVAR -0x054 4(rw)>
        <LVAR -0x058 4(rw)>
    <POP 234ca-237e4 Body>                                              
        <POP 234ca-234e0 Prologue>                           Σ0         ↓
        <POP 234e0-234f2 RegCacheLoad>                       Σ0         ↓
        <POP 234f2-23716 Naked>                              Σ0         ↓ →0x237dc
            <MI 234f2  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x234f6 [12] @>                            Δ-12               {[«12""»]}
            <POP 23506-23508 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23508  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 2350a-2350c StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x2350c 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23518 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 2351a-2351c StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 2351c  MOVE.L  (A7)+,(A6-0x58)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23520  MOVE.L  (A7)+,(A6-0x54)>              Δ+4                {[«12""»]}
            <MI 23524  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 23526  LEA.L   0x20516,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 23532-23534 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23534  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23536-23538 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23538 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23544 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 23546-23548 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 23548  MOVE.L  (A7)+,(A6-0x50)>              Δ+4                {[«12""»]|[-4-]}
            <MI 2354c  MOVE.L  (A7)+,(A6-0x4c)>              Δ+4                {[«12""»]}
            <MI 23550  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 23552  LEA.L   0x20522,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 2355e-23560 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23560  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23562-23564 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23564 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23570 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 23572-23574 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 23574  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23578  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[«12""»]}
            <MI 2357c  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 2357e  LEA.L   0x2052e,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 2358a-2358c StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 2358c  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 2358e-23590 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23590 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x2359c 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 2359e-235a0 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 235a0  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[«12""»]|[-4-]}
            <MI 235a4  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«12""»]}
            <MI 235a8  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 235aa  LEA.L   0x2053a,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 235b6-235b8 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 235b8  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 235ba-235bc StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x235bc 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x235c8 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 235ca-235cc StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 235cc  MOVE.L  (A7)+,(A6-0x38)>              Δ+4                {[«12""»]|[-4-]}
            <MI 235d0  MOVE.L  (A7)+,(A6-0x34)>              Δ+4                {[«12""»]}
            <POP 235d4-235d6 StackAdj>                       Δ+6                {[-6-]}
            <MI 235d6  MOVE.L  (A6-0x54),(A7)>                                  {[-2-]|[4, '(A6-0x54)']}
            <MI 235da  MOVE.L  (A6-0x58),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x54)']|[4, '(A6-0x58)']}
            <Call 0x235de 0x216fa>                                              {[-2-]|[4, '(A6-0x54)']|[4, '(A6-0x58)']}
            <POP 235e2-235e4 StackAdj>                       Δ+8                {[-2-]}
            <MI 235e4  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x235e6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 235ea  MOVE.B  D0,(A6-0x30)>                                    {}
            <POP 235ee-235f0 StackAdj>                       Δ-4                {[-4-]}
            <MI 235f0  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x4c)']}
            <MI 235f4  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <Call 0x235f8 0x21890>                                              {[-4-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <POP 235fc-235fe StackAdj>                       Δ+8                {[-4-]}
            <MI 235fe  MOVE.B  (A7),(A6-0x2f)>                                  {[-4-]}
            <MI 23602  MOVE.B  (A7+0x1),(A6-0x2e)>                              {[-4-]}
            <MI 23608  MOVE.B  (A7+0x2),(A6-0x2d)>                              {[-4-]}
            <MI 2360e  MOVE.B  (A7+0x3),(A6-0x2c)>                              {[-4-]}
            <POP 23614-23616 StackAdj>                       Δ-4                {[-8-]}
            <MI 23616  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']}
            <MI 2361a  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Blob 0x2361e [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[«4""»]}
            <Blob 0x23622 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[«4""»]|[«4""»]}
            <Call 0x23626 0x10330>                                              {[-8-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 2362c-2362e StackAdj>                       Δ+16               {[-8-]}
            <MI 2362e  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[-4-]}
            <MI 23632  MOVE.L  (A7),(A6-0x44)>                                  {[-4-]}
            <MI 23636  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']}
            <MI 2363a  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Call 0x2363e 0x21890>                                              {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 23642-23644 StackAdj>                       Δ+8                {[-4-]}
            <MI 23644  MOVE.B  (A7),(A6-0x2b)>                                  {[-4-]}
            <MI 23648  MOVE.B  (A7+0x1),(A6-0x2a)>                              {[-4-]}
            <MI 2364e  MOVE.B  (A7+0x2),(A6-0x29)>                              {[-4-]}
            <MI 23654  MOVE.B  (A7+0x3),(A6-0x28)>                              {[-4-]}
            <POP 2365a-2365c StackAdj>                       Δ-4                {[-8-]}
            <MI 2365c  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']}
            <MI 23660  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x23664 0x2196a>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 23668-2366a StackAdj>                       Δ+8                {[-8-]}
            <MI 2366a  LEA.L   (A6-0x19),A0>                                    {[-8-]}
            <MI 2366e  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <MI 23678  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x34)']}
            <MI 2367c  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <Call 0x23680 0x2196a>                                              {[-8-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <POP 23684-23686 StackAdj>                       Δ+8                {[-8-]}
            <MI 23686  LEA.L   (A6-0x11),A0>                                    {[-8-]}
            <MI 2368a  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 23694-23696 StackAdj>                       Δ+8                {}
            <MI 23696  CLR.B   (A6-0x9)>                                        {}
            <POP 2369a-2369e StackAdj>                       Δ-10               {[-10-]}
            <MI 2369e  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x3c)']}
            <MI 236a2  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <MI 236a6  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[4, '(A6-0x34)']}
            <MI 236aa  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <Call 0x236ae 0x21d8a>                                              {[-10-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <POP 236b2-236b4 StackAdj>                       Δ+16               {[-10-]}
            <Call 0x236b4 0x217ba>                                              {[-10-]}
            <POP 236b8-236ba StackAdj>                       Δ+8                {[-2-]}
            <MI 236ba  MOVE.W  (A7)+,(A6-0x8)>               Δ+2                {}
            <MI 236be  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <POP 236c0-236c2 StackAdj>                       Δ-4                {[2, 'D0']|[-4-]}
            <MI 236c2  MOVE.B  (A6-0x2f),(A7)>                                  {[2, 'D0']|[-4-]}
            <MI 236c6  MOVE.B  (A6-0x2e),(A7+0x1)>                              {[2, 'D0']|[-4-]}
            <MI 236cc  MOVE.B  (A6-0x2d),(A7+0x2)>                              {[2, 'D0']|[-4-]}
            <MI 236d2  MOVE.B  (A6-0x2c),(A7+0x3)>                              {[2, 'D0']|[-4-]}
            <POP 236d8-236da StackAdj>                       Δ-4                {[2, 'D0']|[-8-]}
            <MI 236da  MOVE.B  (A6-0x2b),(A7)>                                  {[2, 'D0']|[-8-]}
            <MI 236de  MOVE.B  (A6-0x2a),(A7+0x1)>                              {[2, 'D0']|[-8-]}
            <MI 236e4  MOVE.B  (A6-0x29),(A7+0x2)>                              {[2, 'D0']|[-8-]}
            <MI 236ea  MOVE.B  (A6-0x28),(A7+0x3)>                              {[2, 'D0']|[-8-]}
            <Const 0x236f0 0x1.2>                            Δ-2                {[2, 'D0']|[-8-]|[#1]}
            <Pointer.fp 0x236f2 <LVAR -0x026 @ 1(r)>>        Δ-4                {[2, 'D0']|[-8-]|[#1]|[@@-38]}
            <Pointer.fp 0x236f6 <LVAR -0x027 @ 1(r)>>        Δ-4                {[2, 'D0']|[-8-]|[#1]|[@@-38]|[@@-39]}
            <Pointer.fp 0x236fa <LVAR -0x025 @ 1(r)>>        Δ-4                {[2, 'D0']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]}
            <Pointer.fp 0x236fe <LVAR -0x023 @ 1(r)>>        Δ-4                {[2, 'D0']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]}
            <Pointer.fp 0x23702 <LVAR -0x022 @>>             Δ-4                {[2, 'D0']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]|[@@-34]}
            <Call 0x23706 0x22e38>                                              {[2, 'D0']|[-8-]|[#1]|[@@-38]|[@@-39]|[@@-37]|[@@-35]|[@@-34]}
            <POP 2370a-2370e StackAdj>                       Δ+32               {}
            <MI 2370e  TST.B   (A6-0x26)>                                       {}
            <MI 23712  BEQ     0x237dc>                                         {}
        <POP 23716-2371e Naked>                              Σ0         ↓ →0x237dc
            <MI 23716  TST.B   (A6-0x27)>                                       {}
            <MI 2371a  BEQ     0x237dc>                                         {}
        <POP 2371e-237dc Naked>                              Σ0         ↓
            <MI 2371e  CLR.L   D1>                                              {}
            <MI 23720  MOVE.B  (A6-0x23),D1>                                    {}
            <MI 23724  ASR.W   #0x4,D1>                                         {}
            <MI 23726  EXTW.L  D1>                                              {}
            <MI 23728  DIVS.W  0x25132,D1>                                      {}
            <MI 2372e  SWAP.W  D1>                                              {}
            <MI 23730  MOVE.B  (A6-0x25),D2>                                    {}
            <MI 23734  EXTB.W  D2>                                              {}
            <MI 23736  MOVE.W  D2,D3>                                           {}
            <MI 23738  SUB.W   #0x0c,D3>                                        {}
            <MI 2373a  MULS.W  #0x4,D3>                                         {}
            <MI 2373e  ADD.W   D3,D1>                                           {}
            <MI 23740  MULS.W  #0x10,D1>                                        {}
            <POP 0x23742 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23746  MOVE.B  D1,(A6-0x24)>                                    {}
            <MI 2374a  MOVE.B  D2,-(A7)>                     Δ-2                {[2, 'D2']}
            <MI 2374c  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D1']}
            <MI 2374e  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D1']|[2, 'D0']}
            <POP 23750-23752 StackAdj>                       Δ-4                {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 23752  MOVE.B  (A6-0x2f),(A7)>                                  {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 23756  MOVE.B  (A6-0x2e),(A7+0x1)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 2375c  MOVE.B  (A6-0x2d),(A7+0x2)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 23762  MOVE.B  (A6-0x2c),(A7+0x3)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <POP 23768-2376a StackAdj>                       Δ-4                {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2376a  MOVE.B  (A6-0x2b),(A7)>                                  {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2376e  MOVE.B  (A6-0x2a),(A7+0x1)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 23774  MOVE.B  (A6-0x29),(A7+0x2)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2377a  MOVE.B  (A6-0x28),(A7+0x3)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <Blob 0x23780 [20] (A6-0x19)>                    Δ-20               {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]|[«20»]}
            <Call 0x23792 0x246b6>                                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]|[«20»]}
            <POP 23798-2379c StackAdj>                       Δ+32               {[2, 'D2']}
            <MI 2379c  MOVE.B  D2,(A7)>                                         {[-2-]}
            <MI 2379e  MOVE.B  D1,-(A7)>                     Δ-2                {[-2-]|[2, 'D1']}
            <MI 237a0  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D1']|[2, 'D0']}
            <POP 237a2-237a4 StackAdj>                       Δ-4                {[-2-]|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 237a4  MOVE.B  (A6-0x2f),(A7)>                                  {[-2-]|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 237a8  MOVE.B  (A6-0x2e),(A7+0x1)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 237ae  MOVE.B  (A6-0x2d),(A7+0x2)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 237b4  MOVE.B  (A6-0x2c),(A7+0x3)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-4-]}
            <POP 237ba-237bc StackAdj>                       Δ-4                {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 237bc  MOVE.B  (A6-0x2b),(A7)>                                  {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 237c0  MOVE.B  (A6-0x2a),(A7+0x1)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 237c6  MOVE.B  (A6-0x29),(A7+0x2)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 237cc  MOVE.B  (A6-0x28),(A7+0x3)>                              {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <Call 0x237d2 0x2496c>                                              {[-2-]|[2, 'D1']|[2, 'D0']|[-8-]}
            <POP 237d8-237dc StackAdj>                       Δ+14               {}
        <POP 237dc-237e4 Epilogue>                           Σ0         ←0x234f2 ←0x23716

0x237e4


@ 237e4
        <LVAR  0x008 4(r)>
        <LVAR -0x002 2(w)>
        <LVAR -0x003 1(r)>
        <LVAR -0x00b @>
        <LVAR -0x013 @>
        <LVAR -0x014 1(w)>
        <LVAR -0x016 2(rw)>
        <LVAR -0x017 1(w)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x034 4(rw)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
    <POP 237e4-23a22 Body>                                              
        <POP 237e4-237fa Prologue>                           Σ0         ↓
        <POP 237fa-2380a RegCacheLoad>                       Σ0         ↓
        <POP 2380a-239cc Naked>                              Σ0         ↓ →0x239f4
            <MI 2380a  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x2380e [8] @>                             Δ-8                {[«8""»]}
            <POP 2381e-23820 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23820  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23822-23824 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23824 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23830 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23832-23834 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23834  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23838  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[«8""»]}
            <MI 2383c  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 2383e  LEA.L   0x2054e,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 2384a-2384c StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 2384c  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 2384e-23850 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23850 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x2385c 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 2385e-23860 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23860  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23864  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«8""»]}
            <MI 23868  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 2386a  LEA.L   0x20556,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 23876-23878 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23878  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 2387a-2387c StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x2387c 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23888 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 2388a-2388c StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 2388c  MOVE.L  (A7)+,(A6-0x38)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23890  MOVE.L  (A7)+,(A6-0x34)>              Δ+4                {[«8""»]}
            <MI 23894  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 23896  LEA.L   0x2055e,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 238a2-238a4 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 238a4  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 238a6-238a8 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x238a8 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x238b4 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 238b6-238b8 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 238b8  MOVE.L  (A7)+,(A6-0x28)>              Δ+4                {[«8""»]|[-4-]}
            <MI 238bc  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[«8""»]}
            <MI 238c0  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 238c2  LEA.L   0x20566,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 238ce-238d0 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 238d0  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 238d2-238d4 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x238d4 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x238e0 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 238e2-238e4 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 238e4  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[«8""»]|[-4-]}
            <MI 238e8  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[«8""»]}
            <POP 238ec-238ee StackAdj>                       Δ+2                {[-6-]}
            <MI 238ee  MOVE.L  (A6-0x44),(A7)>                                  {[-2-]|[4, '(A6-0x44)']}
            <MI 238f2  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Call 0x238f6 0x216fa>                                              {[-2-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 238fa-238fc StackAdj>                       Δ+8                {[-2-]}
            <MI 238fc  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x238fe LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 23902  MOVE.B  D0,(A6-0x17)>                                    {}
            <POP 23906-23908 StackAdj>                       Δ-2                {[-2-]}
            <MI 23908  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x3c)']}
            <MI 2390c  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x23910 0x217ba>                                              {[-2-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 23914-23916 StackAdj>                       Δ+8                {[-2-]}
            <MI 23916  MOVE.W  (A7),(A6-0x16)>                                  {[-2-]}
            <MI 2391a  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x34)']}
            <MI 2391e  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <Call 0x23922 0x216fa>                                              {[-2-]|[4, '(A6-0x34)']|[4, '(A6-0x38)']}
            <POP 23926-23928 StackAdj>                       Δ+8                {[-2-]}
            <MI 23928  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x2392a LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 2392e  MOVE.B  D1,(A6-0x14)>                                    {}
            <POP 23932-23934 StackAdj>                       Δ-8                {[-8-]}
            <MI 23934  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x24)']}
            <MI 23938  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']}
            <Call 0x2393c 0x2196a>                                              {[-8-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']}
            <POP 23940-23942 StackAdj>                       Δ+8                {[-8-]}
            <MI 23942  LEA.L   (A6-0x13),A0>                                    {[-8-]}
            <MI 23946  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <MI 23950  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x1c)']}
            <MI 23954  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x1c)']|[4, '(A6-0x20)']}
            <Call 0x23958 0x2196a>                                              {[-8-]|[4, '(A6-0x1c)']|[4, '(A6-0x20)']}
            <POP 2395c-2395e StackAdj>                       Δ+8                {[-8-]}
            <MI 2395e  LEA.L   (A6-0xb),A0>                                     {[-8-]}
            <MI 23962  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 2396c-2396e StackAdj>                       Δ+8                {}
            <MI 2396e  CLR.B   (A6-0x3)>                                        {}
            <POP 23972-23976 StackAdj>                       Δ-10               {[-10-]}
            <MI 23976  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x24)']}
            <MI 2397a  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']}
            <MI 2397e  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']|[4, '(A6-0x1c)']}
            <MI 23982  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']|[4, '(A6-0x1c)']|[4, '(A6-0x20)']}
            <Call 0x23986 0x21d8a>                                              {[-10-]|[4, '(A6-0x24)']|[4, '(A6-0x28)']|[4, '(A6-0x1c)']|[4, '(A6-0x20)']}
            <POP 2398a-2398e StackAdj>                       Δ+16               {[-10-]}
            <Call 0x2398e 0x217ba>                                              {[-10-]}
            <POP 23992-23994 StackAdj>                       Δ+8                {[-2-]}
            <MI 23994  MOVE.W  (A7),(A6-0x2)>                                   {[-2-]}
            <MI 23998  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x44)']}
            <MI 2399c  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Call 0x239a0 0x21a4a>                                              {[-2-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 239a4-239a6 StackAdj>                       Δ+8                {[-2-]}
            <MI 239a6  MOVE.B  (A7)+,D2>                     Δ+2                {}
            <MI 239a8  EXTB.W  D2>                                              {}
            <POP 0x239aa LimitCheck 0xc ≤ D2 ≤ 0xf>                             {}
            <MI 239b2  MOVE.B  D2,D7>                                           {}
            <MI 239b4  MOVE.B  D7,D2>                                           {}
            <MI 239b6  EXTB.W  D2>                                              {}
            <MI 239b8  MOVE.W  D2,D3>                                           {}
            <MI 239ba  SUB.W   #0x0c,D3>                                        {}
            <POP 0x239bc LimitCheck 0x0 ≤ D3 ≤ 0x3>                             {}
            <MI 239c0  LEA.L   0x2511a,A0>                                      {}
            <MI 239c6  TST.B   (A0+D3.W+#0x13)>                                 {}
            <MI 239ca  BEQ     0x239f4>                                         {}
        <POP 239cc-239f4 Naked>                              Σ0         →0x23a1a
            <MI 239cc  MOVE.B  D2,-(A7)>                     Δ-2                {[2, 'D2']}
            <MI 239ce  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D0']}
            <MI 239d0  MOVE.W  (A6-0x16),-(A7)>              Δ-2                {[2, 'D2']|[2, 'D0']|[2, '(A6-0x16)']}
            <MI 239d4  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D0']|[2, '(A6-0x16)']|[2, 'D1']}
            <Blob 0x239d6 [20] (A6-0x13)>                    Δ-20               {[2, 'D2']|[2, 'D0']|[2, '(A6-0x16)']|[2, 'D1']|[«20»]}
            <Call 0x239e8 0x24814>                                              {[2, 'D2']|[2, 'D0']|[2, '(A6-0x16)']|[2, 'D1']|[«20»]}
            <POP 239ee-239f2 StackAdj>                       Δ+28               {}
            <MI 239f2  BRA     0x23a1a>                                         {}
        <POP 239f4-23a1a Naked>                              Σ0         ↓ ←0x2380a
            <Blob 0x239f4 [26] @>                            Δ-26               {[«26""»]}
            <POP 23a00-23a02 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x23a02 26>                                                    {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
            <Call 0x23a10 0x103e0>                                              {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
                WriteConsoleStringCrLf(str : String)
            <POP 23a16-23a1a StackAdj>                       Δ+30               {}
        <POP 23a1a-23a22 Epilogue>                           Σ0         ←0x239cc

0x23a22


@ 23a22
        <LVAR  0x008 4(r)>
        <LVAR -0x00b @>
        <LVAR -0x00c 1(rw)>
        <LVAR -0x00d 1(rw)>
        <LVAR -0x00e 1(rw)>
        <LVAR -0x01a 4(rw)>
        <LVAR -0x01e 4(rw)>
    <POP 23a22-23b4a Body>                                              
        <POP 23a22-23a38 Prologue>                           Σ0         ↓
        <POP 23a38-23a3a RegCacheLoad>                       Σ0         ↓
        <POP 23a3a-23a94 Naked>                              Σ0         ↓
            <Blob 0x23a3a [8] @>                             Δ-8                {[«8""»]}
            <POP 23a4a-23a4c StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23a4c  MOVEA.L (A6+0x8),A0>                                     {[«8""»]|[-8-]}
            <MI 23a50  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23a52-23a54 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23a54 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$LINE :_]}
            <Call 0x23a68 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$LINE :_]}
            <POP 23a6c-23a6e StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23a6e  MOVE.L  (A7)+,(A6-0x1e)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23a72  MOVE.L  (A7)+,(A6-0x1a)>              Δ+4                {[«8""»]}
            <POP 23a76-23a78 StackAdj>                       Δ+2                {[-6-]}
            <MI 23a78  MOVE.L  (A6-0x1a),(A7)>                                  {[-2-]|[4, '(A6-0x1a)']}
            <MI 23a7c  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <Call 0x23a80 0x217ba>                                              {[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <POP 23a84-23a86 StackAdj>                       Δ+8                {[-2-]}
            <MI 23a86  MOVE.B  (A7),(A6-0xd)>                                   {[-2-]}
            <MI 23a8a  MOVE.B  (A7+0x1),(A6-0xc)>                               {[-2-]}
            <POP 23a90-23a92 StackAdj>                       Δ+2                {}
            <MI 23a92  MOVEQ.L #0x0c,D6>                                        {}
        <POP 23a94-23aac Naked>                              Σ0         ↓ →0x23b38 ←0x23b38
            <MI 23a94  MOVE.B  D6,D0>                                           {}
            <MI 23a96  EXTB.W  D0>                                              {}
            <MI 23a98  SUB.W   #0x0c,D0>                                        {}
            <POP 0x23a9a LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 23a9e  LEA.L   0x2511a,A0>                                      {}
            <MI 23aa4  TST.B   (A0+D0.W+#0x13)>                                 {}
            <MI 23aa8  BEQ     0x23b38>                                         {}
        <POP 23aac-23ace Naked>                              Σ0 Δ-4     ↓ →0x23ae2
            <MI 23aac  MOVE.B  D6,D0>                                           {}
            <MI 23aae  EXTB.W  D0>                                              {}
            <MI 23ab0  SUB.W   #0x0c,D0>                                        {}
            <MI 23ab2  MULS.W  #0x4,D0>                                         {}
            <MI 23ab6  EXTW.L  D0>                                              {}
            <MI 23ab8  MOVE.L  D0,D5>                                           {}
            <MI 23aba  MOVE.W  0x25132,D0>                                      {}
            <MI 23ac0  SUBQ.W  #0x1,D0>                                         {}
            <MI 23ac2  EXTW.L  D0>                                              {}
            <MI 23ac4  ADD.L   D5,D0>                                           {}
            <MI 23ac6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 23ac8  MOVE.L  D5,D7>                                           {[4, 'D0']}
            <MI 23aca  CMP.L   (A7),D7>                                         {[4, 'D0']}
            <MI 23acc  BGT     0x23ae2>                                         {[4, 'D0']}
        <POP 23ace-23ae2 Naked>                              Σ-4        ↓
            <MI 23ace  MOVE.L  (A7),D0>                                         {[-4-]}
            <POP 0x23ad0 LimitCheck -0x7fffffff ≤ D7>                           {[-4-]}
                <MI 23ad0  CMPI.L  #0x80000001,D7>                      
                <MI 23ad6  BLT     0x23ae0>                             
            <POP 0x23ad8 LimitCheck D0 ≤ 0x7fffffff>                            {[-4-]}
                <MI 23ad8  CMPI.L  #0x7fffffff,D0>                      
                <MI 23ade  BLE     0x23ae2>                             
                <MI 23ae0  TRAP    #15>                                 
        <POP 23ae2-23ae6 Naked>                              Σ-4        ↓ →0x23b36 ←0x23aac ←0x23ae6
            <MI 23ae2  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23ae4  BGT     0x23b36>                                         {[-4-]}
        <POP 23ae6-23b36 Naked>                              Σ-4        ↓ →0x23ae2
            <POP 0x23ae6 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[-4-]}
            <MI 23af0  MOVE.B  D7,(A6-0xe)>                                     {[-4-]}
            <MI 23af4  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[2, 'D6']}
            <MI 23af6  MOVE.B  (A6-0xe),-(A7)>               Δ-2                {[-4-]|[2, 'D6']|[2, '(A6-0xe)']}
            <POP 23afa-23afc StackAdj>                       Δ-2                {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]}
            <MI 23afc  MOVE.B  (A6-0xd),(A7)>                                   {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]}
            <MI 23b00  MOVE.B  (A6-0xc),(A7+0x1)>                               {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]}
            <Pointer.fp 0x23b06 <LVAR -0x00b @>>             Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[@@-11]}
            <Call 0x23b0a 0x24a70>                                              {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[@@-11]}
            <POP 23b10-23b12 StackAdj>                       Δ+2                {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]}
            <MI 23b12  MOVE.L  D7,-(A7)>                     Δ-4                {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]|[4, 'D7']}
            <Call 0x23b14 0x10354>                                              {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 23b1a-23b1b StackAdj>                       Δ+4        ↓       {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]}
            <Blob 0x23b1b [10] (A6-0xb)>                     Δ-10               {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]|[«10»]}
            <Call 0x23b2a 0x22a36>                                              {[-4-]|[2, 'D6']|[2, '(A6-0xe)']|[-2-]|[-2-]|[«10»]}
            <POP 23b2e-23b32 StackAdj>                       Δ+18               {[-4-]}
            <MI 23b32  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23b34  BVC     0x23ae2>                                         {[-4-]}
        <POP 23b36-23b38 Naked>                              Σ-4 Δ+4    ↓ ←0x23ae2
            <POP 23b36-23b38 StackAdj>                       Δ+4                {}
        <POP 23b38-23b42 Naked>                              Σ0         ↓ →0x23a94 ←0x23a94
            <MI 23b38  ADDQ.B  #0x1,D6>                                         {}
            <MI 23b3a  CMPI.B  #0x0f,D6>                                        {}
            <MI 23b3e  BLE     0x23a94>                                         {}
        <POP 23b42-23b4a Epilogue>                           Σ0         

0x23b4a


@ 23b4a
        <LVAR  0x008 4(r)>
        <LVAR -0x002 1(w)>
        <LVAR -0x006 4(w)>
        <LVAR -0x00a 4(w)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 4(rw)>
        <LVAR -0x013 1(w)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
    <POP 23b4a-23cde Body>                                              
        <POP 23b4a-23b60 Prologue>                           Σ0         ↓
        <POP 23b60-23b72 RegCacheLoad>                       Σ0         ↓
        <POP 23b72-23c68 Naked>                              Σ0         ↓ →0x23c90
            <MI 23b72  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x23b76 [8] @>                             Δ-8                {[«8""»]}
            <POP 23b86-23b88 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23b88  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23b8a-23b8c StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23b8c 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23b98 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23b9a-23b9c StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23b9c  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23ba0  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[«8""»]}
            <MI 23ba4  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 23ba6  LEA.L   0x20598,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 23bb2-23bb4 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23bb4  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23bb6-23bb8 StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23bb8 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23bc4 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23bc6-23bc8 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23bc8  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23bcc  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[«8""»]}
            <POP 23bd0-23bd2 StackAdj>                       Δ+6                {[-2-]}
            <POP 23bd2-23bd3 StackAdj>                       Δ+2                {}
            <Blob 0x23bd3 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x23bd6 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x23bda [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23bde-23be0 StackAdj>                       Δ-8                {[«2""»]|[«2""»]|[«2""»]|[-8-]}
            <MI 23be0  MOVE.L  (A0),-(A7)>                   Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A0)']}
            <POP 23be2-23be4 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23be4 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A0)']|[$$TAG  :]}
            <Call 0x23bf2 0x2156c>                                              {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A0)']|[$$TAG  :]}
            <POP 23bf4-23bf6 StackAdj>                       Δ+8                {[«2""»]|[«2""»]|[«2""»]|[-8-]}
            <MI 23bf6  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <MI 23bfa  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 23bfe-23c00 StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[-2-]}
            <MI 23c00  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0xe)']}
            <MI 23c04  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x23c08 0x2196a>                                              {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 23c0c-23c0e StackAdj>                       Δ+8                {[«2""»]|[«2""»]|[«2""»]|[-2-]}
            <MI 23c0e  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[«2""»]|[«2""»]}
            <MI 23c12  MOVE.L  (A7),(A6-0x6)>                                   {[«2""»]|[«2""»]}
            <POP 23c16-23c18 StackAdj>                       Δ-6                {[«2""»]|[«2""»]|[-6-]}
            <MI 23c18  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«2""»]|[«2""»]|[-6-]|[4, '(A6-0xe)']}
            <MI 23c1c  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[«2""»]|[«2""»]|[-6-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Call 0x23c20 0x21b7e>                                              {[«2""»]|[«2""»]|[-6-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 23c24-23c26 StackAdj>                       Δ+8                {[«2""»]|[«2""»]|[-6-]}
            <Call 0x23c26 0x216fa>                                              {[«2""»]|[«2""»]|[-6-]}
            <POP 23c2a-23c2c StackAdj>                       Δ+8                {[«2""»]}
            <MI 23c2c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x23c2e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 23c32  MOVE.B  D0,(A6-0x2)>                                     {}
            <POP 23c36-23c38 StackAdj>                       Δ-2                {[-2-]}
            <MI 23c38  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x20)']}
            <MI 23c3c  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x23c40 0x21a4a>                                              {[-2-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <POP 23c44-23c46 StackAdj>                       Δ+8                {[-2-]}
            <MI 23c46  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 23c48  EXTB.W  D0>                                              {}
            <POP 0x23c4a LimitCheck 0xc ≤ D0 ≤ 0xf>                             {}
            <MI 23c50  MOVE.B  D0,D7>                                           {}
            <MI 23c52  MOVE.B  D7,D0>                                           {}
            <MI 23c54  EXTB.W  D0>                                              {}
            <MI 23c56  MOVE.W  D0,D1>                                           {}
            <MI 23c58  SUB.W   #0x0c,D1>                                        {}
            <POP 0x23c5a LimitCheck 0x0 ≤ D1 ≤ 0x3>                             {}
            <MI 23c5c  LEA.L   0x2511a,A0>                                      {}
            <MI 23c62  TST.B   (A0+D1.W+#0x13)>                                 {}
            <MI 23c66  BNE     0x23c90>                                         {}
        <POP 23c68-23c90 Naked>                              Σ0         →0x23cd6
            <Blob 0x23c68 [26] @>                            Δ-26               {[«26""»]}
            <POP 23c74-23c76 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x23c76 26>                                                    {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
            <Call 0x23c84 0x103e0>                                              {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
                WriteConsoleStringCrLf(str : String)
            <POP 23c8a-23c8e StackAdj>                       Δ+30               {}
            <MI 23c8e  BRA     0x23cd6>                                         {}
        <POP 23c90-23cd6 Naked>                              Σ0         ↓ ←0x23b72
            <POP 23c90-23c92 StackAdj>                       Δ-2                {[-2-]}
            <MI 23c92  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x20)']}
            <MI 23c96  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x23c9a 0x216fa>                                              {[-2-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <POP 23c9e-23ca0 StackAdj>                       Δ+8                {[-2-]}
            <MI 23ca0  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x23ca2 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23ca6  MOVE.B  D1,(A6-0x13)>                                    {}
            <MI 23caa  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 23cac  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D1']}
            <POP 23cae-23cb0 StackAdj>                       Δ-2                {[2, 'D0']|[2, 'D1']|[-2-]}
            <MI 23cb0  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x18)']}
            <MI 23cb4  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x23cb8 0x217ba>                                              {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 23cbc-23cbd StackAdj>                       Δ+8        ↓       {[2, 'D0']|[2, 'D1']|[-2-]}
            <Blob 0x23cbd [10] (A6-0xa)>                     Δ-10               {[2, 'D0']|[2, 'D1']|[-2-]|[«10»]}
            <Call 0x23ccc 0x245a2>                                              {[2, 'D0']|[2, 'D1']|[-2-]|[«10»]}
            <POP 23cd2-23cd6 StackAdj>                       Δ+16               {}
        <POP 23cd6-23cde Epilogue>                           Σ0         ←0x23c68

0x23cde


@ 23cde
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b 1(w)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
    <POP 23cde-23e20 Body>                                              
        <POP 23cde-23cf4 Prologue>                           Σ0         ↓
        <POP 23cf4-23d04 RegCacheLoad>                       Σ0         ↓
        <POP 23d04-23d98 Naked>                              Σ0         ↓ →0x23dc4
            <MI 23d04  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x23d08 [8] @>                             Δ-8                {[«8""»]}
            <POP 23d18-23d1a StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23d1a  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23d1c-23d1e StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23d1e 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23d2e 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23d32-23d34 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23d34  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23d36  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[«8""»]}
            <MI 23d38  MOVEA.L A7,A1>                                           {[«8""»]}
            <MI 23d3a  LEA.L   0x205c8,A2>                                      {[«8""»]}
            <BlockMove 7,A2,A1>                                                 {[«8""»]}
            <POP 23d46-23d48 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 23d48  MOVE.L  (A0),-(A7)>                   Δ-4                {[«8""»]|[-8-]|[4, '(A0)']}
            <POP 23d4a-23d4c StackAdj>                       Δ-4                {[«8""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23d4c 7>                                                     {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <Call 0x23d5c 0x2156c>                                              {[«8""»]|[-8-]|[4, '(A0)']|[$$SET  :_]}
            <POP 23d60-23d62 StackAdj>                       Δ+8                {[«8""»]|[-8-]}
            <MI 23d62  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«8""»]|[-4-]}
            <MI 23d66  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«8""»]}
            <POP 23d6a-23d6c StackAdj>                       Δ+2                {[-6-]}
            <MI 23d6c  MOVE.L  (A6-0x18),(A7)>                                  {[-2-]|[4, '(A6-0x18)']}
            <MI 23d6e  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x23d70 0x21a4a>                                              {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 23d74-23d76 StackAdj>                       Δ+8                {[-2-]}
            <MI 23d76  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 23d78  EXTB.W  D0>                                              {}
            <POP 0x23d7a LimitCheck 0xc ≤ D0 ≤ 0xf>                             {}
            <MI 23d80  MOVE.B  D0,D7>                                           {}
            <MI 23d82  MOVE.B  D7,D0>                                           {}
            <MI 23d84  EXTB.W  D0>                                              {}
            <MI 23d86  MOVE.W  D0,D1>                                           {}
            <MI 23d88  SUB.W   #0x0c,D1>                                        {}
            <POP 0x23d8a LimitCheck 0x0 ≤ D1 ≤ 0x3>                             {}
            <MI 23d8c  LEA.L   0x2511a,A0>                                      {}
            <MI 23d92  TST.B   (A0+D1.W+#0x13)>                                 {}
            <MI 23d96  BNE     0x23dc4>                                         {}
        <POP 23d98-23dc4 Naked>                              Σ0         →0x23e18
            <Blob 0x23d98 [26] @>                            Δ-26               {[«26""»]}
            <POP 23da4-23da6 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x23da6 26>                                                    {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
            <Call 0x23db8 0x103e0>                                              {[«26""»]|[$$MEMORY BOARD DOESN'T EXIST]}
                WriteConsoleStringCrLf(str : String)
            <POP 23dbe-23dc2 StackAdj>                       Δ+30               {}
            <MI 23dc2  BRA     0x23e18>                                         {}
        <POP 23dc4-23e18 Naked>                              Σ0         ↓ ←0x23d04
            <POP 23dc4-23dc6 StackAdj>                       Δ-2                {[-2-]}
            <MI 23dc6  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x18)']}
            <MI 23dc8  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x23dca 0x216fa>                                              {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 23dce-23dd0 StackAdj>                       Δ+8                {[-2-]}
            <MI 23dd0  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x23dd2 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23dd6  MOVE.B  D1,(A6-0xb)>                                     {}
            <MI 23dda  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 23ddc  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D1']}
            <POP 23dde-23de0 StackAdj>                       Δ-2                {[2, 'D0']|[2, 'D1']|[-2-]}
            <MI 23de0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x10)']}
            <MI 23de4  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x23de8 0x217ba>                                              {[2, 'D0']|[2, 'D1']|[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 23dec-23dee StackAdj>                       Δ+8                {[2, 'D0']|[2, 'D1']|[-2-]}
            <Pointer.fp 0x23dee <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[2, 'D1']|[-2-]|[@@-10]}
            <Call 0x23df2 0x24a70>                                              {[2, 'D0']|[2, 'D1']|[-2-]|[@@-10]}
            <POP 23df8-23dfa StackAdj>                       Δ+6                {[2, 'D0']|[2, 'D1']}
            <MI 23dfa  MOVE.L  (A6-0x18),(A7)>                                  {[4, '(A6-0x18)']}
            <MI 23dfc  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Blob 0x23dfe [10] (A6-0xa)>                     Δ-10               {[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[«10»]}
            <Call 0x23e10 0x2283e>                                              {[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[«10»]}
            <POP 23e14-23e18 StackAdj>                       Δ+18               {}
        <POP 23e18-23e20 Epilogue>                           Σ0         ←0x23d98

0x23e20


@ 23e20
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 4(r)>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x021 @>
        <LVAR -0x02a @>
        <LVAR -0x02b @ 1(r)>
        <LVAR -0x02c 1(w)>
        <LVAR -0x02d @ 1(r)>
        <LVAR -0x02e @ 1(r)>
        <LVAR -0x02f @ 1(r)>
        <LVAR -0x030 1(rw)>
        <LVAR -0x031 1(rw)>
        <LVAR -0x032 1(rw)>
        <LVAR -0x033 1(rw)>
        <LVAR -0x034 1(rw)>
        <LVAR -0x035 1(rw)>
        <LVAR -0x036 1(rw)>
        <LVAR -0x037 1(rw)>
        <LVAR -0x038 1(w)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
        <LVAR -0x04c 4(rw)>
        <LVAR -0x050 4(rw)>
    <POP 23e20-24116 Body>                                              
        <POP 23e20-23e36 Prologue>                           Σ0         ↓
        <POP 23e36-23e44 RegCacheLoad>                       Σ0         ↓
        <POP 23e44-23fb8 Naked>                              Σ0         ↓ →0x23fbe
            <MI 23e44  CLR.B   (A6-0x2e)>                                       {}
            <MI 23e48  CLR.B   (A6-0x2f)>                                       {}
            <MI 23e4c  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x23e50 [12] @>                            Δ-12               {[«12""»]}
            <POP 23e60-23e62 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23e62  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23e64-23e66 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23e66 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23e72 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 23e76-23e78 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 23e78  MOVE.L  (A7)+,(A6-0x50)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23e7c  MOVE.L  (A7)+,(A6-0x4c)>              Δ+4                {[«12""»]}
            <MI 23e80  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 23e82  LEA.L   0x205f6,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 23e8e-23e90 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23e90  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23e92-23e94 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23e94 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23ea0 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 23ea4-23ea6 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 23ea6  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23eaa  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[«12""»]}
            <MI 23eae  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 23eb0  LEA.L   0x20602,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 23ebc-23ebe StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 23ebe  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 23ec0-23ec2 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x23ec2 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <Call 0x23ece 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$SPACE    :_]}
            <POP 23ed2-23ed4 StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 23ed4  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[«12""»]|[-4-]}
            <MI 23ed8  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«12""»]}
            <MI 23edc  MOVE.L  (A6-0x3c),(A7)>                                  {[-8-]|[4, '(A6-0x3c)']}
            <MI 23ee0  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Blob 0x23ee4 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]}
            <Blob 0x23ee8 [4] @>                             Δ-4                {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
            <Call 0x23eec 0x10330>                                              {[-8-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']|[«4""»]|[«4""»]}
                BitAnd(a, b : Quad) : Quad
            <POP 23ef2-23ef4 StackAdj>                       Δ+16               {[-8-]}
            <MI 23ef4  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {[-4-]}
            <MI 23ef8  MOVE.L  (A7),(A6-0x3c)>                                  {[-4-]}
            <POP 23efc-23efe StackAdj>                       Δ+2                {[-2-]}
            <MI 23efe  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4c)']}
            <MI 23f02  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <Call 0x23f06 0x216fa>                                              {[-2-]|[4, '(A6-0x4c)']|[4, '(A6-0x50)']}
            <POP 23f0a-23f0c StackAdj>                       Δ+8                {[-2-]}
            <MI 23f0c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x23f0e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 23f12  MOVE.B  D0,(A6-0x38)>                                    {}
            <POP 23f16-23f18 StackAdj>                       Δ-4                {[-4-]}
            <MI 23f18  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']}
            <MI 23f1c  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <Call 0x23f20 0x21890>                                              {[-4-]|[4, '(A6-0x44)']|[4, '(A6-0x48)']}
            <POP 23f24-23f26 StackAdj>                       Δ+8                {[-4-]}
            <MI 23f26  MOVE.B  (A7),(A6-0x37)>                                  {[-4-]}
            <MI 23f2a  MOVE.B  (A7+0x1),(A6-0x36)>                              {[-4-]}
            <MI 23f30  MOVE.B  (A7+0x2),(A6-0x35)>                              {[-4-]}
            <MI 23f36  MOVE.B  (A7+0x3),(A6-0x34)>                              {[-4-]}
            <MI 23f3c  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x3c)']}
            <MI 23f40  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <Call 0x23f44 0x21890>                                              {[-4-]|[4, '(A6-0x3c)']|[4, '(A6-0x40)']}
            <POP 23f48-23f4a StackAdj>                       Δ+8                {[-4-]}
            <MI 23f4a  MOVE.B  (A7),(A6-0x33)>                                  {[-4-]}
            <MI 23f4e  MOVE.B  (A7+0x1),(A6-0x32)>                              {[-4-]}
            <MI 23f54  MOVE.B  (A7+0x2),(A6-0x31)>                              {[-4-]}
            <MI 23f5a  MOVE.B  (A7+0x3),(A6-0x30)>                              {[-4-]}
            <POP 23f60-23f62 StackAdj>                       Δ+2                {[-2-]}
            <MI 23f62  MOVE.B  D0,(A7)>                                         {[-2-]}
            <POP 23f64-23f66 StackAdj>                       Δ-4                {[-6-]}
            <MI 23f66  MOVE.B  (A6-0x37),(A7)>                                  {[-6-]}
            <MI 23f6a  MOVE.B  (A6-0x36),(A7+0x1)>                              {[-6-]}
            <MI 23f70  MOVE.B  (A6-0x35),(A7+0x2)>                              {[-6-]}
            <MI 23f76  MOVE.B  (A6-0x34),(A7+0x3)>                              {[-6-]}
            <POP 23f7c-23f7e StackAdj>                       Δ-4                {[-10-]}
            <MI 23f7e  MOVE.B  (A6-0x33),(A7)>                                  {[-10-]}
            <MI 23f82  MOVE.B  (A6-0x32),(A7+0x1)>                              {[-10-]}
            <MI 23f88  MOVE.B  (A6-0x31),(A7+0x2)>                              {[-10-]}
            <MI 23f8e  MOVE.B  (A6-0x30),(A7+0x3)>                              {[-10-]}
            <MI 23f94  CLR.B   -(A7)>                        Δ-2                {[-10-]|[#0]}
            <Pointer.fp 0x23f96 <LVAR -0x02e @ 1(r)>>        Δ-4                {[-10-]|[#0]|[@@-46]}
            <Pointer.fp 0x23f9a <LVAR -0x02f @ 1(r)>>        Δ-4                {[-10-]|[#0]|[@@-46]|[@@-47]}
            <Pointer.fp 0x23f9e <LVAR -0x02d @ 1(r)>>        Δ-4                {[-10-]|[#0]|[@@-46]|[@@-47]|[@@-45]}
            <Pointer.fp 0x23fa2 <LVAR -0x02b @ 1(r)>>        Δ-4                {[-10-]|[#0]|[@@-46]|[@@-47]|[@@-45]|[@@-43]}
            <Pointer.fp 0x23fa6 <LVAR -0x02a @>>             Δ-4                {[-10-]|[#0]|[@@-46]|[@@-47]|[@@-45]|[@@-43]|[@@-42]}
            <Call 0x23faa 0x22e38>                                              {[-10-]|[#0]|[@@-46]|[@@-47]|[@@-45]|[@@-43]|[@@-42]}
            <POP 23fae-23fb2 StackAdj>                       Δ+32               {}
            <MI 23fb2  TST.B   (A6-0x2e)>                                       {}
            <MI 23fb6  BEQ     0x23fbe>                                         {}
        <POP 23fb8-23fbe Naked>                              Σ0         ↓ →0x23fee
            <MI 23fb8  TST.B   (A6-0x2f)>                                       {}
            <MI 23fbc  BNE     0x23fee>                                         {}
        <POP 23fbe-23fee Naked>                              Σ0         →0x2410e ←0x23e44
            <Blob 0x23fbe [8] @>                             Δ-8                {[«8""»]}
            <MI 23fce  CLR.B   -(A7)>                        Δ-2                {[«8""»]|[#0]}
            <POP 23fd0-23fd2 StackAdj>                       Δ-4                {[«8""»]|[#0]|[-4-]}
            <Lit 0x23fd2 7>                                                     {[«8""»]|[#0]|[$$BAD,BAD]}
            <Call 0x23fe0 0x103b8>                                              {[«8""»]|[#0]|[$$BAD,BAD]}
                PopProgram(status : Byte; msg : String)
            <POP 23fe6-23fea StackAdj>                       Δ+14               {}
            <MI 23fea  BRA     0x2410e>                                         {}
        <POP 23fee-2410e Naked>                              Σ0         ↓ ←0x23fb8
            <MI 23fee  CLR.L   D1>                                              {}
            <MI 23ff0  MOVE.B  (A6-0x2b),D1>                                    {}
            <MI 23ff4  ASR.W   #0x4,D1>                                         {}
            <MI 23ff6  EXTW.L  D1>                                              {}
            <MI 23ff8  DIVS.W  0x25132,D1>                                      {}
            <MI 23ffe  SWAP.W  D1>                                              {}
            <MI 24000  MOVE.B  (A6-0x2d),D2>                                    {}
            <MI 24004  EXTB.W  D2>                                              {}
            <MI 24006  MOVE.W  D2,D3>                                           {}
            <MI 24008  SUB.W   #0x0c,D3>                                        {}
            <MI 2400a  MULS.W  #0x4,D3>                                         {}
            <MI 2400e  ADD.W   D3,D1>                                           {}
            <MI 24010  MULS.W  #0x10,D1>                                        {}
            <POP 0x24012 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 24016  MOVE.B  D1,(A6-0x2c)>                                    {}
            <MI 2401a  MOVE.B  D2,-(A7)>                     Δ-2                {[2, 'D2']}
            <MI 2401c  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D1']}
            <MI 2401e  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D2']|[2, 'D1']|[2, 'D0']}
            <POP 24020-24022 StackAdj>                       Δ-4                {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 24022  MOVE.B  (A6-0x37),(A7)>                                  {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 24026  MOVE.B  (A6-0x36),(A7+0x1)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 2402c  MOVE.B  (A6-0x35),(A7+0x2)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <MI 24032  MOVE.B  (A6-0x34),(A7+0x3)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-4-]}
            <POP 24038-2403a StackAdj>                       Δ-4                {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2403a  MOVE.B  (A6-0x33),(A7)>                                  {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2403e  MOVE.B  (A6-0x32),(A7+0x1)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 24044  MOVE.B  (A6-0x31),(A7+0x2)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <MI 2404a  MOVE.B  (A6-0x30),(A7+0x3)>                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]}
            <Pointer.fp 0x24050 <LVAR -0x021 @>>             Δ-4                {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]|[@@-33]}
            <Call 0x24054 0x24c90>                                              {[2, 'D2']|[2, 'D1']|[2, 'D0']|[-8-]|[@@-33]}
            <POP 2405a-2405b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2405b [20] (A6-0x21)>                    Δ-20               {[«20»]}
            <Call 0x2406a 0x21fb8>                                              {[«20»]}
            <POP 2406e-2406f StackAdj>                       Δ+20       ↓       {}
            <Blob 0x2406f [8] (A6-0x21)>                     Δ-8                {[«8»]}
            <MI 2407e  PEA.L   (A7)>                         Δ-4                {[«8»]|[4, '^(A7)']}
            <Const 0x24080 0x0.4>                            Δ-4                {[«8»]|[4, '^(A7)']|[##0]}
            <Const 0x24084 0x7.4>                            Δ-4                {[«8»]|[4, '^(A7)']|[##0]|[##7]}
            <Pointer.fp 0x24088 <LVAR -0x00e @ 4(r)>>        Δ-4                {[«8»]|[4, '^(A7)']|[##0]|[##7]|[@@-14]}
            <Call 0x2408c 0x104b4>                                              {[«8»]|[4, '^(A7)']|[##0]|[##7]|[@@-14]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 24092-24094 StackAdj>                       Δ+16               {[«8»]}
            <MI 24094  MOVE.L  (A6-0xa),(A7)>                                   {[-4-]|[4, '(A6-0xa)']}
            <MI 24098  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
            <Const 0x2409c 0x10.4>                           Δ-4                {[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##16]}
            <Call 0x240a0 0x1035c>                                              {[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 240a6-240a8 StackAdj>                       Δ+12               {[-4-]}
            <MI 240a8  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x240aa [8] (A6-0x19)>                     Δ-8                {[«8»]}
            <MI 240ba  PEA.L   (A7)>                         Δ-4                {[«8»]|[4, '^(A7)']}
            <Const 0x240bc 0x0.4>                            Δ-4                {[«8»]|[4, '^(A7)']|[##0]}
            <Const 0x240c0 0x7.4>                            Δ-4                {[«8»]|[4, '^(A7)']|[##0]|[##7]}
            <Pointer.fp 0x240c4 <LVAR -0x00e @ 4(r)>>        Δ-4                {[«8»]|[4, '^(A7)']|[##0]|[##7]|[@@-14]}
            <Call 0x240c8 0x104b4>                                              {[«8»]|[4, '^(A7)']|[##0]|[##7]|[@@-14]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 240ce-240d2 StackAdj>                       Δ+20               {[-4-]}
            <MI 240d2  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Const 0x240d4 0x2c.2>                           Δ-2                {[4, 'A4']|[#44]}
            <Call 0x240d8 0x102c0>                                              {[4, 'A4']|[#44]}
                AppendChar(MOD b : String; a : char)
            <POP 240de-240e0 StackAdj>                       Δ+2                {[4, 'A4']}
            <MI 240e0  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']|[4, 'A4']}
            <POP 240e2-240e4 StackAdj>                       Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]}
            <MI 240e4  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6-0xa)']}
            <MI 240e8  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
            <Const 0x240ec 0x10.4>                           Δ-4                {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##16]}
            <Call 0x240f0 0x1035c>                                              {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 240f6-240f8 StackAdj>                       Δ+12               {[4, 'A4']|[4, 'A4']|[-4-]}
            <Call 0x240f8 0x102d0>                                              {[4, 'A4']|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 240fe-24100 StackAdj>                       Δ+8                {[4, 'A4']}
            <MI 24100  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 24102  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 24104  MOVE.L  A4,-(A7)>                     Δ-4                {[#0]|[4, 'A4']}
            <Call 0x24106 0x103b8>                                              {[#0]|[4, 'A4']}
                PopProgram(status : Byte; msg : String)
            <POP 2410c-2410e StackAdj>                       Δ+6                {}
        <POP 2410e-24116 Epilogue>                           Σ0         ←0x23fbe

0x24116


@ 24116
        <LVAR -0x013 @>
    <POP 24116-241b6 Body>                                              
        <POP 24116-2412c Prologue>                           Σ0         ↓
        <POP 2412c-24134 RegCacheLoad>                       Σ0         ↓
        <POP 24134-24136 Naked>                              Σ0         ↓
            <MI 24134  MOVEQ.L #0x0c,D7>                                        {}
        <POP 24136-2414e Naked>                              Σ0         ↓ →0x241a6 ←0x241a6
            <MI 24136  MOVE.B  D7,D0>                                           {}
            <MI 24138  EXTB.W  D0>                                              {}
            <MI 2413a  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x2413e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 24142  LEA.L   0x2511a,A0>                                      {}
            <MI 24148  TST.B   (A0+D0.W+#0x13)>                                 {}
            <MI 2414c  BEQ     0x241a6>                                         {}
        <POP 2414e-241a6 Naked>                              Σ0         ↓
            <MI 2414e  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x24150 0x1.2>                            Δ-2                {[2, 'D7']|[#1]}
            <MI 24152  CLR.B   -(A7)>                        Δ-2                {[2, 'D7']|[#1]|[#0]}
            <Pointer.fp 0x24154 <LVAR -0x013 @>>             Δ-4                {[2, 'D7']|[#1]|[#0]|[@@-19]}
            <Call 0x24156 0x24b74>                                              {[2, 'D7']|[#1]|[#0]|[@@-19]}
            <POP 2415c-2415e StackAdj>                       Δ+8                {[2, 'D7']}
            <MI 2415e  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Const 0x24160 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <Blob 0x24164 [20] (A6-0x13)>                    Δ-20               {[-2-]|[##0]|[«20»]}
            <Call 0x24172 0x22bd2>                                              {[-2-]|[##0]|[«20»]}
            <POP 24176-2417a StackAdj>                       Δ+24               {[-2-]}
            <MI 2417a  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Const 0x2417c 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x2417e 0x1.2>                            Δ-2                {[-2-]|[#1]|[#1]}
            <Pointer.fp 0x24180 <LVAR -0x013 @>>             Δ-4                {[-2-]|[#1]|[#1]|[@@-19]}
            <Call 0x24182 0x24b74>                                              {[-2-]|[#1]|[#1]|[@@-19]}
            <POP 24188-2418a StackAdj>                       Δ+8                {[-2-]}
            <MI 2418a  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Const 0x2418c 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Blob 0x24190 [20] (A6-0x13)>                    Δ-20               {[-2-]|[##1]|[«20»]}
            <Call 0x2419e 0x22bd2>                                              {[-2-]|[##1]|[«20»]}
            <POP 241a2-241a6 StackAdj>                       Δ+26               {}
        <POP 241a6-241ae Naked>                              Σ0         ↓ →0x24136 ←0x24136
            <MI 241a6  ADDQ.B  #0x1,D7>                                         {}
            <MI 241a8  CMPI.B  #0x0f,D7>                                        {}
            <MI 241ac  BLE     0x24136>                                         {}
        <POP 241ae-241b6 Epilogue>                           Σ0         

0x241b6


@ 241b6
        <LVAR -0x006 1(r)>
        <LVAR -0x00e @>
        <LVAR -0x016 @>
        <LVAR -0x017 1(w)>
        <LVAR -0x01f @>
    <POP 241b6-242c0 Body>                                              
        <POP 241b6-241cc Prologue>                           Σ0         ↓
        <POP 241cc-241d4 RegCacheLoad>                       Σ0         ↓
        <POP 241d4-241d6 Naked>                              Σ0         ↓
            <MI 241d4  MOVEQ.L #0x0c,D7>                                        {}
        <POP 241d6-241f0 Naked>                              Σ0         ↓ →0x242ae ←0x242ae
            <MI 241d6  MOVE.B  D7,D0>                                           {}
            <MI 241d8  EXTB.W  D0>                                              {}
            <MI 241da  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x241de LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 241e2  LEA.L   0x2511a,A0>                                      {}
            <MI 241e8  TST.B   (A0+D0.W+#0x13)>                                 {}
            <MI 241ec  BEQ     0x242ae>                                         {}
        <POP 241f0-241fc Naked>                              Σ0         ↓ →0x2420e
            <POP 241f0-241f2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x241f2 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 241f8  TST.B   (A7)+>                        Δ+2                {}
            <MI 241fa  BEQ     0x2420e>                                         {}
        <POP 241fc-2420e Naked>                              Σ0         →0x24234
            <MI 241fc  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x241fe 0x1.2>                            Δ-2                {[2, 'D7']|[#1]}
            <MI 24200  CLR.B   -(A7)>                        Δ-2                {[2, 'D7']|[#1]|[#0]}
            <Pointer.fp 0x24202 <LVAR -0x01f @>>             Δ-4                {[2, 'D7']|[#1]|[#0]|[@@-31]}
            <Call 0x24204 0x250fe>                                              {[2, 'D7']|[#1]|[#0]|[@@-31]}
                exp_READ_TVR.MEM(&w, &w, &Sr_8_1)
            <POP 2420a-2420c StackAdj>                       Δ+10               {}
            <MI 2420c  BRA     0x24234>                                         {}
        <POP 2420e-24234 Naked>                              Σ0         ↓ ←0x241f0
            <MI 2420e  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x24210 0x1.2>                            Δ-2                {[2, 'D7']|[#1]}
            <MI 24212  CLR.B   -(A7)>                        Δ-2                {[2, 'D7']|[#1]|[#0]}
            <Pointer.fp 0x24214 <LVAR -0x016 @>>             Δ-4                {[2, 'D7']|[#1]|[#0]|[@@-22]}
            <Call 0x24218 0x24b74>                                              {[2, 'D7']|[#1]|[#0]|[@@-22]}
            <POP 2421e-24220 StackAdj>                       Δ+10               {}
            <MI 24220  LEA.L   (A6-0x1f),A0>                                    {}
            <MI 24222  LEA.L   (A6-0xe),A1>                                     {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 2422e  MOVE.B  (A6-0x6),(A6-0x17)>                              {}
        <POP 24234-2425a Naked>                              Σ0         ↓ →0x2426c ←0x241fc
            <MI 24234  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x24236 0x0.4>                            Δ-4                {[2, 'D7']|[##0]}
            <Blob 0x2423a [10] (A6-0x1f)>                    Δ-10               {[2, 'D7']|[##0]|[«10»]}
            <Call 0x24248 0x225c8>                                              {[2, 'D7']|[##0]|[«10»]}
            <POP 2424c-24250 StackAdj>                       Δ+14               {[2, 'D7']}
            <Call 0x24250 0x104cc>                                              {[2, 'D7']}
                MemOnly2MB() : Bool
            <MI 24256  TST.B   (A7)+>                        Δ+2                {}
            <MI 24258  BEQ     0x2426c>                                         {}
        <POP 2425a-2426c Naked>                              Σ0         →0x24292
            <MI 2425a  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x2425c 0x1.2>                            Δ-2                {[2, 'D7']|[#1]}
            <Const 0x2425e 0x1.2>                            Δ-2                {[2, 'D7']|[#1]|[#1]}
            <Pointer.fp 0x24260 <LVAR -0x01f @>>             Δ-4                {[2, 'D7']|[#1]|[#1]|[@@-31]}
            <Call 0x24262 0x250fe>                                              {[2, 'D7']|[#1]|[#1]|[@@-31]}
                exp_READ_TVR.MEM(&w, &w, &Sr_8_1)
            <POP 24268-2426a StackAdj>                       Δ+10               {}
            <MI 2426a  BRA     0x24292>                                         {}
        <POP 2426c-24292 Naked>                              Σ0         ↓ ←0x24234
            <MI 2426c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x2426e 0x1.2>                            Δ-2                {[2, 'D7']|[#1]}
            <Const 0x24270 0x1.2>                            Δ-2                {[2, 'D7']|[#1]|[#1]}
            <Pointer.fp 0x24272 <LVAR -0x016 @>>             Δ-4                {[2, 'D7']|[#1]|[#1]|[@@-22]}
            <Call 0x24276 0x24b74>                                              {[2, 'D7']|[#1]|[#1]|[@@-22]}
            <POP 2427c-2427e StackAdj>                       Δ+10               {}
            <MI 2427e  LEA.L   (A6-0x1f),A0>                                    {}
            <MI 24280  LEA.L   (A6-0xe),A1>                                     {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 2428c  MOVE.B  (A6-0x6),(A6-0x17)>                              {}
        <POP 24292-242ae Naked>                              Σ0         ↓ ←0x2425a
            <MI 24292  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x24294 0x1.4>                            Δ-4                {[2, 'D7']|[##1]}
            <Blob 0x24298 [10] (A6-0x1f)>                    Δ-10               {[2, 'D7']|[##1]|[«10»]}
            <Call 0x242a6 0x225c8>                                              {[2, 'D7']|[##1]|[«10»]}
            <POP 242aa-242ae StackAdj>                       Δ+16               {}
        <POP 242ae-242b8 Naked>                              Σ0         ↓ →0x241d6 ←0x241d6
            <MI 242ae  ADDQ.B  #0x1,D7>                                         {}
            <MI 242b0  CMPI.B  #0x0f,D7>                                        {}
            <MI 242b4  BLE     0x241d6>                                         {}
        <POP 242b8-242c0 Epilogue>                           Σ0         

0x242c0


@ 242c0
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 242c0-24380 Body>                                              
        <POP 242c0-242d6 Prologue>                           Σ0         ↓
        <POP 242d6-242dc RegCacheLoad>                       Σ0         ↓
        <POP 242dc-24378 Naked>                              Σ0         ↓
            <MI 242dc  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x242e0 [12] @>                            Δ-12               {[«12""»]}
            <POP 242f0-242f2 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 242f2  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 242f4-242f6 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x242f6 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$TYP_DATA :_]}
            <Call 0x24306 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$TYP_DATA :_]}
            <POP 2430a-2430c StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 2430c  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«12""»]|[-4-]}
            <MI 24310  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«12""»]}
            <MI 24314  MOVEA.L A7,A1>                                           {[«12""»]}
            <MI 24316  LEA.L   0x20622,A2>                                      {[«12""»]}
            <BlockMove 11,A2,A1>                                                {[«12""»]}
            <POP 24322-24324 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <MI 24324  MOVE.L  (A0),-(A7)>                   Δ-4                {[«12""»]|[-8-]|[4, '(A0)']}
            <POP 24326-24328 StackAdj>                       Δ-4                {[«12""»]|[-8-]|[4, '(A0)']|[-4-]}
            <Lit 0x24328 11>                                                    {[«12""»]|[-8-]|[4, '(A0)']|[$$TYP_DATA :_]}
            <Call 0x24338 0x2156c>                                              {[«12""»]|[-8-]|[4, '(A0)']|[$$TYP_DATA :_]}
            <POP 2433c-2433e StackAdj>                       Δ+8                {[«12""»]|[-8-]}
            <MI 2433e  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«12""»]|[-4-]}
            <MI 24342  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«12""»]}
            <MI 24346  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«12""»]|[4, '(A6-0x10)']}
            <MI 2434a  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«12""»]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <MI 2434e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«12""»]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, '(A6-0x8)']}
            <MI 24352  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[«12""»]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
            <Call 0x24356 0x21d8a>                                              {[«12""»]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
            <POP 2435a-2435e StackAdj>                       Δ+16               {[«12""»]}
            <Const 0x2435e 0x10.4>                           Δ-4                {[«12""»]|[##16]}
            <Call 0x24362 0x1035c>                                              {[«12""»]|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 24368-2436a StackAdj>                       Δ+12               {[-4-]}
            <MI 2436a  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 2436c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2436e  MOVE.L  A4,-(A7)>                     Δ-4                {[#0]|[4, 'A4']}
            <Call 0x24370 0x103b8>                                              {[#0]|[4, 'A4']}
                PopProgram(status : Byte; msg : String)
            <POP 24376-24378 StackAdj>                       Δ+6                {}
        <POP 24378-24380 Epilogue>                           Σ0         

0x24380


@ 24380
START
    <POP 24380--0001 Body>                                   Δ+40       
        <POP 24380-2438a Prologue>                           Σ0         
        <POP 2438a-243a4 RegCacheLoad>                       Σ0         ↓
        <POP 243a4-243b8 Naked>                              Σ0         ↓
            <Call 0x243a4 0x10398>                                              {}
                FSCALL_10398
            <Const 0x243aa 0xf.4>                            Δ-4                {[##15]}
            <Call 0x243ae 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 243b4-243b6 StackAdj>                       Δ+4                {}
            <MI 243b6  MOVEQ.L #0x0c,D0>                                        {}
        <POP 243b8-243e0 Naked>                              Σ0         ↓ →0x243b8 ←0x243b8
            <MI 243b8  MOVE.B  D0,0x2512c>                                      {}
            <MI 243be  MOVE.B  D0,D1>                                           {}
            <MI 243c0  EXTB.W  D1>                                              {}
            <MI 243c2  MOVE.W  D1,-(A7)>                     Δ-2                {[2, 'D1']}
            <MI 243c4  MOVE.W  D1,D0>                                           {[2, 'D1']}
            <MI 243c6  SUB.W   #0x0c,D0>                                        {[2, 'D1']}
            <POP 0x243c8 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[2, 'D1']}
            <MI 243cc  LEA.L   0x2511a,A0>                                      {[2, 'D1']}
            <MI 243d2  CLR.B   (A0+D0.W+#0x13)>                                 {[2, 'D1']}
            <MI 243d6  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 243d8  ADDQ.W  #0x1,D0>                                         {}
            <MI 243da  CMPI.W  #0x000f,D0>                                      {}
            <MI 243de  BLE     0x243b8>                                         {}
        <POP 243e0-2440a Naked>                              Σ0         ↓ →0x2443a
            <Const 0x243e0 0x25126.4>                        Δ-4                {[##151846]}
            <Call 0x243e2 0x102b8>                                              {[##151846]}
                NewString(VAR a : String)
            <Call 0x243e8 0x103c4>                                              {[##151846]}
                GetArgv() : String
            <MI 243ee  MOVE.L  (A7)+,0x25122>                Δ+4                {}
            <Blob 0x243f0 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x243f2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Const 0x243f4 0x2512b.4>                        Δ-4                {[«4""»]|[«4""»]|[##151851]}
            <Call 0x243fa 0x102fc>                                              {[«4""»]|[«4""»]|[##151851]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 24400-24402 StackAdj>                       Δ+12               {}
            <MI 24402  TST.B   0x2512b>                                         {}
            <MI 24408  BNE     0x2443a>                                         {}
        <POP 2440a-2443a Naked>                              Σ0         →0x2456a
            <Blob 0x2440a [38] @>                            Δ-38               {[«38""»]}
            <POP 2441c-2441e StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x2441e 37>                                                    {[«38""»]|[$$Error in call to memory macro program]}
            <Call 0x2442c 0x103e0>                                              {[«38""»]|[$$Error in call to memory macro program]}
                WriteConsoleStringCrLf(str : String)
            <POP 24432-24436 StackAdj>                       Δ+42               {}
            <MI 24436  BRA     0x2456a>                                         {}
        <POP 2443a-24454 Naked>                              Σ0         ↓ →0x244b4 ←0x243e0
            <POP 2443a-2443c StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x2443c [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Call 0x2443e 0x21466>                                              {[-2-]|[«4""»]}
            <POP 24442-24444 StackAdj>                       Δ+4                {[-2-]}
            <MI 24444  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 24446  EXTB.W  D0>                                              {}
            <POP 0x24448 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 2444a  MOVE.B  D0,0x2512a>                                      {}
            <MI 24450  CMP.B   #0x0b,D0>                                        {}
            <MI 24452  BNE     0x244b4>                                         {}
        <POP 24454-244b4 Naked>                              Σ0         →0x2456a
            <Blob 0x24454 [10] @>                            Δ-10               {[«10""»]}
            <POP 24464-24466 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x24466 9>                                                     {[«10""»]|[$$ERROR : "]}
            <Call 0x24474 0x103d8>                                              {[«10""»]|[$$ERROR : "]}
                WriteConsoleString(str : String)
            <POP 2447a-2447c StackAdj>                       Δ+10               {[-4-]}
            <POP 2447c-2447d StackAdj>                       Δ+4                {}
            <Blob 0x2447d [4] @>                             Δ-4                {[«4""»]}
            <Call 0x2447e 0x103d8>                                              {[«4""»]}
                WriteConsoleString(str : String)
            <POP 24484-24485 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x24485 [22] @>                            Δ-22               {[«22""»]}
            <POP 24496-24498 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x24498 21>                                                    {[«22""»]|[$$" is not implemented.]}
            <Call 0x244a6 0x103e0>                                              {[«22""»]|[$$" is not implemented.]}
                WriteConsoleStringCrLf(str : String)
            <POP 244ac-244b0 StackAdj>                       Δ+26               {}
            <MI 244b0  BRA     0x2456a>                                         {}
        <POP 244b4-244c4 Naked>                              Σ0         ↓ →0x2453e ←0x2443a
            <Call 0x244b4 0x214f4>                                              {}
            <MI 244b8  MOVE.B  0x2512a,D0>                                      {}
            <MI 244be  EXTB.W  D0>                                              {}
            <MI 244c0  CMP.W   #0x0a,D0>                                        {}
            <MI 244c2  BHI     0x2453e>                                         {}
        <POP 244c4-244ce Naked>                              Σ0         →0x244e4 →0x24516 →0x244ee →0x24506 →0x244f6 →0x2450e →0x244fe →0x2451e →0x24526 →0x2452e →0x24536
            <MI 244c4  ADD.W   D0,D0>                                           {}
            <MI 244c6  SWITCH  D0.W>                                            {}
        <POP 244e4-244ea Naked>                              Σ0 Δ-4     ↓ ←0x244c4
            <Const 0x244e4 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x244e6 0x22f7e>                                              {[##151842]}
        <POP 244ea-244ee Naked>                              Σ-4 Δ+4    →0x2456a ←0x244ee ←0x244f6 ←0x244fe ←0x24506 ←0x2450e ←0x24516 ←0x2451e ←0x24526 ←0x2452e ←0x24536
            <POP 244ea-244ec StackAdj>                       Δ+4                {}
            <MI 244ec  BRA     0x2456a>                                         {}
        <POP 244ee-244f6 Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x244ee 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x244f0 0x23288>                                              {[##151842]}
            <MI 244f4  BRA     0x244ea>                                         {[##151842]}
        <POP 244f6-244fe Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x244f6 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x244f8 0x234ca>                                              {[##151842]}
            <MI 244fc  BRA     0x244ea>                                         {[##151842]}
        <POP 244fe-24506 Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x244fe 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24500 0x237e4>                                              {[##151842]}
            <MI 24504  BRA     0x244ea>                                         {[##151842]}
        <POP 24506-2450e Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x24506 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24508 0x23a22>                                              {[##151842]}
            <MI 2450c  BRA     0x244ea>                                         {[##151842]}
        <POP 2450e-24516 Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x2450e 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24510 0x23b4a>                                              {[##151842]}
            <MI 24514  BRA     0x244ea>                                         {[##151842]}
        <POP 24516-2451e Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x24516 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24518 0x23cde>                                              {[##151842]}
            <MI 2451c  BRA     0x244ea>                                         {[##151842]}
        <POP 2451e-24526 Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x2451e 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24520 0x23e20>                                              {[##151842]}
            <MI 24524  BRA     0x244ea>                                         {[##151842]}
        <POP 24526-2452e Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x24526 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24528 0x24116>                                              {[##151842]}
            <MI 2452c  BRA     0x244ea>                                         {[##151842]}
        <POP 2452e-24536 Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x2452e 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24530 0x241b6>                                              {[##151842]}
            <MI 24534  BRA     0x244ea>                                         {[##151842]}
        <POP 24536-2453e Naked>                              Σ0 Δ-4     →0x244ea ←0x244c4
            <Const 0x24536 0x25122.4>                        Δ-4                {[##151842]}
            <Call 0x24538 0x242c0>                                              {[##151842]}
            <MI 2453c  BRA     0x244ea>                                         {[##151842]}
        <POP 2453e-2456a Naked>                              Σ0         ↓ ←0x244b4
            <Blob 0x2453e [20] @>                            Δ-20               {[«20""»]}
            <POP 24550-24552 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x24552 19>                                                    {[«20""»]|[$$Case error on macro]}
            <Call 0x24560 0x103e0>                                              {[«20""»]|[$$Case error on macro]}
                WriteConsoleStringCrLf(str : String)
            <POP 24566-2456a StackAdj>                       Δ+24               {}
        <POP 2456a-24578 Naked>                              Σ0         ↓ ←0x2440a ←0x24454 ←0x244ea
            <MI 2456a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2456c 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x24570 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 24576-24578 StackAdj>                       Δ+6                {}
        <POP 24578-2457e Naked>                              Σ0         
            <Call 0x24578 0x10284>                                              {}
                ?exit

0x245a2


@ 245a2
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 245a2-24686 Body>                                   Δ+18       
        <POP 245a2-245b8 Prologue>                           Σ0         ↓
        <POP 245b8-245c8 RegCacheLoad>                       Σ0         ↓
        <POP 245c8-245d4 Naked>                              Σ0         ↓ →0x245e2
            <POP 245c8-245ca StackAdj>                       Δ-2                {[-2-]}
            <Call 0x245ca 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 245d0  TST.B   (A7)+>                        Δ+2                {}
            <MI 245d2  BEQ     0x245e2>                                         {}
        <POP 245d4-245e2 Naked>                              Σ0 Δ-18    →0x245ee
            <Blob 0x245d4 [18] @>                            Δ-18               {[«18""»]}
            <MI 245e0  BRA     0x245ee>                                         {[«18""»]}
        <POP 245e2-245ee Naked>                              Σ0 Δ-18    ↓ ←0x245c8
            <Blob 0x245e2 [18] @>                            Δ-18               {[«18""»]}
        <POP 245ee-2467e Naked>                              Σ-18 Δ+18  ↓ ←0x245d4
            <POP 245ee-245f0 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x245f0>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x245f0 4>                       Δ-4        
                <Const 0x245f4 0x1.2>                        Δ-2        
                <Const 0x245f8 0x12.2>                       Δ-2        
                <Call 0x245fc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24602-24604 StackAdj>                   Δ+8        
            <Pointer.fp 0x24604 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-4]}
            <Call 0x24606 0x10460>                                              {[-18-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 2460c-24610 StackAdj>                       Δ+26               {}
            <MI 24610  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[2, '(A6+0x14)']}
            <MI 24614  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x14)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24616 4>                           Δ-4                {[2, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x2461a 0x0.4>                            Δ-4                {[2, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2461c 0x0.4>                            Δ-4                {[2, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2461e 0x10466>                                              {[2, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24620-24622 StackAdj>                       Δ+16               {[2, '(A6+0x14)']}
            <MI 24622  MOVE.W  (A6+0x12),(A7)>                                  {[2, '(A6+0x12)']}
            <MI 24626  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24628 4>                           Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x2462c 0x0.4>                            Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2462e 0x1.4>                            Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x24632 0x10466>                                              {[2, '(A6+0x12)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24634-24638 StackAdj>                       Δ+14               {[2, '(A6+0x12)']|[-2-]}
            <MI 24638  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 2463c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 24640  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24642 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24646 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24648 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
            <Call 0x2464c 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2464e-24652 StackAdj>                       Δ+22               {[-2-]}
            <MI 24652  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <MI 24656  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x24658 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x2465c 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2465e 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24660 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24662-24664 StackAdj>                       Δ+16               {[-2-]}
            <MI 24664  CLR.B   (A7)>                                            {[-2-]}
            <MI 24666  MOVE.B  (A6+0x16),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x16)']}
            <MI 2466a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x16)']|[4, '(A6-0x4)']}
            <Call 0x2466c 0x104ba>                                              {[-2-]|[2, '(A6+0x16)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24672-24674 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x24674 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x24676 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2467c-2467e StackAdj>                       Δ+4                {}
        <POP 2467e-24686 Epilogue>                           Σ0         

0x246b6


@ 246b6
        <LVAR  0x028 1(r)>
        <LVAR  0x026 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x020 4(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x01a 1(r)>
        <LVAR  0x019 1(r)>
        <LVAR  0x018 1(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 246b6-247f4 Body>                                   Δ+24       
        <POP 246b6-246cc Prologue>                           Σ0         ↓
        <POP 246cc-246dc RegCacheLoad>                       Σ0         ↓
        <POP 246dc-246e8 Naked>                              Σ0         ↓ →0x246f6
            <POP 246dc-246de StackAdj>                       Δ-2                {[-2-]}
            <Call 0x246de 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 246e4  TST.B   (A7)+>                        Δ+2                {}
            <MI 246e6  BEQ     0x246f6>                                         {}
        <POP 246e8-246f6 Naked>                              Σ0 Δ-24    →0x24702
            <Blob 0x246e8 [24] @>                            Δ-24               {[«24""»]}
            <MI 246f4  BRA     0x24702>                                         {[«24""»]}
        <POP 246f6-24702 Naked>                              Σ0 Δ-24    ↓ ←0x246dc
            <Blob 0x246f6 [24] @>                            Δ-24               {[«24""»]}
        <POP 24702-247ec Naked>                              Σ-24 Δ+24  ↓ ←0x246e8
            <POP 24702-24704 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x24704>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x24704 4>                       Δ-4        
                <Const 0x24708 0x1.2>                        Δ-2        
                <Const 0x2470c 0x18.2>                       Δ-2        
                <Call 0x24710 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24716-24718 StackAdj>                   Δ+8        
            <Pointer.fp 0x24718 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x2471a 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 24720-24724 StackAdj>                       Δ+32               {}
            <MI 24724  MOVE.B  (A6+0x26),-(A7)>              Δ-2                {[2, '(A6+0x26)']}
            <MI 24728  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0x26)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x2472a 4>                           Δ-4                {[2, '(A6+0x26)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x2472e 0x0.4>                            Δ-4                {[2, '(A6+0x26)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24730 0x0.4>                            Δ-4                {[2, '(A6+0x26)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x24732 0x10466>                                              {[2, '(A6+0x26)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24734-24736 StackAdj>                       Δ+16               {[2, '(A6+0x26)']}
            <MI 24736  MOVE.B  (A6+0x24),(A7)>                                  {[-2-]}
            <MI 2473a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x2473c 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24740 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24742 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x24744 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24746-2474a StackAdj>                       Δ+14               {[-2-]|[-2-]}
            <MI 2474a  MOVE.L  (A6+0x20),(A7)>                                  {[4, '(A6+0x20)']}
            <MI 2474e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x20)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24750 4>                           Δ-4                {[4, '(A6+0x20)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24754 0x0.4>                            Δ-4                {[4, '(A6+0x20)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24756 0x3.4>                            Δ-4                {[4, '(A6+0x20)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x2475a 0x10466>                                              {[4, '(A6+0x20)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2475c-2475e StackAdj>                       Δ+16               {[4, '(A6+0x20)']}
            <MI 2475e  MOVE.L  (A6+0x1c),(A7)>                                  {[4, '(A6+0x1c)']}
            <MI 24762  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x1c)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24764 4>                           Δ-4                {[4, '(A6+0x1c)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24768 0x0.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x2476a 0x3.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x2476e 0x10466>                                              {[4, '(A6+0x1c)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24770-24772 StackAdj>                       Δ+16               {[4, '(A6+0x1c)']}
            <MI 24772  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 24776  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 2477a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x2477c 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24780 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24782 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x24786 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24788-2478c StackAdj>                       Δ+20               {[4, '(A6+0xc)']}
            <MI 2478c  MOVE.L  (A6+0x14),(A7)>                                  {[4, '(A6+0x14)']}
            <MI 24790  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 24794  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24796 4>                           Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x2479a 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x2479c 0x7.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x247a0 0x10466>                                              {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 247a2-247a6 StackAdj>                       Δ+22               {[-2-]}
            <MI 247a6  MOVE.B  (A6+0x18),(A7)>                                  {[-2-]}
            <MI 247aa  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x247ac 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x247b0 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x247b2 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x247b4 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 247b6-247b8 StackAdj>                       Δ+16               {[-2-]}
            <MI 247b8  MOVE.B  (A6+0x19),(A7)>                                  {[-2-]}
            <MI 247bc  MOVE.B  (A6+0x1a),(A7+0x1)>                              {[-2-]}
            <MI 247c2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x247c4 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x247c8 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x247ca 0x1.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
            <Call 0x247ce 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 247d0-247d2 StackAdj>                       Δ+16               {[-2-]}
            <MI 247d2  CLR.B   (A7)>                                            {[-2-]}
            <MI 247d4  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x28)']}
            <MI 247d8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x28)']|[4, '(A6-0x6)']}
            <Call 0x247da 0x104ba>                                              {[-2-]|[2, '(A6+0x28)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 247e0-247e2 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x247e2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x247e4 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 247ea-247ec StackAdj>                       Δ+4                {}
        <POP 247ec-247f4 Epilogue>                           Σ0         

0x24814


@ 24814
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01e 2(r)>
        <LVAR  0x01c 1(r)>
        <LVAR  0x01a 1(r)>
        <LVAR  0x019 1(r)>
        <LVAR  0x018 1(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 24814-24944 Body>                                   Δ+16       
        <POP 24814-2482a Prologue>                           Σ0         ↓
        <POP 2482a-2483a RegCacheLoad>                       Σ0         ↓
        <POP 2483a-24846 Naked>                              Σ0         ↓ →0x24858
            <POP 2483a-2483c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2483c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24842  TST.B   (A7)+>                        Δ+2                {}
            <MI 24844  BEQ     0x24858>                                         {}
        <POP 24846-24858 Naked>                              Σ0 Δ-16    →0x24868
            <Blob 0x24846 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2484a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2484e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x24852 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 24856  BRA     0x24868>                                         {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 24858-24868 Naked>                              Σ0 Δ-16    ↓ ←0x2483a
            <Blob 0x24858 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2485c [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24860 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x24864 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 24868-2493c Naked>                              Σ-16 Δ+16  ↓ ←0x24846
            <POP 24868-2486a StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x2486a>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x2486a 4>                       Δ-4        
                <Const 0x2486e 0x1.2>                        Δ-2        
                <Const 0x24872 0x10.2>                       Δ-2        
                <Call 0x24874 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2487a-2487c StackAdj>                   Δ+8        
            <Pointer.fp 0x2487c <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x2487e 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 24884-24888 StackAdj>                       Δ+24               {}
            <MI 24888  MOVE.B  (A6+0x20),-(A7)>              Δ-2                {[2, '(A6+0x20)']}
            <MI 2488c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x20)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x2488e 4>                           Δ-4                {[2, '(A6+0x20)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24892 0x0.4>                            Δ-4                {[2, '(A6+0x20)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24894 0x0.4>                            Δ-4                {[2, '(A6+0x20)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24896 0x10466>                                              {[2, '(A6+0x20)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24898-2489a StackAdj>                       Δ+16               {[2, '(A6+0x20)']}
            <MI 2489a  MOVE.W  (A6+0x1e),(A7)>                                  {[2, '(A6+0x1e)']}
            <MI 2489e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x1e)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x248a0 4>                           Δ-4                {[2, '(A6+0x1e)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x248a4 0x0.4>                            Δ-4                {[2, '(A6+0x1e)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x248a6 0x1.4>                            Δ-4                {[2, '(A6+0x1e)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x248aa 0x10466>                                              {[2, '(A6+0x1e)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 248ac-248ae StackAdj>                       Δ+16               {[2, '(A6+0x1e)']}
            <MI 248ae  MOVE.B  (A6+0x1c),(A7)>                                  {[-2-]}
            <MI 248b2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x248b4 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x248b8 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x248ba 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x248bc 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 248be-248c2 StackAdj>                       Δ+14               {[-2-]|[-2-]}
            <MI 248c2  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 248c6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 248ca  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x248cc 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x248d0 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x248d2 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
            <Call 0x248d6 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 248d8-248dc StackAdj>                       Δ+20               {[4, '(A6+0xc)']}
            <MI 248dc  MOVE.L  (A6+0x14),(A7)>                                  {[4, '(A6+0x14)']}
            <MI 248e0  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 248e4  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x248e6 4>                           Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x248ea 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x248ec 0x7.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
            <Call 0x248f0 0x10466>                                              {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 248f2-248f6 StackAdj>                       Δ+22               {[-2-]}
            <MI 248f6  MOVE.B  (A6+0x18),(A7)>                                  {[-2-]}
            <MI 248fa  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x248fc 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24900 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24902 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24904 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24906-24908 StackAdj>                       Δ+16               {[-2-]}
            <MI 24908  MOVE.B  (A6+0x19),(A7)>                                  {[-2-]}
            <MI 2490c  MOVE.B  (A6+0x1a),(A7+0x1)>                              {[-2-]}
            <MI 24912  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x24914 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24918 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2491a 0x1.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x2491e 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24920-24922 StackAdj>                       Δ+16               {[-2-]}
            <MI 24922  CLR.B   (A7)>                                            {[-2-]}
            <MI 24924  MOVE.B  (A6+0x22),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x22)']}
            <MI 24928  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x22)']|[4, '(A6-0x4)']}
            <Call 0x2492a 0x104ba>                                              {[-2-]|[2, '(A6+0x22)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24930-24932 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x24932 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x24934 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2493a-2493c StackAdj>                       Δ+4                {}
        <POP 2493c-24944 Epilogue>                           Σ0         

0x2496c


@ 2496c
        <LVAR  0x014 1(r)>
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2496c-24a4c Body>                                   Δ+20       
        <POP 2496c-24982 Prologue>                           Σ0         ↓
        <POP 24982-24992 RegCacheLoad>                       Σ0         ↓
        <POP 24992-2499e Naked>                              Σ0         ↓ →0x249ac
            <POP 24992-24994 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24994 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2499a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2499c  BEQ     0x249ac>                                         {}
        <POP 2499e-249ac Naked>                              Σ0 Δ-20    →0x249b8
            <Blob 0x2499e [20] @>                            Δ-20               {[«20""»]}
            <MI 249aa  BRA     0x249b8>                                         {[«20""»]}
        <POP 249ac-249b8 Naked>                              Σ0 Δ-20    ↓ ←0x24992
            <Blob 0x249ac [20] @>                            Δ-20               {[«20""»]}
        <POP 249b8-24a44 Naked>                              Σ-20 Δ+20  ↓ ←0x2499e
            <POP 249b8-249ba StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x249ba>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x249ba 4>                       Δ-4        
                <Const 0x249be 0x1.2>                        Δ-2        
                <Const 0x249c2 0x14.2>                       Δ-2        
                <Call 0x249c6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 249cc-249ce StackAdj>                   Δ+8        
            <Pointer.fp 0x249ce <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x249d0 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 249d6-249da StackAdj>                       Δ+28               {}
            <MI 249da  MOVE.B  (A6+0x12),-(A7)>              Δ-2                {[2, '(A6+0x12)']}
            <MI 249de  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x249e0 4>                           Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x249e4 0x0.4>                            Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x249e6 0x0.4>                            Δ-4                {[2, '(A6+0x12)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x249e8 0x10466>                                              {[2, '(A6+0x12)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 249ea-249ec StackAdj>                       Δ+16               {[2, '(A6+0x12)']}
            <MI 249ec  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <MI 249f0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x249f2 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x249f6 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x249f8 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x249fa 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 249fc-24a00 StackAdj>                       Δ+14               {[-2-]|[-2-]}
            <MI 24a00  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 24a04  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24a06 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24a0a 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24a0c 0x3.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x24a10 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24a12-24a14 StackAdj>                       Δ+16               {[4, '(A6+0xc)']}
            <MI 24a14  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 24a18  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24a1a 4>                           Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24a1e 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24a20 0x3.4>                            Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x24a24 0x10466>                                              {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24a26-24a2a StackAdj>                       Δ+18               {[-2-]}
            <MI 24a2a  CLR.B   (A7)>                                            {[-2-]}
            <MI 24a2c  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x14)']}
            <MI 24a30  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
            <Call 0x24a32 0x104ba>                                              {[-2-]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24a38-24a3a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x24a3a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x24a3c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 24a42-24a44 StackAdj>                       Δ+4                {}
        <POP 24a44-24a4c Epilogue>                           Σ0         

0x24a70


@ 24a70
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 24a70-24b5c Body>                                   Δ+18       
        <POP 24a70-24a86 Prologue>                           Σ0         ↓
        <POP 24a86-24a92 RegCacheLoad>                       Σ0         ↓
        <POP 24a92-24a9e Naked>                              Σ0         ↓ →0x24ab0
            <POP 24a92-24a94 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24a94 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24a9a  TST.B   (A7)+>                        Δ+2                {}
            <MI 24a9c  BEQ     0x24ab0>                                         {}
        <POP 24a9e-24ab0 Naked>                              Σ0 Δ-18    →0x24ac0
            <Blob 0x24a9e [18] @>                            Δ-18               {[«18""»]}
            <MI 24aae  BRA     0x24ac0>                                         {[«18""»]}
        <POP 24ab0-24ac0 Naked>                              Σ0 Δ-18    ↓ ←0x24a92
            <Blob 0x24ab0 [18] @>                            Δ-18               {[«18""»]}
        <POP 24ac0-24b54 Naked>                              Σ-18 Δ+18  ↓ ←0x24a9e
            <POP 24ac0-24ac2 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x24ac2>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x24ac2 4>                       Δ-4        
                <Const 0x24ac6 0x1.2>                        Δ-2        
                <Const 0x24aca 0x11.2>                       Δ-2        
                <Call 0x24ace 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24ad4-24ad6 StackAdj>                   Δ+8        
            <Pointer.fp 0x24ad6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x24ad8 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 24ade-24ae2 StackAdj>                       Δ+26               {}
            <MI 24ae2  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <MI 24ae6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24ae8 4>                           Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24aec 0x0.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24aee 0x0.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x24af0 0x10466>                                              {[2, '(A6+0xe)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24af6-24af8 StackAdj>                       Δ+16               {[2, '(A6+0xe)']}
            <MI 24af8  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <MI 24afc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24afe 4>                           Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24b02 0x0.4>                            Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24b04 0x1.4>                            Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
            <Call 0x24b08 0x10466>                                              {[2, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24b0e-24b10 StackAdj>                       Δ+16               {[2, '(A6+0xc)']}
            <MI 24b10  CLR.B   (A7)>                                            {[2, '(A6+0xc)']}
            <MI 24b12  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0xc)']|[2, '(A6+0x10)']}
            <MI 24b16  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[2, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Call 0x24b18 0x104ba>                                              {[2, '(A6+0xc)']|[2, '(A6+0x10)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24b1e-24b20 StackAdj>                       Δ+8                {}
            <MI 24b20  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24b24  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 24b26  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x24b28 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x24b2a 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
            <Call 0x24b2e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24b34-24b38 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24b38  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24b3a  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']}
            <Const 0x24b3e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x24b40 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##0]}
            <Call 0x24b42 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24b48-24b4a StackAdj>                       Δ+16               {}
            <Pointer.fp 0x24b4a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x24b4c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 24b52-24b54 StackAdj>                       Δ+4                {}
        <POP 24b54-24b5c Epilogue>                           Σ0         

0x24b74


@ 24b74
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 24b74-24c60 Body>                                   Δ+12       
        <POP 24b74-24b8a Prologue>                           Σ0         ↓
        <POP 24b8a-24b9a RegCacheLoad>                       Σ0         ↓
        <POP 24b9a-24ba6 Naked>                              Σ0         ↓ →0x24bb4
            <POP 24b9a-24b9c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24b9c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24ba2  TST.B   (A7)+>                        Δ+2                {}
            <MI 24ba4  BEQ     0x24bb4>                                         {}
        <POP 24ba6-24bb4 Naked>                              Σ0 Δ-12    →0x24bc0
            <Blob 0x24ba6 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24baa [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24bae [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 24bb2  BRA     0x24bc0>                                         {[«4""»]|[«4""»]|[«4""»]}
        <POP 24bb4-24bc0 Naked>                              Σ0 Δ-12    ↓ ←0x24b9a
            <Blob 0x24bb4 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24bb8 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24bbc [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
        <POP 24bc0-24c58 Naked>                              Σ-12 Δ+12  ↓ ←0x24ba6
            <POP 24bc0-24bc2 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x24bc2>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x24bc2 4>                       Δ-4        
                <Const 0x24bc6 0x1.2>                        Δ-2        
                <Const 0x24bca 0xc.2>                        Δ-2        
                <Call 0x24bcc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24bd2-24bd4 StackAdj>                   Δ+8        
            <Pointer.fp 0x24bd4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-6]}
            <Call 0x24bd6 0x10460>                                              {[-12-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 24bdc-24be0 StackAdj>                       Δ+20               {}
            <MI 24be0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 24be2  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[4, '(A6-0x6)']|[2, '(A6+0xe)']}
            <Call 0x24be6 0x1046c>                                              {[4, '(A6-0x6)']|[2, '(A6+0xe)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 24bec-24bee StackAdj>                       Δ+2                {[4, '(A6-0x6)']}
            <MI 24bee  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24bf0  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[4, '(A6-0x6)']|[2, '(A6+0xc)']}
            <Call 0x24bf4 0x1046c>                                              {[4, '(A6-0x6)']|[2, '(A6+0xc)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 24bfa-24bfc StackAdj>                       Δ+4                {[-2-]}
            <MI 24bfc  CLR.B   (A7)>                                            {[-2-]}
            <MI 24bfe  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x10)']}
            <MI 24c02  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Call 0x24c04 0x104ba>                                              {[-2-]|[2, '(A6+0x10)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24c0a-24c0c StackAdj>                       Δ+8                {}
            <MI 24c0c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24c10  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 24c12  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x24c14 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x24c16 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
            <Call 0x24c1a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24c1c-24c1e StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24c1e  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24c20  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']}
            <Const 0x24c24 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x24c26 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##7]}
            <Call 0x24c2a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24c2c-24c2e StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24c2e  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24c30  PEA.L   (A0+0x10)>                    Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']}
            <Const 0x24c34 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]}
            <Const 0x24c36 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]|[##0]}
            <Call 0x24c38 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24c3a-24c3c StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24c3c  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24c3e  PEA.L   (A0+0x11)>                    Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']}
            <Const 0x24c42 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]}
            <Const 0x24c44 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]|[##1]}
            <Call 0x24c48 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24c4a-24c4e StackAdj>                       Δ+16               {}
            <Pointer.fp 0x24c4e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x24c50 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 24c56-24c58 StackAdj>                       Δ+4                {}
        <POP 24c58-24c60 Epilogue>                           Σ0         

0x24c90


@ 24c90
        <LVAR  0x018 1(r)>
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 24c90-24dcc Body>                                   Δ+24       
        <POP 24c90-24ca6 Prologue>                           Σ0         ↓
        <POP 24ca6-24cba RegCacheLoad>                       Σ0         ↓
        <POP 24cba-24cc6 Naked>                              Σ0         ↓ →0x24cd8
            <POP 24cba-24cbc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24cbc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24cc2  TST.B   (A7)+>                        Δ+2                {}
            <MI 24cc4  BEQ     0x24cd8>                                         {}
        <POP 24cc6-24cd8 Naked>                              Σ0 Δ-24    →0x24ce8
            <Blob 0x24cc6 [24] @>                            Δ-24               {[«24""»]}
            <MI 24cd6  BRA     0x24ce8>                                         {[«24""»]}
        <POP 24cd8-24ce8 Naked>                              Σ0 Δ-24    ↓ ←0x24cba
            <Blob 0x24cd8 [24] @>                            Δ-24               {[«24""»]}
        <POP 24ce8-24dc4 Naked>                              Σ-24 Δ+24  ↓ ←0x24cc6
            <POP 24ce8-24cea StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x24cea>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x24cea 4>                       Δ-4        
                <Const 0x24cee 0x1.2>                        Δ-2        
                <Const 0x24cf2 0x17.2>                       Δ-2        
                <Call 0x24cf6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24cfc-24cfe StackAdj>                   Δ+8        
            <Pointer.fp 0x24cfe <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x24d00 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 24d06-24d0a StackAdj>                       Δ+32               {}
            <MI 24d0a  MOVE.B  (A6+0x16),-(A7)>              Δ-2                {[2, '(A6+0x16)']}
            <MI 24d0e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A6+0x16)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24d10 4>                           Δ-4                {[2, '(A6+0x16)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24d14 0x0.4>                            Δ-4                {[2, '(A6+0x16)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24d16 0x0.4>                            Δ-4                {[2, '(A6+0x16)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x24d18 0x10466>                                              {[2, '(A6+0x16)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24d1a-24d1c StackAdj>                       Δ+16               {[2, '(A6+0x16)']}
            <MI 24d1c  MOVE.B  (A6+0x14),(A7)>                                  {[-2-]}
            <MI 24d20  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x24d22 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24d26 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24d28 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x24d2a 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24d2c-24d30 StackAdj>                       Δ+14               {[-2-]|[-2-]}
            <MI 24d30  MOVE.L  (A6+0x10),(A7)>                                  {[4, '(A6+0x10)']}
            <MI 24d34  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24d36 4>                           Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24d3a 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24d3c 0x3.4>                            Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x24d40 0x10466>                                              {[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24d42-24d44 StackAdj>                       Δ+16               {[4, '(A6+0x10)']}
            <MI 24d44  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 24d48  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x24d4a 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x24d4e 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x24d50 0x3.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
            <Call 0x24d54 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24d56-24d5a StackAdj>                       Δ+18               {[-2-]}
            <MI 24d5a  CLR.B   (A7)>                                            {[-2-]}
            <MI 24d5c  MOVE.B  (A6+0x18),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x18)']}
            <MI 24d60  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x18)']|[4, '(A6-0x6)']}
            <Call 0x24d62 0x104ba>                                              {[-2-]|[2, '(A6+0x18)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24d68-24d6a StackAdj>                       Δ+8                {}
            <MI 24d6a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24d6e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 24d70  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x24d72 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x24d74 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
            <Call 0x24d78 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24d7e-24d80 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24d80  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24d82  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']}
            <Const 0x24d86 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x24d88 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##7]}
            <Call 0x24d8c 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x8)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24d92-24d94 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24d94  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24d96  PEA.L   (A0+0x10)>                    Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']}
            <Const 0x24d9a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]}
            <Const 0x24d9c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]|[##0]}
            <Call 0x24d9e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x10)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24da4-24da6 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 24da6  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 24da8  PEA.L   (A0+0x11)>                    Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']}
            <Const 0x24dac 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]}
            <Const 0x24dae 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]|[##1]}
            <Call 0x24db2 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0+0x11)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24db8-24dba StackAdj>                       Δ+16               {}
            <Pointer.fp 0x24dba <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x24dbc 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 24dc2-24dc4 StackAdj>                       Δ+4                {}
        <POP 24dc4-24dcc Epilogue>                           Σ0         

0x24dec


@ 24dec
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 2(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 24dec-24f0a Body>                                   Δ+16       
        <POP 24dec-24e02 Prologue>                           Σ0         ↓
        <POP 24e02-24e14 RegCacheLoad>                       Σ0         ↓
        <POP 24e14-24e20 Naked>                              Σ0         ↓ →0x24e32
            <POP 24e14-24e16 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24e16 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24e1c  TST.B   (A7)+>                        Δ+2                {}
            <MI 24e1e  BEQ     0x24e32>                                         {}
        <POP 24e20-24e32 Naked>                              Σ0 Δ-16    →0x24e42
            <Blob 0x24e20 [16] @>                            Δ-16               {[«16""»]}
            <MI 24e30  BRA     0x24e42>                                         {[«16""»]}
        <POP 24e32-24e42 Naked>                              Σ0 Δ-16    ↓ ←0x24e14
            <Blob 0x24e32 [16] @>                            Δ-16               {[«16""»]}
        <POP 24e42-24f02 Naked>                              Σ-16 Δ+16  ↓ ←0x24e20
            <POP 24e42-24e44 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x24e44>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x24e44 4>                       Δ-4        
                <Const 0x24e48 0x1.2>                        Δ-2        
                <Const 0x24e4c 0xf.2>                        Δ-2        
                <Call 0x24e50 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24e56-24e58 StackAdj>                   Δ+8        
            <Pointer.fp 0x24e58 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x24e5a 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 24e60-24e64 StackAdj>                       Δ+24               {}
            <MI 24e64  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 24e68  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24e6a 4>                           Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24e6e 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24e70 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24e72 0x10466>                                              {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24e78-24e7a StackAdj>                       Δ+16               {[2, '(A6+0x10)']}
            <MI 24e7a  MOVE.W  (A6+0xe),(A7)>                                   {[2, '(A6+0xe)']}
            <MI 24e7e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24e80 4>                           Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24e84 0x0.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24e86 0x1.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x24e8a 0x10466>                                              {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24e90-24e92 StackAdj>                       Δ+16               {[2, '(A6+0xe)']}
            <MI 24e92  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <MI 24e96  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x24e98 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24e9c 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24e9e 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24ea0 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24ea6-24ea8 StackAdj>                       Δ+16               {[-2-]}
            <MI 24ea8  CLR.B   (A7)>                                            {[-2-]}
            <MI 24eaa  MOVE.B  (A6+0x12),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x12)']}
            <MI 24eae  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
            <Call 0x24eb0 0x104ba>                                              {[-2-]|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24eb6-24eb8 StackAdj>                       Δ+8                {}
            <MI 24eb8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24ebc  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 24ebe  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Const 0x24ec0 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]}
            <Const 0x24ec2 0x7.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##7]}
            <Call 0x24ec6 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24ec8-24eca StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 24eca  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 24ecc  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']}
            <Const 0x24ed0 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x24ed2 0x7.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##7]}
            <Call 0x24ed6 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24ed8-24eda StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 24eda  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 24edc  PEA.L   (A0+0x10)>                    Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x10)']}
            <Const 0x24ee0 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x10)']|[##0]}
            <Const 0x24ee2 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x10)']|[##0]|[##0]}
            <Call 0x24ee4 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x10)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24ee6-24ee8 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 24ee8  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 24eea  PEA.L   (A0+0x11)>                    Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x11)']}
            <Const 0x24eee 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x11)']|[##0]}
            <Const 0x24ef0 0x1.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x11)']|[##0]|[##1]}
            <Call 0x24ef4 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x11)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 24ef6-24ef8 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x24ef8 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x24efa 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 24f00-24f02 StackAdj>                       Δ+4                {}
        <POP 24f02-24f0a Epilogue>                           Σ0         

0x24f32


@ 24f32
        <LVAR  0x01e 1(r)>
        <LVAR  0x01c 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 24f32-25048 Body>                                   Δ+20       
        <POP 24f32-24f48 Prologue>                           Σ0         ↓
        <POP 24f48-24f5e RegCacheLoad>                       Σ0         ↓
        <POP 24f5e-24f6a Naked>                              Σ0         ↓ →0x24f78
            <POP 24f5e-24f60 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24f60 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 24f66  TST.B   (A7)+>                        Δ+2                {}
            <MI 24f68  BEQ     0x24f78>                                         {}
        <POP 24f6a-24f78 Naked>                              Σ0 Δ-20    →0x24f84
            <Blob 0x24f6a [20] @>                            Δ-20               {[«20""»]}
            <MI 24f76  BRA     0x24f84>                                         {[«20""»]}
        <POP 24f78-24f84 Naked>                              Σ0 Δ-20    ↓ ←0x24f5e
            <Blob 0x24f78 [20] @>                            Δ-20               {[«20""»]}
        <POP 24f84-25040 Naked>                              Σ-20 Δ+20  ↓ ←0x24f6a
            <POP 24f84-24f86 StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x24f86>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x24f86 4>                       Δ-4        
                <Const 0x24f8a 0x1.2>                        Δ-2        
                <Const 0x24f8e 0x14.2>                       Δ-2        
                <Call 0x24f92 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24f98-24f9a StackAdj>                   Δ+8        
            <Pointer.fp 0x24f9a <LVAR -0x004 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-4]}
            <Call 0x24f9c 0x10460>                                              {[-20-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 24fa2-24fa6 StackAdj>                       Δ+28               {}
            <MI 24fa6  MOVE.B  (A6+0x1c),-(A7)>              Δ-2                {[2, '(A6+0x1c)']}
            <MI 24faa  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x1c)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24fac 4>                           Δ-4                {[2, '(A6+0x1c)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24fb0 0x0.4>                            Δ-4                {[2, '(A6+0x1c)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24fb2 0x0.4>                            Δ-4                {[2, '(A6+0x1c)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x24fb4 0x10466>                                              {[2, '(A6+0x1c)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24fb6-24fba StackAdj>                       Δ+14               {[2, '(A6+0x1c)']|[-2-]}
            <MI 24fba  MOVE.L  (A6+0x18),(A7)>                                  {[4, '(A6+0x18)']}
            <MI 24fbe  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24fc0 4>                           Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24fc4 0x0.4>                            Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24fc6 0x3.4>                            Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
            <Call 0x24fca 0x10466>                                              {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24fcc-24fce StackAdj>                       Δ+16               {[4, '(A6+0x18)']}
            <MI 24fce  MOVE.L  (A6+0x14),(A7)>                                  {[4, '(A6+0x14)']}
            <MI 24fd2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0x14)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x24fd4 4>                           Δ-4                {[4, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x24fd8 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x24fda 0x3.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
            <Call 0x24fde 0x10466>                                              {[4, '(A6+0x14)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 24fe0-24fe4 StackAdj>                       Δ+18               {[-2-]}
            <MI 24fe4  CLR.B   (A7)>                                            {[-2-]}
            <MI 24fe6  MOVE.B  (A6+0x1e),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x1e)']}
            <MI 24fea  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x1e)']|[4, '(A6-0x4)']}
            <Call 0x24fec 0x104ba>                                              {[-2-]|[2, '(A6+0x1e)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 24ff2-24ff4 StackAdj>                       Δ+4                {[-2-]|[2, '(A6+0x1e)']}
            <MI 24ff4  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 24ff6  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x4)']}
            <MI 24ffa  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Call 0x24ffc 0x10478>                                              {[4, '(A6-0x4)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 25002-25004 StackAdj>                       Δ+4                {[4, '(A6-0x4)']}
            <MI 25004  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 25006  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x4)']}
            <MI 2500a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Const 0x2500c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]}
            <Const 0x2500e 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x25010 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 25012-25014 StackAdj>                       Δ+16               {}
            <MI 25014  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 25018  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 2501a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Const 0x2501c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]}
            <Const 0x2501e 0x7.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##7]}
            <Call 0x25022 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 25024-25028 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 25028  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 2502a  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']}
            <Const 0x2502e 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x25030 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##0]}
            <Call 0x25032 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 25034-25036 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x25036 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x25038 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2503e-25040 StackAdj>                       Δ+4                {}
        <POP 25040-25048 Epilogue>                           Σ0         

0x25070


@ 25070
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 25070-250fe Body>                                   Δ+20       
        <POP 25070-25086 Prologue>                           Σ0         ↓
        <POP 25086-2508c RegCacheLoad>                       Σ0         ↓
        <POP 2508c-25098 Naked>                              Σ0         ↓ →0x250aa
            <POP 2508c-2508e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2508e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 25094  TST.B   (A7)+>                        Δ+2                {}
            <MI 25096  BEQ     0x250aa>                                         {}
        <POP 25098-250aa Naked>                              Σ0 Δ-20    →0x250ba
            <Blob 0x25098 [20] @>                            Δ-20               {[«20""»]}
            <MI 250a8  BRA     0x250ba>                                         {[«20""»]}
        <POP 250aa-250ba Naked>                              Σ0 Δ-20    ↓ ←0x2508c
            <Blob 0x250aa [20] @>                            Δ-20               {[«20""»]}
        <POP 250ba-250f6 Naked>                              Σ-20 Δ+20  ↓ ←0x25098
            <POP 250ba-250bc StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x250bc>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x250bc 4>                       Δ-4        
                <Const 0x250c0 0x1.2>                        Δ-2        
                <Const 0x250c4 0x13.2>                       Δ-2        
                <Call 0x250c8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 250ce-250d0 StackAdj>                   Δ+8        
            <Pointer.fp 0x250d0 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x250d2 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 250d8-250dc StackAdj>                       Δ+28               {}
            <MI 250dc  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 250de  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 250e2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x250e4 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 250ea-250ec StackAdj>                       Δ+8                {}
            <Pointer.fp 0x250ec <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x250ee 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 250f4-250f6 StackAdj>                       Δ+4                {}
        <POP 250f6-250fe Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.21a69ecf46952bde
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 43 80              |  C     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 51 86              |  Q     |		.PTR	0x25186
00020010					code.end:
00020010 00 02 51 1a              |  Q     |		.PTR	0x2511a
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 0f fa              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 10 62              |   b    |		.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 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020118 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020126 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020134 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020142 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020154 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002016c 4d 5f 4c 4d              |M_LM    |		.XXX[0x4]
00020170 52 20 20 20 20 20 4d 5f  |R     M_|		.XXX[0x70]
00020178 50 54 52 20 20 20 20 20  |PTR     |
00020180 4d 5f 50 4d 52 20 20 20  |M_PMR   |
00020188 20 20 4d 5f 4e 54 41 47  |  M_NTAG|
00020190 53 20 20 20 4d 5f 4c 4d  |S   M_LM|
00020198 57 20 20 20 20 20 4d 5f  |W     M_|
000201a0 50 54 57 20 20 20 20 20  |PTW     |
000201a8 4d 5f 50 4d 57 20 20 20  |M_PMW   |
000201b0 20 20 4d 5f 47 4d 44 20  |  M_GMD |
000201b8 20 20 20 20 4d 5f 52 44  |    M_RD|
000201c0 52 53 20 20 20 20 4d 5f  |RS    M_|
000201c8 54 56 52 53 20 20 20 20  |TVRS    |
000201d0 4d 5f 45 43 43 5f 4f 46  |M_ECC_OF|
000201d8 20 20 21 40 23 24 25 5e  |  !@#$%^|
000201e0 26 2a 28 29              |&*()    |		.XXX[0x4]
000201e4 46 55 4c 4c 5f 48 45 58  |FULL_HEX|		.TXT	'FULL_HEX_ERROR -- STRING_LENGTH =_'
00020206 20 53 49 5a              | SIZ    |		.TXT	' SIZ'
0002020a 45 20 3d 5f              |E =_    |		.TXT	'E =_'
0002020e 74 72 75 65              |true    |		.TXT	'true'
00020212 66 61 6c 73 65 20        |false   |		.TXT	'false '
00020218 47 45 54 5f 53 54 52 49  |GET_STRI|		.TXT	'GET_STRING_1 : ARGUMENT TOO BIG =_'
0002023a 47 45 54 5f 53 54 52 49  |GET_STRI|		.TXT	'GET_STRING_2 : ARGUMENT TOO BIG =_'
0002025c 47 45 54 5f 53 54 52 49  |GET_STRI|		.TXT	'GET_STRING_4 : ARGUMENT TOO BIG =_'
0002027e 47 45 54 5f 53 54 52 49  |GET_STRI|		.TXT	'GET_STRING_8 : ARGUMENT TOO BIG =_'
000202a0 45 52 52 4f 52 20 3a 20  |ERROR : |		.TXT	'ERROR : SET NUMBER IS TOO BIG, SET =_ '
000202c6 54 59 50 20              |TYP     |		.TXT	'TYP '
000202ca 42 49 54 5f              |BIT_    |		.TXT	'BIT_'
000202ce 20 49 53 20 42 41 44 20  | IS BAD |		.TXT	' IS BAD '
000202d6 56 41 4c 20              |VAL     |		.TXT	'VAL '
000202da 42 49 54 20              |BIT     |		.TXT	'BIT '
000202de 30 20 49 53              |0 IS    |		.TXT	'0 IS'
000202e2 20 42 41 44              | BAD    |		.TXT	' BAD'
000202e6 56 41 4c 20              |VAL     |		.TXT	'VAL '
000202ea 42 49 54 5f              |BIT_    |		.TXT	'BIT_'
000202ee 20 49 53 20 42 41 44 20  | IS BAD |		.TXT	' IS BAD '
000202f6 4d 75 6c 74 69 70 6c 65  |Multiple|		.TXT	'Multiple bit error !'
0002030a 43 42 49 54              |CBIT    |		.TXT	'CBIT'
0002030e 20 49 53 20 42 41 44 20  | IS BAD |		.TXT	' IS BAD '
00020316 2a 2a 2a 2a 2a 2a 2a 2a  |********|		.TXT	'************* ECC ERROR ***********__ '
0002033c 2a 2a 2a 2a 2a 2a 2a 2a  |********|		.TXT	'*********** BAD PARITY ***********'
0002035e 20 47 4f 4f 44 20 50 41  | GOOD PA|		.TXT	' GOOD PARITY =_ '
0002036e 20 49 4e 56              | INV    |		.TXT	' INV'
00020372 20 52                    | R      |		.TXT	' R'
00020374 57 20                    |W       |		.XXX[0x2]
00020376 20 52                    | R      |		.TXT	' R'
00020378 4f 20                    |O       |		.XXX[0x2]
0002037a 20 4c 4f 44              | LOD    |		.TXT	' LOD'
0002037e 44 49 53 50 4c 41 59 20  |DISPLAY |		.TXT	'DISPLAY TAG WORD : CASE ERROR '
0002039c 20 44                    | D      |		.TXT	' D'
0002039e 49 52                    |IR      |		.TXT	'IR'
000203a0 54 59                    |TY      |		.TXT	'TY'
000203a2 20 43                    | C      |		.TXT	' C'
000203a4 4c 45                    |LE      |		.TXT	'LE'
000203a6 41 4e                    |AN      |		.TXT	'AN'
000203a8 20 57                    | W      |		.TXT	' W'
000203aa 49 52                    |IR      |		.TXT	'IR'
000203ac 45 44                    |ED      |		.TXT	'ED'
000203ae 20 50 45 52 4d 20        | PERM   |		.TXT	' PERM '
000203b4 20 57 52 54 42 4c 45 20  | WRTBLE |		.TXT	' WRTBLE '
000203bc 4d 45                    |ME      |		.TXT	'ME'
000203be 4d 20                    |M       |		.XXX[0x2]
000203c0 20 54 56 52              | TVR    |		.TXT	' TVR'
000203c4 20 2d 3e 5f              | ->_    |		.TXT	' ->_'
000203c8 5f 5f                    |__      |		.TXT	'__'
000203ca 53 45 54 20 20 3d 5f 20  |SET  =_ |		.TXT	'SET  =_ '
000203d2 20 20 4c 49 4e 45 20 3d  |  LINE =|		.TXT	'  LINE =_ '
000203dc 20 20 4c 52 55 20 20 3d  |  LRU  =|		.TXT	'  LRU  =_ '
000203e6 20 20 50 53 20 20 20 3d  |  PS   =|		.TXT	'  PS   =_ '
000203f0 20 53 45 54 5f 20        | SET_   |		.TXT	' SET_ '
000203f6 20 2d 3e 5f              | ->_    |		.TXT	' ->_'
000203fa 5f 5f                    |__      |		.TXT	'__'
000203fc 20 20 4c 52 55 20 20 20  |  LRU   |		.TXT	'  LRU   =_'
00020406 20 53 50 41 43 45 20 3d  | SPACE =|		.TXT	' SPACE =_ '
00020410 20 4e 41 4d              | NAM    |		.TXT	' NAM'
00020414 45 20 3d 5f              |E =_    |		.TXT	'E =_'
00020418 20 50 41 47              | PAG    |		.TXT	' PAG'
0002041c 45 20 3d 5f              |E =_    |		.TXT	'E =_'
00020420 53 45 54 5f              |SET_    |		.TXT	'SET_'
00020424 20 2d 3e 20 4c 52 55 20  | -> LRU |		.TXT	' -> LRU =_'
0002042e 20 53 50 41 43 45 20 3d  | SPACE =|		.TXT	' SPACE =_ '
00020438 20 4e 41 4d              | NAM    |		.TXT	' NAM'
0002043c 45 20 3d 5f              |E =_    |		.TXT	'E =_'
00020440 20 50 41 47              | PAG    |		.TXT	' PAG'
00020444 45 20 3d 5f              |E =_    |		.TXT	'E =_'
00020448 4d 45                    |ME      |		.TXT	'ME'
0002044a 4d 20                    |M       |		.XXX[0x2]
0002044c 20 52 44 52              | RDR    |		.TXT	' RDR'
00020450 20 54 59 50              | TYP    |		.TXT	' TYP'
00020454 45 20 3d 5f              |E =_    |		.TXT	'E =_'
00020458 20 20 56 41              |  VA    |		.TXT	'  VA'
0002045c 4c 20 3d 5f              |L =_    |		.TXT	'L =_'
00020460 20 20 45 43              |  EC    |		.TXT	'  EC'
00020464 43 20 3d 5f              |C =_    |		.TXT	'C =_'
00020468 57 4f 52 44 5f 20        |WORD_   |		.TXT	'WORD_ '
0002046e 20 3d 3e 20 54 59 50 45  | => TYPE|		.TXT	' => TYPE =_ '
0002047a 20 20 56 41              |  VA    |		.TXT	'  VA'
0002047e 4c 20 3d 5f              |L =_    |		.TXT	'L =_'
00020482 20 20 45 43              |  EC    |		.TXT	'  EC'
00020486 43 20 3d 5f              |C =_    |		.TXT	'C =_'
0002048a 4e 4f 20 42 4f 41 52 44  |NO BOARD|		.TXT	'NO BOARDS HIT - PAGE NOT IN MEMORY'
000204ac 53 50 41 43 45 20 20 20  |SPACE   |		.TXT	'SPACE    :_ '
000204b8 4e 41 4d 45 20 20 20 20  |NAME    |		.XXX[0x18]
000204c0 20 3a 5f 20 42 49 54 5f  | :_ BIT_|
000204c8 4f 46 46 53 20 3a 5f 20  |OFFS :_ |
000204d0 4d 4f 52 45              |MORE    |		.TXT	'MORE'
000204d4 53 45 54 20 20 3a 5f 20  |SET  :_ |		.TXT	'SET  :_ '
000204dc 4c 49 4e 45              |LINE    |		.XXX[0x4]
000204e0 20 3a 5f 20 57 4f 52 44  | :_ WORD|		.XXX[0x8]
000204e8 20 3a 5f 20              | :_     |		.XXX[0x4]
000204ec 4d 45 4d 4f 52 59 20 42  |MEMORY B|		.TXT	'MEMORY BOARD DOESN'T EXIST'
00020506 4d 4f 52 45              |MORE    |		.TXT	'MORE'
0002050a 53 50 41 43 45 20 20 20  |SPACE   |		.TXT	'SPACE    :_ '
00020516 4e 41                    |NA      |		.XXX[0x2]
00020518 4d 45 20 20 20 20 20 3a  |ME     :|		.XXX[0x28]
00020520 5f 20 42 49 54 5f 4f 46  |_ BIT_OF|
00020528 46 53 20 3a 5f 20 54 59  |FS :_ TY|
00020530 50 45 20 20 20 20 20 3a  |PE     :|
00020538 5f 20 56 41 4c 20 20 20  |_ VAL   |
00020540 20 20 20 3a 5f 20        |   :_   |		.XXX[0x6]
00020546 53 45 54 20 20 3a 5f 20  |SET  :_ |		.TXT	'SET  :_ '
0002054e 4c 49                    |LI      |		.XXX[0x2]
00020550 4e 45 20 3a 5f 20 57 4f  |NE :_ WO|		.XXX[0x18]
00020558 52 44 20 3a 5f 20 54 59  |RD :_ TY|
00020560 50 20 20 3a 5f 20 56 41  |P  :_ VA|
00020568 4c 20 20 3a 5f 20        |L  :_   |		.XXX[0x6]
0002056e 4d 45 4d 4f 52 59 20 42  |MEMORY B|		.TXT	'MEMORY BOARD DOESN'T EXIST'
00020588 4c 49 4e 45 20 3a 5f 20  |LINE :_ |		.TXT	'LINE :_ '
00020590 53 45 54 20 20 3a 5f 20  |SET  :_ |		.TXT	'SET  :_ '
00020598 4c 49 4e 45 20 3a 5f 20  |LINE :_ |		.XXX[0x8]
000205a0 54 41                    |TA      |		.TXT	'TA'
000205a2 47 20                    |G       |		.TXT	'G '
000205a4 20 3a                    | :      |		.TXT	' :'
000205a6 4d 45 4d 4f 52 59 20 42  |MEMORY B|		.TXT	'MEMORY BOARD DOESN'T EXIST'
000205c0 53 45 54 20 20 3a 5f 20  |SET  :_ |		.TXT	'SET  :_ '
000205c8 4c 49 4e 45 20 3a 5f 20  |LINE :_ |		.XXX[0x8]
000205d0 4d 45 4d 4f 52 59 20 42  |MEMORY B|		.TXT	'MEMORY BOARD DOESN'T EXIST'
000205ea 53 50 41 43 45 20 20 20  |SPACE   |		.TXT	'SPACE    :_ '
000205f6 4e 41                    |NA      |		.XXX[0x2]
000205f8 4d 45 20 20 20 20 20 3a  |ME     :|		.XXX[0x10]
00020600 5f 20 42 49 54 5f 4f 46  |_ BIT_OF|
00020608 46 53 20 3a 5f 20        |FS :_   |		.XXX[0x6]
0002060e 42 41 44 2c 42 41 44 20  |BAD,BAD |		.TXT	'BAD,BAD '
00020616 54 59 50 5f 44 41 54 41  |TYP_DATA|		.TXT	'TYP_DATA :_ '
00020622 56 41 4c 5f 44 41        |VAL_DA  |		.XXX[0x6]
00020628 54 41 20 3a 5f 20        |TA :_   |		.XXX[0x6]
0002062e 45 72 72 6f 72 20 69 6e  |Error in|		.TXT	'Error in call to memory macro program '
00020654 43 61 73 65 20 65 72 72  |Case err|		.TXT	'Case error on macro '
00020668 45 52 52 4f 52 20 3a 20  |ERROR : |		.TXT	'ERROR : " '
00020672 22 20 69 73 20 6e 6f 74  |" is not|		.TXT	'" is not implemented. '
00020688 4d 5f 4c 4d 52 20 20 20  |M_LMR   |		.XXX[0x78]
00020690 20 20 4d 5f 50 54 52 20  |  M_PTR |
00020698 20 20 20 20 4d 5f 50 4d  |    M_PM|
000206a0 52 20 20 20 20 20 4d 5f  |R     M_|
000206a8 4e 54 41 47 53 20 20 20  |NTAGS   |
000206b0 4d 5f 4c 4d 57 20 20 20  |M_LMW   |
000206b8 20 20 4d 5f 50 54 57 20  |  M_PTW |
000206c0 20 20 20 20 4d 5f 50 4d  |    M_PM|
000206c8 57 20 20 20 20 20 4d 5f  |W     M_|
000206d0 47 4d 44 20 20 20 20 20  |GMD     |
000206d8 4d 5f 52 44 52 53 20 20  |M_RDRS  |
000206e0 20 20 4d 5f 54 56 52 53  |  M_TVRS|
000206e8 20 20 20 20 4d 5f 45 43  |    M_EC|
000206f0 43 5f 4f 46 20 20 21 40  |C_OF  !@|
000206f8 23 24 25 5e 26 2a 28 29  |#$%^&*()|
00020700 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020704 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020708 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002070c 00 00 00 01              |        |		.CONST	0x0,0x0,0x0,0x1
00020710 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020714 00 00 00 ff              |        |		.CONST	0x0,0x0,0x0,0xff
00020718 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002071c 00 00 1f ff              |        |		.CONST	0x0,0x0,0x1f,0xff
00020720 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020724 00 00 00 80              |        |		.CONST	0x0,0x0,0x0,0x80
00020728 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002072c ff ff ff 80              |        |		.CONST	0xff,0xff,0xff,0x80
00020730 00 00 00 00 ff ff ff ff  |        |		.XXX[0x8c8]
00020738 ff ff ff ff 00 00 00 00  |        |
00020740 ff 06 3a 72 ff 06 3a 72  |  :r  :r|
00020748 ff fb c4 04 ff fb c4 04  |        |
00020750 c1 ff 33 8b c1 ff 33 83  |  3   3 |
00020758 07 91 ff e1 07 91 ff e9  |        |
00020760 b2 c8 c2 ff b2 c8 c2 ff  |        |
00020768 6c 2d ad bc 6c 2d ad bc  |l-  l-  |
00020770 18 76 5d 5f 18 76 5d 5f  | v]_ v]_|
00020778 00 00 00 00 ff ff ff ff  |        |
00020780 00 00 00 00 ff ff ff ff  |        |
00020788 ff 01 05 2a 18 a9 e3 d0  |   *    |
00020790 40 ff 01 86 0f 96 11 31  |@      1|
00020798 11 0e 3c f0 00 ff 1e 06  |  <     |
000207a0 26 12 ff 04 61 00 ff 09  |&   a   |
000207a8 0a 60 62 ff b2 43 28 6c  | `b  C(l|
000207b0 8d a9 8a 41 c4 24 44 ff  |   A $D |
000207b8 f0 d4 d0 19 ff 58 80 82  |     X  |
000207c0 00 00 00 00 01 01 01 00  |        |
000207c8 00 00 00 00 00 31 00 00  |     1  |
000207d0 00 28 00 00 00 29 00 00  | (   )  |
000207d8 00 2a 00 00 00 27 00 00  | *   '  |
000207e0 00 2b 00 00 00 2f 00 00  | +   /  |
000207e8 00 2e 00 00 00 2d 00 00  | .   -  |
000207f0 00 2c 00 00 00 32 00 00  | ,   2  |
000207f8 00 30 00 00 00 00 00 00  | 0      |
00020800 00 4e 00 00 00 4d 00 00  | N   M  |
00020808 00 40 00 00 00 4c 00 00  | @   L  |
00020810 00 40 00 00 00 40 ff ff  | @   @  |
00020818 ff e1 00 00 00 4b 00 00  |     K  |
00020820 00 40 00 00 00 40 ff ff  | @   @  |
00020828 ff f0 00 00 00 40 ff ff  |     @  |
00020830 ff ef ff ff ff ea 00 00  |        |
00020838 00 40 00 00 00 4a 00 00  | @   J  |
00020840 00 40 00 00 00 40 00 00  | @   @  |
00020848 00 40 00 00 00 40 ff ff  | @   @  |
00020850 ff e5 ff ff ff e7 00 00  |        |
00020858 00 40 00 00 00 40 ff ff  | @   @  |
00020860 ff ed ff ff ff ec 00 00  |        |
00020868 00 40 ff ff ff ee 00 00  | @      |
00020870 00 40 00 00 00 40 00 00  | @   @  |
00020878 00 40 00 00 00 49 00 00  | @   I  |
00020880 00 40 00 00 00 40 ff ff  | @   @  |
00020888 ff f8 00 00 00 40 ff ff  |     @  |
00020890 ff f7 ff ff ff f6 00 00  |        |
00020898 00 40 00 00 00 40 ff ff  | @   @  |
000208a0 ff f5 00 00 00 40 00 00  |     @  |
000208a8 00 40 ff ff ff e3 00 00  | @      |
000208b0 00 40 00 00 00 40 00 00  | @   @  |
000208b8 00 40 00 00 00 40 ff ff  | @   @  |
000208c0 ff f3 ff ff ff f4 00 00  |        |
000208c8 00 40 ff ff ff e8 00 00  | @      |
000208d0 00 40 00 00 00 40 00 00  | @   @  |
000208d8 00 40 ff ff ff f2 00 00  | @      |
000208e0 00 40 00 00 00 40 00 00  | @   @  |
000208e8 00 40 00 00 00 40 00 00  | @   @  |
000208f0 00 40 00 00 00 40 00 00  | @   @  |
000208f8 00 40 00 00 00 48 00 00  | @   H  |
00020900 00 40 00 00 00 40 ff ff  | @   @  |
00020908 ff c0 00 00 00 40 ff ff  |     @  |
00020910 ff e4 ff ff ff fc 00 00  |        |
00020918 00 40 00 00 00 40 ff ff  | @   @  |
00020920 ff fe ff ff ff fb 00 00  |        |
00020928 00 40 ff ff ff fa 00 00  | @      |
00020930 00 40 00 00 00 40 00 00  | @   @  |
00020938 00 40 00 00 00 40 ff ff  | @   @  |
00020940 ff fd ff ff ff f9 00 00  |        |
00020948 00 40 ff ff ff e6 00 00  | @      |
00020950 00 40 00 00 00 40 00 00  | @   @  |
00020958 00 40 ff ff ff eb 00 00  | @      |
00020960 00 40 00 00 00 40 00 00  | @   @  |
00020968 00 40 00 00 00 40 00 00  | @   @  |
00020970 00 40 00 00 00 40 00 00  | @   @  |
00020978 00 40 00 00 00 40 ff ff  | @   @  |
00020980 ff ff ff ff ff f1 00 00  |        |
00020988 00 40 ff ff ff e2 00 00  | @      |
00020990 00 40 00 00 00 40 00 00  | @   @  |
00020998 00 40 ff ff ff e9 00 00  | @      |
000209a0 00 40 00 00 00 40 00 00  | @   @  |
000209a8 00 40 00 00 00 40 00 00  | @   @  |
000209b0 00 40 00 00 00 40 00 00  | @   @  |
000209b8 00 40 00 00 00 40 00 00  | @   @  |
000209c0 00 40 00 00 00 40 00 00  | @   @  |
000209c8 00 40 00 00 00 40 00 00  | @   @  |
000209d0 00 40 00 00 00 40 00 00  | @   @  |
000209d8 00 40 00 00 00 40 00 00  | @   @  |
000209e0 00 40 00 00 00 40 00 00  | @   @  |
000209e8 00 40 00 00 00 40 00 00  | @   @  |
000209f0 00 40 00 00 00 40 00 00  | @   @  |
000209f8 00 40 00 00 00 47 00 00  | @   G  |
00020a00 00 40 00 00 00 40 00 00  | @   @  |
00020a08 00 40 00 00 00 40 00 00  | @   @  |
00020a10 00 40 00 00 00 40 00 00  | @   @  |
00020a18 00 40 00 00 00 40 00 00  | @   @  |
00020a20 00 40 00 00 00 40 00 00  | @   @  |
00020a28 00 40 00 00 00 40 00 00  | @   @  |
00020a30 00 40 00 00 00 40 00 00  | @   @  |
00020a38 00 40 00 00 00 40 00 00  | @   @  |
00020a40 00 40 00 00 00 40 00 00  | @   @  |
00020a48 00 40 00 00 00 40 00 00  | @   @  |
00020a50 00 40 00 00 00 40 00 00  | @   @  |
00020a58 00 1c 00 00 00 40 00 00  |     @  |
00020a60 00 40 00 00 00 40 00 00  | @   @  |
00020a68 00 17 00 00 00 40 00 00  |     @  |
00020a70 00 1f 00 00 00 18 00 00  |        |
00020a78 00 40 00 00 00 40 00 00  | @   @  |
00020a80 00 40 00 00 00 40 00 00  | @   @  |
00020a88 00 40 00 00 00 40 00 00  | @   @  |
00020a90 00 40 00 00 00 40 00 00  | @   @  |
00020a98 00 1d 00 00 00 40 00 00  |     @  |
00020aa0 00 40 00 00 00 40 00 00  | @   @  |
00020aa8 00 15 00 00 00 40 00 00  |     @  |
00020ab0 00 11 00 00 00 10 00 00  |        |
00020ab8 00 40 00 00 00 40 00 00  | @   @  |
00020ac0 00 40 00 00 00 40 00 00  | @   @  |
00020ac8 00 0a 00 00 00 40 00 00  |     @  |
00020ad0 00 09 00 00 00 0c 00 00  |        |
00020ad8 00 40 00 00 00 40 00 00  | @   @  |
00020ae0 00 0b 00 00 00 0f 00 00  |        |
00020ae8 00 40 00 00 00 08 00 00  | @      |
00020af0 00 40 00 00 00 40 00 00  | @   @  |
00020af8 00 40 00 00 00 40 00 00  | @   @  |
00020b00 00 40 00 00 00 40 00 00  | @   @  |
00020b08 00 40 00 00 00 40 00 00  | @   @  |
00020b10 00 40 00 00 00 40 00 00  | @   @  |
00020b18 00 1b 00 00 00 40 00 00  |     @  |
00020b20 00 40 00 00 00 40 00 00  | @   @  |
00020b28 00 14 00 00 00 40 00 00  |     @  |
00020b30 00 19 00 00 00 1a 00 00  |        |
00020b38 00 40 00 00 00 40 00 00  | @   @  |
00020b40 00 40 00 00 00 40 00 00  | @   @  |
00020b48 00 0d 00 00 00 40 00 00  |     @  |
00020b50 00 1e 00 00 00 40 00 00  |     @  |
00020b58 00 40 00 00 00 40 00 00  | @   @  |
00020b60 00 13 00 00 00 12 00 00  |        |
00020b68 00 40 00 00 00 16 00 00  | @      |
00020b70 00 40 00 00 00 40 00 00  | @   @  |
00020b78 00 40 00 00 00 40 00 00  | @   @  |
00020b80 00 40 00 00 00 40 00 00  | @   @  |
00020b88 00 04 00 00 00 40 00 00  |     @  |
00020b90 00 03 00 00 00 02 00 00  |        |
00020b98 00 40 00 00 00 40 00 00  | @   @  |
00020ba0 00 40 00 00 00 05 00 00  | @      |
00020ba8 00 40 00 00 00 06 00 00  | @      |
00020bb0 00 40 00 00 00 40 00 00  | @   @  |
00020bb8 00 40 00 00 00 40 00 00  | @   @  |
00020bc0 00 0e 00 00 00 01 00 00  |        |
00020bc8 00 40 00 00 00 00 00 00  | @      |
00020bd0 00 40 00 00 00 40 00 00  | @   @  |
00020bd8 00 40 00 00 00 07 00 00  | @      |
00020be0 00 40 00 00 00 40 00 00  | @   @  |
00020be8 00 40 00 00 00 40 00 00  | @   @  |
00020bf0 00 40 00 00 00 40 00 00  | @   @  |
00020bf8 00 40 00 00 00 46 00 00  | @   F  |
00020c00 00 40 00 00 00 40 00 00  | @   @  |
00020c08 00 40 00 00 00 40 00 00  | @   @  |
00020c10 00 40 00 00 00 40 00 00  | @   @  |
00020c18 00 40 00 00 00 40 00 00  | @   @  |
00020c20 00 40 00 00 00 40 00 00  | @   @  |
00020c28 00 40 00 00 00 40 00 00  | @   @  |
00020c30 00 40 00 00 00 40 00 00  | @   @  |
00020c38 00 3c 00 00 00 40 00 00  | <   @  |
00020c40 00 40 00 00 00 40 00 00  | @   @  |
00020c48 00 40 00 00 00 40 00 00  | @   @  |
00020c50 00 40 00 00 00 40 00 00  | @   @  |
00020c58 00 40 00 00 00 40 00 00  | @   @  |
00020c60 00 40 00 00 00 40 00 00  | @   @  |
00020c68 00 37 00 00 00 40 00 00  | 7   @  |
00020c70 00 3f 00 00 00 38 00 00  | ?   8  |
00020c78 00 40 00 00 00 40 00 00  | @   @  |
00020c80 00 40 00 00 00 40 00 00  | @   @  |
00020c88 00 40 00 00 00 40 00 00  | @   @  |
00020c90 00 40 00 00 00 40 00 00  | @   @  |
00020c98 00 3d 00 00 00 40 00 00  | =   @  |
00020ca0 00 40 00 00 00 40 00 00  | @   @  |
00020ca8 00 35 00 00 00 40 00 00  | 5   @  |
00020cb0 00 31 00 00 00 30 00 00  | 1   0  |
00020cb8 00 40 00 00 00 40 00 00  | @   @  |
00020cc0 00 40 00 00 00 40 00 00  | @   @  |
00020cc8 00 2a 00 00 00 40 00 00  | *   @  |
00020cd0 00 29 00 00 00 2c 00 00  | )   ,  |
00020cd8 00 40 00 00 00 40 00 00  | @   @  |
00020ce0 00 2b 00 00 00 2f 00 00  | +   /  |
00020ce8 00 40 00 00 00 28 00 00  | @   (  |
00020cf0 00 40 00 00 00 40 00 00  | @   @  |
00020cf8 00 40 00 00 00 40 00 00  | @   @  |
00020d00 00 40 00 00 00 40 00 00  | @   @  |
00020d08 00 40 00 00 00 40 00 00  | @   @  |
00020d10 00 40 00 00 00 40 00 00  | @   @  |
00020d18 00 3b 00 00 00 40 00 00  | ;   @  |
00020d20 00 40 00 00 00 40 00 00  | @   @  |
00020d28 00 34 00 00 00 40 00 00  | 4   @  |
00020d30 00 39 00 00 00 3a 00 00  | 9   :  |
00020d38 00 40 00 00 00 40 00 00  | @   @  |
00020d40 00 40 00 00 00 40 00 00  | @   @  |
00020d48 00 2d 00 00 00 40 00 00  | -   @  |
00020d50 00 3e 00 00 00 40 00 00  | >   @  |
00020d58 00 40 00 00 00 40 00 00  | @   @  |
00020d60 00 33 00 00 00 32 00 00  | 3   2  |
00020d68 00 40 00 00 00 36 00 00  | @   6  |
00020d70 00 40 00 00 00 40 00 00  | @   @  |
00020d78 00 40 00 00 00 40 00 00  | @   @  |
00020d80 00 40 00 00 00 40 00 00  | @   @  |
00020d88 00 24 00 00 00 40 00 00  | $   @  |
00020d90 00 23 00 00 00 22 00 00  | #   "  |
00020d98 00 40 00 00 00 40 00 00  | @   @  |
00020da0 00 40 00 00 00 25 00 00  | @   %  |
00020da8 00 40 00 00 00 26 00 00  | @   &  |
00020db0 00 40 00 00 00 40 00 00  | @   @  |
00020db8 00 40 00 00 00 40 00 00  | @   @  |
00020dc0 00 2e 00 00 00 21 00 00  | .   !  |
00020dc8 00 40 00 00 00 20 00 00  | @      |
00020dd0 00 40 00 00 00 40 00 00  | @   @  |
00020dd8 00 40 00 00 00 27 00 00  | @   '  |
00020de0 00 40 00 00 00 40 00 00  | @   @  |
00020de8 00 40 00 00 00 40 00 00  | @   @  |
00020df0 00 40 00 00 00 40 00 00  | @   @  |
00020df8 00 40 00 00 00 40 00 00  | @   @  |
00020e00 00 40 00 00 00 40 00 00  | @   @  |
00020e08 00 40 00 00 00 40 00 00  | @   @  |
00020e10 00 40 00 00 00 40 ff ff  | @   @  |
00020e18 ff e0 00 00 00 40 00 00  |     @  |
00020e20 00 40 00 00 00 40 ff ff  | @   @  |
00020e28 ff df 00 00 00 40 ff ff  |     @  |
00020e30 ff de ff ff ff c4 00 00  |        |
00020e38 00 40 00 00 00 40 00 00  | @   @  |
00020e40 00 40 00 00 00 40 ff ff  | @   @  |
00020e48 ff c2 00 00 00 40 ff ff  |     @  |
00020e50 ff d7 ff ff ff c3 00 00  |        |
00020e58 00 40 00 00 00 40 00 00  | @   @  |
00020e60 00 40 ff ff ff cb 00 00  | @      |
00020e68 00 40 ff ff ff cc 00 00  | @      |
00020e70 00 40 00 00 00 40 00 00  | @   @  |
00020e78 00 40 00 00 00 40 00 00  | @   @  |
00020e80 00 40 00 00 00 40 ff ff  | @   @  |
00020e88 ff db 00 00 00 40 ff ff  |     @  |
00020e90 ff da ff ff ff c6 00 00  |        |
00020e98 00 40 00 00 00 40 ff ff  | @   @  |
00020ea0 ff d9 ff ff ff c1 00 00  |        |
00020ea8 00 40 00 00 00 40 00 00  | @   @  |
00020eb0 00 40 00 00 00 40 00 00  | @   @  |
00020eb8 00 40 00 00 00 40 ff ff  | @   @  |
00020ec0 ff d5 ff ff ff d3 00 00  |        |
00020ec8 00 40 ff ff ff d2 00 00  | @      |
00020ed0 00 40 00 00 00 40 00 00  | @   @  |
00020ed8 00 40 ff ff ff cd 00 00  | @      |
00020ee0 00 40 00 00 00 40 00 00  | @   @  |
00020ee8 00 40 00 00 00 40 00 00  | @   @  |
00020ef0 00 40 00 00 00 40 00 00  | @   @  |
00020ef8 00 40 00 00 00 40 00 00  | @   @  |
00020f00 00 40 00 00 00 40 ff ff  | @   @  |
00020f08 ff c8 00 00 00 40 ff ff  |     @  |
00020f10 ff dd ff ff ff c7 00 00  |        |
00020f18 00 40 00 00 00 40 ff ff  | @   @  |
00020f20 ff d0 ff ff ff cf 00 00  |        |
00020f28 00 40 ff ff ff ce 00 00  | @      |
00020f30 00 40 00 00 00 40 00 00  | @   @  |
00020f38 00 40 00 00 00 40 ff ff  | @   @  |
00020f40 ff d4 ff ff ff d6 00 00  |        |
00020f48 00 40 ff ff ff d1 00 00  | @      |
00020f50 00 40 00 00 00 40 00 00  | @   @  |
00020f58 00 40 ff ff ff ca 00 00  | @      |
00020f60 00 40 00 00 00 40 00 00  | @   @  |
00020f68 00 40 00 00 00 40 00 00  | @   @  |
00020f70 00 40 00 00 00 40 00 00  | @   @  |
00020f78 00 40 00 00 00 40 ff ff  | @   @  |
00020f80 ff dc ff ff ff c5 00 00  |        |
00020f88 00 40 00 00 00 40 00 00  | @   @  |
00020f90 00 40 00 00 00 40 00 00  | @   @  |
00020f98 00 40 ff ff ff c9 00 00  | @      |
00020fa0 00 40 00 00 00 40 00 00  | @   @  |
00020fa8 00 40 00 00 00 40 00 00  | @   @  |
00020fb0 00 40 00 00 00 40 00 00  | @   @  |
00020fb8 00 40 ff ff ff d8 00 00  | @      |
00020fc0 00 40 00 00 00 40 00 00  | @   @  |
00020fc8 00 40 00 00 00 40 00 00  | @   @  |
00020fd0 00 40 00 00 00 40 00 00  | @   @  |
00020fd8 00 40 00 00 00 40 00 00  | @   @  |
00020fe0 00 40 00 00 00 40 00 00  | @   @  |
00020fe8 00 40 00 00 00 40 00 00  | @   @  |
00020ff0 00 40 00 00 00 40 00 00  | @   @  |
00020ff8 00 40                    | @      |		.XXX[0x2]
00020ffa ; --------------------------------------------------------------------------------------
00020ffa ; OMSI PASCAL Function
00020ffa ;    <LVAR  0x008 1(r)>
00020ffa ; --------------------------------------------------------------------------------------
00020ffa					PROG_FAIL:
00020ffa 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020ffe bf d5                    |        |		CMPA.L	(A5),A7
00021000 62 06                    |b       |		BHI	0x21008
00021002 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021006 4e 76                    |Nv      |		TRAPV
00021008 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002100c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021010 41 fa f1 06              |A       |		LEA.L	0x20118,A0
00021014 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021016 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021018 51 c8 ff fc              |Q       |		DBF	D0,0x21016
0002101c 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021020 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021022 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021026 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002102a 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002102e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021034 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021036 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002103a 48 80                    |H       |		EXTB.W	D0
0002103c 48 c0                    |H       |		EXTW.L	D0
0002103e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021040 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021046 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021048 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002104e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021050 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021056 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002105a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002105e 4e 5e                    |N^      |		UNLK	A6
00021060 4e 75                    |Nu      |		RTS
00021062 ; --------------------------------------------------------------------------------------
00021062 ; OMSI PASCAL Function
00021062 ;    <LVAR  0x00e 1(r)>
00021062 ;    <LVAR  0x00a 4(r)>
00021062 ;    <LVAR  0x008 1(r)>
00021062 ; --------------------------------------------------------------------------------------
00021062					EXP_FAIL:
00021062 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00021066 bf d5                    |        |		CMPA.L	(A5),A7
00021068 62 06                    |b       |		BHI	0x21070
0002106a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002106e 4e 76                    |Nv      |		TRAPV
00021070 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021074 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021078 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002107e 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021084 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021086 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00021088 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002108a 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002108c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002108e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021094 41 fa f0 be              |A       |		LEA.L	0x20154,A0
00021098 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002109a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002109c 51 c8 ff fc              |Q       |		DBF	D0,0x2109a
000210a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210a8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000210aa 4e 93                    |N       |		JSR	(A3)
000210ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210ae 4e 94                    |N       |		JSR	(A4)
000210b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210b2 20 4f                    | O      |		MOVEA.L	A7,A0
000210b4 43 fa f0 62              |C  b    |		LEA.L	0x20118,A1
000210b8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000210ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210bc 51 c8 ff fc              |Q       |		DBF	D0,0x210ba
000210c0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000210c2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000210c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210c8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210ca 4e 93                    |N       |		JSR	(A3)
000210cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210ce 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000210d2 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000210d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210da 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000210e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210e2 4e 94                    |N       |		JSR	(A4)
000210e4 de c4                    |        |		ADDA.W	D4,A7
000210e6 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000210ea b0 c1                    |        |		CMPA.W	D1,A0
000210ec 67 48                    |gH      |		BEQ	0x21136
000210ee 9e c5                    |        |		SUBA.W	D5,A7
000210f0 22 4f                    |"O      |		MOVEA.L	A7,A1
000210f2 45 fa f0 32              |E  2    |		LEA.L	0x20126,A2
000210f6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000210f8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000210fa 51 c8 ff fc              |Q       |		DBF	D0,0x210f8
000210fe 9e c3                    |        |		SUBA.W	D3,A7
00021100 22 4f                    |"O      |		MOVEA.L	A7,A1
00021102 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021106 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021108 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002110a 51 c8 ff fc              |Q       |		DBF	D0,0x21108
0002110e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021110 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021114 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021116 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021118 4e 93                    |N       |		JSR	(A3)
0002111a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002111c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021120 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021122 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021124 4e 93                    |N       |		JSR	(A3)
00021126 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021128 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002112e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021130 4e 94                    |N       |		JSR	(A4)
00021132 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021136 9e c5                    |        |		SUBA.W	D5,A7
00021138 20 4f                    | O      |		MOVEA.L	A7,A0
0002113a 43 fa ef f8              |C       |		LEA.L	0x20134,A1
0002113e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021140 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021142 51 c8 ff fc              |Q       |		DBF	D0,0x21140
00021146 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021148 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002114c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002114e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021150 4e 93                    |N       |		JSR	(A3)
00021152 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021154 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021158 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002115e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021160 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021166 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021168 4e 94                    |N       |		JSR	(A4)
0002116a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002116c 20 4f                    | O      |		MOVEA.L	A7,A0
0002116e 43 fa ef e4              |C       |		LEA.L	0x20154,A1
00021172 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021174 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021176 51 c8 ff fc              |Q       |		DBF	D0,0x21174
0002117a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002117e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021180 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021184 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021186 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002118a 4e 93                    |N       |		JSR	(A3)
0002118c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002118e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021194 de c3                    |        |		ADDA.W	D3,A7
00021196 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002119a 4e 5e                    |N^      |		UNLK	A6
0002119c 4e 75                    |Nu      |		RTS
0002119e ; --------------------------------------------------------------------------------------
0002119e ; OMSI PASCAL Function
0002119e ;    <LVAR  0x00c 4(r)>
0002119e ;    <LVAR  0x008 4(r)>
0002119e ; --------------------------------------------------------------------------------------
0002119e 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8		; Spelunked
000211a2 bf d5                    |        |		CMPA.L	(A5),A7
000211a4 62 06                    |b       |		BHI	0x211ac
000211a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211aa 4e 76                    |Nv      |		TRAPV
000211ac de fc 00 14              |        |		ADDA.W	#0x14,A7
000211b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211b2 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000211b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211b8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000211bc 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000211c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211c4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000211ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211cc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000211d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211d4 4e 5e                    |N^      |		UNLK	A6
000211d6 4e 75                    |Nu      |		RTS
000211d8 ; --------------------------------------------------------------------------------------
000211d8 ; OMSI PASCAL Function
000211d8 ;    <LVAR  0x010 4(w)>
000211d8 ;    <LVAR  0x00c 4(r)>
000211d8 ;    <LVAR  0x008 4(r)>
000211d8 ; --------------------------------------------------------------------------------------
000211d8 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
000211dc bf d5                    |        |		CMPA.L	(A5),A7
000211de 62 06                    |b       |		BHI	0x211e6
000211e0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211e4 4e 76                    |Nv      |		TRAPV
000211e6 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
000211ea 48 e7 fb f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
000211ee 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000211f2 47 f9 00 01 03 d8        |G       |		LEA.L	WriteConsoleString(str : String),A3
000211f8 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
000211fa 76 01                    |v       |		MOVEQ.L	#0x01,D3
000211fc 78 22                    |x"      |		MOVEQ.L	#0x22,D4
000211fe 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021202 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021204 30 10                    |0       |		MOVE.W	(A0),D0
00021206 48 c0                    |H       |		EXTW.L	D0
00021208 b0 92                    |        |		CMP.L	(A2),D0
0002120a 6f 60                    |o`      |		BLE	0x2126c
0002120c 43 fa ef f8              |C       |		LEA.L	0x20206,A1
00021210 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021212 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00021214 51 c8 ff fc              |Q       |		DBF	D0,0x21212
00021218 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002121a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002121e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021220 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021222 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021228 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002122a 4e 93                    |N       |		JSR	(A3)
0002122c de c4                    |        |		ADDA.W	D4,A7
0002122e 30 10                    |0       |		MOVE.W	(A0),D0
00021230 48 c0                    |H       |		EXTW.L	D0
00021232 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021234 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002123a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002123c 4e 93                    |N       |		JSR	(A3)
0002123e 2e ba ef ca              |.       |		MOVE.L	0x2020a,(A7)
00021242 2f 3a ef c2              |/:      |		MOVE.L	0x20206,-(A7)
00021246 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021248 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002124c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002124e 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021252 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021258 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002125a 4e 93                    |N       |		JSR	(A3)
0002125c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002125e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021260 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021266 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021268 4e 93                    |N       |		JSR	(A3)
0002126a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002126c 30 10                    |0       |		MOVE.W	(A0),D0
0002126e 48 c0                    |H       |		EXTW.L	D0
00021270 44 80                    |D       |		NEG.L	D0
00021272 d0 92                    |        |		ADD.L	(A2),D0
00021274 2c 00                    |,       |		MOVE.L	D0,D6
00021276 20 12                    |        |		MOVE.L	(A2),D0
00021278 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
0002127e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021284 63 02                    |c       |		BLS	0x21288
00021286 4e 4f                    |NO      |		TRAP	#15
00021288 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
0002128e 30 80                    |0       |		MOVE.W	D0,(A0)
00021290 2f 06                    |/       |		MOVE.L	D6,-(A7)
00021292 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00021294 2e 12                    |.       |		MOVE.L	(A2),D7
00021296 be 97                    |        |		CMP.L	(A7),D7
00021298 6d 24                    |m$      |		BLT	0x212be
0002129a 20 07                    |        |		MOVE.L	D7,D0
0002129c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002129e b0 82                    |        |		CMP.L	D2,D0
000212a0 63 02                    |c       |		BLS	0x212a4
000212a2 4e 4f                    |NO      |		TRAP	#15
000212a4 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000212a8 22 07                    |"       |		MOVE.L	D7,D1
000212aa 92 86                    |        |		SUB.L	D6,D1
000212ac 53 81                    |S       |		SUBQ.L	#0x1,D1
000212ae b2 82                    |        |		CMP.L	D2,D1
000212b0 63 02                    |c       |		BLS	0x212b4
000212b2 4e 4f                    |NO      |		TRAP	#15
000212b4 11 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A0+D0.L+#0x2)
000212ba 53 87                    |S       |		SUBQ.L	#0x1,D7
000212bc 68 d8                    |h       |		BVC	0x21296
000212be 2e 86                    |.       |		MOVE.L	D6,(A7)
000212c0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000212c2 be 97                    |        |		CMP.L	(A7),D7
000212c4 6e 18                    |n       |		BGT	0x212de
000212c6 20 07                    |        |		MOVE.L	D7,D0
000212c8 53 80                    |S       |		SUBQ.L	#0x1,D0
000212ca b0 82                    |        |		CMP.L	D2,D0
000212cc 63 02                    |c       |		BLS	0x212d0
000212ce 4e 4f                    |NO      |		TRAP	#15
000212d0 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000212d4 11 bc 00 30 08 02        |   0    |		MOVE.B	#0x30,(A0+D0.L+#0x2)
000212da 52 87                    |R       |		ADDQ.L	#0x1,D7
000212dc 68 e4                    |h       |		BVC	0x212c2
000212de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212e0 2d 6e 00 0c 00 10        |-n      |		MOVE.L	(A6+0xc),(A6+0x10)
000212e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212e8 4c df 0f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3
000212ec 4e 5e                    |N^      |		UNLK	A6
000212ee 4e 75                    |Nu      |		RTS
000212f0 ; --------------------------------------------------------------------------------------
000212f0 ; OMSI PASCAL Function
000212f0 ;    <LVAR  0x00c 4(r)>
000212f0 ;    <LVAR  0x00a 1(r)>
000212f0 ;    <LVAR  0x008 1(r)>
000212f0 ; --------------------------------------------------------------------------------------
000212f0 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6		; Spelunked
000212f4 bf d5                    |        |		CMPA.L	(A5),A7
000212f6 62 06                    |b       |		BHI	0x212fe
000212f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212fc 4e 76                    |Nv      |		TRAPV
000212fe de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021302 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021306 45 f9 00 01 03 d8        |E       |		LEA.L	WriteConsoleString(str : String),A2
0002130c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002130e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021312 4e 92                    |N       |		JSR	(A2)
00021314 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021316 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
0002131a 67 1e                    |g       |		BEQ	0x2133a
0002131c 2f 3a ee f0              |/:      |		MOVE.L	0x2020e,-(A7)
00021320 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021322 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021326 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021328 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002132c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021332 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021334 4e 92                    |N       |		JSR	(A2)
00021336 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021338 60 2a                    |`*      |		BRA	0x21364
0002133a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002133c 20 4f                    | O      |		MOVEA.L	A7,A0
0002133e 43 fa ee d2              |C       |		LEA.L	0x20212,A1
00021342 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021344 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021346 51 c8 ff fc              |Q       |		DBF	D0,0x21344
0002134a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002134c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021350 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021352 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00021356 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002135c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002135e 4e 92                    |N       |		JSR	(A2)
00021360 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021364 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021368 67 06                    |g       |		BEQ	0x21370
0002136a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021370 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021374 4e 5e                    |N^      |		UNLK	A6
00021376 4e 75                    |Nu      |		RTS
00021378 ; --------------------------------------------------------------------------------------
00021378 ; OMSI PASCAL Function
00021378 ;    <LVAR  0x00e 4(r)>
00021378 ;    <LVAR  0x00a 4(r)>
00021378 ;    <LVAR  0x008 1(r)>
00021378 ; --------------------------------------------------------------------------------------
00021378 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
0002137c bf d5                    |        |		CMPA.L	(A5),A7
0002137e 62 06                    |b       |		BHI	0x21386
00021380 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021384 4e 76                    |Nv      |		TRAPV
00021386 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002138a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002138c 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00021390 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021392 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00021396 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002139c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002139e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000213ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213ae 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000213b2 67 06                    |g       |		BEQ	0x213ba
000213b4 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000213ba 4e 5e                    |N^      |		UNLK	A6
000213bc 4e 75                    |Nu      |		RTS
000213be ; --------------------------------------------------------------------------------------
000213be ; OMSI PASCAL Function
000213be ;    <LVAR  0x012 4(r)>
000213be ;    <LVAR  0x00e 4(r)>
000213be ;    <LVAR  0x00a 4(r)>
000213be ;    <LVAR  0x008 1(r)>
000213be ; --------------------------------------------------------------------------------------
000213be 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000213c2 bf d5                    |        |		CMPA.L	(A5),A7
000213c4 62 06                    |b       |		BHI	0x213cc
000213c6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213ca 4e 76                    |Nv      |		TRAPV
000213cc de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000213d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213d2 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000213d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213d8 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
000213dc 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
000213e0 48 78 00 10              |Hx      |		PEA.L	0x10
000213e4 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
000213ea de fc 00 0c              |        |		ADDA.W	#0xc,A7
000213ee 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213f6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000213fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213fe 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021402 67 06                    |g       |		BEQ	0x2140a
00021404 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002140a 4e 5e                    |N^      |		UNLK	A6
0002140c 4e 75                    |Nu      |		RTS
0002140e ; --------------------------------------------------------------------------------------
0002140e ; OMSI PASCAL Function
0002140e ;    <LVAR  0x016 4(r)>
0002140e ;    <LVAR  0x012 4(r)>
0002140e ;    <LVAR  0x00e 4(r)>
0002140e ;    <LVAR  0x00a 4(r)>
0002140e ;    <LVAR  0x008 1(r)>
0002140e ; --------------------------------------------------------------------------------------
0002140e 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00021412 bf d5                    |        |		CMPA.L	(A5),A7
00021414 62 06                    |b       |		BHI	0x2141c
00021416 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002141a 4e 76                    |Nv      |		TRAPV
0002141c de fc 00 20              |        |		ADDA.W	#0x20,A7
00021420 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021422 2f 2e 00 16              |/.      |		MOVE.L	(A6+0x16),-(A7)
00021426 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021428 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
0002142c 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00021430 48 78 00 10              |Hx      |		PEA.L	0x10
00021434 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
0002143a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002143c 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
00021440 4e ba fd 96              |N       |		JSR	0x211d8
00021444 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021446 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002144c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002144e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021454 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021456 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002145a 67 06                    |g       |		BEQ	0x21462
0002145c 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021462 4e 5e                    |N^      |		UNLK	A6
00021464 4e 75                    |Nu      |		RTS
00021466 ; --------------------------------------------------------------------------------------
00021466 ; OMSI PASCAL Function
00021466 ;    <LVAR  0x00c 1(w)>
00021466 ;    <LVAR  0x008 4(r)>
00021466 ;    <LVAR -0x006 @ 4(rw)>
00021466 ; --------------------------------------------------------------------------------------
00021466 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
0002146a bf d5                    |        |		CMPA.L	(A5),A7
0002146c 62 06                    |b       |		BHI	0x21474
0002146e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021472 4e 76                    |Nv      |		TRAPV
00021474 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00021478 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0002147c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021480 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00021482 74 0b                    |t       |		MOVEQ.L	#0x0b,D2
00021484 76 01                    |v       |		MOVEQ.L	#0x01,D3
00021486 1d 42 00 0c              | B      |		MOVE.B	D2,(A6+0xc)
0002148a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002148c 10 07                    |        |		MOVE.B	D7,D0
0002148e 48 80                    |H       |		EXTB.W	D0
00021490 c1 c1                    |        |		MULS.W	D1,D0
00021492 41 fa f1 f4              |A       |		LEA.L	0x20688,A0
00021496 9e c1                    |        |		SUBA.W	D1,A7
00021498 22 4f                    |"O      |		MOVEA.L	A7,A1
0002149a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002149e 70 09                    |p       |		MOVEQ.L	#0x09,D0
000214a0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214a2 51 c8 ff fc              |Q       |		DBF	D0,0x214a0
000214a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214ac 3f 03                    |?       |		MOVE.W	D3,-(A7)
000214ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214b0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000214b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214b8 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000214ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214bc 2e 92                    |.       |		MOVE.L	(A2),(A7)
000214be 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000214c2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000214c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214ca 10 1f                    |        |		MOVE.B	(A7)+,D0
000214cc 48 80                    |H       |		EXTB.W	D0
000214ce 41 83                    |A       |		CHK.W	D3,D0
000214d0 1c 00                    |        |		MOVE.B	D0,D6
000214d2 48 52                    |HR      |		PEA.L	(A2)
000214d4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000214da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214dc 4a 06                    |J       |		TST.B	D6
000214de 67 06                    |g       |		BEQ	0x214e6
000214e0 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
000214e4 60 06                    |`       |		BRA	0x214ec
000214e6 52 07                    |R       |		ADDQ.B	#0x1,D7
000214e8 be 02                    |        |		CMP.B	D2,D7
000214ea 6f a0                    |o       |		BLE	0x2148c
000214ec 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
000214f0 4e 5e                    |N^      |		UNLK	A6
000214f2 4e 75                    |Nu      |		RTS
000214f4 ; --------------------------------------------------------------------------------------
000214f4 ; OMSI PASCAL Function
000214f4 ; --------------------------------------------------------------------------------------
000214f4 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
000214f8 bf d5                    |        |		CMPA.L	(A5),A7
000214fa 62 06                    |b       |		BHI	0x21502
000214fc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021500 4e 76                    |Nv      |		TRAPV
00021502 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021506 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
0002150a 43 f9 00 02 51 32        |C   Q2  |		LEA.L	0x25132,A1
00021510 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021512 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021514 1f 07                    |        |		MOVE.B	D7,-(A7)
00021516 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002151c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002151e 4a 1f                    |J       |		TST.B	(A7)+
00021520 67 24                    |g$      |		BEQ	0x21546
00021522 10 07                    |        |		MOVE.B	D7,D0
00021524 48 80                    |H       |		EXTB.W	D0
00021526 32 00                    |2       |		MOVE.W	D0,D1
00021528 04 41 00 0c              | A      |		SUBI.W	#0x000c,D1
0002152c 43 bc 00 03              |C       |		CHK.W	#0x3,D1
00021530 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00021536 11 bc 00 01 10 13        |        |		MOVE.B	#0x01,(A0+D1.W+#0x13)
0002153c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002153e 4e b9 00 02 50 70        |N   Pp  |		JSR	0x25070
00021544 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021546 52 07                    |R       |		ADDQ.B	#0x1,D7
00021548 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
0002154c 6f c4                    |o       |		BLE	0x21512
0002154e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021550 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021556 4a 1f                    |J       |		TST.B	(A7)+
00021558 67 06                    |g       |		BEQ	0x21560
0002155a 32 bc 00 04              |2       |		MOVE.W	#0x4,(A1)
0002155e 60 04                    |`       |		BRA	0x21564
00021560 32 bc 00 08              |2       |		MOVE.W	#0x8,(A1)
00021564 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00021568 4e 5e                    |N^      |		UNLK	A6
0002156a 4e 75                    |Nu      |		RTS
0002156c ; --------------------------------------------------------------------------------------
0002156c ; OMSI PASCAL Function
0002156c ;    <LVAR  0x014 4(w)>
0002156c ;    <LVAR  0x010 4(w)>
0002156c ;    <LVAR  0x00c 4(r)>
0002156c ;    <LVAR  0x008 @ 4(r)>
0002156c ;    <LVAR -0x004 @ 1(r)>
0002156c ;    <LVAR -0x008 @ 4(rw)>
0002156c ; --------------------------------------------------------------------------------------
0002156c 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00021570 bf d5                    |        |		CMPA.L	(A5),A7
00021572 62 06                    |b       |		BHI	0x2157a
00021574 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021578 4e 76                    |Nv      |		TRAPV
0002157a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002157e 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021582 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00021586 48 50                    |HP      |		PEA.L	(A0)
00021588 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002158e 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00021592 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021594 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021598 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
0002159e de fc 00 0c              |        |		ADDA.W	#0xc,A7
000215a2 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000215a6 67 0e                    |g       |		BEQ	0x215b6
000215a8 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
000215ac 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000215b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215b4 60 16                    |`       |		BRA	0x215cc
000215b6 48 50                    |HP      |		PEA.L	(A0)
000215b8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000215be 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000215c2 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000215c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215ca 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000215cc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215ce 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000215d0 48 78 00 10              |Hx      |		PEA.L	0x10
000215d4 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
000215da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215dc 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
000215e0 2d 5f 00 14              |-_      |		MOVE.L	(A7)+,(A6+0x14)
000215e4 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000215e8 4e 5e                    |N^      |		UNLK	A6
000215ea 4e 75                    |Nu      |		RTS
000215ec ; --------------------------------------------------------------------------------------
000215ec ; OMSI PASCAL Function
000215ec ;    <LVAR  0x010 4(w)>
000215ec ;    <LVAR  0x00c 4(w)>
000215ec ;    <LVAR  0x008 4(r)>
000215ec ;    <LVAR -0x004 @ 1(r)>
000215ec ;    <LVAR -0x008 @ 4(r)>
000215ec ; --------------------------------------------------------------------------------------
000215ec 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000215f0 bf d5                    |        |		CMPA.L	(A5),A7
000215f2 62 06                    |b       |		BHI	0x215fa
000215f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000215f8 4e 76                    |Nv      |		TRAPV
000215fa de fc 00 18              |        |		ADDA.W	#0x18,A7
000215fe 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021602 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00021606 48 50                    |HP      |		PEA.L	(A0)
00021608 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002160e 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00021612 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021614 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021618 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
0002161e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021622 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021626 67 1a                    |g       |		BEQ	0x21642
00021628 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002162a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002162c 48 78 00 10              |Hx      |		PEA.L	0x10
00021630 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00021636 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021638 2d 5f 00 0c              |-_      |		MOVE.L	(A7)+,(A6+0xc)
0002163c 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00021640 60 16                    |`       |		BRA	0x21658
00021642 2d 7a f0 c4 00 0c        |-z      |		MOVE.L	0x20708,(A6+0xc)
00021648 2d 7a f0 c2 00 10        |-z      |		MOVE.L	0x2070c,(A6+0x10)
0002164e 48 50                    |HP      |		PEA.L	(A0)
00021650 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021656 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021658 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0002165c 4e 5e                    |N^      |		UNLK	A6
0002165e 4e 75                    |Nu      |		RTS
00021660 ; --------------------------------------------------------------------------------------
00021660 ; OMSI PASCAL Function
00021660 ;    <LVAR  0x018 4(w)>
00021660 ;    <LVAR  0x014 4(w)>
00021660 ;    <LVAR  0x010 4(r)>
00021660 ;    <LVAR  0x00c 4(r)>
00021660 ;    <LVAR  0x008 4(r)>
00021660 ;    <LVAR -0x004 4(rw)>
00021660 ;    <LVAR -0x008 4(rw)>
00021660 ; --------------------------------------------------------------------------------------
00021660 4e 56 ff b4              |NV      |		LINK.W	A6,#0xffb4
00021664 bf d5                    |        |		CMPA.L	(A5),A7
00021666 62 06                    |b       |		BHI	0x2166e
00021668 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002166c 4e 76                    |Nv      |		TRAPV
0002166e de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021672 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00021676 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
0002167a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002167e 22 ba f0 80              |"       |		MOVE.L	0x20700,(A1)
00021682 24 ba f0 80              |$       |		MOVE.L	0x20704,(A2)
00021686 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002168a 2e 2e 00 0c              |..      |		MOVE.L	(A6+0xc),D7
0002168e be 97                    |        |		CMP.L	(A7),D7
00021690 6e 56                    |nV      |		BGT	0x216e8
00021692 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021694 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021696 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021698 48 78 00 08              |Hx      |		PEA.L	0x8
0002169c 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
000216a2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000216a6 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000216a8 24 97                    |$       |		MOVE.L	(A7),(A2)
000216aa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216ae 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000216b0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216b2 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000216b6 20 07                    |        |		MOVE.L	D7,D0
000216b8 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
000216bc 6e 06                    |n       |		BGT	0x216c4
000216be 90 ae 00 0c              |        |		SUB.L	(A6+0xc),D0
000216c2 6c 02                    |l       |		BGE	0x216c6
000216c4 4e 4f                    |NO      |		TRAP	#15
000216c6 42 81                    |B       |		CLR.L	D1
000216c8 12 30 08 00              | 0      |		MOVE.B	(A0+D0.L),D1
000216cc 2f 01                    |/       |		MOVE.L	D1,-(A7)
000216ce 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
000216d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216d6 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
000216dc de fc 00 10              |        |		ADDA.W	#0x10,A7
000216e0 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000216e2 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000216e4 52 87                    |R       |		ADDQ.L	#0x1,D7
000216e6 68 a6                    |h       |		BVC	0x2168e
000216e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216ea 2d 51 00 14              |-Q      |		MOVE.L	(A1),(A6+0x14)
000216ee 2d 52 00 18              |-R      |		MOVE.L	(A2),(A6+0x18)
000216f2 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
000216f6 4e 5e                    |N^      |		UNLK	A6
000216f8 4e 75                    |Nu      |		RTS
000216fa ; --------------------------------------------------------------------------------------
000216fa ; OMSI PASCAL Function
000216fa ;    <LVAR  0x010 2(w)>
000216fa ;    <LVAR  0x00c 4(r)>
000216fa ;    <LVAR  0x008 4(r)>
000216fa ;    <LVAR -0x004 4(rw)>
000216fa ;    <LVAR -0x008 4(rw)>
000216fa ; --------------------------------------------------------------------------------------
000216fa 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
000216fe bf d5                    |        |		CMPA.L	(A5),A7
00021700 62 06                    |b       |		BHI	0x21708
00021702 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021706 4e 76                    |Nv      |		TRAPV
00021708 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0002170c 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
00021710 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
00021714 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021718 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002171a 74 10                    |t       |		MOVEQ.L	#0x10,D2
0002171c 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002171e 9e c1                    |        |		SUBA.W	D1,A7
00021720 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021722 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021724 2f 3a ef ee              |/:      |		MOVE.L	0x20714,-(A7)
00021728 2f 3a ef e6              |/:      |		MOVE.L	0x20710,-(A7)
0002172c 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021732 de c2                    |        |		ADDA.W	D2,A7
00021734 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
0002173a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002173c 20 1f                    |        |		MOVE.L	(A7)+,D0
0002173e 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021744 63 02                    |c       |		BLS	0x21748
00021746 4e 4f                    |NO      |		TRAP	#15
00021748 3d 40 00 10              |=@      |		MOVE.W	D0,(A6+0x10)
0002174c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002174e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021750 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021752 48 78 ff f8              |Hx      |		PEA.L	0xfffffff8
00021756 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
0002175c de c1                    |        |		ADDA.W	D1,A7
0002175e 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00021762 2d 57 ff fc              |-W      |		MOVE.L	(A7),(A6-0x4)
00021766 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021768 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
0002176c 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00021770 2f 3a ef 92              |/:      |		MOVE.L	0x20704,-(A7)
00021774 2f 3a ef 8a              |/:      |		MOVE.L	0x20700,-(A7)
00021778 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
0002177e de c2                    |        |		ADDA.W	D2,A7
00021780 4a 1f                    |J       |		TST.B	(A7)+
00021782 66 2e                    |f.      |		BNE	0x217b2
00021784 41 fa ea b4              |A       |		LEA.L	0x2023a,A0
00021788 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002178a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002178c 51 c8 ff fc              |Q       |		DBF	D0,0x2178a
00021790 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021792 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021796 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021798 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
0002179c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217a4 2e 91                    |.       |		MOVE.L	(A1),(A7)
000217a6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000217a8 1f 03                    |        |		MOVE.B	D3,-(A7)
000217aa 4e ba fc 12              |N       |		JSR	0x213be
000217ae de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000217b2 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
000217b6 4e 5e                    |N^      |		UNLK	A6
000217b8 4e 75                    |Nu      |		RTS
000217ba ; --------------------------------------------------------------------------------------
000217ba ; OMSI PASCAL Function
000217ba ;    <LVAR  0x010 2(w)>
000217ba ;    <LVAR  0x00c 4(r)>
000217ba ;    <LVAR  0x008 4(r)>
000217ba ;    <LVAR -0x008 2(r)>
000217ba ;    <LVAR -0x00c 4(rw)>
000217ba ;    <LVAR -0x010 4(rw)>
000217ba ; --------------------------------------------------------------------------------------
000217ba 4e 56 ff 9c              |NV      |		LINK.W	A6,#0xff9c
000217be bf d5                    |        |		CMPA.L	(A5),A7
000217c0 62 06                    |b       |		BHI	0x217c8
000217c2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217c6 4e 76                    |Nv      |		TRAPV
000217c8 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000217cc 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000217d0 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000217d4 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000217d8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000217da 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
000217dc 76 10                    |v       |		MOVEQ.L	#0x10,D3
000217de 22 ae 00 08              |"       |		MOVE.L	(A6+0x8),(A1)
000217e2 24 ae 00 0c              |$       |		MOVE.L	(A6+0xc),(A2)
000217e6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000217e8 be 81                    |        |		CMP.L	D1,D7
000217ea 63 02                    |c       |		BLS	0x217ee
000217ec 4e 4f                    |NO      |		TRAP	#15
000217ee 9e c2                    |        |		SUBA.W	D2,A7
000217f0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000217f2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000217f4 2f 3a ef 1e              |/:      |		MOVE.L	0x20714,-(A7)
000217f8 2f 3a ef 16              |/:      |		MOVE.L	0x20710,-(A7)
000217fc 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021802 de c3                    |        |		ADDA.W	D3,A7
00021804 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
0002180a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002180c 20 1f                    |        |		MOVE.L	(A7)+,D0
0002180e 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021814 63 02                    |c       |		BLS	0x21818
00021816 4e 4f                    |NO      |		TRAP	#15
00021818 1d 80 78 f8              |  x     |		MOVE.B	D0,(A6+D7.L-#0x8)
0002181c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002181e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021820 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021822 48 78 ff f8              |Hx      |		PEA.L	0xfffffff8
00021826 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
0002182c de c2                    |        |		ADDA.W	D2,A7
0002182e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021830 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021832 53 87                    |S       |		SUBQ.L	#0x1,D7
00021834 6c b2                    |l       |		BGE	0x217e8
00021836 3d 6e ff f8 00 10        |=n      |		MOVE.W	(A6-0x8),(A6+0x10)
0002183c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002183e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021840 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021842 2f 3a ee c0              |/:      |		MOVE.L	0x20704,-(A7)
00021846 2f 3a ee b8              |/:      |		MOVE.L	0x20700,-(A7)
0002184a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021850 de c3                    |        |		ADDA.W	D3,A7
00021852 4a 1f                    |J       |		TST.B	(A7)+
00021854 66 32                    |f2      |		BNE	0x21888
00021856 41 fa ea 04              |A       |		LEA.L	0x2025c,A0
0002185a 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002185c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002185e 51 c8 ff fc              |Q       |		DBF	D0,0x2185c
00021862 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021864 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021868 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002186a 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
0002186e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021874 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021876 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
0002187a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002187e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021880 4e ba fb 3c              |N  <    |		JSR	0x213be
00021884 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021888 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
0002188c 4e 5e                    |N^      |		UNLK	A6
0002188e 4e 75                    |Nu      |		RTS
00021890 ; --------------------------------------------------------------------------------------
00021890 ; OMSI PASCAL Function
00021890 ;    <LVAR  0x010 4(w)>
00021890 ;    <LVAR  0x00c 4(r)>
00021890 ;    <LVAR  0x008 4(r)>
00021890 ;    <LVAR -0x008 4(r)>
00021890 ;    <LVAR -0x00c 4(rw)>
00021890 ;    <LVAR -0x010 4(rw)>
00021890 ; --------------------------------------------------------------------------------------
00021890 4e 56 ff 9c              |NV      |		LINK.W	A6,#0xff9c
00021894 bf d5                    |        |		CMPA.L	(A5),A7
00021896 62 06                    |b       |		BHI	0x2189e
00021898 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002189c 4e 76                    |Nv      |		TRAPV
0002189e de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000218a2 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000218a6 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000218aa 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000218ae 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000218b0 74 10                    |t       |		MOVEQ.L	#0x10,D2
000218b2 76 01                    |v       |		MOVEQ.L	#0x01,D3
000218b4 22 ae 00 08              |"       |		MOVE.L	(A6+0x8),(A1)
000218b8 24 ae 00 0c              |$       |		MOVE.L	(A6+0xc),(A2)
000218bc 7e 03                    |~       |		MOVEQ.L	#0x03,D7
000218be 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
000218c4 63 02                    |c       |		BLS	0x218c8
000218c6 4e 4f                    |NO      |		TRAP	#15
000218c8 9e c1                    |        |		SUBA.W	D1,A7
000218ca 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000218cc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000218ce 2f 3a ee 44              |/: D    |		MOVE.L	0x20714,-(A7)
000218d2 2f 3a ee 3c              |/: <    |		MOVE.L	0x20710,-(A7)
000218d6 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000218dc de c2                    |        |		ADDA.W	D2,A7
000218de 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000218e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218e6 20 1f                    |        |		MOVE.L	(A7)+,D0
000218e8 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000218ee 63 02                    |c       |		BLS	0x218f2
000218f0 4e 4f                    |NO      |		TRAP	#15
000218f2 1d 80 78 f8              |  x     |		MOVE.B	D0,(A6+D7.L-#0x8)
000218f6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000218f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000218fa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000218fc 48 78 ff f8              |Hx      |		PEA.L	0xfffffff8
00021900 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00021906 de c1                    |        |		ADDA.W	D1,A7
00021908 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0002190a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002190c 53 87                    |S       |		SUBQ.L	#0x1,D7
0002190e 6c ae                    |l       |		BGE	0x218be
00021910 2d 6e ff f8 00 10        |-n      |		MOVE.L	(A6-0x8),(A6+0x10)
00021916 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021918 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002191a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002191c 2f 3a ed e6              |/:      |		MOVE.L	0x20704,-(A7)
00021920 2f 3a ed de              |/:      |		MOVE.L	0x20700,-(A7)
00021924 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
0002192a de c2                    |        |		ADDA.W	D2,A7
0002192c 4a 1f                    |J       |		TST.B	(A7)+
0002192e 66 32                    |f2      |		BNE	0x21962
00021930 41 fa e9 4c              |A  L    |		LEA.L	0x2027e,A0
00021934 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021936 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021938 51 c8 ff fc              |Q       |		DBF	D0,0x21936
0002193c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002193e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021942 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021944 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00021948 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002194e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021950 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00021954 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021958 1f 03                    |        |		MOVE.B	D3,-(A7)
0002195a 4e ba fa 62              |N  b    |		JSR	0x213be
0002195e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021962 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
00021966 4e 5e                    |N^      |		UNLK	A6
00021968 4e 75                    |Nu      |		RTS
0002196a ; --------------------------------------------------------------------------------------
0002196a ; OMSI PASCAL Function
0002196a ;    <LVAR  0x014 4(w)>
0002196a ;    <LVAR  0x010 4(w)>
0002196a ;    <LVAR  0x00c 4(r)>
0002196a ;    <LVAR  0x008 4(r)>
0002196a ;    <LVAR -0x008 4(r)>
0002196a ;    <LVAR -0x00c 4(r)>
0002196a ;    <LVAR -0x010 4(rw)>
0002196a ;    <LVAR -0x014 4(rw)>
0002196a ; --------------------------------------------------------------------------------------
0002196a 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
0002196e bf d5                    |        |		CMPA.L	(A5),A7
00021970 62 06                    |b       |		BHI	0x21978
00021972 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021976 4e 76                    |Nv      |		TRAPV
00021978 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
0002197c 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00021980 43 ee ff ec              |C       |		LEA.L	(A6-0x14),A1
00021984 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
00021988 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002198a 74 10                    |t       |		MOVEQ.L	#0x10,D2
0002198c 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002198e 22 ae 00 08              |"       |		MOVE.L	(A6+0x8),(A1)
00021992 24 ae 00 0c              |$       |		MOVE.L	(A6+0xc),(A2)
00021996 7e 07                    |~       |		MOVEQ.L	#0x07,D7
00021998 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
0002199e 63 02                    |c       |		BLS	0x219a2
000219a0 4e 4f                    |NO      |		TRAP	#15
000219a2 9e c1                    |        |		SUBA.W	D1,A7
000219a4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000219a6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000219a8 2f 3a ed 6a              |/: j    |		MOVE.L	0x20714,-(A7)
000219ac 2f 3a ed 62              |/: b    |		MOVE.L	0x20710,-(A7)
000219b0 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000219b6 de c2                    |        |		ADDA.W	D2,A7
000219b8 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000219be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219c0 20 1f                    |        |		MOVE.L	(A7)+,D0
000219c2 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000219c8 63 02                    |c       |		BLS	0x219cc
000219ca 4e 4f                    |NO      |		TRAP	#15
000219cc 1d 80 78 f4              |  x     |		MOVE.B	D0,(A6+D7.L-#0xc)
000219d0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000219d2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000219d4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000219d6 48 78 ff f8              |Hx      |		PEA.L	0xfffffff8
000219da 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
000219e0 de c1                    |        |		ADDA.W	D1,A7
000219e2 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000219e4 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000219e6 53 87                    |S       |		SUBQ.L	#0x1,D7
000219e8 6c ae                    |l       |		BGE	0x21998
000219ea 2d 6e ff f4 00 10        |-n      |		MOVE.L	(A6-0xc),(A6+0x10)
000219f0 2d 6e ff f8 00 14        |-n      |		MOVE.L	(A6-0x8),(A6+0x14)
000219f6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000219f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000219fa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000219fc 2f 3a ed 06              |/:      |		MOVE.L	0x20704,-(A7)
00021a00 2f 3a ec fe              |/:      |		MOVE.L	0x20700,-(A7)
00021a04 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021a0a de c2                    |        |		ADDA.W	D2,A7
00021a0c 4a 1f                    |J       |		TST.B	(A7)+
00021a0e 66 32                    |f2      |		BNE	0x21a42
00021a10 41 fa e8 8e              |A       |		LEA.L	0x202a0,A0
00021a14 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021a16 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a18 51 c8 ff fc              |Q       |		DBF	D0,0x21a16
00021a1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a1e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a22 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021a24 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00021a28 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a30 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00021a34 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021a38 1f 03                    |        |		MOVE.B	D3,-(A7)
00021a3a 4e ba f9 82              |N       |		JSR	0x213be
00021a3e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021a42 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
00021a46 4e 5e                    |N^      |		UNLK	A6
00021a48 4e 75                    |Nu      |		RTS
00021a4a ; --------------------------------------------------------------------------------------
00021a4a ; OMSI PASCAL Function
00021a4a ;    <LVAR  0x010 1(w)>
00021a4a ;    <LVAR  0x00c 4(r)>
00021a4a ;    <LVAR  0x008 4(r)>
00021a4a ; --------------------------------------------------------------------------------------
00021a4a 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00021a4e bf d5                    |        |		CMPA.L	(A5),A7
00021a50 62 06                    |b       |		BHI	0x21a58
00021a52 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a56 4e 76                    |Nv      |		TRAPV
00021a58 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00021a5c 48 e7 f9 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021a60 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
00021a64 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00021a66 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00021a68 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00021a6a 78 01                    |x       |		MOVEQ.L	#0x01,D4
00021a6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a6e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021a72 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021a76 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00021a7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a7e 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00021a80 6d 0c                    |m       |		BLT	0x21a8e
00021a82 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00021a88 6e 04                    |n       |		BGT	0x21a8e
00021a8a 60 00 00 90              |`       |		BRA	0x21b1c
00021a8e 0c 87 00 00 00 04        |        |		CMPI.L	#0x00000004,D7
00021a94 6d 1e                    |m       |		BLT	0x21ab4
00021a96 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00021a9c 6e 16                    |n       |		BGT	0x21ab4
00021a9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021aa0 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021aa6 4a 1f                    |J       |		TST.B	(A7)+
00021aa8 67 06                    |g       |		BEQ	0x21ab0
00021aaa 14 bc 00 0d              |        |		MOVE.B	#0x0d,(A2)
00021aae 60 02                    |`       |		BRA	0x21ab2
00021ab0 14 81                    |        |		MOVE.B	D1,(A2)
00021ab2 60 6a                    |`j      |		BRA	0x21b1e
00021ab4 0c 87 00 00 00 08        |        |		CMPI.L	#0x00000008,D7
00021aba 6d 0c                    |m       |		BLT	0x21ac8
00021abc 0c 87 00 00 00 0b        |        |		CMPI.L	#0x0000000b,D7
00021ac2 6e 04                    |n       |		BGT	0x21ac8
00021ac4 14 82                    |        |		MOVE.B	D2,(A2)
00021ac6 60 56                    |`V      |		BRA	0x21b1e
00021ac8 be 81                    |        |		CMP.L	D1,D7
00021aca 6d 18                    |m       |		BLT	0x21ae4
00021acc be 83                    |        |		CMP.L	D3,D7
00021ace 6e 14                    |n       |		BGT	0x21ae4
00021ad0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ad2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021ad8 4a 1f                    |J       |		TST.B	(A7)+
00021ada 67 04                    |g       |		BEQ	0x21ae0
00021adc 14 83                    |        |		MOVE.B	D3,(A2)
00021ade 60 02                    |`       |		BRA	0x21ae2
00021ae0 14 82                    |        |		MOVE.B	D2,(A2)
00021ae2 60 3a                    |`:      |		BRA	0x21b1e
00021ae4 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
00021ae8 20 4f                    | O      |		MOVEA.L	A7,A0
00021aea 43 fa e7 b4              |C       |		LEA.L	0x202a0,A1
00021aee 70 24                    |p$      |		MOVEQ.L	#0x24,D0
00021af0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021af2 51 c8 ff fc              |Q       |		DBF	D0,0x21af0
00021af6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021afc 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021afe 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
00021b02 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b08 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b0a 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00021b0e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021b12 1f 04                    |        |		MOVE.B	D4,-(A7)
00021b14 4e ba f8 a8              |N       |		JSR	0x213be
00021b18 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021b1c 14 81                    |        |		MOVE.B	D1,(A2)
00021b1e 4c df 07 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00021b22 4e 5e                    |N^      |		UNLK	A6
00021b24 4e 75                    |Nu      |		RTS
00021b26 ; --------------------------------------------------------------------------------------
00021b26 ; OMSI PASCAL Function
00021b26 ;    <LVAR  0x010 1(w)>
00021b26 ;    <LVAR  0x00c 4(r)>
00021b26 ;    <LVAR  0x008 4(r)>
00021b26 ; --------------------------------------------------------------------------------------
00021b26 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00021b2a bf d5                    |        |		CMPA.L	(A5),A7
00021b2c 62 06                    |b       |		BHI	0x21b34
00021b2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b32 4e 76                    |Nv      |		TRAPV
00021b34 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021b38 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
00021b3c 72 10                    |r       |		MOVEQ.L	#0x10,D1
00021b3e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b40 2f 3a eb c2              |/:      |		MOVE.L	0x20704,-(A7)
00021b44 2f 3a eb ba              |/:      |		MOVE.L	0x20700,-(A7)
00021b48 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b4a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021b4e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021b52 48 78 00 33              |Hx 3    |		PEA.L	0x33
00021b56 48 78 00 06              |Hx      |		PEA.L	0x6
00021b5a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00021b60 de c1                    |        |		ADDA.W	D1,A7
00021b62 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021b68 de c1                    |        |		ADDA.W	D1,A7
00021b6a 10 1f                    |        |		MOVE.B	(A7)+,D0
00021b6c 48 80                    |H       |		EXTB.W	D0
00021b6e 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00021b72 1d 40 00 10              | @      |		MOVE.B	D0,(A6+0x10)
00021b76 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00021b7a 4e 5e                    |N^      |		UNLK	A6
00021b7c 4e 75                    |Nu      |		RTS
00021b7e ; --------------------------------------------------------------------------------------
00021b7e ; OMSI PASCAL Function
00021b7e ;    <LVAR  0x014 4(w)>
00021b7e ;    <LVAR  0x010 4(w)>
00021b7e ;    <LVAR  0x00c 4(r)>
00021b7e ;    <LVAR  0x008 4(r)>
00021b7e ;    <LVAR -0x010 4(rw)>
00021b7e ;    <LVAR -0x014 2(r) 4(rw)>
00021b7e ;    <LVAR -0x016 2(rw)>
00021b7e ;    <LVAR -0x018 4(rw)>
00021b7e ;    <LVAR -0x01c 4(rw)>
00021b7e ; --------------------------------------------------------------------------------------
00021b7e 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00021b82 bf d5                    |        |		CMPA.L	(A5),A7
00021b84 62 06                    |b       |		BHI	0x21b8c
00021b86 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b8a 4e 76                    |Nv      |		TRAPV
00021b8c de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00021b90 48 e7 df c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D4+D3+D1+D0,-(A7)
00021b94 41 ee ff ec              |A       |		LEA.L	(A6-0x14),A0
00021b98 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00021b9c 72 07                    |r       |		MOVEQ.L	#0x07,D1
00021b9e 20 ae 00 08              |        |		MOVE.L	(A6+0x8),(A0)
00021ba2 22 ae 00 0c              |"       |		MOVE.L	(A6+0xc),(A1)
00021ba6 2d 7a eb 58 ff e4        |-z X    |		MOVE.L	0x20700,(A6-0x1c)
00021bac 2d 7a eb 56 ff e8        |-z V    |		MOVE.L	0x20704,(A6-0x18)
00021bb2 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00021bb4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021bb6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021bb8 30 10                    |0       |		MOVE.W	(A0),D0
00021bba 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00021bbe 67 02                    |g       |		BEQ	0x21bc2
00021bc0 52 87                    |R       |		ADDQ.L	#0x1,D7
00021bc2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021bc4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021bc6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021bc8 48 78 00 01              |Hx      |		PEA.L	0x1
00021bcc 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00021bd2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021bd6 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021bd8 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021bda 52 86                    |R       |		ADDQ.L	#0x1,D6
00021bdc bc 81                    |        |		CMP.L	D1,D6
00021bde 6f d8                    |o       |		BLE	0x21bb8
00021be0 30 2e ff ea              |0.      |		MOVE.W	(A6-0x16),D0
00021be4 c0 fc 00 02              |        |		MULU.W	#0x2,D0
00021be8 28 07                    |(       |		MOVE.L	D7,D4
00021bea 76 02                    |v       |		MOVEQ.L	#0x02,D3
00021bec 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021bf2 d6 80                    |        |		ADD.L	D0,D3
00021bf4 0c 83 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D3
00021bfa 63 02                    |c       |		BLS	0x21bfe
00021bfc 4e 4f                    |NO      |		TRAP	#15
00021bfe 3d 43 ff ea              |=C      |		MOVE.W	D3,(A6-0x16)
00021c02 52 85                    |R       |		ADDQ.L	#0x1,D5
00021c04 ba 81                    |        |		CMP.L	D1,D5
00021c06 6f ac                    |o       |		BLE	0x21bb4
00021c08 2d 6e ff e4 00 10        |-n      |		MOVE.L	(A6-0x1c),(A6+0x10)
00021c0e 2d 6e ff e8 00 14        |-n      |		MOVE.L	(A6-0x18),(A6+0x14)
00021c14 4c df 03 fb              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D5+D6+D7+A0+A1
00021c18 4e 5e                    |N^      |		UNLK	A6
00021c1a 4e 75                    |Nu      |		RTS
00021c1c ; --------------------------------------------------------------------------------------
00021c1c ; OMSI PASCAL Function
00021c1c ;    <LVAR  0x014 4(w)>
00021c1c ;    <LVAR  0x010 4(w)>
00021c1c ;    <LVAR  0x00c 4(r)>
00021c1c ;    <LVAR  0x008 4(r)>
00021c1c ;    <LVAR -0x00c 4(rw)>
00021c1c ;    <LVAR -0x010 2(r) 4(rw)>
00021c1c ; --------------------------------------------------------------------------------------
00021c1c 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021c20 bf d5                    |        |		CMPA.L	(A5),A7
00021c22 62 06                    |b       |		BHI	0x21c2a
00021c24 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c28 4e 76                    |Nv      |		TRAPV
00021c2a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021c2e 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00021c32 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
00021c36 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00021c3a 20 ae 00 08              |        |		MOVE.L	(A6+0x8),(A0)
00021c3e 22 ae 00 0c              |"       |		MOVE.L	(A6+0xc),(A1)
00021c42 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021c44 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021c46 30 10                    |0       |		MOVE.W	(A0),D0
00021c48 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00021c4c 67 02                    |g       |		BEQ	0x21c50
00021c4e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021c50 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c52 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021c54 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021c56 48 78 00 01              |Hx      |		PEA.L	0x1
00021c5a 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00021c60 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021c64 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021c66 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021c68 52 86                    |R       |		ADDQ.L	#0x1,D6
00021c6a 0c 86 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D6
00021c70 6f d4                    |o       |		BLE	0x21c46
00021c72 08 07 00 00              |        |		BTST.L	#0x0,D7
00021c76 67 0e                    |g       |		BEQ	0x21c86
00021c78 2d 7a ea 8e 00 10        |-z      |		MOVE.L	0x20708,(A6+0x10)
00021c7e 2d 7a ea 8c 00 14        |-z      |		MOVE.L	0x2070c,(A6+0x14)
00021c84 60 0c                    |`       |		BRA	0x21c92
00021c86 2d 7a ea 78 00 10        |-z x    |		MOVE.L	0x20700,(A6+0x10)
00021c8c 2d 7a ea 76 00 14        |-z v    |		MOVE.L	0x20704,(A6+0x14)
00021c92 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00021c96 4e 5e                    |N^      |		UNLK	A6
00021c98 4e 75                    |Nu      |		RTS
00021c9a ; --------------------------------------------------------------------------------------
00021c9a ; OMSI PASCAL Function
00021c9a ;    <LVAR  0x02a 4(w)>
00021c9a ;    <LVAR  0x026 4(w)>
00021c9a ;    <LVAR  0x022 4(r)>
00021c9a ;    <LVAR  0x01e 4(r)>
00021c9a ;    <LVAR  0x01a 4(r)>
00021c9a ;    <LVAR  0x016 4(r)>
00021c9a ;    <LVAR  0x012 4(r)>
00021c9a ;    <LVAR  0x00e 4(r)>
00021c9a ;    <LVAR  0x00c 1(r)>
00021c9a ;    <LVAR  0x008 4(r)>
00021c9a ;    <LVAR -0x00a 4(rw)>
00021c9a ;    <LVAR -0x00e 4(rw)>
00021c9a ; --------------------------------------------------------------------------------------
00021c9a 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00021c9e bf d5                    |        |		CMPA.L	(A5),A7
00021ca0 62 06                    |b       |		BHI	0x21ca8
00021ca2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021ca6 4e 76                    |Nv      |		TRAPV
00021ca8 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00021cac 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00021cb0 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
00021cb4 49 ee ff f6              |I       |		LEA.L	(A6-0xa),A4
00021cb8 72 10                    |r       |		MOVEQ.L	#0x10,D1
00021cba 74 18                    |t       |		MOVEQ.L	#0x18,D2
00021cbc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021cc0 9e c1                    |        |		SUBA.W	D1,A7
00021cc2 22 4f                    |"O      |		MOVEA.L	A7,A1
00021cc4 24 48                    |$H      |		MOVEA.L	A0,A2
00021cc6 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021cc8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021cca 51 c8 ff fc              |Q       |		DBF	D0,0x21cc8
00021cce 48 78 00 01              |Hx      |		PEA.L	0x1
00021cd2 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00021cd8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021cdc 22 48                    |"H      |		MOVEA.L	A0,A1
00021cde 24 4f                    |$O      |		MOVEA.L	A7,A2
00021ce0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021ce2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021ce4 51 c8 ff fc              |Q       |		DBF	D0,0x21ce2
00021ce8 9e c2                    |        |		SUBA.W	D2,A7
00021cea 22 6e 00 22              |"n "    |		MOVEA.L	(A6+0x22),A1
00021cee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021cf0 24 4f                    |$O      |		MOVEA.L	A7,A2
00021cf2 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021cf4 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00021cf6 51 c8 ff fc              |Q       |		DBF	D0,0x21cf4
00021cfa 2f 2e 00 1a              |/.      |		MOVE.L	(A6+0x1a),-(A7)
00021cfe 2f 2e 00 16              |/.      |		MOVE.L	(A6+0x16),-(A7)
00021d02 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021d08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d0a 22 6e 00 1e              |"n      |		MOVEA.L	(A6+0x1e),A1
00021d0e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021d10 24 4f                    |$O      |		MOVEA.L	A7,A2
00021d12 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021d14 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00021d16 51 c8 ff fc              |Q       |		DBF	D0,0x21d14
00021d1a 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00021d1e 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00021d22 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021d28 de c1                    |        |		ADDA.W	D1,A7
00021d2a 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00021d30 de c1                    |        |		ADDA.W	D1,A7
00021d32 4e ba fe e8              |N       |		JSR	0x21c1c
00021d36 22 4f                    |"O      |		MOVEA.L	A7,A1
00021d38 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021d3a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021d3c 51 c8 ff fc              |Q       |		DBF	D0,0x21d3a
00021d40 48 78 00 3f              |Hx ?    |		PEA.L	0x3f
00021d44 48 78 00 01              |Hx      |		PEA.L	0x1
00021d48 4e b9 00 01 03 48        |N    H  |		JSR	?BitField_something_()
00021d4e de c2                    |        |		ADDA.W	D2,A7
00021d50 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021d52 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00021d54 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
00021d58 67 20                    |g       |		BEQ	0x21d7a
00021d5a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021d5c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00021d5e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021d60 2f 3a e9 aa              |/:      |		MOVE.L	0x2070c,-(A7)
00021d64 2f 3a e9 a2              |/:      |		MOVE.L	0x20708,-(A7)
00021d68 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00021d6e de c1                    |        |		ADDA.W	D1,A7
00021d70 2d 5f 00 26              |-_ &    |		MOVE.L	(A7)+,(A6+0x26)
00021d74 2d 5f 00 2a              |-_ *    |		MOVE.L	(A7)+,(A6+0x2a)
00021d78 60 08                    |`       |		BRA	0x21d82
00021d7a 2d 53 00 26              |-S &    |		MOVE.L	(A3),(A6+0x26)
00021d7e 2d 54 00 2a              |-T *    |		MOVE.L	(A4),(A6+0x2a)
00021d82 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00021d86 4e 5e                    |N^      |		UNLK	A6
00021d88 4e 75                    |Nu      |		RTS
00021d8a ; --------------------------------------------------------------------------------------
00021d8a ; OMSI PASCAL Function
00021d8a ;    <LVAR  0x01c 4(w)>
00021d8a ;    <LVAR  0x018 4(w)>
00021d8a ;    <LVAR  0x010 @>
00021d8a ;    <LVAR  0x008 @>
00021d8a ;    <LVAR -0x004 4(rw)>
00021d8a ;    <LVAR -0x008 @ 4(rw)>
00021d8a ; --------------------------------------------------------------------------------------
00021d8a 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
00021d8e bf d5                    |        |		CMPA.L	(A5),A7
00021d90 62 06                    |b       |		BHI	0x21d98
00021d92 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d96 4e 76                    |Nv      |		TRAPV
00021d98 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00021d9c 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00021da0 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00021da4 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021da8 22 ba e9 56              |"  V    |		MOVE.L	0x20700,(A1)
00021dac 24 ba e9 56              |$  V    |		MOVE.L	0x20704,(A2)
00021db0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021db2 20 07                    |        |		MOVE.L	D7,D0
00021db4 53 80                    |S       |		SUBQ.L	#0x1,D0
00021db6 0c 80 00 00 00 08        |        |		CMPI.L	#0x00000008,D0
00021dbc 63 02                    |c       |		BLS	0x21dc0
00021dbe 4e 4f                    |NO      |		TRAP	#15
00021dc0 22 00                    |"       |		MOVE.L	D0,D1
00021dc2 e7 81                    |        |		ASL.L	#0x3,D1
00021dc4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021dc6 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00021dca 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00021dce 41 fa e9 60              |A  `    |		LEA.L	0x20730,A0
00021dd2 2f 30 18 04              |/0      |		MOVE.L	(A0+D1.L+#0x4),-(A7)
00021dd6 2f 30 18 00              |/0      |		MOVE.L	(A0+D1.L),-(A7)
00021dda 41 fa e9 9c              |A       |		LEA.L	0x20778,A0
00021dde 2f 30 18 04              |/0      |		MOVE.L	(A0+D1.L+#0x4),-(A7)
00021de2 2f 30 18 00              |/0      |		MOVE.L	(A0+D1.L),-(A7)
00021de6 41 fa e9 d8              |A       |		LEA.L	0x207c0,A0
00021dea 1f 30 08 00              | 0      |		MOVE.B	(A0+D0.L),-(A7)
00021dee 48 51                    |HQ      |		PEA.L	(A1)
00021df0 4e ba fe a8              |N       |		JSR	0x21c9a
00021df4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021df8 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021dfa 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021dfc 52 87                    |R       |		ADDQ.L	#0x1,D7
00021dfe 0c 87 00 00 00 09        |        |		CMPI.L	#0x00000009,D7
00021e04 6f ac                    |o       |		BLE	0x21db2
00021e06 2d 51 00 18              |-Q      |		MOVE.L	(A1),(A6+0x18)
00021e0a 2d 52 00 1c              |-R      |		MOVE.L	(A2),(A6+0x1c)
00021e0e 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00021e12 4e 5e                    |N^      |		UNLK	A6
00021e14 4e 75                    |Nu      |		RTS
00021e16 ; --------------------------------------------------------------------------------------
00021e16 ; OMSI PASCAL Function
00021e16 ;    <LVAR  0x00c 4(r)>
00021e16 ;    <LVAR  0x008 4(r)>
00021e16 ; --------------------------------------------------------------------------------------
00021e16 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
00021e1a bf d5                    |        |		CMPA.L	(A5),A7
00021e1c 62 06                    |b       |		BHI	0x21e24
00021e1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e22 4e 76                    |Nv      |		TRAPV
00021e24 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00021e28 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021e2c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021e32 47 f9 00 01 03 d8        |G       |		LEA.L	WriteConsoleString(str : String),A3
00021e38 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021e3e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021e40 74 08                    |t       |		MOVEQ.L	#0x08,D2
00021e42 76 c0                    |v       |		MOVEQ.L	#-0x40,D3
00021e44 78 14                    |x       |		MOVEQ.L	#0x14,D4
00021e46 7a 07                    |z       |		MOVEQ.L	#0x07,D5
00021e48 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00021e4a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e4c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021e50 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021e54 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00021e5a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e5c 20 1f                    |        |		MOVE.L	(A7)+,D0
00021e5e 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021e64 63 02                    |c       |		BLS	0x21e68
00021e66 4e 4f                    |NO      |		TRAP	#15
00021e68 e5 80                    |        |		ASL.L	#0x2,D0
00021e6a 41 fa e9 8e              |A       |		LEA.L	0x207fa,A0
00021e6e 2e 30 08 00              |.0      |		MOVE.L	(A0+D0.L),D7
00021e72 6d 42                    |mB      |		BLT	0x21eb6
00021e74 0c 87 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D7
00021e7a 6e 3a                    |n:      |		BGT	0x21eb6
00021e7c 2f 3a e4 4c              |/: L    |		MOVE.L	0x202ca,-(A7)
00021e80 2f 3a e4 44              |/: D    |		MOVE.L	0x202c6,-(A7)
00021e84 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e86 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e8a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e8c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021e8e 4e 92                    |N       |		JSR	(A2)
00021e90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e92 4e 93                    |N       |		JSR	(A3)
00021e94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e96 2e 87                    |.       |		MOVE.L	D7,(A7)
00021e98 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021e9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ea0 4e 93                    |N       |		JSR	(A3)
00021ea2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ea4 20 4f                    | O      |		MOVEA.L	A7,A0
00021ea6 43 fa e4 26              |C  &    |		LEA.L	0x202ce,A1
00021eaa 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021eac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021eae 51 c8 ff fc              |Q       |		DBF	D0,0x21eac
00021eb2 60 00 00 ea              |`       |		BRA	0x21f9e
00021eb6 be 83                    |        |		CMP.L	D3,D7
00021eb8 6d 00 00 82              |m       |		BLT	0x21f3c
00021ebc 0c 87 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D7
00021ec2 6e 78                    |nx      |		BGT	0x21f3c
00021ec4 be 83                    |        |		CMP.L	D3,D7
00021ec6 66 26                    |f&      |		BNE	0x21eee
00021ec8 2f 3a e4 18              |/:      |		MOVE.L	0x202e2,-(A7)
00021ecc 2f 3a e4 10              |/:      |		MOVE.L	0x202de,-(A7)
00021ed0 2f 3a e4 08              |/:      |		MOVE.L	0x202da,-(A7)
00021ed4 2f 3a e4 00              |/:      |		MOVE.L	0x202d6,-(A7)
00021ed8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021eda 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ede 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ee0 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00021ee4 4e 92                    |N       |		JSR	(A2)
00021ee6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ee8 4e 94                    |N       |		JSR	(A4)
00021eea de c4                    |        |		ADDA.W	D4,A7
00021eec 60 4c                    |`L      |		BRA	0x21f3a
00021eee 2f 3a e3 fa              |/:      |		MOVE.L	0x202ea,-(A7)
00021ef2 2f 3a e3 f2              |/:      |		MOVE.L	0x202e6,-(A7)
00021ef6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ef8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021efc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021efe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021f00 4e 92                    |N       |		JSR	(A2)
00021f02 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f04 4e 93                    |N       |		JSR	(A3)
00021f06 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f08 48 78 00 00              |Hx      |		PEA.L	0x0
00021f0c 9f 97                    |        |		SUB.L	D7,(A7)
00021f0e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021f14 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f16 4e 93                    |N       |		JSR	(A3)
00021f18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f1a 20 4f                    | O      |		MOVEA.L	A7,A0
00021f1c 43 fa e3 d0              |C       |		LEA.L	0x202ee,A1
00021f20 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f22 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f24 51 c8 ff fc              |Q       |		DBF	D0,0x21f22
00021f28 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f2a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f2e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f30 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021f32 4e 92                    |N       |		JSR	(A2)
00021f34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f36 4e 94                    |N       |		JSR	(A4)
00021f38 de c6                    |        |		ADDA.W	D6,A7
00021f3a 60 74                    |`t      |		BRA	0x21fb0
00021f3c 0c 87 00 00 00 40        |     @  |		CMPI.L	#0x00000040,D7
00021f42 66 22                    |f"      |		BNE	0x21f66
00021f44 41 fa e3 c4              |A       |		LEA.L	0x2030a,A0
00021f48 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021f4a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021f4c 51 c8 ff fc              |Q       |		DBF	D0,0x21f4a
00021f50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f58 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021f5a 4e 92                    |N       |		JSR	(A2)
00021f5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f5e 4e 94                    |N       |		JSR	(A4)
00021f60 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021f64 60 4a                    |`J      |		BRA	0x21fb0
00021f66 2f 3a e3 a2              |/:      |		MOVE.L	0x2030a,-(A7)
00021f6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f6c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f72 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021f76 4e 92                    |N       |		JSR	(A2)
00021f78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f7a 4e 93                    |N       |		JSR	(A3)
00021f7c 2e 87                    |.       |		MOVE.L	D7,(A7)
00021f7e 04 97 00 00 00 46        |     F  |		SUBI.L	#0x00000046,(A7)
00021f84 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021f8a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f8c 4e 93                    |N       |		JSR	(A3)
00021f8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f90 20 4f                    | O      |		MOVEA.L	A7,A0
00021f92 43 fa e3 7a              |C  z    |		LEA.L	0x2030e,A1
00021f96 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f98 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f9a 51 c8 ff fc              |Q       |		DBF	D0,0x21f98
00021f9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fa0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fa4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fa6 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021fa8 4e 92                    |N       |		JSR	(A2)
00021faa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fac 4e 94                    |N       |		JSR	(A4)
00021fae de c6                    |        |		ADDA.W	D6,A7
00021fb0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021fb4 4e 5e                    |N^      |		UNLK	A6
00021fb6 4e 75                    |Nu      |		RTS
00021fb8 ; --------------------------------------------------------------------------------------
00021fb8 ; OMSI PASCAL Function
00021fb8 ;    <LVAR  0x019 @>
00021fb8 ;    <LVAR  0x010 @>
00021fb8 ;    <LVAR  0x008 @>
00021fb8 ; --------------------------------------------------------------------------------------
00021fb8 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
00021fbc bf d5                    |        |		CMPA.L	(A5),A7
00021fbe 62 06                    |b       |		BHI	0x21fc6
00021fc0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021fc4 4e 76                    |Nv      |		TRAPV
00021fc6 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00021fca 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021fce 45 f8 00 00              |E       |		LEA.L	0x0,A2
00021fd2 47 fa f6 8c              |G       |		LEA.L	0x21660,A3
00021fd6 49 f8 00 07              |I       |		LEA.L	0x7,A4
00021fda 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00021fdc 74 12                    |t       |		MOVEQ.L	#0x12,D2
00021fde 76 10                    |v       |		MOVEQ.L	#0x10,D3
00021fe0 9e c2                    |        |		SUBA.W	D2,A7
00021fe2 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00021fe6 48 52                    |HR      |		PEA.L	(A2)
00021fe8 48 54                    |HT      |		PEA.L	(A4)
00021fea 4e 93                    |N       |		JSR	(A3)
00021fec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fee 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00021ff2 48 52                    |HR      |		PEA.L	(A2)
00021ff4 48 54                    |HT      |		PEA.L	(A4)
00021ff6 4e 93                    |N       |		JSR	(A3)
00021ff8 de c1                    |        |		ADDA.W	D1,A7
00021ffa 4e ba fd 8e              |N       |		JSR	0x21d8a
00021ffe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022000 48 6e 00 19              |Hn      |		PEA.L	(A6+0x19)
00022004 48 52                    |HR      |		PEA.L	(A2)
00022006 48 78 00 01              |Hx      |		PEA.L	0x1
0002200a 4e 93                    |N       |		JSR	(A3)
0002200c de c1                    |        |		ADDA.W	D1,A7
0002200e 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022014 de c3                    |        |		ADDA.W	D3,A7
00022016 4a 1f                    |J       |		TST.B	(A7)+
00022018 66 70                    |fp      |		BNE	0x2208a
0002201a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022020 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
00022024 20 4f                    | O      |		MOVEA.L	A7,A0
00022026 43 fa e2 ee              |C       |		LEA.L	0x20316,A1
0002202a 70 24                    |p$      |		MOVEQ.L	#0x24,D0
0002202c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002202e 51 c8 ff fc              |Q       |		DBF	D0,0x2202c
00022032 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022034 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022038 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002203c 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
00022040 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022046 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022048 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002204e de c2                    |        |		ADDA.W	D2,A7
00022050 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022054 48 52                    |HR      |		PEA.L	(A2)
00022056 48 54                    |HT      |		PEA.L	(A4)
00022058 4e 93                    |N       |		JSR	(A3)
0002205a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002205c 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00022060 48 52                    |HR      |		PEA.L	(A2)
00022062 48 54                    |HT      |		PEA.L	(A4)
00022064 4e 93                    |N       |		JSR	(A3)
00022066 de c1                    |        |		ADDA.W	D1,A7
00022068 4e ba fd 20              |N       |		JSR	0x21d8a
0002206c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002206e 48 6e 00 19              |Hn      |		PEA.L	(A6+0x19)
00022072 48 52                    |HR      |		PEA.L	(A2)
00022074 48 78 00 01              |Hx      |		PEA.L	0x1
00022078 4e 93                    |N       |		JSR	(A3)
0002207a de c1                    |        |		ADDA.W	D1,A7
0002207c 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00022082 de c3                    |        |		ADDA.W	D3,A7
00022084 4e ba fd 90              |N       |		JSR	0x21e16
00022088 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002208a 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
0002208e 4e 5e                    |N^      |		UNLK	A6
00022090 4e 75                    |Nu      |		RTS
00022092 ; --------------------------------------------------------------------------------------
00022092 ; OMSI PASCAL Function
00022092 ;    <LVAR  0x014 4(r)>
00022092 ;    <LVAR  0x010 4(r)>
00022092 ;    <LVAR  0x00c 4(r)>
00022092 ;    <LVAR  0x008 4(r)>
00022092 ; --------------------------------------------------------------------------------------
00022092 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00022096 bf d5                    |        |		CMPA.L	(A5),A7
00022098 62 06                    |b       |		BHI	0x220a0
0002209a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002209e 4e 76                    |Nv      |		TRAPV
000220a0 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000220a4 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
000220a8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000220aa 74 22                    |t"      |		MOVEQ.L	#0x22,D2
000220ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220ae 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000220b2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000220b6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000220b8 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
000220bc 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000220c0 4e ba fa bc              |N       |		JSR	0x21b7e
000220c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220c6 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
000220cc de fc 00 10              |        |		ADDA.W	#0x10,A7
000220d0 4a 1f                    |J       |		TST.B	(A7)+
000220d2 66 68                    |fh      |		BNE	0x2213c
000220d4 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000220da 41 fa e2 82              |A       |		LEA.L	0x2035e,A0
000220de 70 10                    |p       |		MOVEQ.L	#0x10,D0
000220e0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000220e2 51 c8 ff fc              |Q       |		DBF	D0,0x220e0
000220e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220e8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220ee 3f 02                    |?       |		MOVE.W	D2,-(A7)
000220f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000220f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220f8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000220fe de fc 00 16              |        |		ADDA.W	#0x16,A7
00022102 20 4f                    | O      |		MOVEA.L	A7,A0
00022104 43 fa e2 58              |C  X    |		LEA.L	0x2035e,A1
00022108 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002210a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002210c 51 c8 ff fc              |Q       |		DBF	D0,0x2210a
00022110 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022112 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022116 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022118 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002211c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022122 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00022126 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002212a 4e ba fa 52              |N  R    |		JSR	0x21b7e
0002212e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022130 48 78 00 02              |Hx      |		PEA.L	0x2
00022134 1f 01                    |        |		MOVE.B	D1,-(A7)
00022136 4e ba f2 d6              |N       |		JSR	0x2140e
0002213a de c2                    |        |		ADDA.W	D2,A7
0002213c 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
00022140 4e 5e                    |N^      |		UNLK	A6
00022142 4e 75                    |Nu      |		RTS
00022144 ; --------------------------------------------------------------------------------------
00022144 ; OMSI PASCAL Function
00022144 ;    <LVAR  0x024 4(w)>
00022144 ;    <LVAR  0x020 4(w)>
00022144 ;    <LVAR  0x01c 4(r)>
00022144 ;    <LVAR  0x018 4(r)>
00022144 ;    <LVAR  0x014 4(r)>
00022144 ;    <LVAR  0x010 4(r)>
00022144 ;    <LVAR  0x00c 4(r)>
00022144 ;    <LVAR  0x008 4(r)>
00022144 ;    <LVAR -0x020 4(w)>
00022144 ;    <LVAR -0x034 4(rw)>
00022144 ;    <LVAR -0x038 4(rw)>
00022144 ;    <LVAR -0x03c 4(rw)>
00022144 ;    <LVAR -0x040 4(rw)>
00022144 ;    <LVAR -0x044 4(rw)>
00022144 ;    <LVAR -0x048 4(rw)>
00022144 ; --------------------------------------------------------------------------------------
00022144 4e 56 ff 54              |NV T    |		LINK.W	A6,#0xff54
00022148 bf d5                    |        |		CMPA.L	(A5),A7
0002214a 62 06                    |b       |		BHI	0x22152
0002214c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022150 4e 76                    |Nv      |		TRAPV
00022152 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00022156 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
0002215a 43 ee ff b8              |C       |		LEA.L	(A6-0x48),A1
0002215e 45 ee ff bc              |E       |		LEA.L	(A6-0x44),A2
00022162 47 f8 00 01              |G       |		LEA.L	0x1,A3
00022166 49 f9 00 01 03 4c        |I    L  |		LEA.L	FSCALL_1034c,A4
0002216c 72 10                    |r       |		MOVEQ.L	#0x10,D1
0002216e 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022170 76 0b                    |v       |		MOVEQ.L	#0x0b,D3
00022172 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022174 48 78 07 ff              |Hx      |		PEA.L	0x7ff
00022178 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
0002217e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022180 2d 5f ff c8              |-_      |		MOVE.L	(A7)+,(A6-0x38)
00022184 2d 5f ff cc              |-_      |		MOVE.L	(A7)+,(A6-0x34)
00022188 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002218a be 83                    |        |		CMP.L	D3,D7
0002218c 63 02                    |c       |		BLS	0x22190
0002218e 4e 4f                    |NO      |		TRAP	#15
00022190 20 07                    |        |		MOVE.L	D7,D0
00022192 e5 80                    |        |		ASL.L	#0x2,D0
00022194 41 fa e6 34              |A  4    |		LEA.L	0x207ca,A0
00022198 2d b0 08 00 08 d0        |-       |		MOVE.L	(A0+D0.L),(A6+D0.L-#0x30)
0002219e 52 87                    |R       |		ADDQ.L	#0x1,D7
000221a0 be 83                    |        |		CMP.L	D3,D7
000221a2 6f e6                    |o       |		BLE	0x2218a
000221a4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000221a6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000221ac 4a 1f                    |J       |		TST.B	(A7)+
000221ae 67 08                    |g       |		BEQ	0x221b8
000221b0 2d 7c 00 00 00 31 ff e0  |-|   1  |		MOVE.L	#0x31,(A6-0x20)
000221b8 22 ba e5 46              |"  F    |		MOVE.L	0x20700,(A1)
000221bc 24 ba e5 46              |$  F    |		MOVE.L	0x20704,(A2)
000221c0 2d 7a e5 3e ff c0        |-z >    |		MOVE.L	0x20700,(A6-0x40)
000221c6 2d 7a e5 3c ff c4        |-z <    |		MOVE.L	0x20704,(A6-0x3c)
000221cc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000221ce 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000221d0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000221d2 9e c1                    |        |		SUBA.W	D1,A7
000221d4 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
000221d8 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
000221dc 48 78 00 3e              |Hx >    |		PEA.L	0x3e
000221e0 48 53                    |HS      |		PEA.L	(A3)
000221e2 4e 94                    |N       |		JSR	(A4)
000221e4 de c1                    |        |		ADDA.W	D1,A7
000221e6 48 78 00 0b              |Hx      |		PEA.L	0xb
000221ea 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
000221f0 de c2                    |        |		ADDA.W	D2,A7
000221f2 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
000221f8 de c1                    |        |		ADDA.W	D1,A7
000221fa 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000221fc 24 97                    |$       |		MOVE.L	(A7),(A2)
000221fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022200 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022202 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022204 9e c1                    |        |		SUBA.W	D1,A7
00022206 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0002220a 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002220e 48 78 00 2d              |Hx -    |		PEA.L	0x2d
00022212 48 78 00 09              |Hx      |		PEA.L	0x9
00022216 4e 94                    |N       |		JSR	(A4)
00022218 de c1                    |        |		ADDA.W	D1,A7
0002221a 48 78 00 02              |Hx      |		PEA.L	0x2
0002221e 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00022224 de c2                    |        |		ADDA.W	D2,A7
00022226 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
0002222c de c1                    |        |		ADDA.W	D1,A7
0002222e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022230 24 97                    |$       |		MOVE.L	(A7),(A2)
00022232 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022234 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022236 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022238 9e c1                    |        |		SUBA.W	D1,A7
0002223a 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
0002223e 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00022242 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00022246 48 53                    |HS      |		PEA.L	(A3)
00022248 4e 94                    |N       |		JSR	(A4)
0002224a de c1                    |        |		ADDA.W	D1,A7
0002224c 48 53                    |HS      |		PEA.L	(A3)
0002224e 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00022254 de c2                    |        |		ADDA.W	D2,A7
00022256 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
0002225c de c1                    |        |		ADDA.W	D1,A7
0002225e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022260 24 97                    |$       |		MOVE.L	(A7),(A2)
00022262 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022264 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022266 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022268 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002226a 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
0002226e 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00022272 48 78 00 3f              |Hx ?    |		PEA.L	0x3f
00022276 48 53                    |HS      |		PEA.L	(A3)
00022278 4e 94                    |N       |		JSR	(A4)
0002227a de c1                    |        |		ADDA.W	D1,A7
0002227c 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00022282 de c1                    |        |		ADDA.W	D1,A7
00022284 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022286 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022288 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002228a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002228c 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00022290 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00022294 9e c1                    |        |		SUBA.W	D1,A7
00022296 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002229a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002229e be 83                    |        |		CMP.L	D3,D7
000222a0 63 02                    |c       |		BLS	0x222a4
000222a2 4e 4f                    |NO      |		TRAP	#15
000222a4 20 07                    |        |		MOVE.L	D7,D0
000222a6 e5 80                    |        |		ASL.L	#0x2,D0
000222a8 2f 36 08 d0              |/6      |		MOVE.L	(A6+D0.L-#0x30),-(A7)
000222ac 48 53                    |HS      |		PEA.L	(A3)
000222ae 4e 94                    |N       |		JSR	(A4)
000222b0 de c1                    |        |		ADDA.W	D1,A7
000222b2 48 78 00 0b              |Hx      |		PEA.L	0xb
000222b6 9f 97                    |        |		SUB.L	D7,(A7)
000222b8 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
000222be de c2                    |        |		ADDA.W	D2,A7
000222c0 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
000222c6 de c1                    |        |		ADDA.W	D1,A7
000222c8 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
000222cc 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
000222d0 52 87                    |R       |		ADDQ.L	#0x1,D7
000222d2 be 83                    |        |		CMP.L	D3,D7
000222d4 6f b4                    |o       |		BLE	0x2228a
000222d6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000222d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000222da 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000222dc 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
000222e0 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
000222e4 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
000222ea de c1                    |        |		ADDA.W	D1,A7
000222ec 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000222ee 24 97                    |$       |		MOVE.L	(A7),(A2)
000222f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222f2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000222f4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000222f6 9e c1                    |        |		SUBA.W	D1,A7
000222f8 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
000222fc 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00022300 48 78 00 2c              |Hx ,    |		PEA.L	0x2c
00022304 48 53                    |HS      |		PEA.L	(A3)
00022306 4e 94                    |N       |		JSR	(A4)
00022308 de c1                    |        |		ADDA.W	D1,A7
0002230a 48 78 00 0b              |Hx      |		PEA.L	0xb
0002230e 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00022314 de c2                    |        |		ADDA.W	D2,A7
00022316 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
0002231c de c1                    |        |		ADDA.W	D1,A7
0002231e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022320 24 97                    |$       |		MOVE.L	(A7),(A2)
00022322 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022324 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002232a 4a 1f                    |J       |		TST.B	(A7)+
0002232c 67 1a                    |g       |		BEQ	0x22348
0002232e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022330 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022332 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022334 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
00022338 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
0002233c 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00022342 de c1                    |        |		ADDA.W	D1,A7
00022344 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022346 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022348 2d 51 00 20              |-Q      |		MOVE.L	(A1),(A6+0x20)
0002234c 2d 52 00 24              |-R $    |		MOVE.L	(A2),(A6+0x24)
00022350 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
00022354 4e 5e                    |N^      |		UNLK	A6
00022356 4e 75                    |Nu      |		RTS
00022358 ; --------------------------------------------------------------------------------------
00022358 ; OMSI PASCAL Function
00022358 ;    <LVAR  0x00c 4(r)>
00022358 ;    <LVAR  0x008 4(r)>
00022358 ; --------------------------------------------------------------------------------------
00022358 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
0002235c bf d5                    |        |		CMPA.L	(A5),A7
0002235e 62 06                    |b       |		BHI	0x22366
00022360 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022364 4e 76                    |Nv      |		TRAPV
00022366 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
0002236a 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
0002236e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022370 74 03                    |t       |		MOVEQ.L	#0x03,D2
00022372 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022376 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002237a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002237e 48 78 00 38              |Hx 8    |		PEA.L	0x38
00022382 48 78 00 02              |Hx      |		PEA.L	0x2
00022386 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
0002238c de fc 00 10              |        |		ADDA.W	#0x10,A7
00022390 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00022396 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022398 20 1f                    |        |		MOVE.L	(A7)+,D0
0002239a b0 82                    |        |		CMP.L	D2,D0
0002239c 62 6c                    |bl      |		BHI	0x2240a
0002239e d0 40                    | @      |		ADD.W	D0,D0
000223a0 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000223a8 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x223b0
000223aa 00 2a                    | *      |		.CONST	0x2a			; [0x1] -> 0x223d2
000223ac 00 48                    | H      |		.CONST	0x48			; [0x2] -> 0x223f0
000223ae 00 5c                    | \      |		.CONST	0x5c			; [0x3] -> 0x22404
000223b0					switch@0x223a0[0x0]:
000223b0 2f 3a df bc              |/:      |		MOVE.L	0x2036e,-(A7)
000223b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223bc 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000223c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000223c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223c8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000223ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223d0 60 68                    |`h      |		BRA	0x2243a
000223d2					switch@0x223a0[0x1]:
000223d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223d4 1e ba df 9c              |        |		MOVE.B	0x20372,(A7)
000223d8 1f 7a df 99 00 01        | z      |		MOVE.B	0x20373,(A7+0x1)
000223de 1f 7a df 94 00 02        | z      |		MOVE.B	0x20374,(A7+0x2)
000223e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223ec 3f 02                    |?       |		MOVE.W	D2,-(A7)
000223ee 60 d0                    |`       |		BRA	0x223c0
000223f0					switch@0x223a0[0x2]:
000223f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223f2 1e ba df 82              |        |		MOVE.B	0x20376,(A7)
000223f6 1f 7a df 7f 00 01        | z      |		MOVE.B	0x20377,(A7+0x1)
000223fc 1f 7a df 7a 00 02        | z z    |		MOVE.B	0x20378,(A7+0x2)
00022402 60 e0                    |`       |		BRA	0x223e4
00022404					switch@0x223a0[0x3]:
00022404 2f 3a df 74              |/: t    |		MOVE.L	0x2037a,-(A7)
00022408 60 aa                    |`       |		BRA	0x223b4
0002240a 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
0002240e 20 4f                    | O      |		MOVEA.L	A7,A0
00022410 43 fa df 6c              |C  l    |		LEA.L	0x2037e,A1
00022414 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00022416 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022418 51 c8 ff fc              |Q       |		DBF	D0,0x22416
0002241c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002241e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022422 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022424 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00022428 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002242e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022430 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022436 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002243a 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
0002243e 4e 5e                    |N^      |		UNLK	A6
00022440 4e 75                    |Nu      |		RTS
00022442 ; --------------------------------------------------------------------------------------
00022442 ; OMSI PASCAL Function
00022442 ;    <LVAR  0x00c 4(r)>
00022442 ;    <LVAR  0x008 4(r)>
00022442 ; --------------------------------------------------------------------------------------
00022442 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
00022446 bf d5                    |        |		CMPA.L	(A5),A7
00022448 62 06                    |b       |		BHI	0x22450
0002244a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002244e 4e 76                    |Nv      |		TRAPV
00022450 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00022454 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00022458 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
0002245c 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00022460 49 f8 00 01              |I       |		LEA.L	0x1,A4
00022464 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00022466 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022468 76 10                    |v       |		MOVEQ.L	#0x10,D3
0002246a 78 01                    |x       |		MOVEQ.L	#0x01,D4
0002246c 7a 06                    |z       |		MOVEQ.L	#0x06,D5
0002246e 9e c1                    |        |		SUBA.W	D1,A7
00022470 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022472 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022474 48 78 00 33              |Hx 3    |		PEA.L	0x33
00022478 48 54                    |HT      |		PEA.L	(A4)
0002247a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022480 de c2                    |        |		ADDA.W	D2,A7
00022482 2e ba e2 88              |.       |		MOVE.L	0x2070c,(A7)
00022486 2f 3a e2 80              |/:      |		MOVE.L	0x20708,-(A7)
0002248a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022490 de c3                    |        |		ADDA.W	D3,A7
00022492 4a 1f                    |J       |		TST.B	(A7)+
00022494 67 0e                    |g       |		BEQ	0x224a4
00022496 3f 3a df 08              |?:      |		MOVE.W	0x203a0,-(A7)
0002249a 3f 3a df 02              |?:      |		MOVE.W	0x2039e,-(A7)
0002249e 3f 3a de fc              |?:      |		MOVE.W	0x2039c,-(A7)
000224a2 60 0c                    |`       |		BRA	0x224b0
000224a4 3f 3a df 00              |?:      |		MOVE.W	0x203a6,-(A7)
000224a8 3f 3a de fa              |?:      |		MOVE.W	0x203a4,-(A7)
000224ac 3f 3a de f4              |?:      |		MOVE.W	0x203a2,-(A7)
000224b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224b6 3f 04                    |?       |		MOVE.W	D4,-(A7)
000224b8 3f 05                    |?       |		MOVE.W	D5,-(A7)
000224ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224c2 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000224c8 de c1                    |        |		ADDA.W	D1,A7
000224ca 9e c1                    |        |		SUBA.W	D1,A7
000224cc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000224ce 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000224d0 48 78 00 3a              |Hx :    |		PEA.L	0x3a
000224d4 48 54                    |HT      |		PEA.L	(A4)
000224d6 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
000224dc de c2                    |        |		ADDA.W	D2,A7
000224de 2e ba e2 2c              |.  ,    |		MOVE.L	0x2070c,(A7)
000224e2 2f 3a e2 24              |/: $    |		MOVE.L	0x20708,-(A7)
000224e6 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
000224ec de c3                    |        |		ADDA.W	D3,A7
000224ee 4a 1f                    |J       |		TST.B	(A7)+
000224f0 67 26                    |g&      |		BEQ	0x22518
000224f2 3f 3a de b8              |?:      |		MOVE.W	0x203ac,-(A7)
000224f6 3f 3a de b2              |?:      |		MOVE.W	0x203aa,-(A7)
000224fa 3f 3a de ac              |?:      |		MOVE.W	0x203a8,-(A7)
000224fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022500 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022504 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022506 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022508 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002250e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022510 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022516 de c1                    |        |		ADDA.W	D1,A7
00022518 9e c1                    |        |		SUBA.W	D1,A7
0002251a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002251c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002251e 48 78 00 3b              |Hx ;    |		PEA.L	0x3b
00022522 48 54                    |HT      |		PEA.L	(A4)
00022524 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
0002252a de c2                    |        |		ADDA.W	D2,A7
0002252c 2e ba e1 de              |.       |		MOVE.L	0x2070c,(A7)
00022530 2f 3a e1 d6              |/:      |		MOVE.L	0x20708,-(A7)
00022534 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
0002253a de c3                    |        |		ADDA.W	D3,A7
0002253c 4a 1f                    |J       |		TST.B	(A7)+
0002253e 67 2c                    |g,      |		BEQ	0x2256c
00022540 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022542 20 4f                    | O      |		MOVEA.L	A7,A0
00022544 43 fa de 68              |C  h    |		LEA.L	0x203ae,A1
00022548 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002254a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002254c 51 c8 ff fc              |Q       |		DBF	D0,0x2254a
00022550 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022552 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022556 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022558 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0002255c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022562 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022564 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002256a de c1                    |        |		ADDA.W	D1,A7
0002256c 9e c1                    |        |		SUBA.W	D1,A7
0002256e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022570 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022572 48 78 00 3c              |Hx <    |		PEA.L	0x3c
00022576 48 54                    |HT      |		PEA.L	(A4)
00022578 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
0002257e de c2                    |        |		ADDA.W	D2,A7
00022580 2e ba e1 8a              |.       |		MOVE.L	0x2070c,(A7)
00022584 2f 3a e1 82              |/:      |		MOVE.L	0x20708,-(A7)
00022588 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
0002258e de c3                    |        |		ADDA.W	D3,A7
00022590 4a 1f                    |J       |		TST.B	(A7)+
00022592 67 2c                    |g,      |		BEQ	0x225c0
00022594 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022596 20 4f                    | O      |		MOVEA.L	A7,A0
00022598 43 fa de 1a              |C       |		LEA.L	0x203b4,A1
0002259c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002259e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000225a0 51 c8 ff fc              |Q       |		DBF	D0,0x2259e
000225a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225aa 3f 04                    |?       |		MOVE.W	D4,-(A7)
000225ac 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000225b0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000225b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225b8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000225be de c2                    |        |		ADDA.W	D2,A7
000225c0 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000225c4 4e 5e                    |N^      |		UNLK	A6
000225c6 4e 75                    |Nu      |		RTS
000225c8 ; --------------------------------------------------------------------------------------
000225c8 ; OMSI PASCAL Function
000225c8 ;    <LVAR  0x016 1(r)>
000225c8 ;    <LVAR  0x012 4(r)>
000225c8 ;    <LVAR  0x010 @>
000225c8 ;    <LVAR  0x008 @>
000225c8 ;    <LVAR -0x004 4(rw)>
000225c8 ;    <LVAR -0x008 4(rw)>
000225c8 ;    <LVAR -0x00c 4(rw)>
000225c8 ;    <LVAR -0x010 4(rw)>
000225c8 ; --------------------------------------------------------------------------------------
000225c8 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
000225cc bf d5                    |        |		CMPA.L	(A5),A7
000225ce 62 06                    |b       |		BHI	0x225d6
000225d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225d4 4e 76                    |Nv      |		TRAPV
000225d6 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000225da 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000225de 41 f9 00 01 02 c4        |A       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A0
000225e4 43 f8 00 00              |C       |		LEA.L	0x0,A1
000225e8 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
000225ec 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
000225f0 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
000225f4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000225f6 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
000225f8 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000225fa 78 04                    |x       |		MOVEQ.L	#0x04,D4
000225fc 7a 10                    |z       |		MOVEQ.L	#0x10,D5
000225fe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022600 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022604 48 51                    |HQ      |		PEA.L	(A1)
00022606 48 78 00 07              |Hx      |		PEA.L	0x7
0002260a 4e ba f0 54              |N  T    |		JSR	0x21660
0002260e de c2                    |        |		ADDA.W	D2,A7
00022610 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022612 26 97                    |&       |		MOVE.L	(A7),(A3)
00022614 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022616 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
0002261a 48 51                    |HQ      |		PEA.L	(A1)
0002261c 48 51                    |HQ      |		PEA.L	(A1)
0002261e 4e ba f0 40              |N  @    |		JSR	0x21660
00022622 de c2                    |        |		ADDA.W	D2,A7
00022624 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00022626 2d 57 ff fc              |-W      |		MOVE.L	(A7),(A6-0x4)
0002262a 1e ba dd 90              |        |		MOVE.B	0x203bc,(A7)
0002262e 1f 7a dd 8d 00 01        | z      |		MOVE.B	0x203bd,(A7+0x1)
00022634 1f 7a dd 88 00 02        | z      |		MOVE.B	0x203be,(A7+0x2)
0002263a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002263c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022640 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022642 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022646 4e 90                    |N       |		JSR	(A0)
00022648 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002264a 10 2e 00 16              | .      |		MOVE.B	(A6+0x16),D0
0002264e 48 80                    |H       |		EXTB.W	D0
00022650 90 42                    | B      |		SUB.W	D2,D0
00022652 48 c0                    |H       |		EXTW.L	D0
00022654 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022656 42 27                    |B'      |		CLR.B	-(A7)
00022658 4e ba ed 1e              |N       |		JSR	0x21378
0002265c de c3                    |        |		ADDA.W	D3,A7
0002265e 2e ba dd 60              |.  `    |		MOVE.L	0x203c0,(A7)
00022662 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022664 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022668 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002266a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002266c 4e 90                    |N       |		JSR	(A0)
0002266e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022670 2e ae 00 12              |.       |		MOVE.L	(A6+0x12),(A7)
00022674 42 27                    |B'      |		CLR.B	-(A7)
00022676 4e ba ed 00              |N       |		JSR	0x21378
0002267a de c3                    |        |		ADDA.W	D3,A7
0002267c 2e ba dd 46              |.  F    |		MOVE.L	0x203c4,(A7)
00022680 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022682 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022686 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022688 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002268a 4e 90                    |N       |		JSR	(A0)
0002268c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002268e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022690 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022692 48 78 00 10              |Hx      |		PEA.L	0x10
00022696 42 27                    |B'      |		CLR.B	-(A7)
00022698 4e ba ed 74              |N  t    |		JSR	0x2140e
0002269c de fc 00 14              |        |		ADDA.W	#0x14,A7
000226a0 3e ba dd 26              |>  &    |		MOVE.W	0x203c8,(A7)
000226a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226ac 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000226b0 4e 90                    |N       |		JSR	(A0)
000226b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000226b4 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
000226b8 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000226ba 48 78 00 02              |Hx      |		PEA.L	0x2
000226be 42 27                    |B'      |		CLR.B	-(A7)
000226c0 4e ba ed 4c              |N  L    |		JSR	0x2140e
000226c4 de c5                    |        |		ADDA.W	D5,A7
000226c6 2e 93                    |.       |		MOVE.L	(A3),(A7)
000226c8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000226ca 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
000226ce 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000226d0 4e ba f9 c0              |N       |		JSR	0x22092
000226d4 de c5                    |        |		ADDA.W	D5,A7
000226d6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000226dc 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000226e0 4e 5e                    |N^      |		UNLK	A6
000226e2 4e 75                    |Nu      |		RTS
000226e4 ; --------------------------------------------------------------------------------------
000226e4 ; OMSI PASCAL Function
000226e4 ;    <LVAR  0x01e 4(r)>
000226e4 ;    <LVAR  0x01a 4(r)>
000226e4 ;    <LVAR  0x016 4(r)>
000226e4 ;    <LVAR  0x012 4(r)>
000226e4 ;    <LVAR  0x010 @>
000226e4 ;    <LVAR  0x008 @>
000226e4 ;    <LVAR -0x006 4(rw)>
000226e4 ;    <LVAR -0x00a 4(rw)>
000226e4 ;    <LVAR -0x00e 4(rw)>
000226e4 ;    <LVAR -0x012 4(rw)>
000226e4 ; --------------------------------------------------------------------------------------
000226e4 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
000226e8 bf d5                    |        |		CMPA.L	(A5),A7
000226ea 62 06                    |b       |		BHI	0x226f2
000226ec 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000226f0 4e 76                    |Nv      |		TRAPV
000226f2 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000226f6 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000226fa 45 ee ff ee              |E       |		LEA.L	(A6-0x12),A2
000226fe 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
00022702 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022708 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002270a 74 10                    |t       |		MOVEQ.L	#0x10,D2
0002270c 76 09                    |v       |		MOVEQ.L	#0x09,D3
0002270e 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00022710 7a 12                    |z       |		MOVEQ.L	#0x12,D5
00022712 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022714 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022718 48 78 00 00              |Hx      |		PEA.L	0x0
0002271c 48 78 00 07              |Hx      |		PEA.L	0x7
00022720 4e ba ef 3e              |N  >    |		JSR	0x21660
00022724 de c4                    |        |		ADDA.W	D4,A7
00022726 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022728 26 97                    |&       |		MOVE.L	(A7),(A3)
0002272a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002272c 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00022730 48 78 00 00              |Hx      |		PEA.L	0x0
00022734 48 78 00 00              |Hx      |		PEA.L	0x0
00022738 4e ba ef 26              |N  &    |		JSR	0x21660
0002273c de c4                    |        |		ADDA.W	D4,A7
0002273e 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00022742 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
00022746 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022748 20 4f                    | O      |		MOVEA.L	A7,A0
0002274a 43 fa dc 7e              |C  ~    |		LEA.L	0x203ca,A1
0002274e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022750 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022752 51 c8 ff fc              |Q       |		DBF	D0,0x22750
00022756 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022758 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002275c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002275e 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00022762 4e 94                    |N       |		JSR	(A4)
00022764 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022766 2e ae 00 1e              |.       |		MOVE.L	(A6+0x1e),(A7)
0002276a 2f 2e 00 1a              |/.      |		MOVE.L	(A6+0x1a),-(A7)
0002276e 48 78 00 01              |Hx      |		PEA.L	0x1
00022772 42 27                    |B'      |		CLR.B	-(A7)
00022774 4e ba ec 98              |N       |		JSR	0x2140e
00022778 de c2                    |        |		ADDA.W	D2,A7
0002277a 20 4f                    | O      |		MOVEA.L	A7,A0
0002277c 43 fa dc 54              |C  T    |		LEA.L	0x203d2,A1
00022780 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022782 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022784 51 c8 ff fc              |Q       |		DBF	D0,0x22782
00022788 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002278a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002278e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022790 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022792 4e 94                    |N       |		JSR	(A4)
00022794 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022796 2e ae 00 16              |.       |		MOVE.L	(A6+0x16),(A7)
0002279a 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
0002279e 48 78 00 03              |Hx      |		PEA.L	0x3
000227a2 42 27                    |B'      |		CLR.B	-(A7)
000227a4 4e ba ec 68              |N  h    |		JSR	0x2140e
000227a8 de c5                    |        |		ADDA.W	D5,A7
000227aa 20 4f                    | O      |		MOVEA.L	A7,A0
000227ac 43 fa dc 2e              |C  .    |		LEA.L	0x203dc,A1
000227b0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000227b2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227b4 51 c8 ff fc              |Q       |		DBF	D0,0x227b2
000227b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227ba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227be 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227c0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000227c2 4e 94                    |N       |		JSR	(A4)
000227c4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000227c6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000227c8 48 78 00 34              |Hx 4    |		PEA.L	0x34
000227cc 48 78 00 04              |Hx      |		PEA.L	0x4
000227d0 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
000227d6 de c2                    |        |		ADDA.W	D2,A7
000227d8 48 78 00 01              |Hx      |		PEA.L	0x1
000227dc 42 27                    |B'      |		CLR.B	-(A7)
000227de 4e ba ec 2e              |N  .    |		JSR	0x2140e
000227e2 de c5                    |        |		ADDA.W	D5,A7
000227e4 20 4f                    | O      |		MOVEA.L	A7,A0
000227e6 43 fa db fe              |C       |		LEA.L	0x203e6,A1
000227ea 70 08                    |p       |		MOVEQ.L	#0x08,D0
000227ec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227ee 51 c8 ff fc              |Q       |		DBF	D0,0x227ec
000227f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227f4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227f8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227fa 3f 03                    |?       |		MOVE.W	D3,-(A7)
000227fc 4e 94                    |N       |		JSR	(A4)
000227fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022800 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022806 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002280a 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002280c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002280e 4e ba fb 48              |N  H    |		JSR	0x22358
00022812 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022814 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022816 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022818 4e ba fc 28              |N  (    |		JSR	0x22442
0002281c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002281e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022820 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022822 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00022826 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
0002282a 4e ba f8 66              |N  f    |		JSR	0x22092
0002282e de c2                    |        |		ADDA.W	D2,A7
00022830 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022836 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002283a 4e 5e                    |N^      |		UNLK	A6
0002283c 4e 75                    |Nu      |		RTS
0002283e ; --------------------------------------------------------------------------------------
0002283e ; OMSI PASCAL Function
0002283e ;    <LVAR  0x016 4(r)>
0002283e ;    <LVAR  0x012 4(r)>
0002283e ;    <LVAR  0x010 @>
0002283e ;    <LVAR  0x008 @>
0002283e ;    <LVAR -0x006 4(rw)>
0002283e ;    <LVAR -0x00a 4(rw)>
0002283e ;    <LVAR -0x00e 4(rw)>
0002283e ;    <LVAR -0x012 4(rw)>
0002283e ; --------------------------------------------------------------------------------------
0002283e 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00022842 bf d5                    |        |		CMPA.L	(A5),A7
00022844 62 06                    |b       |		BHI	0x2284c
00022846 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002284a 4e 76                    |Nv      |		TRAPV
0002284c de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00022850 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022854 45 ee ff ee              |E       |		LEA.L	(A6-0x12),A2
00022858 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
0002285c 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022862 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022864 74 10                    |t       |		MOVEQ.L	#0x10,D2
00022866 76 14                    |v       |		MOVEQ.L	#0x14,D3
00022868 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002286a 7a 18                    |z       |		MOVEQ.L	#0x18,D5
0002286c 7c 08                    ||       |		MOVEQ.L	#0x08,D6
0002286e 7e 16                    |~       |		MOVEQ.L	#0x16,D7
00022870 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022872 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022876 48 78 00 00              |Hx      |		PEA.L	0x0
0002287a 48 78 00 07              |Hx      |		PEA.L	0x7
0002287e 4e ba ed e0              |N       |		JSR	0x21660
00022882 de c4                    |        |		ADDA.W	D4,A7
00022884 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022886 26 97                    |&       |		MOVE.L	(A7),(A3)
00022888 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002288a 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
0002288e 48 78 00 00              |Hx      |		PEA.L	0x0
00022892 48 78 00 00              |Hx      |		PEA.L	0x0
00022896 4e ba ed c8              |N       |		JSR	0x21660
0002289a de c4                    |        |		ADDA.W	D4,A7
0002289c 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
000228a0 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
000228a4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000228a6 20 4f                    | O      |		MOVEA.L	A7,A0
000228a8 43 fa db 46              |C  F    |		LEA.L	0x203f0,A1
000228ac 70 04                    |p       |		MOVEQ.L	#0x04,D0
000228ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228b0 51 c8 ff fc              |Q       |		DBF	D0,0x228ae
000228b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228bc 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000228c0 4e 94                    |N       |		JSR	(A4)
000228c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228c4 2e ae 00 16              |.       |		MOVE.L	(A6+0x16),(A7)
000228c8 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000228cc 48 78 00 01              |Hx      |		PEA.L	0x1
000228d0 42 27                    |B'      |		CLR.B	-(A7)
000228d2 4e ba eb 3a              |N  :    |		JSR	0x2140e
000228d6 de c3                    |        |		ADDA.W	D3,A7
000228d8 2e ba db 1c              |.       |		MOVE.L	0x203f6,(A7)
000228dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228e4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000228e8 4e 94                    |N       |		JSR	(A4)
000228ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228ec 2e 93                    |.       |		MOVE.L	(A3),(A7)
000228ee 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000228f0 48 78 00 10              |Hx      |		PEA.L	0x10
000228f4 42 27                    |B'      |		CLR.B	-(A7)
000228f6 4e ba eb 16              |N       |		JSR	0x2140e
000228fa de c3                    |        |		ADDA.W	D3,A7
000228fc 3e ba da fc              |>       |		MOVE.W	0x203fa,(A7)
00022900 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022902 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022906 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022908 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002290c 4e 94                    |N       |		JSR	(A4)
0002290e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022910 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
00022914 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00022918 48 78 00 02              |Hx      |		PEA.L	0x2
0002291c 42 27                    |B'      |		CLR.B	-(A7)
0002291e 4e ba ea ee              |N       |		JSR	0x2140e
00022922 de c3                    |        |		ADDA.W	D3,A7
00022924 41 fa da e0              |A       |		LEA.L	0x20406,A0
00022928 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002292a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002292c 51 c8 ff fc              |Q       |		DBF	D0,0x2292a
00022930 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022932 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022936 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022938 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
0002293c 4e 94                    |N       |		JSR	(A4)
0002293e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022940 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022942 48 78 00 34              |Hx 4    |		PEA.L	0x34
00022946 48 78 00 04              |Hx      |		PEA.L	0x4
0002294a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022950 de c2                    |        |		ADDA.W	D2,A7
00022952 48 78 00 01              |Hx      |		PEA.L	0x1
00022956 42 27                    |B'      |		CLR.B	-(A7)
00022958 4e ba ea b4              |N       |		JSR	0x2140e
0002295c de c5                    |        |		ADDA.W	D5,A7
0002295e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022960 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022962 4e ba f9 f4              |N       |		JSR	0x22358
00022966 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022968 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002296a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002296c 4e ba fa d4              |N       |		JSR	0x22442
00022970 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022972 20 4f                    | O      |		MOVEA.L	A7,A0
00022974 43 fa da 90              |C       |		LEA.L	0x20406,A1
00022978 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002297a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002297c 51 c8 ff fc              |Q       |		DBF	D0,0x2297a
00022980 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022982 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022986 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022988 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002298c 4e 94                    |N       |		JSR	(A4)
0002298e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022990 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022992 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00022996 48 78 00 03              |Hx      |		PEA.L	0x3
0002299a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
000229a0 de c2                    |        |		ADDA.W	D2,A7
000229a2 48 78 00 01              |Hx      |		PEA.L	0x1
000229a6 42 27                    |B'      |		CLR.B	-(A7)
000229a8 4e ba ea 64              |N  d    |		JSR	0x2140e
000229ac de c5                    |        |		ADDA.W	D5,A7
000229ae 2e ba da 64              |.  d    |		MOVE.L	0x20414,(A7)
000229b2 2f 3a da 5c              |/: \    |		MOVE.L	0x20410,-(A7)
000229b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000229bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229be 3f 06                    |?       |		MOVE.W	D6,-(A7)
000229c0 4e 94                    |N       |		JSR	(A4)
000229c2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000229c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000229c6 48 78 00 00              |Hx      |		PEA.L	0x0
000229ca 48 78 00 20              |Hx      |		PEA.L	0x20
000229ce 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
000229d4 de c2                    |        |		ADDA.W	D2,A7
000229d6 48 78 00 08              |Hx      |		PEA.L	0x8
000229da 42 27                    |B'      |		CLR.B	-(A7)
000229dc 4e ba ea 30              |N  0    |		JSR	0x2140e
000229e0 de c7                    |        |		ADDA.W	D7,A7
000229e2 2e ba da 38              |.  8    |		MOVE.L	0x2041c,(A7)
000229e6 2f 3a da 30              |/: 0    |		MOVE.L	0x20418,-(A7)
000229ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000229f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229f2 3f 06                    |?       |		MOVE.W	D6,-(A7)
000229f4 4e 94                    |N       |		JSR	(A4)
000229f6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000229f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000229fa 48 78 00 20              |Hx      |		PEA.L	0x20
000229fe 48 78 00 13              |Hx      |		PEA.L	0x13
00022a02 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022a08 de c2                    |        |		ADDA.W	D2,A7
00022a0a 48 78 00 05              |Hx      |		PEA.L	0x5
00022a0e 42 27                    |B'      |		CLR.B	-(A7)
00022a10 4e ba e9 fc              |N       |		JSR	0x2140e
00022a14 de c7                    |        |		ADDA.W	D7,A7
00022a16 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022a18 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022a1a 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00022a1e 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00022a22 4e ba f6 6e              |N  n    |		JSR	0x22092
00022a26 de c2                    |        |		ADDA.W	D2,A7
00022a28 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022a2e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022a32 4e 5e                    |N^      |		UNLK	A6
00022a34 4e 75                    |Nu      |		RTS
00022a36 ; --------------------------------------------------------------------------------------
00022a36 ; OMSI PASCAL Function
00022a36 ;    <LVAR  0x016 4(r)>
00022a36 ;    <LVAR  0x012 4(r)>
00022a36 ;    <LVAR  0x010 @>
00022a36 ;    <LVAR  0x008 @>
00022a36 ;    <LVAR -0x006 4(rw)>
00022a36 ;    <LVAR -0x00a 4(rw)>
00022a36 ;    <LVAR -0x00e 4(rw)>
00022a36 ;    <LVAR -0x012 4(rw)>
00022a36 ; --------------------------------------------------------------------------------------
00022a36 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00022a3a bf d5                    |        |		CMPA.L	(A5),A7
00022a3c 62 06                    |b       |		BHI	0x22a44
00022a3e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a42 4e 76                    |Nv      |		TRAPV
00022a44 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00022a48 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022a4c 45 ee ff ee              |E       |		LEA.L	(A6-0x12),A2
00022a50 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
00022a54 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022a5a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022a5c 74 10                    |t       |		MOVEQ.L	#0x10,D2
00022a5e 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00022a60 78 12                    |x       |		MOVEQ.L	#0x12,D4
00022a62 7a 08                    |z       |		MOVEQ.L	#0x08,D5
00022a64 7c 16                    ||       |		MOVEQ.L	#0x16,D6
00022a66 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022a68 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022a6c 48 78 00 00              |Hx      |		PEA.L	0x0
00022a70 48 78 00 07              |Hx      |		PEA.L	0x7
00022a74 4e ba eb ea              |N       |		JSR	0x21660
00022a78 de c3                    |        |		ADDA.W	D3,A7
00022a7a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022a7c 26 97                    |&       |		MOVE.L	(A7),(A3)
00022a7e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a80 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00022a84 48 78 00 00              |Hx      |		PEA.L	0x0
00022a88 48 78 00 00              |Hx      |		PEA.L	0x0
00022a8c 4e ba eb d2              |N       |		JSR	0x21660
00022a90 de c3                    |        |		ADDA.W	D3,A7
00022a92 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00022a96 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00022a9a 2f 3a d9 84              |/:      |		MOVE.L	0x20420,-(A7)
00022a9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022aa0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022aa4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022aa6 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022aaa 4e 94                    |N       |		JSR	(A4)
00022aac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022aae 2e ae 00 16              |.       |		MOVE.L	(A6+0x16),(A7)
00022ab2 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00022ab6 42 27                    |B'      |		CLR.B	-(A7)
00022ab8 4e ba e9 04              |N       |		JSR	0x213be
00022abc de c4                    |        |		ADDA.W	D4,A7
00022abe 41 fa d9 6e              |A  n    |		LEA.L	0x2042e,A0
00022ac2 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022ac4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022ac6 51 c8 ff fc              |Q       |		DBF	D0,0x22ac4
00022aca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022acc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ad0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ad2 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022ad6 4e 94                    |N       |		JSR	(A4)
00022ad8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022ada 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022adc 48 78 00 34              |Hx 4    |		PEA.L	0x34
00022ae0 48 78 00 04              |Hx      |		PEA.L	0x4
00022ae4 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022aea de c2                    |        |		ADDA.W	D2,A7
00022aec 48 78 00 01              |Hx      |		PEA.L	0x1
00022af0 42 27                    |B'      |		CLR.B	-(A7)
00022af2 4e ba e9 1a              |N       |		JSR	0x2140e
00022af6 de c4                    |        |		ADDA.W	D4,A7
00022af8 20 4f                    | O      |		MOVEA.L	A7,A0
00022afa 43 fa d9 32              |C  2    |		LEA.L	0x2042e,A1
00022afe 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022b00 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b02 51 c8 ff fc              |Q       |		DBF	D0,0x22b00
00022b06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b08 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b0e 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022b12 4e 94                    |N       |		JSR	(A4)
00022b14 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022b16 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022b18 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00022b1c 48 78 00 03              |Hx      |		PEA.L	0x3
00022b20 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022b26 de c2                    |        |		ADDA.W	D2,A7
00022b28 48 78 00 01              |Hx      |		PEA.L	0x1
00022b2c 42 27                    |B'      |		CLR.B	-(A7)
00022b2e 4e ba e8 de              |N       |		JSR	0x2140e
00022b32 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022b36 2e ba d9 04              |.       |		MOVE.L	0x2043c,(A7)
00022b3a 2f 3a d8 fc              |/:      |		MOVE.L	0x20438,-(A7)
00022b3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b46 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022b48 4e 94                    |N       |		JSR	(A4)
00022b4a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022b4c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022b4e 48 78 00 00              |Hx      |		PEA.L	0x0
00022b52 48 78 00 20              |Hx      |		PEA.L	0x20
00022b56 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022b5c de c2                    |        |		ADDA.W	D2,A7
00022b5e 48 78 00 08              |Hx      |		PEA.L	0x8
00022b62 42 27                    |B'      |		CLR.B	-(A7)
00022b64 4e ba e8 a8              |N       |		JSR	0x2140e
00022b68 de c6                    |        |		ADDA.W	D6,A7
00022b6a 2e ba d8 d8              |.       |		MOVE.L	0x20444,(A7)
00022b6e 2f 3a d8 d0              |/:      |		MOVE.L	0x20440,-(A7)
00022b72 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b74 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b78 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b7a 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022b7c 4e 94                    |N       |		JSR	(A4)
00022b7e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022b80 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022b82 48 78 00 20              |Hx      |		PEA.L	0x20
00022b86 48 78 00 13              |Hx      |		PEA.L	0x13
00022b8a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00022b90 de c2                    |        |		ADDA.W	D2,A7
00022b92 48 78 00 05              |Hx      |		PEA.L	0x5
00022b96 42 27                    |B'      |		CLR.B	-(A7)
00022b98 4e ba e8 74              |N  t    |		JSR	0x2140e
00022b9c de c6                    |        |		ADDA.W	D6,A7
00022b9e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022ba0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022ba2 4e ba f7 b4              |N       |		JSR	0x22358
00022ba6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ba8 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022baa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022bac 4e ba f8 94              |N       |		JSR	0x22442
00022bb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022bb2 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022bb4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022bb6 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00022bba 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00022bbe 4e ba f4 d2              |N       |		JSR	0x22092
00022bc2 de c2                    |        |		ADDA.W	D2,A7
00022bc4 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022bca 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00022bce 4e 5e                    |N^      |		UNLK	A6
00022bd0 4e 75                    |Nu      |		RTS
00022bd2 ; --------------------------------------------------------------------------------------
00022bd2 ; OMSI PASCAL Function
00022bd2 ;    <LVAR  0x020 1(r)>
00022bd2 ;    <LVAR  0x01c 4(r)>
00022bd2 ;    <LVAR  0x019 @>
00022bd2 ;    <LVAR  0x010 @>
00022bd2 ;    <LVAR  0x008 @>
00022bd2 ; --------------------------------------------------------------------------------------
00022bd2 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00022bd6 bf d5                    |        |		CMPA.L	(A5),A7
00022bd8 62 06                    |b       |		BHI	0x22be0
00022bda 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022bde 4e 76                    |Nv      |		TRAPV
00022be0 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
00022be4 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00022be8 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022bee 47 f8 00 00              |G       |		LEA.L	0x0,A3
00022bf2 49 fa ea 6c              |I  l    |		LEA.L	0x21660,A4
00022bf6 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022bf8 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022bfa 76 08                    |v       |		MOVEQ.L	#0x08,D3
00022bfc 78 0a                    |x       |		MOVEQ.L	#0x0a,D4
00022bfe 7a 16                    |z       |		MOVEQ.L	#0x16,D5
00022c00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c02 1e ba d8 44              |   D    |		MOVE.B	0x20448,(A7)
00022c06 1f 7a d8 41 00 01        | z A    |		MOVE.B	0x20449,(A7+0x1)
00022c0c 1f 7a d8 3c 00 02        | z <    |		MOVE.B	0x2044a,(A7+0x2)
00022c12 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c14 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c18 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c1a 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022c1e 4e 92                    |N       |		JSR	(A2)
00022c20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c22 10 2e 00 20              | .      |		MOVE.B	(A6+0x20),D0
00022c26 48 80                    |H       |		EXTB.W	D0
00022c28 90 42                    | B      |		SUB.W	D2,D0
00022c2a 48 c0                    |H       |		EXTW.L	D0
00022c2c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022c2e 42 27                    |B'      |		CLR.B	-(A7)
00022c30 4e ba e7 46              |N  F    |		JSR	0x21378
00022c34 de c4                    |        |		ADDA.W	D4,A7
00022c36 2e ba d8 14              |.       |		MOVE.L	0x2044c,(A7)
00022c3a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c3c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c40 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c42 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022c46 4e 92                    |N       |		JSR	(A2)
00022c48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c4a 2e ae 00 1c              |.       |		MOVE.L	(A6+0x1c),(A7)
00022c4e 42 27                    |B'      |		CLR.B	-(A7)
00022c50 4e ba e7 26              |N  &    |		JSR	0x21378
00022c54 de c4                    |        |		ADDA.W	D4,A7
00022c56 2e ba d7 fc              |.       |		MOVE.L	0x20454,(A7)
00022c5a 2f 3a d7 f4              |/:      |		MOVE.L	0x20450,-(A7)
00022c5e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c60 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c64 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c66 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022c68 4e 92                    |N       |		JSR	(A2)
00022c6a 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022c6e 48 53                    |HS      |		PEA.L	(A3)
00022c70 48 78 00 07              |Hx      |		PEA.L	0x7
00022c74 4e 94                    |N       |		JSR	(A4)
00022c76 de c2                    |        |		ADDA.W	D2,A7
00022c78 48 78 00 10              |Hx      |		PEA.L	0x10
00022c7c 42 27                    |B'      |		CLR.B	-(A7)
00022c7e 4e ba e7 8e              |N       |		JSR	0x2140e
00022c82 de c5                    |        |		ADDA.W	D5,A7
00022c84 2e ba d7 d6              |.       |		MOVE.L	0x2045c,(A7)
00022c88 2f 3a d7 ce              |/:      |		MOVE.L	0x20458,-(A7)
00022c8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c92 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c94 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022c96 4e 92                    |N       |		JSR	(A2)
00022c98 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00022c9c 48 53                    |HS      |		PEA.L	(A3)
00022c9e 48 78 00 07              |Hx      |		PEA.L	0x7
00022ca2 4e 94                    |N       |		JSR	(A4)
00022ca4 de c2                    |        |		ADDA.W	D2,A7
00022ca6 48 78 00 10              |Hx      |		PEA.L	0x10
00022caa 42 27                    |B'      |		CLR.B	-(A7)
00022cac 4e ba e7 60              |N  `    |		JSR	0x2140e
00022cb0 de c5                    |        |		ADDA.W	D5,A7
00022cb2 2e ba d7 b0              |.       |		MOVE.L	0x20464,(A7)
00022cb6 2f 3a d7 a8              |/:      |		MOVE.L	0x20460,-(A7)
00022cba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cbc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022cc0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022cc2 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022cc4 4e 92                    |N       |		JSR	(A2)
00022cc6 48 6e 00 19              |Hn      |		PEA.L	(A6+0x19)
00022cca 48 53                    |HS      |		PEA.L	(A3)
00022ccc 48 78 00 01              |Hx      |		PEA.L	0x1
00022cd0 4e 94                    |N       |		JSR	(A4)
00022cd2 de c2                    |        |		ADDA.W	D2,A7
00022cd4 48 78 00 04              |Hx      |		PEA.L	0x4
00022cd8 42 27                    |B'      |		CLR.B	-(A7)
00022cda 4e ba e7 32              |N  2    |		JSR	0x2140e
00022cde 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022ce0 20 4f                    | O      |		MOVEA.L	A7,A0
00022ce2 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022ce6 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022ce8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022cea 51 c8 ff fc              |Q       |		DBF	D0,0x22ce8
00022cee 4e ba f2 c8              |N       |		JSR	0x21fb8
00022cf2 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022cf6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022cfc 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00022d00 4e 5e                    |N^      |		UNLK	A6
00022d02 4e 75                    |Nu      |		RTS
00022d04 ; --------------------------------------------------------------------------------------
00022d04 ; OMSI PASCAL Function
00022d04 ;    <LVAR  0x020 4(r)>
00022d04 ;    <LVAR  0x01c 4(r)>
00022d04 ;    <LVAR  0x019 @>
00022d04 ;    <LVAR  0x010 @>
00022d04 ;    <LVAR  0x008 @>
00022d04 ; --------------------------------------------------------------------------------------
00022d04 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00022d08 bf d5                    |        |		CMPA.L	(A5),A7
00022d0a 62 06                    |b       |		BHI	0x22d12
00022d0c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d10 4e 76                    |Nv      |		TRAPV
00022d12 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00022d16 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00022d1a 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022d20 47 fa e6 ec              |G       |		LEA.L	0x2140e,A3
00022d24 49 f8 00 00              |I       |		LEA.L	0x0,A4
00022d28 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00022d2a 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022d2c 76 08                    |v       |		MOVEQ.L	#0x08,D3
00022d2e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022d30 20 4f                    | O      |		MOVEA.L	A7,A0
00022d32 43 fa d7 34              |C  4    |		LEA.L	0x20468,A1
00022d36 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022d38 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d3a 51 c8 ff fc              |Q       |		DBF	D0,0x22d38
00022d3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d44 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d46 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00022d4a 4e 92                    |N       |		JSR	(A2)
00022d4c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022d4e 2f 2e 00 20              |/.      |		MOVE.L	(A6+0x20),-(A7)
00022d52 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
00022d56 2f 3a d9 c4              |/:      |		MOVE.L	0x2071c,-(A7)
00022d5a 2f 3a d9 bc              |/:      |		MOVE.L	0x20718,-(A7)
00022d5e 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00022d64 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022d68 48 78 ff f9              |Hx      |		PEA.L	0xfffffff9
00022d6c 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00022d72 de c1                    |        |		ADDA.W	D1,A7
00022d74 48 78 00 02              |Hx      |		PEA.L	0x2
00022d78 42 27                    |B'      |		CLR.B	-(A7)
00022d7a 4e 93                    |N       |		JSR	(A3)
00022d7c de c1                    |        |		ADDA.W	D1,A7
00022d7e 20 4f                    | O      |		MOVEA.L	A7,A0
00022d80 43 fa d6 ec              |C       |		LEA.L	0x2046e,A1
00022d84 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022d86 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d88 51 c8 ff fc              |Q       |		DBF	D0,0x22d86
00022d8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d92 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d94 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022d98 4e 92                    |N       |		JSR	(A2)
00022d9a 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00022d9e 48 54                    |HT      |		PEA.L	(A4)
00022da0 48 78 00 07              |Hx      |		PEA.L	0x7
00022da4 4e ba e8 ba              |N       |		JSR	0x21660
00022da8 de c1                    |        |		ADDA.W	D1,A7
00022daa 48 78 00 10              |Hx      |		PEA.L	0x10
00022dae 42 27                    |B'      |		CLR.B	-(A7)
00022db0 4e 93                    |N       |		JSR	(A3)
00022db2 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022db6 2e ba d6 c6              |.       |		MOVE.L	0x2047e,(A7)
00022dba 2f 3a d6 be              |/:      |		MOVE.L	0x2047a,-(A7)
00022dbe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dc0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022dc4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022dc6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022dc8 4e 92                    |N       |		JSR	(A2)
00022dca 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
00022dce 48 54                    |HT      |		PEA.L	(A4)
00022dd0 48 78 00 07              |Hx      |		PEA.L	0x7
00022dd4 4e ba e8 8a              |N       |		JSR	0x21660
00022dd8 de c1                    |        |		ADDA.W	D1,A7
00022dda 48 78 00 10              |Hx      |		PEA.L	0x10
00022dde 42 27                    |B'      |		CLR.B	-(A7)
00022de0 4e 93                    |N       |		JSR	(A3)
00022de2 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022de6 2e ba d6 9e              |.       |		MOVE.L	0x20486,(A7)
00022dea 2f 3a d6 96              |/:      |		MOVE.L	0x20482,-(A7)
00022dee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022df0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022df4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022df6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022df8 4e 92                    |N       |		JSR	(A2)
00022dfa 48 6e 00 19              |Hn      |		PEA.L	(A6+0x19)
00022dfe 48 54                    |HT      |		PEA.L	(A4)
00022e00 48 78 00 01              |Hx      |		PEA.L	0x1
00022e04 4e ba e8 5a              |N  Z    |		JSR	0x21660
00022e08 de c1                    |        |		ADDA.W	D1,A7
00022e0a 48 78 00 04              |Hx      |		PEA.L	0x4
00022e0e 42 27                    |B'      |		CLR.B	-(A7)
00022e10 4e 93                    |N       |		JSR	(A3)
00022e12 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e14 20 4f                    | O      |		MOVEA.L	A7,A0
00022e16 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022e1a 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022e1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022e1e 51 c8 ff fc              |Q       |		DBF	D0,0x22e1c
00022e22 4e ba f1 94              |N       |		JSR	0x21fb8
00022e26 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022e2a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022e30 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00022e34 4e 5e                    |N^      |		UNLK	A6
00022e36 4e 75                    |Nu      |		RTS
00022e38 ; --------------------------------------------------------------------------------------
00022e38 ; OMSI PASCAL Function
00022e38 ;    <LVAR  0x026 @ 1(r)>
00022e38 ;    <LVAR  0x022 @ 4(r)>
00022e38 ;    <LVAR  0x01e @ 4(r)>
00022e38 ;    <LVAR  0x01c 1(r)>
00022e38 ;    <LVAR  0x018 4(r)>
00022e38 ;    <LVAR  0x014 4(r)>
00022e38 ;    <LVAR  0x010 4(r)>
00022e38 ;    <LVAR  0x00c 4(r)>
00022e38 ;    <LVAR  0x008 4(r)>
00022e38 ;    <LVAR -0x006 4(rw)>
00022e38 ;    <LVAR -0x00a 4(rw)>
00022e38 ; --------------------------------------------------------------------------------------
00022e38 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
00022e3c bf d5                    |        |		CMPA.L	(A5),A7
00022e3e 62 06                    |b       |		BHI	0x22e46
00022e40 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e44 4e 76                    |Nv      |		TRAPV
00022e46 de fc 00 70              |   p    |		ADDA.W	#0x70,A7
00022e4a 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00022e4e 47 f8 00 00              |G       |		LEA.L	0x0,A3
00022e52 49 fa e8 0c              |I       |		LEA.L	0x21660,A4
00022e56 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022e58 76 01                    |v       |		MOVEQ.L	#0x01,D3
00022e5a 7e 0f                    |~       |		MOVEQ.L	#0x0f,D7
00022e5c 10 07                    |        |		MOVE.B	D7,D0
00022e5e 48 80                    |H       |		EXTB.W	D0
00022e60 90 42                    | B      |		SUB.W	D2,D0
00022e62 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00022e66 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00022e6c 4a 30 00 13              |J0      |		TST.B	(A0+D0.W+#0x13)
00022e70 67 00 00 c6              |g       |		BEQ	0x22f38
00022e74 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00022e78 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00022e7c 24 6e 00 08              |$n      |		MOVEA.L	(A6+0x8),A2
00022e80 1f 07                    |        |		MOVE.B	D7,-(A7)
00022e82 1f 2e 00 26              | . &    |		MOVE.B	(A6+0x26),-(A7)
00022e86 2f 2e 00 22              |/. "    |		MOVE.L	(A6+0x22),-(A7)
00022e8a 2f 2e 00 1e              |/.      |		MOVE.L	(A6+0x1e),-(A7)
00022e8e 48 50                    |HP      |		PEA.L	(A0)
00022e90 48 51                    |HQ      |		PEA.L	(A1)
00022e92 48 52                    |HR      |		PEA.L	(A2)
00022e94 4e b9 00 02 4f 32        |N   O2  |		JSR	0x24f32
00022e9a de fc 00 18              |        |		ADDA.W	#0x18,A7
00022e9e 4a 10                    |J       |		TST.B	(A0)
00022ea0 67 00 00 96              |g       |		BEQ	0x22f38
00022ea4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022ea8 10 87                    |        |		MOVE.B	D7,(A0)
00022eaa 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00022eae 10 83                    |        |		MOVE.B	D3,(A0)
00022eb0 10 07                    |        |		MOVE.B	D7,D0
00022eb2 48 80                    |H       |		EXTB.W	D0
00022eb4 90 42                    | B      |		SUB.W	D2,D0
00022eb6 c1 fc 00 04              |        |		MULS.W	#0x4,D0
00022eba 42 81                    |B       |		CLR.L	D1
00022ebc 12 11                    |        |		MOVE.B	(A1),D1
00022ebe e8 41                    | A      |		ASR.W	#0x4,D1
00022ec0 48 c1                    |H       |		EXTW.L	D1
00022ec2 83 f9 00 02 51 32        |    Q2  |		DIVS.W	0x25132,D1
00022ec8 48 41                    |HA      |		SWAP.W	D1
00022eca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ecc d2 40                    | @      |		ADD.W	D0,D1
00022ece 48 c1                    |H       |		EXTW.L	D1
00022ed0 2f 01                    |/       |		MOVE.L	D1,-(A7)
00022ed2 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00022ed8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022eda 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00022ede 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00022ee2 4a 2e 00 1c              |J.      |		TST.B	(A6+0x1c)
00022ee6 67 4e                    |gN      |		BEQ	0x22f36
00022ee8 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00022eec 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00022ef0 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00022ef4 48 6e 00 26              |Hn &    |		PEA.L	(A6+0x26)
00022ef8 48 53                    |HS      |		PEA.L	(A3)
00022efa 48 53                    |HS      |		PEA.L	(A3)
00022efc 4e 94                    |N       |		JSR	(A4)
00022efe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f00 48 6e 00 22              |Hn "    |		PEA.L	(A6+0x22)
00022f04 48 53                    |HS      |		PEA.L	(A3)
00022f06 48 78 00 03              |Hx      |		PEA.L	0x3
00022f0a 4e 94                    |N       |		JSR	(A4)
00022f0c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f0e 48 6e 00 1e              |Hn      |		PEA.L	(A6+0x1e)
00022f12 48 53                    |HS      |		PEA.L	(A3)
00022f14 48 78 00 03              |Hx      |		PEA.L	0x3
00022f18 4e 94                    |N       |		JSR	(A4)
00022f1a de c2                    |        |		ADDA.W	D2,A7
00022f1c 4e ba f2 26              |N  &    |		JSR	0x22144
00022f20 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022f24 20 4f                    | O      |		MOVEA.L	A7,A0
00022f26 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022f28 10 da                    |        |		MOVE.B	(A2)+,(A0)+
00022f2a 51 c8 ff fc              |Q       |		DBF	D0,0x22f28
00022f2e 4e ba f7 b4              |N       |		JSR	0x226e4
00022f32 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022f36 60 3e                    |`>      |		BRA	0x22f76
00022f38 53 07                    |S       |		SUBQ.B	#0x1,D7
00022f3a be 02                    |        |		CMP.B	D2,D7
00022f3c 6c 00 ff 1e              |l       |		BGE	0x22e5c
00022f40 41 fa d5 6a              |A  j    |		LEA.L	0x204ac,A0
00022f44 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022f46 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f48 51 c8 ff fc              |Q       |		DBF	D0,0x22f46
00022f4c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f4e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f52 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022f54 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00022f58 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f60 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022f66 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00022f6a 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00022f6e 42 10                    |B       |		CLR.B	(A0)
00022f70 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022f74 10 82                    |        |		MOVE.B	D2,(A0)
00022f76 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
00022f7a 4e 5e                    |N^      |		UNLK	A6
00022f7c 4e 75                    |Nu      |		RTS
00022f7e ; --------------------------------------------------------------------------------------
00022f7e ; OMSI PASCAL Function
00022f7e ;    <LVAR  0x008 4(r)>
00022f7e ;    <LVAR -0x019 @>
00022f7e ;    <LVAR -0x022 @>
00022f7e ;    <LVAR -0x023 @ 1(r)>
00022f7e ;    <LVAR -0x024 1(w)>
00022f7e ;    <LVAR -0x025 @ 1(r)>
00022f7e ;    <LVAR -0x026 @ 1(r)>
00022f7e ;    <LVAR -0x027 @ 1(r)>
00022f7e ;    <LVAR -0x028 1(rw)>
00022f7e ;    <LVAR -0x029 1(rw)>
00022f7e ;    <LVAR -0x02a 1(rw)>
00022f7e ;    <LVAR -0x02b 1(rw)>
00022f7e ;    <LVAR -0x02c 1(rw)>
00022f7e ;    <LVAR -0x02d 1(rw)>
00022f7e ;    <LVAR -0x02e 1(rw)>
00022f7e ;    <LVAR -0x02f 1(rw)>
00022f7e ;    <LVAR -0x030 1(rw)>
00022f7e ;    <LVAR -0x034 4(rw)>
00022f7e ;    <LVAR -0x038 4(rw)>
00022f7e ;    <LVAR -0x03c 4(rw)>
00022f7e ;    <LVAR -0x040 4(rw)>
00022f7e ;    <LVAR -0x044 4(rw)>
00022f7e ;    <LVAR -0x048 4(rw)>
00022f7e ;    <LVAR -0x04c 4(rw)>
00022f7e ;    <LVAR -0x050 4(rw)>
00022f7e ; --------------------------------------------------------------------------------------
00022f7e 4e 56 ff 50              |NV P    |		LINK.W	A6,#0xff50
00022f82 bf d5                    |        |		CMPA.L	(A5),A7
00022f84 62 06                    |b       |		BHI	0x22f8c
00022f86 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f8a 4e 76                    |Nv      |		TRAPV
00022f8c de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00022f90 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022f94 47 ee ff c0              |G       |		LEA.L	(A6-0x40),A3
00022f98 49 ee ff c4              |I       |		LEA.L	(A6-0x3c),A4
00022f9c 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00022f9e 7c 0b                    ||       |		MOVEQ.L	#0x0b,D6
00022fa0 42 2e ff da              |B.      |		CLR.B	(A6-0x26)
00022fa4 42 2e ff d9              |B.      |		CLR.B	(A6-0x27)
00022fa8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022fac 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022fb0 22 4f                    |"O      |		MOVEA.L	A7,A1
00022fb2 45 fa d4 f8              |E       |		LEA.L	0x204ac,A2
00022fb6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022fb8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022fba 51 c8 ff fc              |Q       |		DBF	D0,0x22fb8
00022fbe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022fc0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00022fc2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fc4 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022fc8 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022fca 3f 06                    |?       |		MOVE.W	D6,-(A7)
00022fcc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022fd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fd4 4e ba e5 96              |N       |		JSR	0x2156c
00022fd8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fda 2d 5f ff b0              |-_      |		MOVE.L	(A7)+,(A6-0x50)
00022fde 2d 5f ff b4              |-_      |		MOVE.L	(A7)+,(A6-0x4c)
00022fe2 22 4f                    |"O      |		MOVEA.L	A7,A1
00022fe4 45 fa d4 d2              |E       |		LEA.L	0x204b8,A2
00022fe8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022fea 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022fec 51 c8 ff fc              |Q       |		DBF	D0,0x22fea
00022ff0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ff2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00022ff4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ff6 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022ffa 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022ffc 3f 06                    |?       |		MOVE.W	D6,-(A7)
00022ffe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023004 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023006 4e ba e5 64              |N  d    |		JSR	0x2156c
0002300a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002300c 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00023010 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
00023014 22 4f                    |"O      |		MOVEA.L	A7,A1
00023016 45 fa d4 ac              |E       |		LEA.L	0x204c4,A2
0002301a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002301c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002301e 51 c8 ff fc              |Q       |		DBF	D0,0x2301c
00023022 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023024 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023026 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023028 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002302c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002302e 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023030 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023036 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023038 4e ba e5 32              |N  2    |		JSR	0x2156c
0002303c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002303e 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00023040 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00023042 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023044 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023046 2f 3a d6 e4              |/:      |		MOVE.L	0x2072c,-(A7)
0002304a 2f 3a d6 dc              |/:      |		MOVE.L	0x20728,-(A7)
0002304e 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00023054 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023058 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002305a 28 97                    |(       |		MOVE.L	(A7),(A4)
0002305c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002305e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023060 4e ba e5 8a              |N       |		JSR	0x215ec
00023064 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023066 2d 5f ff c8              |-_      |		MOVE.L	(A7)+,(A6-0x38)
0002306a 2d 57 ff cc              |-W      |		MOVE.L	(A7),(A6-0x34)
0002306e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023070 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
00023074 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00023078 4e ba e6 80              |N       |		JSR	0x216fa
0002307c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002307e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00023080 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00023084 1d 40 ff d0              | @      |		MOVE.B	D0,(A6-0x30)
00023088 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002308a 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
0002308e 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
00023092 4e ba e7 fc              |N       |		JSR	0x21890
00023096 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023098 1d 57 ff d1              | W      |		MOVE.B	(A7),(A6-0x2f)
0002309c 1d 6f 00 01 ff d2        | o      |		MOVE.B	(A7+0x1),(A6-0x2e)
000230a2 1d 6f 00 02 ff d3        | o      |		MOVE.B	(A7+0x2),(A6-0x2d)
000230a8 1d 6f 00 03 ff d4        | o      |		MOVE.B	(A7+0x3),(A6-0x2c)
000230ae 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000230b0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000230b2 4e ba e7 dc              |N       |		JSR	0x21890
000230b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230b8 1d 57 ff d5              | W      |		MOVE.B	(A7),(A6-0x2b)
000230bc 1d 6f 00 01 ff d6        | o      |		MOVE.B	(A7+0x1),(A6-0x2a)
000230c2 1d 6f 00 02 ff d7        | o      |		MOVE.B	(A7+0x2),(A6-0x29)
000230c8 1d 6f 00 03 ff d8        | o      |		MOVE.B	(A7+0x3),(A6-0x28)
000230ce 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
000230d2 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
000230d6 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000230dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230de 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000230e0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000230e2 be 97                    |        |		CMP.L	(A7),D7
000230e4 6e 00 01 98              |n       |		BGT	0x2327e
000230e8 28 07                    |(       |		MOVE.L	D7,D4
000230ea 76 10                    |v       |		MOVEQ.L	#0x10,D3
000230ec 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000230f2 4a 83                    |J       |		TST.L	D3
000230f4 66 32                    |f2      |		BNE	0x23128
000230f6 4a 87                    |J       |		TST.L	D7
000230f8 67 2e                    |g.      |		BEQ	0x23128
000230fa 2f 3a d3 d4              |/:      |		MOVE.L	0x204d0,-(A7)
000230fe 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023100 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023104 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023106 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002310a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023110 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023112 42 17                    |B       |		CLR.B	(A7)
00023114 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002311a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002311c 4a 1f                    |J       |		TST.B	(A7)+
0002311e 66 06                    |f       |		BNE	0x23126
00023120 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023122 60 00 01 5c              |`  \    |		BRA	0x23280
00023126 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023128 4a 87                    |J       |		TST.L	D7
0002312a 67 3e                    |g>      |		BEQ	0x2316a
0002312c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002312e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023130 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023132 2f 3a d5 f0              |/:      |		MOVE.L	0x20724,-(A7)
00023136 2f 3a d5 e8              |/:      |		MOVE.L	0x20720,-(A7)
0002313a 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00023140 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023144 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00023146 28 97                    |(       |		MOVE.L	(A7),(A4)
00023148 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002314a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002314c 4e ba e7 42              |N  B    |		JSR	0x21890
00023150 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023152 1d 57 ff d5              | W      |		MOVE.B	(A7),(A6-0x2b)
00023156 1d 6f 00 01 ff d6        | o      |		MOVE.B	(A7+0x1),(A6-0x2a)
0002315c 1d 6f 00 02 ff d7        | o      |		MOVE.B	(A7+0x2),(A6-0x29)
00023162 1d 6f 00 03 ff d8        | o      |		MOVE.B	(A7+0x3),(A6-0x28)
00023168 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002316a 4a 87                    |J       |		TST.L	D7
0002316c 67 10                    |g       |		BEQ	0x2317e
0002316e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023170 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023172 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023174 4e ba e9 b0              |N       |		JSR	0x21b26
00023178 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002317a 4a 1f                    |J       |		TST.B	(A7)+
0002317c 67 52                    |gR      |		BEQ	0x231d0
0002317e 1f 2e ff d0              | .      |		MOVE.B	(A6-0x30),-(A7)
00023182 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023184 1e ae ff d1              |        |		MOVE.B	(A6-0x2f),(A7)
00023188 1f 6e ff d2 00 01        | n      |		MOVE.B	(A6-0x2e),(A7+0x1)
0002318e 1f 6e ff d3 00 02        | n      |		MOVE.B	(A6-0x2d),(A7+0x2)
00023194 1f 6e ff d4 00 03        | n      |		MOVE.B	(A6-0x2c),(A7+0x3)
0002319a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002319c 1e ae ff d5              |        |		MOVE.B	(A6-0x2b),(A7)
000231a0 1f 6e ff d6 00 01        | n      |		MOVE.B	(A6-0x2a),(A7+0x1)
000231a6 1f 6e ff d7 00 02        | n      |		MOVE.B	(A6-0x29),(A7+0x2)
000231ac 1f 6e ff d8 00 03        | n      |		MOVE.B	(A6-0x28),(A7+0x3)
000231b2 1f 05                    |        |		MOVE.B	D5,-(A7)
000231b4 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
000231b8 48 6e ff d9              |Hn      |		PEA.L	(A6-0x27)
000231bc 48 6e ff db              |Hn      |		PEA.L	(A6-0x25)
000231c0 48 6e ff dd              |Hn      |		PEA.L	(A6-0x23)
000231c4 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
000231c8 4e ba fc 6e              |N  n    |		JSR	0x22e38
000231cc de fc 00 20              |        |		ADDA.W	#0x20,A7
000231d0 4a 2e ff da              |J.      |		TST.B	(A6-0x26)
000231d4 67 00 00 a2              |g       |		BEQ	0x23278
000231d8 4a 2e ff d9              |J.      |		TST.B	(A6-0x27)
000231dc 67 00 00 9a              |g       |		BEQ	0x23278
000231e0 42 80                    |B       |		CLR.L	D0
000231e2 10 2e ff dd              | .      |		MOVE.B	(A6-0x23),D0
000231e6 e8 40                    | @      |		ASR.W	#0x4,D0
000231e8 48 c0                    |H       |		EXTW.L	D0
000231ea 81 f9 00 02 51 32        |    Q2  |		DIVS.W	0x25132,D0
000231f0 48 40                    |H@      |		SWAP.W	D0
000231f2 12 2e ff db              | .      |		MOVE.B	(A6-0x25),D1
000231f6 48 81                    |H       |		EXTB.W	D1
000231f8 34 01                    |4       |		MOVE.W	D1,D2
000231fa 04 42 00 0c              | B      |		SUBI.W	#0x000c,D2
000231fe c5 fc 00 04              |        |		MULS.W	#0x4,D2
00023202 d0 42                    | B      |		ADD.W	D2,D0
00023204 c1 fc 00 10              |        |		MULS.W	#0x10,D0
00023208 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002320c 1d 40 ff dc              | @      |		MOVE.B	D0,(A6-0x24)
00023210 43 bc 00 0f              |C       |		CHK.W	#0xf,D1
00023214 1f 01                    |        |		MOVE.B	D1,-(A7)
00023216 1f 00                    |        |		MOVE.B	D0,-(A7)
00023218 1f 2e ff d0              | .      |		MOVE.B	(A6-0x30),-(A7)
0002321c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002321e 1e ae ff d1              |        |		MOVE.B	(A6-0x2f),(A7)
00023222 1f 6e ff d2 00 01        | n      |		MOVE.B	(A6-0x2e),(A7+0x1)
00023228 1f 6e ff d3 00 02        | n      |		MOVE.B	(A6-0x2d),(A7+0x2)
0002322e 1f 6e ff d4 00 03        | n      |		MOVE.B	(A6-0x2c),(A7+0x3)
00023234 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023236 1e ae ff d5              |        |		MOVE.B	(A6-0x2b),(A7)
0002323a 1f 6e ff d6 00 01        | n      |		MOVE.B	(A6-0x2a),(A7+0x1)
00023240 1f 6e ff d7 00 02        | n      |		MOVE.B	(A6-0x29),(A7+0x2)
00023246 1f 6e ff d8 00 03        | n      |		MOVE.B	(A6-0x28),(A7+0x3)
0002324c 48 6e ff e7              |Hn      |		PEA.L	(A6-0x19)
00023250 4e b9 00 02 4c 90        |N   L   |		JSR	0x24c90
00023256 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002325a 2e 94                    |.       |		MOVE.L	(A4),(A7)
0002325c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002325e 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00023262 20 4f                    | O      |		MOVEA.L	A7,A0
00023264 43 ee ff e7              |C       |		LEA.L	(A6-0x19),A1
00023268 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002326a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002326c 51 c8 ff fc              |Q       |		DBF	D0,0x2326a
00023270 4e ba fa 92              |N       |		JSR	0x22d04
00023274 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00023278 52 87                    |R       |		ADDQ.L	#0x1,D7
0002327a 68 00 fe 66              |h  f    |		BVC	0x230e2
0002327e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023280 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023284 4e 5e                    |N^      |		UNLK	A6
00023286 4e 75                    |Nu      |		RTS
00023288 ; --------------------------------------------------------------------------------------
00023288 ; OMSI PASCAL Function
00023288 ;    <LVAR  0x008 4(r)>
00023288 ;    <LVAR -0x017 @>
00023288 ;    <LVAR -0x018 1(w)>
00023288 ;    <LVAR -0x01a 2(rw)>
00023288 ;    <LVAR -0x01b 1(rw)>
00023288 ;    <LVAR -0x020 4(rw)>
00023288 ;    <LVAR -0x024 4(rw)>
00023288 ;    <LVAR -0x028 4(rw)>
00023288 ;    <LVAR -0x02c 4(rw)>
00023288 ;    <LVAR -0x030 4(rw)>
00023288 ;    <LVAR -0x034 4(rw)>
00023288 ;    <LVAR -0x038 4(rw)>
00023288 ;    <LVAR -0x03c 4(rw)>
00023288 ; --------------------------------------------------------------------------------------
00023288 4e 56 ff 5c              |NV \    |		LINK.W	A6,#0xff5c
0002328c bf d5                    |        |		CMPA.L	(A5),A7
0002328e 62 06                    |b       |		BHI	0x23296
00023290 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023294 4e 76                    |Nv      |		TRAPV
00023296 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
0002329a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002329e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000232a4 49 fa e2 c6              |I       |		LEA.L	0x2156c,A4
000232a8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000232aa 74 07                    |t       |		MOVEQ.L	#0x07,D2
000232ac 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
000232ae 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000232b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232b4 22 4f                    |"O      |		MOVEA.L	A7,A1
000232b6 45 fa d2 1c              |E       |		LEA.L	0x204d4,A2
000232ba 70 06                    |p       |		MOVEQ.L	#0x06,D0
000232bc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000232be 51 c8 ff fc              |Q       |		DBF	D0,0x232bc
000232c2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232c4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000232c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232c8 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000232cc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232ce 3f 02                    |?       |		MOVE.W	D2,-(A7)
000232d0 4e 93                    |N       |		JSR	(A3)
000232d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232d4 4e 94                    |N       |		JSR	(A4)
000232d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232d8 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
000232dc 2d 5f ff c8              |-_      |		MOVE.L	(A7)+,(A6-0x38)
000232e0 22 4f                    |"O      |		MOVEA.L	A7,A1
000232e2 45 fa d1 f8              |E       |		LEA.L	0x204dc,A2
000232e6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000232e8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000232ea 51 c8 ff fc              |Q       |		DBF	D0,0x232e8
000232ee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232f0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000232f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232f4 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000232f8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232fa 3f 02                    |?       |		MOVE.W	D2,-(A7)
000232fc 4e 93                    |N       |		JSR	(A3)
000232fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023300 4e 94                    |N       |		JSR	(A4)
00023302 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023304 2d 5f ff cc              |-_      |		MOVE.L	(A7)+,(A6-0x34)
00023308 2d 5f ff d0              |-_      |		MOVE.L	(A7)+,(A6-0x30)
0002330c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002330e 45 fa d1 d4              |E       |		LEA.L	0x204e4,A2
00023312 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023314 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023316 51 c8 ff fc              |Q       |		DBF	D0,0x23314
0002331a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002331c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002331e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023320 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023324 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023326 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023328 4e 93                    |N       |		JSR	(A3)
0002332a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002332c 4e 94                    |N       |		JSR	(A4)
0002332e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023330 2d 5f ff d4              |-_      |		MOVE.L	(A7)+,(A6-0x2c)
00023334 2d 5f ff d8              |-_      |		MOVE.L	(A7)+,(A6-0x28)
00023338 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002333a 4e ba e2 b0              |N       |		JSR	0x215ec
0002333e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023340 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
00023344 2d 57 ff e0              |-W      |		MOVE.L	(A7),(A6-0x20)
00023348 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002334a 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
0002334e 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00023352 4e ba e6 f6              |N       |		JSR	0x21a4a
00023356 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023358 10 1f                    |        |		MOVE.B	(A7)+,D0
0002335a 48 80                    |H       |		EXTB.W	D0
0002335c 90 45                    | E      |		SUB.W	D5,D0
0002335e 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00023362 d0 45                    | E      |		ADD.W	D5,D0
00023364 1c 00                    |        |		MOVE.B	D0,D6
00023366 10 06                    |        |		MOVE.B	D6,D0
00023368 48 80                    |H       |		EXTB.W	D0
0002336a 90 45                    | E      |		SUB.W	D5,D0
0002336c 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00023370 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00023376 4a 30 00 13              |J0      |		TST.B	(A0+D0.W+#0x13)
0002337a 66 2a                    |f*      |		BNE	0x233a6
0002337c 41 fa d1 88              |A       |		LEA.L	0x20506,A0
00023380 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023382 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023384 51 c8 ff fc              |Q       |		DBF	D0,0x23382
00023388 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002338a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002338e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023390 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00023394 4e 93                    |N       |		JSR	(A3)
00023396 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023398 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002339e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000233a2 60 00 01 1e              |`       |		BRA	0x234c2
000233a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000233a8 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
000233ac 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
000233b0 4e ba e3 48              |N  H    |		JSR	0x216fa
000233b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233b6 30 1f                    |0       |		MOVE.W	(A7)+,D0
000233b8 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000233bc 1d 40 ff e5              | @      |		MOVE.B	D0,(A6-0x1b)
000233c0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000233c2 2f 2e ff d0              |/.      |		MOVE.L	(A6-0x30),-(A7)
000233c6 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
000233ca 4e ba e3 ee              |N       |		JSR	0x217ba
000233ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233d0 3d 57 ff e6              |=W      |		MOVE.W	(A7),(A6-0x1a)
000233d4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000233d6 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
000233da 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
000233de 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000233e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233e6 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000233e8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000233ea be 97                    |        |		CMP.L	(A7),D7
000233ec 6e 00 00 d2              |n       |		BGT	0x234c0
000233f0 28 07                    |(       |		MOVE.L	D7,D4
000233f2 76 10                    |v       |		MOVEQ.L	#0x10,D3
000233f4 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000233fa 4a 83                    |J       |		TST.L	D3
000233fc 66 32                    |f2      |		BNE	0x23430
000233fe 4a 87                    |J       |		TST.L	D7
00023400 67 2e                    |g.      |		BEQ	0x23430
00023402 2f 3a d1 02              |/:      |		MOVE.L	0x20506,-(A7)
00023406 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023408 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002340c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002340e 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00023412 4e 93                    |N       |		JSR	(A3)
00023414 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023416 42 17                    |B       |		CLR.B	(A7)
00023418 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002341e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023420 4a 1f                    |J       |		TST.B	(A7)+
00023422 66 06                    |f       |		BNE	0x2342a
00023424 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023426 60 00 00 9a              |`       |		BRA	0x234c2
0002342a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002342c 60 00 00 8c              |`       |		BRA	0x234ba
00023430 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023434 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00023438 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
0002343c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002343e 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023440 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00023446 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023448 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
0002344e de fc 00 10              |        |		ADDA.W	#0x10,A7
00023452 4e ba e2 a6              |N       |		JSR	0x216fa
00023456 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023458 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002345a 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002345e 1d 40 ff e8              | @      |		MOVE.B	D0,(A6-0x18)
00023462 1f 06                    |        |		MOVE.B	D6,-(A7)
00023464 1f 2e ff e5              | .      |		MOVE.B	(A6-0x1b),-(A7)
00023468 3f 2e ff e6              |?.      |		MOVE.W	(A6-0x1a),-(A7)
0002346c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002346e 48 6e ff e9              |Hn      |		PEA.L	(A6-0x17)
00023472 4e b9 00 02 4d ec        |N   M   |		JSR	0x24dec
00023478 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002347a 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
0002347e 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00023482 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023484 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023486 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
0002348c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002348e 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00023494 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023498 48 78 00 07              |Hx      |		PEA.L	0x7
0002349c 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
000234a2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000234a4 20 4f                    | O      |		MOVEA.L	A7,A0
000234a6 43 ee ff e9              |C       |		LEA.L	(A6-0x17),A1
000234aa 70 12                    |p       |		MOVEQ.L	#0x12,D0
000234ac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000234ae 51 c8 ff fc              |Q       |		DBF	D0,0x234ac
000234b2 4e ba f8 50              |N  P    |		JSR	0x22d04
000234b6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000234ba 52 87                    |R       |		ADDQ.L	#0x1,D7
000234bc 68 00 ff 2c              |h  ,    |		BVC	0x233ea
000234c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234c2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000234c6 4e 5e                    |N^      |		UNLK	A6
000234c8 4e 75                    |Nu      |		RTS
000234ca ; --------------------------------------------------------------------------------------
000234ca ; OMSI PASCAL Function
000234ca ;    <LVAR  0x008 4(r)>
000234ca ;    <LVAR -0x008 2(w)>
000234ca ;    <LVAR -0x009 1(r)>
000234ca ;    <LVAR -0x011 @>
000234ca ;    <LVAR -0x019 @>
000234ca ;    <LVAR -0x022 @>
000234ca ;    <LVAR -0x023 @ 1(r)>
000234ca ;    <LVAR -0x024 1(w)>
000234ca ;    <LVAR -0x025 @ 1(r)>
000234ca ;    <LVAR -0x026 @ 1(r)>
000234ca ;    <LVAR -0x027 @ 1(r)>
000234ca ;    <LVAR -0x028 1(rw)>
000234ca ;    <LVAR -0x029 1(rw)>
000234ca ;    <LVAR -0x02a 1(rw)>
000234ca ;    <LVAR -0x02b 1(rw)>
000234ca ;    <LVAR -0x02c 1(rw)>
000234ca ;    <LVAR -0x02d 1(rw)>
000234ca ;    <LVAR -0x02e 1(rw)>
000234ca ;    <LVAR -0x02f 1(rw)>
000234ca ;    <LVAR -0x030 1(w)>
000234ca ;    <LVAR -0x034 4(rw)>
000234ca ;    <LVAR -0x038 4(rw)>
000234ca ;    <LVAR -0x03c 4(rw)>
000234ca ;    <LVAR -0x040 4(rw)>
000234ca ;    <LVAR -0x044 4(rw)>
000234ca ;    <LVAR -0x048 4(rw)>
000234ca ;    <LVAR -0x04c 4(rw)>
000234ca ;    <LVAR -0x050 4(rw)>
000234ca ;    <LVAR -0x054 4(rw)>
000234ca ;    <LVAR -0x058 4(rw)>
000234ca ; --------------------------------------------------------------------------------------
000234ca 4e 56 ff 46              |NV F    |		LINK.W	A6,#0xff46
000234ce bf d5                    |        |		CMPA.L	(A5),A7
000234d0 62 06                    |b       |		BHI	0x234d8
000234d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000234d6 4e 76                    |Nv      |		TRAPV
000234d8 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
000234dc 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000234e0 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000234e6 49 fa e0 84              |I       |		LEA.L	0x2156c,A4
000234ea 78 01                    |x       |		MOVEQ.L	#0x01,D4
000234ec 7a 0b                    |z       |		MOVEQ.L	#0x0b,D5
000234ee 7c 10                    ||       |		MOVEQ.L	#0x10,D6
000234f0 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000234f2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000234f6 9e c7                    |        |		SUBA.W	D7,A7
000234f8 22 4f                    |"O      |		MOVEA.L	A7,A1
000234fa 45 fa d0 0e              |E       |		LEA.L	0x2050a,A2
000234fe 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023500 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023502 51 c8 ff fc              |Q       |		DBF	D0,0x23500
00023506 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023508 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002350a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002350c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023510 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023512 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023514 4e 93                    |N       |		JSR	(A3)
00023516 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023518 4e 94                    |N       |		JSR	(A4)
0002351a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002351c 2d 5f ff a8              |-_      |		MOVE.L	(A7)+,(A6-0x58)
00023520 2d 5f ff ac              |-_      |		MOVE.L	(A7)+,(A6-0x54)
00023524 22 4f                    |"O      |		MOVEA.L	A7,A1
00023526 45 fa cf ee              |E       |		LEA.L	0x20516,A2
0002352a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002352c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002352e 51 c8 ff fc              |Q       |		DBF	D0,0x2352c
00023532 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023534 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023536 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023538 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002353c 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002353e 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023540 4e 93                    |N       |		JSR	(A3)
00023542 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023544 4e 94                    |N       |		JSR	(A4)
00023546 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023548 2d 5f ff b0              |-_      |		MOVE.L	(A7)+,(A6-0x50)
0002354c 2d 5f ff b4              |-_      |		MOVE.L	(A7)+,(A6-0x4c)
00023550 22 4f                    |"O      |		MOVEA.L	A7,A1
00023552 45 fa cf ce              |E       |		LEA.L	0x20522,A2
00023556 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023558 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002355a 51 c8 ff fc              |Q       |		DBF	D0,0x23558
0002355e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023560 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023562 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023564 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023568 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002356a 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002356c 4e 93                    |N       |		JSR	(A3)
0002356e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023570 4e 94                    |N       |		JSR	(A4)
00023572 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023574 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00023578 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
0002357c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002357e 45 fa cf ae              |E       |		LEA.L	0x2052e,A2
00023582 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023584 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023586 51 c8 ff fc              |Q       |		DBF	D0,0x23584
0002358a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002358c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002358e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023590 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023594 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023596 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023598 4e 93                    |N       |		JSR	(A3)
0002359a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002359c 4e 94                    |N       |		JSR	(A4)
0002359e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235a0 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
000235a4 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
000235a8 22 4f                    |"O      |		MOVEA.L	A7,A1
000235aa 45 fa cf 8e              |E       |		LEA.L	0x2053a,A2
000235ae 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000235b0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000235b2 51 c8 ff fc              |Q       |		DBF	D0,0x235b0
000235b6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000235b8 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000235ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000235bc 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000235c0 3f 04                    |?       |		MOVE.W	D4,-(A7)
000235c2 3f 05                    |?       |		MOVE.W	D5,-(A7)
000235c4 4e 93                    |N       |		JSR	(A3)
000235c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235c8 4e 94                    |N       |		JSR	(A4)
000235ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235cc 2d 5f ff c8              |-_      |		MOVE.L	(A7)+,(A6-0x38)
000235d0 2d 5f ff cc              |-_      |		MOVE.L	(A7)+,(A6-0x34)
000235d4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000235d6 2e ae ff ac              |.       |		MOVE.L	(A6-0x54),(A7)
000235da 2f 2e ff a8              |/.      |		MOVE.L	(A6-0x58),-(A7)
000235de 4e ba e1 1a              |N       |		JSR	0x216fa
000235e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235e4 30 1f                    |0       |		MOVE.W	(A7)+,D0
000235e6 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000235ea 1d 40 ff d0              | @      |		MOVE.B	D0,(A6-0x30)
000235ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000235f0 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
000235f4 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
000235f8 4e ba e2 96              |N       |		JSR	0x21890
000235fc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235fe 1d 57 ff d1              | W      |		MOVE.B	(A7),(A6-0x2f)
00023602 1d 6f 00 01 ff d2        | o      |		MOVE.B	(A7+0x1),(A6-0x2e)
00023608 1d 6f 00 02 ff d3        | o      |		MOVE.B	(A7+0x2),(A6-0x2d)
0002360e 1d 6f 00 03 ff d4        | o      |		MOVE.B	(A7+0x3),(A6-0x2c)
00023614 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023616 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
0002361a 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
0002361e 2f 3a d1 0c              |/:      |		MOVE.L	0x2072c,-(A7)
00023622 2f 3a d1 04              |/:      |		MOVE.L	0x20728,-(A7)
00023626 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
0002362c de c6                    |        |		ADDA.W	D6,A7
0002362e 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00023632 2d 57 ff bc              |-W      |		MOVE.L	(A7),(A6-0x44)
00023636 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
0002363a 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
0002363e 4e ba e2 50              |N  P    |		JSR	0x21890
00023642 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023644 1d 57 ff d5              | W      |		MOVE.B	(A7),(A6-0x2b)
00023648 1d 6f 00 01 ff d6        | o      |		MOVE.B	(A7+0x1),(A6-0x2a)
0002364e 1d 6f 00 02 ff d7        | o      |		MOVE.B	(A7+0x2),(A6-0x29)
00023654 1d 6f 00 03 ff d8        | o      |		MOVE.B	(A7+0x3),(A6-0x28)
0002365a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002365c 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00023660 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00023664 4e ba e3 04              |N       |		JSR	0x2196a
00023668 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002366a 41 ee ff e7              |A       |		LEA.L	(A6-0x19),A0
0002366e 22 4f                    |"O      |		MOVEA.L	A7,A1
00023670 72 07                    |r       |		MOVEQ.L	#0x07,D1
00023672 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023674 51 c9 ff fc              |Q       |		DBF	D1,0x23672
00023678 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
0002367c 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
00023680 4e ba e2 e8              |N       |		JSR	0x2196a
00023684 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023686 41 ee ff ef              |A       |		LEA.L	(A6-0x11),A0
0002368a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002368c 72 07                    |r       |		MOVEQ.L	#0x07,D1
0002368e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023690 51 c9 ff fc              |Q       |		DBF	D1,0x2368e
00023694 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023696 42 2e ff f7              |B.      |		CLR.B	(A6-0x9)
0002369a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002369e 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
000236a2 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
000236a6 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
000236aa 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
000236ae 4e ba e6 da              |N       |		JSR	0x21d8a
000236b2 de c6                    |        |		ADDA.W	D6,A7
000236b4 4e ba e1 04              |N       |		JSR	0x217ba
000236b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000236ba 3d 5f ff f8              |=_      |		MOVE.W	(A7)+,(A6-0x8)
000236be 1f 00                    |        |		MOVE.B	D0,-(A7)
000236c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000236c2 1e ae ff d1              |        |		MOVE.B	(A6-0x2f),(A7)
000236c6 1f 6e ff d2 00 01        | n      |		MOVE.B	(A6-0x2e),(A7+0x1)
000236cc 1f 6e ff d3 00 02        | n      |		MOVE.B	(A6-0x2d),(A7+0x2)
000236d2 1f 6e ff d4 00 03        | n      |		MOVE.B	(A6-0x2c),(A7+0x3)
000236d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000236da 1e ae ff d5              |        |		MOVE.B	(A6-0x2b),(A7)
000236de 1f 6e ff d6 00 01        | n      |		MOVE.B	(A6-0x2a),(A7+0x1)
000236e4 1f 6e ff d7 00 02        | n      |		MOVE.B	(A6-0x29),(A7+0x2)
000236ea 1f 6e ff d8 00 03        | n      |		MOVE.B	(A6-0x28),(A7+0x3)
000236f0 1f 04                    |        |		MOVE.B	D4,-(A7)
000236f2 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
000236f6 48 6e ff d9              |Hn      |		PEA.L	(A6-0x27)
000236fa 48 6e ff db              |Hn      |		PEA.L	(A6-0x25)
000236fe 48 6e ff dd              |Hn      |		PEA.L	(A6-0x23)
00023702 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
00023706 4e ba f7 30              |N  0    |		JSR	0x22e38
0002370a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002370e 4a 2e ff da              |J.      |		TST.B	(A6-0x26)
00023712 67 00 00 c8              |g       |		BEQ	0x237dc
00023716 4a 2e ff d9              |J.      |		TST.B	(A6-0x27)
0002371a 67 00 00 c0              |g       |		BEQ	0x237dc
0002371e 42 81                    |B       |		CLR.L	D1
00023720 12 2e ff dd              | .      |		MOVE.B	(A6-0x23),D1
00023724 e8 41                    | A      |		ASR.W	#0x4,D1
00023726 48 c1                    |H       |		EXTW.L	D1
00023728 83 f9 00 02 51 32        |    Q2  |		DIVS.W	0x25132,D1
0002372e 48 41                    |HA      |		SWAP.W	D1
00023730 14 2e ff db              | .      |		MOVE.B	(A6-0x25),D2
00023734 48 82                    |H       |		EXTB.W	D2
00023736 36 02                    |6       |		MOVE.W	D2,D3
00023738 96 47                    | G      |		SUB.W	D7,D3
0002373a c7 fc 00 04              |        |		MULS.W	#0x4,D3
0002373e d2 43                    | C      |		ADD.W	D3,D1
00023740 c3 c6                    |        |		MULS.W	D6,D1
00023742 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023746 1d 41 ff dc              | A      |		MOVE.B	D1,(A6-0x24)
0002374a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002374c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002374e 1f 00                    |        |		MOVE.B	D0,-(A7)
00023750 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023752 1e ae ff d1              |        |		MOVE.B	(A6-0x2f),(A7)
00023756 1f 6e ff d2 00 01        | n      |		MOVE.B	(A6-0x2e),(A7+0x1)
0002375c 1f 6e ff d3 00 02        | n      |		MOVE.B	(A6-0x2d),(A7+0x2)
00023762 1f 6e ff d4 00 03        | n      |		MOVE.B	(A6-0x2c),(A7+0x3)
00023768 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002376a 1e ae ff d5              |        |		MOVE.B	(A6-0x2b),(A7)
0002376e 1f 6e ff d6 00 01        | n      |		MOVE.B	(A6-0x2a),(A7+0x1)
00023774 1f 6e ff d7 00 02        | n      |		MOVE.B	(A6-0x29),(A7+0x2)
0002377a 1f 6e ff d8 00 03        | n      |		MOVE.B	(A6-0x28),(A7+0x3)
00023780 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00023784 20 4f                    | O      |		MOVEA.L	A7,A0
00023786 43 ee ff e7              |C       |		LEA.L	(A6-0x19),A1
0002378a 76 12                    |v       |		MOVEQ.L	#0x12,D3
0002378c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002378e 51 cb ff fc              |Q       |		DBF	D3,0x2378c
00023792 4e b9 00 02 46 b6        |N   F   |		JSR	0x246b6
00023798 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002379c 1e 82                    |        |		MOVE.B	D2,(A7)
0002379e 1f 01                    |        |		MOVE.B	D1,-(A7)
000237a0 1f 00                    |        |		MOVE.B	D0,-(A7)
000237a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000237a4 1e ae ff d1              |        |		MOVE.B	(A6-0x2f),(A7)
000237a8 1f 6e ff d2 00 01        | n      |		MOVE.B	(A6-0x2e),(A7+0x1)
000237ae 1f 6e ff d3 00 02        | n      |		MOVE.B	(A6-0x2d),(A7+0x2)
000237b4 1f 6e ff d4 00 03        | n      |		MOVE.B	(A6-0x2c),(A7+0x3)
000237ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000237bc 1e ae ff d5              |        |		MOVE.B	(A6-0x2b),(A7)
000237c0 1f 6e ff d6 00 01        | n      |		MOVE.B	(A6-0x2a),(A7+0x1)
000237c6 1f 6e ff d7 00 02        | n      |		MOVE.B	(A6-0x29),(A7+0x2)
000237cc 1f 6e ff d8 00 03        | n      |		MOVE.B	(A6-0x28),(A7+0x3)
000237d2 4e b9 00 02 49 6c        |N   Il  |		JSR	0x2496c
000237d8 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000237dc 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000237e0 4e 5e                    |N^      |		UNLK	A6
000237e2 4e 75                    |Nu      |		RTS
000237e4 ; --------------------------------------------------------------------------------------
000237e4 ; OMSI PASCAL Function
000237e4 ;    <LVAR  0x008 4(r)>
000237e4 ;    <LVAR -0x002 2(w)>
000237e4 ;    <LVAR -0x003 1(r)>
000237e4 ;    <LVAR -0x00b @>
000237e4 ;    <LVAR -0x013 @>
000237e4 ;    <LVAR -0x014 1(w)>
000237e4 ;    <LVAR -0x016 2(rw)>
000237e4 ;    <LVAR -0x017 1(w)>
000237e4 ;    <LVAR -0x01c 4(rw)>
000237e4 ;    <LVAR -0x020 4(rw)>
000237e4 ;    <LVAR -0x024 4(rw)>
000237e4 ;    <LVAR -0x028 4(rw)>
000237e4 ;    <LVAR -0x034 4(rw)>
000237e4 ;    <LVAR -0x038 4(rw)>
000237e4 ;    <LVAR -0x03c 4(rw)>
000237e4 ;    <LVAR -0x040 4(rw)>
000237e4 ;    <LVAR -0x044 4(rw)>
000237e4 ;    <LVAR -0x048 4(rw)>
000237e4 ; --------------------------------------------------------------------------------------
000237e4 4e 56 ff 54              |NV T    |		LINK.W	A6,#0xff54
000237e8 bf d5                    |        |		CMPA.L	(A5),A7
000237ea 62 06                    |b       |		BHI	0x237f2
000237ec 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237f0 4e 76                    |Nv      |		TRAPV
000237f2 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
000237f6 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000237fa 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023800 49 fa dd 6a              |I  j    |		LEA.L	0x2156c,A4
00023804 78 01                    |x       |		MOVEQ.L	#0x01,D4
00023806 7a 07                    |z       |		MOVEQ.L	#0x07,D5
00023808 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
0002380a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002380e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023810 22 4f                    |"O      |		MOVEA.L	A7,A1
00023812 45 fa cd 32              |E  2    |		LEA.L	0x20546,A2
00023816 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023818 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002381a 51 c8 ff fc              |Q       |		DBF	D0,0x23818
0002381e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023820 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023822 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023824 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023828 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002382a 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002382c 4e 93                    |N       |		JSR	(A3)
0002382e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023830 4e 94                    |N       |		JSR	(A4)
00023832 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023834 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00023838 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
0002383c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002383e 45 fa cd 0e              |E       |		LEA.L	0x2054e,A2
00023842 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023844 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023846 51 c8 ff fc              |Q       |		DBF	D0,0x23844
0002384a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002384c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002384e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023850 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023854 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023856 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023858 4e 93                    |N       |		JSR	(A3)
0002385a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002385c 4e 94                    |N       |		JSR	(A4)
0002385e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023860 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
00023864 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
00023868 22 4f                    |"O      |		MOVEA.L	A7,A1
0002386a 45 fa cc ea              |E       |		LEA.L	0x20556,A2
0002386e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023870 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023872 51 c8 ff fc              |Q       |		DBF	D0,0x23870
00023876 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023878 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002387a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002387c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023880 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023882 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023884 4e 93                    |N       |		JSR	(A3)
00023886 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023888 4e 94                    |N       |		JSR	(A4)
0002388a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002388c 2d 5f ff c8              |-_      |		MOVE.L	(A7)+,(A6-0x38)
00023890 2d 5f ff cc              |-_      |		MOVE.L	(A7)+,(A6-0x34)
00023894 22 4f                    |"O      |		MOVEA.L	A7,A1
00023896 45 fa cc c6              |E       |		LEA.L	0x2055e,A2
0002389a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002389c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002389e 51 c8 ff fc              |Q       |		DBF	D0,0x2389c
000238a2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000238a4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000238a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000238a8 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000238ac 3f 04                    |?       |		MOVE.W	D4,-(A7)
000238ae 3f 05                    |?       |		MOVE.W	D5,-(A7)
000238b0 4e 93                    |N       |		JSR	(A3)
000238b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238b4 4e 94                    |N       |		JSR	(A4)
000238b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238b8 2d 5f ff d8              |-_      |		MOVE.L	(A7)+,(A6-0x28)
000238bc 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
000238c0 22 4f                    |"O      |		MOVEA.L	A7,A1
000238c2 45 fa cc a2              |E       |		LEA.L	0x20566,A2
000238c6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000238c8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000238ca 51 c8 ff fc              |Q       |		DBF	D0,0x238c8
000238ce 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000238d0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000238d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000238d4 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000238d8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000238da 3f 05                    |?       |		MOVE.W	D5,-(A7)
000238dc 4e 93                    |N       |		JSR	(A3)
000238de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238e0 4e 94                    |N       |		JSR	(A4)
000238e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238e4 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
000238e8 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
000238ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238ee 2e ae ff bc              |.       |		MOVE.L	(A6-0x44),(A7)
000238f2 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
000238f6 4e ba de 02              |N       |		JSR	0x216fa
000238fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238fc 30 1f                    |0       |		MOVE.W	(A7)+,D0
000238fe 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00023902 1d 40 ff e9              | @      |		MOVE.B	D0,(A6-0x17)
00023906 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023908 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
0002390c 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00023910 4e ba de a8              |N       |		JSR	0x217ba
00023914 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023916 3d 57 ff ea              |=W      |		MOVE.W	(A7),(A6-0x16)
0002391a 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
0002391e 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
00023922 4e ba dd d6              |N       |		JSR	0x216fa
00023926 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023928 32 1f                    |2       |		MOVE.W	(A7)+,D1
0002392a 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
0002392e 1d 41 ff ec              | A      |		MOVE.B	D1,(A6-0x14)
00023932 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023934 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00023938 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
0002393c 4e ba e0 2c              |N  ,    |		JSR	0x2196a
00023940 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023942 41 ee ff ed              |A       |		LEA.L	(A6-0x13),A0
00023946 22 4f                    |"O      |		MOVEA.L	A7,A1
00023948 74 07                    |t       |		MOVEQ.L	#0x07,D2
0002394a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002394c 51 ca ff fc              |Q       |		DBF	D2,0x2394a
00023950 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00023954 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00023958 4e ba e0 10              |N       |		JSR	0x2196a
0002395c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002395e 41 ee ff f5              |A       |		LEA.L	(A6-0xb),A0
00023962 22 4f                    |"O      |		MOVEA.L	A7,A1
00023964 74 07                    |t       |		MOVEQ.L	#0x07,D2
00023966 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023968 51 ca ff fc              |Q       |		DBF	D2,0x23966
0002396c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002396e 42 2e ff fd              |B.      |		CLR.B	(A6-0x3)
00023972 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023976 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
0002397a 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
0002397e 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00023982 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00023986 4e ba e4 02              |N       |		JSR	0x21d8a
0002398a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002398e 4e ba de 2a              |N  *    |		JSR	0x217ba
00023992 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023994 3d 57 ff fe              |=W      |		MOVE.W	(A7),(A6-0x2)
00023998 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
0002399c 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
000239a0 4e ba e0 a8              |N       |		JSR	0x21a4a
000239a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239a6 14 1f                    |        |		MOVE.B	(A7)+,D2
000239a8 48 82                    |H       |		EXTB.W	D2
000239aa 94 46                    | F      |		SUB.W	D6,D2
000239ac 45 bc 00 03              |E       |		CHK.W	#0x3,D2
000239b0 d4 46                    | F      |		ADD.W	D6,D2
000239b2 1e 02                    |        |		MOVE.B	D2,D7
000239b4 14 07                    |        |		MOVE.B	D7,D2
000239b6 48 82                    |H       |		EXTB.W	D2
000239b8 36 02                    |6       |		MOVE.W	D2,D3
000239ba 96 46                    | F      |		SUB.W	D6,D3
000239bc 47 bc 00 03              |G       |		CHK.W	#0x3,D3
000239c0 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
000239c6 4a 30 30 13              |J00     |		TST.B	(A0+D3.W+#0x13)
000239ca 67 28                    |g(      |		BEQ	0x239f4
000239cc 1f 02                    |        |		MOVE.B	D2,-(A7)
000239ce 1f 00                    |        |		MOVE.B	D0,-(A7)
000239d0 3f 2e ff ea              |?.      |		MOVE.W	(A6-0x16),-(A7)
000239d4 1f 01                    |        |		MOVE.B	D1,-(A7)
000239d6 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000239da 20 4f                    | O      |		MOVEA.L	A7,A0
000239dc 43 ee ff ed              |C       |		LEA.L	(A6-0x13),A1
000239e0 70 12                    |p       |		MOVEQ.L	#0x12,D0
000239e2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000239e4 51 c8 ff fc              |Q       |		DBF	D0,0x239e2
000239e8 4e b9 00 02 48 14        |N   H   |		JSR	0x24814
000239ee de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000239f2 60 26                    |`&      |		BRA	0x23a1a
000239f4 41 fa cb 92              |A       |		LEA.L	0x20588,A0
000239f8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000239fa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000239fc 51 c8 ff fc              |Q       |		DBF	D0,0x239fa
00023a00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a02 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023a06 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023a08 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00023a0c 4e 93                    |N       |		JSR	(A3)
00023a0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a10 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023a16 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023a1a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023a1e 4e 5e                    |N^      |		UNLK	A6
00023a20 4e 75                    |Nu      |		RTS
00023a22 ; --------------------------------------------------------------------------------------
00023a22 ; OMSI PASCAL Function
00023a22 ;    <LVAR  0x008 4(r)>
00023a22 ;    <LVAR -0x00b @>
00023a22 ;    <LVAR -0x00c 1(rw)>
00023a22 ;    <LVAR -0x00d 1(rw)>
00023a22 ;    <LVAR -0x00e 1(rw)>
00023a22 ;    <LVAR -0x01a 4(rw)>
00023a22 ;    <LVAR -0x01e 4(rw)>
00023a22 ; --------------------------------------------------------------------------------------
00023a22 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00023a26 bf d5                    |        |		CMPA.L	(A5),A7
00023a28 62 06                    |b       |		BHI	0x23a30
00023a2a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a2e 4e 76                    |Nv      |		TRAPV
00023a30 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00023a34 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
00023a38 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00023a3a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023a3c 20 4f                    | O      |		MOVEA.L	A7,A0
00023a3e 43 fa cb 48              |C  H    |		LEA.L	0x20588,A1
00023a42 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023a44 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023a46 51 c8 ff fc              |Q       |		DBF	D0,0x23a44
00023a4a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023a4c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023a50 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023a52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a54 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023a58 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023a5c 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00023a60 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023a66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a68 4e ba db 02              |N       |		JSR	0x2156c
00023a6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a6e 2d 5f ff e2              |-_      |		MOVE.L	(A7)+,(A6-0x1e)
00023a72 2d 5f ff e6              |-_      |		MOVE.L	(A7)+,(A6-0x1a)
00023a76 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023a78 2e ae ff e6              |.       |		MOVE.L	(A6-0x1a),(A7)
00023a7c 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
00023a80 4e ba dd 38              |N  8    |		JSR	0x217ba
00023a84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a86 1d 57 ff f3              | W      |		MOVE.B	(A7),(A6-0xd)
00023a8a 1d 6f 00 01 ff f4        | o      |		MOVE.B	(A7+0x1),(A6-0xc)
00023a90 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023a92 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00023a94 10 06                    |        |		MOVE.B	D6,D0
00023a96 48 80                    |H       |		EXTB.W	D0
00023a98 90 41                    | A      |		SUB.W	D1,D0
00023a9a 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00023a9e 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00023aa4 4a 30 00 13              |J0      |		TST.B	(A0+D0.W+#0x13)
00023aa8 67 00 00 8e              |g       |		BEQ	0x23b38
00023aac 10 06                    |        |		MOVE.B	D6,D0
00023aae 48 80                    |H       |		EXTB.W	D0
00023ab0 90 41                    | A      |		SUB.W	D1,D0
00023ab2 c1 fc 00 04              |        |		MULS.W	#0x4,D0
00023ab6 48 c0                    |H       |		EXTW.L	D0
00023ab8 2a 00                    |*       |		MOVE.L	D0,D5
00023aba 30 39 00 02 51 32        |09  Q2  |		MOVE.W	0x25132,D0
00023ac0 53 40                    |S@      |		SUBQ.W	#0x1,D0
00023ac2 48 c0                    |H       |		EXTW.L	D0
00023ac4 d0 85                    |        |		ADD.L	D5,D0
00023ac6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023ac8 2e 05                    |.       |		MOVE.L	D5,D7
00023aca be 97                    |        |		CMP.L	(A7),D7
00023acc 6e 14                    |n       |		BGT	0x23ae2
00023ace 20 17                    |        |		MOVE.L	(A7),D0
00023ad0 0c 87 80 00 00 01        |        |		CMPI.L	#0x80000001,D7
00023ad6 6d 08                    |m       |		BLT	0x23ae0
00023ad8 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
00023ade 6f 02                    |o       |		BLE	0x23ae2
00023ae0 4e 4f                    |NO      |		TRAP	#15
00023ae2 be 97                    |        |		CMP.L	(A7),D7
00023ae4 6e 50                    |nP      |		BGT	0x23b36
00023ae6 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00023aec 63 02                    |c       |		BLS	0x23af0
00023aee 4e 4f                    |NO      |		TRAP	#15
00023af0 1d 47 ff f2              | G      |		MOVE.B	D7,(A6-0xe)
00023af4 1f 06                    |        |		MOVE.B	D6,-(A7)
00023af6 1f 2e ff f2              | .      |		MOVE.B	(A6-0xe),-(A7)
00023afa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023afc 1e ae ff f3              |        |		MOVE.B	(A6-0xd),(A7)
00023b00 1f 6e ff f4 00 01        | n      |		MOVE.B	(A6-0xc),(A7+0x1)
00023b06 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00023b0a 4e b9 00 02 4a 70        |N   Jp  |		JSR	0x24a70
00023b10 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023b12 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023b14 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00023b1a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023b1c 20 4f                    | O      |		MOVEA.L	A7,A0
00023b1e 43 ee ff f5              |C       |		LEA.L	(A6-0xb),A1
00023b22 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023b24 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023b26 51 c8 ff fc              |Q       |		DBF	D0,0x23b24
00023b2a 4e ba ef 0a              |N       |		JSR	0x22a36
00023b2e de fc 00 12              |        |		ADDA.W	#0x12,A7
00023b32 52 87                    |R       |		ADDQ.L	#0x1,D7
00023b34 68 ac                    |h       |		BVC	0x23ae2
00023b36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023b38 52 06                    |R       |		ADDQ.B	#0x1,D6
00023b3a 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
00023b3e 6f 00 ff 54              |o  T    |		BLE	0x23a94
00023b42 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
00023b46 4e 5e                    |N^      |		UNLK	A6
00023b48 4e 75                    |Nu      |		RTS
00023b4a ; --------------------------------------------------------------------------------------
00023b4a ; OMSI PASCAL Function
00023b4a ;    <LVAR  0x008 4(r)>
00023b4a ;    <LVAR -0x002 1(w)>
00023b4a ;    <LVAR -0x006 4(w)>
00023b4a ;    <LVAR -0x00a 4(w)>
00023b4a ;    <LVAR -0x00e 4(rw)>
00023b4a ;    <LVAR -0x012 4(rw)>
00023b4a ;    <LVAR -0x013 1(w)>
00023b4a ;    <LVAR -0x018 4(rw)>
00023b4a ;    <LVAR -0x01c 4(rw)>
00023b4a ;    <LVAR -0x020 4(rw)>
00023b4a ;    <LVAR -0x024 4(rw)>
00023b4a ; --------------------------------------------------------------------------------------
00023b4a 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80
00023b4e bf d5                    |        |		CMPA.L	(A5),A7
00023b50 62 06                    |b       |		BHI	0x23b58
00023b52 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b56 4e 76                    |Nv      |		TRAPV
00023b58 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00023b5c 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00023b60 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023b66 49 fa da 04              |I       |		LEA.L	0x2156c,A4
00023b6a 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023b6c 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00023b6e 78 07                    |x       |		MOVEQ.L	#0x07,D4
00023b70 7a 03                    |z       |		MOVEQ.L	#0x03,D5
00023b72 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023b76 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023b78 22 4f                    |"O      |		MOVEA.L	A7,A1
00023b7a 45 fa ca 14              |E       |		LEA.L	0x20590,A2
00023b7e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023b80 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023b82 51 c8 ff fc              |Q       |		DBF	D0,0x23b80
00023b86 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023b88 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023b8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023b8c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023b90 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023b92 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023b94 4e 93                    |N       |		JSR	(A3)
00023b96 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b98 4e 94                    |N       |		JSR	(A4)
00023b9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b9c 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
00023ba0 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
00023ba4 22 4f                    |"O      |		MOVEA.L	A7,A1
00023ba6 45 fa c9 f0              |E       |		LEA.L	0x20598,A2
00023baa 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023bac 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023bae 51 c8 ff fc              |Q       |		DBF	D0,0x23bac
00023bb2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023bb4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023bb6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023bb8 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023bbc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023bbe 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023bc0 4e 93                    |N       |		JSR	(A3)
00023bc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bc4 4e 94                    |N       |		JSR	(A4)
00023bc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bc8 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
00023bcc 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
00023bd0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023bd2 3e ba c9 d0              |>       |		MOVE.W	0x205a4,(A7)
00023bd6 3f 3a c9 ca              |?:      |		MOVE.W	0x205a2,-(A7)
00023bda 3f 3a c9 c4              |?:      |		MOVE.W	0x205a0,-(A7)
00023bde 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023be0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023be2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023be4 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023be8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023bea 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00023bee 4e 93                    |N       |		JSR	(A3)
00023bf0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bf2 4e 94                    |N       |		JSR	(A4)
00023bf4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bf6 2d 5f ff ee              |-_      |		MOVE.L	(A7)+,(A6-0x12)
00023bfa 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00023bfe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023c00 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00023c04 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00023c08 4e ba dd 60              |N  `    |		JSR	0x2196a
00023c0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c0e 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00023c12 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
00023c16 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023c18 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00023c1c 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00023c20 4e ba df 5c              |N  \    |		JSR	0x21b7e
00023c24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c26 4e ba da d2              |N       |		JSR	0x216fa
00023c2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c2c 30 1f                    |0       |		MOVE.W	(A7)+,D0
00023c2e 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00023c32 1d 40 ff fe              | @      |		MOVE.B	D0,(A6-0x2)
00023c36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023c38 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00023c3c 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00023c40 4e ba de 08              |N       |		JSR	0x21a4a
00023c44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c46 10 1f                    |        |		MOVE.B	(A7)+,D0
00023c48 48 80                    |H       |		EXTB.W	D0
00023c4a 90 43                    | C      |		SUB.W	D3,D0
00023c4c 41 85                    |A       |		CHK.W	D5,D0
00023c4e d0 43                    | C      |		ADD.W	D3,D0
00023c50 1e 00                    |        |		MOVE.B	D0,D7
00023c52 10 07                    |        |		MOVE.B	D7,D0
00023c54 48 80                    |H       |		EXTB.W	D0
00023c56 32 00                    |2       |		MOVE.W	D0,D1
00023c58 92 43                    | C      |		SUB.W	D3,D1
00023c5a 43 85                    |C       |		CHK.W	D5,D1
00023c5c 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00023c62 4a 30 10 13              |J0      |		TST.B	(A0+D1.W+#0x13)
00023c66 66 28                    |f(      |		BNE	0x23c90
00023c68 41 fa c9 56              |A  V    |		LEA.L	0x205c0,A0
00023c6c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023c6e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023c70 51 c8 ff fc              |Q       |		DBF	D0,0x23c6e
00023c74 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023c76 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023c7a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023c7c 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00023c80 4e 93                    |N       |		JSR	(A3)
00023c82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c84 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023c8a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023c8e 60 46                    |`F      |		BRA	0x23cd6
00023c90 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023c92 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00023c96 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00023c9a 4e ba da 5e              |N  ^    |		JSR	0x216fa
00023c9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ca0 32 1f                    |2       |		MOVE.W	(A7)+,D1
00023ca2 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023ca6 1d 41 ff ed              | A      |		MOVE.B	D1,(A6-0x13)
00023caa 1f 00                    |        |		MOVE.B	D0,-(A7)
00023cac 1f 01                    |        |		MOVE.B	D1,-(A7)
00023cae 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023cb0 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00023cb4 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00023cb8 4e ba db 00              |N       |		JSR	0x217ba
00023cbc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023cbe 20 4f                    | O      |		MOVEA.L	A7,A0
00023cc0 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00023cc4 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023cc6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023cc8 51 c8 ff fc              |Q       |		DBF	D0,0x23cc6
00023ccc 4e b9 00 02 45 a2        |N   E   |		JSR	0x245a2
00023cd2 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023cd6 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00023cda 4e 5e                    |N^      |		UNLK	A6
00023cdc 4e 75                    |Nu      |		RTS
00023cde ; --------------------------------------------------------------------------------------
00023cde ; OMSI PASCAL Function
00023cde ;    <LVAR  0x008 4(r)>
00023cde ;    <LVAR -0x00a @>
00023cde ;    <LVAR -0x00b 1(w)>
00023cde ;    <LVAR -0x010 4(rw)>
00023cde ;    <LVAR -0x014 4(rw)>
00023cde ;    <LVAR -0x018 4(rw)>
00023cde ;    <LVAR -0x01c 4(rw)>
00023cde ; --------------------------------------------------------------------------------------
00023cde 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
00023ce2 bf d5                    |        |		CMPA.L	(A5),A7
00023ce4 62 06                    |b       |		BHI	0x23cec
00023ce6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023cea 4e 76                    |Nv      |		TRAPV
00023cec de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00023cf0 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00023cf4 47 ee ff e4              |G       |		LEA.L	(A6-0x1c),A3
00023cf8 49 ee ff e8              |I       |		LEA.L	(A6-0x18),A4
00023cfc 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023cfe 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00023d00 78 07                    |x       |		MOVEQ.L	#0x07,D4
00023d02 7a 03                    |z       |		MOVEQ.L	#0x03,D5
00023d04 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023d08 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023d0a 22 4f                    |"O      |		MOVEA.L	A7,A1
00023d0c 45 fa c8 b2              |E       |		LEA.L	0x205c0,A2
00023d10 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023d12 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023d14 51 c8 ff fc              |Q       |		DBF	D0,0x23d12
00023d18 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023d1a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023d1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d1e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023d22 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023d24 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023d26 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023d2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d2e 4e ba d8 3c              |N  <    |		JSR	0x2156c
00023d32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d34 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00023d36 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00023d38 22 4f                    |"O      |		MOVEA.L	A7,A1
00023d3a 45 fa c8 8c              |E       |		LEA.L	0x205c8,A2
00023d3e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023d40 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023d42 51 c8 ff fc              |Q       |		DBF	D0,0x23d40
00023d46 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023d48 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023d4a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d4c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023d50 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023d52 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023d54 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023d5a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d5c 4e ba d8 0e              |N       |		JSR	0x2156c
00023d60 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d62 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00023d66 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023d6a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023d6c 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023d6e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023d70 4e ba dc d8              |N       |		JSR	0x21a4a
00023d74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d76 10 1f                    |        |		MOVE.B	(A7)+,D0
00023d78 48 80                    |H       |		EXTB.W	D0
00023d7a 90 43                    | C      |		SUB.W	D3,D0
00023d7c 41 85                    |A       |		CHK.W	D5,D0
00023d7e d0 43                    | C      |		ADD.W	D3,D0
00023d80 1e 00                    |        |		MOVE.B	D0,D7
00023d82 10 07                    |        |		MOVE.B	D7,D0
00023d84 48 80                    |H       |		EXTB.W	D0
00023d86 32 00                    |2       |		MOVE.W	D0,D1
00023d88 92 43                    | C      |		SUB.W	D3,D1
00023d8a 43 85                    |C       |		CHK.W	D5,D1
00023d8c 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00023d92 4a 30 10 13              |J0      |		TST.B	(A0+D1.W+#0x13)
00023d96 66 2c                    |f,      |		BNE	0x23dc4
00023d98 41 fa c8 50              |A  P    |		LEA.L	0x205ea,A0
00023d9c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023d9e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023da0 51 c8 ff fc              |Q       |		DBF	D0,0x23d9e
00023da4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023da6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023daa 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023dac 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00023db0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023db6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023db8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023dbe de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023dc2 60 54                    |`T      |		BRA	0x23e18
00023dc4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023dc6 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023dc8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023dca 4e ba d9 2e              |N  .    |		JSR	0x216fa
00023dce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dd0 32 1f                    |2       |		MOVE.W	(A7)+,D1
00023dd2 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023dd6 1d 41 ff f5              | A      |		MOVE.B	D1,(A6-0xb)
00023dda 1f 00                    |        |		MOVE.B	D0,-(A7)
00023ddc 1f 01                    |        |		MOVE.B	D1,-(A7)
00023dde 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023de0 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00023de4 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00023de8 4e ba d9 d0              |N       |		JSR	0x217ba
00023dec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dee 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00023df2 4e b9 00 02 4a 70        |N   Jp  |		JSR	0x24a70
00023df8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023dfa 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023dfc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023dfe 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023e02 20 4f                    | O      |		MOVEA.L	A7,A0
00023e04 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00023e08 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023e0a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e0c 51 c8 ff fc              |Q       |		DBF	D0,0x23e0a
00023e10 4e ba ea 2c              |N  ,    |		JSR	0x2283e
00023e14 de fc 00 12              |        |		ADDA.W	#0x12,A7
00023e18 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00023e1c 4e 5e                    |N^      |		UNLK	A6
00023e1e 4e 75                    |Nu      |		RTS
00023e20 ; --------------------------------------------------------------------------------------
00023e20 ; OMSI PASCAL Function
00023e20 ;    <LVAR  0x008 4(r)>
00023e20 ;    <LVAR -0x00a 4(r)>
00023e20 ;    <LVAR -0x00e @ 4(r)>
00023e20 ;    <LVAR -0x021 @>
00023e20 ;    <LVAR -0x02a @>
00023e20 ;    <LVAR -0x02b @ 1(r)>
00023e20 ;    <LVAR -0x02c 1(w)>
00023e20 ;    <LVAR -0x02d @ 1(r)>
00023e20 ;    <LVAR -0x02e @ 1(r)>
00023e20 ;    <LVAR -0x02f @ 1(r)>
00023e20 ;    <LVAR -0x030 1(rw)>
00023e20 ;    <LVAR -0x031 1(rw)>
00023e20 ;    <LVAR -0x032 1(rw)>
00023e20 ;    <LVAR -0x033 1(rw)>
00023e20 ;    <LVAR -0x034 1(rw)>
00023e20 ;    <LVAR -0x035 1(rw)>
00023e20 ;    <LVAR -0x036 1(rw)>
00023e20 ;    <LVAR -0x037 1(rw)>
00023e20 ;    <LVAR -0x038 1(w)>
00023e20 ;    <LVAR -0x03c 4(rw)>
00023e20 ;    <LVAR -0x040 4(rw)>
00023e20 ;    <LVAR -0x044 4(rw)>
00023e20 ;    <LVAR -0x048 4(rw)>
00023e20 ;    <LVAR -0x04c 4(rw)>
00023e20 ;    <LVAR -0x050 4(rw)>
00023e20 ; --------------------------------------------------------------------------------------
00023e20 4e 56 ff 50              |NV P    |		LINK.W	A6,#0xff50
00023e24 bf d5                    |        |		CMPA.L	(A5),A7
00023e26 62 06                    |b       |		BHI	0x23e2e
00023e28 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023e2c 4e 76                    |Nv      |		TRAPV
00023e2e de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00023e32 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023e36 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023e3c 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00023e3e 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00023e40 7c 0b                    ||       |		MOVEQ.L	#0x0b,D6
00023e42 7e 10                    |~       |		MOVEQ.L	#0x10,D7
00023e44 42 2e ff d2              |B.      |		CLR.B	(A6-0x2e)
00023e48 42 2e ff d1              |B.      |		CLR.B	(A6-0x2f)
00023e4c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023e50 9e c4                    |        |		SUBA.W	D4,A7
00023e52 22 4f                    |"O      |		MOVEA.L	A7,A1
00023e54 45 fa c7 94              |E       |		LEA.L	0x205ea,A2
00023e58 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023e5a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023e5c 51 c8 ff fc              |Q       |		DBF	D0,0x23e5a
00023e60 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e62 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023e64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e66 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023e6a 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023e6c 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023e6e 4e 93                    |N       |		JSR	(A3)
00023e70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e72 4e ba d6 f8              |N       |		JSR	0x2156c
00023e76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e78 2d 5f ff b0              |-_      |		MOVE.L	(A7)+,(A6-0x50)
00023e7c 2d 5f ff b4              |-_      |		MOVE.L	(A7)+,(A6-0x4c)
00023e80 22 4f                    |"O      |		MOVEA.L	A7,A1
00023e82 45 fa c7 72              |E  r    |		LEA.L	0x205f6,A2
00023e86 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023e88 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023e8a 51 c8 ff fc              |Q       |		DBF	D0,0x23e88
00023e8e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e90 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023e92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e94 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023e98 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023e9a 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023e9c 4e 93                    |N       |		JSR	(A3)
00023e9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ea0 4e ba d6 ca              |N       |		JSR	0x2156c
00023ea4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ea6 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00023eaa 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
00023eae 22 4f                    |"O      |		MOVEA.L	A7,A1
00023eb0 45 fa c7 50              |E  P    |		LEA.L	0x20602,A2
00023eb4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023eb6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023eb8 51 c8 ff fc              |Q       |		DBF	D0,0x23eb6
00023ebc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023ebe 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023ec0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ec2 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023ec6 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023ec8 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023eca 4e 93                    |N       |		JSR	(A3)
00023ecc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ece 4e ba d6 9c              |N       |		JSR	0x2156c
00023ed2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ed4 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
00023ed8 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
00023edc 2e ae ff c4              |.       |		MOVE.L	(A6-0x3c),(A7)
00023ee0 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00023ee4 2f 3a c8 46              |/: F    |		MOVE.L	0x2072c,-(A7)
00023ee8 2f 3a c8 3e              |/: >    |		MOVE.L	0x20728,-(A7)
00023eec 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00023ef2 de c7                    |        |		ADDA.W	D7,A7
00023ef4 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
00023ef8 2d 57 ff c4              |-W      |		MOVE.L	(A7),(A6-0x3c)
00023efc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023efe 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
00023f02 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00023f06 4e ba d7 f2              |N       |		JSR	0x216fa
00023f0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f0c 30 1f                    |0       |		MOVE.W	(A7)+,D0
00023f0e 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00023f12 1d 40 ff c8              | @      |		MOVE.B	D0,(A6-0x38)
00023f16 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f18 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
00023f1c 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
00023f20 4e ba d9 6e              |N  n    |		JSR	0x21890
00023f24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f26 1d 57 ff c9              | W      |		MOVE.B	(A7),(A6-0x37)
00023f2a 1d 6f 00 01 ff ca        | o      |		MOVE.B	(A7+0x1),(A6-0x36)
00023f30 1d 6f 00 02 ff cb        | o      |		MOVE.B	(A7+0x2),(A6-0x35)
00023f36 1d 6f 00 03 ff cc        | o      |		MOVE.B	(A7+0x3),(A6-0x34)
00023f3c 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00023f40 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00023f44 4e ba d9 4a              |N  J    |		JSR	0x21890
00023f48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f4a 1d 57 ff cd              | W      |		MOVE.B	(A7),(A6-0x33)
00023f4e 1d 6f 00 01 ff ce        | o      |		MOVE.B	(A7+0x1),(A6-0x32)
00023f54 1d 6f 00 02 ff cf        | o      |		MOVE.B	(A7+0x2),(A6-0x31)
00023f5a 1d 6f 00 03 ff d0        | o      |		MOVE.B	(A7+0x3),(A6-0x30)
00023f60 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023f62 1e 80                    |        |		MOVE.B	D0,(A7)
00023f64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f66 1e ae ff c9              |        |		MOVE.B	(A6-0x37),(A7)
00023f6a 1f 6e ff ca 00 01        | n      |		MOVE.B	(A6-0x36),(A7+0x1)
00023f70 1f 6e ff cb 00 02        | n      |		MOVE.B	(A6-0x35),(A7+0x2)
00023f76 1f 6e ff cc 00 03        | n      |		MOVE.B	(A6-0x34),(A7+0x3)
00023f7c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f7e 1e ae ff cd              |        |		MOVE.B	(A6-0x33),(A7)
00023f82 1f 6e ff ce 00 01        | n      |		MOVE.B	(A6-0x32),(A7+0x1)
00023f88 1f 6e ff cf 00 02        | n      |		MOVE.B	(A6-0x31),(A7+0x2)
00023f8e 1f 6e ff d0 00 03        | n      |		MOVE.B	(A6-0x30),(A7+0x3)
00023f94 42 27                    |B'      |		CLR.B	-(A7)
00023f96 48 6e ff d2              |Hn      |		PEA.L	(A6-0x2e)
00023f9a 48 6e ff d1              |Hn      |		PEA.L	(A6-0x2f)
00023f9e 48 6e ff d3              |Hn      |		PEA.L	(A6-0x2d)
00023fa2 48 6e ff d5              |Hn      |		PEA.L	(A6-0x2b)
00023fa6 48 6e ff d6              |Hn      |		PEA.L	(A6-0x2a)
00023faa 4e ba ee 8c              |N       |		JSR	0x22e38
00023fae de fc 00 20              |        |		ADDA.W	#0x20,A7
00023fb2 4a 2e ff d2              |J.      |		TST.B	(A6-0x2e)
00023fb6 67 06                    |g       |		BEQ	0x23fbe
00023fb8 4a 2e ff d1              |J.      |		TST.B	(A6-0x2f)
00023fbc 66 30                    |f0      |		BNE	0x23fee
00023fbe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023fc0 20 4f                    | O      |		MOVEA.L	A7,A0
00023fc2 43 fa c6 4a              |C  J    |		LEA.L	0x2060e,A1
00023fc6 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023fc8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023fca 51 c8 ff fc              |Q       |		DBF	D0,0x23fc8
00023fce 42 27                    |B'      |		CLR.B	-(A7)
00023fd0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023fd2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023fd6 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023fd8 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00023fdc 4e 93                    |N       |		JSR	(A3)
00023fde 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fe0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023fe6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00023fea 60 00 01 22              |`  "    |		BRA	0x2410e
00023fee 42 81                    |B       |		CLR.L	D1
00023ff0 12 2e ff d5              | .      |		MOVE.B	(A6-0x2b),D1
00023ff4 e8 41                    | A      |		ASR.W	#0x4,D1
00023ff6 48 c1                    |H       |		EXTW.L	D1
00023ff8 83 f9 00 02 51 32        |    Q2  |		DIVS.W	0x25132,D1
00023ffe 48 41                    |HA      |		SWAP.W	D1
00024000 14 2e ff d3              | .      |		MOVE.B	(A6-0x2d),D2
00024004 48 82                    |H       |		EXTB.W	D2
00024006 36 02                    |6       |		MOVE.W	D2,D3
00024008 96 44                    | D      |		SUB.W	D4,D3
0002400a c7 fc 00 04              |        |		MULS.W	#0x4,D3
0002400e d2 43                    | C      |		ADD.W	D3,D1
00024010 c3 c7                    |        |		MULS.W	D7,D1
00024012 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00024016 1d 41 ff d4              | A      |		MOVE.B	D1,(A6-0x2c)
0002401a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002401c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002401e 1f 00                    |        |		MOVE.B	D0,-(A7)
00024020 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024022 1e ae ff c9              |        |		MOVE.B	(A6-0x37),(A7)
00024026 1f 6e ff ca 00 01        | n      |		MOVE.B	(A6-0x36),(A7+0x1)
0002402c 1f 6e ff cb 00 02        | n      |		MOVE.B	(A6-0x35),(A7+0x2)
00024032 1f 6e ff cc 00 03        | n      |		MOVE.B	(A6-0x34),(A7+0x3)
00024038 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002403a 1e ae ff cd              |        |		MOVE.B	(A6-0x33),(A7)
0002403e 1f 6e ff ce 00 01        | n      |		MOVE.B	(A6-0x32),(A7+0x1)
00024044 1f 6e ff cf 00 02        | n      |		MOVE.B	(A6-0x31),(A7+0x2)
0002404a 1f 6e ff d0 00 03        | n      |		MOVE.B	(A6-0x30),(A7+0x3)
00024050 48 6e ff df              |Hn      |		PEA.L	(A6-0x21)
00024054 4e b9 00 02 4c 90        |N   L   |		JSR	0x24c90
0002405a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002405c 20 4f                    | O      |		MOVEA.L	A7,A0
0002405e 43 ee ff df              |C       |		LEA.L	(A6-0x21),A1
00024062 70 12                    |p       |		MOVEQ.L	#0x12,D0
00024064 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024066 51 c8 ff fc              |Q       |		DBF	D0,0x24064
0002406a 4e ba df 4c              |N  L    |		JSR	0x21fb8
0002406e de c4                    |        |		ADDA.W	D4,A7
00024070 20 4f                    | O      |		MOVEA.L	A7,A0
00024072 43 ee ff df              |C       |		LEA.L	(A6-0x21),A1
00024076 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024078 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002407a 51 c8 ff fc              |Q       |		DBF	D0,0x24078
0002407e 48 57                    |HW      |		PEA.L	(A7)
00024080 48 78 00 00              |Hx      |		PEA.L	0x0
00024084 48 78 00 07              |Hx      |		PEA.L	0x7
00024088 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002408c 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00024092 de c7                    |        |		ADDA.W	D7,A7
00024094 2e ae ff f6              |.       |		MOVE.L	(A6-0xa),(A7)
00024098 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002409c 48 78 00 10              |Hx      |		PEA.L	0x10
000240a0 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
000240a6 de c4                    |        |		ADDA.W	D4,A7
000240a8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000240aa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000240ac 20 4f                    | O      |		MOVEA.L	A7,A0
000240ae 43 ee ff e7              |C       |		LEA.L	(A6-0x19),A1
000240b2 70 07                    |p       |		MOVEQ.L	#0x07,D0
000240b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000240b6 51 c8 ff fc              |Q       |		DBF	D0,0x240b4
000240ba 48 57                    |HW      |		PEA.L	(A7)
000240bc 48 78 00 00              |Hx      |		PEA.L	0x0
000240c0 48 78 00 07              |Hx      |		PEA.L	0x7
000240c4 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000240c8 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000240ce de fc 00 14              |        |		ADDA.W	#0x14,A7
000240d2 2e 8c                    |.       |		MOVE.L	A4,(A7)
000240d4 1f 3c 00 2c              | < ,    |		MOVE.B	#0x2c,-(A7)
000240d8 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000240de 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000240e0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000240e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240e4 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000240e8 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000240ec 48 78 00 10              |Hx      |		PEA.L	0x10
000240f0 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
000240f6 de c4                    |        |		ADDA.W	D4,A7
000240f8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000240fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024100 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024102 42 27                    |B'      |		CLR.B	-(A7)
00024104 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024106 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002410c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002410e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024112 4e 5e                    |N^      |		UNLK	A6
00024114 4e 75                    |Nu      |		RTS
00024116 ; --------------------------------------------------------------------------------------
00024116 ; OMSI PASCAL Function
00024116 ;    <LVAR -0x013 @>
00024116 ; --------------------------------------------------------------------------------------
00024116 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
0002411a bf d5                    |        |		CMPA.L	(A5),A7
0002411c 62 06                    |b       |		BHI	0x24124
0002411e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024122 4e 76                    |Nv      |		TRAPV
00024124 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00024128 48 e7 e1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D2+D1+D0,-(A7)
0002412c 45 ee ff ed              |E       |		LEA.L	(A6-0x13),A2
00024130 72 01                    |r       |		MOVEQ.L	#0x01,D1
00024132 74 14                    |t       |		MOVEQ.L	#0x14,D2
00024134 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00024136 10 07                    |        |		MOVE.B	D7,D0
00024138 48 80                    |H       |		EXTB.W	D0
0002413a 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
0002413e 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00024142 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
00024148 4a 30 00 13              |J0      |		TST.B	(A0+D0.W+#0x13)
0002414c 67 58                    |gX      |		BEQ	0x241a6
0002414e 1f 07                    |        |		MOVE.B	D7,-(A7)
00024150 1f 01                    |        |		MOVE.B	D1,-(A7)
00024152 42 27                    |B'      |		CLR.B	-(A7)
00024154 48 52                    |HR      |		PEA.L	(A2)
00024156 4e b9 00 02 4b 74        |N   Kt  |		JSR	0x24b74
0002415c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002415e 1e 87                    |        |		MOVE.B	D7,(A7)
00024160 48 78 00 00              |Hx      |		PEA.L	0x0
00024164 9e c2                    |        |		SUBA.W	D2,A7
00024166 20 4f                    | O      |		MOVEA.L	A7,A0
00024168 22 4a                    |"J      |		MOVEA.L	A2,A1
0002416a 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002416c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002416e 51 c8 ff fc              |Q       |		DBF	D0,0x2416c
00024172 4e ba ea 5e              |N  ^    |		JSR	0x22bd2
00024176 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002417a 1e 87                    |        |		MOVE.B	D7,(A7)
0002417c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002417e 1f 01                    |        |		MOVE.B	D1,-(A7)
00024180 48 52                    |HR      |		PEA.L	(A2)
00024182 4e b9 00 02 4b 74        |N   Kt  |		JSR	0x24b74
00024188 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002418a 1e 87                    |        |		MOVE.B	D7,(A7)
0002418c 48 78 00 01              |Hx      |		PEA.L	0x1
00024190 9e c2                    |        |		SUBA.W	D2,A7
00024192 20 4f                    | O      |		MOVEA.L	A7,A0
00024194 22 4a                    |"J      |		MOVEA.L	A2,A1
00024196 70 12                    |p       |		MOVEQ.L	#0x12,D0
00024198 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002419a 51 c8 ff fc              |Q       |		DBF	D0,0x24198
0002419e 4e ba ea 32              |N  2    |		JSR	0x22bd2
000241a2 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000241a6 52 07                    |R       |		ADDQ.B	#0x1,D7
000241a8 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000241ac 6f 88                    |o       |		BLE	0x24136
000241ae 4c df 07 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2
000241b2 4e 5e                    |N^      |		UNLK	A6
000241b4 4e 75                    |Nu      |		RTS
000241b6 ; --------------------------------------------------------------------------------------
000241b6 ; OMSI PASCAL Function
000241b6 ;    <LVAR -0x006 1(r)>
000241b6 ;    <LVAR -0x00e @>
000241b6 ;    <LVAR -0x016 @>
000241b6 ;    <LVAR -0x017 1(w)>
000241b6 ;    <LVAR -0x01f @>
000241b6 ; --------------------------------------------------------------------------------------
000241b6 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
000241ba bf d5                    |        |		CMPA.L	(A5),A7
000241bc 62 06                    |b       |		BHI	0x241c4
000241be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000241c2 4e 76                    |Nv      |		TRAPV
000241c4 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000241c8 48 e7 e1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D2+D1+D0,-(A7)
000241cc 45 ee ff e1              |E       |		LEA.L	(A6-0x1f),A2
000241d0 72 01                    |r       |		MOVEQ.L	#0x01,D1
000241d2 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
000241d4 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000241d6 10 07                    |        |		MOVE.B	D7,D0
000241d8 48 80                    |H       |		EXTB.W	D0
000241da 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
000241de 41 bc 00 03              |A       |		CHK.W	#0x3,D0
000241e2 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
000241e8 4a 30 00 13              |J0      |		TST.B	(A0+D0.W+#0x13)
000241ec 67 00 00 c0              |g       |		BEQ	0x242ae
000241f0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000241f2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000241f8 4a 1f                    |J       |		TST.B	(A7)+
000241fa 67 12                    |g       |		BEQ	0x2420e
000241fc 1f 07                    |        |		MOVE.B	D7,-(A7)
000241fe 1f 01                    |        |		MOVE.B	D1,-(A7)
00024200 42 27                    |B'      |		CLR.B	-(A7)
00024202 48 52                    |HR      |		PEA.L	(A2)
00024204 4e b9 00 02 50 fe        |N   P   |		JSR	exp_READ_TVR.MEM(&w, &w, &Sr_8_1)
0002420a de c2                    |        |		ADDA.W	D2,A7
0002420c 60 26                    |`&      |		BRA	0x24234
0002420e 1f 07                    |        |		MOVE.B	D7,-(A7)
00024210 1f 01                    |        |		MOVE.B	D1,-(A7)
00024212 42 27                    |B'      |		CLR.B	-(A7)
00024214 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00024218 4e b9 00 02 4b 74        |N   Kt  |		JSR	0x24b74
0002421e de c2                    |        |		ADDA.W	D2,A7
00024220 20 4a                    | J      |		MOVEA.L	A2,A0
00024222 43 ee ff f2              |C       |		LEA.L	(A6-0xe),A1
00024226 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024228 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002422a 51 c8 ff fc              |Q       |		DBF	D0,0x24228
0002422e 1d 6e ff fa ff e9        | n      |		MOVE.B	(A6-0x6),(A6-0x17)
00024234 1f 07                    |        |		MOVE.B	D7,-(A7)
00024236 48 78 00 00              |Hx      |		PEA.L	0x0
0002423a 9e c2                    |        |		SUBA.W	D2,A7
0002423c 20 4f                    | O      |		MOVEA.L	A7,A0
0002423e 22 4a                    |"J      |		MOVEA.L	A2,A1
00024240 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024242 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024244 51 c8 ff fc              |Q       |		DBF	D0,0x24242
00024248 4e ba e3 7e              |N  ~    |		JSR	0x225c8
0002424c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024250 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024256 4a 1f                    |J       |		TST.B	(A7)+
00024258 67 12                    |g       |		BEQ	0x2426c
0002425a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002425c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002425e 1f 01                    |        |		MOVE.B	D1,-(A7)
00024260 48 52                    |HR      |		PEA.L	(A2)
00024262 4e b9 00 02 50 fe        |N   P   |		JSR	exp_READ_TVR.MEM(&w, &w, &Sr_8_1)
00024268 de c2                    |        |		ADDA.W	D2,A7
0002426a 60 26                    |`&      |		BRA	0x24292
0002426c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002426e 1f 01                    |        |		MOVE.B	D1,-(A7)
00024270 1f 01                    |        |		MOVE.B	D1,-(A7)
00024272 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00024276 4e b9 00 02 4b 74        |N   Kt  |		JSR	0x24b74
0002427c de c2                    |        |		ADDA.W	D2,A7
0002427e 20 4a                    | J      |		MOVEA.L	A2,A0
00024280 43 ee ff f2              |C       |		LEA.L	(A6-0xe),A1
00024284 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024286 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024288 51 c8 ff fc              |Q       |		DBF	D0,0x24286
0002428c 1d 6e ff fa ff e9        | n      |		MOVE.B	(A6-0x6),(A6-0x17)
00024292 1f 07                    |        |		MOVE.B	D7,-(A7)
00024294 48 78 00 01              |Hx      |		PEA.L	0x1
00024298 9e c2                    |        |		SUBA.W	D2,A7
0002429a 20 4f                    | O      |		MOVEA.L	A7,A0
0002429c 22 4a                    |"J      |		MOVEA.L	A2,A1
0002429e 70 08                    |p       |		MOVEQ.L	#0x08,D0
000242a0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000242a2 51 c8 ff fc              |Q       |		DBF	D0,0x242a0
000242a6 4e ba e3 20              |N       |		JSR	0x225c8
000242aa de fc 00 10              |        |		ADDA.W	#0x10,A7
000242ae 52 07                    |R       |		ADDQ.B	#0x1,D7
000242b0 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000242b4 6f 00 ff 20              |o       |		BLE	0x241d6
000242b8 4c df 07 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2
000242bc 4e 5e                    |N^      |		UNLK	A6
000242be 4e 75                    |Nu      |		RTS
000242c0 ; --------------------------------------------------------------------------------------
000242c0 ; OMSI PASCAL Function
000242c0 ;    <LVAR  0x008 4(r)>
000242c0 ;    <LVAR -0x008 4(rw)>
000242c0 ;    <LVAR -0x00c 4(rw)>
000242c0 ;    <LVAR -0x010 4(rw)>
000242c0 ;    <LVAR -0x014 4(rw)>
000242c0 ; --------------------------------------------------------------------------------------
000242c0 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
000242c4 bf d5                    |        |		CMPA.L	(A5),A7
000242c6 62 06                    |b       |		BHI	0x242ce
000242c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000242cc 4e 76                    |Nv      |		TRAPV
000242ce de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
000242d2 48 e7 f0 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D3+D2+D1+D0,-(A7)
000242d6 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000242d8 74 01                    |t       |		MOVEQ.L	#0x01,D2
000242da 76 0b                    |v       |		MOVEQ.L	#0x0b,D3
000242dc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000242e0 9e c1                    |        |		SUBA.W	D1,A7
000242e2 22 4f                    |"O      |		MOVEA.L	A7,A1
000242e4 45 fa c3 30              |E  0    |		LEA.L	0x20616,A2
000242e8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000242ea 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000242ec 51 c8 ff fc              |Q       |		DBF	D0,0x242ea
000242f0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000242f2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000242f4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000242f6 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000242fa 3f 02                    |?       |		MOVE.W	D2,-(A7)
000242fc 3f 03                    |?       |		MOVE.W	D3,-(A7)
000242fe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024304 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024306 4e ba d2 64              |N  d    |		JSR	0x2156c
0002430a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002430c 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00024310 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00024314 22 4f                    |"O      |		MOVEA.L	A7,A1
00024316 45 fa c3 0a              |E       |		LEA.L	0x20622,A2
0002431a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002431c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002431e 51 c8 ff fc              |Q       |		DBF	D0,0x2431c
00024322 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024324 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024326 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024328 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002432c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002432e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024330 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024336 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024338 4e ba d2 32              |N  2    |		JSR	0x2156c
0002433c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002433e 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00024342 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00024346 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002434a 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
0002434e 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00024352 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00024356 4e ba da 32              |N  2    |		JSR	0x21d8a
0002435a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002435e 48 78 00 10              |Hx      |		PEA.L	0x10
00024362 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00024368 de c1                    |        |		ADDA.W	D1,A7
0002436a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002436c 42 27                    |B'      |		CLR.B	-(A7)
0002436e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024370 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00024376 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024378 4c df 17 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A4
0002437c 4e 5e                    |N^      |		UNLK	A6
0002437e 4e 75                    |Nu      |		RTS
00024380 ; --------------------------------------------------------------------------------------
00024380 ; OMSI PASCAL Function
00024380 ; --------------------------------------------------------------------------------------
00024380					START:
00024380 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00024384 4e f9 00 01 02 80        |N       |		JMP	?start_program
0002438a					MAIN:
0002438a 45 f9 00 02 51 22        |E   Q"  |		LEA.L	0x25122,A2
00024390 47 f9 00 02 51 26        |G   Q&  |		LEA.L	0x25126,A3
00024396 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
0002439c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002439e 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000243a0 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
000243a2 7a 0b                    |z       |		MOVEQ.L	#0x0b,D5
000243a4 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000243aa 48 78 00 0f              |Hx      |		PEA.L	0xf
000243ae 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
000243b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243b6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000243b8 13 c0 00 02 51 2c        |    Q,  |		MOVE.B	D0,0x2512c
000243be 12 00                    |        |		MOVE.B	D0,D1
000243c0 48 81                    |H       |		EXTB.W	D1
000243c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000243c4 30 01                    |0       |		MOVE.W	D1,D0
000243c6 90 44                    | D      |		SUB.W	D4,D0
000243c8 41 bc 00 03              |A       |		CHK.W	#0x3,D0
000243cc 41 f9 00 02 51 1a        |A   Q   |		LEA.L	0x2511a,A0
000243d2 42 30 00 13              |B0      |		CLR.B	(A0+D0.W+#0x13)
000243d6 30 1f                    |0       |		MOVE.W	(A7)+,D0
000243d8 52 40                    |R@      |		ADDQ.W	#0x1,D0
000243da 0c 40 00 0f              | @      |		CMPI.W	#0x000f,D0
000243de 6f d8                    |o       |		BLE	0x243b8
000243e0 48 53                    |HS      |		PEA.L	(A3)
000243e2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000243e8 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
000243ee 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000243f0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000243f2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000243f4 48 79 00 02 51 2b        |Hy  Q+  |		PEA.L	0x2512b
000243fa 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
00024400 de c4                    |        |		ADDA.W	D4,A7
00024402 4a 39 00 02 51 2b        |J9  Q+  |		TST.B	0x2512b
00024408 66 30                    |f0      |		BNE	0x2443a
0002440a 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
0002440e 20 4f                    | O      |		MOVEA.L	A7,A0
00024410 43 fa c2 1c              |C       |		LEA.L	0x2062e,A1
00024414 70 24                    |p$      |		MOVEQ.L	#0x24,D0
00024416 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024418 51 c8 ff fc              |Q       |		DBF	D0,0x24416
0002441c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002441e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024422 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024424 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
00024428 4e 94                    |N       |		JSR	(A4)
0002442a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002442c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024432 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00024436 60 00 01 32              |`  2    |		BRA	0x2456a
0002443a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002443c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002443e 4e ba d0 26              |N  &    |		JSR	0x21466
00024442 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024444 10 1f                    |        |		MOVE.B	(A7)+,D0
00024446 48 80                    |H       |		EXTB.W	D0
00024448 41 85                    |A       |		CHK.W	D5,D0
0002444a 13 c0 00 02 51 2a        |    Q*  |		MOVE.B	D0,0x2512a
00024450 b0 05                    |        |		CMP.B	D5,D0
00024452 66 60                    |f`      |		BNE	0x244b4
00024454 9e c3                    |        |		SUBA.W	D3,A7
00024456 20 4f                    | O      |		MOVEA.L	A7,A0
00024458 43 fa c2 0e              |C       |		LEA.L	0x20668,A1
0002445c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002445e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024460 51 c8 ff fc              |Q       |		DBF	D0,0x2445e
00024464 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024466 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002446a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002446c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00024470 4e 94                    |N       |		JSR	(A4)
00024472 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024474 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002447a de c3                    |        |		ADDA.W	D3,A7
0002447c 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002447e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00024484 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00024488 20 4f                    | O      |		MOVEA.L	A7,A0
0002448a 43 fa c1 e6              |C       |		LEA.L	0x20672,A1
0002448e 70 14                    |p       |		MOVEQ.L	#0x14,D0
00024490 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024492 51 c8 ff fc              |Q       |		DBF	D0,0x24490
00024496 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024498 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002449c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002449e 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000244a2 4e 94                    |N       |		JSR	(A4)
000244a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244a6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000244ac de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000244b0 60 00 00 b8              |`       |		BRA	0x2456a
000244b4 4e ba d0 3e              |N  >    |		JSR	0x214f4
000244b8 10 39 00 02 51 2a        | 9  Q*  |		MOVE.B	0x2512a,D0
000244be 48 80                    |H       |		EXTB.W	D0
000244c0 b0 43                    | C      |		CMP.W	D3,D0
000244c2 62 7a                    |bz      |		BHI	0x2453e
000244c4 d0 40                    | @      |		ADD.W	D0,D0
000244c6 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000244ce 00 16                    |        |		.CONST	0x16			; [0x0] -> 0x244e4
000244d0 00 48                    | H      |		.CONST	0x48			; [0x1] -> 0x24516
000244d2 00 20                    |        |		.CONST	0x20			; [0x2] -> 0x244ee
000244d4 00 38                    | 8      |		.CONST	0x38			; [0x3] -> 0x24506
000244d6 00 28                    | (      |		.CONST	0x28			; [0x4] -> 0x244f6
000244d8 00 40                    | @      |		.CONST	0x40			; [0x5] -> 0x2450e
000244da 00 30                    | 0      |		.CONST	0x30			; [0x6] -> 0x244fe
000244dc 00 50                    | P      |		.CONST	0x50			; [0x7] -> 0x2451e
000244de 00 58                    | X      |		.CONST	0x58			; [0x8] -> 0x24526
000244e0 00 60                    | `      |		.CONST	0x60			; [0x9] -> 0x2452e
000244e2 00 68                    | h      |		.CONST	0x68			; [0xa] -> 0x24536
000244e4					switch@0x244c6[0x0]:
000244e4 48 52                    |HR      |		PEA.L	(A2)
000244e6 4e ba ea 96              |N       |		JSR	0x22f7e
000244ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244ec 60 7c                    |`|      |		BRA	0x2456a
000244ee					switch@0x244c6[0x2]:
000244ee 48 52                    |HR      |		PEA.L	(A2)
000244f0 4e ba ed 96              |N       |		JSR	0x23288
000244f4 60 f4                    |`       |		BRA	0x244ea
000244f6					switch@0x244c6[0x4]:
000244f6 48 52                    |HR      |		PEA.L	(A2)
000244f8 4e ba ef d0              |N       |		JSR	0x234ca
000244fc 60 ec                    |`       |		BRA	0x244ea
000244fe					switch@0x244c6[0x6]:
000244fe 48 52                    |HR      |		PEA.L	(A2)
00024500 4e ba f2 e2              |N       |		JSR	0x237e4
00024504 60 e4                    |`       |		BRA	0x244ea
00024506					switch@0x244c6[0x3]:
00024506 48 52                    |HR      |		PEA.L	(A2)
00024508 4e ba f5 18              |N       |		JSR	0x23a22
0002450c 60 dc                    |`       |		BRA	0x244ea
0002450e					switch@0x244c6[0x5]:
0002450e 48 52                    |HR      |		PEA.L	(A2)
00024510 4e ba f6 38              |N  8    |		JSR	0x23b4a
00024514 60 d4                    |`       |		BRA	0x244ea
00024516					switch@0x244c6[0x1]:
00024516 48 52                    |HR      |		PEA.L	(A2)
00024518 4e ba f7 c4              |N       |		JSR	0x23cde
0002451c 60 cc                    |`       |		BRA	0x244ea
0002451e					switch@0x244c6[0x7]:
0002451e 48 52                    |HR      |		PEA.L	(A2)
00024520 4e ba f8 fe              |N       |		JSR	0x23e20
00024524 60 c4                    |`       |		BRA	0x244ea
00024526					switch@0x244c6[0x8]:
00024526 48 52                    |HR      |		PEA.L	(A2)
00024528 4e ba fb ec              |N       |		JSR	0x24116
0002452c 60 bc                    |`       |		BRA	0x244ea
0002452e					switch@0x244c6[0x9]:
0002452e 48 52                    |HR      |		PEA.L	(A2)
00024530 4e ba fc 84              |N       |		JSR	0x241b6
00024534 60 b4                    |`       |		BRA	0x244ea
00024536					switch@0x244c6[0xa]:
00024536 48 52                    |HR      |		PEA.L	(A2)
00024538 4e ba fd 86              |N       |		JSR	0x242c0
0002453c 60 ac                    |`       |		BRA	0x244ea
0002453e 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00024542 20 4f                    | O      |		MOVEA.L	A7,A0
00024544 43 fa c1 0e              |C       |		LEA.L	0x20654,A1
00024548 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002454a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002454c 51 c8 ff fc              |Q       |		DBF	D0,0x2454a
00024550 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024552 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024556 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024558 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
0002455c 4e 94                    |N       |		JSR	(A4)
0002455e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024560 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024566 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002456a 42 27                    |B'      |		CLR.B	-(A7)
0002456c 48 78 00 01              |Hx      |		PEA.L	0x1
00024570 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00024576 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024578 4e b9 00 01 02 84        |N       |		JSR	?exit
0002457e 57 52 49 54 45 5f 54 41  |WRITE_TA|		.TXT	'WRITE_TAGSTORE.MEM'
00024590 57 52 49 54 45 5f 54 41  |WRITE_TA|		.TXT	'WRITE_TAGSTORE.M32'
000245a2 ; --------------------------------------------------------------------------------------
000245a2 ; OMSI PASCAL Function
000245a2 ;    <LVAR  0x016 1(r)>
000245a2 ;    <LVAR  0x014 1(r)>
000245a2 ;    <LVAR  0x012 2(r)>
000245a2 ;    <LVAR  0x010 1(r)>
000245a2 ;    <LVAR  0x00c 4(r)>
000245a2 ;    <LVAR  0x008 4(r)>
000245a2 ;    <LVAR -0x004 @ 4(r)>
000245a2 ; --------------------------------------------------------------------------------------
000245a2 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
000245a6 bf d5                    |        |		CMPA.L	(A5),A7
000245a8 62 06                    |b       |		BHI	0x245b0
000245aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000245ae 4e 76                    |Nv      |		TRAPV
000245b0 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000245b4 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
000245b8 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000245bc 45 f8 00 00              |E       |		LEA.L	0x0,A2
000245c0 47 f9 00 01 04 66        |G    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A3
000245c6 72 10                    |r       |		MOVEQ.L	#0x10,D1
000245c8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000245ca 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000245d0 4a 1f                    |J       |		TST.B	(A7)+
000245d2 67 0e                    |g       |		BEQ	0x245e2
000245d4 41 fa ff ba              |A       |		LEA.L	0x24590,A0
000245d8 70 08                    |p       |		MOVEQ.L	#0x08,D0
000245da 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000245dc 51 c8 ff fc              |Q       |		DBF	D0,0x245da
000245e0 60 0c                    |`       |		BRA	0x245ee
000245e2 41 fa ff be              |A       |		LEA.L	0x245a2,A0
000245e6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000245e8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000245ea 51 c8 ff fc              |Q       |		DBF	D0,0x245e8
000245ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245f0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000245f4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000245f8 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000245fc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024602 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024604 48 51                    |HQ      |		PEA.L	(A1)
00024606 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002460c de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00024610 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00024614 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024616 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002461a 48 52                    |HR      |		PEA.L	(A2)
0002461c 48 52                    |HR      |		PEA.L	(A2)
0002461e 4e 93                    |N       |		JSR	(A3)
00024620 de c1                    |        |		ADDA.W	D1,A7
00024622 3e ae 00 12              |>       |		MOVE.W	(A6+0x12),(A7)
00024626 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024628 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002462c 48 52                    |HR      |		PEA.L	(A2)
0002462e 48 78 00 01              |Hx      |		PEA.L	0x1
00024632 4e 93                    |N       |		JSR	(A3)
00024634 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024638 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
0002463c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024640 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024642 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024646 48 52                    |HR      |		PEA.L	(A2)
00024648 48 78 00 07              |Hx      |		PEA.L	0x7
0002464c 4e 93                    |N       |		JSR	(A3)
0002464e de fc 00 16              |        |		ADDA.W	#0x16,A7
00024652 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00024656 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024658 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002465c 48 52                    |HR      |		PEA.L	(A2)
0002465e 48 52                    |HR      |		PEA.L	(A2)
00024660 4e 93                    |N       |		JSR	(A3)
00024662 de c1                    |        |		ADDA.W	D1,A7
00024664 42 17                    |B       |		CLR.B	(A7)
00024666 1f 2e 00 16              | .      |		MOVE.B	(A6+0x16),-(A7)
0002466a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002466c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024672 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024674 48 51                    |HQ      |		PEA.L	(A1)
00024676 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002467c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002467e 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00024682 4e 5e                    |N^      |		UNLK	A6
00024684 4e 75                    |Nu      |		RTS
00024686 57 52 49 54 45 5f 4d 45  |WRITE_ME|		.TXT	'WRITE_MEMORY_SPECIAL.MEM'
0002469e 57 52 49 54 45 5f 4d 45  |WRITE_ME|		.TXT	'WRITE_MEMORY_SPECIAL.M32'
000246b6 ; --------------------------------------------------------------------------------------
000246b6 ; OMSI PASCAL Function
000246b6 ;    <LVAR  0x028 1(r)>
000246b6 ;    <LVAR  0x026 1(r)>
000246b6 ;    <LVAR  0x024 1(r)>
000246b6 ;    <LVAR  0x020 4(r)>
000246b6 ;    <LVAR  0x01c 4(r)>
000246b6 ;    <LVAR  0x01a 1(r)>
000246b6 ;    <LVAR  0x019 1(r)>
000246b6 ;    <LVAR  0x018 1(r)>
000246b6 ;    <LVAR  0x014 4(r)>
000246b6 ;    <LVAR  0x010 4(r)>
000246b6 ;    <LVAR  0x00c 4(r)>
000246b6 ;    <LVAR  0x008 4(r)>
000246b6 ;    <LVAR -0x006 @ 4(r)>
000246b6 ; --------------------------------------------------------------------------------------
000246b6 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
000246ba bf d5                    |        |		CMPA.L	(A5),A7
000246bc 62 06                    |b       |		BHI	0x246c4
000246be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000246c2 4e 76                    |Nv      |		TRAPV
000246c4 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
000246c8 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
000246cc 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
000246d0 45 f8 00 00              |E       |		LEA.L	0x0,A2
000246d4 47 f9 00 01 04 66        |G    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A3
000246da 72 10                    |r       |		MOVEQ.L	#0x10,D1
000246dc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000246de 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000246e4 4a 1f                    |J       |		TST.B	(A7)+
000246e6 67 0e                    |g       |		BEQ	0x246f6
000246e8 41 fa ff b4              |A       |		LEA.L	0x2469e,A0
000246ec 70 05                    |p       |		MOVEQ.L	#0x05,D0
000246ee 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000246f0 51 c8 ff fc              |Q       |		DBF	D0,0x246ee
000246f4 60 0c                    |`       |		BRA	0x24702
000246f6 41 fa ff be              |A       |		LEA.L	0x246b6,A0
000246fa 70 05                    |p       |		MOVEQ.L	#0x05,D0
000246fc 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000246fe 51 c8 ff fc              |Q       |		DBF	D0,0x246fc
00024702 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024704 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024708 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002470c 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00024710 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024716 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024718 48 51                    |HQ      |		PEA.L	(A1)
0002471a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024720 de fc 00 20              |        |		ADDA.W	#0x20,A7
00024724 1f 2e 00 26              | . &    |		MOVE.B	(A6+0x26),-(A7)
00024728 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002472a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002472e 48 52                    |HR      |		PEA.L	(A2)
00024730 48 52                    |HR      |		PEA.L	(A2)
00024732 4e 93                    |N       |		JSR	(A3)
00024734 de c1                    |        |		ADDA.W	D1,A7
00024736 1e ae 00 24              |   $    |		MOVE.B	(A6+0x24),(A7)
0002473a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002473c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024740 48 52                    |HR      |		PEA.L	(A2)
00024742 48 52                    |HR      |		PEA.L	(A2)
00024744 4e 93                    |N       |		JSR	(A3)
00024746 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002474a 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
0002474e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024750 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024754 48 52                    |HR      |		PEA.L	(A2)
00024756 48 78 00 03              |Hx      |		PEA.L	0x3
0002475a 4e 93                    |N       |		JSR	(A3)
0002475c de c1                    |        |		ADDA.W	D1,A7
0002475e 2e ae 00 1c              |.       |		MOVE.L	(A6+0x1c),(A7)
00024762 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024764 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024768 48 52                    |HR      |		PEA.L	(A2)
0002476a 48 78 00 03              |Hx      |		PEA.L	0x3
0002476e 4e 93                    |N       |		JSR	(A3)
00024770 de c1                    |        |		ADDA.W	D1,A7
00024772 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00024776 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002477a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002477c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024780 48 52                    |HR      |		PEA.L	(A2)
00024782 48 78 00 07              |Hx      |		PEA.L	0x7
00024786 4e 93                    |N       |		JSR	(A3)
00024788 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002478c 2e ae 00 14              |.       |		MOVE.L	(A6+0x14),(A7)
00024790 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00024794 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024796 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002479a 48 52                    |HR      |		PEA.L	(A2)
0002479c 48 78 00 07              |Hx      |		PEA.L	0x7
000247a0 4e 93                    |N       |		JSR	(A3)
000247a2 de fc 00 16              |        |		ADDA.W	#0x16,A7
000247a6 1e ae 00 18              |        |		MOVE.B	(A6+0x18),(A7)
000247aa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000247ac 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000247b0 48 52                    |HR      |		PEA.L	(A2)
000247b2 48 52                    |HR      |		PEA.L	(A2)
000247b4 4e 93                    |N       |		JSR	(A3)
000247b6 de c1                    |        |		ADDA.W	D1,A7
000247b8 1e ae 00 19              |        |		MOVE.B	(A6+0x19),(A7)
000247bc 1f 6e 00 1a 00 01        | n      |		MOVE.B	(A6+0x1a),(A7+0x1)
000247c2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000247c4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000247c8 48 52                    |HR      |		PEA.L	(A2)
000247ca 48 78 00 01              |Hx      |		PEA.L	0x1
000247ce 4e 93                    |N       |		JSR	(A3)
000247d0 de c1                    |        |		ADDA.W	D1,A7
000247d2 42 17                    |B       |		CLR.B	(A7)
000247d4 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
000247d8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000247da 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000247e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247e2 48 51                    |HQ      |		PEA.L	(A1)
000247e4 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000247ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247ec 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
000247f0 4e 5e                    |N^      |		UNLK	A6
000247f2 4e 75                    |Nu      |		RTS
000247f4 57 52 49 54              |WRIT    |		.TXT	'WRIT'
000247f8 45 5f 4d 45              |E_ME    |		.TXT	'E_ME'
000247fc 4d 4f 52 59              |MORY    |		.TXT	'MORY'
00024800 2e 4d 45 4d              |.MEM    |		.TXT	'.MEM'
00024804 57 52 49 54              |WRIT    |		.TXT	'WRIT'
00024808 45 5f 4d 45              |E_ME    |		.TXT	'E_ME'
0002480c 4d 4f 52 59              |MORY    |		.TXT	'MORY'
00024810 2e 4d 33 32              |.M32    |		.TXT	'.M32'
00024814 ; --------------------------------------------------------------------------------------
00024814 ; OMSI PASCAL Function
00024814 ;    <LVAR  0x022 1(r)>
00024814 ;    <LVAR  0x020 1(r)>
00024814 ;    <LVAR  0x01e 2(r)>
00024814 ;    <LVAR  0x01c 1(r)>
00024814 ;    <LVAR  0x01a 1(r)>
00024814 ;    <LVAR  0x019 1(r)>
00024814 ;    <LVAR  0x018 1(r)>
00024814 ;    <LVAR  0x014 4(r)>
00024814 ;    <LVAR  0x010 4(r)>
00024814 ;    <LVAR  0x00c 4(r)>
00024814 ;    <LVAR  0x008 4(r)>
00024814 ;    <LVAR -0x004 @ 4(r)>
00024814 ; --------------------------------------------------------------------------------------
00024814 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00024818 bf d5                    |        |		CMPA.L	(A5),A7
0002481a 62 06                    |b       |		BHI	0x24822
0002481c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024820 4e 76                    |Nv      |		TRAPV
00024822 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00024826 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
0002482a 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0002482e 43 f8 00 00              |C       |		LEA.L	0x0,A1
00024832 45 f9 00 01 04 66        |E    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A2
00024838 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002483a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002483c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024842 4a 1f                    |J       |		TST.B	(A7)+
00024844 67 12                    |g       |		BEQ	0x24858
00024846 2f 3a ff b8              |/:      |		MOVE.L	0x24800,-(A7)
0002484a 2f 3a ff b0              |/:      |		MOVE.L	0x247fc,-(A7)
0002484e 2f 3a ff a8              |/:      |		MOVE.L	0x247f8,-(A7)
00024852 2f 3a ff a0              |/:      |		MOVE.L	0x247f4,-(A7)
00024856 60 10                    |`       |		BRA	0x24868
00024858 2f 3a ff b6              |/:      |		MOVE.L	0x24810,-(A7)
0002485c 2f 3a ff ae              |/:      |		MOVE.L	0x2480c,-(A7)
00024860 2f 3a ff a6              |/:      |		MOVE.L	0x24808,-(A7)
00024864 2f 3a ff 9e              |/:      |		MOVE.L	0x24804,-(A7)
00024868 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002486a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002486e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024872 3f 00                    |?       |		MOVE.W	D0,-(A7)
00024874 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002487a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002487c 48 50                    |HP      |		PEA.L	(A0)
0002487e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024884 de fc 00 18              |        |		ADDA.W	#0x18,A7
00024888 1f 2e 00 20              | .      |		MOVE.B	(A6+0x20),-(A7)
0002488c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002488e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024892 48 51                    |HQ      |		PEA.L	(A1)
00024894 48 51                    |HQ      |		PEA.L	(A1)
00024896 4e 92                    |N       |		JSR	(A2)
00024898 de c0                    |        |		ADDA.W	D0,A7
0002489a 3e ae 00 1e              |>       |		MOVE.W	(A6+0x1e),(A7)
0002489e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248a4 48 51                    |HQ      |		PEA.L	(A1)
000248a6 48 78 00 01              |Hx      |		PEA.L	0x1
000248aa 4e 92                    |N       |		JSR	(A2)
000248ac de c0                    |        |		ADDA.W	D0,A7
000248ae 1e ae 00 1c              |        |		MOVE.B	(A6+0x1c),(A7)
000248b2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248b8 48 51                    |HQ      |		PEA.L	(A1)
000248ba 48 51                    |HQ      |		PEA.L	(A1)
000248bc 4e 92                    |N       |		JSR	(A2)
000248be de fc 00 0e              |        |		ADDA.W	#0xe,A7
000248c2 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000248c6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000248ca 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248d0 48 51                    |HQ      |		PEA.L	(A1)
000248d2 48 78 00 07              |Hx      |		PEA.L	0x7
000248d6 4e 92                    |N       |		JSR	(A2)
000248d8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000248dc 2e ae 00 14              |.       |		MOVE.L	(A6+0x14),(A7)
000248e0 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000248e4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248ea 48 51                    |HQ      |		PEA.L	(A1)
000248ec 48 78 00 07              |Hx      |		PEA.L	0x7
000248f0 4e 92                    |N       |		JSR	(A2)
000248f2 de fc 00 16              |        |		ADDA.W	#0x16,A7
000248f6 1e ae 00 18              |        |		MOVE.B	(A6+0x18),(A7)
000248fa 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000248fc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024900 48 51                    |HQ      |		PEA.L	(A1)
00024902 48 51                    |HQ      |		PEA.L	(A1)
00024904 4e 92                    |N       |		JSR	(A2)
00024906 de c0                    |        |		ADDA.W	D0,A7
00024908 1e ae 00 19              |        |		MOVE.B	(A6+0x19),(A7)
0002490c 1f 6e 00 1a 00 01        | n      |		MOVE.B	(A6+0x1a),(A7+0x1)
00024912 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024914 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024918 48 51                    |HQ      |		PEA.L	(A1)
0002491a 48 78 00 01              |Hx      |		PEA.L	0x1
0002491e 4e 92                    |N       |		JSR	(A2)
00024920 de c0                    |        |		ADDA.W	D0,A7
00024922 42 17                    |B       |		CLR.B	(A7)
00024924 1f 2e 00 22              | . "    |		MOVE.B	(A6+0x22),-(A7)
00024928 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002492a 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024930 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024932 48 50                    |HP      |		PEA.L	(A0)
00024934 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002493a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002493c 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00024940 4e 5e                    |N^      |		UNLK	A6
00024942 4e 75                    |Nu      |		RTS
00024944 53 45 54 5f 4d 4f 44 49  |SET_MODI|		.TXT	'SET_MODIFIED_BIT.MEM'
00024958 53 45 54 5f 4d 4f 44 49  |SET_MODI|		.TXT	'SET_MODIFIED_BIT.M32'
0002496c ; --------------------------------------------------------------------------------------
0002496c ; OMSI PASCAL Function
0002496c ;    <LVAR  0x014 1(r)>
0002496c ;    <LVAR  0x012 1(r)>
0002496c ;    <LVAR  0x010 1(r)>
0002496c ;    <LVAR  0x00c 4(r)>
0002496c ;    <LVAR  0x008 4(r)>
0002496c ;    <LVAR -0x006 @ 4(r)>
0002496c ; --------------------------------------------------------------------------------------
0002496c 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00024970 bf d5                    |        |		CMPA.L	(A5),A7
00024972 62 06                    |b       |		BHI	0x2497a
00024974 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024978 4e 76                    |Nv      |		TRAPV
0002497a de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002497e 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00024982 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00024986 45 f8 00 00              |E       |		LEA.L	0x0,A2
0002498a 47 f9 00 01 04 66        |G    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A3
00024990 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024992 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024994 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002499a 4a 1f                    |J       |		TST.B	(A7)+
0002499c 67 0e                    |g       |		BEQ	0x249ac
0002499e 41 fa ff b8              |A       |		LEA.L	0x24958,A0
000249a2 70 04                    |p       |		MOVEQ.L	#0x04,D0
000249a4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000249a6 51 c8 ff fc              |Q       |		DBF	D0,0x249a4
000249aa 60 0c                    |`       |		BRA	0x249b8
000249ac 41 fa ff be              |A       |		LEA.L	0x2496c,A0
000249b0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000249b2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000249b4 51 c8 ff fc              |Q       |		DBF	D0,0x249b2
000249b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249ba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249be 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000249c2 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000249c6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000249cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249ce 48 51                    |HQ      |		PEA.L	(A1)
000249d0 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000249d6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000249da 1f 2e 00 12              | .      |		MOVE.B	(A6+0x12),-(A7)
000249de 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000249e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249e4 48 52                    |HR      |		PEA.L	(A2)
000249e6 48 52                    |HR      |		PEA.L	(A2)
000249e8 4e 93                    |N       |		JSR	(A3)
000249ea de c1                    |        |		ADDA.W	D1,A7
000249ec 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
000249f0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000249f2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249f6 48 52                    |HR      |		PEA.L	(A2)
000249f8 48 52                    |HR      |		PEA.L	(A2)
000249fa 4e 93                    |N       |		JSR	(A3)
000249fc de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024a00 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00024a04 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a06 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a0a 48 52                    |HR      |		PEA.L	(A2)
00024a0c 48 78 00 03              |Hx      |		PEA.L	0x3
00024a10 4e 93                    |N       |		JSR	(A3)
00024a12 de c1                    |        |		ADDA.W	D1,A7
00024a14 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00024a18 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a1a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a1e 48 52                    |HR      |		PEA.L	(A2)
00024a20 48 78 00 03              |Hx      |		PEA.L	0x3
00024a24 4e 93                    |N       |		JSR	(A3)
00024a26 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024a2a 42 17                    |B       |		CLR.B	(A7)
00024a2c 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00024a30 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024a32 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024a38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a3a 48 51                    |HQ      |		PEA.L	(A1)
00024a3c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00024a42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a44 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00024a48 4e 5e                    |N^      |		UNLK	A6
00024a4a 4e 75                    |Nu      |		RTS
00024a4c 52 45 41 44 5f 54 41 47  |READ_TAG|		.TXT	'READ_TAGSTORE.MEM '
00024a5e 52 45 41 44 5f 54 41 47  |READ_TAG|		.TXT	'READ_TAGSTORE.M32 '
00024a70 ; --------------------------------------------------------------------------------------
00024a70 ; OMSI PASCAL Function
00024a70 ;    <LVAR  0x010 1(r)>
00024a70 ;    <LVAR  0x00e 1(r)>
00024a70 ;    <LVAR  0x00c 2(r)>
00024a70 ;    <LVAR  0x008 4(r)>
00024a70 ;    <LVAR -0x006 @ 4(r)>
00024a70 ; --------------------------------------------------------------------------------------
00024a70 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00024a74 bf d5                    |        |		CMPA.L	(A5),A7
00024a76 62 06                    |b       |		BHI	0x24a7e
00024a78 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024a7c 4e 76                    |Nv      |		TRAPV
00024a7e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00024a82 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00024a86 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00024a8a 47 f8 00 00              |G       |		LEA.L	0x0,A3
00024a8e 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024a90 74 12                    |t       |		MOVEQ.L	#0x12,D2
00024a92 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024a94 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024a9a 4a 1f                    |J       |		TST.B	(A7)+
00024a9c 67 12                    |g       |		BEQ	0x24ab0
00024a9e 9e c2                    |        |		SUBA.W	D2,A7
00024aa0 20 4f                    | O      |		MOVEA.L	A7,A0
00024aa2 43 fa ff a8              |C       |		LEA.L	0x24a4c,A1
00024aa6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024aa8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024aaa 51 c8 ff fc              |Q       |		DBF	D0,0x24aa8
00024aae 60 10                    |`       |		BRA	0x24ac0
00024ab0 9e c2                    |        |		SUBA.W	D2,A7
00024ab2 20 4f                    | O      |		MOVEA.L	A7,A0
00024ab4 43 fa ff a8              |C       |		LEA.L	0x24a5e,A1
00024ab8 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024aba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024abc 51 c8 ff fc              |Q       |		DBF	D0,0x24aba
00024ac0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ac2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024ac6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024aca 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00024ace 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024ad4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ad6 48 52                    |HR      |		PEA.L	(A2)
00024ad8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024ade de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00024ae2 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00024ae6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ae8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024aec 48 53                    |HS      |		PEA.L	(A3)
00024aee 48 53                    |HS      |		PEA.L	(A3)
00024af0 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00024af6 de c1                    |        |		ADDA.W	D1,A7
00024af8 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
00024afc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024afe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b02 48 53                    |HS      |		PEA.L	(A3)
00024b04 48 78 00 01              |Hx      |		PEA.L	0x1
00024b08 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00024b0e de c1                    |        |		ADDA.W	D1,A7
00024b10 42 17                    |B       |		CLR.B	(A7)
00024b12 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00024b16 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024b18 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024b1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b20 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024b24 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024b26 48 50                    |HP      |		PEA.L	(A0)
00024b28 48 53                    |HS      |		PEA.L	(A3)
00024b2a 48 78 00 07              |Hx      |		PEA.L	0x7
00024b2e 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024b34 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024b38 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024b3a 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
00024b3e 48 53                    |HS      |		PEA.L	(A3)
00024b40 48 53                    |HS      |		PEA.L	(A3)
00024b42 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024b48 de c1                    |        |		ADDA.W	D1,A7
00024b4a 48 52                    |HR      |		PEA.L	(A2)
00024b4c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00024b52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b54 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00024b58 4e 5e                    |N^      |		UNLK	A6
00024b5a 4e 75                    |Nu      |		RTS
00024b5c 52 45 41 44              |READ    |		.TXT	'READ'
00024b60 5f 52 44 52              |_RDR    |		.TXT	'_RDR'
00024b64 2e 4d 45 4d              |.MEM    |		.TXT	'.MEM'
00024b68 52 45 41 44              |READ    |		.TXT	'READ'
00024b6c 5f 52 44 52              |_RDR    |		.TXT	'_RDR'
00024b70 2e 4d 33 32              |.M32    |		.TXT	'.M32'
00024b74 ; --------------------------------------------------------------------------------------
00024b74 ; OMSI PASCAL Function
00024b74 ;    <LVAR  0x010 1(r)>
00024b74 ;    <LVAR  0x00e 1(r)>
00024b74 ;    <LVAR  0x00c 1(r)>
00024b74 ;    <LVAR  0x008 4(r)>
00024b74 ;    <LVAR -0x006 @ 4(r)>
00024b74 ; --------------------------------------------------------------------------------------
00024b74 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00024b78 bf d5                    |        |		CMPA.L	(A5),A7
00024b7a 62 06                    |b       |		BHI	0x24b82
00024b7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024b80 4e 76                    |Nv      |		TRAPV
00024b82 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00024b86 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00024b8a 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00024b8e 45 f8 00 00              |E       |		LEA.L	0x0,A2
00024b92 47 f9 00 01 04 72        |G    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A3
00024b98 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00024b9a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024b9c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024ba2 4a 1f                    |J       |		TST.B	(A7)+
00024ba4 67 0e                    |g       |		BEQ	0x24bb4
00024ba6 2f 3a ff bc              |/:      |		MOVE.L	0x24b64,-(A7)
00024baa 2f 3a ff b4              |/:      |		MOVE.L	0x24b60,-(A7)
00024bae 2f 3a ff ac              |/:      |		MOVE.L	0x24b5c,-(A7)
00024bb2 60 0c                    |`       |		BRA	0x24bc0
00024bb4 2f 3a ff ba              |/:      |		MOVE.L	0x24b70,-(A7)
00024bb8 2f 3a ff b2              |/:      |		MOVE.L	0x24b6c,-(A7)
00024bbc 2f 3a ff aa              |/:      |		MOVE.L	0x24b68,-(A7)
00024bc0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024bc2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024bc6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024bca 3f 00                    |?       |		MOVE.W	D0,-(A7)
00024bcc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024bd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bd4 48 51                    |HQ      |		PEA.L	(A1)
00024bd6 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024bdc de fc 00 14              |        |		ADDA.W	#0x14,A7
00024be0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024be2 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00024be6 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00024bec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024bee 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024bf0 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00024bf4 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00024bfa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024bfc 42 17                    |B       |		CLR.B	(A7)
00024bfe 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00024c02 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024c04 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024c0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c0c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024c10 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024c12 48 50                    |HP      |		PEA.L	(A0)
00024c14 48 52                    |HR      |		PEA.L	(A2)
00024c16 48 78 00 07              |Hx      |		PEA.L	0x7
00024c1a 4e 93                    |N       |		JSR	(A3)
00024c1c de c0                    |        |		ADDA.W	D0,A7
00024c1e 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024c20 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
00024c24 48 52                    |HR      |		PEA.L	(A2)
00024c26 48 78 00 07              |Hx      |		PEA.L	0x7
00024c2a 4e 93                    |N       |		JSR	(A3)
00024c2c de c0                    |        |		ADDA.W	D0,A7
00024c2e 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024c30 48 68 00 10              |Hh      |		PEA.L	(A0+0x10)
00024c34 48 52                    |HR      |		PEA.L	(A2)
00024c36 48 52                    |HR      |		PEA.L	(A2)
00024c38 4e 93                    |N       |		JSR	(A3)
00024c3a de c0                    |        |		ADDA.W	D0,A7
00024c3c 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024c3e 48 68 00 11              |Hh      |		PEA.L	(A0+0x11)
00024c42 48 52                    |HR      |		PEA.L	(A2)
00024c44 48 78 00 01              |Hx      |		PEA.L	0x1
00024c48 4e 93                    |N       |		JSR	(A3)
00024c4a de fc 00 10              |        |		ADDA.W	#0x10,A7
00024c4e 48 51                    |HQ      |		PEA.L	(A1)
00024c50 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00024c56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c58 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00024c5c 4e 5e                    |N^      |		UNLK	A6
00024c5e 4e 75                    |Nu      |		RTS
00024c60 52 45 41 44 5f 4d 45 4d  |READ_MEM|		.TXT	'READ_MEMORY_SPECIAL.MEM '
00024c78 52 45 41 44 5f 4d 45 4d  |READ_MEM|		.TXT	'READ_MEMORY_SPECIAL.M32 '
00024c90 ; --------------------------------------------------------------------------------------
00024c90 ; OMSI PASCAL Function
00024c90 ;    <LVAR  0x018 1(r)>
00024c90 ;    <LVAR  0x016 1(r)>
00024c90 ;    <LVAR  0x014 1(r)>
00024c90 ;    <LVAR  0x010 4(r)>
00024c90 ;    <LVAR  0x00c 4(r)>
00024c90 ;    <LVAR  0x008 4(r)>
00024c90 ;    <LVAR -0x006 @ 4(r)>
00024c90 ; --------------------------------------------------------------------------------------
00024c90 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00024c94 bf d5                    |        |		CMPA.L	(A5),A7
00024c96 62 06                    |b       |		BHI	0x24c9e
00024c98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c9c 4e 76                    |Nv      |		TRAPV
00024c9e de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00024ca2 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00024ca6 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00024caa 47 f8 00 00              |G       |		LEA.L	0x0,A3
00024cae 49 f9 00 01 04 66        |I    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A4
00024cb4 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024cb6 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00024cb8 76 18                    |v       |		MOVEQ.L	#0x18,D3
00024cba 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024cbc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024cc2 4a 1f                    |J       |		TST.B	(A7)+
00024cc4 67 12                    |g       |		BEQ	0x24cd8
00024cc6 9e c3                    |        |		SUBA.W	D3,A7
00024cc8 20 4f                    | O      |		MOVEA.L	A7,A0
00024cca 43 fa ff 94              |C       |		LEA.L	0x24c60,A1
00024cce 70 16                    |p       |		MOVEQ.L	#0x16,D0
00024cd0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024cd2 51 c8 ff fc              |Q       |		DBF	D0,0x24cd0
00024cd6 60 10                    |`       |		BRA	0x24ce8
00024cd8 9e c3                    |        |		SUBA.W	D3,A7
00024cda 20 4f                    | O      |		MOVEA.L	A7,A0
00024cdc 43 fa ff 9a              |C       |		LEA.L	0x24c78,A1
00024ce0 70 16                    |p       |		MOVEQ.L	#0x16,D0
00024ce2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024ce4 51 c8 ff fc              |Q       |		DBF	D0,0x24ce2
00024ce8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024cea 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024cee 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024cf2 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00024cf6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024cfc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024cfe 48 52                    |HR      |		PEA.L	(A2)
00024d00 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024d06 de fc 00 20              |        |		ADDA.W	#0x20,A7
00024d0a 1f 2e 00 16              | .      |		MOVE.B	(A6+0x16),-(A7)
00024d0e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d10 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024d14 48 53                    |HS      |		PEA.L	(A3)
00024d16 48 53                    |HS      |		PEA.L	(A3)
00024d18 4e 94                    |N       |		JSR	(A4)
00024d1a de c1                    |        |		ADDA.W	D1,A7
00024d1c 1e ae 00 14              |        |		MOVE.B	(A6+0x14),(A7)
00024d20 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d22 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024d26 48 53                    |HS      |		PEA.L	(A3)
00024d28 48 53                    |HS      |		PEA.L	(A3)
00024d2a 4e 94                    |N       |		JSR	(A4)
00024d2c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024d30 2e ae 00 10              |.       |		MOVE.L	(A6+0x10),(A7)
00024d34 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024d3a 48 53                    |HS      |		PEA.L	(A3)
00024d3c 48 78 00 03              |Hx      |		PEA.L	0x3
00024d40 4e 94                    |N       |		JSR	(A4)
00024d42 de c1                    |        |		ADDA.W	D1,A7
00024d44 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00024d48 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d4a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024d4e 48 53                    |HS      |		PEA.L	(A3)
00024d50 48 78 00 03              |Hx      |		PEA.L	0x3
00024d54 4e 94                    |N       |		JSR	(A4)
00024d56 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024d5a 42 17                    |B       |		CLR.B	(A7)
00024d5c 1f 2e 00 18              | .      |		MOVE.B	(A6+0x18),-(A7)
00024d60 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d62 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024d68 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d6a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024d6e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024d70 48 50                    |HP      |		PEA.L	(A0)
00024d72 48 53                    |HS      |		PEA.L	(A3)
00024d74 48 78 00 07              |Hx      |		PEA.L	0x7
00024d78 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024d7e de c2                    |        |		ADDA.W	D2,A7
00024d80 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024d82 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
00024d86 48 53                    |HS      |		PEA.L	(A3)
00024d88 48 78 00 07              |Hx      |		PEA.L	0x7
00024d8c 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024d92 de c2                    |        |		ADDA.W	D2,A7
00024d94 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024d96 48 68 00 10              |Hh      |		PEA.L	(A0+0x10)
00024d9a 48 53                    |HS      |		PEA.L	(A3)
00024d9c 48 53                    |HS      |		PEA.L	(A3)
00024d9e 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024da4 de c2                    |        |		ADDA.W	D2,A7
00024da6 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024da8 48 68 00 11              |Hh      |		PEA.L	(A0+0x11)
00024dac 48 53                    |HS      |		PEA.L	(A3)
00024dae 48 78 00 01              |Hx      |		PEA.L	0x1
00024db2 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00024db8 de c1                    |        |		ADDA.W	D1,A7
00024dba 48 52                    |HR      |		PEA.L	(A2)
00024dbc 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00024dc2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024dc4 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00024dc8 4e 5e                    |N^      |		UNLK	A6
00024dca 4e 75                    |Nu      |		RTS
00024dcc 52 45 41 44 5f 4d 45 4d  |READ_MEM|		.TXT	'READ_MEMORY.MEM '
00024ddc 52 45 41 44 5f 4d 45 4d  |READ_MEM|		.TXT	'READ_MEMORY.M32 '
00024dec ; --------------------------------------------------------------------------------------
00024dec ; OMSI PASCAL Function
00024dec ;    <LVAR  0x012 1(r)>
00024dec ;    <LVAR  0x010 1(r)>
00024dec ;    <LVAR  0x00e 2(r)>
00024dec ;    <LVAR  0x00c 1(r)>
00024dec ;    <LVAR  0x008 4(r)>
00024dec ;    <LVAR -0x004 @ 4(r)>
00024dec ; --------------------------------------------------------------------------------------
00024dec 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00024df0 bf d5                    |        |		CMPA.L	(A5),A7
00024df2 62 06                    |b       |		BHI	0x24dfa
00024df4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024df8 4e 76                    |Nv      |		TRAPV
00024dfa de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00024dfe 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00024e02 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00024e06 47 f8 00 00              |G       |		LEA.L	0x0,A3
00024e0a 49 f9 00 01 04 72        |I    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A4
00024e10 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024e12 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00024e14 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024e16 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024e1c 4a 1f                    |J       |		TST.B	(A7)+
00024e1e 67 12                    |g       |		BEQ	0x24e32
00024e20 9e c1                    |        |		SUBA.W	D1,A7
00024e22 20 4f                    | O      |		MOVEA.L	A7,A0
00024e24 43 fa ff a6              |C       |		LEA.L	0x24dcc,A1
00024e28 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024e2a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024e2c 51 c8 ff fc              |Q       |		DBF	D0,0x24e2a
00024e30 60 10                    |`       |		BRA	0x24e42
00024e32 9e c1                    |        |		SUBA.W	D1,A7
00024e34 20 4f                    | O      |		MOVEA.L	A7,A0
00024e36 43 fa ff a4              |C       |		LEA.L	0x24ddc,A1
00024e3a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024e3c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024e3e 51 c8 ff fc              |Q       |		DBF	D0,0x24e3c
00024e42 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024e44 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024e48 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024e4c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00024e50 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024e56 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e58 48 52                    |HR      |		PEA.L	(A2)
00024e5a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024e60 de fc 00 18              |        |		ADDA.W	#0x18,A7
00024e64 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00024e68 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024e6e 48 53                    |HS      |		PEA.L	(A3)
00024e70 48 53                    |HS      |		PEA.L	(A3)
00024e72 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00024e78 de c1                    |        |		ADDA.W	D1,A7
00024e7a 3e ae 00 0e              |>       |		MOVE.W	(A6+0xe),(A7)
00024e7e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e80 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024e84 48 53                    |HS      |		PEA.L	(A3)
00024e86 48 78 00 01              |Hx      |		PEA.L	0x1
00024e8a 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00024e90 de c1                    |        |		ADDA.W	D1,A7
00024e92 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
00024e96 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024e98 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024e9c 48 53                    |HS      |		PEA.L	(A3)
00024e9e 48 53                    |HS      |		PEA.L	(A3)
00024ea0 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00024ea6 de c1                    |        |		ADDA.W	D1,A7
00024ea8 42 17                    |B       |		CLR.B	(A7)
00024eaa 1f 2e 00 12              | .      |		MOVE.B	(A6+0x12),-(A7)
00024eae 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024eb0 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024eb6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024eb8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024ebc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024ebe 48 50                    |HP      |		PEA.L	(A0)
00024ec0 48 53                    |HS      |		PEA.L	(A3)
00024ec2 48 78 00 07              |Hx      |		PEA.L	0x7
00024ec6 4e 94                    |N       |		JSR	(A4)
00024ec8 de c2                    |        |		ADDA.W	D2,A7
00024eca 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024ecc 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
00024ed0 48 53                    |HS      |		PEA.L	(A3)
00024ed2 48 78 00 07              |Hx      |		PEA.L	0x7
00024ed6 4e 94                    |N       |		JSR	(A4)
00024ed8 de c2                    |        |		ADDA.W	D2,A7
00024eda 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024edc 48 68 00 10              |Hh      |		PEA.L	(A0+0x10)
00024ee0 48 53                    |HS      |		PEA.L	(A3)
00024ee2 48 53                    |HS      |		PEA.L	(A3)
00024ee4 4e 94                    |N       |		JSR	(A4)
00024ee6 de c2                    |        |		ADDA.W	D2,A7
00024ee8 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024eea 48 68 00 11              |Hh      |		PEA.L	(A0+0x11)
00024eee 48 53                    |HS      |		PEA.L	(A3)
00024ef0 48 78 00 01              |Hx      |		PEA.L	0x1
00024ef4 4e 94                    |N       |		JSR	(A4)
00024ef6 de c1                    |        |		ADDA.W	D1,A7
00024ef8 48 52                    |HR      |		PEA.L	(A2)
00024efa 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00024f00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f02 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00024f06 4e 5e                    |N^      |		UNLK	A6
00024f08 4e 75                    |Nu      |		RTS
00024f0a 4c 4f 47 49 43 41 4c 5f  |LOGICAL_|		.TXT	'LOGICAL_TAG_READ.MEM'
00024f1e 4c 4f 47 49 43 41 4c 5f  |LOGICAL_|		.TXT	'LOGICAL_TAG_READ.M32'
00024f32 ; --------------------------------------------------------------------------------------
00024f32 ; OMSI PASCAL Function
00024f32 ;    <LVAR  0x01e 1(r)>
00024f32 ;    <LVAR  0x01c 1(r)>
00024f32 ;    <LVAR  0x018 4(r)>
00024f32 ;    <LVAR  0x014 4(r)>
00024f32 ;    <LVAR  0x010 4(r)>
00024f32 ;    <LVAR  0x00c 4(r)>
00024f32 ;    <LVAR  0x008 4(r)>
00024f32 ;    <LVAR -0x004 @ 4(r)>
00024f32 ; --------------------------------------------------------------------------------------
00024f32 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00024f36 bf d5                    |        |		CMPA.L	(A5),A7
00024f38 62 06                    |b       |		BHI	0x24f40
00024f3a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024f3e 4e 76                    |Nv      |		TRAPV
00024f40 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00024f44 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00024f48 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00024f4c 45 f8 00 00              |E       |		LEA.L	0x0,A2
00024f50 47 f9 00 01 04 66        |G    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A3
00024f56 49 f9 00 01 04 72        |I    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A4
00024f5c 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024f5e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024f60 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00024f66 4a 1f                    |J       |		TST.B	(A7)+
00024f68 67 0e                    |g       |		BEQ	0x24f78
00024f6a 41 fa ff b2              |A       |		LEA.L	0x24f1e,A0
00024f6e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024f70 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024f72 51 c8 ff fc              |Q       |		DBF	D0,0x24f70
00024f76 60 0c                    |`       |		BRA	0x24f84
00024f78 41 fa ff b8              |A       |		LEA.L	0x24f32,A0
00024f7c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024f7e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024f80 51 c8 ff fc              |Q       |		DBF	D0,0x24f7e
00024f84 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f86 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024f8a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024f8e 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00024f92 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024f98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f9a 48 51                    |HQ      |		PEA.L	(A1)
00024f9c 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00024fa2 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024fa6 1f 2e 00 1c              | .      |		MOVE.B	(A6+0x1c),-(A7)
00024faa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024fac 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024fb0 48 52                    |HR      |		PEA.L	(A2)
00024fb2 48 52                    |HR      |		PEA.L	(A2)
00024fb4 4e 93                    |N       |		JSR	(A3)
00024fb6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024fba 2e ae 00 18              |.       |		MOVE.L	(A6+0x18),(A7)
00024fbe 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024fc0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024fc4 48 52                    |HR      |		PEA.L	(A2)
00024fc6 48 78 00 03              |Hx      |		PEA.L	0x3
00024fca 4e 93                    |N       |		JSR	(A3)
00024fcc de c1                    |        |		ADDA.W	D1,A7
00024fce 2e ae 00 14              |.       |		MOVE.L	(A6+0x14),(A7)
00024fd2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024fd4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024fd8 48 52                    |HR      |		PEA.L	(A2)
00024fda 48 78 00 03              |Hx      |		PEA.L	0x3
00024fde 4e 93                    |N       |		JSR	(A3)
00024fe0 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024fe4 42 17                    |B       |		CLR.B	(A7)
00024fe6 1f 2e 00 1e              | .      |		MOVE.B	(A6+0x1e),-(A7)
00024fea 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024fec 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00024ff2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024ff4 2e 91                    |.       |		MOVE.L	(A1),(A7)
00024ff6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00024ffa 48 50                    |HP      |		PEA.L	(A0)
00024ffc 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
00025002 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025004 2e 91                    |.       |		MOVE.L	(A1),(A7)
00025006 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002500a 48 50                    |HP      |		PEA.L	(A0)
0002500c 48 52                    |HR      |		PEA.L	(A2)
0002500e 48 52                    |HR      |		PEA.L	(A2)
00025010 4e 94                    |N       |		JSR	(A4)
00025012 de c1                    |        |		ADDA.W	D1,A7
00025014 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00025018 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002501a 48 50                    |HP      |		PEA.L	(A0)
0002501c 48 52                    |HR      |		PEA.L	(A2)
0002501e 48 78 00 07              |Hx      |		PEA.L	0x7
00025022 4e 94                    |N       |		JSR	(A4)
00025024 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025028 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002502a 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
0002502e 48 52                    |HR      |		PEA.L	(A2)
00025030 48 52                    |HR      |		PEA.L	(A2)
00025032 4e 94                    |N       |		JSR	(A4)
00025034 de c1                    |        |		ADDA.W	D1,A7
00025036 48 51                    |HQ      |		PEA.L	(A1)
00025038 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002503e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025040 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00025044 4e 5e                    |N^      |		UNLK	A6
00025046 4e 75                    |Nu      |		RTS
00025048 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.MEM '
0002505c 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.M32 '
00025070 ; --------------------------------------------------------------------------------------
00025070 ; OMSI PASCAL Function
00025070 ;    <LVAR  0x008 1(r)>
00025070 ;    <LVAR -0x006 @ 4(r)>
00025070 ; --------------------------------------------------------------------------------------
00025070 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
00025074 bf d5                    |        |		CMPA.L	(A5),A7
00025076 62 06                    |b       |		BHI	0x2507e
00025078 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002507c 4e 76                    |Nv      |		TRAPV
0002507e de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00025082 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00025086 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002508a 72 14                    |r       |		MOVEQ.L	#0x14,D1
0002508c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002508e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00025094 4a 1f                    |J       |		TST.B	(A7)+
00025096 67 12                    |g       |		BEQ	0x250aa
00025098 9e c1                    |        |		SUBA.W	D1,A7
0002509a 20 4f                    | O      |		MOVEA.L	A7,A0
0002509c 43 fa ff aa              |C       |		LEA.L	0x25048,A1
000250a0 70 12                    |p       |		MOVEQ.L	#0x12,D0
000250a2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000250a4 51 c8 ff fc              |Q       |		DBF	D0,0x250a2
000250a8 60 10                    |`       |		BRA	0x250ba
000250aa 9e c1                    |        |		SUBA.W	D1,A7
000250ac 20 4f                    | O      |		MOVEA.L	A7,A0
000250ae 43 fa ff ac              |C       |		LEA.L	0x2505c,A1
000250b2 70 12                    |p       |		MOVEQ.L	#0x12,D0
000250b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000250b6 51 c8 ff fc              |Q       |		DBF	D0,0x250b4
000250ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000250bc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000250c0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000250c4 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000250c8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000250ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250d0 48 52                    |HR      |		PEA.L	(A2)
000250d2 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000250d8 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000250dc 42 27                    |B'      |		CLR.B	-(A7)
000250de 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000250e2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000250e4 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000250ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250ec 48 52                    |HR      |		PEA.L	(A2)
000250ee 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000250f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000250f6 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000250fa 4e 5e                    |N^      |		UNLK	A6
000250fc 4e 75                    |Nu      |		RTS
000250fe					exp_READ_TVR.MEM(&w, &w, &Sr_8_1):
000250fe 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00025104 00 12                    |        |		.CONST	0x0012			; Stack-delta
00025106 0c 52 45 41 44 5f 54 56  | READ_TV|		.TXT	12,'READ_TVR.MEM'
00025113 00                       |        |		.CONST	0x0
00025114 ff                       |        |		.CONST	0xff			; DIPROC address
00025115 01                       |        |		.CONST	0x1			; Output Parameters
00025116 02                       |        |		.CONST	0x2			; Input Parameters
00025117 08                       |        |		.CONST	0x8			; In arg flag
00025118 08                       |        |		.CONST	0x8			; In arg flag
00025119 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
0002511a 00 00 00 00 00 00        |        |		.XXX[0x6]
00025120 00 00                    |        |		.XXX[0x2]
00025122 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00025126 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002512a 00 00 00 00 00 00        |        |		.XXX[0x6]
00025130 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xd0]