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

⟦63d1209a4⟧ M200

    Length: 22528 (0x5800)
    Types: M200
    Notes: @(#)IOX,2.3,90/12/06,12:40:00, M200_PROGRAM
    Names: »IOX.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »IOX.M200« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »IOX.M200« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »IOX.M200« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »IOX.M200« 
    └─ ⟦this⟧ »IOX.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »IOX.M200« 

Disassembly

0x20c42


@ 20c42
        <LVAR  0x008 4(r)>
    <POP 20c42-20c68 Body>                                              
        <POP 20c42-20c54 Prologue>                           Σ0         ↓
        <POP 20c54-20c64 Naked>                              Σ0         ↓
            <Const 0x20c54 0xe.2>                            Δ-2                {[#14]}
            <MI 20c58  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#14]|[4, '(A6+0x8)']}
            <Call 0x20c5c 0x103b8>                                              {[#14]|[4, '(A6+0x8)']}
                PopProgram(status : Byte; msg : String)
            <POP 20c62-20c64 StackAdj>                       Δ+6                {}
        <POP 20c64-20c68 Epilogue>                           Σ0         

0x20c68


@ 20c68
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20c68-20cc2 Body>                                              
        <POP 20c68-20c7e Prologue>                           Σ0         ↓
        <POP 20c7e-20c84 RegCacheLoad>                       Σ0         ↓
        <POP 20c84-20cba Naked>                              Σ0         ↓
            <MI 20c84  MOVE.L  0x2579a,D4>                                      {}
            <MI 20c86  MOVE.L  #0x1a5,D3>                                       {}
            <Call 0x20c8c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 20c92  MOVE.L  D4,0x2579a>                                      {}
            <MI 20c94  ADDQ.L  #0x1,0x2579a>                                    {}
            <MI 20c96  ANDI.L  #0x00007fff,0x2579a>                             {}
            <MI 20c9c  MOVE.L  (A6+0x8),D7>                                     {}
            <MI 20ca0  SUB.L   (A6+0xc),D7>                                     {}
            <MI 20ca4  ADDQ.L  #0x1,D7>                                         {}
            <MI 20ca6  MOVE.L  0x2579a,D4>                                      {}
            <MI 20ca8  MOVE.L  D7,D3>                                           {}
            <Call 0x20caa 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20cb0  ADD.L   (A6+0xc),D3>                                     {}
            <MI 20cb4  MOVE.L  D3,D7>                                           {}
            <MI 20cb6  MOVE.L  D7,(A6+0x10)>                                    {}
        <POP 20cba-20cc2 Epilogue>                           Σ0         

0x20cc2


@ 20cc2
        <LVAR  0x008 4(w)>
    <POP 20cc2-20d16 Body>                                              
        <POP 20cc2-20cd8 Prologue>                           Σ0         ↓
        <POP 20cd8-20cde RegCacheLoad>                       Σ0         ↓
        <POP 20cde-20cea Naked>                              Σ0         ↓ →0x20cf0
            <MI 20cde  ADDQ.L  #0x1,0x25796>                                    {}
            <MI 20ce0  MOVE.L  0x25796,D0>                                      {}
            <MI 20ce2  CMPI.L  #0x00000005,D0>                                  {}
            <MI 20ce8  BLE     0x20cf0>                                         {}
        <POP 20cea-20cf0 Naked>                              Σ0         ↓
            <MI 20cea  MOVE.L  #0x1,0x25796>                                    {}
        <POP 20cf0-20d0e Naked>                              Σ0         ↓ ←0x20cde
            <MI 20cf0  MOVE.L  0x25796,D0>                                      {}
            <MI 20cf2  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x20cf4 LimitCheck 0x0 ≤ D0 ≤ 0x4>                             {}
            <MI 20cfe  ASL.L   #0x1,D0>                                         {}
            <MI 20d00  LEA.L   0x20bea,A0>                                      {}
            <MI 20d04  CLR.L   D1>                                              {}
            <MI 20d06  MOVE.W  (A0+D0.L),D1>                                    {}
            <MI 20d0a  MOVE.L  D1,(A6+0x8)>                                     {}
        <POP 20d0e-20d16 Epilogue>                           Σ0         

0x20d16


@ 20d16
        <LVAR -0x006 @>
        <LVAR -0x008 @ 1(r)>
    <POP 20d16-20e28 Body>                                              
        <POP 20d16-20d2c Prologue>                           Σ0         ↓
        <POP 20d2c-20d44 RegCacheLoad>                       Σ0         ↓
        <POP 20d44-20dd4 Naked>                              Σ0         ↓ →0x20e20
            <Blob 0x20d44 [24] @>                            Δ-24               {[«24""»]}
            <POP 20d50-20d52 StackAdj>                       Δ-6                {[«24""»]|[-6-]}
            <Lit 0x20d52 24>                                                    {[«24""»]|[-2-]|[$$Simulate packet requests]}
            <POP 20d60-20d62 StackAdj>                       Δ-2                {[«24""»]|[-2-]|[$$Simulate packet requests]|[-2-]}
            <POP 20d62-20d63 StackAdj>                       Δ+2                {[«24""»]|[-2-]|[$$Simulate packet requests]}
            <Const 0x20d63 0x1.2>                            Δ-2                {[«24""»]|[-2-]|[$$Simulate packet requests]|[#1]}
            <Call 0x20d64 0x103f0>                                              {[«24""»]|[-2-]|[$$Simulate packet requests]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20d6a-20d6c StackAdj>                       Δ+6                {[«24""»]|[-2-]}
            <MI 20d6c  MOVE.B  (A7)+,D0>                     Δ+2                {[«24""»]}
            <MI 20d6e  EXTB.W  D0>                                              {[«24""»]}
            <POP 0x20d70 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«24""»]}
            <POP 20d72-20d74 StackAdj>                       Δ+24               {}
            <MI 20d74  MOVE.B  D0,0x257a2>                                      {}
            <Const 0x20d76 0x400.4>                          Δ-4                {[##1024]}
            <MI 20d7a  LEA.L   0x257a8,A0>                                      {[##1024]}
            <MI 20d80  MOVE.L  A0,-(A7)>                     Δ-4                {[##1024]|[4, 'A0']}
            <Const 0x20d82 0x4.2>                            Δ-2                {[##1024]|[4, 'A0']|[#4]}
            <Call 0x20d84 0x10238>                                              {[##1024]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20d86-20d88 StackAdj>                       Δ+10               {}
            <Const 0x20d88 0x404.4>                          Δ-4                {[##1028]}
            <MI 20d8c  LEA.L   0x257ac,A0>                                      {[##1028]}
            <MI 20d92  MOVE.L  A0,-(A7)>                     Δ-4                {[##1028]|[4, 'A0']}
            <Const 0x20d94 0x2.2>                            Δ-2                {[##1028]|[4, 'A0']|[#2]}
            <Call 0x20d96 0x10238>                                              {[##1028]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20d98-20d9a StackAdj>                       Δ+10               {}
            <Const 0x20d9a 0x406.4>                          Δ-4                {[##1030]}
            <MI 20d9e  LEA.L   0x257ae,A0>                                      {[##1030]}
            <MI 20da4  MOVE.L  A0,-(A7)>                     Δ-4                {[##1030]|[4, 'A0']}
            <Const 0x20da6 0x2.2>                            Δ-2                {[##1030]|[4, 'A0']|[#2]}
            <Call 0x20da8 0x10238>                                              {[##1030]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20daa-20dac StackAdj>                       Δ+10               {}
            <Const 0x20dac 0x408.4>                          Δ-4                {[##1032]}
            <MI 20db0  LEA.L   0x257b0,A0>                                      {[##1032]}
            <MI 20db6  MOVE.L  A0,-(A7)>                     Δ-4                {[##1032]|[4, 'A0']}
            <Const 0x20db8 0x4.2>                            Δ-2                {[##1032]|[4, 'A0']|[#4]}
            <Call 0x20dba 0x10238>                                              {[##1032]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20dbc-20dbe StackAdj>                       Δ+10               {}
            <Const 0x20dbe 0x40c.4>                          Δ-4                {[##1036]}
            <MI 20dc2  LEA.L   0x257b4,A0>                                      {[##1036]}
            <MI 20dc8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1036]|[4, 'A0']}
            <Const 0x20dca 0x4.2>                            Δ-2                {[##1036]|[4, 'A0']|[#4]}
            <Call 0x20dcc 0x10238>                                              {[##1036]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20dce-20dd0 StackAdj>                       Δ+10               {}
            <MI 20dd0  TST.B   0x257a2>                                         {}
            <MI 20dd2  BEQ     0x20e20>                                         {}
        <POP 20dd4-20dd6 Naked>                              Σ0         ↓
            <MI 20dd4  MOVEQ.L #0x00,D7>                                        {}
        <POP 20dd6-20e08 Naked>                              Σ0         ↓ →0x20dd6 ←0x20dd6
            <POP 0x20dd6 LimitCheck 0x0 ≤ D7 ≤ 0x1f>                            {}
            <MI 20ddc  MOVE.L  D7,D0>                                           {}
            <MI 20dde  ASL.L   #0x4,D0>                                         {}
            <MI 20de0  LEA.L   0x2578e,A0>                                      {}
            <MI 20de6  CLR.B   (A0+D0.L+#0x2a)>                                 {}
            <MI 20dea  CLR.B   (A0+D0.L+#0x2b)>                                 {}
            <MI 20dee  CLR.B   (A0+D0.L+#0x2c)>                                 {}
            <MI 20df2  CLR.W   (A0+D0.L+#0x2e)>                                 {}
            <MI 20df6  CLR.W   (A0+D0.L+#0x30)>                                 {}
            <MI 20dfa  CLR.L   (A0+D0.L+#0x32)>                                 {}
            <MI 20dfe  CLR.L   (A0+D0.L+#0x36)>                                 {}
            <MI 20e02  ADDQ.L  #0x1,D7>                                         {}
            <MI 20e04  CMP.L   #0x1f,D7>                                        {}
            <MI 20e06  BLE     0x20dd6>                                         {}
        <POP 20e08-20e20 Naked>                              Σ0         ↓ →0x20e08 ←0x20e08
            <MI 20e08  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20e0a <LVAR -0x008 @ 1(r)>>        Δ-4                {[#0]|[@@-8]}
            <Pointer.fp 0x20e0e <LVAR -0x006 @>>             Δ-4                {[#0]|[@@-8]|[@@-6]}
            <Call 0x20e12 0x10232>                                              {[#0]|[@@-8]|[@@-6]}
                KERNCALL_19
            <POP 20e18-20e1a StackAdj>                       Δ+10               {}
            <MI 20e1a  TST.B   (A6-0x8)>                                        {}
            <MI 20e1e  BNE     0x20e08>                                         {}
        <POP 20e20-20e28 Epilogue>                           Σ0         ←0x20d44

0x20e28


@ 20e28
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x009 1(r)>
        <LVAR -0x00a 1(r)>
        <LVAR -0x00c 1(r)>
        <LVAR -0x00f 1(r)>
        <LVAR -0x010 1(r)>
        <LVAR -0x011 1(r)>
        <LVAR -0x012 @>
        <LVAR -0x01c @ 2(r)>
        <LVAR -0x01e @ 1(r)>
    <POP 20e28-2115a Body>                                              
        <POP 20e28-20e3e Prologue>                           Σ0         ↓
        <POP 20e3e-20e48 RegCacheLoad>                       Σ0         ↓
        <POP 20e48-20e52 Naked>                              Σ0         ↓ →0x21138
            <MI 20e48  TST.B   0x257a2>                                         {}
            <MI 20e4e  BEQ     0x21138>                                         {}
        <POP 20e52-20e54 Naked>                              Σ0         ↓
            <MI 20e52  MOVEQ.L #0x00,D7>                                        {}
        <POP 20e54-20e78 Naked>                              Σ0         ↓ →0x2109c ←0x2109c ←0x210ec
            <MI 20e54  MOVE.B  D7,D0>                                           {}
            <MI 20e56  EXTB.W  D0>                                              {}
            <POP 0x20e58 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e5c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x20e5e <LVAR -0x01e @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-30]}
            <Pointer.fp 0x20e62 <LVAR -0x01c @ 2(r)>>        Δ-4                {[2, 'D0']|[@@-30]|[@@-28]}
            <Call 0x20e66 0x10232>                                              {[2, 'D0']|[@@-30]|[@@-28]}
                KERNCALL_19
            <POP 20e6c-20e70 StackAdj>                       Δ+10               {}
            <MI 20e70  TST.B   (A6-0x1e)>                                       {}
            <MI 20e74  BEQ     0x2109c>                                         {}
        <POP 20e78-20e82 Naked>                              Σ0         ↓ →0x20ea6
            <MI 20e78  MOVE.W  (A6-0x1c),D0>                                    {}
            <MI 20e7c  CMPI.W  #0x00ff,D0>                                      {}
            <MI 20e80  BLS     0x20ea6>                                         {}
        <POP 20e82-20ea6 Naked>                              Σ0         ↓
            <Blob 0x20e82 [32] @>                            Δ-32               {[«32""»]}
            <POP 20e8e-20e90 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x20e90 32>                                                    {[«32""»]|[$$Response queue data out of range]}
            <Call 0x20ea0 0x20c42>                                              {[«32""»]|[$$Response queue data out of range]}
            <POP 20ea2-20ea6 StackAdj>                       Δ+36               {}
        <POP 20ea6-20ee8 Naked>                              Σ0 Δ-4     ↓ →0x20f12 ←0x20e78
            <MI 20ea6  MOVE.W  0x257ae,D1>                                      {}
            <MI 20eac  MULU.W  D0,D1>                                           {}
            <MI 20eae  ADD.L   0x257b0,D1>                                      {}
            <MI 20eb4  MOVE.L  D1,-(A7)>                     Δ-4                {[4, 'D1']}
            <MI 20eb6  LEA.L   (A6-0x12),A0>                                    {[4, 'D1']}
            <MI 20eba  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D1']|[4, 'A0']}
            <Const 0x20ebc 0x10.2>                           Δ-2                {[4, 'D1']|[4, 'A0']|[#16]}
            <Call 0x20ec0 0x10238>                                              {[4, 'D1']|[4, 'A0']|[#16]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20ec6-20eca StackAdj>                       Δ+10               {}
            <MI 20eca  CLR.L   D1>                                              {}
            <MI 20ecc  MOVE.B  (A6-0xa),D1>                                     {}
            <MI 20ed0  MOVE.W  D1,D2>                                           {}
            <MI 20ed2  ASR.W   #0x3,D2>                                         {}
            <MI 20ed4  ASL.W   #0x4,D2>                                         {}
            <MI 20ed6  LEA.L   0x2578e,A0>                                      {}
            <MI 20edc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20ede  CLR.L   D3>                                              {[4, 'A0']}
            <MI 20ee0  MOVE.B  (A6-0xf),D3>                                     {[4, 'A0']}
            <MI 20ee4  CMP.W   D0,D3>                                           {[4, 'A0']}
            <MI 20ee6  BEQ     0x20f12>                                         {[4, 'A0']}
        <POP 20ee8-20f12 Naked>                              Σ-4        ↓
            <Blob 0x20ee8 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 20efa-20efc StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x20efc 19>                                                    {[-4-]|[«20""»]|[$$Incorrect Packet_Id]}
            <Call 0x20f0c 0x20c42>                                              {[-4-]|[«20""»]|[$$Incorrect Packet_Id]}
            <POP 20f0e-20f12 StackAdj>                       Δ+24               {[-4-]}
        <POP 20f12-20f18 Naked>                              Σ-4        ↓ →0x20f42 ←0x20ea6
            <MI 20f12  TST.B   (A6-0xc)>                                        {[-4-]}
            <MI 20f16  BEQ     0x20f42>                                         {[-4-]}
        <POP 20f18-20f42 Naked>                              Σ-4        ↓
            <Blob 0x20f18 [24] @>                            Δ-24               {[-4-]|[«24""»]}
            <POP 20f2a-20f2c StackAdj>                       Δ-4                {[-4-]|[«24""»]|[-4-]}
            <Lit 0x20f2c 23>                                                    {[-4-]|[«24""»]|[$$Incorrect Response_Kind]}
            <Call 0x20f3c 0x20c42>                                              {[-4-]|[«24""»]|[$$Incorrect Response_Kind]}
            <POP 20f3e-20f42 StackAdj>                       Δ+28               {[-4-]}
        <POP 20f42-20f48 Naked>                              Σ-4        ↓ →0x20f72 ←0x20f12
            <MI 20f42  TST.B   (A0+D2.W+#0x2b)>                                 {[-4-]}
            <MI 20f46  BNE     0x20f72>                                         {[-4-]}
        <POP 20f48-20f72 Naked>                              Σ-4        ↓
            <Blob 0x20f48 [28] @>                            Δ-28               {[-4-]|[«28""»]}
            <POP 20f5a-20f5c StackAdj>                       Δ-4                {[-4-]|[«28""»]|[-4-]}
            <Lit 0x20f5c 27>                                                    {[-4-]|[«28""»]|[$$Unexpected response arrived]}
            <Call 0x20f6c 0x20c42>                                              {[-4-]|[«28""»]|[$$Unexpected response arrived]}
            <POP 20f6e-20f72 StackAdj>                       Δ+32               {[-4-]}
        <POP 20f72-20f86 Naked>                              Σ-4 Δ-4    ↓ →0x20fb0 ←0x20f42
            <MI 20f72  MOVE.W  D1,D0>                                           {[-4-]}
            <MI 20f74  EXTW.L  D0>                                              {[-4-]}
            <MI 20f76  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 20f78  CLR.L   D1>                                              {[-4-]|[4, 'D0']}
            <MI 20f7a  MOVE.W  (A0+D2.W+#0x2e),D1>                              {[-4-]|[4, 'D0']}
            <MI 20f7e  ADD.L   D0,D1>                                           {[-4-]|[4, 'D0']}
            <MI 20f80  EXTW.L  D3>                                              {[-4-]|[4, 'D0']}
            <MI 20f82  CMP.L   D1,D3>                                           {[-4-]|[4, 'D0']}
            <MI 20f84  BEQ     0x20fb0>                                         {[-4-]|[4, 'D0']}
        <POP 20f86-20fb0 Naked>                              Σ-8        ↓
            <Blob 0x20f86 [28] @>                            Δ-28               {[-8-]|[«28""»]}
            <POP 20f98-20f9a StackAdj>                       Δ-4                {[-8-]|[«28""»]|[-4-]}
            <Lit 0x20f9a 27>                                                    {[-8-]|[«28""»]|[$$Packet arrived out of order]}
            <Call 0x20faa 0x20c42>                                              {[-8-]|[«28""»]|[$$Packet arrived out of order]}
            <POP 20fac-20fb0 StackAdj>                       Δ+32               {[-8-]}
        <POP 20fb0-20fcc Naked>                              Σ-8        ↓ →0x20ff0 ←0x20f72
            <MI 20fb0  CLR.L   D0>                                              {[-8-]}
            <MI 20fb2  MOVE.W  (A0+D2.W+#0x2e),D0>                              {[-8-]}
            <MI 20fb6  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x20fb8 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-8-]}
            <MI 20fc2  MOVE.W  D0,(A0+D2.W+#0x2e)>                              {[-8-]}
            <MI 20fc6  CMP.W   (A0+D2.W+#0x30),D0>                              {[-8-]}
            <MI 20fca  BLS     0x20ff0>                                         {[-8-]}
        <POP 20fcc-20ff0 Naked>                              Σ-8        ↓
            <Blob 0x20fcc [26] @>                            Δ-26               {[-8-]|[«26""»]}
            <POP 20fd8-20fda StackAdj>                       Δ-4                {[-8-]|[«26""»]|[-4-]}
            <Lit 0x20fda 26>                                                    {[-8-]|[«26""»]|[$$Too many responses arrived]}
            <Call 0x20fea 0x20c42>                                              {[-8-]|[«26""»]|[$$Too many responses arrived]}
            <POP 20fec-20ff0 StackAdj>                       Δ+30               {[-8-]}
        <POP 20ff0-20ffa Naked>                              Σ-8        ↓ →0x2109a ←0x20fb0
            <MI 20ff0  MOVE.B  (A6-0x9),D0>                                     {[-8-]}
            <MI 20ff4  LSR.B   #0x7,D0>                                         {[-8-]}
            <MI 20ff6  BEQ     0x2109a>                                         {[-8-]}
        <POP 20ffa-2101e Naked>                              Σ-8        ↓ →0x2109a
            <MI 20ffa  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 20ffe  CLR.B   (A0+D2.W+#0x2b)>                                 {[-8-]}
            <MI 21002  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 21006  MOVE.B  #0x01,(A0+D2.W+#0x2a)>                           {[-8-]}
            <MI 2100c  MOVE.B  (A6-0x9),D0>                                     {[-8-]}
            <MI 21010  LSL.B   #0x6,D0>                                         {[-8-]}
            <MI 21012  LSR.B   #0x7,D0>                                         {[-8-]}
            <MI 21014  MOVE.B  D0,(A0+D2.W+#0x2c)>                              {[-8-]}
            <MI 21018  TST.L   (A0+D2.W+#0x36)>                                 {[-8-]}
            <MI 2101c  BEQ     0x2109a>                                         {[-8-]}
        <POP 2101e-21038 Naked>                              Σ-8        ↓ →0x21062
            <MI 2101e  CLR.L   D0>                                              {[-8-]}
            <MI 21020  MOVE.B  (A6-0x11),D0>                                    {[-8-]}
            <MI 21024  ASL.W   #0x3,D0>                                         {[-8-]}
            <MI 21026  CLR.L   D1>                                              {[-8-]}
            <MI 21028  MOVE.B  (A6-0x10),D1>                                    {[-8-]}
            <MI 2102c  NEG.W   D1>                                              {[-8-]}
            <MI 2102e  ADD.W   D0,D1>                                           {[-8-]}
            <MI 21030  EXTW.L  D1>                                              {[-8-]}
            <MI 21032  CMP.L   (A0+D2.W+#0x36),D1>                              {[-8-]}
            <MI 21036  BLE     0x21062>                                         {[-8-]}
        <POP 21038-21062 Naked>                              Σ-8        ↓
            <Blob 0x21038 [20] @>                            Δ-20               {[-8-]|[«20""»]}
            <POP 2104a-2104c StackAdj>                       Δ-4                {[-8-]|[«20""»]|[-4-]}
            <Lit 0x2104c 19>                                                    {[-8-]|[«20""»]|[$$Packet size too big]}
            <Call 0x2105c 0x20c42>                                              {[-8-]|[«20""»]|[$$Packet size too big]}
            <POP 2105e-21062 StackAdj>                       Δ+24               {[-8-]}
        <POP 21062-2109a Naked>                              Σ-8        ↓ ←0x2101e
            <MI 21062  MOVE.L  (A7),D4>                                         {[-8-]}
            <MI 21064  CLR.L   D3>                                              {[-8-]}
            <MI 21066  MOVE.W  0x257ac,D3>                                      {[-8-]}
            <Call 0x2106c 0x10290>                                              {[-8-]}
                ?mulu_d3_d4
            <MI 21072  MOVE.L  D4,D0>                                           {[-8-]}
            <MI 21074  ADD.L   0x257b4,D0>                                      {[-8-]}
            <MI 2107a  MOVE.L  D0,-(A7)>                     Δ-4                {[-8-]|[4, 'D0']}
            <MI 2107c  MOVE.L  (A0+D2.W+#0x32),-(A7)>        Δ-4                {[-8-]|[4, 'D0']|[4, '(A0+D2.W+#0x32)']}
            <MI 21080  MOVE.L  (A0+D2.W+#0x36),D0>                              {[-8-]|[4, 'D0']|[4, '(A0+D2.W+#0x32)']}
            <POP 0x21084 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-8-]|[4, 'D0']|[4, '(A0+D2.W+#0x32)']}
            <MI 2108e  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[4, 'D0']|[4, '(A0+D2.W+#0x32)']|[2, 'D0']}
            <Call 0x21090 0x10238>                                              {[-8-]|[4, 'D0']|[4, '(A0+D2.W+#0x32)']|[2, 'D0']}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21096-2109a StackAdj>                       Δ+10               {[-8-]}
        <POP 2109a-2109c Naked>                              Σ-8 Δ+8    ↓ ←0x20ff0 ←0x20ffa
            <POP 2109a-2109c StackAdj>                       Δ+8                {}
        <POP 2109c-210a6 Naked>                              Σ0         ↓ →0x20e54 ←0x20e54
            <MI 2109c  MOVEQ.L #0x00,D7>                                        {}
            <MI 2109e  TST.B   (A6-0x1e)>                                       {}
            <MI 210a2  BNE     0x20e54>                                         {}
        <POP 210a6-210ae Naked>                              Σ0         ↓
            <MI 210a6  MOVEQ.L #0x01,D7>                                        {}
            <MI 210a8  MOVEQ.L #0x00,D6>                                        {}
            <MI 210aa  MOVEQ.L #0x00,D5>                                        {}
            <MI 210ac  MOVEQ.L #0x00,D0>                                        {}
        <POP 210ae-210e8 Naked>                              Σ0         ↓ →0x210ae ←0x210ae
            <POP 0x210ae LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 210b8  MOVE.L  D0,D1>                                           {}
            <MI 210ba  ASL.L   #0x4,D1>                                         {}
            <MI 210bc  LEA.L   0x2578e,A0>                                      {}
            <MI 210c2  MOVE.B  D6,D2>                                           {}
            <MI 210c4  OR.B    (A0+D1.L+#0x2b),D2>                              {}
            <MI 210c8  EXTB.W  D2>                                              {}
            <POP 0x210ca LimitCheck 0x0 ≤ D2 ≤ 0x1>                             {}
            <MI 210ce  MOVE.B  D2,D6>                                           {}
            <MI 210d0  MOVE.B  D5,D2>                                           {}
            <MI 210d2  OR.B    (A0+D1.L+#0x2a),D2>                              {}
            <MI 210d6  EXTB.W  D2>                                              {}
            <POP 0x210d8 LimitCheck 0x0 ≤ D2 ≤ 0x1>                             {}
            <MI 210dc  MOVE.B  D2,D5>                                           {}
            <MI 210de  ADDQ.L  #0x1,D0>                                         {}
            <MI 210e0  CMPI.L  #0x0000001f,D0>                                  {}
            <MI 210e6  BLE     0x210ae>                                         {}
        <POP 210e8-210ec Naked>                              Σ0         ↓ →0x210f2
            <MI 210e8  TST.B   D5>                                              {}
            <MI 210ea  BNE     0x210f2>                                         {}
        <POP 210ec-210f2 Naked>                              Σ0         ↓ →0x20e54
            <MI 210ec  TST.B   D6>                                              {}
            <MI 210ee  BNE     0x20e54>                                         {}
        <POP 210f2-2110c Naked>                              Σ0         ↓ →0x2112a ←0x210e8
            <MI 210f2  MOVE.W  (A6+0x10),D0>                                    {}
            <POP 0x210f6 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 210fa  CLR.L   D1>                                              {}
            <MI 210fc  MOVE.W  D0,D1>                                           {}
            <MI 210fe  ASL.L   #0x4,D1>                                         {}
            <MI 21100  LEA.L   0x2578e,A0>                                      {}
            <MI 21106  TST.B   (A0+D1.L+#0x2a)>                                 {}
            <MI 2110a  BEQ     0x2112a>                                         {}
        <POP 2110c-2112a Naked>                              Σ0         →0x21136
            <MI 2110c  CLR.B   (A0+D1.L+#0x2a)>                                 {}
            <MI 21110  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 21114  MOVE.B  #0x01,(A1)>                                      {}
            <MI 21118  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 2111c  MOVE.B  (A0+D1.L+#0x2c),D0>                              {}
            <MI 21120  EXTB.W  D0>                                              {}
            <POP 0x21122 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21126  MOVE.B  D0,(A1)>                                         {}
            <MI 21128  BRA     0x21136>                                         {}
        <POP 2112a-21136 Naked>                              Σ0         ↓ ←0x210f2
            <MI 2112a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2112e  CLR.B   (A0)>                                            {}
            <MI 21130  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21134  CLR.B   (A0)>                                            {}
        <POP 21136-21138 Naked>                              Σ0         →0x21152 ←0x2110c
            <MI 21136  BRA     0x21152>                                         {}
        <POP 21138-21152 Naked>                              Σ0         ↓ ←0x20e48
            <MI 21138  MOVE.W  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 2113c  MOVEA.L (A6+0xc),A0>                                     {[2, '(A6+0x10)']}
            <MI 21140  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0x10)']|[4, '^(A0)']}
            <MI 21142  MOVEA.L (A6+0x8),A0>                                     {[2, '(A6+0x10)']|[4, '^(A0)']}
            <MI 21146  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0x10)']|[4, '^(A0)']|[4, '^(A0)']}
            <Call 0x21148 0x10208>                                              {[2, '(A6+0x10)']|[4, '^(A0)']|[4, '^(A0)']}
                KERNCALL_04
            <POP 2114e-21152 StackAdj>                       Δ+10               {}
        <POP 21152-2115a Epilogue>                           Σ0         ←0x21136

0x2115a


@ 2115a
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 2115a-211b0 Body>                                              
        <POP 2115a-21170 Prologue>                           Σ0         ↓
        <POP 21170-21178 Naked>                              Σ0         ↓ →0x21196
            <MI 21170  TST.B   0x257a2>                                         {}
            <MI 21176  BEQ     0x21196>                                         {}
        <POP 21178-21194 Naked>                              Σ0         ↓ →0x21178 ←0x21178
            <MI 21178  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Pointer.fp 0x2117c <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, '(A6+0xc)']|[@@-2]}
            <MI 21180  MOVEA.L (A6+0x8),A0>                                     {[2, '(A6+0xc)']|[@@-2]}
            <MI 21184  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[@@-2]|[4, '^(A0)']}
            <Call 0x21186 0x20e28>                                              {[2, '(A6+0xc)']|[@@-2]|[4, '^(A0)']}
            <POP 2118a-2118e StackAdj>                       Δ+10               {}
            <MI 2118e  TST.B   (A6-0x2)>                                        {}
            <MI 21192  BEQ     0x21178>                                         {}
        <POP 21194-21196 Naked>                              Σ0         →0x211a8
            <MI 21194  BRA     0x211a8>                                         {}
        <POP 21196-211a8 Naked>                              Σ0         ↓ ←0x21170
            <MI 21196  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 2119a  MOVEA.L (A6+0x8),A0>                                     {[2, '(A6+0xc)']}
            <MI 2119e  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x211a0 0x10206>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 211a6-211a8 StackAdj>                       Δ+6                {}
        <POP 211a8-211b0 Epilogue>                           Σ0         ←0x21194

0x211b0


@ 211b0
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 2(r)>
        <LVAR -0x014 1(r)>
        <LVAR -0x015 1(r)>
        <LVAR -0x016 @>
    <POP 211b0-21244 Body>                                              
        <POP 211b0-211c6 Prologue>                           Σ0         ↓
        <POP 211c6-2123c Naked>                              Σ0         ↓
            <MI 211c6  CLR.L   D0>                                              {}
            <MI 211c8  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 211cc  MOVE.L  D0,D7>                                           {}
            <MI 211ce  ASL.L   #0x3,D7>                                         {}
            <POP 0x211d0 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 211d4  EXTW.L  D0>                                              {}
            <MI 211d6  ASL.L   #0x4,D0>                                         {}
            <MI 211d8  LEA.L   0x2578e,A0>                                      {}
            <MI 211de  CLR.L   D1>                                              {}
            <MI 211e0  MOVE.W  (A0+D0.L+#0x2e),D1>                              {}
            <MI 211e4  ADD.L   D1,D7>                                           {}
            <MI 211e6  SUBQ.L  #0x1,D7>                                         {}
            <MI 211e8  MOVE.L  D7,D4>                                           {}
            <MI 211ea  CLR.L   D3>                                              {}
            <MI 211ec  MOVE.W  0x257ae,D3>                                      {}
            <Call 0x211f2 0x10290>                                              {}
                ?mulu_d3_d4
            <MI 211f8  MOVE.L  D4,D1>                                           {}
            <MI 211fa  ADD.L   0x257b0,D1>                                      {}
            <MI 21200  MOVE.L  D1,-(A7)>                     Δ-4                {[4, 'D1']}
            <MI 21202  LEA.L   (A6-0x16),A1>                                    {[4, 'D1']}
            <MI 21206  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'D1']|[4, 'A1']}
            <Const 0x21208 0x10.2>                           Δ-2                {[4, 'D1']|[4, 'A1']|[#16]}
            <Call 0x2120c 0x10238>                                              {[4, 'D1']|[4, 'A1']|[#16]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21212-21216 StackAdj>                       Δ+10               {}
            <MI 21216  CLR.L   D1>                                              {}
            <MI 21218  MOVE.B  (A6-0x15),D1>                                    {}
            <MI 2121c  ASL.W   #0x3,D1>                                         {}
            <MI 2121e  CLR.L   D2>                                              {}
            <MI 21220  MOVE.B  (A6-0x14),D2>                                    {}
            <MI 21224  NEG.W   D2>                                              {}
            <MI 21226  ADD.W   D1,D2>                                           {}
            <MI 21228  CLR.L   D1>                                              {}
            <MI 2122a  MOVE.W  (A0+D0.L+#0x2e),D1>                              {}
            <MI 2122e  SUBQ.L  #0x1,D1>                                         {}
            <MI 21230  ASL.L   #0x8,D1>                                         {}
            <MI 21232  ASL.L   #0x2,D1>                                         {}
            <MI 21234  EXTW.L  D2>                                              {}
            <MI 21236  ADD.L   D2,D1>                                           {}
            <MI 21238  MOVE.L  D1,(A6+0xa)>                                     {}
        <POP 2123c-21244 Epilogue>                           Σ0         

0x21244


@ 21244
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(w)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 1(w) 4(w)>
        <LVAR -0x00a 1(w)>
        <LVAR -0x00c 4(w)>
        <LVAR -0x00d 1(w)>
        <LVAR -0x00e 1(w)>
        <LVAR -0x00f 1(w)>
        <LVAR -0x010 @ 1(w) 4(w)>
    <POP 21244-213dc Body>                                              
        <POP 21244-2125a Prologue>                           Σ0         ↓
        <POP 2125a-2126c RegCacheLoad>                       Σ0         ↓
        <POP 2126c-21276 Naked>                              Σ0         ↓ →0x213c0
            <MI 2126c  TST.B   0x257a2>                                         {}
            <MI 21272  BEQ     0x213c0>                                         {}
        <POP 21276-2129c Naked>                              Σ0         ↓ →0x212a2
            <MI 21276  MOVE.W  (A6+0x10),D0>                                    {}
            <POP 0x21278 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 2127c  CLR.L   D1>                                              {}
            <MI 2127e  MOVE.W  D0,D1>                                           {}
            <MI 21280  ASL.L   #0x4,D1>                                         {}
            <MI 21282  LEA.L   0x2578e,A0>                                      {}
            <MI 21288  CLR.L   D0>                                              {}
            <MI 2128a  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 2128c  ASL.L   #0x3,D0>                                         {}
            <POP 0x2128e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21294  MOVE.W  D0,D7>                                           {}
            <MI 21296  TST.B   (A0+D1.L+#0x2b)>                                 {}
            <MI 2129a  BNE     0x212a2>                                         {}
        <POP 2129c-212a2 Naked>                              Σ0         ↓ →0x212d0
            <MI 2129c  TST.B   (A0+D1.L+#0x2a)>                                 {}
            <MI 212a0  BEQ     0x212d0>                                         {}
        <POP 212a2-212d0 Naked>                              Σ0         ↓ ←0x21276
            <Blob 0x212a2 [34] @>                            Δ-34               {[«34""»]}
            <POP 212b4-212b6 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x212b6 33>                                                    {[«34""»]|[$$Starting new I/O on active handle]}
            <Call 0x212c8 0x20c42>                                              {[«34""»]|[$$Starting new I/O on active handle]}
            <POP 212cc-212d0 StackAdj>                       Δ+38               {}
        <POP 212d0-212ec Naked>                              Σ0         ↓ →0x21316 ←0x2129c
            <MI 212d0  MOVE.B  #0x01,(A0+D1.L+#0x2b)>                           {}
            <MI 212d4  CLR.W   (A0+D1.L+#0x2e)>                                 {}
            <MI 212d8  MOVE.W  #0x01,(A0+D1.L+#0x30)>                           {}
            <MI 212dc  MOVE.L  (A6+0x12),(A0+D1.L+#0x32)>                       {}
            <MI 212e2  MOVE.L  (A6+0x8),(A0+D1.L+#0x36)>                        {}
            <MI 212e8  TST.L   (A6+0xc)>                                        {}
            <MI 212ea  BEQ     0x21316>                                         {}
        <POP 212ec-21316 Naked>                              Σ0         ↓
            <MI 212ec  MOVE.W  0x257ac,D0>                                      {}
            <MI 212f2  MULU.W  D7,D0>                                           {}
            <MI 212f4  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <MI 212f8  ADD.L   0x257b4,D0>                                      {[4, '(A6+0x12)']}
            <MI 212fe  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A6+0x12)']|[4, 'D0']}
            <MI 21300  MOVE.L  (A6+0xc),D0>                                     {[4, '(A6+0x12)']|[4, 'D0']}
            <POP 0x21302 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[4, '(A6+0x12)']|[4, 'D0']}
            <MI 2130c  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6+0x12)']|[4, 'D0']|[2, 'D0']}
            <Call 0x2130e 0x10238>                                              {[4, '(A6+0x12)']|[4, 'D0']|[2, 'D0']}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21314-21316 StackAdj>                       Δ+10               {}
        <POP 21316-213c0 Naked>                              Σ0         →0x213d4 ←0x212d0
            <MI 21316  MOVEA.L (A6+0x16),A0>                                    {}
            <POP 2131a-2131e StackAdj>                       Δ-16               {[-16-]}
            <MI 2131e  MOVEA.L A7,A1>                                           {[-16-]}
            <BlockMove 16,A0,A1>                                                {[-16-]}
            <MI 21328  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-12-]}
            <MI 2132c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-8-]}
            <MI 21330  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-4-]}
            <MI 21334  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 21338  MOVE.B  #0x40,(A6-0x10)>                                 {}
            <MI 2133e  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 21340  ADDQ.L  #0x7,D0>                                         {}
            <MI 21342  MOVE.L  D0,D4>                                           {}
            <MI 21344  MOVEQ.L #0x08,D3>                                        {}
            <Call 0x21346 0x10294>                                              {}
                ?divs_d3_d4
            <POP 0x2134c LimitCheck 0x0 ≤ D4 ≤ 0x80>                            {}
            <MI 21356  MOVE.B  D4,(A6-0xf)>                                     {}
            <MI 2135a  CLR.L   D0>                                              {}
            <MI 2135c  MOVE.B  D4,D0>                                           {}
            <MI 2135e  ASL.W   #0x3,D0>                                         {}
            <MI 21360  EXTW.L  D0>                                              {}
            <MI 21362  SUB.L   (A6+0xc),D0>                                     {}
            <POP 0x21364 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2136a  MOVE.B  D0,(A6-0xe)>                                     {}
            <POP 0x2136e LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {}
            <MI 21370  MOVE.B  D7,(A6-0xd)>                                     {}
            <MI 21374  MOVE.B  #0x0f,(A6-0xa)>                                  {}
            <MI 2137a  MOVE.B  D7,(A6-0x8)>                                     {}
            <MI 2137e  ORI.B   #0x80,(A6-0x7)>                                  {}
            <MI 21384  ANDI.B  #0xfe,(A6-0x7)>                                  {}
            <MI 2138a  MOVE.W  0x257ae,D0>                                      {}
            <MI 21390  MULU.W  D7,D0>                                           {}
            <MI 21392  LEA.L   (A6-0x10),A0>                                    {}
            <MI 21396  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21398  ADD.L   0x257b0,D0>                                      {[4, 'A0']}
            <MI 2139e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <Const 0x213a0 0x10.2>                           Δ-2                {[4, 'A0']|[4, 'D0']|[#16]}
            <Call 0x213a4 0x10238>                                              {[4, 'A0']|[4, 'D0']|[#16]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 213aa-213ac StackAdj>                       Δ+10               {}
            <POP 0x213ac LimitCheck 0x0 ≤ D7 ≤ 0xffff>                          {}
            <MI 213b4  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x213b6 0x10230>                                              {[2, 'D7']}
                KERNCALL_18
            <POP 213bc-213be StackAdj>                       Δ+2                {}
            <MI 213be  BRA     0x213d4>                                         {}
        <POP 213c0-213d4 Naked>                              Σ0         ↓ ←0x2126c
            <MI 213c0  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 213c4  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <MI 213c6  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '^(A0)']|[4, '(A6+0x12)']}
            <MI 213ca  MOVE.W  (A6+0x10),-(A7)>              Δ-2                {[4, '^(A0)']|[4, '(A6+0x12)']|[2, '(A6+0x10)']}
            <Call 0x213cc 0x10204>                                              {[4, '^(A0)']|[4, '(A6+0x12)']|[2, '(A6+0x10)']}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 213d2-213d4 StackAdj>                       Δ+10               {}
        <POP 213d4-213dc Epilogue>                           Σ0         ←0x21316

0x213dc


@ 213dc
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 4(r)>
        <LVAR -0x016 @ 2(w)>
        <LVAR -0x01a 4(w)>
        <LVAR -0x01d 1(w)>
        <LVAR -0x01e 1(w) 4(w)>
        <LVAR -0x020 1(w)>
        <LVAR -0x022 4(w)>
        <LVAR -0x023 1(w)>
        <LVAR -0x024 1(rw)>
        <LVAR -0x025 1(rw)>
        <LVAR -0x026 @ 1(w) 4(w)>
    <POP 213dc-21698 Body>                                              
        <POP 213dc-213f2 Prologue>                           Σ0         ↓
        <POP 213f2-21400 RegCacheLoad>                       Σ0         ↓
        <POP 21400-2140a Naked>                              Σ0         ↓ →0x21678
            <MI 21400  TST.B   0x257a2>                                         {}
            <MI 21406  BEQ     0x21678>                                         {}
        <POP 2140a-21434 Naked>                              Σ0         ↓ →0x2143a
            <MI 2140a  MOVE.W  (A6+0x10),D0>                                    {}
            <POP 0x2140e LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 21412  CLR.L   D1>                                              {}
            <MI 21414  MOVE.W  D0,D1>                                           {}
            <MI 21416  ASL.L   #0x4,D1>                                         {}
            <MI 21418  LEA.L   0x2578e,A0>                                      {}
            <MI 2141e  CLR.L   D0>                                              {}
            <MI 21420  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 21424  ASL.L   #0x3,D0>                                         {}
            <POP 0x21426 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2142c  MOVE.W  D0,D5>                                           {}
            <MI 2142e  TST.B   (A0+D1.L+#0x2b)>                                 {}
            <MI 21432  BNE     0x2143a>                                         {}
        <POP 21434-2143a Naked>                              Σ0         ↓ →0x2146a
            <MI 21434  TST.B   (A0+D1.L+#0x2a)>                                 {}
            <MI 21438  BEQ     0x2146a>                                         {}
        <POP 2143a-2146a Naked>                              Σ0         ↓ ←0x2140a
            <Blob 0x2143a [34] @>                            Δ-34               {[«34""»]}
            <POP 2144c-2144e StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2144e 33>                                                    {[«34""»]|[$$Starting new I/O on active handle]}
            <Call 0x21462 0x20c42>                                              {[«34""»]|[$$Starting new I/O on active handle]}
            <POP 21466-2146a StackAdj>                       Δ+38               {}
        <POP 2146a-2149e Naked>                              Σ0         ↓ →0x214a4 ←0x21434
            <MI 2146a  MOVE.B  #0x01,(A0+D1.L+#0x2b)>                           {}
            <MI 21470  CLR.W   (A0+D1.L+#0x2e)>                                 {}
            <MI 21474  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 21478  ADDI.L  #0x000003ff,D0>                                  {}
            <MI 2147e  MOVE.L  D0,D4>                                           {}
            <MI 21480  MOVE.L  #0x400,D3>                                       {}
            <Call 0x21486 0x10294>                                              {}
                ?divs_d3_d4
            <POP 0x2148c LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {}
            <MI 21496  MOVE.W  D4,(A0+D1.L+#0x30)>                              {}
            <MI 2149a  TST.W   D4>                                              {}
            <MI 2149c  BNE     0x214a4>                                         {}
        <POP 2149e-214a4 Naked>                              Σ0         ↓
            <MI 2149e  MOVE.W  #0x1,(A0+D1.L+#0x30)>                            {}
        <POP 214a4-214d4 Naked>                              Σ0         ↓ →0x215be ←0x2146a
            <MI 214a4  CLR.L   (A0+D1.L+#0x32)>                                 {}
            <MI 214a8  CLR.L   (A0+D1.L+#0x36)>                                 {}
            <MI 214ac  MOVEA.L (A6+0x16),A0>                                    {}
            <POP 214b0-214b4 StackAdj>                       Δ-16               {[-16-]}
            <MI 214b4  MOVEA.L A7,A1>                                           {[-16-]}
            <BlockMove 16,A0,A1>                                                {[-16-]}
            <MI 214be  MOVE.L  (A7)+,(A6-0x26)>              Δ+4                {[-12-]}
            <MI 214c0  MOVE.L  (A7)+,(A6-0x22)>              Δ+4                {[-8-]}
            <MI 214c4  MOVE.L  (A7)+,(A6-0x1e)>              Δ+4                {[-4-]}
            <MI 214c8  MOVE.L  (A7)+,(A6-0x1a)>              Δ+4                {}
            <MI 214cc  TST.L   (A6+0xc)>                                        {}
            <MI 214d0  BNE     0x215be>                                         {}
        <POP 214d4-214e2 Naked>                              Σ0         ↓ →0x215be
            <MI 214d4  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 214d8  CMPI.L  #0x00000400,D0>                                  {}
            <MI 214de  BLE     0x215be>                                         {}
        <POP 214e2-2150c Naked>                              Σ0 Δ-4     ↓
            <MI 214e2  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 214e6  SUBQ.L  #0x1,D0>                                         {}
            <MI 214e8  MOVE.L  D0,D4>                                           {}
            <MI 214ea  MOVE.L  #0x400,D3>                                       {}
            <Call 0x214f0 0x10294>                                              {}
                ?divs_d3_d4
            <POP 0x214f6 LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {}
            <MI 21500  MOVE.W  D4,(A6-0x16)>                                    {}
            <MI 21504  CLR.L   D0>                                              {}
            <MI 21506  MOVE.W  D4,D0>                                           {}
            <MI 21508  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2150a  MOVEQ.L #0x00,D6>                                        {[4, 'D0']}
        <POP 2150c-21510 Naked>                              Σ-4        ↓ →0x2153c ←0x21510
            <MI 2150c  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 2150e  BGT     0x2153c>                                         {[-4-]}
        <POP 21510-2153c Naked>                              Σ-4        ↓ →0x2150c
            <POP 0x21510 LimitCheck 0x0 ≤ D6 ≤ 0x8>                             {[-4-]}
            <MI 2151a  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 2151c  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 2151e  MOVE.W  D5,D1>                                           {[-4-]}
            <MI 21520  EXTW.L  D1>                                              {[-4-]}
            <MI 21522  ADD.L   D6,D1>                                           {[-4-]}
            <POP 0x21524 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-4-]}
            <MI 2152a  MOVE.B  D1,(A6+D0.L-#0x14)>                              {[-4-]}
            <POP 0x2152e LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]}
            <MI 21534  MOVE.B  D6,(A6+D0.L-#0x13)>                              {[-4-]}
            <MI 21538  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 2153a  BVC     0x2150c>                                         {[-4-]}
        <POP 2153c-215be Naked>                              Σ-4 Δ+4    →0x21676 ←0x2150c
            <POP 2153c-2153e StackAdj>                       Δ+4                {}
            <MI 2153e  MOVE.W  0x257ac,D0>                                      {}
            <MI 21544  MULU.W  D5,D0>                                           {}
            <MI 21546  LEA.L   (A6-0x16),A0>                                    {}
            <MI 2154a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2154c  ADD.L   0x257b4,D0>                                      {[4, 'A0']}
            <MI 21552  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <Const 0x21554 0x14.2>                           Δ-2                {[4, 'A0']|[4, 'D0']|[#20]}
            <Call 0x21558 0x10238>                                              {[4, 'A0']|[4, 'D0']|[#20]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2155e-21562 StackAdj>                       Δ+10               {}
            <MI 21562  MOVE.B  #0x40,(A6-0x26)>                                 {}
            <MI 21566  CLR.B   (A6-0x25)>                                       {}
            <MI 2156a  CLR.B   (A6-0x24)>                                       {}
            <POP 0x2156e LimitCheck 0x0 ≤ D5 ≤ 0xff>                            {}
            <MI 21570  MOVE.B  D5,(A6-0x23)>                                    {}
            <MI 21574  MOVE.B  #0x0f,(A6-0x20)>                                 {}
            <MI 2157a  MOVE.B  D5,(A6-0x1e)>                                    {}
            <MI 2157e  ORI.B   #0x80,(A6-0x1d)>                                 {}
            <MI 21582  ORI.B   #0x01,(A6-0x1d)>                                 {}
            <MI 21586  MOVE.W  0x257ae,D0>                                      {}
            <MI 2158c  MULU.W  D5,D0>                                           {}
            <MI 2158e  LEA.L   (A6-0x26),A0>                                    {}
            <MI 21590  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21592  ADD.L   0x257b0,D0>                                      {[4, 'A0']}
            <MI 21598  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <Const 0x2159a 0x10.2>                           Δ-2                {[4, 'A0']|[4, 'D0']|[#16]}
            <Call 0x2159e 0x10238>                                              {[4, 'A0']|[4, 'D0']|[#16]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 215a4-215a8 StackAdj>                       Δ+10               {}
            <POP 0x215a8 LimitCheck 0x0 ≤ D5 ≤ 0xffff>                          {}
            <MI 215b0  MOVE.W  D5,-(A7)>                     Δ-2                {[2, 'D5']}
            <Call 0x215b2 0x10230>                                              {[2, 'D5']}
                KERNCALL_18
            <POP 215b8-215ba StackAdj>                       Δ+2                {}
            <MI 215ba  BRA     0x21676>                                         {}
        <POP 215be-215c2 Naked>                              Σ0         ↓ ←0x214a4 ←0x214d4
            <POP 0x215be LimitCheck 0x0 ≤ D5 ≤ 0xff>                            {}
            <MI 215c0  MOVE.W  D5,D7>                                           {}
        <POP 215c2-215e8 Naked>                              Σ0         ↓ →0x21620 ←0x2162e
            <MI 215c2  MOVE.B  #0x40,(A6-0x26)>                                 {}
            <POP 0x215c6 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {}
            <MI 215c8  MOVE.B  D7,(A6-0x23)>                                    {}
            <MI 215cc  MOVE.B  #0x0f,(A6-0x20)>                                 {}
            <POP 0x215d2 LimitCheck 0x0 ≤ D5 ≤ 0xff>                            {}
            <MI 215d4  MOVE.B  D5,(A6-0x1e)>                                    {}
            <MI 215d8  ANDI.B  #0xfe,(A6-0x1d)>                                 {}
            <MI 215dc  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 215e0  CMPI.L  #0x00000400,D0>                                  {}
            <MI 215e6  BGT     0x21620>                                         {}
        <POP 215e8-21620 Naked>                              Σ0         →0x2162e
            <MI 215e8  MOVE.L  D0,D1>                                           {}
            <MI 215ea  ADDQ.L  #0x7,D1>                                         {}
            <MI 215ec  MOVE.L  D1,D4>                                           {}
            <MI 215ee  MOVEQ.L #0x08,D3>                                        {}
            <Call 0x215f0 0x10294>                                              {}
                ?divs_d3_d4
            <POP 0x215f6 LimitCheck 0x0 ≤ D4 ≤ 0x80>                            {}
            <MI 21600  MOVE.B  D4,(A6-0x25)>                                    {}
            <MI 21604  CLR.L   D1>                                              {}
            <MI 21606  MOVE.B  D4,D1>                                           {}
            <MI 21608  ASL.W   #0x3,D1>                                         {}
            <MI 2160a  EXTW.L  D1>                                              {}
            <MI 2160c  NEG.L   D0>                                              {}
            <MI 2160e  ADD.L   D1,D0>                                           {}
            <POP 0x21610 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21616  MOVE.B  D0,(A6-0x24)>                                    {}
            <MI 2161a  ORI.B   #0x80,(A6-0x1d)>                                 {}
            <MI 2161e  BRA     0x2162e>                                         {}
        <POP 21620-2162e Naked>                              Σ0         ↓ ←0x215c2
            <MI 21620  MOVE.B  #0x80,(A6-0x25)>                                 {}
            <MI 21626  CLR.B   (A6-0x24)>                                       {}
            <MI 2162a  ANDI.B  #0x7f,(A6-0x1d)>                                 {}
        <POP 2162e-21676 Naked>                              Σ0         ↓ →0x215c2 ←0x215e8
            <MI 2162e  MOVE.W  0x257ae,D0>                                      {}
            <MI 21634  MULU.W  D7,D0>                                           {}
            <MI 21636  LEA.L   (A6-0x26),A0>                                    {}
            <MI 21638  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2163a  ADD.L   0x257b0,D0>                                      {[4, 'A0']}
            <MI 21640  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <Const 0x21642 0x10.2>                           Δ-2                {[4, 'A0']|[4, 'D0']|[#16]}
            <Call 0x21646 0x10238>                                              {[4, 'A0']|[4, 'D0']|[#16]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2164c-21650 StackAdj>                       Δ+10               {}
            <POP 0x21650 LimitCheck 0x0 ≤ D7 ≤ 0xffff>                          {}
            <MI 21658  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2165a 0x10230>                                              {[2, 'D7']}
                KERNCALL_18
            <POP 21660-21662 StackAdj>                       Δ+2                {}
            <MI 21662  MOVE.W  D7,D0>                                           {}
            <MI 21664  ADDQ.W  #0x1,D0>                                         {}
            <POP 0x21666 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21668  MOVE.W  D0,D7>                                           {}
            <MI 2166a  SUBI.L  #0x00000400,(A6+0xc)>                            {}
            <MI 21672  BGT     0x215c2>                                         {}
        <POP 21676-21678 Naked>                              Σ0         →0x21690 ←0x2153c
            <MI 21676  BRA     0x21690>                                         {}
        <POP 21678-21690 Naked>                              Σ0         ↓ ←0x21400
            <MI 21678  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 2167c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <MI 2167e  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '^(A0)']|[4, '(A6+0x12)']}
            <MI 21682  MOVE.W  (A6+0x10),-(A7)>              Δ-2                {[4, '^(A0)']|[4, '(A6+0x12)']|[2, '(A6+0x10)']}
            <Call 0x21686 0x10204>                                              {[4, '^(A0)']|[4, '(A6+0x12)']|[2, '(A6+0x10)']}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 2168c-21690 StackAdj>                       Δ+10               {}
        <POP 21690-21698 Epilogue>                           Σ0         ←0x21676

0x21698


@ 21698
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 2(r)>
        <LVAR -0x008 2(r)>
        <LVAR -0x010 2(r)>
        <LVAR -0x014 @ 2(r)>
        <LVAR -0x016 @>
        <LVAR -0x018 2(r)>
        <LVAR -0x01a 2(r)>
        <LVAR -0x01c 2(w)>
        <LVAR -0x01e 2(w)>
        <LVAR -0x020 2(r)>
        <LVAR -0x022 2(w)>
        <LVAR -0x024 2(r)>
        <LVAR -0x026 @ 2(r)>
    <POP 21698-21732 Body>                                              
        <POP 21698-216ae Prologue>                           Σ0         ↓
        <POP 216ae-216b2 RegCacheLoad>                       Σ0         ↓
        <POP 216b2-21712 Naked>                              Σ0         ↓ →0x2172a
            <MI 216b2  CLR.W   (A6-0x26)>                                       {}
            <MI 216b6  CLR.W   (A6-0x24)>                                       {}
            <MI 216ba  MOVE.W  #0x3,(A6-0x22)>                                  {}
            <MI 216c0  CLR.W   (A6-0x20)>                                       {}
            <MI 216c4  MOVE.W  #0x4,(A6-0x1e)>                                  {}
            <MI 216ca  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 216ce  ASL.W   #0x8,D0>                                         {}
            <MI 216d0  MOVE.W  D0,(A6-0x1c)>                                    {}
            <MI 216d4  CLR.W   (A6-0x1a)>                                       {}
            <MI 216d8  CLR.W   (A6-0x18)>                                       {}
            <Pointer.fp 0x216dc <LVAR -0x026 @ 2(r)>>        Δ-4                {[@@-38]}
            <MI 216e0  LEA.L   (A6-0x14),A0>                                    {[@@-38]}
            <MI 216e4  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-38]|[4, 'A0']}
            <Const 0x216e6 0x1c.2>                           Δ-2                {[@@-38]|[4, 'A0']|[#28]}
            <Const 0x216e8 0x0.4>                            Δ-4                {[@@-38]|[4, 'A0']|[#28]|[##0]}
            <Const 0x216ec 0x14.4>                           Δ-4                {[@@-38]|[4, 'A0']|[#28]|[##0]|[##20]}
            <Call 0x216f0 0x21244>                                              {[@@-38]|[4, 'A0']|[#28]|[##0]|[##20]}
            <POP 216f4-216f8 StackAdj>                       Δ+16               {[-2-]}
            <POP 216f8-216f9 StackAdj>                       Δ+2                {}
            <Const 0x216f9 0x1c.2>                           Δ-2                {[#28]}
            <Pointer.fp 0x216fa <LVAR -0x016 @>>             Δ-4                {[#28]|[@@-22]}
            <Call 0x216fe 0x2115a>                                              {[#28]|[@@-22]}
            <POP 21702-21704 StackAdj>                       Δ+6                {}
            <MI 21704  CLR.B   (A6+0xa)>                                        {}
            <MI 21708  MOVE.W  (A6-0x14),D0>                                    {}
            <MI 2170c  AND.W   #0x01,D0>                                        {}
            <MI 2170e  CMP.W   #0x01,D0>                                        {}
            <MI 21710  BNE     0x2172a>                                         {}
        <POP 21712-2171c Naked>                              Σ0         ↓ →0x2172a
            <MI 21712  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 21716  ANDI.W  #0x0040,D0>                                      {}
            <MI 2171a  BNE     0x2172a>                                         {}
        <POP 2171c-21726 Naked>                              Σ0         ↓ →0x2172a
            <MI 2171c  MOVE.W  (A6-0x8),D0>                                     {}
            <MI 21720  ANDI.W  #0x0800,D0>                                      {}
            <MI 21724  BNE     0x2172a>                                         {}
        <POP 21726-2172a Naked>                              Σ0         ↓
            <MI 21726  ADDQ.B  #0x1,(A6+0xa)>                                   {}
        <POP 2172a-21732 Epilogue>                           Σ0         ←0x216b2 ←0x21712 ←0x2171c

0x21732


@ 21732
        <LVAR  0x008 2(r)>
    <POP 21732-217ba Body>                                   Δ+4        
        <POP 21732-21748 Prologue>                           Σ0         ↓
        <POP 21748-2178c Naked>                              Σ0         ↓ →0x217a8
            <MI 21748  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2174c  MULS.W  (A6+0x8),D0>                                     {}
            <MI 21750  LEA.L   0x2578e,A0>                                      {}
            <MI 21756  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 2175a  CLR.L   (A0+0x230)>                                      {}
            <MI 2175e  CLR.L   (A0+0x234)>                                      {}
            <MI 21762  CLR.L   (A0+0x238)>                                      {}
            <MI 21766  CLR.L   (A0+0x244)>                                      {}
            <MI 2176a  CLR.B   (A0+0x22b)>                                      {}
            <MI 2176e  CLR.B   (A0+0x22d)>                                      {}
            <MI 21772  MOVE.B  #0x01,(A0+0x22e)>                                {}
            <MI 21778  MOVE.L  #0xa,(A0+0x24c)>                                 {}
            <MI 21780  CLR.L   (A0+0x248)>                                      {}
            <MI 21784  TST.B   0x257a2>                                         {}
            <MI 2178a  BEQ     0x217a8>                                         {}
        <POP 2178c-217a8 Naked>                              Σ0 Δ-4     →0x217ae
            <MI 2178c  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21790  ADDI.W  #0x0010,D0>                                      {}
            <MI 21794  ASL.W   #0x3,D0>                                         {}
            <MI 21796  MULU.W  0x257ac,D0>                                      {}
            <MI 2179c  ADD.L   0x257b4,D0>                                      {}
            <MI 217a2  MOVE.L  D0,D7>                                           {}
            <MI 217a4  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <MI 217a6  BRA     0x217ae>                                         {[4, 'D7']}
        <POP 217a8-217ae Naked>                              Σ0 Δ-4     ↓ ←0x21748
            <MI 217a8  LEA.L   (A0+0x3d4),A1>                                   {}
            <MI 217ac  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
        <POP 217ae-217b2 Naked>                              Σ-4 Δ+4    ↓ ←0x2178c
            <MI 217ae  MOVE.L  (A7)+,(A0+0x3d0)>             Δ+4                {}
        <POP 217b2-217ba Epilogue>                           Σ0         

0x217ba


@ 217ba
        <LVAR  0x008 2(r)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x012 @>
    <POP 217ba-218fe Body>                                   Δ+36       
        <POP 217ba-217d0 Prologue>                           Σ0         ↓
        <POP 217d0-217de RegCacheLoad>                       Σ0         ↓
        <POP 217de-21828 Naked>                              Σ0         ↓ →0x218cc
            <MI 217de  MOVE.W  #0x21c0,D0>                                      {}
            <MI 217e2  MULS.W  (A6+0x8),D0>                                     {}
            <MI 217e4  LEA.L   0x2578e,A0>                                      {}
            <MI 217ea  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 217ee  MOVE.W  #0x3,(A6-0xe)>                                   {}
            <MI 217f4  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 217f6  ASL.W   #0x8,D0>                                         {}
            <MI 217f8  MOVE.B  (A0+0x23d4),D1>                                  {}
            <MI 217fc  EXTB.W  D1>                                              {}
            <MI 217fe  ADD.W   D1,D0>                                           {}
            <POP 0x21800 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21808  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 2180c  MOVE.L  (A0+0x23d6),D0>                                  {}
            <POP 0x21810 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 2181a  MOVE.W  D0,(A6-0x6)>                                     {}
            <MI 2181e  SUBQ.W  #0x2,D1>                                         {}
            <MI 21820  CMPI.W  #0x0019,D1>                                      {}
            <MI 21824  BHI     0x218cc>                                         {}
        <POP 21828-21832 Naked>                              Σ0         →0x2187c →0x2187c →0x218a6 →0x218a6 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x218cc →0x218cc →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x21866 →0x218cc →0x218cc →0x218cc →0x21866
            <MI 21828  ADD.W   D1,D1>                                           {}
            <MI 2182a  SWITCH  D1.W>                                            {}
        <POP 21866-21876 Naked>                              Σ0 Δ-18    ↓ ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828
            <Pointer.fp 0x21866 <LVAR -0x012 @>>             Δ-4                {[@@-18]}
            <Const 0x21868 0x0.4>                            Δ-4                {[@@-18]|[##0]}
            <MI 2186a  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-18]|[##0]|[2, '(A6+0x8)']}
            <MI 2186c  ADD.W   #0x10,(A7)>                                      {[@@-18]|[##0]|[-2-]}
            <Const 0x2186e 0x0.4>                            Δ-4                {[@@-18]|[##0]|[-2-]|[##0]}
            <Const 0x21870 0x0.4>                            Δ-4                {[@@-18]|[##0]|[-2-]|[##0]|[##0]}
            <Call 0x21872 0x21244>                                              {[@@-18]|[##0]|[-2-]|[##0]|[##0]}
        <POP 21876-2187c Naked>                              Σ-18 Δ+18  →0x218f6 ←0x218a0
            <POP 21876-2187a StackAdj>                       Δ+18               {}
            <MI 2187a  BRA     0x218f6>                                         {}
        <POP 2187c-218a0 Naked>                              Σ0 Δ-18    ↓ ←0x21828 ←0x21828
            <Pointer.fp 0x2187c <LVAR -0x012 @>>             Δ-4                {[@@-18]}
            <POP 2187e-21880 StackAdj>                       Δ-4                {[@@-18]|[-4-]}
            <MI 21880  MOVE.B  (A0+0x3d0),(A7)>                                 {[@@-18]|[-4-]}
            <MI 21884  MOVE.B  (A0+0x3d1),(A7+0x1)>                             {[@@-18]|[-4-]}
            <MI 2188a  MOVE.B  (A0+0x3d2),(A7+0x2)>                             {[@@-18]|[-4-]}
            <MI 21890  MOVE.B  (A0+0x3d3),(A7+0x3)>                             {[@@-18]|[-4-]}
            <MI 21896  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-18]|[-4-]|[2, '(A6+0x8)']}
            <MI 21898  ADD.W   #0x10,(A7)>                                      {[@@-18]|[-6-]}
            <Const 0x2189a 0x0.4>                            Δ-4                {[@@-18]|[-6-]|[##0]}
            <MI 2189c  MOVE.L  (A0+0x23d6),-(A7)>            Δ-4                {[@@-18]|[-6-]|[##0]|[4, '(A0+0x23d6)']}
        <POP 218a0-218a6 Naked>                              Σ-18       →0x21876 ←0x218a6
            <Call 0x218a0 0x213dc>                                              {[-18-]}
            <MI 218a4  BRA     0x21876>                                         {[-18-]}
        <POP 218a6-218cc Naked>                              Σ0 Δ-18    →0x218a0 ←0x21828 ←0x21828
            <Pointer.fp 0x218a6 <LVAR -0x012 @>>             Δ-4                {[@@-18]}
            <POP 218a8-218aa StackAdj>                       Δ-4                {[@@-18]|[-4-]}
            <MI 218aa  MOVE.B  (A0+0x3d0),(A7)>                                 {[@@-18]|[-4-]}
            <MI 218ae  MOVE.B  (A0+0x3d1),(A7+0x1)>                             {[@@-18]|[-4-]}
            <MI 218b4  MOVE.B  (A0+0x3d2),(A7+0x2)>                             {[@@-18]|[-4-]}
            <MI 218ba  MOVE.B  (A0+0x3d3),(A7+0x3)>                             {[@@-18]|[-4-]}
            <MI 218c0  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-18]|[-4-]|[2, '(A6+0x8)']}
            <MI 218c2  ADD.W   #0x10,(A7)>                                      {[@@-18]|[-6-]}
            <MI 218c4  MOVE.L  (A0+0x23d6),-(A7)>            Δ-4                {[@@-18]|[-6-]|[4, '(A0+0x23d6)']}
            <Const 0x218c8 0x0.4>                            Δ-4                {[@@-18]|[-6-]|[4, '(A0+0x23d6)']|[##0]}
            <MI 218ca  BRA     0x218a0>                                         {[@@-18]|[-6-]|[4, '(A0+0x23d6)']|[##0]}
        <POP 218cc-218f6 Naked>                              Σ0         ↓ ←0x217de ←0x21828 ←0x21828 ←0x21828 ←0x21828 ←0x21828
            <Blob 0x218cc [26] @>                            Δ-26               {[«26""»]}
            <POP 218d8-218da StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x218da 26>                                                    {[«26""»]|[$$Unsupported tape operation]}
            <Call 0x218ee 0x20c42>                                              {[«26""»]|[$$Unsupported tape operation]}
            <POP 218f2-218f6 StackAdj>                       Δ+30               {}
        <POP 218f6-218fe Epilogue>                           Σ0         ←0x21876

0x218fe


@ 218fe
    <POP 218fe-219e8 Body>                                              
        <POP 218fe-21914 Prologue>                           Σ0         ↓
        <POP 21914-2191a RegCacheLoad>                       Σ0         ↓
        <POP 2191a-2194e Naked>                              Σ0         ↓
            <Blob 0x2191a [14] @>                            Δ-14               {[«14""»]}
            <POP 21926-21928 StackAdj>                       Δ-6                {[«14""»]|[-6-]}
            <Lit 0x21928 14>                                                    {[«14""»]|[-2-]|[$$Exercise Tapes]}
            <POP 21936-21938 StackAdj>                       Δ-2                {[«14""»]|[-2-]|[$$Exercise Tapes]|[-2-]}
            <POP 21938-21939 StackAdj>                       Δ+2                {[«14""»]|[-2-]|[$$Exercise Tapes]}
            <Const 0x21939 0x1.2>                            Δ-2                {[«14""»]|[-2-]|[$$Exercise Tapes]|[#1]}
            <Call 0x2193a 0x103f0>                                              {[«14""»]|[-2-]|[$$Exercise Tapes]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21940-21942 StackAdj>                       Δ+6                {[«14""»]|[-2-]}
            <MI 21942  MOVE.B  (A7)+,D0>                     Δ+2                {[«14""»]}
            <MI 21944  EXTB.W  D0>                                              {[«14""»]}
            <POP 0x21946 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«14""»]}
            <POP 21948-2194a StackAdj>                       Δ+14               {}
            <MI 2194a  MOVE.B  D0,D6>                                           {}
            <MI 2194c  MOVEQ.L #0x00,D7>                                        {}
        <POP 2194e-21962 Naked>                              Σ0         ↓ →0x21970 ←0x219d6
            <MI 2194e  MOVE.W  #0x21c0,D0>                                      {}
            <MI 21952  MULS.W  D7,D0>                                           {}
            <MI 21954  LEA.L   0x2578e,A0>                                      {}
            <MI 2195a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 2195e  TST.B   D6>                                              {}
            <MI 21960  BEQ     0x21970>                                         {}
        <POP 21962-21970 Naked>                              Σ0         ↓ →0x21976
            <POP 21962-21964 StackAdj>                       Δ-2                {[-2-]}
            <MI 21964  MOVE.W  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21966 0x21698>                                              {[-2-]|[2, 'D7']}
            <POP 2196a-2196c StackAdj>                       Δ+2                {[-2-]}
            <MI 2196c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2196e  BNE     0x21976>                                         {}
        <POP 21970-21976 Naked>                              Σ0         →0x219c8 ←0x2194e
            <MI 21970  CLR.B   (A0+0x22a)>                                      {}
            <MI 21974  BRA     0x219c8>                                         {}
        <POP 21976-219c8 Naked>                              Σ0         ↓ ←0x21962
            <Blob 0x21976 [20] @>                            Δ-20               {[«20""»]}
            <POP 21986-2198a StackAdj>                       Δ-10               {[«20""»]|[-10-]}
            <Lit 0x2198a 19>                                                    {[«20""»]|[-6-]|[$$Exercise Tape unit_]}
            <POP 2199a-2199c StackAdj>                       Δ-4                {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]}
            <MI 2199c  MOVE.W  D7,D0>                                           {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]}
            <MI 2199e  EXTW.L  D0>                                              {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]}
            <MI 219a0  MOVE.L  D0,-(A7)>                     Δ-4                {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]|[4, 'D0']}
            <Call 0x219a2 0x102e4>                                              {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 219a8-219aa StackAdj>                       Δ+4                {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]}
            <Call 0x219aa 0x102d0>                                              {[«20""»]|[-6-]|[$$Exercise Tape unit_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 219b0-219b2 StackAdj>                       Δ+6                {[«20""»]|[-6-]|[-2-]}
            <POP 219b2-219b3 StackAdj>                       Δ+2                {[«20""»]|[-6-]}
            <Const 0x219b3 0x1.2>                            Δ-2                {[«20""»]|[-6-]|[#1]}
            <Call 0x219b4 0x103f0>                                              {[«20""»]|[-6-]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 219ba-219bc StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 219bc  MOVE.B  (A7)+,D0>                     Δ+2                {[«20""»]}
            <MI 219be  EXTB.W  D0>                                              {[«20""»]}
            <POP 0x219c0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]}
            <POP 219c2-219c4 StackAdj>                       Δ+20               {}
            <MI 219c4  MOVE.B  D0,(A0+0x22a)>                                   {}
        <POP 219c8-219ce Naked>                              Σ0         ↓ →0x219d6 ←0x21970
            <MI 219c8  TST.B   (A0+0x22a)>                                      {}
            <MI 219cc  BEQ     0x219d6>                                         {}
        <POP 219ce-219d6 Naked>                              Σ0         ↓
            <MI 219ce  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x219d0 0x21732>                                              {[2, 'D7']}
            <POP 219d4-219d6 StackAdj>                       Δ+2                {}
        <POP 219d6-219e0 Naked>                              Σ0         ↓ →0x2194e ←0x219c8
            <MI 219d6  ADDQ.W  #0x1,D7>                                         {}
            <MI 219d8  CMPI.W  #0x0003,D7>                                      {}
            <MI 219dc  BLE     0x2194e>                                         {}
        <POP 219e0-219e8 Epilogue>                           Σ0         

0x219e8


@ 219e8
    <POP 219e8-21a40 Body>                                              
        <POP 219e8-219fe Prologue>                           Σ0         ↓
        <POP 219fe-21a02 RegCacheLoad>                       Σ0         ↓
        <POP 21a02-21a38 Naked>                              Σ0         ↓
            <Blob 0x21a02 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21a06 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21a0a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21a0e-21a10 StackAdj>                       Δ-6                {[«4""»]|[«4""»]|[«4""»]|[-6-]}
            <Lit 0x21a10 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-2-]|[$$Exercise PAD]}
            <POP 21a1e-21a20 StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[«4""»]|[-2-]|[$$Exercise PAD]|[-2-]}
            <POP 21a20-21a21 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[«4""»]|[-2-]|[$$Exercise PAD]}
            <Const 0x21a21 0x1.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[-2-]|[$$Exercise PAD]|[#1]}
            <Call 0x21a22 0x103f0>                                              {[«4""»]|[«4""»]|[«4""»]|[-2-]|[$$Exercise PAD]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21a28-21a2a StackAdj>                       Δ+6                {[«4""»]|[«4""»]|[«4""»]|[-2-]}
            <MI 21a2a  MOVE.B  (A7)+,D0>                     Δ+2                {[«4""»]|[«4""»]|[«4""»]}
            <MI 21a2c  EXTB.W  D0>                                              {[«4""»]|[«4""»]|[«4""»]}
            <POP 0x21a2e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«4""»]|[«4""»]|[«4""»]}
            <POP 21a30-21a32 StackAdj>                       Δ+12               {}
            <MI 21a32  MOVE.B  D0,0x2e518>                                      {}
        <POP 21a38-21a40 Epilogue>                           Σ0         

0x21a40


@ 21a40
    <POP 21a40-21c2c Body>                                              
        <POP 21a40-21a56 Prologue>                           Σ0         ↓
        <POP 21a56-21a64 RegCacheLoad>                       Σ0         ↓
        <POP 21a64-21a66 Naked>                              Σ0         ↓
            <MI 21a64  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a66-21a8c Naked>                              Σ0         ↓ →0x21c1c ←0x21c1c
            <POP 0x21a66 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 21a6c  MOVE.L  D7,D4>                                           {}
            <MI 21a6e  MOVE.L  #0x21c0,D3>                                      {}
            <Call 0x21a74 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21a7a  LEA.L   0x2578e,A0>                                      {}
            <MI 21a80  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 21a84  TST.B   (A0+0x22a)>                                      {}
            <MI 21a88  BEQ     0x21c1c>                                         {}
        <POP 21a8c-21c1c Naked>                              Σ0         ↓
            <Blob 0x21a8c [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21a90 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21a94 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x21a98 [2] @>                             Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <POP 21a9c-21a9e StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-8-]}
            <Lit 0x21a9e 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]}
            <POP 21aac-21aae StackAdj>                       Δ-12               {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]}
            <MI 21aae  MOVE.L  D7,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[4, 'D7']}
            <Call 0x21ab0 0x102e4>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[4, 'D7']}
                Long2String(a : Long) : String
            <Lit 0x21ab6 2>                                                     {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[$$, ]}
            <Call 0x21ac8 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[$$, ]}
                StringCat2(a, b : String) : String
            <POP 21aca-21acc StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]}
            <Const 0x21acc 0x4.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[##4]}
            <Call 0x21ad0 0x102f8>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[##4]}
                LeftPad(a : String; b : Long) : String
            <POP 21ad6-21ad8 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-4-]}
            <Call 0x21ad8 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21ada-21adc StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]}
            <MI 21adc  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <POP 21ade-21adf StackAdj>                       Δ+14       ↓       {}
            <Blob 0x21adf [10] @>                            Δ-10               {[«10""»]}
            <POP 21aee-21af0 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <MI 21af0  MOVE.L  A4,-(A7)>                     Δ-4                {[«10""»]|[-4-]|[4, 'A4']}
            <POP 21af2-21af4 StackAdj>                       Δ-4                {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x21af4 9>                                                     {[«10""»]|[-4-]|[4, 'A4']|[$$Bytes =>_]}
            <Call 0x21b06 0x102d0>                                              {[«10""»]|[-4-]|[4, 'A4']|[$$Bytes =>_]}
                StringCat2(a, b : String) : String
            <POP 21b08-21b0a StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 21b0a  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 21b0c-21b0e StackAdj>                       Δ+2                {[-8-]}
            <MI 21b0e  MOVE.L  A4,(A7)>                                         {[-4-]|[4, 'A4']}
            <POP 21b10-21b11 StackAdj>                       Δ-8        ↓       {[-4-]|[4, 'A4']|[-8-]}
            <Blob 0x21b11 [8] (A0+0x23c)>                    Δ-8                {[-4-]|[4, 'A4']|[-8-]|[«8»]}
            <Const 0x21b22 0xa.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
            <Call 0x21b26 0x1035c>                                              {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 21b2c-21b2e StackAdj>                       Δ+12               {[-4-]|[4, 'A4']|[-8-]}
            <Const 0x21b2e 0xb.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##11]}
            <Call 0x21b32 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##11]}
                LeftPad(a : String; b : Long) : String
            <POP 21b38-21b3a StackAdj>                       Δ+8                {[-4-]|[4, 'A4']|[-4-]}
            <Call 0x21b3a 0x102d0>                                              {[-4-]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21b3c-21b3e StackAdj>                       Δ+8                {[-4-]}
            <MI 21b3e  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x21b40 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21b44 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21b48-21b4a StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 21b4a  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 21b4c-21b4e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x21b4e 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$soft =>_]}
            <Call 0x21b5e 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$soft =>_]}
                StringCat2(a, b : String) : String
            <POP 21b60-21b62 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21b62  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <MI 21b64  MOVE.L  A4,(A7)>                                         {[«4""»]|[4, 'A4']}
            <POP 21b66-21b68 StackAdj>                       Δ-8                {[«4""»]|[4, 'A4']|[-8-]}
            <MI 21b68  MOVE.L  (A0+0x234),-(A7)>             Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x234)']}
            <Call 0x21b6c 0x102e4>                                              {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x234)']}
                Long2String(a : Long) : String
            <POP 21b72-21b74 StackAdj>                       Δ+4                {[«4""»]|[4, 'A4']|[-8-]}
            <Const 0x21b74 0x5.4>                            Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[##5]}
            <Call 0x21b78 0x102f8>                                              {[«4""»]|[4, 'A4']|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 21b7e-21b80 StackAdj>                       Δ+8                {[«4""»]|[4, 'A4']|[-4-]}
            <Call 0x21b80 0x102d0>                                              {[«4""»]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21b82-21b84 StackAdj>                       Δ+8                {[«4""»]}
            <MI 21b84  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x21b86 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21b8a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21b8e-21b90 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 21b90  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 21b92-21b94 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x21b94 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$hard =>_]}
            <Call 0x21ba4 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$hard =>_]}
                StringCat2(a, b : String) : String
            <POP 21ba6-21ba8 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21ba8  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <MI 21baa  MOVE.L  A4,(A7)>                                         {[«4""»]|[4, 'A4']}
            <POP 21bac-21bae StackAdj>                       Δ-8                {[«4""»]|[4, 'A4']|[-8-]}
            <MI 21bae  MOVE.L  (A0+0x230),-(A7)>             Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x230)']}
            <Call 0x21bb2 0x102e4>                                              {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x230)']}
                Long2String(a : Long) : String
            <POP 21bb8-21bba StackAdj>                       Δ+4                {[«4""»]|[4, 'A4']|[-8-]}
            <Const 0x21bba 0x5.4>                            Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[##5]}
            <Call 0x21bbe 0x102f8>                                              {[«4""»]|[4, 'A4']|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 21bc4-21bc6 StackAdj>                       Δ+8                {[«4""»]|[4, 'A4']|[-4-]}
            <Call 0x21bc6 0x102d0>                                              {[«4""»]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21bc8-21bca StackAdj>                       Δ+8                {[«4""»]}
            <MI 21bca  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x21bcc [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21bd0 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21bd4-21bd6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 21bd6  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 21bd8-21bda StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x21bda 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$data =>_]}
            <Call 0x21bea 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$data =>_]}
                StringCat2(a, b : String) : String
            <POP 21bec-21bee StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21bee  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <MI 21bf0  MOVE.L  A4,(A7)>                                         {[«4""»]|[4, 'A4']}
            <POP 21bf2-21bf4 StackAdj>                       Δ-8                {[«4""»]|[4, 'A4']|[-8-]}
            <MI 21bf4  MOVE.L  (A0+0x238),-(A7)>             Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x238)']}
            <Call 0x21bf8 0x102e4>                                              {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x238)']}
                Long2String(a : Long) : String
            <POP 21bfe-21c00 StackAdj>                       Δ+4                {[«4""»]|[4, 'A4']|[-8-]}
            <Const 0x21c00 0x5.4>                            Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[##5]}
            <Call 0x21c04 0x102f8>                                              {[«4""»]|[4, 'A4']|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 21c0a-21c0c StackAdj>                       Δ+8                {[«4""»]|[4, 'A4']|[-4-]}
            <Call 0x21c0c 0x102d0>                                              {[«4""»]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21c0e-21c10 StackAdj>                       Δ+8                {[«4""»]}
            <MI 21c10  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 21c12  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x21c14 0x103e0>                                              {[4, 'A4']}
                WriteConsoleStringCrLf(str : String)
            <POP 21c1a-21c1c StackAdj>                       Δ+4                {}
        <POP 21c1c-21c24 Naked>                              Σ0         ↓ →0x21a66 ←0x21a66
            <MI 21c1c  ADDQ.L  #0x1,D7>                                         {}
            <MI 21c1e  CMP.L   #0x03,D7>                                        {}
            <MI 21c20  BLE     0x21a66>                                         {}
        <POP 21c24-21c2c Epilogue>                           Σ0         

0x21c2c


@ 21c2c
        <LVAR  0x008 4(r)>
    <POP 21c2c-21cbc Body>                                              
        <POP 21c2c-21c42 Prologue>                           Σ0         ↓
        <POP 21c42-21c4a RegCacheLoad>                       Σ0         ↓
        <POP 21c4a-21c50 Naked>                              Σ0         ↓ →0x21c62
            <MI 21c4a  MOVEA.L (A4+0x8),A0>                                     {}
            <MI 21c4c  TST.W   (A0)>                                            {}
            <MI 21c4e  BNE     0x21c62>                                         {}
        <POP 21c50-21c62 Naked>                              Σ0         →0x21cb4
            <POP 21c50-21c52 StackAdj>                       Δ-4                {[-4-]}
            <MI 21c52  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A4+0x8)']}
            <MI 21c54  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A4+0x8)']|[4, '(A6+0x8)']}
            <Call 0x21c56 0x102d0>                                              {[-4-]|[4, '(A4+0x8)']|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 21c5c-21c5e StackAdj>                       Δ+8                {[-4-]}
            <MI 21c5e  MOVE.L  (A7)+,(A4+0x8)>               Δ+4                {}
            <MI 21c60  BRA     0x21cb4>                                         {}
        <POP 21c62-21c78 Naked>                              Σ0         ↓ →0x21ca8 ←0x21c4a
            <MI 21c62  MOVE.W  (A0),D0>                                         {}
            <MI 21c64  EXTW.L  D0>                                              {}
            <MI 21c66  ADDQ.L  #0x2,D0>                                         {}
            <MI 21c68  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21c6a  MOVE.W  (A0),D1>                                         {}
            <MI 21c6c  EXTW.L  D1>                                              {}
            <MI 21c6e  ADD.L   D0,D1>                                           {}
            <MI 21c70  CMPI.L  #0x00000050,D1>                                  {}
            <MI 21c76  BGT     0x21ca8>                                         {}
        <POP 21c78-21ca8 Naked>                              Σ0         →0x21cb4
            <Blob 0x21c78 [2] @>                             Δ-2                {[«2""»]}
            <POP 21c7c-21c7e StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 21c7e  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']}
            <POP 21c80-21c82 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']|[-4-]}
            <Lit 0x21c82 2>                                                     {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]}
            <POP 21c94-21c96 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[-4-]}
            <MI 21c96  MOVE.L  (A6+0x8),(A7)>                                   {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[4, '(A6+0x8)']}
            <Call 0x21c98 0x102d4>                                              {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[4, '(A6+0x8)']}
                StringCat3(a, b, c : String) : String
            <POP 21c9e-21ca2 StackAdj>                       Δ+12               {[«2""»]|[-4-]}
            <MI 21ca2  MOVE.L  (A7)+,(A4+0x8)>               Δ+4                {[«2""»]}
            <POP 21ca4-21ca6 StackAdj>                       Δ+2                {}
            <MI 21ca6  BRA     0x21cb4>                                         {}
        <POP 21ca8-21cb4 Naked>                              Σ0         ↓ ←0x21c62
            <MI 21ca8  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[4, '(A4+0x8)']}
            <Call 0x21caa 0x103e0>                                              {[4, '(A4+0x8)']}
                WriteConsoleStringCrLf(str : String)
            <POP 21cb0-21cb2 StackAdj>                       Δ+4                {}
            <MI 21cb2  MOVE.L  (A6+0x8),(A4+0x8)>                               {}
        <POP 21cb4-21cbc Epilogue>                           Σ0         ←0x21c50 ←0x21c78

0x21cbc


@ 21cbc
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00e @ 4(r)>
    <POP 21cbc-22a6c Body>                                              
        <POP 21cbc-21cd2 Prologue>                           Σ0         ↓
        <POP 21cd2-21ce4 RegCacheLoad>                       Σ0         ↓
        <POP 21ce4-21dca Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x21ce4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21ce8 0x102b8>                                              {[@@-6]}
                NewString(VAR a : String)
            <POP 21cee-21cf0 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21cf0 <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Call 0x21cf4 0x10304>                                              {[@@-14]}
                GetRtc() : TimeStamp
            <POP 21cfa-21cfc StackAdj>                       Δ+4                {}
            <MI 21cfc  MOVE.W  #0x21c0,D0>                                      {}
            <MI 21d00  MULS.W  (A6+0x8),D0>                                     {}
            <MI 21d04  LEA.L   0x2578e,A0>                                      {}
            <MI 21d0a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 21d0e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x21d10 [4] @>                             Δ-4                {[4, 'A0']|[«4""»]}
            <Blob 0x21d14 [4] @>                             Δ-4                {[4, 'A0']|[«4""»]|[«4""»]}
            <Blob 0x21d18 [4] @>                             Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x21d1c [2] @>                             Δ-2                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <Blob 0x21d20 [2] @>                             Δ-2                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]}
            <POP 21d24-21d26 StackAdj>                       Δ-8                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x21d26 12>                                                    {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]}
            <POP 21d30-21d32 StackAdj>                       Δ-12               {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]}
            <MI 21d32  MOVE.W  (A6+0x8),D0>                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]}
            <MI 21d36  EXTW.L  D0>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]}
            <MI 21d38  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[4, 'D0']}
            <Call 0x21d3a 0x102e4>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[4, 'D0']}
                Long2String(a : Long) : String
            <Lit 0x21d40 2>                                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[$$, ]}
            <Call 0x21d4e 0x102d0>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-12-]|[$$, ]}
                StringCat2(a, b : String) : String
            <POP 21d54-21d56 StackAdj>                       Δ+8                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]}
            <Const 0x21d56 0x4.4>                            Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[##4]}
            <Call 0x21d5a 0x102f8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[##4]}
                LeftPad(a : String; b : Long) : String
            <MI 21d60  MOVE.L  (A6-0xe),(A7)>                                   {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[4, '(A6-0xe)']}
            <Call 0x21d64 0x10308>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[4, '(A6-0xe)']}
                TimeToText()
            <Lit 0x21d6a 2>                                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[$$,_]}
            <Call 0x21d78 0x102d8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Tape Unit :_]|[-8-]|[$$,_]}
                StringCat4(a, b, c, d : String) : String
            <POP 21d7e-21d80 StackAdj>                       Δ+16               {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]}
            <Call 0x21d80 0x103d8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21d86-21d88 StackAdj>                       Δ+16               {[4, 'A0']|[«4""»]}
            <MI 21d88  MOVE.L  (A6+0xa),(A7)>                                   {[4, 'A0']|[4, '(A6+0xa)']}
            <Call 0x21d8c 0x103d8>                                              {[4, 'A0']|[4, '(A6+0xa)']}
                WriteConsoleString(str : String)
            <POP 21d92-21d94 StackAdj>                       Δ+4                {[4, 'A0']}
            <Blob 0x21d94 [18] @>                            Δ-18               {[4, 'A0']|[«18""»]}
            <POP 21da0-21da2 StackAdj>                       Δ-8                {[4, 'A0']|[«18""»]|[-8-]}
            <Lit 0x21da2 18>                                                    {[4, 'A0']|[«18""»]|[-4-]|[$$ error, retries =>]}
            <MI 21dac  MOVE.L  (A0+0x244),(A7)>                                 {[4, 'A0']|[«18""»]|[-4-]|[4, '(A0+0x244)']}
            <POP 21daa-21dac StackAdj>                       Δ-8                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A0+0x244)']|[-8-]}
            <Call 0x21db0 0x102e4>                                              {[4, 'A0']|[«18""»]|[-4-]|[4, '(A0+0x244)']|[-8-]}
                Long2String(a : Long) : String
            <POP 21db6-21db8 StackAdj>                       Δ+4                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A0+0x244)']|[-4-]}
            <Call 0x21db8 0x102d0>                                              {[4, 'A0']|[«18""»]|[-4-]|[4, '(A0+0x244)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21dbe-21dc0 StackAdj>                       Δ+8                {[4, 'A0']|[«18""»]|[-4-]}
            <Call 0x21dc0 0x103e0>                                              {[4, 'A0']|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21dc6-21dc8 StackAdj>                       Δ+22               {[4, 'A0']}
            <MI 21dc8  MOVEQ.L #0x00,D7>                                        {[4, 'A0']}
        <POP 21dca-21e2e Naked>                              Σ-4        ↓ →0x21dca ←0x21dca
            <POP 0x21dca LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <MI 21dd4  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 21dd6  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 21dd8  LEA.L   0x20bf4,A0>                                      {[-4-]}
            <MI 21ddc  MOVE.L  (A0+D0.L),-(A7)>              Δ-4                {[-4-]|[4, '(A0+D0.L)']}
            <POP 21de0-21de2 StackAdj>                       Δ-8                {[-4-]|[4, '(A0+D0.L)']|[-8-]}
            <Lit 0x21de2>                                                       {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]}
                <Pointer.sp 0x21de2 8>                       Δ-4        
                <Const 0x21de6 0x1.2>                        Δ-2        
                <Const 0x21de8 0x4.2>                        Δ-2        
                <Call 0x21dec 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21dee-21df0 StackAdj>                   Δ+8        
            <POP 21dee-21df0 StackAdj>                       Δ-4                {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21df0  MOVE.L  D7,D0>                                           {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21df2  ASL.L   #0x1,D0>                                         {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21df4  MOVEA.L (A7+0x10),A0>                                    {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21df8  LEA.L   (A0+0x22a),A0>                                   {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21dfc  LEA.L   (A0+D0.L),A0>                                    {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21e00  CLR.L   D0>                                              {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21e02  MOVE.W  (A0+0x21b0),D0>                                  {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <MI 21e06  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]|[4, 'D0']}
            <Const 0x21e08 0x4.4>                            Δ-4                {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
            <Call 0x21e0c 0x102e8>                                              {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e12-21e14 StackAdj>                       Δ+8                {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
            <Call 0x21e14 0x102d0>                                              {[-4-]|[4, '(A0+D0.L)']|[-4-]|[$$…]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21e1a-21e1c StackAdj>                       Δ+8                {[-4-]|[4, '(A0+D0.L)']|[-4-]}
            <Call 0x21e1c 0x103d8>                                              {[-4-]|[4, '(A0+D0.L)']|[-4-]}
                WriteConsoleString(str : String)
            <POP 21e22-21e24 StackAdj>                       Δ+8                {[-4-]}
            <MI 21e24  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 21e26  CMPI.L  #0x00000007,D7>                                  {[-4-]}
            <MI 21e2c  BLE     0x21dca>                                         {[-4-]}
        <POP 21e2e-21e40 Naked>                              Σ-4        ↓ →0x21e6a
            <Call 0x21e2e 0x103dc>                                              {[-4-]}
                WriteConsoleCrLf(void)
            <MI 21e34  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21e36  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21e3a  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 21e3e  BEQ     0x21e6a>                                         {[-4-]}
        <POP 21e40-21e6a Naked>                              Σ-4        ↓
            <Blob 0x21e40 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 21e50-21e52 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x21e52 17>                                                    {[-4-]|[«18""»]|[$$Special condition]}
            <MI 21e60  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Special condition]}
            <Call 0x21e64 0x21c2c>                                              {[-4-]|[«18""»]|[$$Special condition]}
            <POP 21e68-21e6a StackAdj>                       Δ+22               {[-4-]}
        <POP 21e6a-21e74 Naked>                              Σ-4        ↓ →0x21ea0 ←0x21e2e
            <MI 21e6a  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21e6e  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 21e72  BEQ     0x21ea0>                                         {[-4-]}
        <POP 21e74-21ea0 Naked>                              Σ-4        ↓
            <Blob 0x21e74 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 21e84-21e86 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x21e86 19>                                                    {[-4-]|[«20""»]|[$$UNIBUS parity error]}
            <MI 21e94  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$UNIBUS parity error]}
            <Call 0x21e98 0x21c2c>                                              {[-4-]|[«20""»]|[$$UNIBUS parity error]}
            <POP 21e9c-21ea0 StackAdj>                       Δ+24               {[-4-]}
        <POP 21ea0-21eaa Naked>                              Σ-4        ↓ →0x21ed8 ←0x21e6a
            <MI 21ea0  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21ea4  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 21ea8  BEQ     0x21ed8>                                         {[-4-]}
        <POP 21eaa-21ed8 Naked>                              Σ-4        ↓
            <Blob 0x21eaa [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 21ebc-21ebe StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x21ebe 29>                                                    {[-4-]|[«30""»]|[$$Register modification refused]}
            <MI 21ecc  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«30""»]|[$$Register modification refused]}
            <Call 0x21ed0 0x21c2c>                                              {[-4-]|[«30""»]|[$$Register modification refused]}
            <POP 21ed4-21ed8 StackAdj>                       Δ+34               {[-4-]}
        <POP 21ed8-21ee2 Naked>                              Σ-4        ↓ →0x21f0e ←0x21ea0
            <MI 21ed8  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21edc  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 21ee0  BEQ     0x21f0e>                                         {[-4-]}
        <POP 21ee2-21f0e Naked>                              Σ-4        ↓
            <Blob 0x21ee2 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 21ef2-21ef4 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x21ef4 19>                                                    {[-4-]|[«20""»]|[$$Non-existant memory]}
            <MI 21f02  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Non-existant memory]}
            <Call 0x21f06 0x21c2c>                                              {[-4-]|[«20""»]|[$$Non-existant memory]}
            <POP 21f0a-21f0e StackAdj>                       Δ+24               {[-4-]}
        <POP 21f0e-21f18 Naked>                              Σ-4        ↓ →0x21f44 ←0x21ed8
            <MI 21f0e  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21f12  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 21f16  BEQ     0x21f44>                                         {[-4-]}
        <POP 21f18-21f44 Naked>                              Σ-4        ↓
            <Blob 0x21f18 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 21f28-21f2a StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x21f2a 19>                                                    {[-4-]|[«20""»]|[$$Need buffer address]}
            <MI 21f38  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Need buffer address]}
            <Call 0x21f3c 0x21c2c>                                              {[-4-]|[«20""»]|[$$Need buffer address]}
            <POP 21f40-21f44 StackAdj>                       Δ+24               {[-4-]}
        <POP 21f44-21f4e Naked>                              Σ-4        ↓ →0x21f7a ←0x21f0e
            <MI 21f44  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21f48  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 21f4c  BNE     0x21f7a>                                         {[-4-]}
        <POP 21f4e-21f7a Naked>                              Σ-4        ↓
            <Blob 0x21f4e [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 21f5e-21f60 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x21f60 19>                                                    {[-4-]|[«20""»]|[$$Subsystem not ready]}
            <MI 21f6e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Subsystem not ready]}
            <Call 0x21f72 0x21c2c>                                              {[-4-]|[«20""»]|[$$Subsystem not ready]}
            <POP 21f76-21f7a StackAdj>                       Δ+24               {[-4-]}
        <POP 21f7a-21f84 Naked>                              Σ-4        ↓ →0x21fa6 ←0x21f44
            <MI 21f7a  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21f7e  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 21f82  BEQ     0x21fa6>                                         {[-4-]}
        <POP 21f84-21fa6 Naked>                              Σ-4        ↓
            <Blob 0x21f84 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x21f88 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 21f8c-21f8e StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21f8e 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <MI 21f9c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <Call 0x21fa0 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <POP 21fa4-21fa6 StackAdj>                       Δ+12               {[-4-]}
        <POP 21fa6-21fb0 Naked>                              Σ-4        ↓ →0x22628 ←0x21f7a
            <MI 21fa6  MOVE.W  (A0+0x23da),D0>                                  {[-4-]}
            <MI 21faa  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 21fac  BEQ     0x22628>                                         {[-4-]}
        <POP 21fb0-21fba Naked>                              Σ-4        ↓ →0x21fdc
            <MI 21fb0  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 21fb4  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 21fb8  BEQ     0x21fdc>                                         {[-4-]}
        <POP 21fba-21fdc Naked>                              Σ-4        ↓
            <Blob 0x21fba [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x21fbe [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 21fc2-21fc4 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21fc4 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Filemark]}
            <MI 21fd2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[$$Filemark]}
            <Call 0x21fd6 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[$$Filemark]}
            <POP 21fda-21fdc StackAdj>                       Δ+12               {[-4-]}
        <POP 21fdc-21fe6 Naked>                              Σ-4        ↓ →0x22012 ←0x21fb0
            <MI 21fdc  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 21fe0  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 21fe4  BEQ     0x22012>                                         {[-4-]}
        <POP 21fe6-22012 Naked>                              Σ-4        ↓
            <Blob 0x21fe6 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 21ff8-21ffa StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x21ffa 13>                                                    {[-4-]|[«14""»]|[$$End of medium]}
            <MI 22008  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$End of medium]}
            <Call 0x2200c 0x21c2c>                                              {[-4-]|[«14""»]|[$$End of medium]}
            <POP 22010-22012 StackAdj>                       Δ+18               {[-4-]}
        <POP 22012-2201c Naked>                              Σ-4        ↓ →0x22044 ←0x21fdc
            <MI 22012  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22016  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 2201a  BEQ     0x22044>                                         {[-4-]}
        <POP 2201c-22044 Naked>                              Σ-4        ↓
            <Blob 0x2201c [26] @>                            Δ-26               {[-4-]|[«26""»]}
            <POP 22028-2202a StackAdj>                       Δ-4                {[-4-]|[«26""»]|[-4-]}
            <Lit 0x2202a 26>                                                    {[-4-]|[«26""»]|[$$Incorrect length indicator]}
            <MI 22038  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«26""»]|[$$Incorrect length indicator]}
            <Call 0x2203c 0x21c2c>                                              {[-4-]|[«26""»]|[$$Incorrect length indicator]}
            <POP 22040-22044 StackAdj>                       Δ+30               {[-4-]}
        <POP 22044-22052 Naked>                              Σ-4        ↓ →0x22080 ←0x22012
            <MI 22044  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22048  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 2204c  CMPI.W  #0x0200,D0>                                      {[-4-]}
            <MI 22050  BNE     0x22080>                                         {[-4-]}
        <POP 22052-22080 Naked>                              Σ-4        ↓
            <Blob 0x22052 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 22064-22066 StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x22066 9>                                                     {[-4-]|[«10""»]|[$$Not ready]}
            <MI 22074  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Not ready]}
            <Call 0x22078 0x21c2c>                                              {[-4-]|[«10""»]|[$$Not ready]}
            <POP 2207c-22080 StackAdj>                       Δ+14               {[-4-]}
        <POP 22080-2208e Naked>                              Σ-4        ↓ →0x220b2 ←0x22044
            <MI 22080  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22084  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 22088  CMPI.W  #0x0300,D0>                                      {[-4-]}
            <MI 2208c  BNE     0x220b2>                                         {[-4-]}
        <POP 2208e-220b2 Naked>                              Σ-4        ↓
            <Blob 0x2208e [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22092 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x22096 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2209a-2209c StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2209c 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Medium error]}
            <MI 220a8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Medium error]}
            <Call 0x220ac 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Medium error]}
            <POP 220b0-220b2 StackAdj>                       Δ+16               {[-4-]}
        <POP 220b2-220c0 Naked>                              Σ-4        ↓ →0x220e6 ←0x22080
            <MI 220b2  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 220b6  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 220ba  CMPI.W  #0x0400,D0>                                      {[-4-]}
            <MI 220be  BNE     0x220e6>                                         {[-4-]}
        <POP 220c0-220e6 Naked>                              Σ-4        ↓
            <Blob 0x220c0 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 220cc-220ce StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x220ce 14>                                                    {[-4-]|[«14""»]|[$$Hardware error]}
            <MI 220dc  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Hardware error]}
            <Call 0x220e0 0x21c2c>                                              {[-4-]|[«14""»]|[$$Hardware error]}
            <POP 220e4-220e6 StackAdj>                       Δ+18               {[-4-]}
        <POP 220e6-220f4 Naked>                              Σ-4        ↓ →0x2211e ←0x220b2
            <MI 220e6  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 220ea  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 220ee  CMPI.W  #0x0500,D0>                                      {[-4-]}
            <MI 220f2  BNE     0x2211e>                                         {[-4-]}
        <POP 220f4-2211e Naked>                              Σ-4        ↓
            <Blob 0x220f4 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 22104-22106 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x22106 15>                                                    {[-4-]|[«16""»]|[$$Illegal request]}
            <MI 22114  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Illegal request]}
            <Call 0x22118 0x21c2c>                                              {[-4-]|[«16""»]|[$$Illegal request]}
            <POP 2211c-2211e StackAdj>                       Δ+20               {[-4-]}
        <POP 2211e-2212c Naked>                              Σ-4        ↓ →0x22152 ←0x220e6
            <MI 2211e  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22122  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 22126  CMPI.W  #0x0600,D0>                                      {[-4-]}
            <MI 2212a  BNE     0x22152>                                         {[-4-]}
        <POP 2212c-22152 Naked>                              Σ-4        ↓
            <Blob 0x2212c [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 22138-2213a StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x2213a 14>                                                    {[-4-]|[«14""»]|[$$Unit attention]}
            <MI 22148  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Unit attention]}
            <Call 0x2214c 0x21c2c>                                              {[-4-]|[«14""»]|[$$Unit attention]}
            <POP 22150-22152 StackAdj>                       Δ+18               {[-4-]}
        <POP 22152-22160 Naked>                              Σ-4        ↓ →0x22184 ←0x2211e
            <MI 22152  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22156  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 2215a  CMPI.W  #0x0700,D0>                                      {[-4-]}
            <MI 2215e  BNE     0x22184>                                         {[-4-]}
        <POP 22160-22184 Naked>                              Σ-4        ↓
            <Blob 0x22160 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22164 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x22168 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2216c-2216e StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2216e 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Data protect]}
            <MI 2217a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Data protect]}
            <Call 0x2217e 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Data protect]}
            <POP 22182-22184 StackAdj>                       Δ+16               {[-4-]}
        <POP 22184-22192 Naked>                              Σ-4        ↓ →0x221bc ←0x22152
            <MI 22184  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22188  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 2218c  CMPI.W  #0x0800,D0>                                      {[-4-]}
            <MI 22190  BNE     0x221bc>                                         {[-4-]}
        <POP 22192-221bc Naked>                              Σ-4        ↓
            <Blob 0x22192 [12] @>                            Δ-12               {[-4-]|[«12""»]}
            <POP 221a2-221a4 StackAdj>                       Δ-4                {[-4-]|[«12""»]|[-4-]}
            <Lit 0x221a4 11>                                                    {[-4-]|[«12""»]|[$$Blank check]}
            <MI 221b2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«12""»]|[$$Blank check]}
            <Call 0x221b6 0x21c2c>                                              {[-4-]|[«12""»]|[$$Blank check]}
            <POP 221ba-221bc StackAdj>                       Δ+16               {[-4-]}
        <POP 221bc-221ca Naked>                              Σ-4        ↓ →0x221f4 ←0x22184
            <MI 221bc  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 221c0  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 221c4  CMPI.W  #0x0900,D0>                                      {[-4-]}
            <MI 221c8  BNE     0x221f4>                                         {[-4-]}
        <POP 221ca-221f4 Naked>                              Σ-4        ↓
            <Blob 0x221ca [8] @>                             Δ-8                {[-4-]|[«8""»]}
            <POP 221da-221dc StackAdj>                       Δ-4                {[-4-]|[«8""»]|[-4-]}
            <Lit 0x221dc 7>                                                     {[-4-]|[«8""»]|[$$Exabyte]}
            <MI 221ea  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«8""»]|[$$Exabyte]}
            <Call 0x221ee 0x21c2c>                                              {[-4-]|[«8""»]|[$$Exabyte]}
            <POP 221f2-221f4 StackAdj>                       Δ+12               {[-4-]}
        <POP 221f4-22202 Naked>                              Σ-4        ↓ →0x22226 ←0x221bc
            <MI 221f4  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 221f8  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 221fc  CMPI.W  #0x0a00,D0>                                      {[-4-]}
            <MI 22200  BNE     0x22226>                                         {[-4-]}
        <POP 22202-22226 Naked>                              Σ-4        ↓
            <Blob 0x22202 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22206 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x2220a [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2220e-22210 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22210 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Copy aborted]}
            <MI 2221c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Copy aborted]}
            <Call 0x22220 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Copy aborted]}
            <POP 22224-22226 StackAdj>                       Δ+16               {[-4-]}
        <POP 22226-22234 Naked>                              Σ-4        ↓ →0x2225e ←0x221f4
            <MI 22226  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2222a  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 2222e  CMPI.W  #0x0b00,D0>                                      {[-4-]}
            <MI 22232  BNE     0x2225e>                                         {[-4-]}
        <POP 22234-2225e Naked>                              Σ-4        ↓
            <Blob 0x22234 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 22244-22246 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x22246 15>                                                    {[-4-]|[«16""»]|[$$Aborted command]}
            <MI 22254  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Aborted command]}
            <Call 0x22258 0x21c2c>                                              {[-4-]|[«16""»]|[$$Aborted command]}
            <POP 2225c-2225e StackAdj>                       Δ+20               {[-4-]}
        <POP 2225e-2226c Naked>                              Σ-4        ↓ →0x22296 ←0x22226
            <MI 2225e  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22262  ANDI.W  #0x0f00,D0>                                      {[-4-]}
            <MI 22266  CMPI.W  #0x0d00,D0>                                      {[-4-]}
            <MI 2226a  BNE     0x22296>                                         {[-4-]}
        <POP 2226c-22296 Naked>                              Σ-4        ↓
            <Blob 0x2226c [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 2227c-2227e StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x2227e 15>                                                    {[-4-]|[«16""»]|[$$Volume overflow]}
            <MI 2228c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Volume overflow]}
            <Call 0x22290 0x21c2c>                                              {[-4-]|[«16""»]|[$$Volume overflow]}
            <POP 22294-22296 StackAdj>                       Δ+20               {[-4-]}
        <POP 22296-222a0 Naked>                              Σ-4        ↓ →0x222c8 ←0x2225e
            <MI 22296  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2229a  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 2229e  BEQ     0x222c8>                                         {[-4-]}
        <POP 222a0-222c8 Naked>                              Σ-4        ↓
            <Blob 0x222a0 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 222ac-222ae StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x222ae 10>                                                    {[-4-]|[«10""»]|[$$Power Fail]}
            <MI 222bc  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Power Fail]}
            <Call 0x222c0 0x21c2c>                                              {[-4-]|[«10""»]|[$$Power Fail]}
            <POP 222c4-222c8 StackAdj>                       Δ+14               {[-4-]}
        <POP 222c8-222d2 Naked>                              Σ-4        ↓ →0x222fe ←0x22296
            <MI 222c8  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 222cc  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 222d0  BEQ     0x222fe>                                         {[-4-]}
        <POP 222d2-222fe Naked>                              Σ-4        ↓
            <Blob 0x222d2 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 222e2-222e4 StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x222e4 21>                                                    {[-4-]|[«22""»]|[$$SCSI bus parity error]}
            <MI 222f2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$SCSI bus parity error]}
            <Call 0x222f6 0x21c2c>                                              {[-4-]|[«22""»]|[$$SCSI bus parity error]}
            <POP 222fa-222fe StackAdj>                       Δ+26               {[-4-]}
        <POP 222fe-22308 Naked>                              Σ-4        ↓ →0x22336 ←0x222c8
            <MI 222fe  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22302  ANDI.W  #0x0020,D0>                                      {[-4-]}
            <MI 22306  BEQ     0x22336>                                         {[-4-]}
        <POP 22308-22336 Naked>                              Σ-4        ↓
            <Blob 0x22308 [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 2231a-2231c StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x2231c 29>                                                    {[-4-]|[«30""»]|[$$Formatted buffer parity error]}
            <MI 2232a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«30""»]|[$$Formatted buffer parity error]}
            <Call 0x2232e 0x21c2c>                                              {[-4-]|[«30""»]|[$$Formatted buffer parity error]}
            <POP 22332-22336 StackAdj>                       Δ+34               {[-4-]}
        <POP 22336-2233e Naked>                              Σ-4        ↓ →0x22368 ←0x222fe
            <MI 22336  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2233a  AND.W   #0x10,D0>                                        {[-4-]}
            <MI 2233c  BEQ     0x22368>                                         {[-4-]}
        <POP 2233e-22368 Naked>                              Σ-4        ↓
            <Blob 0x2233e [12] @>                            Δ-12               {[-4-]|[«12""»]}
            <POP 2234e-22350 StackAdj>                       Δ-4                {[-4-]|[«12""»]|[-4-]}
            <Lit 0x22350 11>                                                    {[-4-]|[«12""»]|[$$Media error]}
            <MI 2235e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«12""»]|[$$Media error]}
            <Call 0x22362 0x21c2c>                                              {[-4-]|[«12""»]|[$$Media error]}
            <POP 22366-22368 StackAdj>                       Δ+16               {[-4-]}
        <POP 22368-22372 Naked>                              Σ-4        ↓ →0x22398 ←0x22336
            <MI 22368  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2236c  ANDI.W  #0x0008,D0>                                      {[-4-]}
            <MI 22370  BEQ     0x22398>                                         {[-4-]}
        <POP 22372-22398 Naked>                              Σ-4        ↓
            <Blob 0x22372 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 2237e-22380 StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x22380 22>                                                    {[-4-]|[«22""»]|[$$Error counter overflow]}
            <MI 2238c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Error counter overflow]}
            <Call 0x22390 0x21c2c>                                              {[-4-]|[«22""»]|[$$Error counter overflow]}
            <POP 22394-22398 StackAdj>                       Δ+26               {[-4-]}
        <POP 22398-223a2 Naked>                              Σ-4        ↓ →0x223cc ←0x22368
            <MI 22398  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2239c  ANDI.W  #0x0004,D0>                                      {[-4-]}
            <MI 223a0  BEQ     0x223cc>                                         {[-4-]}
        <POP 223a2-223cc Naked>                              Σ-4        ↓
            <Blob 0x223a2 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 223b2-223b4 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x223b4 17>                                                    {[-4-]|[«18""»]|[$$Tape motion error]}
            <MI 223c2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Tape motion error]}
            <Call 0x223c6 0x21c2c>                                              {[-4-]|[«18""»]|[$$Tape motion error]}
            <POP 223ca-223cc StackAdj>                       Δ+22               {[-4-]}
        <POP 223cc-223d6 Naked>                              Σ-4        ↓ →0x223fe ←0x22398
            <MI 223cc  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 223d0  ANDI.W  #0x0002,D0>                                      {[-4-]}
            <MI 223d4  BEQ     0x223fe>                                         {[-4-]}
        <POP 223d6-223fe Naked>                              Σ-4        ↓
            <Blob 0x223d6 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x223da [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x223de [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x223e2 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 223e6-223e8 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x223e8 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Tape not present]}
            <MI 223f4  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Tape not present]}
            <Call 0x223f8 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Tape not present]}
            <POP 223fc-223fe StackAdj>                       Δ+20               {[-4-]}
        <POP 223fe-22406 Naked>                              Σ-4        ↓ →0x22430 ←0x223cc
            <MI 223fe  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22402  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 22404  BEQ     0x22430>                                         {[-4-]}
        <POP 22406-22430 Naked>                              Σ-4        ↓
            <Blob 0x22406 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 22416-22418 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x22418 17>                                                    {[-4-]|[«18""»]|[$$Beginning of tape]}
            <MI 22426  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Beginning of tape]}
            <Call 0x2242a 0x21c2c>                                              {[-4-]|[«18""»]|[$$Beginning of tape]}
            <POP 2242e-22430 StackAdj>                       Δ+22               {[-4-]}
        <POP 22430-2243a Naked>                              Σ-4        ↓ →0x22460 ←0x223fe
            <MI 22430  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22434  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 22438  BEQ     0x22460>                                         {[-4-]}
        <POP 2243a-22460 Naked>                              Σ-4        ↓
            <Blob 0x2243a [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 22446-22448 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x22448 20>                                                    {[-4-]|[«20""»]|[$$Transfer abort error]}
            <MI 22454  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Transfer abort error]}
            <Call 0x22458 0x21c2c>                                              {[-4-]|[«20""»]|[$$Transfer abort error]}
            <POP 2245c-22460 StackAdj>                       Δ+24               {[-4-]}
        <POP 22460-2246a Naked>                              Σ-4        ↓ →0x22490 ←0x22430
            <MI 22460  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22464  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 22468  BEQ     0x22490>                                         {[-4-]}
        <POP 2246a-22490 Naked>                              Σ-4        ↓
            <Blob 0x2246a [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 22476-22478 StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x22478 22>                                                    {[-4-]|[«22""»]|[$$Tape mark detect error]}
            <MI 22484  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Tape mark detect error]}
            <Call 0x22488 0x21c2c>                                              {[-4-]|[«22""»]|[$$Tape mark detect error]}
            <POP 2248c-22490 StackAdj>                       Δ+26               {[-4-]}
        <POP 22490-2249a Naked>                              Σ-4        ↓ →0x224c6 ←0x22460
            <MI 22490  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22494  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 22498  BEQ     0x224c6>                                         {[-4-]}
        <POP 2249a-224c6 Naked>                              Σ-4        ↓
            <Blob 0x2249a [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 224ac-224ae StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x224ae 13>                                                    {[-4-]|[«14""»]|[$$Write protect]}
            <MI 224bc  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Write protect]}
            <Call 0x224c0 0x21c2c>                                              {[-4-]|[«14""»]|[$$Write protect]}
            <POP 224c4-224c6 StackAdj>                       Δ+18               {[-4-]}
        <POP 224c6-224d0 Naked>                              Σ-4        ↓ →0x224f6 ←0x22490
            <MI 224c6  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 224ca  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 224ce  BEQ     0x224f6>                                         {[-4-]}
        <POP 224d0-224f6 Naked>                              Σ-4        ↓
            <Blob 0x224d0 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 224dc-224de StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x224de 14>                                                    {[-4-]|[«14""»]|[$$Filemark error]}
            <MI 224ec  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Filemark error]}
            <Call 0x224f0 0x21c2c>                                              {[-4-]|[«14""»]|[$$Filemark error]}
            <POP 224f4-224f6 StackAdj>                       Δ+18               {[-4-]}
        <POP 224f6-22500 Naked>                              Σ-4        ↓ →0x2252a ←0x224c6
            <MI 224f6  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 224fa  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 224fe  BEQ     0x2252a>                                         {[-4-]}
        <POP 22500-2252a Naked>                              Σ-4        ↓
            <Blob 0x22500 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 22510-22512 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x22512 15>                                                    {[-4-]|[«16""»]|[$$Under run error]}
            <MI 22520  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Under run error]}
            <Call 0x22524 0x21c2c>                                              {[-4-]|[«16""»]|[$$Under run error]}
            <POP 22528-2252a StackAdj>                       Δ+20               {[-4-]}
        <POP 2252a-22534 Naked>                              Σ-4        ↓ →0x22560 ←0x224f6
            <MI 2252a  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 2252e  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 22532  BEQ     0x22560>                                         {[-4-]}
        <POP 22534-22560 Naked>                              Σ-4        ↓
            <Blob 0x22534 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 22546-22548 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x22548 13>                                                    {[-4-]|[«14""»]|[$$Write error 1]}
            <MI 22556  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Write error 1]}
            <Call 0x2255a 0x21c2c>                                              {[-4-]|[«14""»]|[$$Write error 1]}
            <POP 2255e-22560 StackAdj>                       Δ+18               {[-4-]}
        <POP 22560-2256a Naked>                              Σ-4        ↓ →0x2258e ←0x2252a
            <MI 22560  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22564  ANDI.W  #0x0200,D0>                                      {[-4-]}
            <MI 22568  BEQ     0x2258e>                                         {[-4-]}
        <POP 2256a-2258e Naked>                              Σ-4        ↓
            <Blob 0x2256a [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 22576-22578 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x22578 18>                                                    {[-4-]|[«18""»]|[$$Servo system error]}
            <MI 22584  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Servo system error]}
            <Call 0x22588 0x21c2c>                                              {[-4-]|[«18""»]|[$$Servo system error]}
            <POP 2258c-2258e StackAdj>                       Δ+22               {[-4-]}
        <POP 2258e-22598 Naked>                              Σ-4        ↓ →0x225c2 ←0x22560
            <MI 2258e  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22592  ANDI.W  #0x0100,D0>                                      {[-4-]}
            <MI 22596  BEQ     0x225c2>                                         {[-4-]}
        <POP 22598-225c2 Naked>                              Σ-4        ↓
            <Blob 0x22598 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 225a8-225aa StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x225aa 15>                                                    {[-4-]|[«16""»]|[$$Formatter error]}
            <MI 225b8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Formatter error]}
            <Call 0x225bc 0x21c2c>                                              {[-4-]|[«16""»]|[$$Formatter error]}
            <POP 225c0-225c2 StackAdj>                       Δ+20               {[-4-]}
        <POP 225c2-225cc Naked>                              Σ-4        ↓ →0x225f4 ←0x2258e
            <MI 225c2  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 225c6  ANDI.W  #0x0002,D0>                                      {[-4-]}
            <MI 225ca  BEQ     0x225f4>                                         {[-4-]}
        <POP 225cc-225f4 Naked>                              Σ-4        ↓
            <Blob 0x225cc [26] @>                            Δ-26               {[-4-]|[«26""»]}
            <POP 225d8-225da StackAdj>                       Δ-4                {[-4-]|[«26""»]|[-4-]}
            <Lit 0x225da 26>                                                    {[-4-]|[«26""»]|[$$Write splice error - blank]}
            <MI 225e8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«26""»]|[$$Write splice error - blank]}
            <Call 0x225ec 0x21c2c>                                              {[-4-]|[«26""»]|[$$Write splice error - blank]}
            <POP 225f0-225f4 StackAdj>                       Δ+30               {[-4-]}
        <POP 225f4-225fc Naked>                              Σ-4        ↓ →0x22624 ←0x225c2
            <MI 225f4  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 225f8  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 225fa  BEQ     0x22624>                                         {[-4-]}
        <POP 225fc-22624 Naked>                              Σ-4        ↓
            <Blob 0x225fc [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 22608-2260a StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x2260a 30>                                                    {[-4-]|[«30""»]|[$$Write splice error - overshoot]}
            <MI 22618  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«30""»]|[$$Write splice error - overshoot]}
            <Call 0x2261c 0x21c2c>                                              {[-4-]|[«30""»]|[$$Write splice error - overshoot]}
            <POP 22620-22624 StackAdj>                       Δ+34               {[-4-]}
        <POP 22624-22628 Naked>                              Σ-4        →0x22a58 ←0x225f4
            <MI 22624  BRA     0x22a58>                                         {[-4-]}
        <POP 22628-22632 Naked>                              Σ-4        ↓ →0x22660 ←0x21fa6
            <MI 22628  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 2262c  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 22630  BEQ     0x22660>                                         {[-4-]}
        <POP 22632-22660 Naked>                              Σ-4        ↓
            <Blob 0x22632 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 22644-22646 StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x22646 9>                                                     {[-4-]|[«10""»]|[$$Tape mark]}
            <MI 22654  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Tape mark]}
            <Call 0x22658 0x21c2c>                                              {[-4-]|[«10""»]|[$$Tape mark]}
            <POP 2265c-22660 StackAdj>                       Δ+14               {[-4-]}
        <POP 22660-2266a Naked>                              Σ-4        ↓ →0x22696 ←0x22628
            <MI 22660  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22664  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 22668  BEQ     0x22696>                                         {[-4-]}
        <POP 2266a-22696 Naked>                              Σ-4        ↓
            <Blob 0x2266a [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 2267a-2267c StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x2267c 19>                                                    {[-4-]|[«20""»]|[$$Record length short]}
            <MI 2268a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Record length short]}
            <Call 0x2268e 0x21c2c>                                              {[-4-]|[«20""»]|[$$Record length short]}
            <POP 22692-22696 StackAdj>                       Δ+24               {[-4-]}
        <POP 22696-226a0 Naked>                              Σ-4        ↓ →0x226cc ←0x22660
            <MI 22696  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 2269a  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 2269e  BEQ     0x226cc>                                         {[-4-]}
        <POP 226a0-226cc Naked>                              Σ-4        ↓
            <Blob 0x226a0 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 226b0-226b2 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x226b2 19>                                                    {[-4-]|[«20""»]|[$$Logical end of tape]}
            <MI 226c0  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Logical end of tape]}
            <Call 0x226c4 0x21c2c>                                              {[-4-]|[«20""»]|[$$Logical end of tape]}
            <POP 226c8-226cc StackAdj>                       Δ+24               {[-4-]}
        <POP 226cc-226d6 Naked>                              Σ-4        ↓ →0x226fa ←0x22696
            <MI 226cc  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 226d0  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 226d4  BEQ     0x226fa>                                         {[-4-]}
        <POP 226d6-226fa Naked>                              Σ-4        ↓
            <Blob 0x226d6 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 226e2-226e4 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x226e4 18>                                                    {[-4-]|[«18""»]|[$$Record length long]}
            <MI 226f0  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Record length long]}
            <Call 0x226f4 0x21c2c>                                              {[-4-]|[«18""»]|[$$Record length long]}
            <POP 226f8-226fa StackAdj>                       Δ+22               {[-4-]}
        <POP 226fa-22704 Naked>                              Σ-4        ↓ →0x2272c ←0x226cc
            <MI 226fa  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 226fe  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 22702  BEQ     0x2272c>                                         {[-4-]}
        <POP 22704-2272c Naked>                              Σ-4        ↓
            <Blob 0x22704 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22708 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x2270c [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x22710 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 22714-22716 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22716 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <MI 22722  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <Call 0x22726 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <POP 2272a-2272c StackAdj>                       Δ+20               {[-4-]}
        <POP 2272c-22736 Naked>                              Σ-4        ↓ →0x22764 ←0x226fa
            <MI 2272c  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22730  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 22734  BEQ     0x22764>                                         {[-4-]}
        <POP 22736-22764 Naked>                              Σ-4        ↓
            <Blob 0x22736 [24] @>                            Δ-24               {[-4-]|[«24""»]}
            <POP 22748-2274a StackAdj>                       Δ-4                {[-4-]|[«24""»]|[-4-]}
            <Lit 0x2274a 23>                                                    {[-4-]|[«24""»]|[$$Non-executable function]}
            <MI 22758  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«24""»]|[$$Non-executable function]}
            <Call 0x2275c 0x21c2c>                                              {[-4-]|[«24""»]|[$$Non-executable function]}
            <POP 22760-22764 StackAdj>                       Δ+28               {[-4-]}
        <POP 22764-2276e Naked>                              Σ-4        ↓ →0x22798 ←0x2272c
            <MI 22764  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22768  ANDI.W  #0x0200,D0>                                      {[-4-]}
            <MI 2276c  BEQ     0x22798>                                         {[-4-]}
        <POP 2276e-22798 Naked>                              Σ-4        ↓
            <Blob 0x2276e [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 2277e-22780 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x22780 15>                                                    {[-4-]|[«16""»]|[$$Illegal command]}
            <MI 2278e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Illegal command]}
            <Call 0x22792 0x21c2c>                                              {[-4-]|[«16""»]|[$$Illegal command]}
            <POP 22796-22798 StackAdj>                       Δ+20               {[-4-]}
        <POP 22798-227a2 Naked>                              Σ-4        ↓ →0x227cc ←0x22764
            <MI 22798  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 2279c  ANDI.W  #0x0100,D0>                                      {[-4-]}
            <MI 227a0  BEQ     0x227cc>                                         {[-4-]}
        <POP 227a2-227cc Naked>                              Σ-4        ↓
            <Blob 0x227a2 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 227b2-227b4 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x227b4 15>                                                    {[-4-]|[«16""»]|[$$Illegal address]}
            <MI 227c2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Illegal address]}
            <Call 0x227c6 0x21c2c>                                              {[-4-]|[«16""»]|[$$Illegal address]}
            <POP 227ca-227cc StackAdj>                       Δ+20               {[-4-]}
        <POP 227cc-227d6 Naked>                              Σ-4        ↓ →0x227fc ←0x22798
            <MI 227cc  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 227d0  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 227d4  BEQ     0x227fc>                                         {[-4-]}
        <POP 227d6-227fc Naked>                              Σ-4        ↓
            <Blob 0x227d6 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 227e2-227e4 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x227e4 14>                                                    {[-4-]|[«14""»]|[$$Formatter busy]}
            <MI 227f2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Formatter busy]}
            <Call 0x227f6 0x21c2c>                                              {[-4-]|[«14""»]|[$$Formatter busy]}
            <POP 227fa-227fc StackAdj>                       Δ+18               {[-4-]}
        <POP 227fc-22806 Naked>                              Σ-4        ↓ →0x22828 ←0x227cc
            <MI 227fc  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22800  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 22804  BNE     0x22828>                                         {[-4-]}
        <POP 22806-22828 Naked>                              Σ-4        ↓
            <Blob 0x22806 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x2280a [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 2280e-22810 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22810 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <MI 2281e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <Call 0x22822 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[$$Off-line]}
            <POP 22826-22828 StackAdj>                       Δ+12               {[-4-]}
        <POP 22828-22830 Naked>                              Σ-4        ↓ →0x22854 ←0x227fc
            <MI 22828  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 2282c  AND.W   #0x10,D0>                                        {[-4-]}
            <MI 2282e  BEQ     0x22854>                                         {[-4-]}
        <POP 22830-22854 Naked>                              Σ-4        ↓
            <Blob 0x22830 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22834 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x22838 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2283c-2283e StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2283e 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Volume check]}
            <MI 2284a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Volume check]}
            <Call 0x2284e 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Volume check]}
            <POP 22852-22854 StackAdj>                       Δ+16               {[-4-]}
        <POP 22854-2285e Naked>                              Σ-4        ↓ →0x22882 ←0x22828
            <MI 22854  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22858  ANDI.W  #0x0004,D0>                                      {[-4-]}
            <MI 2285c  BEQ     0x22882>                                         {[-4-]}
        <POP 2285e-22882 Naked>                              Σ-4        ↓
            <Blob 0x2285e [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22862 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x22866 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2286a-2286c StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2286c 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <MI 22878  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <Call 0x2287c 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <POP 22880-22882 StackAdj>                       Δ+16               {[-4-]}
        <POP 22882-2288c Naked>                              Σ-4        ↓ →0x228b8 ←0x22854
            <MI 22882  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 22886  ANDI.W  #0x0002,D0>                                      {[-4-]}
            <MI 2288a  BEQ     0x228b8>                                         {[-4-]}
        <POP 2288c-228b8 Naked>                              Σ-4        ↓
            <POP 2288c-2288e StackAdj>                       Δ-4                {[-8-]}
            <POP 2288e-2288f StackAdj>                       Δ+2                {[-6-]}
            <Blob 0x2288f [2] @>                             Δ-2                {[-6-]|[«2""»]}
            <MI 22892  MOVE.B  0x20411,(A7+0x1)>                                {[-6-]|[«2""»]}
            <MI 22898  MOVE.B  0x20412,(A7+0x2)>                                {[-6-]|[«2""»]}
            <POP 2289e-228a0 StackAdj>                       Δ-4                {[-6-]|[«2""»]|[-4-]}
            <Lit 0x228a0>                                                       {[-6-]|[«2""»]|[$$…]}
                <Pointer.sp 0x228a0 4>                       Δ-4        
                <Const 0x228a4 0x1.2>                        Δ-2        
                <Const 0x228a6 0x3.2>                        Δ-2        
                <Call 0x228aa 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 228ac-228ae StackAdj>                   Δ+8        
            <MI 228ae  LEA.L   (A6-0xe),A4>                                     {[-6-]|[«2""»]|[$$…]}
            <Call 0x228b2 0x21c2c>                                              {[-6-]|[«2""»]|[$$…]}
            <POP 228b6-228b8 StackAdj>                       Δ+8                {[-4-]}
        <POP 228b8-228c0 Naked>                              Σ-4        ↓ →0x228ec ←0x22882
            <MI 228b8  MOVE.W  (A0+0x23e2),D0>                                  {[-4-]}
            <MI 228bc  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 228be  BEQ     0x228ec>                                         {[-4-]}
        <POP 228c0-228ec Naked>                              Σ-4        ↓
            <POP 228c0-228c2 StackAdj>                       Δ-4                {[-8-]}
            <POP 228c2-228c3 StackAdj>                       Δ+2                {[-6-]}
            <Blob 0x228c3 [2] @>                             Δ-2                {[-6-]|[«2""»]}
            <MI 228c6  MOVE.B  0x20415,(A7+0x1)>                                {[-6-]|[«2""»]}
            <MI 228cc  MOVE.B  0x20416,(A7+0x2)>                                {[-6-]|[«2""»]}
            <POP 228d2-228d4 StackAdj>                       Δ-4                {[-6-]|[«2""»]|[-4-]}
            <Lit 0x228d4>                                                       {[-6-]|[«2""»]|[$$…]}
                <Pointer.sp 0x228d4 4>                       Δ-4        
                <Const 0x228d8 0x1.2>                        Δ-2        
                <Const 0x228da 0x3.2>                        Δ-2        
                <Call 0x228de 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 228e0-228e2 StackAdj>                   Δ+8        
            <MI 228e2  LEA.L   (A6-0xe),A4>                                     {[-6-]|[«2""»]|[$$…]}
            <Call 0x228e6 0x21c2c>                                              {[-6-]|[«2""»]|[$$…]}
            <POP 228ea-228ec StackAdj>                       Δ+8                {[-4-]}
        <POP 228ec-228f6 Naked>                              Σ-4        ↓ →0x22924 ←0x228b8
            <MI 228ec  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 228f0  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 228f4  BEQ     0x22924>                                         {[-4-]}
        <POP 228f6-22924 Naked>                              Σ-4        ↓
            <Blob 0x228f6 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 22908-2290a StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x2290a 9>                                                     {[-4-]|[«10""»]|[$$Data late]}
            <MI 22918  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Data late]}
            <Call 0x2291c 0x21c2c>                                              {[-4-]|[«10""»]|[$$Data late]}
            <POP 22920-22924 StackAdj>                       Δ+14               {[-4-]}
        <POP 22924-2292e Naked>                              Σ-4        ↓ →0x22958 ←0x228ec
            <MI 22924  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 22928  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 2292c  BEQ     0x22958>                                         {[-4-]}
        <POP 2292e-22958 Naked>                              Σ-4        ↓
            <Blob 0x2292e [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 2293e-22940 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x22940 17>                                                    {[-4-]|[«18""»]|[$$Correctable error]}
            <MI 2294e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Correctable error]}
            <Call 0x22952 0x21c2c>                                              {[-4-]|[«18""»]|[$$Correctable error]}
            <POP 22956-22958 StackAdj>                       Δ+22               {[-4-]}
        <POP 22958-22962 Naked>                              Σ-4        ↓ →0x2298e ←0x22924
            <MI 22958  MOVE.W  (A0+0x23e4),D0>                                  {[-4-]}
            <MI 2295c  ANDI.W  #0x0002,D0>                                      {[-4-]}
            <MI 22960  BEQ     0x2298e>                                         {[-4-]}
        <POP 22962-2298e Naked>                              Σ-4        ↓
            <Blob 0x22962 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 22972-22974 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x22974 19>                                                    {[-4-]|[«20""»]|[$$Uncorrectable error]}
            <MI 22982  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Uncorrectable error]}
            <Call 0x22986 0x21c2c>                                              {[-4-]|[«20""»]|[$$Uncorrectable error]}
            <POP 2298a-2298e StackAdj>                       Δ+24               {[-4-]}
        <POP 2298e-22998 Naked>                              Σ-4        ↓ →0x229c4 ←0x22958
            <MI 2298e  MOVE.W  (A0+0x23e6),D0>                                  {[-4-]}
            <MI 22992  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 22996  BEQ     0x229c4>                                         {[-4-]}
        <POP 22998-229c4 Naked>                              Σ-4        ↓
            <Blob 0x22998 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 229a8-229aa StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x229aa 21>                                                    {[-4-]|[«22""»]|[$$Operation in progress]}
            <MI 229b8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Operation in progress]}
            <Call 0x229bc 0x21c2c>                                              {[-4-]|[«22""»]|[$$Operation in progress]}
            <POP 229c0-229c4 StackAdj>                       Δ+26               {[-4-]}
        <POP 229c4-229ce Naked>                              Σ-4        ↓ →0x229f4 ←0x2298e
            <MI 229c4  MOVE.W  (A0+0x23e8),D0>                                  {[-4-]}
            <MI 229c8  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 229cc  BEQ     0x229f4>                                         {[-4-]}
        <POP 229ce-229f4 Naked>                              Σ-4        ↓
            <Blob 0x229ce [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 229da-229dc StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x229dc 20>                                                    {[-4-]|[«20""»]|[$$Operation incomplete]}
            <MI 229e8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Operation incomplete]}
            <Call 0x229ec 0x21c2c>                                              {[-4-]|[«20""»]|[$$Operation incomplete]}
            <POP 229f0-229f4 StackAdj>                       Δ+24               {[-4-]}
        <POP 229f4-229fe Naked>                              Σ-4        ↓ →0x22a28 ←0x229c4
            <MI 229f4  MOVE.W  (A0+0x23e8),D0>                                  {[-4-]}
            <MI 229f8  ANDI.W  #0x0020,D0>                                      {[-4-]}
            <MI 229fc  BEQ     0x22a28>                                         {[-4-]}
        <POP 229fe-22a28 Naked>                              Σ-4        ↓
            <Blob 0x229fe [8] @>                             Δ-8                {[-4-]|[«8""»]}
            <POP 22a0e-22a10 StackAdj>                       Δ-4                {[-4-]|[«8""»]|[-4-]}
            <Lit 0x22a10 7>                                                     {[-4-]|[«8""»]|[$$Reverse]}
            <MI 22a1e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«8""»]|[$$Reverse]}
            <Call 0x22a22 0x21c2c>                                              {[-4-]|[«8""»]|[$$Reverse]}
            <POP 22a26-22a28 StackAdj>                       Δ+12               {[-4-]}
        <POP 22a28-22a30 Naked>                              Σ-4        ↓ →0x22a58 ←0x229f4
            <MI 22a28  MOVE.W  (A0+0x23e8),D0>                                  {[-4-]}
            <MI 22a2c  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 22a2e  BEQ     0x22a58>                                         {[-4-]}
        <POP 22a30-22a58 Naked>                              Σ-4        ↓
            <Blob 0x22a30 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x22a34 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x22a38 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x22a3c [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 22a40-22a42 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22a42 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Reverse into BOT]}
            <MI 22a4e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Reverse into BOT]}
            <Call 0x22a52 0x21c2c>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Reverse into BOT]}
            <POP 22a56-22a58 StackAdj>                       Δ+20               {[-4-]}
        <POP 22a58-22a64 Naked>                              Σ-4 Δ+4    ↓ ←0x22624 ←0x22a28
            <MI 22a58  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Call 0x22a5c 0x103e0>                                              {[-4-]|[4, '(A6-0x6)']}
                WriteConsoleStringCrLf(str : String)
            <POP 22a62-22a64 StackAdj>                       Δ+8                {}
        <POP 22a64-22a6c Epilogue>                           Σ0         

0x22a6c


@ 22a6c
        <LVAR  0x008 2(r)>
    <POP 22a6c-22aca Body>                                              
        <POP 22a6c-22a82 Prologue>                           Σ0         ↓
        <POP 22a82-22ac2 Naked>                              Σ0         ↓
            <Blob 0x22a82 [4] @>                             Δ-4                {[«4""»]}
            <POP 22a86-22a88 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22a88 4>                                                     {[«4""»]|[$$Hard]}
            <POP 22a9a-22a9c StackAdj>                       Δ-2                {[«4""»]|[$$Hard]|[-2-]}
            <MI 22a9c  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
            <Call 0x22aa0 0x21cbc>                                              {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
            <POP 22aa4-22aa8 StackAdj>                       Δ+10               {}
            <MI 22aa8  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22aac  MULS.W  (A6+0x8),D0>                                     {}
            <MI 22ab0  LEA.L   0x2578e,A0>                                      {}
            <MI 22ab6  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22aba  ADDQ.L  #0x1,(A0+0x230)>                                 {}
            <MI 22abe  CLR.L   (A0+0x244)>                                      {}
        <POP 22ac2-22aca Epilogue>                           Σ0         

0x22aca


@ 22aca
        <LVAR  0x008 2(r)>
    <POP 22aca-22b30 Body>                                              
        <POP 22aca-22ae0 Prologue>                           Σ0         ↓
        <POP 22ae0-22b28 Naked>                              Σ0         ↓
            <Blob 0x22ae0 [4] @>                             Δ-4                {[«4""»]}
            <POP 22ae4-22ae6 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22ae6 4>                                                     {[«4""»]|[$$Soft]}
            <POP 22af8-22afa StackAdj>                       Δ-2                {[«4""»]|[$$Soft]|[-2-]}
            <MI 22afa  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
            <Call 0x22afe 0x21cbc>                                              {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
            <POP 22b02-22b06 StackAdj>                       Δ+10               {}
            <MI 22b06  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22b0a  MULS.W  (A6+0x8),D0>                                     {}
            <MI 22b0e  LEA.L   0x2578e,A0>                                      {}
            <MI 22b14  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22b18  MOVE.L  (A0+0x234),D0>                                   {}
            <MI 22b1c  ADD.L   (A0+0x244),D0>                                   {}
            <MI 22b20  MOVE.L  D0,(A0+0x234)>                                   {}
            <MI 22b24  CLR.L   (A0+0x244)>                                      {}
        <POP 22b28-22b30 Epilogue>                           Σ0         

0x22b30


@ 22b30
        <LVAR  0x008 2(r)>
    <POP 22b30-22b8a Body>                                              
        <POP 22b30-22b46 Prologue>                           Σ0         ↓
        <POP 22b46-22b82 Naked>                              Σ0         ↓
            <Blob 0x22b46 [4] @>                             Δ-4                {[«4""»]}
            <POP 22b4a-22b4c StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22b4c 4>                                                     {[«4""»]|[$$DATA]}
            <POP 22b5e-22b60 StackAdj>                       Δ-2                {[«4""»]|[$$DATA]|[-2-]}
            <MI 22b60  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[$$DATA]|[2, '(A6+0x8)']}
            <Call 0x22b64 0x21cbc>                                              {[«4""»]|[$$DATA]|[2, '(A6+0x8)']}
            <POP 22b68-22b6c StackAdj>                       Δ+10               {}
            <MI 22b6c  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22b70  MULS.W  (A6+0x8),D0>                                     {}
            <MI 22b74  LEA.L   0x2578e,A0>                                      {}
            <MI 22b7a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22b7e  ADDQ.L  #0x1,(A0+0x238)>                                 {}
        <POP 22b82-22b8a Epilogue>                           Σ0         

0x22b8a


@ 22b8a
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
        <LVAR -0x004 2(r)>
        <LVAR -0x006 2(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(w)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x010 2(r)>
        <LVAR -0x012 @ 2(r)>
    <POP 22b8a-22bfe Body>                                              
        <POP 22b8a-22ba0 Prologue>                           Σ0         ↓
        <POP 22ba0-22ba2 RegCacheLoad>                       Σ0         ↓
        <POP 22ba2-22bf6 Naked>                              Σ0         ↓
            <MI 22ba2  CLR.W   (A6-0x12)>                                       {}
            <MI 22ba6  CLR.W   (A6-0x10)>                                       {}
            <MI 22baa  MOVE.W  #0x3,(A6-0xe)>                                   {}
            <MI 22bb0  CLR.W   (A6-0xc)>                                        {}
            <MI 22bb4  MOVE.W  #0x4,(A6-0xa)>                                   {}
            <MI 22bba  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 22bbe  ASL.W   #0x8,D0>                                         {}
            <MI 22bc0  ADDQ.W  #0x1,D0>                                         {}
            <MI 22bc2  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 22bc6  CLR.W   (A6-0x6)>                                        {}
            <MI 22bca  CLR.W   (A6-0x4)>                                        {}
            <Pointer.fp 0x22bce <LVAR -0x012 @ 2(r)>>        Δ-4                {[@@-18]}
            <MI 22bd2  MOVEA.L (A6+0x8),A0>                                     {[@@-18]}
            <MI 22bd6  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-18]|[4, 'A0']}
            <Const 0x22bd8 0x1c.2>                           Δ-2                {[@@-18]|[4, 'A0']|[#28]}
            <Const 0x22bda 0x0.4>                            Δ-4                {[@@-18]|[4, 'A0']|[#28]|[##0]}
            <Const 0x22bde 0x10.4>                           Δ-4                {[@@-18]|[4, 'A0']|[#28]|[##0]|[##16]}
            <Call 0x22be2 0x21244>                                              {[@@-18]|[4, 'A0']|[#28]|[##0]|[##16]}
            <POP 22be6-22bea StackAdj>                       Δ+16               {[-2-]}
            <POP 22bea-22beb StackAdj>                       Δ+2                {}
            <Const 0x22beb 0x1c.2>                           Δ-2                {[#28]}
            <Pointer.fp 0x22bec <LVAR -0x002 @>>             Δ-4                {[#28]|[@@-2]}
            <Call 0x22bf0 0x2115a>                                              {[#28]|[@@-2]}
            <POP 22bf4-22bf6 StackAdj>                       Δ+6                {}
        <POP 22bf6-22bfe Epilogue>                           Σ0         

0x22bfe


@ 22bfe
        <LVAR  0x008 2(r)>
    <POP 22bfe-22c42 Body>                                              
        <POP 22bfe-22c14 Prologue>                           Σ0         ↓
        <POP 22c14-22c3a Naked>                              Σ0         ↓
            <MI 22c14  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22c18  MULS.W  (A6+0x8),D0>                                     {}
            <MI 22c1c  LEA.L   0x2578e,A0>                                      {}
            <MI 22c22  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22c26  MOVE.B  #0x0a,(A0+0x23d4)>                               {}
            <MI 22c2c  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x22c30 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 22c34-22c36 StackAdj>                       Δ+2                {}
            <MI 22c36  CLR.B   (A0+0x22c)>                                      {}
        <POP 22c3a-22c42 Epilogue>                           Σ0         

0x22c42


@ 22c42
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
    <POP 22c42-22d2e Body>                                              
        <POP 22c42-22c58 Prologue>                           Σ0         ↓
        <POP 22c58-22c64 RegCacheLoad>                       Σ0         ↓
        <POP 22c64-22c7e Naked>                              Σ0         ↓ →0x22cb6
            <MI 22c64  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22c68  MULS.W  (A6+0xc),D0>                                     {}
            <MI 22c6a  LEA.L   0x2578e,A0>                                      {}
            <MI 22c70  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22c74  MOVE.W  (A0+0x23da),D0>                                  {}
            <MI 22c78  ANDI.W  #0x0040,D0>                                      {}
            <MI 22c7c  BEQ     0x22cb6>                                         {}
        <POP 22c7e-22cb6 Naked>                              Σ0         →0x22d26
            <Blob 0x22c7e [12] @>                            Δ-12               {[«12""»]}
            <POP 22c90-22c92 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22c92 11>                                                    {[«12""»]|[$$Not on line]}
            <POP 22c9e-22ca0 StackAdj>                       Δ-2                {[«12""»]|[$$Not on line]|[-2-]}
            <MI 22ca0  MOVE.W  (A6+0xc),(A7)>                                   {[«12""»]|[$$Not on line]|[2, '(A6+0xc)']}
            <Call 0x22ca2 0x21cbc>                                              {[«12""»]|[$$Not on line]|[2, '(A6+0xc)']}
            <POP 22ca6-22caa StackAdj>                       Δ+18               {}
            <MI 22caa  CLR.B   (A0+0x22a)>                                      {}
            <MI 22cae  SUBQ.L  #0x1,0x2579e>                                    {}
            <MI 22cb4  BRA     0x22d26>                                         {}
        <POP 22cb6-22cc0 Naked>                              Σ0         ↓ →0x22cf6 ←0x22c64
            <MI 22cb6  MOVE.W  (A0+0x23e8),D0>                                  {}
            <MI 22cba  ANDI.W  #0x0008,D0>                                      {}
            <MI 22cbe  BEQ     0x22cf6>                                         {}
        <POP 22cc0-22cec Naked>                              Σ0         ↓
            <Blob 0x22cc0 [14] @>                            Δ-14               {[«14""»]}
            <POP 22cd2-22cd4 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22cd4 13>                                                    {[«14""»]|[$$Wrong density]}
            <POP 22ce0-22ce2 StackAdj>                       Δ-2                {[«14""»]|[$$Wrong density]|[-2-]}
            <MI 22ce2  MOVE.W  (A6+0xc),(A7)>                                   {[«14""»]|[$$Wrong density]|[2, '(A6+0xc)']}
            <Call 0x22ce4 0x21cbc>                                              {[«14""»]|[$$Wrong density]|[2, '(A6+0xc)']}
            <POP 22ce8-22cec StackAdj>                       Δ+20               {}
        <POP 22cec-22cf6 Naked>                              Σ0         →0x22d26 ←0x22d00
            <MI 22cec  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x22cee 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22cf2-22cf4 StackAdj>                       Δ+2                {}
            <MI 22cf4  BRA     0x22d26>                                         {}
        <POP 22cf6-22d00 Naked>                              Σ0         ↓ →0x22d20 ←0x22cb6
            <MI 22cf6  MOVE.W  (A0+0x23e4),D0>                                  {}
            <MI 22cfa  ANDI.W  #0x0020,D0>                                      {}
            <MI 22cfe  BEQ     0x22d20>                                         {}
        <POP 22d00-22d20 Naked>                              Σ0         →0x22cec
            <Blob 0x22d00 [4] @>                             Δ-4                {[«4""»]}
            <POP 22d04-22d06 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22d06 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22d12-22d14 StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22d14  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22d16 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22d1a-22d1e StackAdj>                       Δ+10               {}
            <MI 22d1e  BRA     0x22cec>                                         {}
        <POP 22d20-22d26 Naked>                              Σ0         ↓ ←0x22cf6
            <MI 22d20  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22d24  MOVE.B  #0x01,(A0)>                                      {}
        <POP 22d26-22d2e Epilogue>                           Σ0         ←0x22c7e ←0x22cec

0x22d2e


@ 22d2e
        <LVAR  0x00c 2(r)>
    <POP 22d2e-22d72 Body>                                              
        <POP 22d2e-22d40 Prologue>                           Σ0         ↓
        <POP 22d40-22d6e Naked>                              Σ0         ↓
            <Blob 0x22d40 [4] @>                             Δ-4                {[«4""»]}
            <POP 22d44-22d46 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22d46 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22d58-22d5a StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22d5a  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22d5e 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22d62-22d64 StackAdj>                       Δ+8                {[-2-]}
            <MI 22d64  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <Call 0x22d68 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22d6c-22d6e StackAdj>                       Δ+2                {}
        <POP 22d6e-22d72 Epilogue>                           Σ0         

0x22d72


@ 22d72
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
    <POP 22d72-22ef2 Body>                                              
        <POP 22d72-22d88 Prologue>                           Σ0         ↓
        <POP 22d88-22da4 RegCacheLoad>                       Σ0         ↓
        <POP 22da4-22dbe Naked>                              Σ0         ↓ →0x22e12
            <MI 22da4  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22da8  MULS.W  (A6+0xc),D0>                                     {}
            <MI 22daa  LEA.L   0x2578e,A0>                                      {}
            <MI 22db0  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22db4  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22db8  ANDI.W  #0x1000,D0>                                      {}
            <MI 22dbc  BEQ     0x22e12>                                         {}
        <POP 22dbe-22dc6 Naked>                              Σ0         ↓ →0x22dee
            <MI 22dbe  MOVE.B  (A0+0x22c),D0>                                   {}
            <MI 22dc2  CMP.B   #0x2003,D0>                                      {}
            <MI 22dc4  BNE     0x22dee>                                         {}
        <POP 22dc6-22dee Naked>                              Σ0         →0x22e06
            <Blob 0x22dc6 [12] @>                            Δ-12               {[«12""»]}
            <POP 22dd6-22dd8 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22dd8 11>                                                    {[«12""»]|[$$Record long]}
            <POP 22de4-22de6 StackAdj>                       Δ-2                {[«12""»]|[$$Record long]|[-2-]}
            <MI 22de6  MOVE.W  (A6+0xc),(A7)>                                   {[«12""»]|[$$Record long]|[2, '(A6+0xc)']}
            <Call 0x22de8 0x21cbc>                                              {[«12""»]|[$$Record long]|[2, '(A6+0xc)']}
            <POP 22dea-22dec StackAdj>                       Δ+18               {}
            <MI 22dec  BRA     0x22e06>                                         {}
        <POP 22dee-22e06 Naked>                              Σ0         ↓ ←0x22dbe
            <Blob 0x22dee [4] @>                             Δ-4                {[«4""»]}
            <POP 22df2-22df4 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22df4 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22dfe-22e00 StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22e00  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22e02 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22e04-22e06 StackAdj>                       Δ+10               {}
        <POP 22e06-22e12 Naked>                              Σ0         →0x22eea ←0x22dc6
            <MI 22e06  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x22e08 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22e0c-22e0e StackAdj>                       Δ+2                {}
            <MI 22e0e  BRA     0x22eea>                                         {}
        <POP 22e12-22e1c Naked>                              Σ0         ↓ →0x22e74 ←0x22da4
            <MI 22e12  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22e16  ANDI.W  #0x4000,D0>                                      {}
            <MI 22e1a  BEQ     0x22e74>                                         {}
        <POP 22e1c-22e24 Naked>                              Σ0         ↓ →0x22e2c
            <MI 22e1c  MOVE.B  (A0+0x22c),D0>                                   {}
            <MI 22e20  CMP.B   #0x04,D0>                                        {}
            <MI 22e22  BNE     0x22e2c>                                         {}
        <POP 22e24-22e2c Naked>                              Σ0         →0x22e72
            <MI 22e24  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22e28  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22e2a  BRA     0x22e72>                                         {}
        <POP 22e2c-22e30 Naked>                              Σ0         ↓ →0x22e52 ←0x22e1c
            <MI 22e2c  CMP.B   #0x2003,D0>                                      {}
            <MI 22e2e  BNE     0x22e52>                                         {}
        <POP 22e30-22e52 Naked>                              Σ0         →0x22e6a
            <Blob 0x22e30 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22e34 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22e38 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 22e3c-22e3e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22e3e 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Record short]}
            <POP 22e48-22e4a StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[-2-]}
            <MI 22e4a  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[2, '(A6+0xc)']}
            <Call 0x22e4c 0x21cbc>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[2, '(A6+0xc)']}
            <POP 22e4e-22e50 StackAdj>                       Δ+18               {}
            <MI 22e50  BRA     0x22e6a>                                         {}
        <POP 22e52-22e6a Naked>                              Σ0         ↓ ←0x22e2c
            <Blob 0x22e52 [4] @>                             Δ-4                {[«4""»]}
            <POP 22e56-22e58 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22e58 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22e62-22e64 StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22e64  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22e66 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22e68-22e6a StackAdj>                       Δ+10               {}
        <POP 22e6a-22e72 Naked>                              Σ0         ↓ ←0x22e30
            <MI 22e6a  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x22e6c 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22e70-22e72 StackAdj>                       Δ+2                {}
        <POP 22e72-22e74 Naked>                              Σ0         →0x22eea ←0x22e24
            <MI 22e72  BRA     0x22eea>                                         {}
        <POP 22e74-22e7e Naked>                              Σ0         ↓ →0x22eb2 ←0x22e12
            <MI 22e74  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22e78  ANDI.W  #0x8000,D0>                                      {}
            <MI 22e7c  BEQ     0x22eb2>                                         {}
        <POP 22e7e-22e86 Naked>                              Σ0         ↓ →0x22eb2
            <MI 22e7e  MOVE.B  (A0+0x22c),D0>                                   {}
            <MI 22e82  CMP.B   #0x2003,D0>                                      {}
            <MI 22e84  BNE     0x22eb2>                                         {}
        <POP 22e86-22eb2 Naked>                              Σ0         →0x22ee2
            <Blob 0x22e86 [16] @>                            Δ-16               {[«16""»]}
            <POP 22e98-22e9a StackAdj>                       Δ-4                {[«16""»]|[-4-]}
            <Lit 0x22e9a 15>                                                    {[«16""»]|[$$Unexpected mark]}
            <POP 22ea6-22ea8 StackAdj>                       Δ-2                {[«16""»]|[$$Unexpected mark]|[-2-]}
            <MI 22ea8  MOVE.W  (A6+0xc),(A7)>                                   {[«16""»]|[$$Unexpected mark]|[2, '(A6+0xc)']}
            <Call 0x22eaa 0x21cbc>                                              {[«16""»]|[$$Unexpected mark]|[2, '(A6+0xc)']}
            <POP 22eac-22eb0 StackAdj>                       Δ+22               {}
            <MI 22eb0  BRA     0x22ee2>                                         {}
        <POP 22eb2-22eba Naked>                              Σ0         ↓ →0x22ec2 ←0x22e74 ←0x22e7e
            <MI 22eb2  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22eb6  AND.W   #0x2003,D0>                                      {}
            <MI 22eb8  BNE     0x22ec2>                                         {}
        <POP 22eba-22ec2 Naked>                              Σ0         ↓ →0x22eca
            <MI 22eba  MOVE.W  (A0+0x23e8),D0>                                  {}
            <MI 22ebe  AND.W   #0x01,D0>                                        {}
            <MI 22ec0  BEQ     0x22eca>                                         {}
        <POP 22ec2-22eca Naked>                              Σ0         →0x22eea ←0x22eb2
            <MI 22ec2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ec6  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22ec8  BRA     0x22eea>                                         {}
        <POP 22eca-22ee2 Naked>                              Σ0         ↓ ←0x22eba
            <Blob 0x22eca [4] @>                             Δ-4                {[«4""»]}
            <POP 22ece-22ed0 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22ed0 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22eda-22edc StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22edc  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22ede 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22ee0-22ee2 StackAdj>                       Δ+10               {}
        <POP 22ee2-22eea Naked>                              Σ0         ↓ ←0x22e86
            <MI 22ee2  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x22ee4 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22ee8-22eea StackAdj>                       Δ+2                {}
        <POP 22eea-22ef2 Epilogue>                           Σ0         ←0x22e06 ←0x22e72 ←0x22ec2

0x22ef2


@ 22ef2
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
    <POP 22ef2-22fd4 Body>                                              
        <POP 22ef2-22f08 Prologue>                           Σ0         ↓
        <POP 22f08-22f14 RegCacheLoad>                       Σ0         ↓
        <POP 22f14-22f2e Naked>                              Σ0         ↓ →0x22f64
            <MI 22f14  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22f18  MULS.W  (A6+0xc),D0>                                     {}
            <MI 22f1a  LEA.L   0x2578e,A0>                                      {}
            <MI 22f20  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 22f24  MOVE.W  (A0+0x23da),D0>                                  {}
            <MI 22f28  ANDI.W  #0x0040,D0>                                      {}
            <MI 22f2c  BEQ     0x22f64>                                         {}
        <POP 22f2e-22f58 Naked>                              Σ0         ↓
            <Blob 0x22f2e [8] @>                             Δ-8                {[«8""»]}
            <POP 22f3e-22f40 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x22f40 7>                                                     {[«8""»]|[$$On line]}
            <POP 22f4c-22f4e StackAdj>                       Δ-2                {[«8""»]|[$$On line]|[-2-]}
            <MI 22f4e  MOVE.W  (A6+0xc),(A7)>                                   {[«8""»]|[$$On line]|[2, '(A6+0xc)']}
            <Call 0x22f50 0x21cbc>                                              {[«8""»]|[$$On line]|[2, '(A6+0xc)']}
            <POP 22f54-22f58 StackAdj>                       Δ+14               {}
        <POP 22f58-22f64 Naked>                              Σ0         →0x22fcc ←0x22f6e
            <MI 22f58  CLR.B   (A0+0x22a)>                                      {}
            <MI 22f5c  SUBQ.L  #0x1,0x2579e>                                    {}
            <MI 22f62  BRA     0x22fcc>                                         {}
        <POP 22f64-22f6e Naked>                              Σ0         ↓ →0x22f96 ←0x22f14
            <MI 22f64  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22f68  ANDI.W  #0x0800,D0>                                      {}
            <MI 22f6c  BEQ     0x22f96>                                         {}
        <POP 22f6e-22f96 Naked>                              Σ0         →0x22f58
            <Blob 0x22f6e [10] @>                            Δ-10               {[«10""»]}
            <POP 22f7a-22f7c StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x22f7c 10>                                                    {[«10""»]|[$$Write lock]}
            <POP 22f88-22f8a StackAdj>                       Δ-2                {[«10""»]|[$$Write lock]|[-2-]}
            <MI 22f8a  MOVE.W  (A6+0xc),(A7)>                                   {[«10""»]|[$$Write lock]|[2, '(A6+0xc)']}
            <Call 0x22f8c 0x21cbc>                                              {[«10""»]|[$$Write lock]|[2, '(A6+0xc)']}
            <POP 22f90-22f94 StackAdj>                       Δ+16               {}
            <MI 22f94  BRA     0x22f58>                                         {}
        <POP 22f96-22fa0 Naked>                              Σ0         ↓ →0x22fa8 ←0x22f64
            <MI 22f96  MOVE.W  (A0+0x23e2),D0>                                  {}
            <MI 22f9a  ANDI.W  #0x0002,D0>                                      {}
            <MI 22f9e  BEQ     0x22fa8>                                         {}
        <POP 22fa0-22fa8 Naked>                              Σ0         →0x22fcc
            <MI 22fa0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22fa4  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22fa6  BRA     0x22fcc>                                         {}
        <POP 22fa8-22fcc Naked>                              Σ0         ↓ ←0x22f96
            <Blob 0x22fa8 [4] @>                             Δ-4                {[«4""»]}
            <POP 22fac-22fae StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x22fae 4>                                                     {[«4""»]|[$$Tape]}
            <POP 22fba-22fbc StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 22fbc  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x22fbe 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 22fc2-22fc4 StackAdj>                       Δ+8                {[-2-]}
            <MI 22fc4  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <Call 0x22fc6 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 22fca-22fcc StackAdj>                       Δ+2                {}
        <POP 22fcc-22fd4 Epilogue>                           Σ0         ←0x22f58 ←0x22fa0

0x22fd4


@ 22fd4
        <LVAR  0x00c 2(r)>
    <POP 22fd4-23082 Body>                                              
        <POP 22fd4-22fea Prologue>                           Σ0         ↓
        <POP 22fea-22ff2 RegCacheLoad>                       Σ0         ↓
        <POP 22ff2-2300a Naked>                              Σ0         ↓ →0x2300e
            <MI 22ff2  MOVE.W  #0x21c0,D0>                                      {}
            <MI 22ff6  MULS.W  (A6+0xc),D0>                                     {}
            <MI 22ff8  LEA.L   0x2578e,A0>                                      {}
            <MI 22ffe  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23002  MOVE.B  (A0+0x22c),D0>                                   {}
            <MI 23006  CMP.B   #0x03,D0>                                        {}
            <MI 23008  BEQ     0x2300e>                                         {}
        <POP 2300a-2300e Naked>                              Σ0         ↓ →0x23050
            <MI 2300a  CMP.B   #0x02,D0>                                        {}
            <MI 2300c  BNE     0x23050>                                         {}
        <POP 2300e-2301a Naked>                              Σ0         ↓ →0x2302a ←0x22ff2
            <MI 2300e  MOVE.L  (A0+0x244),D1>                                   {}
            <MI 23012  CMPI.L  #0x0000000a,D1>                                  {}
            <MI 23018  BLE     0x2302a>                                         {}
        <POP 2301a-2302a Naked>                              Σ0         →0x2304e
            <MI 2301a  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x2301c 0x22a6c>                                              {[2, '(A6+0xc)']}
            <MI 23020  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <Call 0x23022 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 23026-23028 StackAdj>                       Δ+2                {}
            <MI 23028  BRA     0x2304e>                                         {}
        <POP 2302a-23032 Naked>                              Σ0         ↓ →0x23042 ←0x2300e
            <MI 2302a  MOVE.W  (A0+0x23da),D1>                                  {}
            <MI 2302e  AND.W   #0x02,D1>                                        {}
            <MI 23030  BNE     0x23042>                                         {}
        <POP 23032-23036 Naked>                              Σ0         ↓ →0x2303c
            <MI 23032  CMP.B   #0x03,D0>                                        {}
            <MI 23034  BNE     0x2303c>                                         {}
        <POP 23036-2303c Naked>                              Σ0         →0x23042
            <MI 23036  MOVE.B  #0x03,(A0+0x23d4)>                               {}
            <MI 2303a  BRA     0x23042>                                         {}
        <POP 2303c-23042 Naked>                              Σ0         ↓ ←0x23032
            <MI 2303c  MOVE.B  #0x05,(A0+0x23d4)>                               {}
        <POP 23042-2304e Naked>                              Σ0         ↓ ←0x2302a ←0x23036
            <MI 23042  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x23044 0x217ba>                                              {[2, '(A6+0xc)']}
            <POP 23048-2304a StackAdj>                       Δ+2                {}
            <MI 2304a  ADDQ.L  #0x1,(A0+0x244)>                                 {}
        <POP 2304e-23050 Naked>                              Σ0         →0x2307a ←0x2301a
            <MI 2304e  BRA     0x2307a>                                         {}
        <POP 23050-2307a Naked>                              Σ0         ↓ ←0x2300a
            <Blob 0x23050 [4] @>                             Δ-4                {[«4""»]}
            <POP 23054-23056 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x23056 4>                                                     {[«4""»]|[$$Tape]}
            <POP 23068-2306a StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 2306a  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x2306c 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 23070-23072 StackAdj>                       Δ+8                {[-2-]}
            <MI 23072  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <Call 0x23074 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 23078-2307a StackAdj>                       Δ+2                {}
        <POP 2307a-23082 Epilogue>                           Σ0         ←0x2304e

0x23082


@ 23082
        <LVAR  0x00c 2(r)>
    <POP 23082-230c6 Body>                                              
        <POP 23082-23094 Prologue>                           Σ0         ↓
        <POP 23094-230c2 Naked>                              Σ0         ↓
            <Blob 0x23094 [4] @>                             Δ-4                {[«4""»]}
            <POP 23098-2309a StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x2309a 4>                                                     {[«4""»]|[$$Tape]}
            <POP 230ac-230ae StackAdj>                       Δ-2                {[«4""»]|[$$Tape]|[-2-]}
            <MI 230ae  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <Call 0x230b2 0x21cbc>                                              {[«4""»]|[$$Tape]|[2, '(A6+0xc)']}
            <POP 230b6-230b8 StackAdj>                       Δ+8                {[-2-]}
            <MI 230b8  MOVE.W  (A6+0xc),(A7)>                                   {[2, '(A6+0xc)']}
            <Call 0x230bc 0x22bfe>                                              {[2, '(A6+0xc)']}
            <POP 230c0-230c2 StackAdj>                       Δ+2                {}
        <POP 230c2-230c6 Epilogue>                           Σ0         

0x230c6


@ 230c6
        <LVAR  0x00c 2(r)>
    <POP 230c6-23126 Body>                                              
        <POP 230c6-230dc Prologue>                           Σ0         ↓
        <POP 230dc-2311e Naked>                              Σ0         ↓
            <Blob 0x230dc [4] @>                             Δ-4                {[«4""»]}
            <POP 230e0-230e2 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x230e2 4>                                                     {[«4""»]|[$$Unit]}
            <POP 230f4-230f6 StackAdj>                       Δ-2                {[«4""»]|[$$Unit]|[-2-]}
            <MI 230f6  MOVE.W  (A6+0xc),(A7)>                                   {[«4""»]|[$$Unit]|[2, '(A6+0xc)']}
            <Call 0x230fa 0x21cbc>                                              {[«4""»]|[$$Unit]|[2, '(A6+0xc)']}
            <POP 230fe-23102 StackAdj>                       Δ+10               {}
            <MI 23102  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23106  MULS.W  (A6+0xc),D0>                                     {}
            <MI 2310a  LEA.L   0x2578e,A0>                                      {}
            <MI 23110  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23114  CLR.B   (A0+0x22a)>                                      {}
            <MI 23118  SUBQ.L  #0x1,0x2579e>                                    {}
        <POP 2311e-23126 Epilogue>                           Σ0         

0x23126


@ 23126
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
    <POP 23126-231f6 Body>                                   Δ+36       
        <POP 23126-2313c Prologue>                           Σ0         ↓
        <POP 2313c-23142 RegCacheLoad>                       Σ0         ↓
        <POP 23142-2316c Naked>                              Σ0         ↓ →0x23170
            <MI 23142  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23146  CLR.B   (A0)>                                            {}
            <MI 23148  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2314c  MULS.W  (A6+0xc),D0>                                     {}
            <MI 2314e  LEA.L   0x2578e,A1>                                      {}
            <MI 23154  LEA.L   (A1+D0.W),A1>                                    {}
            <MI 23158  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 2315a  PEA.L   (A1+0x23da)>                  Δ-4                {[2, '(A6+0xc)']|[4, '^(A1+0x23da)']}
            <Call 0x2315e 0x22b8a>                                              {[2, '(A6+0xc)']|[4, '^(A1+0x23da)']}
            <POP 23162-23164 StackAdj>                       Δ+6                {}
            <MI 23164  MOVE.W  (A1+0x23e2),D0>                                  {}
            <MI 23168  AND.W   #0x01,D0>                                        {}
            <MI 2316a  BEQ     0x23170>                                         {}
        <POP 2316c-23170 Naked>                              Σ0         ↓
            <MI 2316c  MOVE.B  #0x01,(A1+0x22b)>                                {}
        <POP 23170-23196 Naked>                              Σ0         →0x231a6 →0x231b0 →0x231ba →0x231c4 →0x231ce →0x231d8 →0x231da →0x231e4 ←0x23142
            <MI 23170  MOVE.W  (A1+0x23da),D0>                                  {}
            <MI 23174  ANDI.W  #0x000e,D0>                                      {}
            <MI 23178  LSR.W   #0x1,D0>                                         {}
            <MI 2317a  CLR.L   D1>                                              {}
            <MI 2317c  MOVE.W  D0,D1>                                           {}
            <MI 2317e  MOVE.L  D1,D7>                                           {}
            <MI 23180  MOVE.L  D7,D0>                                           {}
            <POP 0x23182 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 2318c  ADD.W   D0,D0>                                           {}
            <MI 2318e  SWITCH  D0.W>                                            {}
        <POP 231a6-231b0 Naked>                              Σ0 Δ-6     →0x231ec ←0x23170
            <MI 231a6  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231a8  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231aa 0x22c42>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231ae  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231b0-231ba Naked>                              Σ0 Δ-6     →0x231ec ←0x23170
            <MI 231b0  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231b2  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231b4 0x22d2e>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231b8  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231ba-231c4 Naked>                              Σ0 Δ-6     →0x231ec ←0x23170
            <MI 231ba  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231bc  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231be 0x22d72>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231c2  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231c4-231ce Naked>                              Σ0 Δ-6     →0x231ec ←0x23170
            <MI 231c4  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231c6  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231c8 0x22ef2>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231cc  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231ce-231d8 Naked>                              Σ0 Δ-6     →0x231ec ←0x23170 ←0x231d8
            <MI 231ce  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231d0  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231d2 0x22fd4>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231d6  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231d8-231da Naked>                              Σ0         →0x231ce ←0x23170
            <MI 231d8  BRA     0x231ce>                                         {}
        <POP 231da-231e4 Naked>                              Σ0 Δ-6     →0x231ec ←0x23170
            <MI 231da  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231dc  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231de 0x23082>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
            <MI 231e2  BRA     0x231ec>                                         {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231e4-231ec Naked>                              Σ0 Δ-6     ↓ ←0x23170
            <MI 231e4  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 231e6  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0xc)']|[4, '^(A0)']}
            <Call 0x231e8 0x230c6>                                              {[2, '(A6+0xc)']|[4, '^(A0)']}
        <POP 231ec-231ee Naked>                              Σ-6 Δ+6    ↓ ←0x231a6 ←0x231b0 ←0x231ba ←0x231c4 ←0x231ce ←0x231da
            <POP 231ec-231ee StackAdj>                       Δ+6                {}
        <POP 231ee-231f6 Epilogue>                           Σ0         

0x231f6


@ 231f6
        <LVAR  0x008 2(r)>
    <POP 231f6-2323c Body>                                              
        <POP 231f6-2320c Prologue>                           Σ0         ↓
        <POP 2320c-23234 Naked>                              Σ0         ↓
            <MI 2320c  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23210  MULS.W  (A6+0x8),D0>                                     {}
            <MI 23214  LEA.L   0x2578e,A0>                                      {}
            <MI 2321a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 2321e  MOVE.B  #0x0b,(A0+0x23d4)>                               {}
            <MI 23224  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x23228 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 2322c-2322e StackAdj>                       Δ+2                {}
            <MI 2322e  MOVE.B  #0x01,(A0+0x22c)>                                {}
        <POP 23234-2323c Epilogue>                           Σ0         

0x2323c


@ 2323c
        <LVAR  0x008 2(r)>
    <POP 2323c-23324 Body>                                              
        <POP 2323c-23252 Prologue>                           Σ0         ↓
        <POP 23252-23254 RegCacheLoad>                       Σ0         ↓
        <POP 23254-23280 Naked>                              Σ0         ↓ →0x23282
            <POP 23254-23256 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x23256 0x20cc2>                                              {[-4-]}
            <MI 2325a  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x2325c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 23266  MOVE.W  D0,D6>                                           {}
            <POP 23268-2326a StackAdj>                       Δ-4                {[-4-]}
            <Const 0x2326a 0x12.4>                           Δ-4                {[-4-]|[##18]}
            <Const 0x2326e 0x2000.4>                         Δ-4                {[-4-]|[##18]|[##8192]}
            <Call 0x23272 0x20c68>                                              {[-4-]|[##18]|[##8192]}
            <POP 23276-23278 StackAdj>                       Δ+8                {[-4-]}
            <MI 23278  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 2327a  BTST.L  #0x0,D7>                                         {}
            <MI 2327e  BEQ     0x23282>                                         {}
        <POP 23280-23282 Naked>                              Σ0         ↓
            <MI 23280  ADDQ.L  #0x1,D7>                                         {}
        <POP 23282-2331c Naked>                              Σ0         ↓ ←0x23254
            <MI 23282  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23286  MULS.W  (A6+0x8),D0>                                     {}
            <MI 2328a  LEA.L   0x2578e,A0>                                      {}
            <MI 23290  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 23294-23296 StackAdj>                       Δ-4                {[-4-]}
            <MI 23296  MOVE.B  (A0+0x3d0),(A7)>                                 {[-4-]}
            <MI 2329a  MOVE.B  (A0+0x3d1),(A7+0x1)>                             {[-4-]}
            <MI 232a0  MOVE.B  (A0+0x3d2),(A7+0x2)>                             {[-4-]}
            <MI 232a6  MOVE.B  (A0+0x3d3),(A7+0x3)>                             {[-4-]}
            <MI 232ac  MOVE.W  D6,-(A7)>                     Δ-2                {[-4-]|[2, 'D6']}
            <MI 232ae  MOVE.L  D7,D4>                                           {[-4-]|[2, 'D6']}
            <MI 232b0  MOVEQ.L #0x02,D3>                                        {[-4-]|[2, 'D6']}
            <Call 0x232b2 0x10294>                                              {[-4-]|[2, 'D6']}
                ?divs_d3_d4
            <POP 232b8-232ba StackAdj>                       Δ-2                {[-4-]|[2, 'D6']|[-2-]}
            <POP 0x232ba LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {[-4-]|[2, 'D6']|[-2-]}
            <MI 232c4  MOVE.W  D4,(A7)>                                         {[-4-]|[2, 'D6']|[2, 'D4']}
            <Call 0x232c6 0x10236>                                              {[-4-]|[2, 'D6']|[2, 'D4']}
                KERNCALL_1b
            <POP 232cc-232ce StackAdj>                       Δ+8                {}
            <MI 232ce  MOVE.B  #0x04,(A0+0x23d4)>                               {}
            <MI 232d4  MOVE.L  D7,(A0+0x23d6)>                                  {}
            <MI 232d8  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x232dc 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 232e0-232e2 StackAdj>                       Δ+2                {}
            <MI 232e2  MOVE.B  #0x02,(A0+0x22c)>                                {}
            <MI 232e8  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x232ec LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 232f2  MOVE.L  D0,D4>                                           {}
            <MI 232f4  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x232f6 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 232fc  LEA.L   (A0+0x22a),A1>                                   {}
            <MI 23300  MOVE.W  D6,(A1+D4.L+#0x26)>                              {}
            <MI 23304  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x23308 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 2330e  MOVE.L  D0,D4>                                           {}
            <MI 23310  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x23312 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 23318  MOVE.L  D7,(A1+D4.L+#0x28)>                              {}
        <POP 2331c-23324 Epilogue>                           Σ0         

0x23324


@ 23324
        <LVAR  0x008 2(r)>
    <POP 23324-23384 Body>                                              
        <POP 23324-2333a Prologue>                           Σ0         ↓
        <POP 2333a-2337c Naked>                              Σ0         ↓
            <MI 2333a  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2333e  MULS.W  (A6+0x8),D0>                                     {}
            <MI 23342  LEA.L   0x2578e,A0>                                      {}
            <MI 23348  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 2334c-2334e StackAdj>                       Δ-4                {[-4-]}
            <Const 0x2334e 0x1.4>                            Δ-4                {[-4-]|[##1]}
            <MI 23352  MOVE.L  (A0+0x24c),-(A7)>             Δ-4                {[-4-]|[##1]|[4, '(A0+0x24c)']}
            <Call 0x23356 0x20c68>                                              {[-4-]|[##1]|[4, '(A0+0x24c)']}
            <POP 2335a-2335c StackAdj>                       Δ+8                {[-4-]}
            <MI 2335c  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 2335e  MOVE.B  #0x07,(A0+0x23d4)>                               {}
            <MI 23364  MOVE.L  D7,(A0+0x23d6)>                                  {}
            <MI 23368  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x2336c 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 23370-23372 StackAdj>                       Δ+2                {}
            <MI 23372  SUB.L   D7,(A0+0x248)>                                   {}
            <MI 23376  MOVE.B  #0x04,(A0+0x22c)>                                {}
        <POP 2337c-23384 Epilogue>                           Σ0         

0x23384


@ 23384
        <LVAR  0x008 2(r)>
    <POP 23384-233d6 Body>                                              
        <POP 23384-2339a Prologue>                           Σ0         ↓
        <POP 2339a-233ce Naked>                              Σ0         ↓
            <MI 2339a  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2339e  MULS.W  (A6+0x8),D0>                                     {}
            <MI 233a2  LEA.L   0x2578e,A0>                                      {}
            <MI 233a8  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 233ac  MOVE.B  #0x09,(A0+0x23d4)>                               {}
            <MI 233b2  MOVE.L  #0x1,(A0+0x23d6)>                                {}
            <MI 233ba  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x233be 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 233c2-233c4 StackAdj>                       Δ+2                {}
            <MI 233c4  CLR.L   (A0+0x248)>                                      {}
            <MI 233c8  MOVE.B  #0x05,(A0+0x22c)>                                {}
        <POP 233ce-233d6 Epilogue>                           Σ0         

0x233d6


@ 233d6
        <LVAR  0x008 2(r)>
    <POP 233d6-23424 Body>                                              
        <POP 233d6-233ec Prologue>                           Σ0         ↓
        <POP 233ec-2341c Naked>                              Σ0         ↓
            <MI 233ec  MOVE.W  #0x21c0,D0>                                      {}
            <MI 233f0  MULS.W  (A6+0x8),D0>                                     {}
            <MI 233f4  LEA.L   0x2578e,A0>                                      {}
            <MI 233fa  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 233fe  MOVE.B  #0x08,(A0+0x23d4)>                               {}
            <MI 23404  MOVE.L  #0x1,(A0+0x23d6)>                                {}
            <MI 2340c  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x23410 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 23414-23416 StackAdj>                       Δ+2                {}
            <MI 23416  MOVE.B  #0x06,(A0+0x22c)>                                {}
        <POP 2341c-23424 Epilogue>                           Σ0         

0x23424


@ 23424
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 23424-23536 Body>                                   Δ+2        
        <POP 23424-2343a Prologue>                           Σ0         ↓
        <POP 2343a-23446 RegCacheLoad>                       Σ0         ↓
        <POP 23446-2345c Naked>                              Σ0         ↓ →0x23460
            <MI 23446  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2344a  MULS.W  (A6+0xa),D0>                                     {}
            <MI 2344c  LEA.L   0x2578e,A0>                                      {}
            <MI 23452  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23456  TST.B   (A6+0x8)>                                        {}
            <MI 2345a  BEQ     0x23460>                                         {}
        <POP 2345c-23460 Naked>                              Σ0         →0x2346a
            <MI 2345c  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 2345e  BRA     0x2346a>                                         {}
        <POP 23460-2346a Naked>                              Σ0         ↓ ←0x23446
            <MI 23460  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x23462 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x23464 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 23468-2346a StackAdj>                       Δ+6                {}
        <POP 2346a-23470 Naked>                              Σ0         ↓ →0x2352e ←0x2345c
            <MI 2346a  TST.B   (A6-0x4)>                                        {}
            <MI 2346c  BEQ     0x2352e>                                         {}
        <POP 23470-23478 Naked>                              Σ0         ↓ →0x234b0
            <MI 23470  TST.B   0x257a2>                                         {}
            <MI 23476  BEQ     0x234b0>                                         {}
        <POP 23478-23488 Naked>                              Σ0         ↓ →0x234b0
            <POP 23478-2347a StackAdj>                       Δ-4                {[-4-]}
            <MI 2347a  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <MI 2347c  ADD.W   #0x10,(A7)>                                      {[-6-]}
            <Call 0x2347e 0x211b0>                                              {[-6-]}
            <POP 23482-23484 StackAdj>                       Δ+2                {[-4-]}
            <MI 23484  TST.L   (A7)+>                        Δ+4                {}
            <MI 23486  BEQ     0x234b0>                                         {}
        <POP 23488-234b0 Naked>                              Σ0         ↓
            <Blob 0x23488 [34] @>                            Δ-34               {[«34""»]}
            <POP 23494-23496 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x23496 34>                                                    {[«34""»]|[$$Response from WRITE contained data]}
            <Call 0x234a8 0x20c42>                                              {[«34""»]|[$$Response from WRITE contained data]}
            <POP 234ac-234b0 StackAdj>                       Δ+38               {}
        <POP 234b0-23508 Naked>                              Σ0         ↓ →0x23510 ←0x23470 ←0x23478
            <MI 234b0  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x234b4 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 234be  MOVE.L  D0,D4>                                           {}
            <MI 234c0  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x234c2 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 234c8-234c9 StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x234c9 [8] (A0+0x23c)>                    Δ-8                {[-8-]|[«8»]}
            <POP 234d8-234da StackAdj>                       Δ-8                {[-8-]|[«8»]|[-8-]}
            <MI 234da  LEA.L   (A0+0x22a),A1>                                   {[-8-]|[«8»]|[-8-]}
            <MI 234de  MOVE.L  (A1+D4.L+#0x28),-(A7)>        Δ-4                {[-8-]|[«8»]|[-8-]|[4, '(A1+D4.L+#0x28)']}
            <Call 0x234e2 0x10354>                                              {[-8-]|[«8»]|[-8-]|[4, '(A1+D4.L+#0x28)']}
                Long2Quad(a : Long) : Quad
            <POP 234e8-234ea StackAdj>                       Δ+4                {[-8-]|[«8»]|[-8-]}
            <Call 0x234ea 0x10314>                                              {[-8-]|[«8»]|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 234f0-234f2 StackAdj>                       Δ+16               {[-8-]}
            <MI 234f2  LEA.L   (A0+0x23c),A1>                                   {[-8-]}
            <MI 234f6  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <POP 23500-23502 StackAdj>                       Δ+8                {}
            <MI 23502  TST.L   (A0+0x244)>                                      {}
            <MI 23506  BEQ     0x23510>                                         {}
        <POP 23508-23510 Naked>                              Σ0         ↓
            <MI 23508  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x2350a 0x22aca>                                              {[2, '(A6+0xa)']}
            <POP 2350e-23510 StackAdj>                       Δ+2                {}
        <POP 23510-2351e Naked>                              Σ0         ↓ →0x23526 ←0x234b0
            <MI 23510  ADDQ.L  #0x1,(A0+0x248)>                                 {}
            <MI 23514  MOVE.L  (A0+0x248),D0>                                   {}
            <MI 23518  CMP.L   (A0+0x24c),D0>                                   {}
            <MI 2351c  BGT     0x23526>                                         {}
        <POP 2351e-23526 Naked>                              Σ0 Δ-2     →0x2352c
            <MI 2351e  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x23520 0x2323c>                                              {[2, '(A6+0xa)']}
            <MI 23524  BRA     0x2352c>                                         {[2, '(A6+0xa)']}
        <POP 23526-2352c Naked>                              Σ0 Δ-2     ↓ ←0x23510
            <MI 23526  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x23528 0x23384>                                              {[2, '(A6+0xa)']}
        <POP 2352c-2352e Naked>                              Σ-2 Δ+2    ↓ ←0x2351e
            <POP 2352c-2352e StackAdj>                       Δ+2                {}
        <POP 2352e-23536 Epilogue>                           Σ0         ←0x2346a

0x23536


@ 23536
        <LVAR  0x008 2(r)>
    <POP 23536-2359e Body>                                              
        <POP 23536-2354c Prologue>                           Σ0         ↓
        <POP 2354c-23596 Naked>                              Σ0         ↓
            <MI 2354c  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23550  MULS.W  (A6+0x8),D0>                                     {}
            <MI 23554  LEA.L   0x2578e,A0>                                      {}
            <MI 2355a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 2355e  MOVE.B  #0x02,(A0+0x23d4)>                               {}
            <MI 23564  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x23568 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 23572  MOVE.L  D0,D4>                                           {}
            <MI 23574  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x23576 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 2357c  LEA.L   (A0+0x22a),A1>                                   {}
            <MI 23580  MOVE.L  (A1+D4.L+#0x28),(A0+0x23d6)>                     {}
            <MI 23586  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x2358a 0x217ba>                                              {[2, '(A6+0x8)']}
            <POP 2358e-23590 StackAdj>                       Δ+2                {}
            <MI 23590  MOVE.B  #0x03,(A1+0x2)>                                  {}
        <POP 23596-2359e Epilogue>                           Σ0         

0x2359e


@ 2359e
        <LVAR  0x008 2(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 2359e-23638 Body>                                              
        <POP 2359e-235b4 Prologue>                           Σ0         ↓
        <POP 235b4-235ba RegCacheLoad>                       Σ0         ↓
        <POP 235ba-235de Naked>                              Σ0         ↓ →0x235e4
            <MI 235ba  MOVE.W  #0x21c0,D0>                                      {}
            <MI 235be  MULS.W  (A6+0x8),D0>                                     {}
            <MI 235c0  LEA.L   0x2578e,A0>                                      {}
            <MI 235c6  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 235ca-235cc StackAdj>                       Δ-4                {[-4-]}
            <Const 0x235cc 0x0.4>                            Δ-4                {[-4-]|[##0]}
            <Const 0x235d0 0x1.4>                            Δ-4                {[-4-]|[##0]|[##1]}
            <Call 0x235d4 0x20c68>                                              {[-4-]|[##0]|[##1]}
            <POP 235d8-235da StackAdj>                       Δ+8                {[-4-]}
            <MI 235da  TST.L   (A7)+>                        Δ+4                {}
            <MI 235dc  BNE     0x235e4>                                         {}
        <POP 235de-235e4 Naked>                              Σ0         →0x235ea
            <MI 235de  MOVE.B  #0x14,(A0+0x23d4)>                               {}
            <MI 235e2  BRA     0x235ea>                                         {}
        <POP 235e4-235ea Naked>                              Σ0         ↓ ←0x235ba
            <MI 235e4  MOVE.B  #0x15,(A0+0x23d4)>                               {}
        <POP 235ea-23606 Naked>                              Σ0         ↓ →0x23630 ←0x235de
            <MI 235ea  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x235ec 0x217ba>                                              {[2, '(A6+0x8)']}
            <MI 235f0  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 235f2  ADDI.W  #0x0010,(A7)>                                    {[-2-]}
            <Pointer.fp 0x235f6 <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Call 0x235fa 0x2115a>                                              {[-2-]|[@@-2]}
            <POP 235fe-23600 StackAdj>                       Δ+6                {}
            <MI 23600  TST.B   (A6-0x2)>                                        {}
            <MI 23604  BNE     0x23630>                                         {}
        <POP 23606-23630 Naked>                              Σ0         ↓
            <Blob 0x23606 [14] @>                            Δ-14               {[«14""»]}
            <POP 23612-23614 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x23614 14>                                                    {[«14""»]|[$$Density select]}
            <POP 23626-23628 StackAdj>                       Δ-2                {[«14""»]|[$$Density select]|[-2-]}
            <MI 23628  MOVE.W  (A6+0x8),(A7)>                                   {[«14""»]|[$$Density select]|[2, '(A6+0x8)']}
            <Call 0x2362a 0x21cbc>                                              {[«14""»]|[$$Density select]|[2, '(A6+0x8)']}
            <POP 2362e-23630 StackAdj>                       Δ+20               {}
        <POP 23630-23638 Epilogue>                           Σ0         ←0x235ea

0x23638


@ 23638
        <LVAR  0x008 2(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 23638-236d2 Body>                                              
        <POP 23638-2364e Prologue>                           Σ0         ↓
        <POP 2364e-23654 RegCacheLoad>                       Σ0         ↓
        <POP 23654-23678 Naked>                              Σ0         ↓ →0x2367e
            <MI 23654  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23658  MULS.W  (A6+0x8),D0>                                     {}
            <MI 2365a  LEA.L   0x2578e,A0>                                      {}
            <MI 23660  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 23664-23666 StackAdj>                       Δ-4                {[-4-]}
            <Const 0x23666 0x0.4>                            Δ-4                {[-4-]|[##0]}
            <Const 0x2366a 0x1.4>                            Δ-4                {[-4-]|[##0]|[##1]}
            <Call 0x2366e 0x20c68>                                              {[-4-]|[##0]|[##1]}
            <POP 23672-23674 StackAdj>                       Δ+8                {[-4-]}
            <MI 23674  TST.L   (A7)+>                        Δ+4                {}
            <MI 23676  BNE     0x2367e>                                         {}
        <POP 23678-2367e Naked>                              Σ0         →0x23684
            <MI 23678  MOVE.B  #0x12,(A0+0x23d4)>                               {}
            <MI 2367c  BRA     0x23684>                                         {}
        <POP 2367e-23684 Naked>                              Σ0         ↓ ←0x23654
            <MI 2367e  MOVE.B  #0x13,(A0+0x23d4)>                               {}
        <POP 23684-236a0 Naked>                              Σ0         ↓ →0x236ca ←0x23678
            <MI 23684  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x23686 0x217ba>                                              {[2, '(A6+0x8)']}
            <MI 2368a  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 2368c  ADDI.W  #0x0010,(A7)>                                    {[-2-]}
            <Pointer.fp 0x23690 <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Call 0x23694 0x2115a>                                              {[-2-]|[@@-2]}
            <POP 23698-2369a StackAdj>                       Δ+6                {}
            <MI 2369a  TST.B   (A6-0x2)>                                        {}
            <MI 2369e  BNE     0x236ca>                                         {}
        <POP 236a0-236ca Naked>                              Σ0         ↓
            <Blob 0x236a0 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x236a4 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x236a8 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 236ac-236ae StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x236ae 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]}
            <POP 236c0-236c2 StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[-2-]}
            <MI 236c2  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[2, '(A6+0x8)']}
            <Call 0x236c4 0x21cbc>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[2, '(A6+0x8)']}
            <POP 236c8-236ca StackAdj>                       Δ+18               {}
        <POP 236ca-236d2 Epilogue>                           Σ0         ←0x23684

0x236d2


@ 236d2
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 236d2-23894 Body>                                   Δ+4        
        <POP 236d2-236e8 Prologue>                           Σ0         ↓
        <POP 236e8-236f6 RegCacheLoad>                       Σ0         ↓
        <POP 236f6-2370c Naked>                              Σ0         ↓ →0x23710
            <MI 236f6  MOVE.W  #0x21c0,D0>                                      {}
            <MI 236fa  MULS.W  (A6+0xa),D0>                                     {}
            <MI 236fc  LEA.L   0x2578e,A0>                                      {}
            <MI 23702  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23706  TST.B   (A6+0x8)>                                        {}
            <MI 2370a  BEQ     0x23710>                                         {}
        <POP 2370c-23710 Naked>                              Σ0         →0x2371a
            <MI 2370c  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 2370e  BRA     0x2371a>                                         {}
        <POP 23710-2371a Naked>                              Σ0         ↓ ←0x236f6
            <MI 23710  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x23712 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x23714 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 23718-2371a StackAdj>                       Δ+6                {}
        <POP 2371a-23720 Naked>                              Σ0         ↓ →0x2388c ←0x2370c
            <MI 2371a  TST.B   (A6-0x4)>                                        {}
            <MI 2371c  BEQ     0x2388c>                                         {}
        <POP 23720-23728 Naked>                              Σ0         ↓ →0x23782
            <MI 23720  TST.B   0x257a2>                                         {}
            <MI 23726  BEQ     0x23782>                                         {}
        <POP 23728-23754 Naked>                              Σ0         ↓ →0x23782
            <MI 23728  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x2372c LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 23732  MOVE.L  D0,D4>                                           {}
            <MI 23734  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x23736 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 2373c-2373e StackAdj>                       Δ-4                {[-4-]}
            <MI 2373e  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <MI 23740  ADD.W   #0x10,(A7)>                                      {[-6-]}
            <Call 0x23742 0x211b0>                                              {[-6-]}
            <POP 23746-23748 StackAdj>                       Δ+2                {[-4-]}
            <MI 23748  LEA.L   (A0+0x22a),A1>                                   {[-4-]}
            <MI 2374c  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2374e  CMP.L   (A1+D4.L+#0x28),D0>                              {}
            <MI 23752  BEQ     0x23782>                                         {}
        <POP 23754-23782 Naked>                              Σ0         ↓
            <Blob 0x23754 [32] @>                            Δ-32               {[«32""»]}
            <POP 23766-23768 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x23768 31>                                                    {[«32""»]|[$$Response from READ is incorrect]}
            <Call 0x2377a 0x20c42>                                              {[«32""»]|[$$Response from READ is incorrect]}
            <POP 2377e-23782 StackAdj>                       Δ+36               {}
        <POP 23782-237d6 Naked>                              Σ0         ↓ →0x237de ←0x23720 ←0x23728
            <MI 23782  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x23786 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 2378c  MOVE.L  D0,D4>                                           {}
            <MI 2378e  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x23790 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 23796-23797 StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x23797 [8] (A0+0x23c)>                    Δ-8                {[-8-]|[«8»]}
            <POP 237a6-237a8 StackAdj>                       Δ-8                {[-8-]|[«8»]|[-8-]}
            <MI 237a8  LEA.L   (A0+0x22a),A1>                                   {[-8-]|[«8»]|[-8-]}
            <MI 237ac  MOVE.L  (A1+D4.L+#0x28),-(A7)>        Δ-4                {[-8-]|[«8»]|[-8-]|[4, '(A1+D4.L+#0x28)']}
            <Call 0x237b0 0x10354>                                              {[-8-]|[«8»]|[-8-]|[4, '(A1+D4.L+#0x28)']}
                Long2Quad(a : Long) : Quad
            <POP 237b6-237b8 StackAdj>                       Δ+4                {[-8-]|[«8»]|[-8-]}
            <Call 0x237b8 0x10314>                                              {[-8-]|[«8»]|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 237be-237c0 StackAdj>                       Δ+16               {[-8-]}
            <MI 237c0  LEA.L   (A0+0x23c),A1>                                   {[-8-]}
            <MI 237c4  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <POP 237ce-237d0 StackAdj>                       Δ+8                {}
            <MI 237d0  TST.L   (A0+0x244)>                                      {}
            <MI 237d4  BEQ     0x237de>                                         {}
        <POP 237d6-237de Naked>                              Σ0         ↓
            <MI 237d6  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x237d8 0x22aca>                                              {[2, '(A6+0xa)']}
            <POP 237dc-237de StackAdj>                       Δ+2                {}
        <POP 237de-2383e Naked>                              Σ0 Δ-4     ↓ →0x23846 ←0x23782
            <MI 237de  MOVE.L  (A0+0x248),D0>                                   {}
            <POP 0x237e2 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 237e8  MOVE.L  D0,D4>                                           {}
            <MI 237ea  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x237ec 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 237f2  MOVE.L  D4,-(A7)>                     Δ-4                {[4, 'D4']}
            <MI 237f4  LEA.L   (A0+0x22a),A1>                                   {[4, 'D4']}
            <POP 237f8-237fa StackAdj>                       Δ-6                {[4, 'D4']|[-6-]}
            <MI 237fa  MOVE.B  (A1+0x1a6),(A7)>                                 {[4, 'D4']|[-6-]}
            <MI 237fe  MOVE.B  (A1+0x1a7),(A7+0x1)>                             {[4, 'D4']|[-6-]}
            <MI 23804  MOVE.B  (A1+0x1a8),(A7+0x2)>                             {[4, 'D4']|[-6-]}
            <MI 2380a  MOVE.B  (A1+0x1a9),(A7+0x3)>                             {[4, 'D4']|[-6-]}
            <MI 23810  MOVE.W  (A1+D4.L+#0x26),-(A7)>        Δ-2                {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
            <MI 23814  MOVE.L  (A7+0x8),D4>                                     {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
            <MI 23818  MOVE.L  (A1+D4.L+#0x28),D4>                              {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
            <MI 2381c  MOVEQ.L #0x02,D3>                                        {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
            <Call 0x2381e 0x10294>                                              {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
                ?divs_d3_d4
            <POP 23824-23826 StackAdj>                       Δ-2                {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[-2-]}
            <POP 0x23826 LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[-2-]}
            <MI 23830  MOVE.W  D4,(A7)>                                         {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[2, 'D4']}
            <Call 0x23832 0x10234>                                              {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[2, 'D4']}
                KERNCALL_1a
            <POP 23838-2383a StackAdj>                       Δ+8                {[4, 'D4']|[-2-]}
            <MI 2383a  TST.B   (A7)+>                        Δ+2                {[4, 'D4']}
            <MI 2383c  BNE     0x23846>                                         {[4, 'D4']}
        <POP 2383e-23846 Naked>                              Σ-4        ↓
            <MI 2383e  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <Call 0x23840 0x22b30>                                              {[-4-]|[2, '(A6+0xa)']}
            <POP 23844-23846 StackAdj>                       Δ+2                {[-4-]}
        <POP 23846-23854 Naked>                              Σ-4        ↓ →0x2385c ←0x237de
            <MI 23846  ADDQ.L  #0x1,(A0+0x248)>                                 {[-4-]}
            <MI 2384a  MOVE.L  (A0+0x248),D0>                                   {[-4-]}
            <MI 2384e  CMP.L   (A1+0x22),D0>                                    {[-4-]}
            <MI 23852  BGT     0x2385c>                                         {[-4-]}
        <POP 23854-2385c Naked>                              Σ-4 Δ-2    →0x23888
            <MI 23854  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <Call 0x23856 0x23536>                                              {[-4-]|[2, '(A6+0xa)']}
            <MI 2385a  BRA     0x23888>                                         {[-4-]|[2, '(A6+0xa)']}
        <POP 2385c-2387a Naked>                              Σ-4        ↓ →0x23882 ←0x23846
            <MI 2385c  CLR.L   (A0+0x248)>                                      {[-4-]}
            <POP 23860-23862 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x23862 0x10.4>                           Δ-4                {[-8-]|[##16]}
            <Const 0x23866 0x3f.4>                           Δ-4                {[-8-]|[##16]|[##63]}
            <Call 0x2386a 0x20c68>                                              {[-8-]|[##16]|[##63]}
            <POP 2386e-23870 StackAdj>                       Δ+8                {[-8-]}
            <MI 23870  MOVE.L  (A7)+,(A1+0x22)>              Δ+4                {[-4-]}
            <MI 23874  TST.B   (A1+0x1)>                                        {[-4-]}
            <MI 23878  BEQ     0x23882>                                         {[-4-]}
        <POP 2387a-23882 Naked>                              Σ-4 Δ-2    →0x23888
            <MI 2387a  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <Call 0x2387c 0x22bfe>                                              {[-4-]|[2, '(A6+0xa)']}
            <MI 23880  BRA     0x23888>                                         {[-4-]|[2, '(A6+0xa)']}
        <POP 23882-23888 Naked>                              Σ-4 Δ-2    ↓ ←0x2385c
            <MI 23882  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0xa)']}
            <Call 0x23884 0x231f6>                                              {[-4-]|[2, '(A6+0xa)']}
        <POP 23888-2388c Naked>                              Σ-6 Δ+6    ↓ ←0x23854 ←0x2387a
            <POP 23888-2388a StackAdj>                       Δ+2                {[-4-]}
            <POP 2388a-2388c StackAdj>                       Δ+4                {}
        <POP 2388c-23894 Epilogue>                           Σ0         ←0x2371a

0x23894


@ 23894
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 23894-238fa Body>                                              
        <POP 23894-238aa Prologue>                           Σ0         ↓
        <POP 238aa-238b2 RegCacheLoad>                       Σ0         ↓
        <POP 238b2-238c8 Naked>                              Σ0         ↓ →0x238ce
            <MI 238b2  MOVE.W  #0x21c0,D0>                                      {}
            <MI 238b6  MULS.W  (A6+0xa),D0>                                     {}
            <MI 238b8  LEA.L   0x2578e,A0>                                      {}
            <MI 238be  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 238c2  TST.B   (A6+0x8)>                                        {}
            <MI 238c6  BEQ     0x238ce>                                         {}
        <POP 238c8-238ce Naked>                              Σ0         →0x238d8
            <MI 238c8  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 238cc  BRA     0x238d8>                                         {}
        <POP 238ce-238d8 Naked>                              Σ0         ↓ ←0x238b2
            <MI 238ce  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x238d0 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x238d2 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 238d6-238d8 StackAdj>                       Δ+6                {}
        <POP 238d8-238dc Naked>                              Σ0         ↓ →0x238f2 ←0x238c8
            <MI 238d8  TST.B   (A6-0x4)>                                        {}
            <MI 238da  BEQ     0x238f2>                                         {}
        <POP 238dc-238e2 Naked>                              Σ0         ↓ →0x238ea
            <MI 238dc  TST.L   (A0+0x244)>                                      {}
            <MI 238e0  BEQ     0x238ea>                                         {}
        <POP 238e2-238ea Naked>                              Σ0         ↓
            <MI 238e2  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x238e4 0x22aca>                                              {[2, '(A6+0xa)']}
            <POP 238e8-238ea StackAdj>                       Δ+2                {}
        <POP 238ea-238f2 Naked>                              Σ0         ↓ ←0x238dc
            <MI 238ea  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x238ec 0x23536>                                              {[2, '(A6+0xa)']}
            <POP 238f0-238f2 StackAdj>                       Δ+2                {}
        <POP 238f2-238fa Epilogue>                           Σ0         ←0x238d8

0x238fa


@ 238fa
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 238fa-23960 Body>                                              
        <POP 238fa-23910 Prologue>                           Σ0         ↓
        <POP 23910-23918 RegCacheLoad>                       Σ0         ↓
        <POP 23918-2392e Naked>                              Σ0         ↓ →0x23934
            <MI 23918  MOVE.W  #0x21c0,D0>                                      {}
            <MI 2391c  MULS.W  (A6+0xa),D0>                                     {}
            <MI 2391e  LEA.L   0x2578e,A0>                                      {}
            <MI 23924  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23928  TST.B   (A6+0x8)>                                        {}
            <MI 2392c  BEQ     0x23934>                                         {}
        <POP 2392e-23934 Naked>                              Σ0         →0x2393e
            <MI 2392e  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 23932  BRA     0x2393e>                                         {}
        <POP 23934-2393e Naked>                              Σ0         ↓ ←0x23918
            <MI 23934  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x23936 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x23938 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 2393c-2393e StackAdj>                       Δ+6                {}
        <POP 2393e-23942 Naked>                              Σ0         ↓ →0x23958 ←0x2392e
            <MI 2393e  TST.B   (A6-0x4)>                                        {}
            <MI 23940  BEQ     0x23958>                                         {}
        <POP 23942-23948 Naked>                              Σ0         ↓ →0x23950
            <MI 23942  TST.L   (A0+0x244)>                                      {}
            <MI 23946  BEQ     0x23950>                                         {}
        <POP 23948-23950 Naked>                              Σ0         ↓
            <MI 23948  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x2394a 0x22aca>                                              {[2, '(A6+0xa)']}
            <POP 2394e-23950 StackAdj>                       Δ+2                {}
        <POP 23950-23958 Naked>                              Σ0         ↓ ←0x23942
            <MI 23950  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x23952 0x233d6>                                              {[2, '(A6+0xa)']}
            <POP 23956-23958 StackAdj>                       Δ+2                {}
        <POP 23958-23960 Epilogue>                           Σ0         ←0x2393e

0x23960


@ 23960
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 23960-239c6 Body>                                              
        <POP 23960-23976 Prologue>                           Σ0         ↓
        <POP 23976-2397e RegCacheLoad>                       Σ0         ↓
        <POP 2397e-23994 Naked>                              Σ0         ↓ →0x2399a
            <MI 2397e  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23982  MULS.W  (A6+0xa),D0>                                     {}
            <MI 23984  LEA.L   0x2578e,A0>                                      {}
            <MI 2398a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 2398e  TST.B   (A6+0x8)>                                        {}
            <MI 23992  BEQ     0x2399a>                                         {}
        <POP 23994-2399a Naked>                              Σ0         →0x239a4
            <MI 23994  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 23998  BRA     0x239a4>                                         {}
        <POP 2399a-239a4 Naked>                              Σ0         ↓ ←0x2397e
            <MI 2399a  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x2399c <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x2399e 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 239a2-239a4 StackAdj>                       Δ+6                {}
        <POP 239a4-239a8 Naked>                              Σ0         ↓ →0x239be ←0x23994
            <MI 239a4  TST.B   (A6-0x4)>                                        {}
            <MI 239a6  BEQ     0x239be>                                         {}
        <POP 239a8-239ae Naked>                              Σ0         ↓ →0x239b6
            <MI 239a8  TST.L   (A0+0x244)>                                      {}
            <MI 239ac  BEQ     0x239b6>                                         {}
        <POP 239ae-239b6 Naked>                              Σ0         ↓
            <MI 239ae  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x239b0 0x22aca>                                              {[2, '(A6+0xa)']}
            <POP 239b4-239b6 StackAdj>                       Δ+2                {}
        <POP 239b6-239be Naked>                              Σ0         ↓ ←0x239a8
            <MI 239b6  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x239b8 0x23536>                                              {[2, '(A6+0xa)']}
            <POP 239bc-239be StackAdj>                       Δ+2                {}
        <POP 239be-239c6 Epilogue>                           Σ0         ←0x239a4

0x239c6


@ 239c6
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 239c6-23a26 Body>                                              
        <POP 239c6-239dc Prologue>                           Σ0         ↓
        <POP 239dc-239e4 RegCacheLoad>                       Σ0         ↓
        <POP 239e4-239fa Naked>                              Σ0         ↓ →0x23a00
            <MI 239e4  MOVE.W  #0x21c0,D0>                                      {}
            <MI 239e8  MULS.W  (A6+0xa),D0>                                     {}
            <MI 239ea  LEA.L   0x2578e,A0>                                      {}
            <MI 239f0  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 239f4  TST.B   (A6+0x8)>                                        {}
            <MI 239f8  BEQ     0x23a00>                                         {}
        <POP 239fa-23a00 Naked>                              Σ0         →0x23a0a
            <MI 239fa  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 239fe  BRA     0x23a0a>                                         {}
        <POP 23a00-23a0a Naked>                              Σ0         ↓ ←0x239e4
            <MI 23a00  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x23a02 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x23a04 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 23a08-23a0a StackAdj>                       Δ+6                {}
        <POP 23a0a-23a0e Naked>                              Σ0         ↓ →0x23a1e ←0x239fa
            <MI 23a0a  TST.B   (A6-0x4)>                                        {}
            <MI 23a0c  BEQ     0x23a1e>                                         {}
        <POP 23a0e-23a1e Naked>                              Σ0         ↓
            <MI 23a0e  CLR.B   (A0+0x22b)>                                      {}
            <MI 23a12  CLR.L   (A0+0x248)>                                      {}
            <MI 23a16  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x23a18 0x231f6>                                              {[2, '(A6+0xa)']}
            <POP 23a1c-23a1e StackAdj>                       Δ+2                {}
        <POP 23a1e-23a26 Epilogue>                           Σ0         ←0x23a0a

0x23a26


@ 23a26
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
    <POP 23a26-23a86 Body>                                              
        <POP 23a26-23a3c Prologue>                           Σ0         ↓
        <POP 23a3c-23a44 RegCacheLoad>                       Σ0         ↓
        <POP 23a44-23a5a Naked>                              Σ0         ↓ →0x23a60
            <MI 23a44  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23a48  MULS.W  (A6+0xa),D0>                                     {}
            <MI 23a4a  LEA.L   0x2578e,A0>                                      {}
            <MI 23a50  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23a54  TST.B   (A6+0x8)>                                        {}
            <MI 23a58  BEQ     0x23a60>                                         {}
        <POP 23a5a-23a60 Naked>                              Σ0         →0x23a6a
            <MI 23a5a  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 23a5e  BRA     0x23a6a>                                         {}
        <POP 23a60-23a6a Naked>                              Σ0         ↓ ←0x23a44
            <MI 23a60  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x23a62 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, '(A6+0xa)']|[@@-4]}
            <Call 0x23a64 0x23126>                                              {[2, '(A6+0xa)']|[@@-4]}
            <POP 23a68-23a6a StackAdj>                       Δ+6                {}
        <POP 23a6a-23a6e Naked>                              Σ0         ↓ →0x23a7e ←0x23a5a
            <MI 23a6a  TST.B   (A6-0x4)>                                        {}
            <MI 23a6c  BEQ     0x23a7e>                                         {}
        <POP 23a6e-23a7e Naked>                              Σ0         ↓
            <MI 23a6e  CLR.B   (A0+0x22b)>                                      {}
            <MI 23a72  CLR.L   (A0+0x248)>                                      {}
            <MI 23a76  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x23a78 0x2323c>                                              {[2, '(A6+0xa)']}
            <POP 23a7c-23a7e StackAdj>                       Δ+2                {}
        <POP 23a7e-23a86 Epilogue>                           Σ0         ←0x23a6a

0x23a86


@ 23a86
    <POP 23a86-23ad2 Body>                                              
        <POP 23a86-23a9c Prologue>                           Σ0         ↓
        <POP 23a9c-23a9e Naked>                              Σ0         ↓
            <MI 23a9c  MOVEQ.L #0x00,D7>                                        {}
        <POP 23a9e-23ab4 Naked>                              Σ0         ↓ →0x23ac2 ←0x23ac2
            <MI 23a9e  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23aa2  MULS.W  D7,D0>                                           {}
            <MI 23aa4  LEA.L   0x2578e,A0>                                      {}
            <MI 23aaa  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23aae  TST.B   (A0+0x22a)>                                      {}
            <MI 23ab2  BEQ     0x23ac2>                                         {}
        <POP 23ab4-23ac2 Naked>                              Σ0         ↓
            <MI 23ab4  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x23ab6 0x22bfe>                                              {[2, 'D7']}
            <POP 23aba-23abc StackAdj>                       Δ+2                {}
            <MI 23abc  ADDQ.L  #0x1,0x2579e>                                    {}
        <POP 23ac2-23aca Naked>                              Σ0         ↓ →0x23a9e ←0x23a9e
            <MI 23ac2  ADDQ.W  #0x1,D7>                                         {}
            <MI 23ac4  CMPI.W  #0x0003,D7>                                      {}
            <MI 23ac8  BLE     0x23a9e>                                         {}
        <POP 23aca-23ad2 Epilogue>                           Σ0         

0x23ad2


@ 23ad2
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 23ad2-23bcc Body>                                   Δ+24       
        <POP 23ad2-23ae8 Prologue>                           Σ0         ↓
        <POP 23ae8-23aee RegCacheLoad>                       Σ0         ↓
        <POP 23aee-23af0 Naked>                              Σ0         ↓
            <MI 23aee  MOVEQ.L #0x00,D7>                                        {}
        <POP 23af0-23b08 Naked>                              Σ0         ↓ →0x23bba ←0x23bba
            <MI 23af0  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23af4  MULS.W  D7,D0>                                           {}
            <MI 23af6  LEA.L   0x2578e,A0>                                      {}
            <MI 23afc  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23b00  TST.B   (A0+0x22a)>                                      {}
            <MI 23b04  BEQ     0x23bba>                                         {}
        <POP 23b08-23b24 Naked>                              Σ0         ↓ →0x23bba
            <MI 23b08  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b0a  ADDI.W  #0x0010,(A7)>                                    {[-2-]}
            <Pointer.fp 0x23b0e <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Pointer.fp 0x23b12 <LVAR -0x001 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]|[@@-1]}
            <Call 0x23b14 0x20e28>                                              {[-2-]|[@@-2]|[@@-1]}
            <POP 23b18-23b1c StackAdj>                       Δ+10               {}
            <MI 23b1c  TST.B   (A6-0x2)>                                        {}
            <MI 23b20  BEQ     0x23bba>                                         {}
        <POP 23b24-23b3c Naked>                              Σ0         →0x23baa →0x23b4a →0x23b5a →0x23b9a →0x23b6a →0x23b7a →0x23b8a
            <MI 23b24  MOVE.B  (A0+0x22c),D0>                                   {}
            <MI 23b28  EXTB.W  D0>                                              {}
            <POP 0x23b2a LimitCheck 0x0 ≤ D0 ≤ 0x6>                             {}
            <MI 23b32  ADD.W   D0,D0>                                           {}
            <MI 23b34  SWITCH  D0.W>                                            {}
        <POP 23b4a-23b5a Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b4a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b4c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b4e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23b50 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23b52  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23b54 0x23a26>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23b58  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23b5a-23b6a Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b5a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b5c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b5e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23b60 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23b62  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23b64 0x23424>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23b68  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23b6a-23b7a Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b6a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b6c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b6e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23b70 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23b72  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23b74 0x23894>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23b78  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23b7a-23b8a Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b7a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b7c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b7e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23b80 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23b82  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23b84 0x238fa>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23b88  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23b8a-23b9a Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b8a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b8c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b8e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23b90 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23b92  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23b94 0x23960>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23b98  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23b9a-23baa Naked>                              Σ0 Δ-4     →0x23bb8 ←0x23b24
            <MI 23b9a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23b9c  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23b9e  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23ba0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23ba2  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23ba4 0x236d2>                                              {[2, 'D7']|[2, 'D0']}
            <MI 23ba8  BRA     0x23bb8>                                         {[2, 'D7']|[2, 'D0']}
        <POP 23baa-23bb8 Naked>                              Σ0 Δ-4     ↓ ←0x23b24
            <MI 23baa  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23bac  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 23bae  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x23bb0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 23bb2  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x23bb4 0x239c6>                                              {[2, 'D7']|[2, 'D0']}
        <POP 23bb8-23bba Naked>                              Σ-4 Δ+4    ↓ ←0x23b4a ←0x23b5a ←0x23b6a ←0x23b7a ←0x23b8a ←0x23b9a
            <POP 23bb8-23bba StackAdj>                       Δ+4                {}
        <POP 23bba-23bc4 Naked>                              Σ0         ↓ →0x23af0 ←0x23af0 ←0x23b08
            <MI 23bba  ADDQ.W  #0x1,D7>                                         {}
            <MI 23bbc  CMPI.W  #0x0003,D7>                                      {}
            <MI 23bc0  BLE     0x23af0>                                         {}
        <POP 23bc4-23bcc Epilogue>                           Σ0         

0x23bcc


@ 23bcc
        <LVAR -0x002 @>
    <POP 23bcc-23c1a Body>                                              
        <POP 23bcc-23be2 Prologue>                           Σ0         ↓
        <POP 23be2-23be4 Naked>                              Σ0         ↓
            <MI 23be2  MOVEQ.L #0x00,D7>                                        {}
        <POP 23be4-23bfa Naked>                              Σ0         ↓ →0x23c0a ←0x23c0a
            <MI 23be4  MOVE.W  #0x21c0,D0>                                      {}
            <MI 23be8  MULS.W  D7,D0>                                           {}
            <MI 23bea  LEA.L   0x2578e,A0>                                      {}
            <MI 23bf0  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23bf4  TST.B   (A0+0x22a)>                                      {}
            <MI 23bf8  BEQ     0x23c0a>                                         {}
        <POP 23bfa-23c0a Naked>                              Σ0         ↓
            <MI 23bfa  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 23bfc  ADDI.W  #0x0010,(A7)>                                    {[-2-]}
            <Pointer.fp 0x23c00 <LVAR -0x002 @>>             Δ-4                {[-2-]|[@@-2]}
            <Call 0x23c04 0x2115a>                                              {[-2-]|[@@-2]}
            <POP 23c08-23c0a StackAdj>                       Δ+6                {}
        <POP 23c0a-23c12 Naked>                              Σ0         ↓ →0x23be4 ←0x23be4
            <MI 23c0a  ADDQ.W  #0x1,D7>                                         {}
            <MI 23c0c  CMPI.W  #0x0003,D7>                                      {}
            <MI 23c10  BLE     0x23be4>                                         {}
        <POP 23c12-23c1a Epilogue>                           Σ0         

0x23c1a


@ 23c1a
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 2(r)>
        <LVAR -0x008 @ 2(r)>
        <LVAR -0x00a @>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 2(w)>
        <LVAR -0x012 2(w)>
        <LVAR -0x014 2(r)>
        <LVAR -0x016 2(w)>
        <LVAR -0x018 2(r)>
        <LVAR -0x01a @ 2(r)>
    <POP 23c1a-23c9e Body>                                              
        <POP 23c1a-23c30 Prologue>                           Σ0         ↓
        <POP 23c30-23c32 RegCacheLoad>                       Σ0         ↓
        <POP 23c32-23c92 Naked>                              Σ0         ↓ →0x23c96
            <MI 23c32  CLR.W   (A6-0x1a)>                                       {}
            <MI 23c36  CLR.W   (A6-0x18)>                                       {}
            <MI 23c3a  MOVE.W  #0x2,(A6-0x16)>                                  {}
            <MI 23c40  CLR.W   (A6-0x14)>                                       {}
            <MI 23c44  MOVE.W  #0x4,(A6-0x12)>                                  {}
            <MI 23c4a  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 23c4e  ASL.W   #0x8,D0>                                         {}
            <MI 23c50  MOVE.W  D0,(A6-0x10)>                                    {}
            <MI 23c54  CLR.W   (A6-0xe)>                                        {}
            <MI 23c58  CLR.W   (A6-0xc)>                                        {}
            <Pointer.fp 0x23c5c <LVAR -0x01a @ 2(r)>>        Δ-4                {[@@-26]}
            <MI 23c60  LEA.L   (A6-0x8),A0>                                     {[@@-26]}
            <MI 23c64  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-26]|[4, 'A0']}
            <Const 0x23c66 0x1c.2>                           Δ-2                {[@@-26]|[4, 'A0']|[#28]}
            <Const 0x23c68 0x0.4>                            Δ-4                {[@@-26]|[4, 'A0']|[#28]|[##0]}
            <Const 0x23c6c 0x8.4>                            Δ-4                {[@@-26]|[4, 'A0']|[#28]|[##0]|[##8]}
            <Call 0x23c70 0x21244>                                              {[@@-26]|[4, 'A0']|[#28]|[##0]|[##8]}
            <POP 23c74-23c78 StackAdj>                       Δ+16               {[-2-]}
            <POP 23c78-23c79 StackAdj>                       Δ+2                {}
            <Const 0x23c79 0x1c.2>                           Δ-2                {[#28]}
            <Pointer.fp 0x23c7a <LVAR -0x00a @>>             Δ-4                {[#28]|[@@-10]}
            <Call 0x23c7e 0x2115a>                                              {[#28]|[@@-10]}
            <POP 23c82-23c84 StackAdj>                       Δ+6                {}
            <MI 23c84  CLR.B   (A6+0xa)>                                        {}
            <MI 23c88  MOVE.W  (A6-0x8),D0>                                     {}
            <MI 23c8c  CMPI.W  #0x0001,D0>                                      {}
            <MI 23c90  BNE     0x23c96>                                         {}
        <POP 23c92-23c96 Naked>                              Σ0         ↓
            <MI 23c92  ADDQ.B  #0x1,(A6+0xa)>                                   {}
        <POP 23c96-23c9e Epilogue>                           Σ0         ←0x23c32

0x23c9e


@ 23c9e
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x3d6 2(r)>
        <LVAR -0x3da 2(r)>
        <LVAR -0x3fb 1(r)>
        <LVAR -0x3fc 1(r)>
        <LVAR -0x406 @>
    <POP 23c9e-23dbe Body>                                              
        <POP 23c9e-23cb4 Prologue>                           Σ0         ↓
        <POP 23cb4-23cba RegCacheLoad>                       Σ0         ↓
        <POP 23cba-23cf4 Naked>                              Σ0         ↓ →0x23d40
            <MI 23cba  MOVE.W  0x10008,D0>                                      {}
            <POP 0x23cc0 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 23cc4  MOVE.W  D0,D7>                                           {}
            <MI 23cc6  MOVE.W  (A6+0x8),0x10008>                                {}
            <Const 0x23ccc 0x2.2>                            Δ-2                {[#2]}
            <Const 0x23cce 0x2.2>                            Δ-2                {[#2]|[#2]}
            <Const 0x23cd0 0x1.4>                            Δ-4                {[#2]|[#2]|[##1]}
            <MI 23cd4  LEA.L   (A6-0x406),A0>                                   {[#2]|[#2]|[##1]}
            <MI 23cd8  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[#2]|[##1]|[4, 'A0']}
            <Pointer.fp 0x23cda <LVAR -0x006 @ 1(r)>>        Δ-4                {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
            <Call 0x23cde 0x1036c>                                              {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
                RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 23ce4-23ce8 StackAdj>                       Δ+16               {}
            <MI 23ce8  MOVE.W  D7,0x10008>                                      {}
            <MI 23cee  TST.B   (A6-0x6)>                                        {}
            <MI 23cf2  BNE     0x23d40>                                         {}
        <POP 23cf4-23d40 Naked>                              Σ0         ↓
            <Blob 0x23cf4 [28] @>                            Δ-28               {[«28""»]}
            <Const 0x23d06 0xe.2>                            Δ-2                {[«28""»]|[#14]}
            <POP 23d0a-23d0c StackAdj>                       Δ-8                {[«28""»]|[#14]|[-8-]}
            <Lit 0x23d0c 27>                                                    {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]}
            <POP 23d1e-23d20 StackAdj>                       Δ-4                {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
            <MI 23d20  MOVE.W  (A6+0x8),D0>                                     {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
            <MI 23d22  EXTW.L  D0>                                              {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
            <MI 23d24  MOVE.L  D0,-(A7)>                     Δ-4                {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
            <Call 0x23d26 0x102e4>                                              {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 23d2c-23d2e StackAdj>                       Δ+4                {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
            <Call 0x23d2e 0x102d0>                                              {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23d34-23d36 StackAdj>                       Δ+8                {[«28""»]|[#14]|[-4-]}
            <Call 0x23d36 0x103b8>                                              {[«28""»]|[#14]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 23d3c-23d40 StackAdj>                       Δ+34               {}
        <POP 23d40-23db6 Naked>                              Σ0         ↓ ←0x23cba
            <MI 23d40  MOVEQ.L #0x46,D0>                                        {}
            <MI 23d42  MULS.W  (A6+0x8),D0>                                     {}
            <MI 23d44  LEA.L   0x2578e,A0>                                      {}
            <MI 23d4a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23d4e  ADDA.L  #0x892a,A0>                                      {}
            <MI 23d54  CLR.L   (A0+0x2)>                                        {}
            <MI 23d58  CLR.L   (A0+0x6)>                                        {}
            <MI 23d5c  CLR.L   (A0+0xa)>                                        {}
            <MI 23d60  CLR.L   D0>                                              {}
            <MI 23d62  MOVE.W  (A6-0x3da),D0>                                   {}
            <MI 23d66  MOVE.L  D0,(A0+0x1a)>                                    {}
            <MI 23d6a  CLR.L   D0>                                              {}
            <MI 23d6c  MOVE.W  (A6-0x3d6),D0>                                   {}
            <MI 23d70  MOVE.L  D0,(A0+0x1e)>                                    {}
            <MI 23d74  CLR.L   D0>                                              {}
            <MI 23d76  MOVE.B  (A6-0x3fb),D0>                                   {}
            <MI 23d7a  ASR.W   #0x1,D0>                                         {}
            <MI 23d7c  MOVE.W  D0,(A0+0x24)>                                    {}
            <MI 23d80  CLR.L   D0>                                              {}
            <MI 23d82  MOVE.B  (A6-0x3fc),D0>                                   {}
            <MI 23d86  MOVE.W  D0,(A0+0x22)>                                    {}
            <MI 23d8a  MOVE.L  (A0+0x1a),(A0+0x16)>                             {}
            <MI 23d90  CLR.L   (A0+0x12)>                                       {}
            <MI 23d94  CLR.L   (A0+0xe)>                                        {}
            <POP 23d98-23d9a StackAdj>                       Δ-8                {[-8-]}
            <Const 0x23d9a 0x0.4>                            Δ-4                {[-8-]|[##0]}
            <Call 0x23d9e 0x10354>                                              {[-8-]|[##0]}
                Long2Quad(a : Long) : Quad
            <POP 23da4-23da6 StackAdj>                       Δ+4                {[-8-]}
            <MI 23da6  LEA.L   (A0+0x3e),A0>                                    {[-8-]}
            <MI 23daa  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 23db4-23db6 StackAdj>                       Δ+8                {}
        <POP 23db6-23dbe Epilogue>                           Σ0         

0x23dbe


@ 23dbe
    <POP 23dbe-23e1e Body>                                              
        <POP 23dbe-23dd4 Prologue>                           Σ0         ↓
        <POP 23dd4-23dd6 RegCacheLoad>                       Σ0         ↓
        <POP 23dd6-23e16 Naked>                              Σ0         ↓
            <Blob 0x23dd6 [32] @>                            Δ-32               {[«32""»]}
            <POP 23de6-23de8 StackAdj>                       Δ-8                {[«32""»]|[-8-]}
            <Lit 0x23de8 31>                                                    {[«32""»]|[-4-]|[$$Enter report increment [1..500]]}
            <Const 0x23dfc 0x1.4>                            Δ-4                {[«32""»]|[-4-]|[$$Enter report increment [1..500]]|[##1]}
            <Const 0x23e00 0x1f4.4>                          Δ-4                {[«32""»]|[-4-]|[$$Enter report increment [1..500]]|[##1]|[##500]}
            <Call 0x23e04 0x103ec>                                              {[«32""»]|[-4-]|[$$Enter report increment [1..500]]|[##1]|[##500]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 23e0a-23e0e StackAdj>                       Δ+12               {[«32""»]|[-4-]}
            <MI 23e0e  MOVE.L  (A7)+,0x2e526>                Δ+4                {[«32""»]}
            <POP 23e14-23e16 StackAdj>                       Δ+32               {}
        <POP 23e16-23e1e Epilogue>                           Σ0         

0x23e1e


@ 23e1e
    <POP 23e1e-23ffc Body>                                              
        <POP 23e1e-23e34 Prologue>                           Σ0         ↓
        <POP 23e34-23e48 RegCacheLoad>                       Σ0         ↓
        <POP 23e48-23e78 Naked>                              Σ0         ↓ →0x23eac
            <Blob 0x23e48 [14] @>                            Δ-14               {[«14""»]}
            <POP 23e54-23e56 StackAdj>                       Δ-6                {[«14""»]|[-6-]}
            <Lit 0x23e56 14>                                                    {[«14""»]|[-2-]|[$$Exercise Disks]}
            <POP 23e60-23e62 StackAdj>                       Δ-2                {[«14""»]|[-2-]|[$$Exercise Disks]|[-2-]}
            <POP 23e62-23e63 StackAdj>                       Δ+2                {[«14""»]|[-2-]|[$$Exercise Disks]}
            <Const 0x23e63 0x1.2>                            Δ-2                {[«14""»]|[-2-]|[$$Exercise Disks]|[#1]}
            <Call 0x23e64 0x103f0>                                              {[«14""»]|[-2-]|[$$Exercise Disks]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23e6a-23e6c StackAdj>                       Δ+6                {[«14""»]|[-2-]}
            <MI 23e6c  MOVE.B  (A7)+,D0>                     Δ+2                {[«14""»]}
            <MI 23e6e  EXTB.W  D0>                                              {[«14""»]}
            <POP 0x23e70 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«14""»]}
            <POP 23e72-23e74 StackAdj>                       Δ+14               {}
            <MI 23e74  MOVE.B  D0,D6>                                           {}
            <MI 23e76  BEQ     0x23eac>                                         {}
        <POP 23e78-23eac Naked>                              Σ0         ↓
            <Blob 0x23e78 [32] @>                            Δ-32               {[«32""»]}
            <POP 23e88-23e8a StackAdj>                       Δ-6                {[«32""»]|[-6-]}
            <Lit 0x23e8a 31>                                                    {[«32""»]|[-2-]|[$$Do all I/O to the same cylinder]}
            <POP 23e96-23e98 StackAdj>                       Δ-2                {[«32""»]|[-2-]|[$$Do all I/O to the same cylinder]|[-2-]}
            <MI 23e98  CLR.B   (A7)>                                            {[«32""»]|[-2-]|[$$Do all I/O to the same cylinder]|[-2-]}
            <Call 0x23e9a 0x103f0>                                              {[«32""»]|[-2-]|[$$Do all I/O to the same cylinder]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23ea0-23ea2 StackAdj>                       Δ+6                {[«32""»]|[-2-]}
            <MI 23ea2  MOVE.B  (A7)+,D0>                     Δ+2                {[«32""»]}
            <MI 23ea4  EXTB.W  D0>                                              {[«32""»]}
            <POP 0x23ea6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«32""»]}
            <POP 23ea8-23eaa StackAdj>                       Δ+32               {}
            <MI 23eaa  MOVE.B  D0,D5>                                           {}
        <POP 23eac-23eae Naked>                              Σ0         ↓ ←0x23e48
            <MI 23eac  MOVEQ.L #0x00,D7>                                        {}
        <POP 23eae-23ec6 Naked>                              Σ0         ↓ →0x23ed4 ←0x23f2c
            <MI 23eae  MOVEQ.L #0x46,D0>                                        {}
            <MI 23eb0  MULS.W  D7,D0>                                           {}
            <MI 23eb2  LEA.L   0x2578e,A0>                                      {}
            <MI 23eb8  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23ebc  ADDA.L  #0x892a,A0>                                      {}
            <MI 23ec2  TST.B   D6>                                              {}
            <MI 23ec4  BEQ     0x23ed4>                                         {}
        <POP 23ec6-23ed4 Naked>                              Σ0         ↓ →0x23ed8
            <POP 23ec6-23ec8 StackAdj>                       Δ-2                {[-2-]}
            <MI 23ec8  MOVE.W  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x23eca 0x23c1a>                                              {[-2-]|[2, 'D7']}
            <POP 23ece-23ed0 StackAdj>                       Δ+2                {[-2-]}
            <MI 23ed0  TST.B   (A7)+>                        Δ+2                {}
            <MI 23ed2  BNE     0x23ed8>                                         {}
        <POP 23ed4-23ed8 Naked>                              Σ0         →0x23f20 ←0x23eae
            <MI 23ed4  CLR.B   (A0)>                                            {}
            <MI 23ed6  BRA     0x23f20>                                         {}
        <POP 23ed8-23f20 Naked>                              Σ0         ↓ ←0x23ec6
            <Blob 0x23ed8 [20] @>                            Δ-20               {[«20""»]}
            <POP 23ee8-23eec StackAdj>                       Δ-10               {[«20""»]|[-10-]}
            <Lit 0x23eec 19>                                                    {[«20""»]|[-6-]|[$$Exercise Disk unit_]}
            <POP 23ef8-23efa StackAdj>                       Δ-4                {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]}
            <MI 23efa  MOVE.W  D7,D0>                                           {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]}
            <MI 23efc  EXTW.L  D0>                                              {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]}
            <MI 23efe  MOVE.L  D0,-(A7)>                     Δ-4                {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]|[4, 'D0']}
            <Call 0x23f00 0x102e4>                                              {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 23f02-23f04 StackAdj>                       Δ+4                {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]}
            <Call 0x23f04 0x102d0>                                              {[«20""»]|[-6-]|[$$Exercise Disk unit_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23f0a-23f0c StackAdj>                       Δ+6                {[«20""»]|[-6-]|[-2-]}
            <POP 23f0c-23f0d StackAdj>                       Δ+2                {[«20""»]|[-6-]}
            <Const 0x23f0d 0x1.2>                            Δ-2                {[«20""»]|[-6-]|[#1]}
            <Call 0x23f0e 0x103f0>                                              {[«20""»]|[-6-]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23f14-23f16 StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 23f16  MOVE.B  (A7)+,D0>                     Δ+2                {[«20""»]}
            <MI 23f18  EXTB.W  D0>                                              {[«20""»]}
            <POP 0x23f1a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]}
            <POP 23f1c-23f1e StackAdj>                       Δ+20               {}
            <MI 23f1e  MOVE.B  D0,(A0)>                                         {}
        <POP 23f20-23f24 Naked>                              Σ0         ↓ →0x23f2c ←0x23ed4
            <MI 23f20  TST.B   (A0)>                                            {}
            <MI 23f22  BEQ     0x23f2c>                                         {}
        <POP 23f24-23f2c Naked>                              Σ0         ↓
            <MI 23f24  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x23f26 0x23c9e>                                              {[2, 'D7']}
            <POP 23f2a-23f2c StackAdj>                       Δ+2                {}
        <POP 23f2c-23f36 Naked>                              Σ0         ↓ →0x23eae ←0x23f20
            <MI 23f2c  ADDQ.W  #0x1,D7>                                         {}
            <MI 23f2e  CMPI.W  #0x000f,D7>                                      {}
            <MI 23f32  BLE     0x23eae>                                         {}
        <POP 23f36-23f38 Naked>                              Σ0         ↓
            <MI 23f36  MOVEQ.L #0x00,D7>                                        {}
        <POP 23f38-23f52 Naked>                              Σ0         ↓ →0x23fea ←0x23fea
            <MI 23f38  MOVEQ.L #0x46,D0>                                        {}
            <MI 23f3a  MULS.W  D7,D0>                                           {}
            <MI 23f3c  LEA.L   0x2578e,A0>                                      {}
            <MI 23f42  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 23f46  ADDA.L  #0x892a,A0>                                      {}
            <MI 23f4c  TST.B   (A0)>                                            {}
            <MI 23f4e  BEQ     0x23fea>                                         {}
        <POP 23f52-23f56 Naked>                              Σ0         ↓ →0x23f5c
            <MI 23f52  TST.B   D5>                                              {}
            <MI 23f54  BEQ     0x23f5c>                                         {}
        <POP 23f56-23f5c Naked>                              Σ0         ↓
            <MI 23f56  MOVE.L  (A0+0x1a),(A0+0x1e)>                             {}
        <POP 23f5c-23fea Naked>                              Σ0         ↓ ←0x23f52
            <Blob 0x23f5c [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x23f6c [20] @>                            Δ-20               {[«14""»]|[«20""»]}
            <Blob 0x23f7c [2] @>                             Δ-2                {[«14""»]|[«20""»]|[«2""»]}
            <Blob 0x23f80 [2] @>                             Δ-2                {[«14""»]|[«20""»]|[«2""»]|[«2""»]}
            <POP 23f84-23f86 StackAdj>                       Δ-8                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x23f86 13>                                                    {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]}
            <POP 23f92-23f94 StackAdj>                       Δ-4                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
            <MI 23f94  MOVE.W  D7,D0>                                           {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
            <MI 23f96  EXTW.L  D0>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
            <MI 23f98  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D0']}
            <Call 0x23f9a 0x102e4>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <Lit 0x23f9c 19>                                                    {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[$$, using cylinders []}
            <MI 23fa8  MOVE.L  (A0+0x1a),(A7)>                                  {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']}
            <POP 23fa6-23fa8 StackAdj>                       Δ-8                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-8-]}
            <Call 0x23fac 0x102e4>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x23fae 2>                                                     {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]}
            <MI 23fba  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']}
            <POP 23fb8-23fba StackAdj>                       Δ-8                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']|[-8-]}
            <Call 0x23fbe 0x102e4>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x23fc0 2>                                                     {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']|[-4-]|[$$] ]}
            <Call 0x23fce 0x102d0>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']|[-4-]|[$$] ]}
                StringCat2(a, b : String) : String
            <POP 23fd4-23fd6 StackAdj>                       Δ+8                {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']}
            <Call 0x23fd6 0x102e0>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+0x1a)']|[-4-]|[$$..]|[4, '(A0+0x1e)']}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 23fdc-23fe0 StackAdj>                       Δ+24               {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
            <Call 0x23fe0 0x103e0>                                              {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23fe6-23fea StackAdj>                       Δ+42               {}
        <POP 23fea-23ff4 Naked>                              Σ0         ↓ →0x23f38 ←0x23f38
            <MI 23fea  ADDQ.W  #0x1,D7>                                         {}
            <MI 23fec  CMPI.W  #0x000f,D7>                                      {}
            <MI 23ff0  BLE     0x23f38>                                         {}
        <POP 23ff4-23ffc Epilogue>                           Σ0         

0x23ffc


@ 23ffc
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00c 2(w)>
        <LVAR -0x010 @>
        <LVAR -0x012 @>
    <POP 23ffc-2405c Body>                                              
        <POP 23ffc-24012 Prologue>                           Σ0         ↓
        <POP 24012-24014 RegCacheLoad>                       Σ0         ↓
        <POP 24014-24054 Naked>                              Σ0         ↓
            <MI 24014  MOVE.W  #0x2,(A6-0xc)>                                   {}
            <MI 2401a  MOVE.W  #0x4,(A6-0x8)>                                   {}
            <MI 24020  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 24024  ASL.W   #0x8,D0>                                         {}
            <MI 24026  ADDQ.W  #0x1,D0>                                         {}
            <MI 24028  MOVE.W  D0,(A6-0x6)>                                     {}
            <Pointer.fp 0x2402c <LVAR -0x010 @>>             Δ-4                {[@@-16]}
            <MI 24030  MOVEA.L (A6+0x8),A0>                                     {[@@-16]}
            <MI 24034  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-16]|[4, 'A0']}
            <Const 0x24036 0x1c.2>                           Δ-2                {[@@-16]|[4, 'A0']|[#28]}
            <Const 0x24038 0x0.4>                            Δ-4                {[@@-16]|[4, 'A0']|[#28]|[##0]}
            <Const 0x2403c 0x16.4>                           Δ-4                {[@@-16]|[4, 'A0']|[#28]|[##0]|[##22]}
            <Call 0x24040 0x21244>                                              {[@@-16]|[4, 'A0']|[#28]|[##0]|[##22]}
            <POP 24044-24048 StackAdj>                       Δ+16               {[-2-]}
            <POP 24048-24049 StackAdj>                       Δ+2                {}
            <Const 0x24049 0x1c.2>                           Δ-2                {[#28]}
            <Pointer.fp 0x2404a <LVAR -0x012 @>>             Δ-4                {[#28]|[@@-18]}
            <Call 0x2404e 0x2115a>                                              {[#28]|[@@-18]}
            <POP 24052-24054 StackAdj>                       Δ+6                {}
        <POP 24054-2405c Epilogue>                           Σ0         

0x2405c


@ 2405c
        <LVAR  0x008 2(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(w)>
        <LVAR -0x00c 2(w)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x012 2(w)>
        <LVAR -0x016 @ 2(w)>
    <POP 2405c-24150 Body>                                              
        <POP 2405c-24072 Prologue>                           Σ0         ↓
        <POP 24072-24084 RegCacheLoad>                       Σ0         ↓
        <POP 24084-24148 Naked>                              Σ0         ↓
            <MI 24084  MOVEQ.L #0x46,D0>                                        {}
            <MI 24086  MULS.W  (A6+0x8),D0>                                     {}
            <MI 24088  LEA.L   0x2578e,A0>                                      {}
            <MI 2408e  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24092  ADDA.L  #0x892a,A0>                                      {}
            <POP 24098-2409a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2409a 0x20cc2>                                              {[-4-]}
            <MI 2409e  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x240a0 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 240a6  MOVE.W  D0,(A0+0x26)>                                    {}
            <POP 240aa-240ac StackAdj>                       Δ-4                {[-4-]}
            <Const 0x240ac 0x0.4>                            Δ-4                {[-4-]|[##0]}
            <MI 240ae  CLR.L   D0>                                              {[-4-]|[##0]}
            <MI 240b0  MOVE.W  (A0+0x24),D0>                                    {[-4-]|[##0]}
            <MI 240b4  SUBQ.L  #0x1,D0>                                         {[-4-]|[##0]}
            <MI 240b6  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[##0]|[4, 'D0']}
            <Call 0x240b8 0x20c68>                                              {[-4-]|[##0]|[4, 'D0']}
            <POP 240ba-240bc StackAdj>                       Δ+8                {[-4-]}
            <MI 240bc  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 240be  ASL.L   #0x1,D0>                                         {}
            <MI 240c0  MOVE.L  D0,(A0+0xe)>                                     {}
            <POP 240c4-240c6 StackAdj>                       Δ-4                {[-4-]}
            <Const 0x240c6 0x0.4>                            Δ-4                {[-4-]|[##0]}
            <MI 240c8  CLR.L   D0>                                              {[-4-]|[##0]}
            <MI 240ca  MOVE.W  (A0+0x22),D0>                                    {[-4-]|[##0]}
            <MI 240ce  SUBQ.L  #0x1,D0>                                         {[-4-]|[##0]}
            <MI 240d0  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[##0]|[4, 'D0']}
            <Call 0x240d2 0x20c68>                                              {[-4-]|[##0]|[4, 'D0']}
            <POP 240d4-240d6 StackAdj>                       Δ+8                {[-4-]}
            <MI 240d6  MOVE.L  (A7),(A0+0x12)>                                  {[-4-]}
            <MI 240da  MOVE.L  (A0+0x1a),-(A7)>              Δ-4                {[-4-]|[4, '(A0+0x1a)']}
            <MI 240de  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[-4-]|[4, '(A0+0x1a)']|[4, '(A0+0x1e)']}
            <Call 0x240e2 0x20c68>                                              {[-4-]|[4, '(A0+0x1a)']|[4, '(A0+0x1e)']}
            <POP 240e4-240e6 StackAdj>                       Δ+8                {[-4-]}
            <MI 240e6  MOVE.L  (A7)+,(A0+0x16)>              Δ+4                {}
            <MI 240ea  MOVE.W  #0x100,(A6-0x16)>                                {}
            <MI 240f0  MOVE.W  #0x2,(A6-0x12)>                                  {}
            <MI 240f6  CLR.W   (A6-0xe)>                                        {}
            <MI 240fa  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 240fc  ASL.W   #0x8,D0>                                         {}
            <MI 240fe  ADDI.W  #0x000b,D0>                                      {}
            <MI 24102  MOVE.W  D0,(A6-0xc)>                                     {}
            <MI 24106  MOVE.L  (A0+0x16),D0>                                    {}
            <POP 0x2410a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 24110  MOVE.W  D0,(A6-0xa)>                                     {}
            <MI 24114  MOVE.L  (A0+0x12),D0>                                    {}
            <MI 24118  ASL.L   #0x8,D0>                                         {}
            <MI 2411a  ADD.L   (A0+0xe),D0>                                     {}
            <POP 0x2411e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 24124  MOVE.W  D0,(A6-0x8)>                                     {}
            <Pointer.fp 0x24128 <LVAR -0x016 @ 2(w)>>        Δ-4                {[@@-22]}
            <MI 2412c  LEA.L   (A0+0x26),A1>                                    {[@@-22]}
            <MI 24130  MOVE.L  A1,-(A7)>                     Δ-4                {[@@-22]|[4, 'A1']}
            <MI 24132  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']}
            <Const 0x24134 0x2.4>                            Δ-4                {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']|[##2]}
            <Const 0x24138 0x0.4>                            Δ-4                {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']|[##2]|[##0]}
            <Call 0x2413a 0x21244>                                              {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']|[##2]|[##0]}
            <POP 2413e-24142 StackAdj>                       Δ+18               {}
            <MI 24142  MOVE.B  #0x01,(A0+0x1)>                                  {}
        <POP 24148-24150 Epilogue>                           Σ0         

0x24150


@ 24150
        <LVAR  0x008 2(r)>
        <LVAR -0x004 2(w)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x012 @ 2(w)>
    <POP 24150-241ec Body>                                              
        <POP 24150-24166 Prologue>                           Σ0         ↓
        <POP 24166-2416a RegCacheLoad>                       Σ0         ↓
        <POP 2416a-241e4 Naked>                              Σ0         ↓
            <MI 2416a  MOVEQ.L #0x46,D0>                                        {}
            <MI 2416c  MULS.W  (A6+0x8),D0>                                     {}
            <MI 2416e  LEA.L   0x2578e,A0>                                      {}
            <MI 24174  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24178  ADDA.L  #0x892a,A0>                                      {}
            <MI 2417e  MOVE.W  #0x100,(A6-0x12)>                                {}
            <MI 24184  MOVE.W  #0x2,(A6-0xe)>                                   {}
            <MI 2418a  CLR.W   (A6-0xa)>                                        {}
            <MI 2418e  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 24190  ASL.W   #0x8,D0>                                         {}
            <MI 24192  ADDI.W  #0x000c,D0>                                      {}
            <MI 24196  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 2419a  MOVE.L  (A0+0x16),D0>                                    {}
            <POP 0x2419e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 241a8  MOVE.W  D0,(A6-0x6)>                                     {}
            <MI 241ac  MOVE.L  (A0+0x12),D0>                                    {}
            <MI 241b0  ASL.L   #0x8,D0>                                         {}
            <MI 241b2  ADD.L   (A0+0xe),D0>                                     {}
            <POP 0x241b6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 241c0  MOVE.W  D0,(A6-0x4)>                                     {}
            <Pointer.fp 0x241c4 <LVAR -0x012 @ 2(w)>>        Δ-4                {[@@-18]}
            <MI 241c8  LEA.L   (A0+0x26),A1>                                    {[@@-18]}
            <MI 241cc  MOVE.L  A1,-(A7)>                     Δ-4                {[@@-18]|[4, 'A1']}
            <MI 241ce  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
            <Const 0x241d0 0x2.4>                            Δ-4                {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']|[##2]}
            <Const 0x241d4 0x0.4>                            Δ-4                {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']|[##2]|[##0]}
            <Call 0x241d8 0x21244>                                              {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']|[##2]|[##0]}
            <POP 241dc-241e0 StackAdj>                       Δ+18               {}
            <MI 241e0  CLR.B   (A0+0x1)>                                        {}
        <POP 241e4-241ec Epilogue>                           Σ0         

0x241ec


@ 241ec
        <LVAR  0x008 4(r)>
    <POP 241ec-2427c Body>                                              
        <POP 241ec-24202 Prologue>                           Σ0         ↓
        <POP 24202-2420a RegCacheLoad>                       Σ0         ↓
        <POP 2420a-24210 Naked>                              Σ0         ↓ →0x24222
            <MI 2420a  MOVEA.L (A4+0x8),A0>                                     {}
            <MI 2420c  TST.W   (A0)>                                            {}
            <MI 2420e  BNE     0x24222>                                         {}
        <POP 24210-24222 Naked>                              Σ0         →0x24274
            <POP 24210-24212 StackAdj>                       Δ-4                {[-4-]}
            <MI 24212  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A4+0x8)']}
            <MI 24214  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A4+0x8)']|[4, '(A6+0x8)']}
            <Call 0x24216 0x102d0>                                              {[-4-]|[4, '(A4+0x8)']|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 2421c-2421e StackAdj>                       Δ+8                {[-4-]}
            <MI 2421e  MOVE.L  (A7)+,(A4+0x8)>               Δ+4                {}
            <MI 24220  BRA     0x24274>                                         {}
        <POP 24222-24238 Naked>                              Σ0         ↓ →0x24268 ←0x2420a
            <MI 24222  MOVE.W  (A0),D0>                                         {}
            <MI 24224  EXTW.L  D0>                                              {}
            <MI 24226  ADDQ.L  #0x2,D0>                                         {}
            <MI 24228  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2422a  MOVE.W  (A0),D1>                                         {}
            <MI 2422c  EXTW.L  D1>                                              {}
            <MI 2422e  ADD.L   D0,D1>                                           {}
            <MI 24230  CMPI.L  #0x00000050,D1>                                  {}
            <MI 24236  BGT     0x24268>                                         {}
        <POP 24238-24268 Naked>                              Σ0         →0x24274
            <Blob 0x24238 [2] @>                             Δ-2                {[«2""»]}
            <POP 2423c-2423e StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 2423e  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']}
            <POP 24240-24242 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']|[-4-]}
            <Lit 0x24242 2>                                                     {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]}
            <POP 24254-24256 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[-4-]}
            <MI 24256  MOVE.L  (A6+0x8),(A7)>                                   {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[4, '(A6+0x8)']}
            <Call 0x24258 0x102d4>                                              {[«2""»]|[-4-]|[4, '(A4+0x8)']|[$$,_]|[4, '(A6+0x8)']}
                StringCat3(a, b, c : String) : String
            <POP 2425e-24262 StackAdj>                       Δ+12               {[«2""»]|[-4-]}
            <MI 24262  MOVE.L  (A7)+,(A4+0x8)>               Δ+4                {[«2""»]}
            <POP 24264-24266 StackAdj>                       Δ+2                {}
            <MI 24266  BRA     0x24274>                                         {}
        <POP 24268-24274 Naked>                              Σ0         ↓ ←0x24222
            <MI 24268  MOVE.L  (A4+0x8),-(A7)>               Δ-4                {[4, '(A4+0x8)']}
            <Call 0x2426a 0x103e0>                                              {[4, '(A4+0x8)']}
                WriteConsoleStringCrLf(str : String)
            <POP 24270-24272 StackAdj>                       Δ+4                {}
            <MI 24272  MOVE.L  (A6+0x8),(A4+0x8)>                               {}
        <POP 24274-2427c Epilogue>                           Σ0         ←0x24210 ←0x24238

0x2427c


@ 2427c
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00e @ 4(r)>
    <POP 2427c-24b68 Body>                                              
        <POP 2427c-24292 Prologue>                           Σ0         ↓
        <POP 24292-2429e RegCacheLoad>                       Σ0         ↓
        <POP 2429e-2438a Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x2429e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x242a2 0x102b8>                                              {[@@-6]}
                NewString(VAR a : String)
            <POP 242a8-242aa StackAdj>                       Δ+4                {}
            <Pointer.fp 0x242aa <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Call 0x242ae 0x10304>                                              {[@@-14]}
                GetRtc() : TimeStamp
            <POP 242b4-242b6 StackAdj>                       Δ+4                {}
            <MI 242b6  MOVEQ.L #0x46,D0>                                        {}
            <MI 242b8  MULS.W  (A6+0x8),D0>                                     {}
            <MI 242bc  LEA.L   0x2578e,A0>                                      {}
            <MI 242c2  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 242c6  ADDA.L  #0x892a,A0>                                      {}
            <MI 242cc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x242ce [4] @>                             Δ-4                {[4, 'A0']|[«4""»]}
            <Blob 0x242d2 [4] @>                             Δ-4                {[4, 'A0']|[«4""»]|[«4""»]}
            <Blob 0x242d6 [4] @>                             Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x242da [2] @>                             Δ-2                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <Blob 0x242de [2] @>                             Δ-2                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]}
            <POP 242e2-242e4 StackAdj>                       Δ-8                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x242e4 12>                                                    {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]}
            <POP 242f0-242f2 StackAdj>                       Δ-12               {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]}
            <MI 242f2  MOVE.W  (A6+0x8),D0>                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]}
            <MI 242f6  EXTW.L  D0>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]}
            <MI 242f8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[4, 'D0']}
            <Call 0x242fa 0x102e4>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[4, 'D0']}
                Long2String(a : Long) : String
            <Lit 0x24300 2>                                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[$$, ]}
            <Call 0x2430e 0x102d0>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[$$, ]}
                StringCat2(a, b : String) : String
            <POP 24314-24316 StackAdj>                       Δ+8                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]}
            <Const 0x24316 0x4.4>                            Δ-4                {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[##4]}
            <Call 0x2431a 0x102f8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[##4]}
                LeftPad(a : String; b : Long) : String
            <MI 24320  MOVE.L  (A6-0xe),(A7)>                                   {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[4, '(A6-0xe)']}
            <Call 0x24324 0x10308>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[4, '(A6-0xe)']}
                TimeToText()
            <Lit 0x2432a 2>                                                     {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[$$,_]}
            <Call 0x24338 0x102d8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[$$,_]}
                StringCat4(a, b, c, d : String) : String
            <POP 2433e-24340 StackAdj>                       Δ+16               {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]}
            <Call 0x24340 0x103d8>                                              {[4, 'A0']|[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 24346-24348 StackAdj>                       Δ+20               {[4, 'A0']}
            <Blob 0x24348 [18] @>                            Δ-18               {[4, 'A0']|[«18""»]}
            <POP 24354-24356 StackAdj>                       Δ-4                {[4, 'A0']|[«18""»]|[-4-]}
            <MI 24356  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']}
            <POP 2435a-2435c StackAdj>                       Δ-4                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
            <Lit 0x2435c 18>                                                    {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[$$ error, retries =>]}
            <MI 24368  MOVE.L  (A0+0xa),(A7)>                                   {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+0xa)']}
            <POP 24366-24368 StackAdj>                       Δ-8                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+0xa)']|[-8-]}
            <Call 0x2436c 0x102e4>                                              {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+0xa)']|[-8-]}
                Long2String(a : Long) : String
            <POP 24372-24374 StackAdj>                       Δ+4                {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+0xa)']|[-4-]}
            <Call 0x24374 0x102d4>                                              {[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+0xa)']|[-4-]}
                StringCat3(a, b, c : String) : String
            <POP 2437a-2437e StackAdj>                       Δ+12               {[4, 'A0']|[«18""»]|[-4-]}
            <Call 0x2437e 0x103e0>                                              {[4, 'A0']|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24384-24388 StackAdj>                       Δ+22               {[4, 'A0']}
            <MI 24388  MOVEQ.L #0x00,D7>                                        {[4, 'A0']}
        <POP 2438a-24404 Naked>                              Σ-4        ↓ →0x2438a ←0x2438a
            <POP 0x2438a LimitCheck 0x0 ≤ D7 ≤ 0x8>                             {[-4-]}
            <MI 24394  MOVE.L  D7,D4>                                           {[-4-]}
            <MI 24396  MOVEQ.L #0x05,D3>                                        {[-4-]}
            <Call 0x24398 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <MI 2439e  LEA.L   0x20c14,A0>                                      {[-4-]}
            <Blob 0x243a2 [6] (A0+D4.L)>                     Δ-6                {[-4-]|[«6»]}
            <POP 243b2-243b4 StackAdj>                       Δ-8                {[-4-]|[«6»]|[-8-]}
            <Lit 0x243b4>                                                       {[-4-]|[«6»]|[-4-]|[$$…]}
                <Pointer.sp 0x243b4 8>                       Δ-4        
                <Const 0x243b8 0x1.2>                        Δ-2        
                <Const 0x243ba 0x5.2>                        Δ-2        
                <Call 0x243be 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 243c0-243c2 StackAdj>                   Δ+8        
            <POP 243c0-243c2 StackAdj>                       Δ-4                {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <POP 0x243c2 LimitCheck 0x0 ≤ D7 ≤ 0xa>                             {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243cc  MOVE.L  D7,D0>                                           {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243ce  ASL.L   #0x1,D0>                                         {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243d0  MOVEA.L (A7+0x12),A0>                                    {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243d4  CLR.L   D1>                                              {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243d6  MOVE.W  (A0+D0.L+#0x28),D1>                              {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 243da  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
            <Const 0x243dc 0x4.4>                            Δ-4                {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
            <Call 0x243e0 0x102e8>                                              {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 243e6-243e8 StackAdj>                       Δ+8                {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
            <Call 0x243e8 0x102d0>                                              {[-4-]|[«6»]|[-4-]|[$$…]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 243ee-243f0 StackAdj>                       Δ+8                {[-4-]|[«6»]|[-4-]}
            <Call 0x243f0 0x103d8>                                              {[-4-]|[«6»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 243f6-243fa StackAdj>                       Δ+10               {[-4-]}
            <MI 243fa  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 243fc  CMPI.L  #0x00000008,D7>                                  {[-4-]}
            <MI 24402  BLE     0x2438a>                                         {[-4-]}
        <POP 24404-24416 Naked>                              Σ-4        ↓ →0x24444
            <Call 0x24404 0x103dc>                                              {[-4-]}
                WriteConsoleCrLf(void)
            <MI 2440a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2440c  MOVE.W  (A0+0x28),D0>                                    {[-4-]}
            <MI 24410  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 24414  BEQ     0x24444>                                         {[-4-]}
        <POP 24416-24444 Naked>                              Σ-4        ↓
            <Blob 0x24416 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 24428-2442a StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x2442a 17>                                                    {[-4-]|[«18""»]|[$$Special condition]}
            <MI 24438  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Special condition]}
            <Call 0x2443c 0x241ec>                                              {[-4-]|[«18""»]|[$$Special condition]}
            <POP 24440-24444 StackAdj>                       Δ+22               {[-4-]}
        <POP 24444-2444e Naked>                              Σ-4        ↓ →0x24476 ←0x24404
            <MI 24444  MOVE.W  (A0+0x28),D0>                                    {[-4-]}
            <MI 24448  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 2444c  BEQ     0x24476>                                         {[-4-]}
        <POP 2444e-24476 Naked>                              Σ-4        ↓
            <Blob 0x2444e [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 2445a-2445c StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x2445c 14>                                                    {[-4-]|[«14""»]|[$$Transfer error]}
            <MI 2446a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Transfer error]}
            <Call 0x2446e 0x241ec>                                              {[-4-]|[«14""»]|[$$Transfer error]}
            <POP 24472-24476 StackAdj>                       Δ+18               {[-4-]}
        <POP 24476-24480 Naked>                              Σ-4        ↓ →0x244a8 ←0x24444
            <MI 24476  MOVE.W  (A0+0x28),D0>                                    {[-4-]}
            <MI 2447a  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 2447e  BNE     0x244a8>                                         {[-4-]}
        <POP 24480-244a8 Naked>                              Σ-4        ↓
            <Blob 0x24480 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 2448c-2448e StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x2448e 22>                                                    {[-4-]|[«22""»]|[$$Drive is not available]}
            <MI 2449c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Drive is not available]}
            <Call 0x244a0 0x241ec>                                              {[-4-]|[«22""»]|[$$Drive is not available]}
            <POP 244a4-244a8 StackAdj>                       Δ+26               {[-4-]}
        <POP 244a8-244b2 Naked>                              Σ-4        ↓ →0x244da ←0x24476
            <MI 244a8  MOVE.W  (A0+0x28),D0>                                    {[-4-]}
            <MI 244ac  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 244b0  BNE     0x244da>                                         {[-4-]}
        <POP 244b2-244da Naked>                              Σ-4        ↓
            <Blob 0x244b2 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 244be-244c0 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x244c0 18>                                                    {[-4-]|[«18""»]|[$$Drive is not ready]}
            <MI 244ce  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Drive is not ready]}
            <Call 0x244d2 0x241ec>                                              {[-4-]|[«18""»]|[$$Drive is not ready]}
            <POP 244d6-244da StackAdj>                       Δ+22               {[-4-]}
        <POP 244da-244e4 Naked>                              Σ-4        ↓ →0x24512 ←0x244a8
            <MI 244da  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 244de  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 244e2  BEQ     0x24512>                                         {[-4-]}
        <POP 244e4-24512 Naked>                              Σ-4        ↓
            <Blob 0x244e4 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 244f6-244f8 StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x244f8 9>                                                     {[-4-]|[«10""»]|[$$Data late]}
            <MI 24506  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Data late]}
            <Call 0x2450a 0x241ec>                                              {[-4-]|[«10""»]|[$$Data late]}
            <POP 2450e-24512 StackAdj>                       Δ+14               {[-4-]}
        <POP 24512-2451c Naked>                              Σ-4        ↓ →0x2454a ←0x244da
            <MI 24512  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 24516  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 2451a  BEQ     0x2454a>                                         {[-4-]}
        <POP 2451c-2454a Naked>                              Σ-4        ↓
            <Blob 0x2451c [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 2452e-24530 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x24530 17>                                                    {[-4-]|[«18""»]|[$$Write check error]}
            <MI 2453e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Write check error]}
            <Call 0x24542 0x241ec>                                              {[-4-]|[«18""»]|[$$Write check error]}
            <POP 24546-2454a StackAdj>                       Δ+22               {[-4-]}
        <POP 2454a-24554 Naked>                              Σ-4        ↓ →0x2457c ←0x24512
            <MI 2454a  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 2454e  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 24552  BEQ     0x2457c>                                         {[-4-]}
        <POP 24554-2457c Naked>                              Σ-4        ↓
            <Blob 0x24554 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 24560-24562 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x24562 18>                                                    {[-4-]|[«18""»]|[$$Non-existent drive]}
            <MI 24570  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Non-existent drive]}
            <Call 0x24574 0x241ec>                                              {[-4-]|[«18""»]|[$$Non-existent drive]}
            <POP 24578-2457c StackAdj>                       Δ+22               {[-4-]}
        <POP 2457c-24586 Naked>                              Σ-4        ↓ →0x245b2 ←0x2454a
            <MI 2457c  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 24580  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 24584  BEQ     0x245b2>                                         {[-4-]}
        <POP 24586-245b2 Naked>                              Σ-4        ↓
            <Blob 0x24586 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 24596-24598 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x24598 19>                                                    {[-4-]|[«20""»]|[$$Non-existent memory]}
            <MI 245a6  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Non-existent memory]}
            <Call 0x245aa 0x241ec>                                              {[-4-]|[«20""»]|[$$Non-existent memory]}
            <POP 245ae-245b2 StackAdj>                       Δ+24               {[-4-]}
        <POP 245b2-245bc Naked>                              Σ-4        ↓ →0x245ea ←0x2457c
            <MI 245b2  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 245b6  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 245ba  BEQ     0x245ea>                                         {[-4-]}
        <POP 245bc-245ea Naked>                              Σ-4        ↓
            <Blob 0x245bc [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 245ce-245d0 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x245d0 13>                                                    {[-4-]|[«14""»]|[$$Program error]}
            <MI 245de  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Program error]}
            <Call 0x245e2 0x241ec>                                              {[-4-]|[«14""»]|[$$Program error]}
            <POP 245e6-245ea StackAdj>                       Δ+18               {[-4-]}
        <POP 245ea-245f4 Naked>                              Σ-4        ↓ →0x2461e ←0x245b2
            <MI 245ea  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 245ee  ANDI.W  #0x0200,D0>                                      {[-4-]}
            <MI 245f2  BEQ     0x2461e>                                         {[-4-]}
        <POP 245f4-2461e Naked>                              Σ-4        ↓
            <Blob 0x245f4 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 24604-24606 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x24606 15>                                                    {[-4-]|[«16""»]|[$$Missed transfer]}
            <MI 24614  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Missed transfer]}
            <Call 0x24618 0x241ec>                                              {[-4-]|[«16""»]|[$$Missed transfer]}
            <POP 2461c-2461e StackAdj>                       Δ+20               {[-4-]}
        <POP 2461e-24628 Naked>                              Σ-4        ↓ →0x24652 ←0x245ea
            <MI 2461e  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 24622  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 24626  BNE     0x24652>                                         {[-4-]}
        <POP 24628-24652 Naked>                              Σ-4        ↓
            <Blob 0x24628 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 24638-2463a StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x2463a 15>                                                    {[-4-]|[«16""»]|[$$Input not ready]}
            <MI 24648  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Input not ready]}
            <Call 0x2464c 0x241ec>                                              {[-4-]|[«16""»]|[$$Input not ready]}
            <POP 24650-24652 StackAdj>                       Δ+20               {[-4-]}
        <POP 24652-2465c Naked>                              Σ-4        ↓ →0x2468a ←0x2461e
            <MI 24652  MOVE.W  (A0+0x2a),D0>                                    {[-4-]}
            <MI 24656  ANDI.W  #0x0004,D0>                                      {[-4-]}
            <MI 2465a  BEQ     0x2468a>                                         {[-4-]}
        <POP 2465c-2468a Naked>                              Σ-4        ↓
            <Blob 0x2465c [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 2466e-24670 StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x24670 29>                                                    {[-4-]|[«30""»]|[$$Bus address increment inhibit]}
            <MI 2467e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«30""»]|[$$Bus address increment inhibit]}
            <Call 0x24682 0x241ec>                                              {[-4-]|[«30""»]|[$$Bus address increment inhibit]}
            <POP 24686-2468a StackAdj>                       Δ+34               {[-4-]}
        <POP 2468a-24694 Naked>                              Σ-4        ↓ →0x246c2 ←0x24652
            <MI 2468a  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 2468e  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 24692  BEQ     0x246c2>                                         {[-4-]}
        <POP 24694-246c2 Naked>                              Σ-4        ↓
            <Blob 0x24694 [24] @>                            Δ-24               {[-4-]|[«24""»]}
            <POP 246a6-246a8 StackAdj>                       Δ-4                {[-4-]|[«24""»]|[-4-]}
            <Lit 0x246a8 23>                                                    {[-4-]|[«24""»]|[$$Positioning in progress]}
            <MI 246b6  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«24""»]|[$$Positioning in progress]}
            <Call 0x246ba 0x241ec>                                              {[-4-]|[«24""»]|[$$Positioning in progress]}
            <POP 246be-246c2 StackAdj>                       Δ+28               {[-4-]}
        <POP 246c2-246cc Naked>                              Σ-4        ↓ →0x246f4 ←0x2468a
            <MI 246c2  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 246c6  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 246ca  BNE     0x246f4>                                         {[-4-]}
        <POP 246cc-246f4 Naked>                              Σ-4        ↓
            <Blob 0x246cc [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 246d8-246da StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x246da 18>                                                    {[-4-]|[«18""»]|[$$Medium not on-line]}
            <MI 246e8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Medium not on-line]}
            <Call 0x246ec 0x241ec>                                              {[-4-]|[«18""»]|[$$Medium not on-line]}
            <POP 246f0-246f4 StackAdj>                       Δ+22               {[-4-]}
        <POP 246f4-246fe Naked>                              Σ-4        ↓ →0x24724 ←0x246c2
            <MI 246f4  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 246f8  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 246fc  BEQ     0x24724>                                         {[-4-]}
        <POP 246fe-24724 Naked>                              Σ-4        ↓
            <Blob 0x246fe [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x24702 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x24706 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2470a-2470c StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2470c 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <MI 2471a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <Call 0x2471e 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
            <POP 24722-24724 StackAdj>                       Δ+16               {[-4-]}
        <POP 24724-2472e Naked>                              Σ-4        ↓ →0x24756 ←0x246f4
            <MI 24724  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 24728  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 2472c  BEQ     0x24756>                                         {[-4-]}
        <POP 2472e-24756 Naked>                              Σ-4        ↓
            <Blob 0x2472e [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 2473a-2473c StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x2473c 22>                                                    {[-4-]|[«22""»]|[$$Last sector transfered]}
            <MI 2474a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Last sector transfered]}
            <Call 0x2474e 0x241ec>                                              {[-4-]|[«22""»]|[$$Last sector transfered]}
            <POP 24752-24756 StackAdj>                       Δ+26               {[-4-]}
        <POP 24756-24760 Naked>                              Σ-4        ↓ →0x2478e ←0x24724
            <MI 24756  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 2475a  ANDI.W  #0x0100,D0>                                      {[-4-]}
            <MI 2475e  BNE     0x2478e>                                         {[-4-]}
        <POP 24760-2478e Naked>                              Σ-4        ↓
            <Blob 0x24760 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 24772-24774 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x24774 17>                                                    {[-4-]|[«18""»]|[$$Drive not present]}
            <MI 24782  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Drive not present]}
            <Call 0x24786 0x241ec>                                              {[-4-]|[«18""»]|[$$Drive not present]}
            <POP 2478a-2478e StackAdj>                       Δ+22               {[-4-]}
        <POP 2478e-24798 Naked>                              Σ-4        ↓ →0x247c2 ←0x24756
            <MI 2478e  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 24792  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 24796  BNE     0x247c2>                                         {[-4-]}
        <POP 24798-247c2 Naked>                              Σ-4        ↓
            <Blob 0x24798 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 247a8-247aa StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x247aa 15>                                                    {[-4-]|[«16""»]|[$$Drive not ready]}
            <MI 247b8  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Drive not ready]}
            <Call 0x247bc 0x241ec>                                              {[-4-]|[«16""»]|[$$Drive not ready]}
            <POP 247c0-247c2 StackAdj>                       Δ+20               {[-4-]}
        <POP 247c2-247cc Naked>                              Σ-4        ↓ →0x247f4 ←0x2478e
            <MI 247c2  MOVE.W  (A0+0x2c),D0>                                    {[-4-]}
            <MI 247c6  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 247ca  BNE     0x247f4>                                         {[-4-]}
        <POP 247cc-247f4 Naked>                              Σ-4        ↓
            <Blob 0x247cc [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x247d0 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x247d4 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x247d8 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 247dc-247de StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x247de 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
            <MI 247ea  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
            <Call 0x247ee 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
            <POP 247f2-247f4 StackAdj>                       Δ+20               {[-4-]}
        <POP 247f4-247fe Naked>                              Σ-4        ↓ →0x24826 ←0x247c2
            <MI 247f4  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 247f8  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 247fc  BEQ     0x24826>                                         {[-4-]}
        <POP 247fe-24826 Naked>                              Σ-4        ↓
            <Blob 0x247fe [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x24802 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x24806 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2480a [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2480e-24810 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24810 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
            <MI 2481c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
            <Call 0x24820 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
            <POP 24824-24826 StackAdj>                       Δ+20               {[-4-]}
        <POP 24826-24830 Naked>                              Σ-4        ↓ →0x24858 ←0x247f4
            <MI 24826  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 2482a  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 2482e  BEQ     0x24858>                                         {[-4-]}
        <POP 24830-24858 Naked>                              Σ-4        ↓
            <Blob 0x24830 [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <Blob 0x24834 [2] @>                             Δ-2                {[-4-]|[«2""»]|[«2""»]}
            <Blob 0x24838 [2] @>                             Δ-2                {[-4-]|[«2""»]|[«2""»]|[«2""»]}
            <POP 2483c-2483e StackAdj>                       Δ-4                {[-4-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2483e 6>                                                     {[-4-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
            <MI 2484c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
            <Call 0x24850 0x241ec>                                              {[-4-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
            <POP 24854-24858 StackAdj>                       Δ+10               {[-4-]}
        <POP 24858-24862 Naked>                              Σ-4        ↓ →0x24888 ←0x24826
            <MI 24858  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 2485c  ANDI.W  #0x2000,D0>                                      {[-4-]}
            <MI 24860  BEQ     0x24888>                                         {[-4-]}
        <POP 24862-24888 Naked>                              Σ-4        ↓
            <Blob 0x24862 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 2486e-24870 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x24870 20>                                                    {[-4-]|[«20""»]|[$$Operation incomplete]}
            <MI 2487c  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Operation incomplete]}
            <Call 0x24880 0x241ec>                                              {[-4-]|[«20""»]|[$$Operation incomplete]}
            <POP 24884-24888 StackAdj>                       Δ+24               {[-4-]}
        <POP 24888-24892 Naked>                              Σ-4        ↓ →0x248ba ←0x24858
            <MI 24888  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 2488c  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 24890  BEQ     0x248ba>                                         {[-4-]}
        <POP 24892-248ba Naked>                              Σ-4        ↓
            <Blob 0x24892 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 2489e-248a0 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x248a0 18>                                                    {[-4-]|[«18""»]|[$$Drive timing error]}
            <MI 248ae  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«18""»]|[$$Drive timing error]}
            <Call 0x248b2 0x241ec>                                              {[-4-]|[«18""»]|[$$Drive timing error]}
            <POP 248b6-248ba StackAdj>                       Δ+22               {[-4-]}
        <POP 248ba-248c4 Naked>                              Σ-4        ↓ →0x248ec ←0x24888
            <MI 248ba  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 248be  ANDI.W  #0x0800,D0>                                      {[-4-]}
            <MI 248c2  BEQ     0x248ec>                                         {[-4-]}
        <POP 248c4-248ec Naked>                              Σ-4        ↓
            <Blob 0x248c4 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x248c8 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x248cc [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x248d0 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 248d4-248d6 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x248d6 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <MI 248e2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <Call 0x248e6 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
            <POP 248ea-248ec StackAdj>                       Δ+20               {[-4-]}
        <POP 248ec-248f6 Naked>                              Σ-4        ↓ →0x24924 ←0x248ba
            <MI 248ec  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 248f0  ANDI.W  #0x0400,D0>                                      {[-4-]}
            <MI 248f4  BEQ     0x24924>                                         {[-4-]}
        <POP 248f6-24924 Naked>                              Σ-4        ↓
            <Blob 0x248f6 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 24908-2490a StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x2490a 21>                                                    {[-4-]|[«22""»]|[$$Invalid address error]}
            <MI 24918  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Invalid address error]}
            <Call 0x2491c 0x241ec>                                              {[-4-]|[«22""»]|[$$Invalid address error]}
            <POP 24920-24924 StackAdj>                       Δ+26               {[-4-]}
        <POP 24924-2492e Naked>                              Σ-4        ↓ →0x24956 ←0x248ec
            <MI 24924  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 24928  ANDI.W  #0x0200,D0>                                      {[-4-]}
            <MI 2492c  BEQ     0x24956>                                         {[-4-]}
        <POP 2492e-24956 Naked>                              Σ-4        ↓
            <Blob 0x2492e [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 2493a-2493c StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x2493c 22>                                                    {[-4-]|[«22""»]|[$$Address overflow error]}
            <MI 2494a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«22""»]|[$$Address overflow error]}
            <Call 0x2494e 0x241ec>                                              {[-4-]|[«22""»]|[$$Address overflow error]}
            <POP 24952-24956 StackAdj>                       Δ+26               {[-4-]}
        <POP 24956-24960 Naked>                              Σ-4        ↓ →0x24988 ←0x24924
            <MI 24956  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 2495a  ANDI.W  #0x0100,D0>                                      {[-4-]}
            <MI 2495e  BEQ     0x24988>                                         {[-4-]}
        <POP 24960-24988 Naked>                              Σ-4        ↓
            <Blob 0x24960 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x24964 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x24968 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2496c [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 24970-24972 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24972 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
            <MI 2497e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
            <Call 0x24982 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
            <POP 24986-24988 StackAdj>                       Δ+20               {[-4-]}
        <POP 24988-24992 Naked>                              Σ-4        ↓ →0x249b8 ←0x24956
            <MI 24988  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 2498c  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 24990  BEQ     0x249b8>                                         {[-4-]}
        <POP 24992-249b8 Naked>                              Σ-4        ↓
            <Blob 0x24992 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 2499e-249a0 StackAdj>                       Δ-4                {[-4-]|[«20""»]|[-4-]}
            <Lit 0x249a0 20>                                                    {[-4-]|[«20""»]|[$$Header compare error]}
            <MI 249ac  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«20""»]|[$$Header compare error]}
            <Call 0x249b0 0x241ec>                                              {[-4-]|[«20""»]|[$$Header compare error]}
            <POP 249b4-249b8 StackAdj>                       Δ+24               {[-4-]}
        <POP 249b8-249c2 Naked>                              Σ-4        ↓ →0x249ea ←0x24988
            <MI 249b8  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 249bc  ANDI.W  #0x0040,D0>                                      {[-4-]}
            <MI 249c0  BEQ     0x249ea>                                         {[-4-]}
        <POP 249c2-249ea Naked>                              Σ-4        ↓
            <Blob 0x249c2 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 249ce-249d0 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]}
            <Lit 0x249d0 14>                                                    {[-4-]|[«14""»]|[$$Hard ECC error]}
            <MI 249de  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«14""»]|[$$Hard ECC error]}
            <Call 0x249e2 0x241ec>                                              {[-4-]|[«14""»]|[$$Hard ECC error]}
            <POP 249e6-249ea StackAdj>                       Δ+18               {[-4-]}
        <POP 249ea-249f2 Naked>                              Σ-4        ↓ →0x24a18 ←0x249b8
            <MI 249ea  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 249ee  AND.W   #0x10,D0>                                        {[-4-]}
            <MI 249f0  BEQ     0x24a18>                                         {[-4-]}
        <POP 249f2-24a18 Naked>                              Σ-4        ↓
            <Blob 0x249f2 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x249f6 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x249fa [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 249fe-24a00 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24a00 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
            <MI 24a0e  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
            <Call 0x24a12 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
            <POP 24a16-24a18 StackAdj>                       Δ+16               {[-4-]}
        <POP 24a18-24a22 Naked>                              Σ-4        ↓ →0x24a50 ←0x249ea
            <MI 24a18  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 24a1c  ANDI.W  #0x0004,D0>                                      {[-4-]}
            <MI 24a20  BEQ     0x24a50>                                         {[-4-]}
        <POP 24a22-24a50 Naked>                              Σ-4        ↓
            <Blob 0x24a22 [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 24a34-24a36 StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x24a36 29>                                                    {[-4-]|[«30""»]|[$$Register modification refused]}
            <MI 24a44  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«30""»]|[$$Register modification refused]}
            <Call 0x24a48 0x241ec>                                              {[-4-]|[«30""»]|[$$Register modification refused]}
            <POP 24a4c-24a50 StackAdj>                       Δ+34               {[-4-]}
        <POP 24a50-24a58 Naked>                              Σ-4        ↓ →0x24a80 ←0x24a18
            <MI 24a50  MOVE.W  (A0+0x2e),D0>                                    {[-4-]}
            <MI 24a54  AND.W   #0x01,D0>                                        {[-4-]}
            <MI 24a56  BEQ     0x24a80>                                         {[-4-]}
        <POP 24a58-24a80 Naked>                              Σ-4        ↓
            <Blob 0x24a58 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x24a5c [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x24a60 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x24a64 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 24a68-24a6a StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24a6a 16>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
            <MI 24a76  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
            <Call 0x24a7a 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
            <POP 24a7e-24a80 StackAdj>                       Δ+20               {[-4-]}
        <POP 24a80-24a8a Naked>                              Σ-4        ↓ →0x24ab8 ←0x24a50
            <MI 24a80  MOVE.W  (A0+0x30),D0>                                    {[-4-]}
            <MI 24a84  ANDI.W  #0x8000,D0>                                      {[-4-]}
            <MI 24a88  BEQ     0x24ab8>                                         {[-4-]}
        <POP 24a8a-24ab8 Naked>                              Σ-4        ↓
            <Blob 0x24a8a [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 24a9c-24a9e StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x24a9e 9>                                                     {[-4-]|[«10""»]|[$$Bad block]}
            <MI 24aac  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«10""»]|[$$Bad block]}
            <Call 0x24ab0 0x241ec>                                              {[-4-]|[«10""»]|[$$Bad block]}
            <POP 24ab4-24ab8 StackAdj>                       Δ+14               {[-4-]}
        <POP 24ab8-24ac2 Naked>                              Σ-4        ↓ →0x24aec ←0x24a80
            <MI 24ab8  MOVE.W  (A0+0x30),D0>                                    {[-4-]}
            <MI 24abc  ANDI.W  #0x4000,D0>                                      {[-4-]}
            <MI 24ac0  BEQ     0x24aec>                                         {[-4-]}
        <POP 24ac2-24aec Naked>                              Σ-4        ↓
            <Blob 0x24ac2 [16] @>                            Δ-16               {[-4-]|[«16""»]}
            <POP 24ad2-24ad4 StackAdj>                       Δ-4                {[-4-]|[«16""»]|[-4-]}
            <Lit 0x24ad4 15>                                                    {[-4-]|[«16""»]|[$$Seek incomplete]}
            <MI 24ae2  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«16""»]|[$$Seek incomplete]}
            <Call 0x24ae6 0x241ec>                                              {[-4-]|[«16""»]|[$$Seek incomplete]}
            <POP 24aea-24aec StackAdj>                       Δ+20               {[-4-]}
        <POP 24aec-24af6 Naked>                              Σ-4        ↓ →0x24b24 ←0x24ab8
            <MI 24aec  MOVE.W  (A0+0x30),D0>                                    {[-4-]}
            <MI 24af0  ANDI.W  #0x1000,D0>                                      {[-4-]}
            <MI 24af4  BEQ     0x24b24>                                         {[-4-]}
        <POP 24af6-24b24 Naked>                              Σ-4        ↓
            <Blob 0x24af6 [62] @>                            Δ-62               {[-4-]|[«62""»]}
            <POP 24b08-24b0a StackAdj>                       Δ-4                {[-4-]|[«62""»]|[-4-]}
            <Lit 0x24b0a 61>                                                    {[-4-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
            <MI 24b18  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
            <Call 0x24b1c 0x241ec>                                              {[-4-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
            <POP 24b20-24b24 StackAdj>                       Δ+66               {[-4-]}
        <POP 24b24-24b2e Naked>                              Σ-4        ↓ →0x24b54 ←0x24aec
            <MI 24b24  MOVE.W  (A0+0x30),D0>                                    {[-4-]}
            <MI 24b28  ANDI.W  #0x0080,D0>                                      {[-4-]}
            <MI 24b2c  BEQ     0x24b54>                                         {[-4-]}
        <POP 24b2e-24b54 Naked>                              Σ-4        ↓
            <Blob 0x24b2e [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x24b32 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <Blob 0x24b36 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 24b3a-24b3c StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24b3c 12>                                                    {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
            <MI 24b4a  LEA.L   (A6-0xe),A4>                                     {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
            <Call 0x24b4e 0x241ec>                                              {[-4-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
            <POP 24b52-24b54 StackAdj>                       Δ+16               {[-4-]}
        <POP 24b54-24b60 Naked>                              Σ-4 Δ+4    ↓ ←0x24b24
            <MI 24b54  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Call 0x24b58 0x103e0>                                              {[-4-]|[4, '(A6-0x6)']}
                WriteConsoleStringCrLf(str : String)
            <POP 24b5e-24b60 StackAdj>                       Δ+8                {}
        <POP 24b60-24b68 Epilogue>                           Σ0         

0x24b68


@ 24b68
        <LVAR  0x008 2(r)>
    <POP 24b68-24bd2 Body>                                              
        <POP 24b68-24b7e Prologue>                           Σ0         ↓
        <POP 24b7e-24b82 RegCacheLoad>                       Σ0         ↓
        <POP 24b82-24bca Naked>                              Σ0         ↓
            <Blob 0x24b82 [4] @>                             Δ-4                {[«4""»]}
            <POP 24b86-24b88 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x24b88 4>                                                     {[«4""»]|[$$Hard]}
            <POP 24b9a-24b9c StackAdj>                       Δ-2                {[«4""»]|[$$Hard]|[-2-]}
            <MI 24b9c  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
            <Call 0x24b9e 0x2427c>                                              {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
            <POP 24ba2-24ba6 StackAdj>                       Δ+10               {}
            <MI 24ba6  MOVEQ.L #0x46,D0>                                        {}
            <MI 24ba8  MULS.W  (A6+0x8),D0>                                     {}
            <MI 24baa  LEA.L   0x2578e,A0>                                      {}
            <MI 24bb0  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24bb4  ADDA.L  #0x892a,A0>                                      {}
            <MI 24bba  CLR.L   (A0+0xa)>                                        {}
            <MI 24bbe  ADDQ.L  #0x1,(A0+0x2)>                                   {}
            <MI 24bc2  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x24bc4 0x2405c>                                              {[2, '(A6+0x8)']}
            <POP 24bc8-24bca StackAdj>                       Δ+2                {}
        <POP 24bca-24bd2 Epilogue>                           Σ0         

0x24bd2


@ 24bd2
        <LVAR  0x008 2(r)>
    <POP 24bd2-24c3c Body>                                              
        <POP 24bd2-24be8 Prologue>                           Σ0         ↓
        <POP 24be8-24c34 Naked>                              Σ0         ↓
            <Blob 0x24be8 [4] @>                             Δ-4                {[«4""»]}
            <POP 24bec-24bee StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x24bee 4>                                                     {[«4""»]|[$$Soft]}
            <POP 24c00-24c02 StackAdj>                       Δ-2                {[«4""»]|[$$Soft]|[-2-]}
            <MI 24c02  MOVE.W  (A6+0x8),(A7)>                                   {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
            <Call 0x24c06 0x2427c>                                              {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
            <POP 24c0a-24c0e StackAdj>                       Δ+10               {}
            <MI 24c0e  MOVEQ.L #0x46,D0>                                        {}
            <MI 24c10  MULS.W  (A6+0x8),D0>                                     {}
            <MI 24c14  LEA.L   0x2578e,A0>                                      {}
            <MI 24c1a  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24c1e  ADDA.L  #0x892a,A0>                                      {}
            <MI 24c24  MOVE.L  (A0+0x6),D0>                                     {}
            <MI 24c28  ADD.L   (A0+0xa),D0>                                     {}
            <MI 24c2c  MOVE.L  D0,(A0+0x6)>                                     {}
            <MI 24c30  CLR.L   (A0+0xa)>                                        {}
        <POP 24c34-24c3c Epilogue>                           Σ0         

0x24c3c


@ 24c3c
        <LVAR  0x008 2(r)>
        <LVAR -0x004 2(w)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x012 @ 2(w)>
    <POP 24c3c-24d22 Body>                                              
        <POP 24c3c-24c52 Prologue>                           Σ0         ↓
        <POP 24c52-24c56 RegCacheLoad>                       Σ0         ↓
        <POP 24c56-24c86 Naked>                              Σ0         ↓ →0x24c92
            <MI 24c56  MOVEQ.L #0x46,D0>                                        {}
            <MI 24c58  MULS.W  (A6+0x8),D0>                                     {}
            <MI 24c5a  LEA.L   0x2578e,A0>                                      {}
            <MI 24c60  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24c64  ADDA.L  #0x892a,A0>                                      {}
            <MI 24c6a  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 24c6c  PEA.L   (A0+0x28)>                    Δ-4                {[2, '(A6+0x8)']|[4, '^(A0+0x28)']}
            <Call 0x24c70 0x23ffc>                                              {[2, '(A6+0x8)']|[4, '^(A0+0x28)']}
            <POP 24c74-24c76 StackAdj>                       Δ+6                {}
            <MI 24c76  ADDQ.L  #0x1,(A0+0xa)>                                   {}
            <MI 24c7a  MOVE.L  (A0+0xa),D0>                                     {}
            <MI 24c7e  CMPI.L  #0x0000000a,D0>                                  {}
            <MI 24c84  BNE     0x24c92>                                         {}
        <POP 24c86-24c92 Naked>                              Σ0         →0x24d1a
            <MI 24c86  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x24c88 0x24b68>                                              {[2, '(A6+0x8)']}
            <POP 24c8c-24c8e StackAdj>                       Δ+2                {}
            <MI 24c8e  BRA     0x24d1a>                                         {}
        <POP 24c92-24cba Naked>                              Σ0         →0x24cbe →0x24cc8 ←0x24c56
            <MI 24c92  MOVE.W  #0x100,(A6-0x12)>                                {}
            <MI 24c98  MOVE.W  #0x2,(A6-0xe)>                                   {}
            <MI 24c9e  CLR.W   (A6-0xa)>                                        {}
            <MI 24ca2  MOVE.B  (A0+0x1),D0>                                     {}
            <MI 24ca6  EXTB.W  D0>                                              {}
            <POP 0x24ca8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 24cb0  ADD.W   D0,D0>                                           {}
            <MI 24cb2  SWITCH  D0.W>                                            {}
        <POP 24cbe-24cc8 Naked>                              Σ0         →0x24cd0 ←0x24c92
            <MI 24cbe  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 24cc0  ASL.W   #0x8,D0>                                         {}
            <MI 24cc2  ADDI.W  #0x000c,D0>                                      {}
            <MI 24cc6  BRA     0x24cd0>                                         {}
        <POP 24cc8-24cd0 Naked>                              Σ0         ↓ ←0x24c92
            <MI 24cc8  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 24cca  ASL.W   #0x8,D0>                                         {}
            <MI 24ccc  ADDI.W  #0x000b,D0>                                      {}
        <POP 24cd0-24d1a Naked>                              Σ0         ↓ ←0x24cbe
            <MI 24cd0  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 24cd4  MOVE.L  (A0+0x16),D0>                                    {}
            <POP 0x24cd8 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 24ce2  MOVE.W  D0,(A6-0x6)>                                     {}
            <MI 24ce6  MOVE.L  (A0+0x12),D0>                                    {}
            <MI 24cea  ASL.L   #0x8,D0>                                         {}
            <MI 24cec  ADD.L   (A0+0xe),D0>                                     {}
            <POP 0x24cf0 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 24cfa  MOVE.W  D0,(A6-0x4)>                                     {}
            <Pointer.fp 0x24cfe <LVAR -0x012 @ 2(w)>>        Δ-4                {[@@-18]}
            <MI 24d02  LEA.L   (A0+0x26),A0>                                    {[@@-18]}
            <MI 24d06  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-18]|[4, 'A0']}
            <MI 24d08  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[@@-18]|[4, 'A0']|[2, '(A6+0x8)']}
            <Const 0x24d0a 0x2.4>                            Δ-4                {[@@-18]|[4, 'A0']|[2, '(A6+0x8)']|[##2]}
            <Const 0x24d0e 0x0.4>                            Δ-4                {[@@-18]|[4, 'A0']|[2, '(A6+0x8)']|[##2]|[##0]}
            <Call 0x24d12 0x21244>                                              {[@@-18]|[4, 'A0']|[2, '(A6+0x8)']|[##2]|[##0]}
            <POP 24d16-24d1a StackAdj>                       Δ+18               {}
        <POP 24d1a-24d22 Epilogue>                           Σ0         ←0x24c86

0x24d22


@ 24d22
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
    <POP 24d22-24db4 Body>                                   Δ+2        
        <POP 24d22-24d38 Prologue>                           Σ0         ↓
        <POP 24d38-24d3e RegCacheLoad>                       Σ0         ↓
        <POP 24d3e-24d44 Naked>                              Σ0         ↓ →0x24d4c
            <MI 24d3e  TST.B   (A6+0x8)>                                        {}
            <MI 24d42  BNE     0x24d4c>                                         {}
        <POP 24d44-24d4c Naked>                              Σ0 Δ-2     →0x24daa
            <MI 24d44  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24d46 0x24c3c>                                              {[2, '(A6+0xa)']}
            <MI 24d4a  BRA     0x24daa>                                         {[2, '(A6+0xa)']}
        <POP 24d4c-24d9c Naked>                              Σ0         ↓ →0x24da4 ←0x24d3e
            <MI 24d4c  MOVEQ.L #0x46,D0>                                        {}
            <MI 24d4e  MULS.W  (A6+0xa),D0>                                     {}
            <MI 24d50  LEA.L   0x2578e,A0>                                      {}
            <MI 24d56  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24d5a  ADDA.L  #0x892a,A0>                                      {}
            <POP 24d60-24d61 StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x24d61 [8] (A0+0x3e)>                     Δ-8                {[-8-]|[«8»]}
            <POP 24d70-24d72 StackAdj>                       Δ-8                {[-8-]|[«8»]|[-8-]}
            <Const 0x24d72 0x400.4>                          Δ-4                {[-8-]|[«8»]|[-8-]|[##1024]}
            <Call 0x24d76 0x10354>                                              {[-8-]|[«8»]|[-8-]|[##1024]}
                Long2Quad(a : Long) : Quad
            <POP 24d7c-24d7e StackAdj>                       Δ+4                {[-8-]|[«8»]|[-8-]}
            <Call 0x24d7e 0x10314>                                              {[-8-]|[«8»]|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 24d84-24d86 StackAdj>                       Δ+16               {[-8-]}
            <MI 24d86  LEA.L   (A0+0x3e),A1>                                    {[-8-]}
            <MI 24d8a  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <POP 24d94-24d96 StackAdj>                       Δ+8                {}
            <MI 24d96  TST.L   (A0+0xa)>                                        {}
            <MI 24d9a  BEQ     0x24da4>                                         {}
        <POP 24d9c-24da4 Naked>                              Σ0         ↓
            <MI 24d9c  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24d9e 0x24bd2>                                              {[2, '(A6+0xa)']}
            <POP 24da2-24da4 StackAdj>                       Δ+2                {}
        <POP 24da4-24daa Naked>                              Σ0 Δ-2     ↓ ←0x24d4c
            <MI 24da4  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24da6 0x2405c>                                              {[2, '(A6+0xa)']}
        <POP 24daa-24dac Naked>                              Σ-2 Δ+2    ↓ ←0x24d44
            <POP 24daa-24dac StackAdj>                       Δ+2                {}
        <POP 24dac-24db4 Epilogue>                           Σ0         

0x24db4


@ 24db4
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x010 2(r)>
        <LVAR -0x018 @>
    <POP 24db4-24e66 Body>                                   Δ+2        
        <POP 24db4-24dca Prologue>                           Σ0         ↓
        <POP 24dca-24dd0 RegCacheLoad>                       Σ0         ↓
        <POP 24dd0-24dd6 Naked>                              Σ0         ↓ →0x24dfe
            <MI 24dd0  TST.B   (A6+0x8)>                                        {}
            <MI 24dd4  BNE     0x24dfe>                                         {}
        <POP 24dd6-24dec Naked>                              Σ0         ↓ →0x24df4
            <MI 24dd6  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Pointer.fp 0x24dd8 <LVAR -0x018 @>>             Δ-4                {[2, '(A6+0xa)']|[@@-24]}
            <Call 0x24ddc 0x23ffc>                                              {[2, '(A6+0xa)']|[@@-24]}
            <POP 24de0-24de2 StackAdj>                       Δ+6                {}
            <MI 24de2  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 24de6  ANDI.W  #0x8000,D0>                                      {}
            <MI 24dea  BEQ     0x24df4>                                         {}
        <POP 24dec-24df4 Naked>                              Σ0 Δ-2     →0x24dfa
            <MI 24dec  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24dee 0x2405c>                                              {[2, '(A6+0xa)']}
            <MI 24df2  BRA     0x24dfa>                                         {[2, '(A6+0xa)']}
        <POP 24df4-24dfa Naked>                              Σ0 Δ-2     ↓ ←0x24dd6
            <MI 24df4  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24df6 0x24c3c>                                              {[2, '(A6+0xa)']}
        <POP 24dfa-24dfe Naked>                              Σ-2 Δ+2    →0x24e5e ←0x24dec
            <POP 24dfa-24dfc StackAdj>                       Δ+2                {}
            <MI 24dfc  BRA     0x24e5e>                                         {}
        <POP 24dfe-24e4e Naked>                              Σ0         ↓ →0x24e56 ←0x24dd0
            <MI 24dfe  MOVEQ.L #0x46,D0>                                        {}
            <MI 24e00  MULS.W  (A6+0xa),D0>                                     {}
            <MI 24e02  LEA.L   0x2578e,A0>                                      {}
            <MI 24e08  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 24e0c  ADDA.L  #0x892a,A0>                                      {}
            <POP 24e12-24e13 StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x24e13 [8] (A0+0x3e)>                     Δ-8                {[-8-]|[«8»]}
            <POP 24e22-24e24 StackAdj>                       Δ-8                {[-8-]|[«8»]|[-8-]}
            <Const 0x24e24 0x400.4>                          Δ-4                {[-8-]|[«8»]|[-8-]|[##1024]}
            <Call 0x24e28 0x10354>                                              {[-8-]|[«8»]|[-8-]|[##1024]}
                Long2Quad(a : Long) : Quad
            <POP 24e2e-24e30 StackAdj>                       Δ+4                {[-8-]|[«8»]|[-8-]}
            <Call 0x24e30 0x10314>                                              {[-8-]|[«8»]|[-8-]}
                Add(a, b : Quad) : Quad
            <POP 24e36-24e38 StackAdj>                       Δ+16               {[-8-]}
            <MI 24e38  LEA.L   (A0+0x3e),A1>                                    {[-8-]}
            <MI 24e3c  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <POP 24e46-24e48 StackAdj>                       Δ+8                {}
            <MI 24e48  TST.L   (A0+0xa)>                                        {}
            <MI 24e4c  BEQ     0x24e56>                                         {}
        <POP 24e4e-24e56 Naked>                              Σ0         ↓
            <MI 24e4e  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24e50 0x24bd2>                                              {[2, '(A6+0xa)']}
            <POP 24e54-24e56 StackAdj>                       Δ+2                {}
        <POP 24e56-24e5e Naked>                              Σ0         ↓ ←0x24dfe
            <MI 24e56  MOVE.W  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0xa)']}
            <Call 0x24e58 0x24150>                                              {[2, '(A6+0xa)']}
            <POP 24e5c-24e5e StackAdj>                       Δ+2                {}
        <POP 24e5e-24e66 Epilogue>                           Σ0         ←0x24dfa

0x24e66


@ 24e66
    <POP 24e66-250da Body>                                              
        <POP 24e66-24e7c Prologue>                           Σ0         ↓
        <POP 24e7c-24e8a RegCacheLoad>                       Σ0         ↓
        <POP 24e8a-24e8c Naked>                              Σ0         ↓
            <MI 24e8a  MOVEQ.L #0x00,D7>                                        {}
        <POP 24e8c-24eb2 Naked>                              Σ0         ↓ →0x250ca ←0x250ca
            <POP 0x24e8c LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 24e92  MOVE.L  D7,D4>                                           {}
            <MI 24e94  MOVEQ.L #0x46,D3>                                        {}
            <Call 0x24e96 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 24e9c  LEA.L   0x2578e,A0>                                      {}
            <MI 24ea2  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 24ea6  ADDA.L  #0x892a,A0>                                      {}
            <MI 24eac  TST.B   (A0)>                                            {}
            <MI 24eae  BEQ     0x250ca>                                         {}
        <POP 24eb2-250ca Naked>                              Σ0         ↓
            <Blob 0x24eb2 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24eb6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24eba [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x24ebe [2] @>                             Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <POP 24ec2-24ec4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-8-]}
            <Lit 0x24ec4 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]}
            <POP 24ed2-24ed4 StackAdj>                       Δ-12               {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]}
            <MI 24ed4  MOVE.L  D7,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[4, 'D7']}
            <Call 0x24ed6 0x102e4>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[4, 'D7']}
                Long2String(a : Long) : String
            <Lit 0x24edc 2>                                                     {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[$$, ]}
            <Call 0x24eec 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-12-]|[$$, ]}
                StringCat2(a, b : String) : String
            <POP 24eee-24ef0 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]}
            <Const 0x24ef0 0x4.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[##4]}
            <Call 0x24ef4 0x102f8>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-8-]|[##4]}
                LeftPad(a : String; b : Long) : String
            <POP 24efa-24efc StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-4-]}
            <Call 0x24efc 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]|[$$Disk Unit :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24efe-24f00 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[-4-]}
            <MI 24f00  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <POP 24f02-24f03 StackAdj>                       Δ+14       ↓       {}
            <Blob 0x24f03 [10] @>                            Δ-10               {[«10""»]}
            <POP 24f12-24f14 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <MI 24f14  MOVE.L  A4,-(A7)>                     Δ-4                {[«10""»]|[-4-]|[4, 'A4']}
            <POP 24f16-24f18 StackAdj>                       Δ-4                {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x24f18 9>                                                     {[«10""»]|[-4-]|[4, 'A4']|[$$Bytes =>_]}
            <Call 0x24f2a 0x102d0>                                              {[«10""»]|[-4-]|[4, 'A4']|[$$Bytes =>_]}
                StringCat2(a, b : String) : String
            <POP 24f2c-24f2e StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 24f2e  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 24f30-24f32 StackAdj>                       Δ+2                {[-8-]}
            <MI 24f32  MOVE.L  A4,(A7)>                                         {[-4-]|[4, 'A4']}
            <POP 24f34-24f35 StackAdj>                       Δ-8        ↓       {[-4-]|[4, 'A4']|[-8-]}
            <Blob 0x24f35 [8] (A0+0x3e)>                     Δ-8                {[-4-]|[4, 'A4']|[-8-]|[«8»]}
            <Const 0x24f46 0xa.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
            <Call 0x24f4a 0x1035c>                                              {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 24f50-24f52 StackAdj>                       Δ+12               {[-4-]|[4, 'A4']|[-8-]}
            <Const 0x24f52 0xb.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##11]}
            <Call 0x24f56 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##11]}
                LeftPad(a : String; b : Long) : String
            <POP 24f5c-24f5e StackAdj>                       Δ+8                {[-4-]|[4, 'A4']|[-4-]}
            <Call 0x24f5e 0x102d0>                                              {[-4-]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24f60-24f62 StackAdj>                       Δ+8                {[-4-]}
            <MI 24f62  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x24f64 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24f68 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 24f6c-24f6e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 24f6e  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 24f70-24f72 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x24f72 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$soft =>_]}
            <Call 0x24f84 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$soft =>_]}
                StringCat2(a, b : String) : String
            <POP 24f86-24f88 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 24f88  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <MI 24f8a  MOVE.L  A4,(A7)>                                         {[«4""»]|[4, 'A4']}
            <POP 24f8c-24f8e StackAdj>                       Δ-8                {[«4""»]|[4, 'A4']|[-8-]}
            <MI 24f8e  MOVE.L  (A0+0x6),-(A7)>               Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x6)']}
            <Call 0x24f92 0x102e4>                                              {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x6)']}
                Long2String(a : Long) : String
            <POP 24f98-24f9a StackAdj>                       Δ+4                {[«4""»]|[4, 'A4']|[-8-]}
            <Const 0x24f9a 0x5.4>                            Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[##5]}
            <Call 0x24f9e 0x102f8>                                              {[«4""»]|[4, 'A4']|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 24fa4-24fa6 StackAdj>                       Δ+8                {[«4""»]|[4, 'A4']|[-4-]}
            <Call 0x24fa6 0x102d0>                                              {[«4""»]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24fa8-24faa StackAdj>                       Δ+8                {[«4""»]}
            <MI 24faa  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x24fac [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24fb0 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 24fb4-24fb6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 24fb6  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 24fb8-24fba StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x24fba 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$hard =>_]}
            <Call 0x24fcc 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$hard =>_]}
                StringCat2(a, b : String) : String
            <POP 24fce-24fd0 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 24fd0  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <MI 24fd2  MOVE.L  A4,(A7)>                                         {[«4""»]|[4, 'A4']}
            <POP 24fd4-24fd6 StackAdj>                       Δ-8                {[«4""»]|[4, 'A4']|[-8-]}
            <MI 24fd6  MOVE.L  (A0+0x2),-(A7)>               Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x2)']}
            <Call 0x24fda 0x102e4>                                              {[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+0x2)']}
                Long2String(a : Long) : String
            <POP 24fe0-24fe2 StackAdj>                       Δ+4                {[«4""»]|[4, 'A4']|[-8-]}
            <Const 0x24fe2 0x5.4>                            Δ-4                {[«4""»]|[4, 'A4']|[-8-]|[##5]}
            <Call 0x24fe6 0x102f8>                                              {[«4""»]|[4, 'A4']|[-8-]|[##5]}
                LeftPad(a : String; b : Long) : String
            <POP 24fec-24fee StackAdj>                       Δ+8                {[«4""»]|[4, 'A4']|[-4-]}
            <Call 0x24fee 0x102d0>                                              {[«4""»]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24ff0-24ff2 StackAdj>                       Δ+8                {[«4""»]}
            <MI 24ff2  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x24ff4 [2] @>                             Δ-2                {[«2""»]}
            <POP 24ff8-24ffa StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 24ffa  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-4-]|[4, 'A4']}
            <POP 24ffc-24ffe StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x24ffe 2>                                                     {[«2""»]|[-4-]|[4, 'A4']|[$$C:]}
            <Call 0x2500e 0x102d0>                                              {[«2""»]|[-4-]|[4, 'A4']|[$$C:]}
                StringCat2(a, b : String) : String
            <POP 25010-25012 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <MI 25012  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]}
            <POP 25014-25016 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 25016  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-2-]|[4, 'A4']}
            <POP 25018-2501a StackAdj>                       Δ-8                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <MI 2501a  MOVE.L  (A0+0x16),-(A7)>              Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0x16)']}
            <Call 0x2501e 0x102e4>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0x16)']}
                Long2String(a : Long) : String
            <POP 25024-25026 StackAdj>                       Δ+4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <Const 0x25026 0x4.4>                            Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##4]}
            <Call 0x2502a 0x102f8>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##4]}
                LeftPad(a : String; b : Long) : String
            <POP 25030-25032 StackAdj>                       Δ+8                {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
            <Call 0x25032 0x102d0>                                              {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25034-25036 StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 25036  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x25038 [2] @>                             Δ-2                {[«2""»]}
            <POP 2503c-2503e StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 2503e  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-4-]|[4, 'A4']}
            <POP 25040-25042 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x25042 2>                                                     {[«2""»]|[-4-]|[4, 'A4']|[$$T:]}
            <Call 0x25052 0x102d0>                                              {[«2""»]|[-4-]|[4, 'A4']|[$$T:]}
                StringCat2(a, b : String) : String
            <POP 25054-25056 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <MI 25056  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]}
            <POP 25058-2505a StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 2505a  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-2-]|[4, 'A4']}
            <POP 2505c-2505e StackAdj>                       Δ-8                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <MI 2505e  MOVE.L  (A0+0x12),-(A7)>              Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0x12)']}
            <Call 0x25062 0x102e4>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0x12)']}
                Long2String(a : Long) : String
            <POP 25068-2506a StackAdj>                       Δ+4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <Const 0x2506a 0x3.4>                            Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##3]}
            <Call 0x2506e 0x102f8>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##3]}
                LeftPad(a : String; b : Long) : String
            <POP 25074-25076 StackAdj>                       Δ+8                {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
            <Call 0x25076 0x102d0>                                              {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25078-2507a StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 2507a  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Blob 0x2507c [2] @>                             Δ-2                {[«2""»]}
            <POP 25080-25082 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 25082  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-4-]|[4, 'A4']}
            <POP 25084-25086 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x25086 2>                                                     {[«2""»]|[-4-]|[4, 'A4']|[$$S:]}
            <Call 0x25096 0x102d0>                                              {[«2""»]|[-4-]|[4, 'A4']|[$$S:]}
                StringCat2(a, b : String) : String
            <POP 25098-2509a StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <MI 2509a  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]}
            <POP 2509c-2509e StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 2509e  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-2-]|[4, 'A4']}
            <POP 250a0-250a2 StackAdj>                       Δ-8                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <MI 250a2  MOVE.L  (A0+0xe),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0xe)']}
            <Call 0x250a6 0x102e4>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[4, '(A0+0xe)']}
                Long2String(a : Long) : String
            <POP 250ac-250ae StackAdj>                       Δ+4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]}
            <Const 0x250ae 0x3.4>                            Δ-4                {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##3]}
            <Call 0x250b2 0x102f8>                                              {[«2""»]|[-2-]|[4, 'A4']|[-8-]|[##3]}
                LeftPad(a : String; b : Long) : String
            <POP 250b8-250ba StackAdj>                       Δ+8                {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
            <Call 0x250ba 0x102d0>                                              {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 250bc-250be StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 250be  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 250c0  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x250c2 0x103e0>                                              {[4, 'A4']}
                WriteConsoleStringCrLf(str : String)
            <POP 250c8-250ca StackAdj>                       Δ+4                {}
        <POP 250ca-250d2 Naked>                              Σ0         ↓ →0x24e8c ←0x24e8c
            <MI 250ca  ADDQ.L  #0x1,D7>                                         {}
            <MI 250cc  CMP.L   #0x0f,D7>                                        {}
            <MI 250ce  BLE     0x24e8c>                                         {}
        <POP 250d2-250da Epilogue>                           Σ0         

0x250da


@ 250da
    <POP 250da-25128 Body>                                              
        <POP 250da-250f0 Prologue>                           Σ0         ↓
        <POP 250f0-250f2 Naked>                              Σ0         ↓
            <MI 250f0  MOVEQ.L #0x00,D7>                                        {}
        <POP 250f2-2510a Naked>                              Σ0         ↓ →0x25118 ←0x25118
            <MI 250f2  MOVEQ.L #0x46,D0>                                        {}
            <MI 250f4  MULS.W  D7,D0>                                           {}
            <MI 250f6  LEA.L   0x2578e,A0>                                      {}
            <MI 250fc  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 25100  ADDA.L  #0x892a,A0>                                      {}
            <MI 25106  TST.B   (A0)>                                            {}
            <MI 25108  BEQ     0x25118>                                         {}
        <POP 2510a-25118 Naked>                              Σ0         ↓
            <MI 2510a  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2510c 0x2405c>                                              {[2, 'D7']}
            <POP 25110-25112 StackAdj>                       Δ+2                {}
            <MI 25112  ADDQ.L  #0x1,0x2579e>                                    {}
        <POP 25118-25120 Naked>                              Σ0         ↓ →0x250f2 ←0x250f2
            <MI 25118  ADDQ.W  #0x1,D7>                                         {}
            <MI 2511a  CMPI.W  #0x000f,D7>                                      {}
            <MI 2511e  BLE     0x250f2>                                         {}
        <POP 25120-25128 Epilogue>                           Σ0         

0x25128


@ 25128
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 25128-251be Body>                                   Δ+4        
        <POP 25128-2513e Prologue>                           Σ0         ↓
        <POP 2513e-25144 RegCacheLoad>                       Σ0         ↓
        <POP 25144-25146 Naked>                              Σ0         ↓
            <MI 25144  MOVEQ.L #0x00,D7>                                        {}
        <POP 25146-2515e Naked>                              Σ0         ↓ →0x251ae ←0x251ae
            <MI 25146  MOVEQ.L #0x46,D0>                                        {}
            <MI 25148  MULS.W  D7,D0>                                           {}
            <MI 2514a  LEA.L   0x2578e,A0>                                      {}
            <MI 25150  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 25154  ADDA.L  #0x892a,A0>                                      {}
            <MI 2515a  TST.B   (A0)>                                            {}
            <MI 2515c  BEQ     0x251ae>                                         {}
        <POP 2515e-25174 Naked>                              Σ0         ↓ →0x251ae
            <MI 2515e  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Pointer.fp 0x25160 <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, 'D7']|[@@-2]}
            <Pointer.fp 0x25164 <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, 'D7']|[@@-2]|[@@-1]}
            <Call 0x25166 0x20e28>                                              {[2, 'D7']|[@@-2]|[@@-1]}
            <POP 2516a-2516e StackAdj>                       Δ+10               {}
            <MI 2516e  TST.B   (A6-0x2)>                                        {}
            <MI 25172  BEQ     0x251ae>                                         {}
        <POP 25174-2518a Naked>                              Σ0         →0x2518e →0x2519e
            <MI 25174  MOVE.B  (A0+0x1),D0>                                     {}
            <MI 25178  EXTB.W  D0>                                              {}
            <POP 0x2517a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 25180  ADD.W   D0,D0>                                           {}
            <MI 25182  SWITCH  D0.W>                                            {}
        <POP 2518e-2519e Naked>                              Σ0 Δ-4     →0x251ac ←0x25174
            <MI 2518e  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 25190  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 25192  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x25194 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 25196  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x25198 0x24d22>                                              {[2, 'D7']|[2, 'D0']}
            <MI 2519c  BRA     0x251ac>                                         {[2, 'D7']|[2, 'D0']}
        <POP 2519e-251ac Naked>                              Σ0 Δ-4     ↓ ←0x25174
            <MI 2519e  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 251a0  MOVE.B  (A6-0x1),D0>                                     {[2, 'D7']}
            <MI 251a2  EXTB.W  D0>                                              {[2, 'D7']}
            <POP 0x251a4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']}
            <MI 251a6  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D7']|[2, 'D0']}
            <Call 0x251a8 0x24db4>                                              {[2, 'D7']|[2, 'D0']}
        <POP 251ac-251ae Naked>                              Σ-4 Δ+4    ↓ ←0x2518e
            <POP 251ac-251ae StackAdj>                       Δ+4                {}
        <POP 251ae-251b6 Naked>                              Σ0         ↓ →0x25146 ←0x25146 ←0x2515e
            <MI 251ae  ADDQ.W  #0x1,D7>                                         {}
            <MI 251b0  CMPI.W  #0x000f,D7>                                      {}
            <MI 251b4  BLE     0x25146>                                         {}
        <POP 251b6-251be Epilogue>                           Σ0         

0x251be


@ 251be
        <LVAR -0x002 @>
    <POP 251be-2520a Body>                                              
        <POP 251be-251d4 Prologue>                           Σ0         ↓
        <POP 251d4-251d6 Naked>                              Σ0         ↓
            <MI 251d4  MOVEQ.L #0x00,D7>                                        {}
        <POP 251d6-251ee Naked>                              Σ0         ↓ →0x251fa ←0x251fa
            <MI 251d6  MOVEQ.L #0x46,D0>                                        {}
            <MI 251d8  MULS.W  D7,D0>                                           {}
            <MI 251da  LEA.L   0x2578e,A0>                                      {}
            <MI 251e0  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 251e4  ADDA.L  #0x892a,A0>                                      {}
            <MI 251ea  TST.B   (A0)>                                            {}
            <MI 251ec  BEQ     0x251fa>                                         {}
        <POP 251ee-251fa Naked>                              Σ0         ↓
            <MI 251ee  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Pointer.fp 0x251f0 <LVAR -0x002 @>>             Δ-4                {[2, 'D7']|[@@-2]}
            <Call 0x251f4 0x2115a>                                              {[2, 'D7']|[@@-2]}
            <POP 251f8-251fa StackAdj>                       Δ+6                {}
        <POP 251fa-25202 Naked>                              Σ0         ↓ →0x251d6 ←0x251d6
            <MI 251fa  ADDQ.W  #0x1,D7>                                         {}
            <MI 251fc  CMPI.W  #0x000f,D7>                                      {}
            <MI 25200  BLE     0x251d6>                                         {}
        <POP 25202-2520a Epilogue>                           Σ0         

0x2520a


@ 2520a
        <LVAR -0x004 @ 4(r)>
    <POP 2520a-252c4 Body>                                              
        <POP 2520a-25220 Prologue>                           Σ0         ↓
        <POP 25220-25228 RegCacheLoad>                       Σ0         ↓
        <POP 25228-25238 Naked>                              Σ0         ↓ →0x2523e
            <Pointer.fp 0x25228 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x2522c 0x10304>                                              {[@@-4]}
                GetRtc() : TimeStamp
            <POP 25232-25234 StackAdj>                       Δ+4                {}
            <MI 25234  TST.B   0x2e518>                                         {}
            <MI 25236  BEQ     0x2523e>                                         {}
        <POP 25238-2523e Naked>                              Σ0         ↓
            <Call 0x25238 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 2523e-252b6 Naked>                              Σ0         ↓ →0x252bc ←0x25228
            <Blob 0x2523e [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x2524a [22] @>                            Δ-22               {[«10""»]|[«22""»]}
            <POP 2525c-2525e StackAdj>                       Δ-8                {[«10""»]|[«22""»]|[-8-]}
            <Lit 0x2525e 10>                                                    {[«10""»]|[«22""»]|[-4-]|[$$Status at_]}
            <MI 2526e  MOVE.L  (A6-0x4),(A7)>                                   {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']}
            <POP 25268-2526e StackAdj>                       Δ-8                {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
            <Call 0x25272 0x10308>                                              {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
                TimeToText()
            <Lit 0x25278 21>                                                    {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]}
            <POP 25288-25289 StackAdj>                       Δ-4                {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]|[-4-]}
            <Blob 0x25289 [4] 0x257a4>                       Δ-4                {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]|[-4-]|[«4»]}
            <Call 0x2528e 0x10308>                                              {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]|[-4-]|[«4»]}
                TimeToText()
            <POP 25294-25296 StackAdj>                       Δ+4                {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]|[-4-]}
            <Call 0x25296 0x102d8>                                              {[«10""»]|[«22""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, Testing started at_]|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2529c-252a0 StackAdj>                       Δ+16               {[«10""»]|[«22""»]|[-4-]}
            <Call 0x252a0 0x103e0>                                              {[«10""»]|[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 252a6-252aa StackAdj>                       Δ+36               {}
            <Call 0x252aa 0x21a40>                                              {}
            <Call 0x252ae 0x24e66>                                              {}
            <MI 252b2  TST.B   0x2e518>                                         {}
            <MI 252b4  BEQ     0x252bc>                                         {}
        <POP 252b6-252bc Naked>                              Σ0         ↓
            <Call 0x252b6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 252bc-252c4 Epilogue>                           Σ0         ←0x2523e

0x252c4


@ 252c4
        <LVAR  0x008 1(rw)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x008 @ 2(rw)>
    <POP 252c4-25324 Body>                                              
        <POP 252c4-252da Prologue>                           Σ0         ↓
        <POP 252da-252e0 RegCacheLoad>                       Σ0         ↓
        <POP 252e0-252fa Naked>                              Σ0         ↓ →0x2531c
            <MI 252e0  CLR.B   (A6+0x8)>                                        {}
            <Const 0x252e4 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x252e6 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#1]|[@@-6]}
            <Call 0x252ea 0x10212>                                              {[#1]|[@@-6]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 252f0-252f2 StackAdj>                       Δ+6                {}
            <MI 252f2  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 252f6  CMP.B   #0x01,D0>                                        {}
            <MI 252f8  BNE     0x2531c>                                         {}
        <POP 252fa-25312 Naked>                              Σ0         ↓ →0x25318
            <Const 0x252fa 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x252fc <LVAR -0x008 @ 2(rw)>>       Δ-4                {[#1]|[@@-8]}
            <Call 0x252fe 0x1020e>                                              {[#1]|[@@-8]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 25304-25306 StackAdj>                       Δ+6                {}
            <MI 25306  ANDI.W  #0x007f,(A6-0x8)>                                {}
            <MI 2530a  MOVE.W  (A6-0x8),D0>                                     {}
            <MI 2530c  CMPI.W  #0x0007,D0>                                      {}
            <MI 25310  BNE     0x25318>                                         {}
        <POP 25312-25318 Naked>                              Σ0         →0x2531c
            <MI 25312  MOVE.B  #0x01,(A6+0x8)>                                  {}
            <MI 25316  BRA     0x2531c>                                         {}
        <POP 25318-2531c Naked>                              Σ0         ↓ ←0x252fa
            <Call 0x25318 0x2520a>                                              {}
        <POP 2531c-25324 Epilogue>                           Σ0         ←0x252e0 ←0x25312

0x25324


@ 25324
    <POP 25324-253be Body>                                              
        <POP 25324-2533a Prologue>                           Σ0         ↓
        <POP 2533a-25356 RegCacheLoad>                       Σ0         ↓
        <POP 25356-2535e Naked>                              Σ0         ↓ →0x253b6
            <MI 25356  TST.B   0x2e518>                                         {}
            <MI 2535c  BEQ     0x253b6>                                         {}
        <POP 2535e-25370 Naked>                              Σ0         ↓ →0x2539c
            <Const 0x2535e 0x2.2>                            Δ-2                {[#2]}
            <Const 0x25360 0x2e52c.4>                        Δ-4                {[#2]|[##189740]}
            <Call 0x25362 0x10212>                                              {[#2]|[##189740]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 25368-2536a StackAdj>                       Δ+6                {}
            <MI 2536a  MOVE.B  0x2e52c,D0>                                      {}
            <MI 2536c  CMP.B   #0x01,D0>                                        {}
            <MI 2536e  BNE     0x2539c>                                         {}
        <POP 25370-2538a Naked>                              Σ0         ↓ →0x2538c
            <Const 0x25370 0x2.2>                            Δ-2                {[#2]}
            <Const 0x25372 0x2e52e.4>                        Δ-4                {[#2]|[##189742]}
            <Call 0x25374 0x1020e>                                              {[#2]|[##189742]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 2537a-2537c StackAdj>                       Δ+6                {}
            <MI 2537c  MOVE.W  0x2e52e,D0>                                      {}
            <MI 2537e  ANDI.W  #0x00ff,D0>                                      {}
            <MI 25382  MOVE.B  D0,0x2e52a>                                      {}
            <MI 25384  CMPI.B  #0x3a,D0>                                        {}
            <MI 25388  BNE     0x2538c>                                         {}
        <POP 2538a-2538c Naked>                              Σ0         ↓
            <MI 2538a  CLR.B   0x2e52b>                                         {}
        <POP 2538c-2539c Naked>                              Σ0         ↓ ←0x25370
            <Const 0x2538c 0x1.2>                            Δ-2                {[#1]}
            <MI 2538e  CLR.L   D1>                                              {[#1]}
            <MI 25390  MOVE.B  D0,D1>                                           {[#1]}
            <MI 25392  MOVE.W  D1,-(A7)>                     Δ-2                {[#1]|[2, 'D1']}
            <Call 0x25394 0x1020c>                                              {[#1]|[2, 'D1']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2539a-2539c StackAdj>                       Δ+4                {}
        <POP 2539c-253a0 Naked>                              Σ0         ↓ →0x253b6 ←0x2535e
            <MI 2539c  TST.B   0x2e52b>                                         {}
            <MI 2539e  BNE     0x253b6>                                         {}
        <POP 253a0-253b6 Naked>                              Σ0         ↓
            <MI 253a0  MOVE.B  #0x10,0x2e52a>                                   {}
            <Const 0x253a4 0x2.2>                            Δ-2                {[#2]}
            <MI 253a6  CLR.L   D0>                                              {[#2]}
            <MI 253a8  MOVE.B  0x2e52a,D0>                                      {[#2]}
            <MI 253aa  MOVE.W  D0,-(A7)>                     Δ-2                {[#2]|[2, 'D0']}
            <Call 0x253ac 0x1020c>                                              {[#2]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 253b2-253b4 StackAdj>                       Δ+4                {}
            <MI 253b4  MOVE.B  #0x01,0x2e52b>                                   {}
        <POP 253b6-253be Epilogue>                           Σ0         ←0x25356 ←0x2539c

0x253be


@ 253be
START
    <POP 253be--0001 Body>                                              
        <POP 253be-253c8 Prologue>                           Σ0         
        <POP 253c8-253e2 RegCacheLoad>                       Σ0         ↓
        <POP 253e2-25496 Naked>                              Σ0         ↓ →0x254ba
            <Call 0x253e2 0x10398>                                              {}
                FSCALL_10398
            <MI 253e8  CLR.L   0x2579e>                                         {}
            <MI 253ee  MOVE.L  #0x01,0x25796>                                   {}
            <Blob 0x253f4 [24] @>                            Δ-24               {[«24""»]}
            <POP 25406-25408 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x25408 23>                                                    {[«24""»]|[$$DFS based I/O exerciser]}
            <Call 0x2541a 0x103e0>                                              {[«24""»]|[$$DFS based I/O exerciser]}
                WriteConsoleStringCrLf(str : String)
            <POP 25420-25424 StackAdj>                       Δ+28               {}
            <Call 0x25424 0x20d16>                                              {}
            <Call 0x25428 0x218fe>                                              {}
            <Call 0x2542c 0x23e1e>                                              {}
            <Call 0x25430 0x219e8>                                              {}
            <Call 0x25434 0x23dbe>                                              {}
            <Const 0x25438 0x257a4.4>                        Δ-4                {[##153508]}
            <Call 0x2543e 0x10304>                                              {[##153508]}
                GetRtc() : TimeStamp
            <POP 25440-25442 StackAdj>                       Δ+4                {}
            <Call 0x25442 0x23a86>                                              {}
            <Call 0x25446 0x250da>                                              {}
            <Blob 0x2544a [48] @>                            Δ-48               {[«48""»]}
            <POP 2545c-2545e StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x2545e 47>                                                    {[«48""»]|[$$Type ^G to exit, any other character for status]}
            <Call 0x25470 0x103e0>                                              {[«48""»]|[$$Type ^G to exit, any other character for status]}
                WriteConsoleStringCrLf(str : String)
            <POP 25476-2547a StackAdj>                       Δ+52               {}
            <Const 0x2547a 0x2e522.4>                        Δ-4                {[##189730]}
            <Call 0x2547c 0x10304>                                              {[##189730]}
                GetRtc() : TimeStamp
            <POP 2547e-25480 StackAdj>                       Δ+4                {}
            <MI 25480  CLR.L   D0>                                              {}
            <MI 25482  MOVE.W  0x2e522,D0>                                      {}
            <MI 25484  ADD.L   0x2e526,D0>                                      {}
            <POP 0x25486 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 2548c  MOVE.W  D0,0x2e522>                                      {}
            <MI 2548e  TST.B   0x2e518>                                         {}
            <MI 25494  BEQ     0x254ba>                                         {}
        <POP 25496-254ba Naked>                              Σ0         ↓
            <MI 25496  MOVE.B  #0x10,0x2e52a>                                   {}
            <Const 0x2549e 0x2.2>                            Δ-2                {[#2]}
            <MI 254a2  CLR.L   D0>                                              {[#2]}
            <MI 254a4  MOVE.B  0x2e52a,D0>                                      {[#2]}
            <MI 254aa  MOVE.W  D0,-(A7)>                     Δ-2                {[#2]|[2, 'D0']}
            <Call 0x254ac 0x1020c>                                              {[#2]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 254b2-254b4 StackAdj>                       Δ+4                {}
            <MI 254b4  MOVE.B  #0x01,0x2e52b>                                   {}
        <POP 254ba-254c4 Naked>                              Σ0         ↓ ←0x253e2
            <Const 0x254ba 0x2e51e.4>                        Δ-4                {[##189726]}
            <Call 0x254c0 0x10304>                                              {[##189726]}
                GetRtc() : TimeStamp
            <POP 254c2-254c4 StackAdj>                       Δ+4                {}
        <POP 254c4-254e8 Naked>                              Σ0         ↓ →0x25508 ←0x2553e
            <Call 0x254c4 0x23ad2>                                              {}
            <Call 0x254c8 0x25128>                                              {}
            <Call 0x254cc 0x25324>                                              {}
            <Const 0x254d0 0x2e51a.4>                        Δ-4                {[##189722]}
            <Call 0x254d6 0x10304>                                              {[##189722]}
                GetRtc() : TimeStamp
            <POP 254d8-254da StackAdj>                       Δ+4                {}
            <MI 254da  MOVE.W  0x2e51e,D0>                                      {}
            <MI 254e0  CMP.W   0x2e51a,D0>                                      {}
            <MI 254e6  BLS     0x25508>                                         {}
        <POP 254e8-25508 Naked>                              Σ0         ↓
            <Call 0x254e8 0x2520a>                                              {}
            <Const 0x254ec 0x2e51a.4>                        Δ-4                {[##189722]}
            <Call 0x254f2 0x10304>                                              {[##189722]}
                GetRtc() : TimeStamp
            <POP 254f4-254f6 StackAdj>                       Δ+4                {}
            <MI 254f6  CLR.L   D0>                                              {}
            <MI 254f8  MOVE.W  0x2e51a,D0>                                      {}
            <MI 254fe  ADD.L   0x2e526,D0>                                      {}
            <POP 0x25500 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 25506  MOVE.W  D0,0x2e522>                                      {}
        <POP 25508-2551c Naked>                              Σ0         ↓ →0x25534 ←0x254c4
            <MI 25508  MOVE.W  0x2e51a,0x2e51e>                                 {}
            <MI 25512  MOVE.W  0x2e51a,D0>                                      {}
            <MI 25518  CMP.W   0x2e522,D0>                                      {}
            <MI 2551a  BCS     0x25534>                                         {}
        <POP 2551c-25534 Naked>                              Σ0         ↓
            <Call 0x2551c 0x2520a>                                              {}
            <Const 0x25520 0x2e522.4>                        Δ-4                {[##189730]}
            <Call 0x25522 0x10304>                                              {[##189730]}
                GetRtc() : TimeStamp
            <POP 25524-25526 StackAdj>                       Δ+4                {}
            <MI 25526  CLR.L   D0>                                              {}
            <MI 25528  MOVE.W  0x2e522,D0>                                      {}
            <MI 2552a  ADD.L   0x2e526,D0>                                      {}
            <POP 0x2552c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 25532  MOVE.W  D0,0x2e522>                                      {}
        <POP 25534-2553e Naked>                              Σ0         ↓ →0x25548 ←0x25508
            <POP 25534-25536 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25536 0x252c4>                                              {[-2-]}
            <MI 2553a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2553c  BNE     0x25548>                                         {}
        <POP 2553e-25548 Naked>                              Σ0         ↓ →0x254c4
            <MI 2553e  TST.L   0x2579e>                                         {}
            <MI 25544  BNE     0x254c4>                                         {}
        <POP 25548-25582 Naked>                              Σ0         ↓ ←0x25534
            <Call 0x25548 0x23bcc>                                              {}
            <Call 0x2554c 0x251be>                                              {}
            <Blob 0x25550 [20] @>                            Δ-20               {[«20""»]}
            <MI 25562  CLR.B   -(A7)>                        Δ-2                {[«20""»]|[#0]}
            <POP 25564-25566 StackAdj>                       Δ-4                {[«20""»]|[#0]|[-4-]}
            <Lit 0x25566 19>                                                    {[«20""»]|[#0]|[$$I/O exerciser done.]}
            <Call 0x25578 0x103b8>                                              {[«20""»]|[#0]|[$$I/O exerciser done.]}
                PopProgram(status : Byte; msg : String)
            <POP 2557e-25582 StackAdj>                       Δ+26               {}
        <POP 25582-25588 Naked>                              Σ0         
            <Call 0x25582 0x10284>                                              {}
                ?exit

0x25596


@ 25596
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 25596-255fe Body>                                              
        <POP 25596-255ac Prologue>                           Σ0         ↓
        <POP 255ac-255f6 Naked>                              Σ0         ↓
            <Blob 0x255ac [14] @>                            Δ-14               {[«14""»]}
            <Const 0x255b8 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 255bc-255be StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x255be 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 255d0-255d2 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 255d2  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 255d6  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 255d8  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 255da  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x255dc 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 255e2-255e4 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x255e4 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 255ea-255ec StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x255ec 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 255f2-255f6 StackAdj>                       Δ+20               {}
        <POP 255f6-255fe Epilogue>                           Σ0         

0x25652


@ 25652
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 25652-2578e Body>                                              
        <POP 25652-25668 Prologue>                           Σ0         ↓
        <POP 25668-2567e RegCacheLoad>                       Σ0         ↓
        <POP 2567e-256de Naked>                              Σ0         ↓ →0x25726
            <Call 0x2567e 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x25684 [18] @>                            Δ-18               {[«18""»]}
            <POP 25690-25692 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x25692 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2569e 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 256a0-256a1 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x256a1 [14] @>                            Δ-14               {[«14""»]}
            <POP 256b0-256b2 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x256b2 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 256bc-256be StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 256be  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x256c2 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 256c8-256ca StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x256ca 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 256d0-256d2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x256d2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 256d4-256d6 StackAdj>                       Δ+18               {}
            <MI 256d6  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 256da  CMPA.W  #0x01,A0>                                        {}
            <MI 256dc  BEQ     0x25726>                                         {}
        <POP 256de-25726 Naked>                              Σ0         ↓
            <Blob 0x256de [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x256ee [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 256fe-25700 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x25700 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2570a-2570c StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2570c>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2570c 12>                      Δ-4        
                <Const 0x25710 0x1.2>                        Δ-2        
                <Const 0x25712 0x1e.2>                       Δ-2        
                <Call 0x25714 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 25716-25718 StackAdj>                   Δ+8        
            <Call 0x25718 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2571e-25720 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x25720 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 25722-25726 StackAdj>                       Δ+48               {}
        <POP 25726-25786 Naked>                              Σ0         ↓ ←0x2567e
            <Blob 0x25726 [14] @>                            Δ-14               {[«14""»]}
            <POP 25736-25738 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x25738 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 25742-25744 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 25744  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x25748 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2574e-25750 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x25750 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25756-25758 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x25758 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2575a-2575b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2575b [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2576a 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2576e-25770 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x25770 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2577e 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 25784-25786 StackAdj>                       Δ+30               {}
        <POP 25786-2578e Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.5a75bb88326d8ff6
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 53 be              |  S     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 e5 42              |   B    |		.PTR	0x2e542
00020010					code.end:
00020010 00 02 57 8e              |  W     |		.PTR	0x2578e
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 55 96              |  U     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 56 52              |  VR    |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 49 4f        |@(#)IO  |		.XXX[0x6]
00020110 58 2c 32 2e 33 2c 39 30  |X,2.3,90|		.XXX[0x18]
00020118 2f 31 32 2f 30 36 2c 31  |/12/06,1|
00020120 32 3a 34 30 3a 30 30 5c  |2:40:00\|
00020128 53 69 6d 75 6c 61 74 65  |Simulate|		.TXT	'Simulate packet requests'
00020140 52 65 73 70 6f 6e 73 65  |Response|		.TXT	'Response queue data out of range'
00020160 49 6e 63 6f 72 72 65 63  |Incorrec|		.TXT	'Incorrect Packet_Id '
00020174 49 6e 63 6f 72 72 65 63  |Incorrec|		.TXT	'Incorrect Response_Kind '
0002018c 55 6e 65 78 70 65 63 74  |Unexpect|		.TXT	'Unexpected response arrived '
000201a8 50 61 63 6b 65 74 20 61  |Packet a|		.TXT	'Packet arrived out of order '
000201c4 54 6f 6f 20 6d 61 6e 79  |Too many|		.TXT	'Too many responses arrived'
000201de 50 61 63 6b 65 74 20 73  |Packet s|		.TXT	'Packet size too big '
000201f2 53 74 61 72 74 69 6e 67  |Starting|		.TXT	'Starting new I/O on active handle '
00020214 53 74 61 72 74 69 6e 67  |Starting|		.TXT	'Starting new I/O on active handle '
00020236 55 6e 73 75 70 70 6f 72  |Unsuppor|		.TXT	'Unsupported tape operation'
00020250 45 78 65 72 63 69 73 65  |Exercise|		.TXT	'Exercise Tapes'
0002025e 45 78 65 72 63 69 73 65  |Exercise|		.TXT	'Exercise Tape unit_ '
00020272 45 78 65 72              |Exer    |		.TXT	'Exer'
00020276 63 69 73 65              |cise    |		.TXT	'cise'
0002027a 20 50 41 44              | PAD    |		.TXT	' PAD'
0002027e 54 61 70 65              |Tape    |		.TXT	'Tape'
00020282 20 55 6e 69              | Uni    |		.TXT	' Uni'
00020286 74 20 3a 5f              |t :_    |		.TXT	't :_'
0002028a 2c 20                    |,       |		.TXT	', '
0002028c 42 79 74 65 73 20 3d 3e  |Bytes =>|		.TXT	'Bytes =>_ '
00020296 73 6f 66 74              |soft    |		.TXT	'soft'
0002029a 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
0002029e 68 61 72 64              |hard    |		.TXT	'hard'
000202a2 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
000202a6 64 61 74 61              |data    |		.TXT	'data'
000202aa 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
000202ae 20 53                    | S      |		.XXX[0x2]
000202b0 52 3d 20 48 44 3d 20 50  |R= HD= P|		.XXX[0x18]
000202b8 4c 3d 20 52 43 3d 20 58  |L= RC= X|
000202c0 30 3d 20 58 31 3d 20 58  |0= X1= X|
000202c8 32 3d 20 58 33 3d        |2= X3=  |		.XXX[0x6]
000202ce 53 70 65 63 69 61 6c 20  |Special |		.TXT	'Special condition '
000202e0 55 4e 49 42 55 53 20 70  |UNIBUS p|		.TXT	'UNIBUS parity error '
000202f4 52 65 67 69 73 74 65 72  |Register|		.TXT	'Register modification refused '
00020312 4e 6f 6e 2d 65 78 69 73  |Non-exis|		.TXT	'Non-existant memory '
00020326 4e 65 65 64 20 62 75 66  |Need buf|		.TXT	'Need buffer address '
0002033a 53 75 62 73 79 73 74 65  |Subsyste|		.TXT	'Subsystem not ready '
0002034e 4f 66 66 2d              |Off-    |		.TXT	'Off-'
00020352 6c 69 6e 65              |line    |		.TXT	'line'
00020356 54 61 70 65 20 6d 61 72  |Tape mar|		.TXT	'Tape mark '
00020360 52 65 63 6f 72 64 20 6c  |Record l|		.TXT	'Record length short '
00020374 4c 6f 67 69 63 61 6c 20  |Logical |		.TXT	'Logical end of tape '
00020388 52 65 63 6f 72 64 20 6c  |Record l|		.TXT	'Record length long'
0002039a 57 72 69 74              |Writ    |		.TXT	'Writ'
0002039e 65 20 6c 6f              |e lo    |		.TXT	'e lo'
000203a2 63 6b 20 65              |ck e    |		.TXT	'ck e'
000203a6 72 72 6f 72              |rror    |		.TXT	'rror'
000203aa 4e 6f 6e 2d 65 78 65 63  |Non-exec|		.TXT	'Non-executable function '
000203c2 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal command '
000203d2 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal address '
000203e2 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter busy'
000203f0 4f 66 66 2d              |Off-    |		.TXT	'Off-'
000203f4 6c 69 6e 65              |line    |		.TXT	'line'
000203f8 56 6f 6c 75              |Volu    |		.TXT	'Volu'
000203fc 6d 65 20 63              |me c    |		.TXT	'me c'
00020400 68 65 63 6b              |heck    |		.TXT	'heck'
00020404 57 72 69 74              |Writ    |		.TXT	'Writ'
00020408 65 20 6c 6f              |e lo    |		.TXT	'e lo'
0002040c 63 6b 65 64              |cked    |		.TXT	'cked'
00020410 42 4f                    |BO      |		.TXT	'BO'
00020412 54 20                    |T       |		.XXX[0x2]
00020414 45 4f                    |EO      |		.TXT	'EO'
00020416 54 20                    |T       |		.XXX[0x2]
00020418 44 61 74 61 20 6c 61 74  |Data lat|		.TXT	'Data late '
00020422 43 6f 72 72 65 63 74 61  |Correcta|		.TXT	'Correctable error '
00020434 55 6e 63 6f 72 72 65 63  |Uncorrec|		.TXT	'Uncorrectable error '
00020448 4f 70 65 72 61 74 69 6f  |Operatio|		.TXT	'Operation in progress '
0002045e 4f 70 65 72 61 74 69 6f  |Operatio|		.TXT	'Operation incomplete'
00020472 52 65 76 65 72 73 65 20  |Reverse |		.TXT	'Reverse '
0002047a 52 65 76 65              |Reve    |		.TXT	'Reve'
0002047e 72 73 65 20              |rse     |		.TXT	'rse '
00020482 69 6e 74 6f              |into    |		.TXT	'into'
00020486 20 42 4f 54              | BOT    |		.TXT	' BOT'
0002048a 50 6f 77 65 72 20 46 61  |Power Fa|		.TXT	'Power Fail'
00020494 53 43 53 49 20 62 75 73  |SCSI bus|		.TXT	'SCSI bus parity error '
000204aa 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatted buffer parity error '
000204c8 4d 65 64 69 61 20 65 72  |Media er|		.TXT	'Media error '
000204d4 45 72 72 6f 72 20 63 6f  |Error co|		.TXT	'Error counter overflow'
000204ea 54 61 70 65 20 6d 6f 74  |Tape mot|		.TXT	'Tape motion error '
000204fc 54 61 70 65              |Tape    |		.TXT	'Tape'
00020500 20 6e 6f 74              | not    |		.TXT	' not'
00020504 20 70 72 65              | pre    |		.TXT	' pre'
00020508 73 65 6e 74              |sent    |		.TXT	'sent'
0002050c 42 65 67 69 6e 6e 69 6e  |Beginnin|		.TXT	'Beginning of tape '
0002051e 54 72 61 6e 73 66 65 72  |Transfer|		.TXT	'Transfer abort error'
00020532 54 61 70 65 20 6d 61 72  |Tape mar|		.TXT	'Tape mark detect error'
00020548 57 72 69 74 65 20 70 72  |Write pr|		.TXT	'Write protect '
00020556 46 69 6c 65 6d 61 72 6b  |Filemark|		.TXT	'Filemark error'
00020564 55 6e 64 65 72 20 72 75  |Under ru|		.TXT	'Under run error '
00020574 57 72 69 74 65 20 65 72  |Write er|		.TXT	'Write error 1 '
00020582 53 65 72 76 6f 20 73 79  |Servo sy|		.TXT	'Servo system error'
00020594 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter error '
000205a4 57 72 69 74 65 20 73 70  |Write sp|		.TXT	'Write splice error - blank'
000205be 57 72 69 74 65 20 73 70  |Write sp|		.TXT	'Write splice error - overshoot'
000205dc 46 69 6c 65              |File    |		.TXT	'File'
000205e0 6d 61 72 6b              |mark    |		.TXT	'mark'
000205e4 45 6e 64 20 6f 66 20 6d  |End of m|		.TXT	'End of medium '
000205f2 49 6e 63 6f 72 72 65 63  |Incorrec|		.TXT	'Incorrect length indicator'
0002060c 4e 6f 74 20 72 65 61 64  |Not read|		.TXT	'Not ready '
00020616 4d 65 64 69              |Medi    |		.TXT	'Medi'
0002061a 75 6d 20 65              |um e    |		.TXT	'um e'
0002061e 72 72 6f 72              |rror    |		.TXT	'rror'
00020622 48 61 72 64 77 61 72 65  |Hardware|		.TXT	'Hardware error'
00020630 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal request '
00020640 55 6e 69 74 20 61 74 74  |Unit att|		.TXT	'Unit attention'
0002064e 44 61 74 61              |Data    |		.TXT	'Data'
00020652 20 70 72 6f              | pro    |		.TXT	' pro'
00020656 74 65 63 74              |tect    |		.TXT	'tect'
0002065a 42 6c 61 6e 6b 20 63 68  |Blank ch|		.TXT	'Blank check '
00020666 45 78 61 62 79 74 65 20  |Exabyte |		.TXT	'Exabyte '
0002066e 43 6f 70 79              |Copy    |		.TXT	'Copy'
00020672 20 61 62 6f              | abo    |		.TXT	' abo'
00020676 72 74 65 64              |rted    |		.TXT	'rted'
0002067a 41 62 6f 72 74 65 64 20  |Aborted |		.TXT	'Aborted command '
0002068a 56 6f 6c 75 6d 65 20 6f  |Volume o|		.TXT	'Volume overflow '
0002069a 2c 5f                    |,_      |		.TXT	',_'
0002069c 54 61 70 65              |Tape    |		.TXT	'Tape'
000206a0 20 55 6e 69              | Uni    |		.TXT	' Uni'
000206a4 74 20 3a 5f              |t :_    |		.TXT	't :_'
000206a8 2c 20                    |,       |		.TXT	', '
000206aa 2c 5f                    |,_      |		.TXT	',_'
000206ac 20 65 72 72 6f 72 2c 20  | error, |		.TXT	' error, retries =>'
000206be 48 61 72 64              |Hard    |		.TXT	'Hard'
000206c2 53 6f 66 74              |Soft    |		.TXT	'Soft'
000206c6 44 41 54 41              |DATA    |		.TXT	'DATA'
000206ca 4e 6f 74 20 6f 6e 20 6c  |Not on l|		.TXT	'Not on line '
000206d6 57 72 6f 6e 67 20 64 65  |Wrong de|		.TXT	'Wrong density '
000206e4 54 61 70 65              |Tape    |		.TXT	'Tape'
000206e8 54 61 70 65              |Tape    |		.TXT	'Tape'
000206ec 52 65 63 6f 72 64 20 6c  |Record l|		.TXT	'Record long '
000206f8 54 61 70 65              |Tape    |		.TXT	'Tape'
000206fc 52 65 63 6f              |Reco    |		.TXT	'Reco'
00020700 72 64 20 73              |rd s    |		.TXT	'rd s'
00020704 68 6f 72 74              |hort    |		.TXT	'hort'
00020708 54 61 70 65              |Tape    |		.TXT	'Tape'
0002070c 55 6e 65 78 70 65 63 74  |Unexpect|		.TXT	'Unexpected mark '
0002071c 54 61 70 65              |Tape    |		.TXT	'Tape'
00020720 4f 6e 20 6c 69 6e 65 20  |On line |		.TXT	'On line '
00020728 57 72 69 74 65 20 6c 6f  |Write lo|		.TXT	'Write lock'
00020732 54 61 70 65              |Tape    |		.TXT	'Tape'
00020736 54 61 70 65              |Tape    |		.TXT	'Tape'
0002073a 54 61 70 65              |Tape    |		.TXT	'Tape'
0002073e 55 6e 69 74              |Unit    |		.TXT	'Unit'
00020742 52 65 73 70 6f 6e 73 65  |Response|		.TXT	'Response from WRITE contained data'
00020764 44 65 6e 73 69 74 79 20  |Density |		.TXT	'Density select'
00020772 53 70 65 65              |Spee    |		.TXT	'Spee'
00020776 64 20 73 65              |d se    |		.TXT	'd se'
0002077a 6c 65 63 74              |lect    |		.TXT	'lect'
0002077e 52 65 73 70 6f 6e 73 65  |Response|		.TXT	'Response from READ is incorrect '
0002079e 44 69 73 6b 20 68 61 73  |Disk has|		.TXT	'Disk has no labels, unit :_ '
000207ba 45 6e 74 65 72 20 72 65  |Enter re|		.TXT	'Enter report increment [1..500] '
000207da 45 78 65 72 63 69 73 65  |Exercise|		.TXT	'Exercise Disks'
000207e8 44 6f 20 61 6c 6c 20 49  |Do all I|		.TXT	'Do all I/O to the same cylinder '
00020808 45 78 65 72 63 69 73 65  |Exercise|		.TXT	'Exercise Disk unit_ '
0002081c 44 69 73 6b 20 75 6e 69  |Disk uni|		.TXT	'Disk unit =>_ '
0002082a 2c 20 75 73 69 6e 67 20  |, using |		.TXT	', using cylinders [ '
0002083e 2e 2e                    |..      |		.TXT	'..'
00020840 5d 20                    |]       |		.TXT	'] '
00020842 20 43 53 31 3d 20        | CS1=   |		.XXX[0x6]
00020848 20 43 53 32 3d 20 20 44  | CS2=  D|		.XXX[0x30]
00020850 53 3d 20 20 20 45 52 31  |S=   ER1|
00020858 3d 20 20 45 52 32 3d 20  |=  ER2= |
00020860 20 45 43 31 3d 20 20 45  | EC1=  E|
00020868 43 32 3d 20 20 44 43 3d  |C2=  DC=|
00020870 20 20 20 44 41 3d 20 20  |   DA=  |
00020878 53 70 65 63 69 61 6c 20  |Special |		.TXT	'Special condition '
0002088a 54 72 61 6e 73 66 65 72  |Transfer|		.TXT	'Transfer error'
00020898 44 72 69 76 65 20 69 73  |Drive is|		.TXT	'Drive is not available'
000208ae 44 72 69 76 65 20 69 73  |Drive is|		.TXT	'Drive is not ready'
000208c0 44 61 74 61 20 6c 61 74  |Data lat|		.TXT	'Data late '
000208ca 57 72 69 74 65 20 63 68  |Write ch|		.TXT	'Write check error '
000208dc 4e 6f 6e 2d 65 78 69 73  |Non-exis|		.TXT	'Non-existent drive'
000208ee 4e 6f 6e 2d 65 78 69 73  |Non-exis|		.TXT	'Non-existent memory '
00020902 50 72 6f 67 72 61 6d 20  |Program |		.TXT	'Program error '
00020910 4d 69 73 73 65 64 20 74  |Missed t|		.TXT	'Missed transfer '
00020920 49 6e 70 75 74 20 6e 6f  |Input no|		.TXT	'Input not ready '
00020930 42 75 73 20 61 64 64 72  |Bus addr|		.TXT	'Bus address increment inhibit '
0002094e 50 6f 73 69 74 69 6f 6e  |Position|		.TXT	'Positioning in progress '
00020966 4d 65 64 69 75 6d 20 6e  |Medium n|		.TXT	'Medium not on-line'
00020978 57 72 69 74              |Writ    |		.TXT	'Writ'
0002097c 65 20 6c 6f              |e lo    |		.TXT	'e lo'
00020980 63 6b 65 64              |cked    |		.TXT	'cked'
00020984 4c 61 73 74 20 73 65 63  |Last sec|		.TXT	'Last sector transfered'
0002099a 44 72 69 76 65 20 6e 6f  |Drive no|		.TXT	'Drive not present '
000209ac 44 72 69 76 65 20 6e 6f  |Drive no|		.TXT	'Drive not ready '
000209bc 56 6f 6c 75              |Volu    |		.TXT	'Volu'
000209c0 6d 65 20 6e              |me n    |		.TXT	'me n'
000209c4 6f 74 20 76              |ot v    |		.TXT	'ot v'
000209c8 61 6c 69 64              |alid    |		.TXT	'alid'
000209cc 44 61 74 61              |Data    |		.TXT	'Data'
000209d0 20 63 68 65              | che    |		.TXT	' che'
000209d4 63 6b 20 28              |ck (    |		.TXT	'ck ('
000209d8 45 43 43 29              |ECC)    |		.TXT	'ECC)'
000209dc 55 6e                    |Un      |		.TXT	'Un'
000209de 73 61                    |sa      |		.TXT	'sa'
000209e0 66 65                    |fe      |		.TXT	'fe'
000209e2 4f 70 65 72 61 74 69 6f  |Operatio|		.TXT	'Operation incomplete'
000209f6 44 72 69 76 65 20 74 69  |Drive ti|		.TXT	'Drive timing error'
00020a08 57 72 69 74              |Writ    |		.TXT	'Writ'
00020a0c 65 20 6c 6f              |e lo    |		.TXT	'e lo'
00020a10 63 6b 20 65              |ck e    |		.TXT	'ck e'
00020a14 72 72 6f 72              |rror    |		.TXT	'rror'
00020a18 49 6e 76 61 6c 69 64 20  |Invalid |		.TXT	'Invalid address error '
00020a2e 41 64 64 72 65 73 73 20  |Address |		.TXT	'Address overflow error'
00020a44 48 65 61 64              |Head    |		.TXT	'Head'
00020a48 65 72 20 43              |er C    |		.TXT	'er C'
00020a4c 52 43 20 65              |RC e    |		.TXT	'RC e'
00020a50 72 72 6f 72              |rror    |		.TXT	'rror'
00020a54 48 65 61 64 65 72 20 63  |Header c|		.TXT	'Header compare error'
00020a68 48 61 72 64 20 45 43 43  |Hard ECC|		.TXT	'Hard ECC error'
00020a76 46 6f 72 6d              |Form    |		.TXT	'Form'
00020a7a 61 74 20 65              |at e    |		.TXT	'at e'
00020a7e 72 72 6f 72              |rror    |		.TXT	'rror'
00020a82 52 65 67 69 73 74 65 72  |Register|		.TXT	'Register modification refused '
00020aa0 49 6c 6c 65              |Ille    |		.TXT	'Ille'
00020aa4 67 61 6c 20              |gal     |		.TXT	'gal '
00020aa8 66 75 6e 63              |func    |		.TXT	'func'
00020aac 74 69 6f 6e              |tion    |		.TXT	'tion'
00020ab0 42 61 64 20 62 6c 6f 63  |Bad bloc|		.TXT	'Bad block '
00020aba 53 65 65 6b 20 69 6e 63  |Seek inc|		.TXT	'Seek incomplete '
00020aca 49 6e 76 61 6c 69 64 20  |Invalid |		.TXT	'Invalid command (volume not valid, off-line, or off cylinder) '
00020b08 44 65 76 69              |Devi    |		.TXT	'Devi'
00020b0c 63 65 20 63              |ce c    |		.TXT	'ce c'
00020b10 68 65 63 6b              |heck    |		.TXT	'heck'
00020b14 2c 5f                    |,_      |		.TXT	',_'
00020b16 44 69 73 6b              |Disk    |		.TXT	'Disk'
00020b1a 20 55 6e 69              | Uni    |		.TXT	' Uni'
00020b1e 74 20 3a 5f              |t :_    |		.TXT	't :_'
00020b22 2c 20                    |,       |		.TXT	', '
00020b24 2c 5f                    |,_      |		.TXT	',_'
00020b26 20 65 72 72 6f 72 2c 20  | error, |		.TXT	' error, retries =>'
00020b38 48 61 72 64              |Hard    |		.TXT	'Hard'
00020b3c 53 6f 66 74              |Soft    |		.TXT	'Soft'
00020b40 44 69 73 6b              |Disk    |		.TXT	'Disk'
00020b44 20 55 6e 69              | Uni    |		.TXT	' Uni'
00020b48 74 20 3a 5f              |t :_    |		.TXT	't :_'
00020b4c 2c 20                    |,       |		.TXT	', '
00020b4e 42 79 74 65 73 20 3d 3e  |Bytes =>|		.TXT	'Bytes =>_ '
00020b58 73 6f 66 74              |soft    |		.TXT	'soft'
00020b5c 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
00020b60 68 61 72 64              |hard    |		.TXT	'hard'
00020b64 20 3d 3e 5f              | =>_    |		.TXT	' =>_'
00020b68 43 3a                    |C:      |		.TXT	'C:'
00020b6a 54 3a                    |T:      |		.TXT	'T:'
00020b6c 53 3a                    |S:      |		.TXT	'S:'
00020b6e 53 74 61 74 75 73 20 61  |Status a|		.TXT	'Status at_'
00020b78 2c 20 54 65 73 74 69 6e  |, Testin|		.TXT	', Testing started at_ '
00020b8e 44 46 53 20 62 61 73 65  |DFS base|		.TXT	'DFS based I/O exerciser '
00020ba6 54 79 70 65 20 5e 47 20  |Type ^G |		.TXT	'Type ^G to exit, any other character for status '
00020bd6 49 2f 4f 20 65 78 65 72  |I/O exer|		.TXT	'I/O exerciser done. '
00020bea 00 00 ff ff b6 db        |        |		.XXX[0x6]
00020bf0 ed b6 aa aa 20 53 52 3d  |     SR=|		.XXX[0x50]
00020bf8 20 48 44 3d 20 50 4c 3d  | HD= PL=|
00020c00 20 52 43 3d 20 58 30 3d  | RC= X0=|
00020c08 20 58 31 3d 20 58 32 3d  | X1= X2=|
00020c10 20 58 33 3d 20 43 53 31  | X3= CS1|
00020c18 3d 20 43 53 32 3d 20 44  |= CS2= D|
00020c20 53 3d 20 20 45 52 31 3d  |S=  ER1=|
00020c28 20 45 52 32 3d 20 45 43  | ER2= EC|
00020c30 31 3d 20 45 43 32 3d 20  |1= EC2= |
00020c38 44 43 3d 20 20 44 41 3d  |DC=  DA=|
00020c40 20 00                    |        |		.XXX[0x2]
00020c42 ; --------------------------------------------------------------------------------------
00020c42 ; OMSI PASCAL Function
00020c42 ;    <LVAR  0x008 4(r)>
00020c42 ; --------------------------------------------------------------------------------------
00020c42 4e 56 ff f6              |NV      |		LINK.W	A6,#0xfff6
00020c46 bf d5                    |        |		CMPA.L	(A5),A7
00020c48 62 06                    |b       |		BHI	0x20c50
00020c4a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c4e 4e 76                    |Nv      |		TRAPV
00020c50 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020c54 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020c58 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020c5c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020c62 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c64 4e 5e                    |N^      |		UNLK	A6
00020c66 4e 75                    |Nu      |		RTS
00020c68 ; --------------------------------------------------------------------------------------
00020c68 ; OMSI PASCAL Function
00020c68 ;    <LVAR  0x010 4(w)>
00020c68 ;    <LVAR  0x00c 4(r)>
00020c68 ;    <LVAR  0x008 4(r)>
00020c68 ; --------------------------------------------------------------------------------------
00020c68 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00020c6c bf d5                    |        |		CMPA.L	(A5),A7
00020c6e 62 06                    |b       |		BHI	0x20c76
00020c70 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c74 4e 76                    |Nv      |		TRAPV
00020c76 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020c7a 48 e7 19 80              |H       |		MOVEM.L	A0+D7+D4+D3,-(A7)
00020c7e 41 f9 00 02 57 9a        |A   W   |		LEA.L	0x2579a,A0
00020c84 28 10                    |(       |		MOVE.L	(A0),D4
00020c86 26 3c 00 00 01 a5        |&<      |		MOVE.L	#0x1a5,D3
00020c8c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020c92 20 84                    |        |		MOVE.L	D4,(A0)
00020c94 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00020c96 02 90 00 00 7f ff        |        |		ANDI.L	#0x00007fff,(A0)
00020c9c 2e 2e 00 08              |..      |		MOVE.L	(A6+0x8),D7
00020ca0 9e ae 00 0c              |        |		SUB.L	(A6+0xc),D7
00020ca4 52 87                    |R       |		ADDQ.L	#0x1,D7
00020ca6 28 10                    |(       |		MOVE.L	(A0),D4
00020ca8 26 07                    |&       |		MOVE.L	D7,D3
00020caa 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00020cb0 d6 ae 00 0c              |        |		ADD.L	(A6+0xc),D3
00020cb4 2e 03                    |.       |		MOVE.L	D3,D7
00020cb6 2d 47 00 10              |-G      |		MOVE.L	D7,(A6+0x10)
00020cba 4c df 01 98              |L       |		MOVEM.L	(A7)+,D3+D4+D7+A0
00020cbe 4e 5e                    |N^      |		UNLK	A6
00020cc0 4e 75                    |Nu      |		RTS
00020cc2 ; --------------------------------------------------------------------------------------
00020cc2 ; OMSI PASCAL Function
00020cc2 ;    <LVAR  0x008 4(w)>
00020cc2 ; --------------------------------------------------------------------------------------
00020cc2 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00020cc6 bf d5                    |        |		CMPA.L	(A5),A7
00020cc8 62 06                    |b       |		BHI	0x20cd0
00020cca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cce 4e 76                    |Nv      |		TRAPV
00020cd0 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cd4 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00020cd8 43 f9 00 02 57 96        |C   W   |		LEA.L	0x25796,A1
00020cde 52 91                    |R       |		ADDQ.L	#0x1,(A1)
00020ce0 20 11                    |        |		MOVE.L	(A1),D0
00020ce2 0c 80 00 00 00 05        |        |		CMPI.L	#0x00000005,D0
00020ce8 6f 06                    |o       |		BLE	0x20cf0
00020cea 22 bc 00 00 00 01        |"       |		MOVE.L	#0x1,(A1)
00020cf0 20 11                    |        |		MOVE.L	(A1),D0
00020cf2 53 80                    |S       |		SUBQ.L	#0x1,D0
00020cf4 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
00020cfa 63 02                    |c       |		BLS	0x20cfe
00020cfc 4e 4f                    |NO      |		TRAP	#15
00020cfe e3 80                    |        |		ASL.L	#0x1,D0
00020d00 41 fa fe e8              |A       |		LEA.L	0x20bea,A0
00020d04 42 81                    |B       |		CLR.L	D1
00020d06 32 30 08 00              |20      |		MOVE.W	(A0+D0.L),D1
00020d0a 2d 41 00 08              |-A      |		MOVE.L	D1,(A6+0x8)
00020d0e 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020d12 4e 5e                    |N^      |		UNLK	A6
00020d14 4e 75                    |Nu      |		RTS
00020d16 ; --------------------------------------------------------------------------------------
00020d16 ; OMSI PASCAL Function
00020d16 ;    <LVAR -0x006 @>
00020d16 ;    <LVAR -0x008 @ 1(r)>
00020d16 ; --------------------------------------------------------------------------------------
00020d16 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00020d1a bf d5                    |        |		CMPA.L	(A5),A7
00020d1c 62 06                    |b       |		BHI	0x20d24
00020d1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d22 4e 76                    |Nv      |		TRAPV
00020d24 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00020d28 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020d2c 43 f9 00 01 02 38        |C    8  |		LEA.L	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
00020d32 45 f9 00 02 57 a2        |E   W   |		LEA.L	0x257a2,A2
00020d38 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00020d3a 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020d3c 76 04                    |v       |		MOVEQ.L	#0x04,D3
00020d3e 78 18                    |x       |		MOVEQ.L	#0x18,D4
00020d40 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00020d42 7c 1f                    ||       |		MOVEQ.L	#0x1f,D6
00020d44 41 fa f3 fa              |A       |		LEA.L	0x20140,A0
00020d48 70 05                    |p       |		MOVEQ.L	#0x05,D0
00020d4a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020d4c 51 c8 ff fc              |Q       |		DBF	D0,0x20d4a
00020d50 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d52 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020d56 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020d58 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020d5a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d60 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d62 1e 82                    |        |		MOVE.B	D2,(A7)
00020d64 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020d6a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d6c 10 1f                    |        |		MOVE.B	(A7)+,D0
00020d6e 48 80                    |H       |		EXTB.W	D0
00020d70 41 82                    |A       |		CHK.W	D2,D0
00020d72 de c4                    |        |		ADDA.W	D4,A7
00020d74 14 80                    |        |		MOVE.B	D0,(A2)
00020d76 48 78 04 00              |Hx      |		PEA.L	0x400
00020d7a 41 f9 00 02 57 a8        |A   W   |		LEA.L	0x257a8,A0
00020d80 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d82 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d84 4e 91                    |N       |		JSR	(A1)
00020d86 de c1                    |        |		ADDA.W	D1,A7
00020d88 48 78 04 04              |Hx      |		PEA.L	0x404
00020d8c 41 f9 00 02 57 ac        |A   W   |		LEA.L	0x257ac,A0
00020d92 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d94 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020d96 4e 91                    |N       |		JSR	(A1)
00020d98 de c1                    |        |		ADDA.W	D1,A7
00020d9a 48 78 04 06              |Hx      |		PEA.L	0x406
00020d9e 41 f9 00 02 57 ae        |A   W   |		LEA.L	0x257ae,A0
00020da4 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020da6 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020da8 4e 91                    |N       |		JSR	(A1)
00020daa de c1                    |        |		ADDA.W	D1,A7
00020dac 48 78 04 08              |Hx      |		PEA.L	0x408
00020db0 41 f9 00 02 57 b0        |A   W   |		LEA.L	0x257b0,A0
00020db6 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020db8 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020dba 4e 91                    |N       |		JSR	(A1)
00020dbc de c1                    |        |		ADDA.W	D1,A7
00020dbe 48 78 04 0c              |Hx      |		PEA.L	0x40c
00020dc2 41 f9 00 02 57 b4        |A   W   |		LEA.L	0x257b4,A0
00020dc8 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020dca 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020dcc 4e 91                    |N       |		JSR	(A1)
00020dce de c1                    |        |		ADDA.W	D1,A7
00020dd0 4a 12                    |J       |		TST.B	(A2)
00020dd2 67 4c                    |gL      |		BEQ	0x20e20
00020dd4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020dd6 be 86                    |        |		CMP.L	D6,D7
00020dd8 63 02                    |c       |		BLS	0x20ddc
00020dda 4e 4f                    |NO      |		TRAP	#15
00020ddc 20 07                    |        |		MOVE.L	D7,D0
00020dde e9 80                    |        |		ASL.L	#0x4,D0
00020de0 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00020de6 42 30 08 2a              |B0 *    |		CLR.B	(A0+D0.L+#0x2a)
00020dea 42 30 08 2b              |B0 +    |		CLR.B	(A0+D0.L+#0x2b)
00020dee 42 30 08 2c              |B0 ,    |		CLR.B	(A0+D0.L+#0x2c)
00020df2 42 70 08 2e              |Bp .    |		CLR.W	(A0+D0.L+#0x2e)
00020df6 42 70 08 30              |Bp 0    |		CLR.W	(A0+D0.L+#0x30)
00020dfa 42 b0 08 32              |B  2    |		CLR.L	(A0+D0.L+#0x32)
00020dfe 42 b0 08 36              |B  6    |		CLR.L	(A0+D0.L+#0x36)
00020e02 52 87                    |R       |		ADDQ.L	#0x1,D7
00020e04 be 86                    |        |		CMP.L	D6,D7
00020e06 6f ce                    |o       |		BLE	0x20dd6
00020e08 42 27                    |B'      |		CLR.B	-(A7)
00020e0a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020e0e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020e12 4e b9 00 01 02 32        |N    2  |		JSR	KERNCALL_19
00020e18 de c1                    |        |		ADDA.W	D1,A7
00020e1a 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
00020e1e 66 e8                    |f       |		BNE	0x20e08
00020e20 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00020e24 4e 5e                    |N^      |		UNLK	A6
00020e26 4e 75                    |Nu      |		RTS
00020e28 ; --------------------------------------------------------------------------------------
00020e28 ; OMSI PASCAL Function
00020e28 ;    <LVAR  0x010 2(r)>
00020e28 ;    <LVAR  0x00c 4(r)>
00020e28 ;    <LVAR  0x008 4(r)>
00020e28 ;    <LVAR -0x009 1(r)>
00020e28 ;    <LVAR -0x00a 1(r)>
00020e28 ;    <LVAR -0x00c 1(r)>
00020e28 ;    <LVAR -0x00f 1(r)>
00020e28 ;    <LVAR -0x010 1(r)>
00020e28 ;    <LVAR -0x011 1(r)>
00020e28 ;    <LVAR -0x012 @>
00020e28 ;    <LVAR -0x01c @ 2(r)>
00020e28 ;    <LVAR -0x01e @ 1(r)>
00020e28 ; --------------------------------------------------------------------------------------
00020e28 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00020e2c bf d5                    |        |		CMPA.L	(A5),A7
00020e2e 62 06                    |b       |		BHI	0x20e36
00020e30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e34 4e 76                    |Nv      |		TRAPV
00020e36 de fc 00 72              |   r    |		ADDA.W	#0x72,A7
00020e3a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020e3e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020e44 49 fa fd fc              |I       |		LEA.L	0x20c42,A4
00020e48 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00020e4e 67 00 02 e8              |g       |		BEQ	0x21138
00020e52 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e54 10 07                    |        |		MOVE.B	D7,D0
00020e56 48 80                    |H       |		EXTB.W	D0
00020e58 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00020e5c 1f 00                    |        |		MOVE.B	D0,-(A7)
00020e5e 48 6e ff e2              |Hn      |		PEA.L	(A6-0x1e)
00020e62 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00020e66 4e b9 00 01 02 32        |N    2  |		JSR	KERNCALL_19
00020e6c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020e70 4a 2e ff e2              |J.      |		TST.B	(A6-0x1e)
00020e74 67 00 02 26              |g  &    |		BEQ	0x2109c
00020e78 30 2e ff e4              |0.      |		MOVE.W	(A6-0x1c),D0
00020e7c 0c 40 00 ff              | @      |		CMPI.W	#0x00ff,D0
00020e80 63 24                    |c$      |		BLS	0x20ea6
00020e82 41 fa f2 dc              |A       |		LEA.L	0x20160,A0
00020e86 72 07                    |r       |		MOVEQ.L	#0x07,D1
00020e88 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020e8a 51 c9 ff fc              |Q       |		DBF	D1,0x20e88
00020e8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e94 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020e98 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00020e9c 4e 93                    |N       |		JSR	(A3)
00020e9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ea0 4e 94                    |N       |		JSR	(A4)
00020ea2 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020ea6 32 39 00 02 57 ae        |29  W   |		MOVE.W	0x257ae,D1
00020eac c2 c0                    |        |		MULU.W	D0,D1
00020eae d2 b9 00 02 57 b0        |    W   |		ADD.L	0x257b0,D1
00020eb4 2f 01                    |/       |		MOVE.L	D1,-(A7)
00020eb6 41 ee ff ee              |A       |		LEA.L	(A6-0x12),A0
00020eba 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020ebc 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00020ec0 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020ec6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020eca 42 81                    |B       |		CLR.L	D1
00020ecc 12 2e ff f6              | .      |		MOVE.B	(A6-0xa),D1
00020ed0 34 01                    |4       |		MOVE.W	D1,D2
00020ed2 e6 42                    | B      |		ASR.W	#0x3,D2
00020ed4 e9 42                    | B      |		ASL.W	#0x4,D2
00020ed6 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00020edc 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020ede 42 83                    |B       |		CLR.L	D3
00020ee0 16 2e ff f1              | .      |		MOVE.B	(A6-0xf),D3
00020ee4 b6 40                    | @      |		CMP.W	D0,D3
00020ee6 67 2a                    |g*      |		BEQ	0x20f12
00020ee8 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00020eec 22 4f                    |"O      |		MOVEA.L	A7,A1
00020eee 45 fa f2 70              |E  p    |		LEA.L	0x20160,A2
00020ef2 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020ef4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020ef6 51 c8 ff fc              |Q       |		DBF	D0,0x20ef4
00020efa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020efc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f00 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f04 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00020f08 4e 93                    |N       |		JSR	(A3)
00020f0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f0c 4e 94                    |N       |		JSR	(A4)
00020f0e de fc 00 18              |        |		ADDA.W	#0x18,A7
00020f12 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
00020f16 67 2a                    |g*      |		BEQ	0x20f42
00020f18 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00020f1c 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f1e 45 fa f2 54              |E  T    |		LEA.L	0x20174,A2
00020f22 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020f24 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020f26 51 c8 ff fc              |Q       |		DBF	D0,0x20f24
00020f2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f2c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f30 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f34 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020f38 4e 93                    |N       |		JSR	(A3)
00020f3a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f3c 4e 94                    |N       |		JSR	(A4)
00020f3e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020f42 4a 30 20 2b              |J0 +    |		TST.B	(A0+D2.W+#0x2b)
00020f46 66 2a                    |f*      |		BNE	0x20f72
00020f48 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00020f4c 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f4e 45 fa f2 3c              |E  <    |		LEA.L	0x2018c,A2
00020f52 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00020f54 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020f56 51 c8 ff fc              |Q       |		DBF	D0,0x20f54
00020f5a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f5c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f60 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f64 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00020f68 4e 93                    |N       |		JSR	(A3)
00020f6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f6c 4e 94                    |N       |		JSR	(A4)
00020f6e de fc 00 20              |        |		ADDA.W	#0x20,A7
00020f72 30 01                    |0       |		MOVE.W	D1,D0
00020f74 48 c0                    |H       |		EXTW.L	D0
00020f76 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020f78 42 81                    |B       |		CLR.L	D1
00020f7a 32 30 20 2e              |20 .    |		MOVE.W	(A0+D2.W+#0x2e),D1
00020f7e d2 80                    |        |		ADD.L	D0,D1
00020f80 48 c3                    |H       |		EXTW.L	D3
00020f82 b6 81                    |        |		CMP.L	D1,D3
00020f84 67 2a                    |g*      |		BEQ	0x20fb0
00020f86 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00020f8a 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f8c 45 fa f2 1a              |E       |		LEA.L	0x201a8,A2
00020f90 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00020f92 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020f94 51 c8 ff fc              |Q       |		DBF	D0,0x20f92
00020f98 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f9a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f9e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020fa2 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00020fa6 4e 93                    |N       |		JSR	(A3)
00020fa8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020faa 4e 94                    |N       |		JSR	(A4)
00020fac de fc 00 20              |        |		ADDA.W	#0x20,A7
00020fb0 42 80                    |B       |		CLR.L	D0
00020fb2 30 30 20 2e              |00 .    |		MOVE.W	(A0+D2.W+#0x2e),D0
00020fb6 52 80                    |R       |		ADDQ.L	#0x1,D0
00020fb8 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020fbe 63 02                    |c       |		BLS	0x20fc2
00020fc0 4e 4f                    |NO      |		TRAP	#15
00020fc2 31 80 20 2e              |1  .    |		MOVE.W	D0,(A0+D2.W+#0x2e)
00020fc6 b0 70 20 30              | p 0    |		CMP.W	(A0+D2.W+#0x30),D0
00020fca 63 24                    |c$      |		BLS	0x20ff0
00020fcc 41 fa f2 10              |A       |		LEA.L	0x201de,A0
00020fd0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020fd2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020fd4 51 c8 ff fc              |Q       |		DBF	D0,0x20fd2
00020fd8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fda 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020fde 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020fe2 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00020fe6 4e 93                    |N       |		JSR	(A3)
00020fe8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fea 4e 94                    |N       |		JSR	(A4)
00020fec de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020ff0 10 2e ff f7              | .      |		MOVE.B	(A6-0x9),D0
00020ff4 ee 08                    |        |		LSR.B	#0x7,D0
00020ff6 67 00 00 a2              |g       |		BEQ	0x2109a
00020ffa 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00020ffe 42 30 20 2b              |B0 +    |		CLR.B	(A0+D2.W+#0x2b)
00021002 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00021006 11 bc 00 01 20 2a        |     *  |		MOVE.B	#0x01,(A0+D2.W+#0x2a)
0002100c 10 2e ff f7              | .      |		MOVE.B	(A6-0x9),D0
00021010 ed 08                    |        |		LSL.B	#0x6,D0
00021012 ee 08                    |        |		LSR.B	#0x7,D0
00021014 11 80 20 2c              |   ,    |		MOVE.B	D0,(A0+D2.W+#0x2c)
00021018 4a b0 20 36              |J  6    |		TST.L	(A0+D2.W+#0x36)
0002101c 67 7c                    |g|      |		BEQ	0x2109a
0002101e 42 80                    |B       |		CLR.L	D0
00021020 10 2e ff ef              | .      |		MOVE.B	(A6-0x11),D0
00021024 e7 40                    | @      |		ASL.W	#0x3,D0
00021026 42 81                    |B       |		CLR.L	D1
00021028 12 2e ff f0              | .      |		MOVE.B	(A6-0x10),D1
0002102c 44 41                    |DA      |		NEG.W	D1
0002102e d2 40                    | @      |		ADD.W	D0,D1
00021030 48 c1                    |H       |		EXTW.L	D1
00021032 b2 b0 20 36              |   6    |		CMP.L	(A0+D2.W+#0x36),D1
00021036 6f 2a                    |o*      |		BLE	0x21062
00021038 9e fc 00 14              |        |		SUBA.W	#0x14,A7
0002103c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002103e 45 fa f1 9e              |E       |		LEA.L	0x201de,A2
00021042 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021044 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021046 51 c8 ff fc              |Q       |		DBF	D0,0x21044
0002104a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002104c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021050 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021054 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021058 4e 93                    |N       |		JSR	(A3)
0002105a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002105c 4e 94                    |N       |		JSR	(A4)
0002105e de fc 00 18              |        |		ADDA.W	#0x18,A7
00021062 28 17                    |(       |		MOVE.L	(A7),D4
00021064 42 83                    |B       |		CLR.L	D3
00021066 36 39 00 02 57 ac        |69  W   |		MOVE.W	0x257ac,D3
0002106c 4e b9 00 01 02 90        |N       |		JSR	?mulu_d3_d4
00021072 20 04                    |        |		MOVE.L	D4,D0
00021074 d0 b9 00 02 57 b4        |    W   |		ADD.L	0x257b4,D0
0002107a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002107c 2f 30 20 32              |/0 2    |		MOVE.L	(A0+D2.W+#0x32),-(A7)
00021080 20 30 20 36              | 0 6    |		MOVE.L	(A0+D2.W+#0x36),D0
00021084 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0002108a 63 02                    |c       |		BLS	0x2108e
0002108c 4e 4f                    |NO      |		TRAP	#15
0002108e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021090 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021096 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002109a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002109c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002109e 4a 2e ff e2              |J.      |		TST.B	(A6-0x1e)
000210a2 66 00 fd b0              |f       |		BNE	0x20e54
000210a6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000210a8 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000210aa 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000210ac 70 00                    |p       |		MOVEQ.L	#0x00,D0
000210ae 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000210b4 63 02                    |c       |		BLS	0x210b8
000210b6 4e 4f                    |NO      |		TRAP	#15
000210b8 22 00                    |"       |		MOVE.L	D0,D1
000210ba e9 81                    |        |		ASL.L	#0x4,D1
000210bc 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000210c2 14 06                    |        |		MOVE.B	D6,D2
000210c4 84 30 18 2b              | 0 +    |		OR.B	(A0+D1.L+#0x2b),D2
000210c8 48 82                    |H       |		EXTB.W	D2
000210ca 45 bc 00 01              |E       |		CHK.W	#0x1,D2
000210ce 1c 02                    |        |		MOVE.B	D2,D6
000210d0 14 05                    |        |		MOVE.B	D5,D2
000210d2 84 30 18 2a              | 0 *    |		OR.B	(A0+D1.L+#0x2a),D2
000210d6 48 82                    |H       |		EXTB.W	D2
000210d8 45 bc 00 01              |E       |		CHK.W	#0x1,D2
000210dc 1a 02                    |        |		MOVE.B	D2,D5
000210de 52 80                    |R       |		ADDQ.L	#0x1,D0
000210e0 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000210e6 6f c6                    |o       |		BLE	0x210ae
000210e8 4a 05                    |J       |		TST.B	D5
000210ea 66 06                    |f       |		BNE	0x210f2
000210ec 4a 06                    |J       |		TST.B	D6
000210ee 66 00 fd 64              |f  d    |		BNE	0x20e54
000210f2 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
000210f6 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
000210fa 42 81                    |B       |		CLR.L	D1
000210fc 32 00                    |2       |		MOVE.W	D0,D1
000210fe e9 81                    |        |		ASL.L	#0x4,D1
00021100 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00021106 4a 30 18 2a              |J0 *    |		TST.B	(A0+D1.L+#0x2a)
0002110a 67 1e                    |g       |		BEQ	0x2112a
0002110c 42 30 18 2a              |B0 *    |		CLR.B	(A0+D1.L+#0x2a)
00021110 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00021114 12 bc 00 01              |        |		MOVE.B	#0x01,(A1)
00021118 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
0002111c 10 30 18 2c              | 0 ,    |		MOVE.B	(A0+D1.L+#0x2c),D0
00021120 48 80                    |H       |		EXTB.W	D0
00021122 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00021126 12 80                    |        |		MOVE.B	D0,(A1)
00021128 60 0c                    |`       |		BRA	0x21136
0002112a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002112e 42 10                    |B       |		CLR.B	(A0)
00021130 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021134 42 10                    |B       |		CLR.B	(A0)
00021136 60 1a                    |`       |		BRA	0x21152
00021138 3f 2e 00 10              |?.      |		MOVE.W	(A6+0x10),-(A7)
0002113c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021140 48 50                    |HP      |		PEA.L	(A0)
00021142 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021146 48 50                    |HP      |		PEA.L	(A0)
00021148 4e b9 00 01 02 08        |N       |		JSR	KERNCALL_04
0002114e de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021152 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021156 4e 5e                    |N^      |		UNLK	A6
00021158 4e 75                    |Nu      |		RTS
0002115a ; --------------------------------------------------------------------------------------
0002115a ; OMSI PASCAL Function
0002115a ;    <LVAR  0x00c 2(r)>
0002115a ;    <LVAR  0x008 4(r)>
0002115a ;    <LVAR -0x002 @ 1(r)>
0002115a ; --------------------------------------------------------------------------------------
0002115a 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
0002115e bf d5                    |        |		CMPA.L	(A5),A7
00021160 62 06                    |b       |		BHI	0x21168
00021162 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021166 4e 76                    |Nv      |		TRAPV
00021168 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002116c 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021170 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00021176 67 1e                    |g       |		BEQ	0x21196
00021178 3f 2e 00 0c              |?.      |		MOVE.W	(A6+0xc),-(A7)
0002117c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021180 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021184 48 50                    |HP      |		PEA.L	(A0)
00021186 4e ba fc a0              |N       |		JSR	0x20e28
0002118a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002118e 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00021192 67 e4                    |g       |		BEQ	0x21178
00021194 60 12                    |`       |		BRA	0x211a8
00021196 3f 2e 00 0c              |?.      |		MOVE.W	(A6+0xc),-(A7)
0002119a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002119e 48 50                    |HP      |		PEA.L	(A0)
000211a0 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000211a6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211a8 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000211ac 4e 5e                    |N^      |		UNLK	A6
000211ae 4e 75                    |Nu      |		RTS
000211b0 ; --------------------------------------------------------------------------------------
000211b0 ; OMSI PASCAL Function
000211b0 ;    <LVAR  0x00a 4(w)>
000211b0 ;    <LVAR  0x008 2(r)>
000211b0 ;    <LVAR -0x014 1(r)>
000211b0 ;    <LVAR -0x015 1(r)>
000211b0 ;    <LVAR -0x016 @>
000211b0 ; --------------------------------------------------------------------------------------
000211b0 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
000211b4 bf d5                    |        |		CMPA.L	(A5),A7
000211b6 62 06                    |b       |		BHI	0x211be
000211b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211bc 4e 76                    |Nv      |		TRAPV
000211be de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000211c2 48 e7 f9 c0              |H       |		MOVEM.L	A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000211c6 42 80                    |B       |		CLR.L	D0
000211c8 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000211cc 2e 00                    |.       |		MOVE.L	D0,D7
000211ce e7 87                    |        |		ASL.L	#0x3,D7
000211d0 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
000211d4 48 c0                    |H       |		EXTW.L	D0
000211d6 e9 80                    |        |		ASL.L	#0x4,D0
000211d8 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000211de 42 81                    |B       |		CLR.L	D1
000211e0 32 30 08 2e              |20 .    |		MOVE.W	(A0+D0.L+#0x2e),D1
000211e4 de 81                    |        |		ADD.L	D1,D7
000211e6 53 87                    |S       |		SUBQ.L	#0x1,D7
000211e8 28 07                    |(       |		MOVE.L	D7,D4
000211ea 42 83                    |B       |		CLR.L	D3
000211ec 36 39 00 02 57 ae        |69  W   |		MOVE.W	0x257ae,D3
000211f2 4e b9 00 01 02 90        |N       |		JSR	?mulu_d3_d4
000211f8 22 04                    |"       |		MOVE.L	D4,D1
000211fa d2 b9 00 02 57 b0        |    W   |		ADD.L	0x257b0,D1
00021200 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021202 43 ee ff ea              |C       |		LEA.L	(A6-0x16),A1
00021206 2f 09                    |/       |		MOVE.L	A1,-(A7)
00021208 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
0002120c 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021212 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021216 42 81                    |B       |		CLR.L	D1
00021218 12 2e ff eb              | .      |		MOVE.B	(A6-0x15),D1
0002121c e7 41                    | A      |		ASL.W	#0x3,D1
0002121e 42 82                    |B       |		CLR.L	D2
00021220 14 2e ff ec              | .      |		MOVE.B	(A6-0x14),D2
00021224 44 42                    |DB      |		NEG.W	D2
00021226 d4 41                    | A      |		ADD.W	D1,D2
00021228 42 81                    |B       |		CLR.L	D1
0002122a 32 30 08 2e              |20 .    |		MOVE.W	(A0+D0.L+#0x2e),D1
0002122e 53 81                    |S       |		SUBQ.L	#0x1,D1
00021230 e1 81                    |        |		ASL.L	#0x8,D1
00021232 e5 81                    |        |		ASL.L	#0x2,D1
00021234 48 c2                    |H       |		EXTW.L	D2
00021236 d2 82                    |        |		ADD.L	D2,D1
00021238 2d 41 00 0a              |-A      |		MOVE.L	D1,(A6+0xa)
0002123c 4c df 03 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1
00021240 4e 5e                    |N^      |		UNLK	A6
00021242 4e 75                    |Nu      |		RTS
00021244 ; --------------------------------------------------------------------------------------
00021244 ; OMSI PASCAL Function
00021244 ;    <LVAR  0x016 4(r)>
00021244 ;    <LVAR  0x012 4(r)>
00021244 ;    <LVAR  0x010 2(r)>
00021244 ;    <LVAR  0x00c 4(r)>
00021244 ;    <LVAR  0x008 4(r)>
00021244 ;    <LVAR -0x004 4(w)>
00021244 ;    <LVAR -0x007 1(w)>
00021244 ;    <LVAR -0x008 1(w) 4(w)>
00021244 ;    <LVAR -0x00a 1(w)>
00021244 ;    <LVAR -0x00c 4(w)>
00021244 ;    <LVAR -0x00d 1(w)>
00021244 ;    <LVAR -0x00e 1(w)>
00021244 ;    <LVAR -0x00f 1(w)>
00021244 ;    <LVAR -0x010 @ 1(w) 4(w)>
00021244 ; --------------------------------------------------------------------------------------
00021244 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80
00021248 bf d5                    |        |		CMPA.L	(A5),A7
0002124a 62 06                    |b       |		BHI	0x21252
0002124c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021250 4e 76                    |Nv      |		TRAPV
00021252 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021256 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002125a 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
0002125e 49 ee 00 10              |I       |		LEA.L	(A6+0x10),A4
00021262 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021264 7a 0a                    |z       |		MOVEQ.L	#0x0a,D5
00021266 2c 3c 00 00 00 ff        |,<      |		MOVE.L	#0xff,D6
0002126c 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00021272 67 00 01 4c              |g  L    |		BEQ	0x213c0
00021276 30 14                    |0       |		MOVE.W	(A4),D0
00021278 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
0002127c 42 81                    |B       |		CLR.L	D1
0002127e 32 00                    |2       |		MOVE.W	D0,D1
00021280 e9 81                    |        |		ASL.L	#0x4,D1
00021282 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00021288 42 80                    |B       |		CLR.L	D0
0002128a 30 14                    |0       |		MOVE.W	(A4),D0
0002128c e7 80                    |        |		ASL.L	#0x3,D0
0002128e b0 86                    |        |		CMP.L	D6,D0
00021290 63 02                    |c       |		BLS	0x21294
00021292 4e 4f                    |NO      |		TRAP	#15
00021294 3e 00                    |>       |		MOVE.W	D0,D7
00021296 4a 30 18 2b              |J0 +    |		TST.B	(A0+D1.L+#0x2b)
0002129a 66 06                    |f       |		BNE	0x212a2
0002129c 4a 30 18 2a              |J0 *    |		TST.B	(A0+D1.L+#0x2a)
000212a0 67 2e                    |g.      |		BEQ	0x212d0
000212a2 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
000212a6 22 4f                    |"O      |		MOVEA.L	A7,A1
000212a8 45 fa ef 48              |E  H    |		LEA.L	0x201f2,A2
000212ac 70 20                    |p       |		MOVEQ.L	#0x20,D0
000212ae 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000212b0 51 c8 ff fc              |Q       |		DBF	D0,0x212ae
000212b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212ba 3f 02                    |?       |		MOVE.W	D2,-(A7)
000212bc 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
000212c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212c8 4e ba f9 78              |N  x    |		JSR	0x20c42
000212cc de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000212d0 11 82 18 2b              |   +    |		MOVE.B	D2,(A0+D1.L+#0x2b)
000212d4 42 70 18 2e              |Bp .    |		CLR.W	(A0+D1.L+#0x2e)
000212d8 31 82 18 30              |1  0    |		MOVE.W	D2,(A0+D1.L+#0x30)
000212dc 21 ae 00 12 18 32        |!    2  |		MOVE.L	(A6+0x12),(A0+D1.L+#0x32)
000212e2 21 ae 00 08 18 36        |!    6  |		MOVE.L	(A6+0x8),(A0+D1.L+#0x36)
000212e8 4a 93                    |J       |		TST.L	(A3)
000212ea 67 2a                    |g*      |		BEQ	0x21316
000212ec 30 39 00 02 57 ac        |09  W   |		MOVE.W	0x257ac,D0
000212f2 c0 c7                    |        |		MULU.W	D7,D0
000212f4 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000212f8 d0 b9 00 02 57 b4        |    W   |		ADD.L	0x257b4,D0
000212fe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021300 20 13                    |        |		MOVE.L	(A3),D0
00021302 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021308 63 02                    |c       |		BLS	0x2130c
0002130a 4e 4f                    |NO      |		TRAP	#15
0002130c 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002130e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021314 de c5                    |        |		ADDA.W	D5,A7
00021316 20 6e 00 16              | n      |		MOVEA.L	(A6+0x16),A0
0002131a 9e fc 00 10              |        |		SUBA.W	#0x10,A7
0002131e 22 4f                    |"O      |		MOVEA.L	A7,A1
00021320 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
00021322 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021324 51 c8 ff fc              |Q       |		DBF	D0,0x21322
00021328 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
0002132c 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00021330 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00021334 2d 5f ff fc              |-_      |		MOVE.L	(A7)+,(A6-0x4)
00021338 1d 7c 00 40 ff f0        | | @    |		MOVE.B	#0x40,(A6-0x10)
0002133e 20 13                    |        |		MOVE.L	(A3),D0
00021340 5e 80                    |^       |		ADDQ.L	#0x7,D0
00021342 28 00                    |(       |		MOVE.L	D0,D4
00021344 76 08                    |v       |		MOVEQ.L	#0x08,D3
00021346 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002134c 0c 84 00 00 00 80        |        |		CMPI.L	#0x00000080,D4
00021352 63 02                    |c       |		BLS	0x21356
00021354 4e 4f                    |NO      |		TRAP	#15
00021356 1d 44 ff f1              | D      |		MOVE.B	D4,(A6-0xf)
0002135a 42 80                    |B       |		CLR.L	D0
0002135c 10 04                    |        |		MOVE.B	D4,D0
0002135e e7 40                    | @      |		ASL.W	#0x3,D0
00021360 48 c0                    |H       |		EXTW.L	D0
00021362 90 93                    |        |		SUB.L	(A3),D0
00021364 b0 86                    |        |		CMP.L	D6,D0
00021366 63 02                    |c       |		BLS	0x2136a
00021368 4e 4f                    |NO      |		TRAP	#15
0002136a 1d 40 ff f2              | @      |		MOVE.B	D0,(A6-0xe)
0002136e 4f 86                    |O       |		CHK.W	D6,D7
00021370 1d 47 ff f3              | G      |		MOVE.B	D7,(A6-0xd)
00021374 1d 7c 00 0f ff f6        | |      |		MOVE.B	#0x0f,(A6-0xa)
0002137a 1d 47 ff f8              | G      |		MOVE.B	D7,(A6-0x8)
0002137e 00 2e 00 80 ff f9        | .      |		ORI.B	#0x80,(A6-0x7)
00021384 02 2e 00 fe ff f9        | .      |		ANDI.B	#0xfe,(A6-0x7)
0002138a 30 39 00 02 57 ae        |09  W   |		MOVE.W	0x257ae,D0
00021390 c0 c7                    |        |		MULU.W	D7,D0
00021392 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
00021396 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021398 d0 b9 00 02 57 b0        |    W   |		ADD.L	0x257b0,D0
0002139e 2f 00                    |/       |		MOVE.L	D0,-(A7)
000213a0 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
000213a4 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000213aa de c5                    |        |		ADDA.W	D5,A7
000213ac 0c 47 ff ff              | G      |		CMPI.W	#0xffff,D7
000213b0 63 02                    |c       |		BLS	0x213b4
000213b2 4e 4f                    |NO      |		TRAP	#15
000213b4 3f 07                    |?       |		MOVE.W	D7,-(A7)
000213b6 4e b9 00 01 02 30        |N    0  |		JSR	KERNCALL_18
000213bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213be 60 14                    |`       |		BRA	0x213d4
000213c0 20 6e 00 16              | n      |		MOVEA.L	(A6+0x16),A0
000213c4 48 50                    |HP      |		PEA.L	(A0)
000213c6 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000213ca 3f 14                    |?       |		MOVE.W	(A4),-(A7)
000213cc 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000213d2 de c5                    |        |		ADDA.W	D5,A7
000213d4 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000213d8 4e 5e                    |N^      |		UNLK	A6
000213da 4e 75                    |Nu      |		RTS
000213dc ; --------------------------------------------------------------------------------------
000213dc ; OMSI PASCAL Function
000213dc ;    <LVAR  0x016 4(r)>
000213dc ;    <LVAR  0x012 4(r)>
000213dc ;    <LVAR  0x010 2(r)>
000213dc ;    <LVAR  0x00c 4(rw)>
000213dc ;    <LVAR  0x008 4(r)>
000213dc ;    <LVAR -0x016 @ 2(w)>
000213dc ;    <LVAR -0x01a 4(w)>
000213dc ;    <LVAR -0x01d 1(w)>
000213dc ;    <LVAR -0x01e 1(w) 4(w)>
000213dc ;    <LVAR -0x020 1(w)>
000213dc ;    <LVAR -0x022 4(w)>
000213dc ;    <LVAR -0x023 1(w)>
000213dc ;    <LVAR -0x024 1(rw)>
000213dc ;    <LVAR -0x025 1(rw)>
000213dc ;    <LVAR -0x026 @ 1(w) 4(w)>
000213dc ; --------------------------------------------------------------------------------------
000213dc 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
000213e0 bf d5                    |        |		CMPA.L	(A5),A7
000213e2 62 06                    |b       |		BHI	0x213ea
000213e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213e8 4e 76                    |Nv      |		TRAPV
000213ea de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
000213ee 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000213f2 47 ee ff da              |G       |		LEA.L	(A6-0x26),A3
000213f6 49 ee ff e3              |I       |		LEA.L	(A6-0x1d),A4
000213fa 24 3c 00 00 00 ff        |$<      |		MOVE.L	#0xff,D2
00021400 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00021406 67 00 02 70              |g  p    |		BEQ	0x21678
0002140a 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
0002140e 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
00021412 42 81                    |B       |		CLR.L	D1
00021414 32 00                    |2       |		MOVE.W	D0,D1
00021416 e9 81                    |        |		ASL.L	#0x4,D1
00021418 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002141e 42 80                    |B       |		CLR.L	D0
00021420 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
00021424 e7 80                    |        |		ASL.L	#0x3,D0
00021426 b0 82                    |        |		CMP.L	D2,D0
00021428 63 02                    |c       |		BLS	0x2142c
0002142a 4e 4f                    |NO      |		TRAP	#15
0002142c 3a 00                    |:       |		MOVE.W	D0,D5
0002142e 4a 30 18 2b              |J0 +    |		TST.B	(A0+D1.L+#0x2b)
00021432 66 06                    |f       |		BNE	0x2143a
00021434 4a 30 18 2a              |J0 *    |		TST.B	(A0+D1.L+#0x2a)
00021438 67 30                    |g0      |		BEQ	0x2146a
0002143a 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
0002143e 22 4f                    |"O      |		MOVEA.L	A7,A1
00021440 45 fa ed d2              |E       |		LEA.L	0x20214,A2
00021444 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021446 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021448 51 c8 ff fc              |Q       |		DBF	D0,0x21446
0002144c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002144e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021452 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021456 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
0002145a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021460 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021462 4e ba f7 de              |N       |		JSR	0x20c42
00021466 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002146a 11 bc 00 01 18 2b        |     +  |		MOVE.B	#0x01,(A0+D1.L+#0x2b)
00021470 42 70 18 2e              |Bp .    |		CLR.W	(A0+D1.L+#0x2e)
00021474 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00021478 06 80 00 00 03 ff        |        |		ADDI.L	#0x000003ff,D0
0002147e 28 00                    |(       |		MOVE.L	D0,D4
00021480 26 3c 00 00 04 00        |&<      |		MOVE.L	#0x400,D3
00021486 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002148c 0c 84 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D4
00021492 63 02                    |c       |		BLS	0x21496
00021494 4e 4f                    |NO      |		TRAP	#15
00021496 31 84 18 30              |1  0    |		MOVE.W	D4,(A0+D1.L+#0x30)
0002149a 4a 44                    |JD      |		TST.W	D4
0002149c 66 06                    |f       |		BNE	0x214a4
0002149e 31 bc 00 01 18 30        |1    0  |		MOVE.W	#0x1,(A0+D1.L+#0x30)
000214a4 42 b0 18 32              |B  2    |		CLR.L	(A0+D1.L+#0x32)
000214a8 42 b0 18 36              |B  6    |		CLR.L	(A0+D1.L+#0x36)
000214ac 20 6e 00 16              | n      |		MOVEA.L	(A6+0x16),A0
000214b0 9e fc 00 10              |        |		SUBA.W	#0x10,A7
000214b4 22 4f                    |"O      |		MOVEA.L	A7,A1
000214b6 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
000214b8 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214ba 51 c8 ff fc              |Q       |		DBF	D0,0x214b8
000214be 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000214c0 2d 5f ff de              |-_      |		MOVE.L	(A7)+,(A6-0x22)
000214c4 2d 5f ff e2              |-_      |		MOVE.L	(A7)+,(A6-0x1e)
000214c8 2d 5f ff e6              |-_      |		MOVE.L	(A7)+,(A6-0x1a)
000214cc 4a ae 00 0c              |J       |		TST.L	(A6+0xc)
000214d0 66 00 00 ec              |f       |		BNE	0x215be
000214d4 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000214d8 0c 80 00 00 04 00        |        |		CMPI.L	#0x00000400,D0
000214de 6f 00 00 de              |o       |		BLE	0x215be
000214e2 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000214e6 53 80                    |S       |		SUBQ.L	#0x1,D0
000214e8 28 00                    |(       |		MOVE.L	D0,D4
000214ea 26 3c 00 00 04 00        |&<      |		MOVE.L	#0x400,D3
000214f0 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000214f6 0c 84 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D4
000214fc 63 02                    |c       |		BLS	0x21500
000214fe 4e 4f                    |NO      |		TRAP	#15
00021500 3d 44 ff ea              |=D      |		MOVE.W	D4,(A6-0x16)
00021504 42 80                    |B       |		CLR.L	D0
00021506 30 04                    |0       |		MOVE.W	D4,D0
00021508 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002150a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002150c bc 97                    |        |		CMP.L	(A7),D6
0002150e 6e 2c                    |n,      |		BGT	0x2153c
00021510 0c 86 00 00 00 08        |        |		CMPI.L	#0x00000008,D6
00021516 63 02                    |c       |		BLS	0x2151a
00021518 4e 4f                    |NO      |		TRAP	#15
0002151a 20 06                    |        |		MOVE.L	D6,D0
0002151c e3 80                    |        |		ASL.L	#0x1,D0
0002151e 32 05                    |2       |		MOVE.W	D5,D1
00021520 48 c1                    |H       |		EXTW.L	D1
00021522 d2 86                    |        |		ADD.L	D6,D1
00021524 b2 82                    |        |		CMP.L	D2,D1
00021526 63 02                    |c       |		BLS	0x2152a
00021528 4e 4f                    |NO      |		TRAP	#15
0002152a 1d 81 08 ec              |        |		MOVE.B	D1,(A6+D0.L-#0x14)
0002152e bc 82                    |        |		CMP.L	D2,D6
00021530 63 02                    |c       |		BLS	0x21534
00021532 4e 4f                    |NO      |		TRAP	#15
00021534 1d 86 08 ed              |        |		MOVE.B	D6,(A6+D0.L-#0x13)
00021538 52 86                    |R       |		ADDQ.L	#0x1,D6
0002153a 68 d0                    |h       |		BVC	0x2150c
0002153c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002153e 30 39 00 02 57 ac        |09  W   |		MOVE.W	0x257ac,D0
00021544 c0 c5                    |        |		MULU.W	D5,D0
00021546 41 ee ff ea              |A       |		LEA.L	(A6-0x16),A0
0002154a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002154c d0 b9 00 02 57 b4        |    W   |		ADD.L	0x257b4,D0
00021552 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021554 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021558 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002155e de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021562 16 bc 00 40              |   @    |		MOVE.B	#0x40,(A3)
00021566 42 2e ff db              |B.      |		CLR.B	(A6-0x25)
0002156a 42 2e ff dc              |B.      |		CLR.B	(A6-0x24)
0002156e 4b 82                    |K       |		CHK.W	D2,D5
00021570 1d 45 ff dd              | E      |		MOVE.B	D5,(A6-0x23)
00021574 1d 7c 00 0f ff e0        | |      |		MOVE.B	#0x0f,(A6-0x20)
0002157a 1d 45 ff e2              | E      |		MOVE.B	D5,(A6-0x1e)
0002157e 00 14 00 80              |        |		ORI.B	#0x80,(A4)
00021582 00 14 00 01              |        |		ORI.B	#0x01,(A4)
00021586 30 39 00 02 57 ae        |09  W   |		MOVE.W	0x257ae,D0
0002158c c0 c5                    |        |		MULU.W	D5,D0
0002158e 20 4b                    | K      |		MOVEA.L	A3,A0
00021590 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021592 d0 b9 00 02 57 b0        |    W   |		ADD.L	0x257b0,D0
00021598 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002159a 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
0002159e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000215a4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000215a8 0c 45 ff ff              | E      |		CMPI.W	#0xffff,D5
000215ac 63 02                    |c       |		BLS	0x215b0
000215ae 4e 4f                    |NO      |		TRAP	#15
000215b0 3f 05                    |?       |		MOVE.W	D5,-(A7)
000215b2 4e b9 00 01 02 30        |N    0  |		JSR	KERNCALL_18
000215b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215ba 60 00 00 ba              |`       |		BRA	0x21676
000215be 4b 82                    |K       |		CHK.W	D2,D5
000215c0 3e 05                    |>       |		MOVE.W	D5,D7
000215c2 16 bc 00 40              |   @    |		MOVE.B	#0x40,(A3)
000215c6 4f 82                    |O       |		CHK.W	D2,D7
000215c8 1d 47 ff dd              | G      |		MOVE.B	D7,(A6-0x23)
000215cc 1d 7c 00 0f ff e0        | |      |		MOVE.B	#0x0f,(A6-0x20)
000215d2 4b 82                    |K       |		CHK.W	D2,D5
000215d4 1d 45 ff e2              | E      |		MOVE.B	D5,(A6-0x1e)
000215d8 02 14 00 fe              |        |		ANDI.B	#0xfe,(A4)
000215dc 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
000215e0 0c 80 00 00 04 00        |        |		CMPI.L	#0x00000400,D0
000215e6 6e 38                    |n8      |		BGT	0x21620
000215e8 22 00                    |"       |		MOVE.L	D0,D1
000215ea 5e 81                    |^       |		ADDQ.L	#0x7,D1
000215ec 28 01                    |(       |		MOVE.L	D1,D4
000215ee 76 08                    |v       |		MOVEQ.L	#0x08,D3
000215f0 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000215f6 0c 84 00 00 00 80        |        |		CMPI.L	#0x00000080,D4
000215fc 63 02                    |c       |		BLS	0x21600
000215fe 4e 4f                    |NO      |		TRAP	#15
00021600 1d 44 ff db              | D      |		MOVE.B	D4,(A6-0x25)
00021604 42 81                    |B       |		CLR.L	D1
00021606 12 04                    |        |		MOVE.B	D4,D1
00021608 e7 41                    | A      |		ASL.W	#0x3,D1
0002160a 48 c1                    |H       |		EXTW.L	D1
0002160c 44 80                    |D       |		NEG.L	D0
0002160e d0 81                    |        |		ADD.L	D1,D0
00021610 b0 82                    |        |		CMP.L	D2,D0
00021612 63 02                    |c       |		BLS	0x21616
00021614 4e 4f                    |NO      |		TRAP	#15
00021616 1d 40 ff dc              | @      |		MOVE.B	D0,(A6-0x24)
0002161a 00 14 00 80              |        |		ORI.B	#0x80,(A4)
0002161e 60 0e                    |`       |		BRA	0x2162e
00021620 1d 7c 00 80 ff db        | |      |		MOVE.B	#0x80,(A6-0x25)
00021626 42 2e ff dc              |B.      |		CLR.B	(A6-0x24)
0002162a 02 14 00 7f              |        |		ANDI.B	#0x7f,(A4)
0002162e 30 39 00 02 57 ae        |09  W   |		MOVE.W	0x257ae,D0
00021634 c0 c7                    |        |		MULU.W	D7,D0
00021636 20 4b                    | K      |		MOVEA.L	A3,A0
00021638 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002163a d0 b9 00 02 57 b0        |    W   |		ADD.L	0x257b0,D0
00021640 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021642 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00021646 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002164c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021650 0c 47 ff ff              | G      |		CMPI.W	#0xffff,D7
00021654 63 02                    |c       |		BLS	0x21658
00021656 4e 4f                    |NO      |		TRAP	#15
00021658 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002165a 4e b9 00 01 02 30        |N    0  |		JSR	KERNCALL_18
00021660 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021662 30 07                    |0       |		MOVE.W	D7,D0
00021664 52 40                    |R@      |		ADDQ.W	#0x1,D0
00021666 41 82                    |A       |		CHK.W	D2,D0
00021668 3e 00                    |>       |		MOVE.W	D0,D7
0002166a 04 ae 00 00 04 00 00 0c  |        |		SUBI.L	#0x00000400,(A6+0xc)
00021672 6e 00 ff 4e              |n  N    |		BGT	0x215c2
00021676 60 18                    |`       |		BRA	0x21690
00021678 20 6e 00 16              | n      |		MOVEA.L	(A6+0x16),A0
0002167c 48 50                    |HP      |		PEA.L	(A0)
0002167e 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00021682 3f 2e 00 10              |?.      |		MOVE.W	(A6+0x10),-(A7)
00021686 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
0002168c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021690 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021694 4e 5e                    |N^      |		UNLK	A6
00021696 4e 75                    |Nu      |		RTS
00021698 ; --------------------------------------------------------------------------------------
00021698 ; OMSI PASCAL Function
00021698 ;    <LVAR  0x00a 1(rw)>
00021698 ;    <LVAR  0x008 2(r)>
00021698 ;    <LVAR -0x008 2(r)>
00021698 ;    <LVAR -0x010 2(r)>
00021698 ;    <LVAR -0x014 @ 2(r)>
00021698 ;    <LVAR -0x016 @>
00021698 ;    <LVAR -0x018 2(r)>
00021698 ;    <LVAR -0x01a 2(r)>
00021698 ;    <LVAR -0x01c 2(w)>
00021698 ;    <LVAR -0x01e 2(w)>
00021698 ;    <LVAR -0x020 2(r)>
00021698 ;    <LVAR -0x022 2(w)>
00021698 ;    <LVAR -0x024 2(r)>
00021698 ;    <LVAR -0x026 @ 2(r)>
00021698 ; --------------------------------------------------------------------------------------
00021698 4e 56 ff b4              |NV      |		LINK.W	A6,#0xffb4
0002169c bf d5                    |        |		CMPA.L	(A5),A7
0002169e 62 06                    |b       |		BHI	0x216a6
000216a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216a4 4e 76                    |Nv      |		TRAPV
000216a6 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000216aa 48 e7 e0 80              |H       |		MOVEM.L	A0+D2+D1+D0,-(A7)
000216ae 72 1c                    |r       |		MOVEQ.L	#0x1c,D1
000216b0 74 01                    |t       |		MOVEQ.L	#0x01,D2
000216b2 42 6e ff da              |Bn      |		CLR.W	(A6-0x26)
000216b6 42 6e ff dc              |Bn      |		CLR.W	(A6-0x24)
000216ba 3d 7c 00 03 ff de        |=|      |		MOVE.W	#0x3,(A6-0x22)
000216c0 42 6e ff e0              |Bn      |		CLR.W	(A6-0x20)
000216c4 3d 7c 00 04 ff e2        |=|      |		MOVE.W	#0x4,(A6-0x1e)
000216ca 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000216ce e1 40                    | @      |		ASL.W	#0x8,D0
000216d0 3d 40 ff e4              |=@      |		MOVE.W	D0,(A6-0x1c)
000216d4 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
000216d8 42 6e ff e8              |Bn      |		CLR.W	(A6-0x18)
000216dc 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
000216e0 41 ee ff ec              |A       |		LEA.L	(A6-0x14),A0
000216e4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000216e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216e8 48 78 00 00              |Hx      |		PEA.L	0x0
000216ec 48 78 00 14              |Hx      |		PEA.L	0x14
000216f0 4e ba fb 52              |N  R    |		JSR	0x21244
000216f4 de fc 00 10              |        |		ADDA.W	#0x10,A7
000216f8 3e 81                    |>       |		MOVE.W	D1,(A7)
000216fa 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000216fe 4e ba fa 5a              |N  Z    |		JSR	0x2115a
00021702 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021704 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
00021708 30 2e ff ec              |0.      |		MOVE.W	(A6-0x14),D0
0002170c c0 42                    | B      |		AND.W	D2,D0
0002170e b0 42                    | B      |		CMP.W	D2,D0
00021710 66 18                    |f       |		BNE	0x2172a
00021712 30 2e ff f0              |0.      |		MOVE.W	(A6-0x10),D0
00021716 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
0002171a 66 0e                    |f       |		BNE	0x2172a
0002171c 30 2e ff f8              |0.      |		MOVE.W	(A6-0x8),D0
00021720 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
00021724 66 04                    |f       |		BNE	0x2172a
00021726 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
0002172a 4c df 01 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0
0002172e 4e 5e                    |N^      |		UNLK	A6
00021730 4e 75                    |Nu      |		RTS
00021732 ; --------------------------------------------------------------------------------------
00021732 ; OMSI PASCAL Function
00021732 ;    <LVAR  0x008 2(r)>
00021732 ; --------------------------------------------------------------------------------------
00021732 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00021736 bf d5                    |        |		CMPA.L	(A5),A7
00021738 62 06                    |b       |		BHI	0x21740
0002173a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002173e 4e 76                    |Nv      |		TRAPV
00021740 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021744 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
00021748 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002174c c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00021750 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00021756 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002175a 42 a8 02 30              |B  0    |		CLR.L	(A0+0x230)
0002175e 42 a8 02 34              |B  4    |		CLR.L	(A0+0x234)
00021762 42 a8 02 38              |B  8    |		CLR.L	(A0+0x238)
00021766 42 a8 02 44              |B  D    |		CLR.L	(A0+0x244)
0002176a 42 28 02 2b              |B( +    |		CLR.B	(A0+0x22b)
0002176e 42 28 02 2d              |B( -    |		CLR.B	(A0+0x22d)
00021772 11 7c 00 01 02 2e        | |   .  |		MOVE.B	#0x01,(A0+0x22e)
00021778 21 7c 00 00 00 0a 02 4c  |!|     L|		MOVE.L	#0xa,(A0+0x24c)
00021780 42 a8 02 48              |B  H    |		CLR.L	(A0+0x248)
00021784 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
0002178a 67 1c                    |g       |		BEQ	0x217a8
0002178c 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00021790 06 40 00 10              | @      |		ADDI.W	#0x0010,D0
00021794 e7 40                    | @      |		ASL.W	#0x3,D0
00021796 c0 f9 00 02 57 ac        |    W   |		MULU.W	0x257ac,D0
0002179c d0 b9 00 02 57 b4        |    W   |		ADD.L	0x257b4,D0
000217a2 2e 00                    |.       |		MOVE.L	D0,D7
000217a4 2f 07                    |/       |		MOVE.L	D7,-(A7)
000217a6 60 06                    |`       |		BRA	0x217ae
000217a8 43 e8 03 d4              |C       |		LEA.L	(A0+0x3d4),A1
000217ac 2f 09                    |/       |		MOVE.L	A1,-(A7)
000217ae 21 5f 03 d0              |!_      |		MOVE.L	(A7)+,(A0+0x3d0)
000217b2 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
000217b6 4e 5e                    |N^      |		UNLK	A6
000217b8 4e 75                    |Nu      |		RTS
000217ba ; --------------------------------------------------------------------------------------
000217ba ; OMSI PASCAL Function
000217ba ;    <LVAR  0x008 2(r)>
000217ba ;    <LVAR -0x006 2(w)>
000217ba ;    <LVAR -0x008 2(w)>
000217ba ;    <LVAR -0x00e 2(w)>
000217ba ;    <LVAR -0x012 @>
000217ba ; --------------------------------------------------------------------------------------
000217ba 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
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 4a              |   J    |		ADDA.W	#0x4a,A7
000217cc 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
000217d0 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000217d4 45 f8 00 00              |E       |		LEA.L	0x0,A2
000217d8 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
000217dc 74 10                    |t       |		MOVEQ.L	#0x10,D2
000217de 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000217e2 c1 d1                    |        |		MULS.W	(A1),D0
000217e4 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000217ea 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000217ee 3d 7c 00 03 ff f2        |=|      |		MOVE.W	#0x3,(A6-0xe)
000217f4 30 11                    |0       |		MOVE.W	(A1),D0
000217f6 e1 40                    | @      |		ASL.W	#0x8,D0
000217f8 12 28 23 d4              | (#     |		MOVE.B	(A0+0x23d4),D1
000217fc 48 81                    |H       |		EXTB.W	D1
000217fe d0 41                    | A      |		ADD.W	D1,D0
00021800 0c 40 ff ff              | @      |		CMPI.W	#0xffff,D0
00021804 63 02                    |c       |		BLS	0x21808
00021806 4e 4f                    |NO      |		TRAP	#15
00021808 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
0002180c 20 28 23 d6              | (#     |		MOVE.L	(A0+0x23d6),D0
00021810 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021816 63 02                    |c       |		BLS	0x2181a
00021818 4e 4f                    |NO      |		TRAP	#15
0002181a 3d 40 ff fa              |=@      |		MOVE.W	D0,(A6-0x6)
0002181e 55 41                    |UA      |		SUBQ.W	#0x2,D1
00021820 0c 41 00 19              | A      |		CMPI.W	#0x0019,D1
00021824 62 00 00 a6              |b       |		BHI	switch@0x2182a[0xe]
00021828 d2 41                    | A      |		ADD.W	D1,D1
0002182a 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00021832 00 4a                    | J      |		.CONST	0x4a			; [0x0] -> 0x2187c
00021834 00 4a                    | J      |		.CONST	0x4a			; [0x1] -> 0x2187c
00021836 00 74                    | t      |		.CONST	0x74			; [0x2] -> 0x218a6
00021838 00 74                    | t      |		.CONST	0x74			; [0x3] -> 0x218a6
0002183a 00 34                    | 4      |		.CONST	0x34			; [0x4] -> 0x21866
0002183c 00 34                    | 4      |		.CONST	0x34			; [0x5] -> 0x21866
0002183e 00 34                    | 4      |		.CONST	0x34			; [0x6] -> 0x21866
00021840 00 34                    | 4      |		.CONST	0x34			; [0x7] -> 0x21866
00021842 00 34                    | 4      |		.CONST	0x34			; [0x8] -> 0x21866
00021844 00 34                    | 4      |		.CONST	0x34			; [0x9] -> 0x21866
00021846 00 34                    | 4      |		.CONST	0x34			; [0xa] -> 0x21866
00021848 00 34                    | 4      |		.CONST	0x34			; [0xb] -> 0x21866
0002184a 00 34                    | 4      |		.CONST	0x34			; [0xc] -> 0x21866
0002184c 00 34                    | 4      |		.CONST	0x34			; [0xd] -> 0x21866
0002184e 00 9a                    |        |		.CONST	0x9a			; [0xe] -> 0x218cc
00021850 00 9a                    |        |		.CONST	0x9a			; [0xf] -> 0x218cc
00021852 00 34                    | 4      |		.CONST	0x34			; [0x10] -> 0x21866
00021854 00 34                    | 4      |		.CONST	0x34			; [0x11] -> 0x21866
00021856 00 34                    | 4      |		.CONST	0x34			; [0x12] -> 0x21866
00021858 00 34                    | 4      |		.CONST	0x34			; [0x13] -> 0x21866
0002185a 00 34                    | 4      |		.CONST	0x34			; [0x14] -> 0x21866
0002185c 00 34                    | 4      |		.CONST	0x34			; [0x15] -> 0x21866
0002185e 00 9a                    |        |		.CONST	0x9a			; [0x16] -> 0x218cc
00021860 00 9a                    |        |		.CONST	0x9a			; [0x17] -> 0x218cc
00021862 00 9a                    |        |		.CONST	0x9a			; [0x18] -> 0x218cc
00021864 00 34                    | 4      |		.CONST	0x34			; [0x19] -> 0x21866
00021866					switch@0x2182a[0x10]:
00021866					switch@0x2182a[0x11]:
00021866					switch@0x2182a[0x12]:
00021866					switch@0x2182a[0x13]:
00021866					switch@0x2182a[0x14]:
00021866					switch@0x2182a[0x15]:
00021866					switch@0x2182a[0x19]:
00021866					switch@0x2182a[0x4]:
00021866					switch@0x2182a[0x5]:
00021866					switch@0x2182a[0x6]:
00021866					switch@0x2182a[0x7]:
00021866					switch@0x2182a[0x8]:
00021866					switch@0x2182a[0x9]:
00021866					switch@0x2182a[0xa]:
00021866					switch@0x2182a[0xb]:
00021866					switch@0x2182a[0xc]:
00021866					switch@0x2182a[0xd]:
00021866 48 53                    |HS      |		PEA.L	(A3)
00021868 48 52                    |HR      |		PEA.L	(A2)
0002186a 3f 11                    |?       |		MOVE.W	(A1),-(A7)
0002186c d5 57                    | W      |		ADD.W	D2,(A7)
0002186e 48 52                    |HR      |		PEA.L	(A2)
00021870 48 52                    |HR      |		PEA.L	(A2)
00021872 4e ba f9 d0              |N       |		JSR	0x21244
00021876 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002187a 60 7a                    |`z      |		BRA	0x218f6
0002187c					switch@0x2182a[0x0]:
0002187c					switch@0x2182a[0x1]:
0002187c 48 53                    |HS      |		PEA.L	(A3)
0002187e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021880 1e a8 03 d0              |        |		MOVE.B	(A0+0x3d0),(A7)
00021884 1f 68 03 d1 00 01        | h      |		MOVE.B	(A0+0x3d1),(A7+0x1)
0002188a 1f 68 03 d2 00 02        | h      |		MOVE.B	(A0+0x3d2),(A7+0x2)
00021890 1f 68 03 d3 00 03        | h      |		MOVE.B	(A0+0x3d3),(A7+0x3)
00021896 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00021898 d5 57                    | W      |		ADD.W	D2,(A7)
0002189a 48 52                    |HR      |		PEA.L	(A2)
0002189c 2f 28 23 d6              |/(#     |		MOVE.L	(A0+0x23d6),-(A7)
000218a0 4e ba fb 3a              |N  :    |		JSR	0x213dc
000218a4 60 d0                    |`       |		BRA	0x21876
000218a6					switch@0x2182a[0x2]:
000218a6					switch@0x2182a[0x3]:
000218a6 48 53                    |HS      |		PEA.L	(A3)
000218a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218aa 1e a8 03 d0              |        |		MOVE.B	(A0+0x3d0),(A7)
000218ae 1f 68 03 d1 00 01        | h      |		MOVE.B	(A0+0x3d1),(A7+0x1)
000218b4 1f 68 03 d2 00 02        | h      |		MOVE.B	(A0+0x3d2),(A7+0x2)
000218ba 1f 68 03 d3 00 03        | h      |		MOVE.B	(A0+0x3d3),(A7+0x3)
000218c0 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000218c2 d5 57                    | W      |		ADD.W	D2,(A7)
000218c4 2f 28 23 d6              |/(#     |		MOVE.L	(A0+0x23d6),-(A7)
000218c8 48 52                    |HR      |		PEA.L	(A2)
000218ca 60 d4                    |`       |		BRA	0x218a0
000218cc					switch@0x2182a[0x16]:
000218cc					switch@0x2182a[0x17]:
000218cc					switch@0x2182a[0x18]:
000218cc					switch@0x2182a[0xe]:
000218cc					switch@0x2182a[0xf]:
000218cc 41 fa e9 82              |A       |		LEA.L	0x20250,A0
000218d0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000218d2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218d4 51 c8 ff fc              |Q       |		DBF	D0,0x218d2
000218d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218de 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000218e2 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000218e6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218ee 4e ba f3 52              |N  R    |		JSR	0x20c42
000218f2 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000218f6 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
000218fa 4e 5e                    |N^      |		UNLK	A6
000218fc 4e 75                    |Nu      |		RTS
000218fe ; --------------------------------------------------------------------------------------
000218fe ; OMSI PASCAL Function
000218fe ; --------------------------------------------------------------------------------------
000218fe 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00021902 bf d5                    |        |		CMPA.L	(A5),A7
00021904 62 06                    |b       |		BHI	0x2190c
00021906 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002190a 4e 76                    |Nv      |		TRAPV
0002190c de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00021910 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00021914 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021916 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00021918 76 14                    |v       |		MOVEQ.L	#0x14,D3
0002191a 41 fa e9 42              |A  B    |		LEA.L	0x2025e,A0
0002191e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021920 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021922 51 c8 ff fc              |Q       |		DBF	D0,0x21920
00021926 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021928 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002192c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002192e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021930 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021936 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021938 1e 81                    |        |		MOVE.B	D1,(A7)
0002193a 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021940 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021942 10 1f                    |        |		MOVE.B	(A7)+,D0
00021944 48 80                    |H       |		EXTB.W	D0
00021946 41 81                    |A       |		CHK.W	D1,D0
00021948 de c2                    |        |		ADDA.W	D2,A7
0002194a 1c 00                    |        |		MOVE.B	D0,D6
0002194c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002194e 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00021952 c1 c7                    |        |		MULS.W	D7,D0
00021954 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002195a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002195e 4a 06                    |J       |		TST.B	D6
00021960 67 0e                    |g       |		BEQ	0x21970
00021962 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021964 3f 07                    |?       |		MOVE.W	D7,-(A7)
00021966 4e ba fd 30              |N  0    |		JSR	0x21698
0002196a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002196c 4a 1f                    |J       |		TST.B	(A7)+
0002196e 66 06                    |f       |		BNE	0x21976
00021970 42 28 02 2a              |B( *    |		CLR.B	(A0+0x22a)
00021974 60 52                    |`R      |		BRA	0x219c8
00021976 9e c3                    |        |		SUBA.W	D3,A7
00021978 22 4f                    |"O      |		MOVEA.L	A7,A1
0002197a 45 fa e8 e2              |E       |		LEA.L	0x2025e,A2
0002197e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021980 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021982 51 c8 ff fc              |Q       |		DBF	D0,0x21980
00021986 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002198a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002198e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021990 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021994 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002199a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002199c 30 07                    |0       |		MOVE.W	D7,D0
0002199e 48 c0                    |H       |		EXTW.L	D0
000219a0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000219a2 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000219a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219aa 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000219b0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000219b2 1e 81                    |        |		MOVE.B	D1,(A7)
000219b4 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000219ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000219bc 10 1f                    |        |		MOVE.B	(A7)+,D0
000219be 48 80                    |H       |		EXTB.W	D0
000219c0 41 81                    |A       |		CHK.W	D1,D0
000219c2 de c3                    |        |		ADDA.W	D3,A7
000219c4 11 40 02 2a              | @ *    |		MOVE.B	D0,(A0+0x22a)
000219c8 4a 28 02 2a              |J( *    |		TST.B	(A0+0x22a)
000219cc 67 08                    |g       |		BEQ	0x219d6
000219ce 3f 07                    |?       |		MOVE.W	D7,-(A7)
000219d0 4e ba fd 60              |N  `    |		JSR	0x21732
000219d4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219d6 52 47                    |RG      |		ADDQ.W	#0x1,D7
000219d8 0c 47 00 03              | G      |		CMPI.W	#0x0003,D7
000219dc 6f 00 ff 70              |o  p    |		BLE	0x2194e
000219e0 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
000219e4 4e 5e                    |N^      |		UNLK	A6
000219e6 4e 75                    |Nu      |		RTS
000219e8 ; --------------------------------------------------------------------------------------
000219e8 ; OMSI PASCAL Function
000219e8 ; --------------------------------------------------------------------------------------
000219e8 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
000219ec bf d5                    |        |		CMPA.L	(A5),A7
000219ee 62 06                    |b       |		BHI	0x219f6
000219f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219f4 4e 76                    |Nv      |		TRAPV
000219f6 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000219fa 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
000219fe 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a00 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00021a02 2f 3a e8 76              |/: v    |		MOVE.L	0x2027a,-(A7)
00021a06 2f 3a e8 6e              |/: n    |		MOVE.L	0x20276,-(A7)
00021a0a 2f 3a e8 66              |/: f    |		MOVE.L	0x20272,-(A7)
00021a0e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021a10 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021a14 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a16 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a1e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021a20 1e 81                    |        |		MOVE.B	D1,(A7)
00021a22 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021a28 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021a2a 10 1f                    |        |		MOVE.B	(A7)+,D0
00021a2c 48 80                    |H       |		EXTB.W	D0
00021a2e 41 81                    |A       |		CHK.W	D1,D0
00021a30 de c2                    |        |		ADDA.W	D2,A7
00021a32 13 c0 00 02 e5 18        |        |		MOVE.B	D0,0x2e518
00021a38 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00021a3c 4e 5e                    |N^      |		UNLK	A6
00021a3e 4e 75                    |Nu      |		RTS
00021a40 ; --------------------------------------------------------------------------------------
00021a40 ; OMSI PASCAL Function
00021a40 ; --------------------------------------------------------------------------------------
00021a40 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a
00021a44 bf d5                    |        |		CMPA.L	(A5),A7
00021a46 62 06                    |b       |		BHI	0x21a4e
00021a48 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a4c 4e 76                    |Nv      |		TRAPV
00021a4e de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021a52 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021a56 47 f9 00 01 02 d0        |G       |		LEA.L	StringCat2(a, b : String) : String,A3
00021a5c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a5e 74 08                    |t       |		MOVEQ.L	#0x08,D2
00021a60 7a 03                    |z       |		MOVEQ.L	#0x03,D5
00021a62 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00021a64 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a66 be 85                    |        |		CMP.L	D5,D7
00021a68 63 02                    |c       |		BLS	0x21a6c
00021a6a 4e 4f                    |NO      |		TRAP	#15
00021a6c 28 07                    |(       |		MOVE.L	D7,D4
00021a6e 26 3c 00 00 21 c0        |&<  !   |		MOVE.L	#0x21c0,D3
00021a74 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021a7a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00021a80 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00021a84 4a 28 02 2a              |J( *    |		TST.B	(A0+0x22a)
00021a88 67 00 01 92              |g       |		BEQ	0x21c1c
00021a8c 2f 3a e7 f8              |/:      |		MOVE.L	0x20286,-(A7)
00021a90 2f 3a e7 f0              |/:      |		MOVE.L	0x20282,-(A7)
00021a94 2f 3a e7 e8              |/:      |		MOVE.L	0x2027e,-(A7)
00021a98 3f 3a e7 f0              |?:      |		MOVE.W	0x2028a,-(A7)
00021a9c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a9e 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021aa2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021aa4 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021aa6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021aac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aae 2f 07                    |/       |		MOVE.L	D7,-(A7)
00021ab0 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021ab6 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00021aba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021abc 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021ac0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ac6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ac8 4e 93                    |N       |		JSR	(A3)
00021aca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021acc 48 78 00 04              |Hx      |		PEA.L	0x4
00021ad0 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021ad6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ad8 4e 93                    |N       |		JSR	(A3)
00021ada 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021adc 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021ade 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ae0 22 4f                    |"O      |		MOVEA.L	A7,A1
00021ae2 45 fa e7 a8              |E       |		LEA.L	0x2028c,A2
00021ae6 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021ae8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021aea 51 c8 ff fc              |Q       |		DBF	D0,0x21ae8
00021aee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021af2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021af8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021afa 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021afe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b06 4e 93                    |N       |		JSR	(A3)
00021b08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b0a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b0c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b0e 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021b10 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00021b14 22 4f                    |"O      |		MOVEA.L	A7,A1
00021b16 45 e8 02 3c              |E  <    |		LEA.L	(A0+0x23c),A2
00021b1a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021b1c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021b1e 51 c8 ff fc              |Q       |		DBF	D0,0x21b1c
00021b22 48 78 00 0a              |Hx      |		PEA.L	0xa
00021b26 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00021b2c de c6                    |        |		ADDA.W	D6,A7
00021b2e 48 78 00 0b              |Hx      |		PEA.L	0xb
00021b32 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021b38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b3a 4e 93                    |N       |		JSR	(A3)
00021b3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b3e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b40 2f 3a e7 58              |/: X    |		MOVE.L	0x2029a,-(A7)
00021b44 2f 3a e7 50              |/: P    |		MOVE.L	0x20296,-(A7)
00021b48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b4a 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021b4c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b4e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021b52 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b54 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b56 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b5e 4e 93                    |N       |		JSR	(A3)
00021b60 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b62 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b64 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021b66 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b68 2f 28 02 34              |/( 4    |		MOVE.L	(A0+0x234),-(A7)
00021b6c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021b72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b74 48 78 00 05              |Hx      |		PEA.L	0x5
00021b78 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021b7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b80 4e 93                    |N       |		JSR	(A3)
00021b82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b84 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b86 2f 3a e7 1a              |/:      |		MOVE.L	0x202a2,-(A7)
00021b8a 2f 3a e7 12              |/:      |		MOVE.L	0x2029e,-(A7)
00021b8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b90 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021b92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b94 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021b98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b9a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b9c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ba2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ba4 4e 93                    |N       |		JSR	(A3)
00021ba6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ba8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021baa 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021bac 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021bae 2f 28 02 30              |/( 0    |		MOVE.L	(A0+0x230),-(A7)
00021bb2 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021bb8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bba 48 78 00 05              |Hx      |		PEA.L	0x5
00021bbe 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021bc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bc6 4e 93                    |N       |		JSR	(A3)
00021bc8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bca 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021bcc 2f 3a e6 dc              |/:      |		MOVE.L	0x202aa,-(A7)
00021bd0 2f 3a e6 d4              |/:      |		MOVE.L	0x202a6,-(A7)
00021bd4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bd6 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021bd8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bda 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021bde 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021be0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021be2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021be8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bea 4e 93                    |N       |		JSR	(A3)
00021bec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bee 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021bf0 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021bf2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021bf4 2f 28 02 38              |/( 8    |		MOVE.L	(A0+0x238),-(A7)
00021bf8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021bfe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c00 48 78 00 05              |Hx      |		PEA.L	0x5
00021c04 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021c0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c0c 4e 93                    |N       |		JSR	(A3)
00021c0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c10 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021c12 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021c14 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021c1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c1c 52 87                    |R       |		ADDQ.L	#0x1,D7
00021c1e be 85                    |        |		CMP.L	D5,D7
00021c20 6f 00 fe 44              |o  D    |		BLE	0x21a66
00021c24 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021c28 4e 5e                    |N^      |		UNLK	A6
00021c2a 4e 75                    |Nu      |		RTS
00021c2c ; --------------------------------------------------------------------------------------
00021c2c ; OMSI PASCAL Function
00021c2c ;    <LVAR  0x008 4(r)>
00021c2c ; --------------------------------------------------------------------------------------
00021c2c 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00021c30 bf d5                    |        |		CMPA.L	(A5),A7
00021c32 62 06                    |b       |		BHI	0x21c3a
00021c34 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c38 4e 76                    |Nv      |		TRAPV
00021c3a de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00021c3e 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021c42 43 ec 00 08              |C       |		LEA.L	(A4+0x8),A1
00021c46 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021c4a 20 51                    | Q      |		MOVEA.L	(A1),A0
00021c4c 4a 50                    |JP      |		TST.W	(A0)
00021c4e 66 12                    |f       |		BNE	0x21c62
00021c50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c52 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021c54 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c56 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021c5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c5e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021c60 60 52                    |`R      |		BRA	0x21cb4
00021c62 30 10                    |0       |		MOVE.W	(A0),D0
00021c64 48 c0                    |H       |		EXTW.L	D0
00021c66 54 80                    |T       |		ADDQ.L	#0x2,D0
00021c68 20 52                    | R      |		MOVEA.L	(A2),A0
00021c6a 32 10                    |2       |		MOVE.W	(A0),D1
00021c6c 48 c1                    |H       |		EXTW.L	D1
00021c6e d2 80                    |        |		ADD.L	D0,D1
00021c70 0c 81 00 00 00 50        |     P  |		CMPI.L	#0x00000050,D1
00021c76 6e 30                    |n0      |		BGT	0x21ca8
00021c78 3f 3a ea 20              |?:      |		MOVE.W	0x2069a,-(A7)
00021c7c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c7e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021c80 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c82 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021c86 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021c8a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021c8e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c96 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021c98 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021c9e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021ca2 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00021ca4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ca6 60 0c                    |`       |		BRA	0x21cb4
00021ca8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021caa 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021cb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cb2 22 92                    |"       |		MOVE.L	(A2),(A1)
00021cb4 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021cb8 4e 5e                    |N^      |		UNLK	A6
00021cba 4e 75                    |Nu      |		RTS
00021cbc ; --------------------------------------------------------------------------------------
00021cbc ; OMSI PASCAL Function
00021cbc ;    <LVAR  0x00a 4(r)>
00021cbc ;    <LVAR  0x008 2(r)>
00021cbc ;    <LVAR -0x006 @ 4(r)>
00021cbc ;    <LVAR -0x00e @ 4(r)>
00021cbc ; --------------------------------------------------------------------------------------
00021cbc 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
00021cc0 bf d5                    |        |		CMPA.L	(A5),A7
00021cc2 62 06                    |b       |		BHI	0x21cca
00021cc4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021cc8 4e 76                    |Nv      |		TRAPV
00021cca de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00021cce 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021cd2 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021cd8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021cda 74 10                    |t       |		MOVEQ.L	#0x10,D2
00021cdc 76 14                    |v       |		MOVEQ.L	#0x14,D3
00021cde 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021ce0 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00021ce2 7c 16                    ||       |		MOVEQ.L	#0x16,D6
00021ce4 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021ce8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021cee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cf0 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021cf4 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00021cfa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cfc 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00021d00 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00021d04 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00021d0a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021d0e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021d10 2f 3a e9 92              |/:      |		MOVE.L	0x206a4,-(A7)
00021d14 2f 3a e9 8a              |/:      |		MOVE.L	0x206a0,-(A7)
00021d18 2f 3a e9 82              |/:      |		MOVE.L	0x2069c,-(A7)
00021d1c 3f 3a e9 8a              |?:      |		MOVE.W	0x206a8,-(A7)
00021d20 3f 3a e9 88              |?:      |		MOVE.W	0x206aa,-(A7)
00021d24 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021d26 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021d2a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d2c 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021d2e 4e 93                    |N       |		JSR	(A3)
00021d30 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d32 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00021d36 48 c0                    |H       |		EXTW.L	D0
00021d38 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021d3a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021d40 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00021d44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d46 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021d4a 4e 93                    |N       |		JSR	(A3)
00021d4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d4e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021d54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d56 48 78 00 04              |Hx      |		PEA.L	0x4
00021d5a 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00021d60 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00021d64 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00021d6a 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021d6e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d70 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021d74 4e 93                    |N       |		JSR	(A3)
00021d76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d78 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021d7e de c2                    |        |		ADDA.W	D2,A7
00021d80 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021d86 de c2                    |        |		ADDA.W	D2,A7
00021d88 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
00021d8c 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021d92 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d94 43 fa e9 28              |C  (    |		LEA.L	0x206be,A1
00021d98 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021d9a 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00021d9c 51 c8 ff fc              |Q       |		DBF	D0,0x21d9a
00021da0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021da2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021da6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021da8 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021daa 4e 93                    |N       |		JSR	(A3)
00021dac 2e a8 02 44              |.  D    |		MOVE.L	(A0+0x244),(A7)
00021db0 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021db6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021db8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021dbe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021dc0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021dc6 de c6                    |        |		ADDA.W	D6,A7
00021dc8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021dca 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00021dd0 63 02                    |c       |		BLS	0x21dd4
00021dd2 4e 4f                    |NO      |		TRAP	#15
00021dd4 20 07                    |        |		MOVE.L	D7,D0
00021dd6 e5 80                    |        |		ASL.L	#0x2,D0
00021dd8 41 fa ee 1a              |A       |		LEA.L	0x20bf4,A0
00021ddc 2f 30 08 00              |/0      |		MOVE.L	(A0+D0.L),-(A7)
00021de0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021de2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021de6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021de8 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021dec 4e 93                    |N       |		JSR	(A3)
00021dee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021df0 20 07                    |        |		MOVE.L	D7,D0
00021df2 e3 80                    |        |		ASL.L	#0x1,D0
00021df4 20 6f 00 10              | o      |		MOVEA.L	(A7+0x10),A0
00021df8 41 e8 02 2a              |A  *    |		LEA.L	(A0+0x22a),A0
00021dfc 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00021e00 42 80                    |B       |		CLR.L	D0
00021e02 30 28 21 b0              |0(!     |		MOVE.W	(A0+0x21b0),D0
00021e06 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021e08 48 78 00 04              |Hx      |		PEA.L	0x4
00021e0c 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021e12 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e14 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021e1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e1c 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021e22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e24 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e26 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00021e2c 6f 9c                    |o       |		BLE	0x21dca
00021e2e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021e34 20 57                    | W      |		MOVEA.L	(A7),A0
00021e36 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021e3a 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00021e3e 67 2a                    |g*      |		BEQ	0x21e6a
00021e40 9e c4                    |        |		SUBA.W	D4,A7
00021e42 22 4f                    |"O      |		MOVEA.L	A7,A1
00021e44 45 fa e4 88              |E       |		LEA.L	0x202ce,A2
00021e48 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021e4a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021e4c 51 c8 ff fc              |Q       |		DBF	D0,0x21e4a
00021e50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e58 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021e5c 4e 93                    |N       |		JSR	(A3)
00021e5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e60 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021e64 4e ba fd c6              |N       |		JSR	0x21c2c
00021e68 de c6                    |        |		ADDA.W	D6,A7
00021e6a 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021e6e 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00021e72 67 2c                    |g,      |		BEQ	0x21ea0
00021e74 9e c3                    |        |		SUBA.W	D3,A7
00021e76 22 4f                    |"O      |		MOVEA.L	A7,A1
00021e78 45 fa e4 66              |E  f    |		LEA.L	0x202e0,A2
00021e7c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021e7e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021e80 51 c8 ff fc              |Q       |		DBF	D0,0x21e7e
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 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021e90 4e 93                    |N       |		JSR	(A3)
00021e92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e94 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021e98 4e ba fd 92              |N       |		JSR	0x21c2c
00021e9c de fc 00 18              |        |		ADDA.W	#0x18,A7
00021ea0 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021ea4 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00021ea8 67 2e                    |g.      |		BEQ	0x21ed8
00021eaa 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00021eae 22 4f                    |"O      |		MOVEA.L	A7,A1
00021eb0 45 fa e4 42              |E  B    |		LEA.L	0x202f4,A2
00021eb4 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021eb6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021eb8 51 c8 ff fc              |Q       |		DBF	D0,0x21eb6
00021ebc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ebe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ec2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ec4 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021ec8 4e 93                    |N       |		JSR	(A3)
00021eca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ecc 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021ed0 4e ba fd 5a              |N  Z    |		JSR	0x21c2c
00021ed4 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021ed8 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021edc 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
00021ee0 67 2c                    |g,      |		BEQ	0x21f0e
00021ee2 9e c3                    |        |		SUBA.W	D3,A7
00021ee4 22 4f                    |"O      |		MOVEA.L	A7,A1
00021ee6 45 fa e4 2a              |E  *    |		LEA.L	0x20312,A2
00021eea 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021eec 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021eee 51 c8 ff fc              |Q       |		DBF	D0,0x21eec
00021ef2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ef4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ef8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021efa 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021efe 4e 93                    |N       |		JSR	(A3)
00021f00 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f02 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021f06 4e ba fd 24              |N  $    |		JSR	0x21c2c
00021f0a de fc 00 18              |        |		ADDA.W	#0x18,A7
00021f0e 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021f12 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
00021f16 67 2c                    |g,      |		BEQ	0x21f44
00021f18 9e c3                    |        |		SUBA.W	D3,A7
00021f1a 22 4f                    |"O      |		MOVEA.L	A7,A1
00021f1c 45 fa e4 08              |E       |		LEA.L	0x20326,A2
00021f20 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021f22 12 da                    |        |		MOVE.B	(A2)+,(A1)+
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 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021f34 4e 93                    |N       |		JSR	(A3)
00021f36 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f38 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021f3c 4e ba fc ee              |N       |		JSR	0x21c2c
00021f40 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021f44 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021f48 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
00021f4c 66 2c                    |f,      |		BNE	0x21f7a
00021f4e 9e c3                    |        |		SUBA.W	D3,A7
00021f50 22 4f                    |"O      |		MOVEA.L	A7,A1
00021f52 45 fa e3 e6              |E       |		LEA.L	0x2033a,A2
00021f56 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021f58 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021f5a 51 c8 ff fc              |Q       |		DBF	D0,0x21f58
00021f5e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f60 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f64 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f66 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021f6a 4e 93                    |N       |		JSR	(A3)
00021f6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f6e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021f72 4e ba fc b8              |N       |		JSR	0x21c2c
00021f76 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021f7a 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021f7e 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00021f82 67 22                    |g"      |		BEQ	0x21fa6
00021f84 2f 3a e3 cc              |/:      |		MOVE.L	0x20352,-(A7)
00021f88 2f 3a e3 c4              |/:      |		MOVE.L	0x2034e,-(A7)
00021f8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f92 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f94 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021f98 4e 93                    |N       |		JSR	(A3)
00021f9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f9c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021fa0 4e ba fc 8a              |N       |		JSR	0x21c2c
00021fa4 de c5                    |        |		ADDA.W	D5,A7
00021fa6 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00021faa c0 41                    | A      |		AND.W	D1,D0
00021fac 67 00 06 7a              |g  z    |		BEQ	0x22628
00021fb0 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00021fb4 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00021fb8 67 22                    |g"      |		BEQ	0x21fdc
00021fba 2f 3a e6 24              |/: $    |		MOVE.L	0x205e0,-(A7)
00021fbe 2f 3a e6 1c              |/:      |		MOVE.L	0x205dc,-(A7)
00021fc2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fc4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fc8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fca 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021fce 4e 93                    |N       |		JSR	(A3)
00021fd0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fd2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00021fd6 4e ba fc 54              |N  T    |		JSR	0x21c2c
00021fda de c5                    |        |		ADDA.W	D5,A7
00021fdc 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00021fe0 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00021fe4 67 2c                    |g,      |		BEQ	0x22012
00021fe6 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021fea 22 4f                    |"O      |		MOVEA.L	A7,A1
00021fec 45 fa e5 f6              |E       |		LEA.L	0x205e4,A2
00021ff0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021ff2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021ff4 51 c8 ff fc              |Q       |		DBF	D0,0x21ff2
00021ff8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ffa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ffe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022000 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022004 4e 93                    |N       |		JSR	(A3)
00022006 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022008 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002200c 4e ba fc 1e              |N       |		JSR	0x21c2c
00022010 de c4                    |        |		ADDA.W	D4,A7
00022012 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022016 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
0002201a 67 28                    |g(      |		BEQ	0x22044
0002201c 43 fa e5 ee              |C       |		LEA.L	0x2060c,A1
00022020 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022022 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022024 51 c8 ff fc              |Q       |		DBF	D0,0x22022
00022028 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002202a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002202e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022030 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022034 4e 93                    |N       |		JSR	(A3)
00022036 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022038 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002203c 4e ba fb ee              |N       |		JSR	0x21c2c
00022040 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00022044 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022048 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
0002204c 0c 40 02 00              | @      |		CMPI.W	#0x0200,D0
00022050 66 2e                    |f.      |		BNE	0x22080
00022052 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022056 22 4f                    |"O      |		MOVEA.L	A7,A1
00022058 45 fa e5 b2              |E       |		LEA.L	0x2060c,A2
0002205c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002205e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022060 51 c8 ff fc              |Q       |		DBF	D0,0x2205e
00022064 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022066 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002206a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002206c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022070 4e 93                    |N       |		JSR	(A3)
00022072 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022074 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022078 4e ba fb b2              |N       |		JSR	0x21c2c
0002207c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022080 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022084 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
00022088 0c 40 03 00              | @      |		CMPI.W	#0x0300,D0
0002208c 66 24                    |f$      |		BNE	0x220b2
0002208e 2f 3a e5 8e              |/:      |		MOVE.L	0x2061e,-(A7)
00022092 2f 3a e5 86              |/:      |		MOVE.L	0x2061a,-(A7)
00022096 2f 3a e5 7e              |/: ~    |		MOVE.L	0x20616,-(A7)
0002209a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002209c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220a2 3f 05                    |?       |		MOVE.W	D5,-(A7)
000220a4 4e 93                    |N       |		JSR	(A3)
000220a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220a8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000220ac 4e ba fb 7e              |N  ~    |		JSR	0x21c2c
000220b0 de c2                    |        |		ADDA.W	D2,A7
000220b2 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000220b6 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
000220ba 0c 40 04 00              | @      |		CMPI.W	#0x0400,D0
000220be 66 26                    |f&      |		BNE	0x220e6
000220c0 43 fa e5 6e              |C  n    |		LEA.L	0x20630,A1
000220c4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000220c6 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000220c8 51 c8 ff fc              |Q       |		DBF	D0,0x220c6
000220cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220ce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220d2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220d4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000220d8 4e 93                    |N       |		JSR	(A3)
000220da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220dc 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000220e0 4e ba fb 4a              |N  J    |		JSR	0x21c2c
000220e4 de c4                    |        |		ADDA.W	D4,A7
000220e6 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000220ea 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
000220ee 0c 40 05 00              | @      |		CMPI.W	#0x0500,D0
000220f2 66 2a                    |f*      |		BNE	0x2211e
000220f4 9e c2                    |        |		SUBA.W	D2,A7
000220f6 22 4f                    |"O      |		MOVEA.L	A7,A1
000220f8 45 fa e5 36              |E  6    |		LEA.L	0x20630,A2
000220fc 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000220fe 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022100 51 c8 ff fc              |Q       |		DBF	D0,0x220fe
00022104 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022106 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002210a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002210c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022110 4e 93                    |N       |		JSR	(A3)
00022112 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022114 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022118 4e ba fb 12              |N       |		JSR	0x21c2c
0002211c de c3                    |        |		ADDA.W	D3,A7
0002211e 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022122 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
00022126 0c 40 06 00              | @      |		CMPI.W	#0x0600,D0
0002212a 66 26                    |f&      |		BNE	0x22152
0002212c 43 fa e5 20              |C       |		LEA.L	0x2064e,A1
00022130 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022132 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022134 51 c8 ff fc              |Q       |		DBF	D0,0x22132
00022138 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002213a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002213e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022140 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022144 4e 93                    |N       |		JSR	(A3)
00022146 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022148 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002214c 4e ba fa de              |N       |		JSR	0x21c2c
00022150 de c4                    |        |		ADDA.W	D4,A7
00022152 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022156 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
0002215a 0c 40 07 00              | @      |		CMPI.W	#0x0700,D0
0002215e 66 24                    |f$      |		BNE	0x22184
00022160 2f 3a e4 f4              |/:      |		MOVE.L	0x20656,-(A7)
00022164 2f 3a e4 ec              |/:      |		MOVE.L	0x20652,-(A7)
00022168 2f 3a e4 e4              |/:      |		MOVE.L	0x2064e,-(A7)
0002216c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002216e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022172 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022174 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022176 4e 93                    |N       |		JSR	(A3)
00022178 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002217a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002217e 4e ba fa ac              |N       |		JSR	0x21c2c
00022182 de c2                    |        |		ADDA.W	D2,A7
00022184 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022188 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
0002218c 0c 40 08 00              | @      |		CMPI.W	#0x0800,D0
00022190 66 2a                    |f*      |		BNE	0x221bc
00022192 9e c5                    |        |		SUBA.W	D5,A7
00022194 22 4f                    |"O      |		MOVEA.L	A7,A1
00022196 45 fa e4 c2              |E       |		LEA.L	0x2065a,A2
0002219a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002219c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002219e 51 c8 ff fc              |Q       |		DBF	D0,0x2219c
000221a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221aa 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000221ae 4e 93                    |N       |		JSR	(A3)
000221b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000221b6 4e ba fa 74              |N  t    |		JSR	0x21c2c
000221ba de c2                    |        |		ADDA.W	D2,A7
000221bc 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000221c0 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
000221c4 0c 40 09 00              | @      |		CMPI.W	#0x0900,D0
000221c8 66 2a                    |f*      |		BNE	0x221f4
000221ca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000221cc 22 4f                    |"O      |		MOVEA.L	A7,A1
000221ce 45 fa e4 96              |E       |		LEA.L	0x20666,A2
000221d2 70 06                    |p       |		MOVEQ.L	#0x06,D0
000221d4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000221d6 51 c8 ff fc              |Q       |		DBF	D0,0x221d4
000221da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221e0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221e2 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000221e6 4e 93                    |N       |		JSR	(A3)
000221e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221ea 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000221ee 4e ba fa 3c              |N  <    |		JSR	0x21c2c
000221f2 de c5                    |        |		ADDA.W	D5,A7
000221f4 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000221f8 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
000221fc 0c 40 0a 00              | @      |		CMPI.W	#0x0a00,D0
00022200 66 24                    |f$      |		BNE	0x22226
00022202 2f 3a e4 72              |/: r    |		MOVE.L	0x20676,-(A7)
00022206 2f 3a e4 6a              |/: j    |		MOVE.L	0x20672,-(A7)
0002220a 2f 3a e4 62              |/: b    |		MOVE.L	0x2066e,-(A7)
0002220e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022210 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022214 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022216 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022218 4e 93                    |N       |		JSR	(A3)
0002221a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002221c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022220 4e ba fa 0a              |N       |		JSR	0x21c2c
00022224 de c2                    |        |		ADDA.W	D2,A7
00022226 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002222a 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
0002222e 0c 40 0b 00              | @      |		CMPI.W	#0x0b00,D0
00022232 66 2a                    |f*      |		BNE	0x2225e
00022234 9e c2                    |        |		SUBA.W	D2,A7
00022236 22 4f                    |"O      |		MOVEA.L	A7,A1
00022238 45 fa e4 40              |E  @    |		LEA.L	0x2067a,A2
0002223c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002223e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022240 51 c8 ff fc              |Q       |		DBF	D0,0x2223e
00022244 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022246 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002224a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002224c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022250 4e 93                    |N       |		JSR	(A3)
00022252 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022254 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022258 4e ba f9 d2              |N       |		JSR	0x21c2c
0002225c de c3                    |        |		ADDA.W	D3,A7
0002225e 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022262 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
00022266 0c 40 0d 00              | @      |		CMPI.W	#0x0d00,D0
0002226a 66 2a                    |f*      |		BNE	0x22296
0002226c 9e c2                    |        |		SUBA.W	D2,A7
0002226e 22 4f                    |"O      |		MOVEA.L	A7,A1
00022270 45 fa e4 18              |E       |		LEA.L	0x2068a,A2
00022274 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022276 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022278 51 c8 ff fc              |Q       |		DBF	D0,0x22276
0002227c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002227e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022282 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022284 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022288 4e 93                    |N       |		JSR	(A3)
0002228a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002228c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022290 4e ba f9 9a              |N       |		JSR	0x21c2c
00022294 de c3                    |        |		ADDA.W	D3,A7
00022296 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002229a 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
0002229e 67 28                    |g(      |		BEQ	0x222c8
000222a0 43 fa e1 f2              |C       |		LEA.L	0x20494,A1
000222a4 70 04                    |p       |		MOVEQ.L	#0x04,D0
000222a6 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000222a8 51 c8 ff fc              |Q       |		DBF	D0,0x222a6
000222ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000222b2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000222b4 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000222b8 4e 93                    |N       |		JSR	(A3)
000222ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222bc 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000222c0 4e ba f9 6a              |N  j    |		JSR	0x21c2c
000222c4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000222c8 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000222cc 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
000222d0 67 2c                    |g,      |		BEQ	0x222fe
000222d2 9e c6                    |        |		SUBA.W	D6,A7
000222d4 22 4f                    |"O      |		MOVEA.L	A7,A1
000222d6 45 fa e1 bc              |E       |		LEA.L	0x20494,A2
000222da 70 14                    |p       |		MOVEQ.L	#0x14,D0
000222dc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000222de 51 c8 ff fc              |Q       |		DBF	D0,0x222dc
000222e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000222e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000222ea 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000222ee 4e 93                    |N       |		JSR	(A3)
000222f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222f2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000222f6 4e ba f9 34              |N  4    |		JSR	0x21c2c
000222fa de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000222fe 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022302 02 40 00 20              | @      |		ANDI.W	#0x0020,D0
00022306 67 2e                    |g.      |		BEQ	0x22336
00022308 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
0002230c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002230e 45 fa e1 9a              |E       |		LEA.L	0x204aa,A2
00022312 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00022314 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022316 51 c8 ff fc              |Q       |		DBF	D0,0x22314
0002231a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002231c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022320 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022322 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00022326 4e 93                    |N       |		JSR	(A3)
00022328 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002232a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002232e 4e ba f8 fc              |N       |		JSR	0x21c2c
00022332 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00022336 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002233a c0 42                    | B      |		AND.W	D2,D0
0002233c 67 2a                    |g*      |		BEQ	0x22368
0002233e 9e c5                    |        |		SUBA.W	D5,A7
00022340 22 4f                    |"O      |		MOVEA.L	A7,A1
00022342 45 fa e1 84              |E       |		LEA.L	0x204c8,A2
00022346 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022348 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002234a 51 c8 ff fc              |Q       |		DBF	D0,0x22348
0002234e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022350 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022354 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022356 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0002235a 4e 93                    |N       |		JSR	(A3)
0002235c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002235e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022362 4e ba f8 c8              |N       |		JSR	0x21c2c
00022366 de c2                    |        |		ADDA.W	D2,A7
00022368 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002236c 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00022370 67 26                    |g&      |		BEQ	0x22398
00022372 43 fa e1 76              |C  v    |		LEA.L	0x204ea,A1
00022376 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022378 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
0002237a 51 c8 ff fc              |Q       |		DBF	D0,0x22378
0002237e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022380 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022384 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022386 3f 06                    |?       |		MOVE.W	D6,-(A7)
00022388 4e 93                    |N       |		JSR	(A3)
0002238a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002238c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022390 4e ba f8 9a              |N       |		JSR	0x21c2c
00022394 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022398 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002239c 02 40 00 04              | @      |		ANDI.W	#0x0004,D0
000223a0 67 2a                    |g*      |		BEQ	0x223cc
000223a2 9e c4                    |        |		SUBA.W	D4,A7
000223a4 22 4f                    |"O      |		MOVEA.L	A7,A1
000223a6 45 fa e1 42              |E  B    |		LEA.L	0x204ea,A2
000223aa 70 10                    |p       |		MOVEQ.L	#0x10,D0
000223ac 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000223ae 51 c8 ff fc              |Q       |		DBF	D0,0x223ac
000223b2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223b8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223ba 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
000223be 4e 93                    |N       |		JSR	(A3)
000223c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223c2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000223c6 4e ba f8 64              |N  d    |		JSR	0x21c2c
000223ca de c6                    |        |		ADDA.W	D6,A7
000223cc 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000223d0 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
000223d4 67 28                    |g(      |		BEQ	0x223fe
000223d6 2f 3a e1 30              |/: 0    |		MOVE.L	0x20508,-(A7)
000223da 2f 3a e1 28              |/: (    |		MOVE.L	0x20504,-(A7)
000223de 2f 3a e1 20              |/:      |		MOVE.L	0x20500,-(A7)
000223e2 2f 3a e1 18              |/:      |		MOVE.L	0x204fc,-(A7)
000223e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223e8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223ee 3f 02                    |?       |		MOVE.W	D2,-(A7)
000223f0 4e 93                    |N       |		JSR	(A3)
000223f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223f4 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000223f8 4e ba f8 32              |N  2    |		JSR	0x21c2c
000223fc de c3                    |        |		ADDA.W	D3,A7
000223fe 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022402 c0 41                    | A      |		AND.W	D1,D0
00022404 67 2a                    |g*      |		BEQ	0x22430
00022406 9e c4                    |        |		SUBA.W	D4,A7
00022408 22 4f                    |"O      |		MOVEA.L	A7,A1
0002240a 45 fa e1 00              |E       |		LEA.L	0x2050c,A2
0002240e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022410 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022412 51 c8 ff fc              |Q       |		DBF	D0,0x22410
00022416 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022418 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002241c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002241e 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00022422 4e 93                    |N       |		JSR	(A3)
00022424 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022426 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002242a 4e ba f8 00              |N       |		JSR	0x21c2c
0002242e de c6                    |        |		ADDA.W	D6,A7
00022430 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022434 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00022438 67 26                    |g&      |		BEQ	0x22460
0002243a 43 fa e0 f6              |C       |		LEA.L	0x20532,A1
0002243e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022440 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00022442 51 c8 ff fc              |Q       |		DBF	D0,0x22440
00022446 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022448 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002244c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002244e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022450 4e 93                    |N       |		JSR	(A3)
00022452 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022454 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022458 4e ba f7 d2              |N       |		JSR	0x21c2c
0002245c de fc 00 18              |        |		ADDA.W	#0x18,A7
00022460 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022464 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00022468 67 26                    |g&      |		BEQ	0x22490
0002246a 43 fa e0 dc              |C       |		LEA.L	0x20548,A1
0002246e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022470 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022472 51 c8 ff fc              |Q       |		DBF	D0,0x22470
00022476 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022478 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002247c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002247e 3f 06                    |?       |		MOVE.W	D6,-(A7)
00022480 4e 93                    |N       |		JSR	(A3)
00022482 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022484 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022488 4e ba f7 a2              |N       |		JSR	0x21c2c
0002248c de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022490 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022494 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
00022498 67 2c                    |g,      |		BEQ	0x224c6
0002249a 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
0002249e 22 4f                    |"O      |		MOVEA.L	A7,A1
000224a0 45 fa e0 a6              |E       |		LEA.L	0x20548,A2
000224a4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000224a6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000224a8 51 c8 ff fc              |Q       |		DBF	D0,0x224a6
000224ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224b2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224b4 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000224b8 4e 93                    |N       |		JSR	(A3)
000224ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224bc 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000224c0 4e ba f7 6a              |N  j    |		JSR	0x21c2c
000224c4 de c4                    |        |		ADDA.W	D4,A7
000224c6 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
000224ca 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
000224ce 67 26                    |g&      |		BEQ	0x224f6
000224d0 43 fa e0 92              |C       |		LEA.L	0x20564,A1
000224d4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000224d6 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000224d8 51 c8 ff fc              |Q       |		DBF	D0,0x224d6
000224dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224e4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000224e8 4e 93                    |N       |		JSR	(A3)
000224ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224ec 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000224f0 4e ba f7 3a              |N  :    |		JSR	0x21c2c
000224f4 de c4                    |        |		ADDA.W	D4,A7
000224f6 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
000224fa 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
000224fe 67 2a                    |g*      |		BEQ	0x2252a
00022500 9e c2                    |        |		SUBA.W	D2,A7
00022502 22 4f                    |"O      |		MOVEA.L	A7,A1
00022504 45 fa e0 5e              |E  ^    |		LEA.L	0x20564,A2
00022508 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002250a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002250c 51 c8 ff fc              |Q       |		DBF	D0,0x2250a
00022510 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022512 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022516 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022518 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002251c 4e 93                    |N       |		JSR	(A3)
0002251e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022520 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022524 4e ba f7 06              |N       |		JSR	0x21c2c
00022528 de c3                    |        |		ADDA.W	D3,A7
0002252a 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
0002252e 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
00022532 67 2c                    |g,      |		BEQ	0x22560
00022534 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022538 22 4f                    |"O      |		MOVEA.L	A7,A1
0002253a 45 fa e0 38              |E  8    |		LEA.L	0x20574,A2
0002253e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022540 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022542 51 c8 ff fc              |Q       |		DBF	D0,0x22540
00022546 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022548 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002254c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002254e 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022552 4e 93                    |N       |		JSR	(A3)
00022554 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022556 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002255a 4e ba f6 d0              |N       |		JSR	0x21c2c
0002255e de c4                    |        |		ADDA.W	D4,A7
00022560 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022564 02 40 02 00              | @      |		ANDI.W	#0x0200,D0
00022568 67 24                    |g$      |		BEQ	0x2258e
0002256a 43 fa e0 28              |C  (    |		LEA.L	0x20594,A1
0002256e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022570 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022572 51 c8 ff fc              |Q       |		DBF	D0,0x22570
00022576 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022578 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002257c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002257e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022580 4e 93                    |N       |		JSR	(A3)
00022582 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022584 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022588 4e ba f6 a2              |N       |		JSR	0x21c2c
0002258c de c6                    |        |		ADDA.W	D6,A7
0002258e 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022592 02 40 01 00              | @      |		ANDI.W	#0x0100,D0
00022596 67 2a                    |g*      |		BEQ	0x225c2
00022598 9e c2                    |        |		SUBA.W	D2,A7
0002259a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002259c 45 fa df f6              |E       |		LEA.L	0x20594,A2
000225a0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000225a2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000225a4 51 c8 ff fc              |Q       |		DBF	D0,0x225a2
000225a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225b0 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000225b4 4e 93                    |N       |		JSR	(A3)
000225b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225b8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000225bc 4e ba f6 6e              |N  n    |		JSR	0x21c2c
000225c0 de c3                    |        |		ADDA.W	D3,A7
000225c2 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
000225c6 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
000225ca 67 28                    |g(      |		BEQ	0x225f4
000225cc 43 fa df f0              |C       |		LEA.L	0x205be,A1
000225d0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000225d2 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000225d4 51 c8 ff fc              |Q       |		DBF	D0,0x225d2
000225d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225de 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225e0 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000225e4 4e 93                    |N       |		JSR	(A3)
000225e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225e8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000225ec 4e ba f6 3e              |N  >    |		JSR	0x21c2c
000225f0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000225f4 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
000225f8 c0 41                    | A      |		AND.W	D1,D0
000225fa 67 28                    |g(      |		BEQ	0x22624
000225fc 41 fa df de              |A       |		LEA.L	0x205dc,A0
00022600 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022602 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022604 51 c8 ff fc              |Q       |		DBF	D0,0x22602
00022608 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002260a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002260e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022610 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00022614 4e 93                    |N       |		JSR	(A3)
00022616 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022618 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002261c 4e ba f6 0e              |N       |		JSR	0x21c2c
00022620 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00022624 60 00 04 32              |`  2    |		BRA	0x22a58
00022628 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
0002262c 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00022630 67 2e                    |g.      |		BEQ	0x22660
00022632 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022636 22 4f                    |"O      |		MOVEA.L	A7,A1
00022638 45 fa dd 1c              |E       |		LEA.L	0x20356,A2
0002263c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002263e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022640 51 c8 ff fc              |Q       |		DBF	D0,0x2263e
00022644 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022646 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002264a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002264c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022650 4e 93                    |N       |		JSR	(A3)
00022652 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022654 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022658 4e ba f5 d2              |N       |		JSR	0x21c2c
0002265c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022660 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022664 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00022668 67 2c                    |g,      |		BEQ	0x22696
0002266a 9e c3                    |        |		SUBA.W	D3,A7
0002266c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002266e 45 fa dc f0              |E       |		LEA.L	0x20360,A2
00022672 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022674 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022676 51 c8 ff fc              |Q       |		DBF	D0,0x22674
0002267a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002267c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022680 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022682 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022686 4e 93                    |N       |		JSR	(A3)
00022688 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002268a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002268e 4e ba f5 9c              |N       |		JSR	0x21c2c
00022692 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022696 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
0002269a 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
0002269e 67 2c                    |g,      |		BEQ	0x226cc
000226a0 9e c3                    |        |		SUBA.W	D3,A7
000226a2 22 4f                    |"O      |		MOVEA.L	A7,A1
000226a4 45 fa dc ce              |E       |		LEA.L	0x20374,A2
000226a8 70 12                    |p       |		MOVEQ.L	#0x12,D0
000226aa 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000226ac 51 c8 ff fc              |Q       |		DBF	D0,0x226aa
000226b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226b8 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000226bc 4e 93                    |N       |		JSR	(A3)
000226be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226c0 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000226c4 4e ba f5 66              |N  f    |		JSR	0x21c2c
000226c8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000226cc 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
000226d0 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
000226d4 67 24                    |g$      |		BEQ	0x226fa
000226d6 43 fa dc c2              |C       |		LEA.L	0x2039a,A1
000226da 70 08                    |p       |		MOVEQ.L	#0x08,D0
000226dc 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000226de 51 c8 ff fc              |Q       |		DBF	D0,0x226dc
000226e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226ea 3f 04                    |?       |		MOVE.W	D4,-(A7)
000226ec 4e 93                    |N       |		JSR	(A3)
000226ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226f0 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000226f4 4e ba f5 36              |N  6    |		JSR	0x21c2c
000226f8 de c6                    |        |		ADDA.W	D6,A7
000226fa 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
000226fe 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
00022702 67 28                    |g(      |		BEQ	0x2272c
00022704 2f 3a dc a0              |/:      |		MOVE.L	0x203a6,-(A7)
00022708 2f 3a dc 98              |/:      |		MOVE.L	0x203a2,-(A7)
0002270c 2f 3a dc 90              |/:      |		MOVE.L	0x2039e,-(A7)
00022710 2f 3a dc 88              |/:      |		MOVE.L	0x2039a,-(A7)
00022714 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022716 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002271a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002271c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002271e 4e 93                    |N       |		JSR	(A3)
00022720 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022722 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022726 4e ba f5 04              |N       |		JSR	0x21c2c
0002272a de c3                    |        |		ADDA.W	D3,A7
0002272c 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022730 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
00022734 67 2e                    |g.      |		BEQ	0x22764
00022736 9e fc 00 18              |        |		SUBA.W	#0x18,A7
0002273a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002273c 45 fa dc 6c              |E  l    |		LEA.L	0x203aa,A2
00022740 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022742 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022744 51 c8 ff fc              |Q       |		DBF	D0,0x22742
00022748 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002274a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002274e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022750 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00022754 4e 93                    |N       |		JSR	(A3)
00022756 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022758 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002275c 4e ba f4 ce              |N       |		JSR	0x21c2c
00022760 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022764 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022768 02 40 02 00              | @      |		ANDI.W	#0x0200,D0
0002276c 67 2a                    |g*      |		BEQ	0x22798
0002276e 9e c2                    |        |		SUBA.W	D2,A7
00022770 22 4f                    |"O      |		MOVEA.L	A7,A1
00022772 45 fa dc 4e              |E  N    |		LEA.L	0x203c2,A2
00022776 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022778 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002277a 51 c8 ff fc              |Q       |		DBF	D0,0x22778
0002277e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022780 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022784 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022786 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002278a 4e 93                    |N       |		JSR	(A3)
0002278c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002278e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022792 4e ba f4 98              |N       |		JSR	0x21c2c
00022796 de c3                    |        |		ADDA.W	D3,A7
00022798 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
0002279c 02 40 01 00              | @      |		ANDI.W	#0x0100,D0
000227a0 67 2a                    |g*      |		BEQ	0x227cc
000227a2 9e c2                    |        |		SUBA.W	D2,A7
000227a4 22 4f                    |"O      |		MOVEA.L	A7,A1
000227a6 45 fa dc 2a              |E  *    |		LEA.L	0x203d2,A2
000227aa 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000227ac 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000227ae 51 c8 ff fc              |Q       |		DBF	D0,0x227ac
000227b2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227b8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227ba 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000227be 4e 93                    |N       |		JSR	(A3)
000227c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227c2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000227c6 4e ba f4 64              |N  d    |		JSR	0x21c2c
000227ca de c3                    |        |		ADDA.W	D3,A7
000227cc 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
000227d0 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
000227d4 67 26                    |g&      |		BEQ	0x227fc
000227d6 43 fa dc 18              |C       |		LEA.L	0x203f0,A1
000227da 70 06                    |p       |		MOVEQ.L	#0x06,D0
000227dc 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000227de 51 c8 ff fc              |Q       |		DBF	D0,0x227dc
000227e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227ea 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000227ee 4e 93                    |N       |		JSR	(A3)
000227f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227f2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000227f6 4e ba f4 34              |N  4    |		JSR	0x21c2c
000227fa de c4                    |        |		ADDA.W	D4,A7
000227fc 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022800 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00022804 66 22                    |f"      |		BNE	0x22828
00022806 2f 3a db ec              |/:      |		MOVE.L	0x203f4,-(A7)
0002280a 2f 3a db e4              |/:      |		MOVE.L	0x203f0,-(A7)
0002280e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022810 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022814 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022816 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002281a 4e 93                    |N       |		JSR	(A3)
0002281c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002281e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022822 4e ba f4 08              |N       |		JSR	0x21c2c
00022826 de c5                    |        |		ADDA.W	D5,A7
00022828 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
0002282c c0 42                    | B      |		AND.W	D2,D0
0002282e 67 24                    |g$      |		BEQ	0x22854
00022830 2f 3a db ce              |/:      |		MOVE.L	0x20400,-(A7)
00022834 2f 3a db c6              |/:      |		MOVE.L	0x203fc,-(A7)
00022838 2f 3a db be              |/:      |		MOVE.L	0x203f8,-(A7)
0002283c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002283e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022842 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022844 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022846 4e 93                    |N       |		JSR	(A3)
00022848 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002284a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002284e 4e ba f3 dc              |N       |		JSR	0x21c2c
00022852 de c2                    |        |		ADDA.W	D2,A7
00022854 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022858 02 40 00 04              | @      |		ANDI.W	#0x0004,D0
0002285c 67 24                    |g$      |		BEQ	0x22882
0002285e 2f 3a db ac              |/:      |		MOVE.L	0x2040c,-(A7)
00022862 2f 3a db a4              |/:      |		MOVE.L	0x20408,-(A7)
00022866 2f 3a db 9c              |/:      |		MOVE.L	0x20404,-(A7)
0002286a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002286c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022870 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022872 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022874 4e 93                    |N       |		JSR	(A3)
00022876 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022878 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002287c 4e ba f3 ae              |N       |		JSR	0x21c2c
00022880 de c2                    |        |		ADDA.W	D2,A7
00022882 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022886 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
0002288a 67 2c                    |g,      |		BEQ	0x228b8
0002288c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002288e 1e ba db 80              |        |		MOVE.B	0x20410,(A7)
00022892 1f 7a db 7d 00 01        | z }    |		MOVE.B	0x20411,(A7+0x1)
00022898 1f 7a db 78 00 02        | z x    |		MOVE.B	0x20412,(A7+0x2)
0002289e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228a6 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000228aa 4e 93                    |N       |		JSR	(A3)
000228ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228ae 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000228b2 4e ba f3 78              |N  x    |		JSR	0x21c2c
000228b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228b8 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
000228bc c0 41                    | A      |		AND.W	D1,D0
000228be 67 2c                    |g,      |		BEQ	0x228ec
000228c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228c2 1e ba db 50              |   P    |		MOVE.B	0x20414,(A7)
000228c6 1f 7a db 4d 00 01        | z M    |		MOVE.B	0x20415,(A7+0x1)
000228cc 1f 7a db 48 00 02        | z H    |		MOVE.B	0x20416,(A7+0x2)
000228d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228d4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228d8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228da 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000228de 4e 93                    |N       |		JSR	(A3)
000228e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228e2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000228e6 4e ba f3 44              |N  D    |		JSR	0x21c2c
000228ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228ec 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
000228f0 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
000228f4 67 2e                    |g.      |		BEQ	0x22924
000228f6 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000228fa 22 4f                    |"O      |		MOVEA.L	A7,A1
000228fc 45 fa db 1a              |E       |		LEA.L	0x20418,A2
00022900 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022902 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022904 51 c8 ff fc              |Q       |		DBF	D0,0x22902
00022908 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002290a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002290e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022910 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022914 4e 93                    |N       |		JSR	(A3)
00022916 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022918 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002291c 4e ba f3 0e              |N       |		JSR	0x21c2c
00022920 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022924 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022928 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
0002292c 67 2a                    |g*      |		BEQ	0x22958
0002292e 9e c4                    |        |		SUBA.W	D4,A7
00022930 22 4f                    |"O      |		MOVEA.L	A7,A1
00022932 45 fa da ee              |E       |		LEA.L	0x20422,A2
00022936 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022938 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002293a 51 c8 ff fc              |Q       |		DBF	D0,0x22938
0002293e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022940 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022944 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022946 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
0002294a 4e 93                    |N       |		JSR	(A3)
0002294c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002294e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022952 4e ba f2 d8              |N       |		JSR	0x21c2c
00022956 de c6                    |        |		ADDA.W	D6,A7
00022958 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
0002295c 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
00022960 67 2c                    |g,      |		BEQ	0x2298e
00022962 9e c3                    |        |		SUBA.W	D3,A7
00022964 22 4f                    |"O      |		MOVEA.L	A7,A1
00022966 45 fa da cc              |E       |		LEA.L	0x20434,A2
0002296a 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002296c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002296e 51 c8 ff fc              |Q       |		DBF	D0,0x2296c
00022972 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022974 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022978 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002297a 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
0002297e 4e 93                    |N       |		JSR	(A3)
00022980 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022982 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022986 4e ba f2 a4              |N       |		JSR	0x21c2c
0002298a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002298e 30 28 23 e6              |0(#     |		MOVE.W	(A0+0x23e6),D0
00022992 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00022996 67 2c                    |g,      |		BEQ	0x229c4
00022998 9e c6                    |        |		SUBA.W	D6,A7
0002299a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002299c 45 fa da aa              |E       |		LEA.L	0x20448,A2
000229a0 70 14                    |p       |		MOVEQ.L	#0x14,D0
000229a2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000229a4 51 c8 ff fc              |Q       |		DBF	D0,0x229a2
000229a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000229ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229b0 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000229b4 4e 93                    |N       |		JSR	(A3)
000229b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229b8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000229bc 4e ba f2 6e              |N  n    |		JSR	0x21c2c
000229c0 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000229c4 30 28 23 e8              |0(#     |		MOVE.W	(A0+0x23e8),D0
000229c8 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
000229cc 67 26                    |g&      |		BEQ	0x229f4
000229ce 43 fa da a2              |C       |		LEA.L	0x20472,A1
000229d2 70 04                    |p       |		MOVEQ.L	#0x04,D0
000229d4 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000229d6 51 c8 ff fc              |Q       |		DBF	D0,0x229d4
000229da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000229e0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229e2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000229e4 4e 93                    |N       |		JSR	(A3)
000229e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229e8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000229ec 4e ba f2 3e              |N  >    |		JSR	0x21c2c
000229f0 de fc 00 18              |        |		ADDA.W	#0x18,A7
000229f4 30 28 23 e8              |0(#     |		MOVE.W	(A0+0x23e8),D0
000229f8 02 40 00 20              | @      |		ANDI.W	#0x0020,D0
000229fc 67 2a                    |g*      |		BEQ	0x22a28
000229fe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022a00 22 4f                    |"O      |		MOVEA.L	A7,A1
00022a02 45 fa da 6e              |E  n    |		LEA.L	0x20472,A2
00022a06 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022a08 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022a0a 51 c8 ff fc              |Q       |		DBF	D0,0x22a08
00022a0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a10 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022a14 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a16 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00022a1a 4e 93                    |N       |		JSR	(A3)
00022a1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a1e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022a22 4e ba f2 08              |N       |		JSR	0x21c2c
00022a26 de c5                    |        |		ADDA.W	D5,A7
00022a28 30 28 23 e8              |0(#     |		MOVE.W	(A0+0x23e8),D0
00022a2c c0 41                    | A      |		AND.W	D1,D0
00022a2e 67 28                    |g(      |		BEQ	0x22a58
00022a30 2f 3a da 54              |/: T    |		MOVE.L	0x20486,-(A7)
00022a34 2f 3a da 4c              |/: L    |		MOVE.L	0x20482,-(A7)
00022a38 2f 3a da 44              |/: D    |		MOVE.L	0x2047e,-(A7)
00022a3c 2f 3a da 3c              |/: <    |		MOVE.L	0x2047a,-(A7)
00022a40 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a42 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022a46 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a48 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022a4a 4e 93                    |N       |		JSR	(A3)
00022a4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a4e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00022a52 4e ba f1 d8              |N       |		JSR	0x21c2c
00022a56 de c3                    |        |		ADDA.W	D3,A7
00022a58 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00022a5c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022a62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a64 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022a68 4e 5e                    |N^      |		UNLK	A6
00022a6a 4e 75                    |Nu      |		RTS
00022a6c ; --------------------------------------------------------------------------------------
00022a6c ; OMSI PASCAL Function
00022a6c ;    <LVAR  0x008 2(r)>
00022a6c ; --------------------------------------------------------------------------------------
00022a6c 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00022a70 bf d5                    |        |		CMPA.L	(A5),A7
00022a72 62 06                    |b       |		BHI	0x22a7a
00022a74 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a78 4e 76                    |Nv      |		TRAPV
00022a7a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022a7e 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022a82 2f 3a dc 3a              |/: :    |		MOVE.L	0x206be,-(A7)
00022a86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022a8c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022a90 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022a94 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022a9a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022a9c 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
00022aa0 4e ba f2 1a              |N       |		JSR	0x21cbc
00022aa4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022aa8 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022aac c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00022ab0 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022ab6 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022aba 52 a8 02 30              |R  0    |		ADDQ.L	#0x1,(A0+0x230)
00022abe 42 a8 02 44              |B  D    |		CLR.L	(A0+0x244)
00022ac2 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022ac6 4e 5e                    |N^      |		UNLK	A6
00022ac8 4e 75                    |Nu      |		RTS
00022aca ; --------------------------------------------------------------------------------------
00022aca ; OMSI PASCAL Function
00022aca ;    <LVAR  0x008 2(r)>
00022aca ; --------------------------------------------------------------------------------------
00022aca 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00022ace bf d5                    |        |		CMPA.L	(A5),A7
00022ad0 62 06                    |b       |		BHI	0x22ad8
00022ad2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ad6 4e 76                    |Nv      |		TRAPV
00022ad8 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022adc 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022ae0 2f 3a db e0              |/:      |		MOVE.L	0x206c2,-(A7)
00022ae4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ae6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022aea 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022aee 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022af2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022af8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022afa 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
00022afe 4e ba f1 bc              |N       |		JSR	0x21cbc
00022b02 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022b06 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022b0a c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00022b0e 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022b14 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022b18 20 28 02 34              | ( 4    |		MOVE.L	(A0+0x234),D0
00022b1c d0 a8 02 44              |   D    |		ADD.L	(A0+0x244),D0
00022b20 21 40 02 34              |!@ 4    |		MOVE.L	D0,(A0+0x234)
00022b24 42 a8 02 44              |B  D    |		CLR.L	(A0+0x244)
00022b28 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022b2c 4e 5e                    |N^      |		UNLK	A6
00022b2e 4e 75                    |Nu      |		RTS
00022b30 ; --------------------------------------------------------------------------------------
00022b30 ; OMSI PASCAL Function
00022b30 ;    <LVAR  0x008 2(r)>
00022b30 ; --------------------------------------------------------------------------------------
00022b30 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00022b34 bf d5                    |        |		CMPA.L	(A5),A7
00022b36 62 06                    |b       |		BHI	0x22b3e
00022b38 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b3c 4e 76                    |Nv      |		TRAPV
00022b3e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022b42 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022b46 2f 3a db 7e              |/: ~    |		MOVE.L	0x206c6,-(A7)
00022b4a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b4c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b50 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022b54 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022b58 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022b5e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022b60 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
00022b64 4e ba f1 56              |N  V    |		JSR	0x21cbc
00022b68 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022b6c 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022b70 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00022b74 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022b7a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022b7e 52 a8 02 38              |R  8    |		ADDQ.L	#0x1,(A0+0x238)
00022b82 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022b86 4e 5e                    |N^      |		UNLK	A6
00022b88 4e 75                    |Nu      |		RTS
00022b8a ; --------------------------------------------------------------------------------------
00022b8a ; OMSI PASCAL Function
00022b8a ;    <LVAR  0x00c 2(r)>
00022b8a ;    <LVAR  0x008 4(r)>
00022b8a ;    <LVAR -0x002 @>
00022b8a ;    <LVAR -0x004 2(r)>
00022b8a ;    <LVAR -0x006 2(r)>
00022b8a ;    <LVAR -0x008 2(w)>
00022b8a ;    <LVAR -0x00a 2(w)>
00022b8a ;    <LVAR -0x00c 2(r)>
00022b8a ;    <LVAR -0x00e 2(w)>
00022b8a ;    <LVAR -0x010 2(r)>
00022b8a ;    <LVAR -0x012 @ 2(r)>
00022b8a ; --------------------------------------------------------------------------------------
00022b8a 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00022b8e bf d5                    |        |		CMPA.L	(A5),A7
00022b90 62 06                    |b       |		BHI	0x22b98
00022b92 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b96 4e 76                    |Nv      |		TRAPV
00022b98 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00022b9c 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022ba0 72 1c                    |r       |		MOVEQ.L	#0x1c,D1
00022ba2 42 6e ff ee              |Bn      |		CLR.W	(A6-0x12)
00022ba6 42 6e ff f0              |Bn      |		CLR.W	(A6-0x10)
00022baa 3d 7c 00 03 ff f2        |=|      |		MOVE.W	#0x3,(A6-0xe)
00022bb0 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
00022bb4 3d 7c 00 04 ff f6        |=|      |		MOVE.W	#0x4,(A6-0xa)
00022bba 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
00022bbe e1 40                    | @      |		ASL.W	#0x8,D0
00022bc0 52 40                    |R@      |		ADDQ.W	#0x1,D0
00022bc2 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
00022bc6 42 6e ff fa              |Bn      |		CLR.W	(A6-0x6)
00022bca 42 6e ff fc              |Bn      |		CLR.W	(A6-0x4)
00022bce 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00022bd2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022bd6 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022bd8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022bda 48 78 00 00              |Hx      |		PEA.L	0x0
00022bde 48 78 00 10              |Hx      |		PEA.L	0x10
00022be2 4e ba e6 60              |N  `    |		JSR	0x21244
00022be6 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022bea 3e 81                    |>       |		MOVE.W	D1,(A7)
00022bec 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00022bf0 4e ba e5 68              |N  h    |		JSR	0x2115a
00022bf4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022bf6 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00022bfa 4e 5e                    |N^      |		UNLK	A6
00022bfc 4e 75                    |Nu      |		RTS
00022bfe ; --------------------------------------------------------------------------------------
00022bfe ; OMSI PASCAL Function
00022bfe ;    <LVAR  0x008 2(r)>
00022bfe ; --------------------------------------------------------------------------------------
00022bfe 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022c02 bf d5                    |        |		CMPA.L	(A5),A7
00022c04 62 06                    |b       |		BHI	0x22c0c
00022c06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022c0a 4e 76                    |Nv      |		TRAPV
00022c0c de fc 00 12              |        |		ADDA.W	#0x12,A7
00022c10 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022c14 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022c18 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00022c1c 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022c22 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022c26 11 7c 00 0a 23 d4        | |  #   |		MOVE.B	#0x0a,(A0+0x23d4)
00022c2c 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00022c30 4e ba eb 88              |N       |		JSR	0x217ba
00022c34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022c36 42 28 02 2c              |B( ,    |		CLR.B	(A0+0x22c)
00022c3a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022c3e 4e 5e                    |N^      |		UNLK	A6
00022c40 4e 75                    |Nu      |		RTS
00022c42 ; --------------------------------------------------------------------------------------
00022c42 ; OMSI PASCAL Function
00022c42 ;    <LVAR  0x00c 2(r)>
00022c42 ;    <LVAR  0x008 4(r)>
00022c42 ; --------------------------------------------------------------------------------------
00022c42 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00022c46 bf d5                    |        |		CMPA.L	(A5),A7
00022c48 62 06                    |b       |		BHI	0x22c50
00022c4a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022c4e 4e 76                    |Nv      |		TRAPV
00022c50 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00022c54 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022c58 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00022c5c 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022c62 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022c64 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022c68 c1 d3                    |        |		MULS.W	(A3),D0
00022c6a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022c70 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022c74 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00022c78 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00022c7c 67 38                    |g8      |		BEQ	0x22cb6
00022c7e 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00022c82 22 4f                    |"O      |		MOVEA.L	A7,A1
00022c84 45 fa da 44              |E  D    |		LEA.L	0x206ca,A2
00022c88 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022c8a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022c8c 51 c8 ff fc              |Q       |		DBF	D0,0x22c8a
00022c90 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c92 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c96 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c98 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022c9c 4e 94                    |N       |		JSR	(A4)
00022c9e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022ca0 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022ca2 4e ba f0 18              |N       |		JSR	0x21cbc
00022ca6 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022caa 42 28 02 2a              |B( *    |		CLR.B	(A0+0x22a)
00022cae 53 b9 00 02 57 9e        |S   W   |		SUBQ.L	#0x1,0x2579e
00022cb4 60 70                    |`p      |		BRA	0x22d26
00022cb6 30 28 23 e8              |0(#     |		MOVE.W	(A0+0x23e8),D0
00022cba 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00022cbe 67 36                    |g6      |		BEQ	0x22cf6
00022cc0 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022cc4 20 4f                    | O      |		MOVEA.L	A7,A0
00022cc6 43 fa da 0e              |C       |		LEA.L	0x206d6,A1
00022cca 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022ccc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022cce 51 c8 ff fc              |Q       |		DBF	D0,0x22ccc
00022cd2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cd4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022cd8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022cda 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022cde 4e 94                    |N       |		JSR	(A4)
00022ce0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022ce2 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022ce4 4e ba ef d6              |N       |		JSR	0x21cbc
00022ce8 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022cec 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00022cee 4e ba ff 0e              |N       |		JSR	0x22bfe
00022cf2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022cf4 60 30                    |`0      |		BRA	0x22d26
00022cf6 30 28 23 e4              |0(#     |		MOVE.W	(A0+0x23e4),D0
00022cfa 02 40 00 20              | @      |		ANDI.W	#0x0020,D0
00022cfe 67 20                    |g       |		BEQ	0x22d20
00022d00 2f 3a d9 e2              |/:      |		MOVE.L	0x206e4,-(A7)
00022d04 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d06 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d0a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022d0c 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022d10 4e 94                    |N       |		JSR	(A4)
00022d12 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022d14 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022d16 4e ba ef a4              |N       |		JSR	0x21cbc
00022d1a de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022d1e 60 cc                    |`       |		BRA	0x22cec
00022d20 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022d24 10 81                    |        |		MOVE.B	D1,(A0)
00022d26 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022d2a 4e 5e                    |N^      |		UNLK	A6
00022d2c 4e 75                    |Nu      |		RTS
00022d2e ; --------------------------------------------------------------------------------------
00022d2e ; OMSI PASCAL Function
00022d2e ;    <LVAR  0x00c 2(r)>
00022d2e ; --------------------------------------------------------------------------------------
00022d2e 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00022d32 bf d5                    |        |		CMPA.L	(A5),A7
00022d34 62 06                    |b       |		BHI	0x22d3c
00022d36 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d3a 4e 76                    |Nv      |		TRAPV
00022d3c de fc 00 14              |        |		ADDA.W	#0x14,A7
00022d40 2f 3a d9 a6              |/:      |		MOVE.L	0x206e8,-(A7)
00022d44 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d46 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d4a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022d4e 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022d52 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d58 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022d5a 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
00022d5e 4e ba ef 5c              |N  \    |		JSR	0x21cbc
00022d62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d64 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
00022d68 4e ba fe 94              |N       |		JSR	0x22bfe
00022d6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022d6e 4e 5e                    |N^      |		UNLK	A6
00022d70 4e 75                    |Nu      |		RTS
00022d72 ; --------------------------------------------------------------------------------------
00022d72 ; OMSI PASCAL Function
00022d72 ;    <LVAR  0x00c 2(r)>
00022d72 ;    <LVAR  0x008 4(r)>
00022d72 ; --------------------------------------------------------------------------------------
00022d72 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00022d76 bf d5                    |        |		CMPA.L	(A5),A7
00022d78 62 06                    |b       |		BHI	0x22d80
00022d7a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d7e 4e 76                    |Nv      |		TRAPV
00022d80 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00022d84 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022d88 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00022d8c 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022d92 49 fa ef 28              |I  (    |		LEA.L	0x21cbc,A4
00022d96 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022d98 74 04                    |t       |		MOVEQ.L	#0x04,D2
00022d9a 36 3c 20 03              |6<      |		MOVE.W	#0x2003,D3
00022d9e 78 0a                    |x       |		MOVEQ.L	#0x0a,D4
00022da0 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00022da2 7c 12                    ||       |		MOVEQ.L	#0x12,D6
00022da4 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022da8 c1 d2                    |        |		MULS.W	(A2),D0
00022daa 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022db0 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022db4 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022db8 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00022dbc 67 54                    |gT      |		BEQ	0x22e12
00022dbe 10 28 02 2c              | ( ,    |		MOVE.B	(A0+0x22c),D0
00022dc2 b0 03                    |        |		CMP.B	D3,D0
00022dc4 66 28                    |f(      |		BNE	0x22dee
00022dc6 9e c5                    |        |		SUBA.W	D5,A7
00022dc8 20 4f                    | O      |		MOVEA.L	A7,A0
00022dca 43 fa d9 20              |C       |		LEA.L	0x206ec,A1
00022dce 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022dd0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022dd2 51 c8 ff fc              |Q       |		DBF	D0,0x22dd0
00022dd6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dd8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ddc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022dde 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022de2 4e 93                    |N       |		JSR	(A3)
00022de4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022de6 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022de8 4e 94                    |N       |		JSR	(A4)
00022dea de c6                    |        |		ADDA.W	D6,A7
00022dec 60 18                    |`       |		BRA	0x22e06
00022dee 2f 3a d9 08              |/:      |		MOVE.L	0x206f8,-(A7)
00022df2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022df4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022df8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022dfa 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022dfc 4e 93                    |N       |		JSR	(A3)
00022dfe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e00 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022e02 4e 94                    |N       |		JSR	(A4)
00022e04 de c4                    |        |		ADDA.W	D4,A7
00022e06 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00022e08 4e ba fd f4              |N       |		JSR	0x22bfe
00022e0c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022e0e 60 00 00 da              |`       |		BRA	0x22eea
00022e12 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022e16 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00022e1a 67 58                    |gX      |		BEQ	0x22e74
00022e1c 10 28 02 2c              | ( ,    |		MOVE.B	(A0+0x22c),D0
00022e20 b0 02                    |        |		CMP.B	D2,D0
00022e22 66 08                    |f       |		BNE	0x22e2c
00022e24 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022e28 10 81                    |        |		MOVE.B	D1,(A0)
00022e2a 60 46                    |`F      |		BRA	0x22e72
00022e2c b0 03                    |        |		CMP.B	D3,D0
00022e2e 66 22                    |f"      |		BNE	0x22e52
00022e30 2f 3a d8 d2              |/:      |		MOVE.L	0x20704,-(A7)
00022e34 2f 3a d8 ca              |/:      |		MOVE.L	0x20700,-(A7)
00022e38 2f 3a d8 c2              |/:      |		MOVE.L	0x206fc,-(A7)
00022e3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e44 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022e46 4e 93                    |N       |		JSR	(A3)
00022e48 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e4a 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022e4c 4e 94                    |N       |		JSR	(A4)
00022e4e de c6                    |        |		ADDA.W	D6,A7
00022e50 60 18                    |`       |		BRA	0x22e6a
00022e52 2f 3a d8 b4              |/:      |		MOVE.L	0x20708,-(A7)
00022e56 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e58 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e5c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e5e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022e60 4e 93                    |N       |		JSR	(A3)
00022e62 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e64 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022e66 4e 94                    |N       |		JSR	(A4)
00022e68 de c4                    |        |		ADDA.W	D4,A7
00022e6a 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00022e6c 4e ba fd 90              |N       |		JSR	0x22bfe
00022e70 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022e72 60 76                    |`v      |		BRA	0x22eea
00022e74 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022e78 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00022e7c 67 34                    |g4      |		BEQ	0x22eb2
00022e7e 10 28 02 2c              | ( ,    |		MOVE.B	(A0+0x22c),D0
00022e82 b0 03                    |        |		CMP.B	D3,D0
00022e84 66 2c                    |f,      |		BNE	0x22eb2
00022e86 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00022e8a 20 4f                    | O      |		MOVEA.L	A7,A0
00022e8c 43 fa d8 7e              |C  ~    |		LEA.L	0x2070c,A1
00022e90 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022e92 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022e94 51 c8 ff fc              |Q       |		DBF	D0,0x22e92
00022e98 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e9a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e9e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ea0 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022ea4 4e 93                    |N       |		JSR	(A3)
00022ea6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022ea8 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022eaa 4e 94                    |N       |		JSR	(A4)
00022eac de fc 00 16              |        |		ADDA.W	#0x16,A7
00022eb0 60 30                    |`0      |		BRA	0x22ee2
00022eb2 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022eb6 c0 43                    | C      |		AND.W	D3,D0
00022eb8 66 08                    |f       |		BNE	0x22ec2
00022eba 30 28 23 e8              |0(#     |		MOVE.W	(A0+0x23e8),D0
00022ebe c0 41                    | A      |		AND.W	D1,D0
00022ec0 67 08                    |g       |		BEQ	0x22eca
00022ec2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022ec6 10 81                    |        |		MOVE.B	D1,(A0)
00022ec8 60 20                    |`       |		BRA	0x22eea
00022eca 2f 3a d8 50              |/: P    |		MOVE.L	0x2071c,-(A7)
00022ece 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ed0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ed4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ed6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022ed8 4e 93                    |N       |		JSR	(A3)
00022eda 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022edc 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022ede 4e 94                    |N       |		JSR	(A4)
00022ee0 de c4                    |        |		ADDA.W	D4,A7
00022ee2 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00022ee4 4e ba fd 18              |N       |		JSR	0x22bfe
00022ee8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022eea 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00022eee 4e 5e                    |N^      |		UNLK	A6
00022ef0 4e 75                    |Nu      |		RTS
00022ef2 ; --------------------------------------------------------------------------------------
00022ef2 ; OMSI PASCAL Function
00022ef2 ;    <LVAR  0x00c 2(r)>
00022ef2 ;    <LVAR  0x008 4(r)>
00022ef2 ; --------------------------------------------------------------------------------------
00022ef2 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00022ef6 bf d5                    |        |		CMPA.L	(A5),A7
00022ef8 62 06                    |b       |		BHI	0x22f00
00022efa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022efe 4e 76                    |Nv      |		TRAPV
00022f00 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022f04 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022f08 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00022f0c 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022f12 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022f14 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022f18 c1 d3                    |        |		MULS.W	(A3),D0
00022f1a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022f20 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022f24 30 28 23 da              |0(#     |		MOVE.W	(A0+0x23da),D0
00022f28 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00022f2c 67 36                    |g6      |		BEQ	0x22f64
00022f2e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022f30 22 4f                    |"O      |		MOVEA.L	A7,A1
00022f32 45 fa d7 ec              |E       |		LEA.L	0x20720,A2
00022f36 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022f38 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022f3a 51 c8 ff fc              |Q       |		DBF	D0,0x22f38
00022f3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f46 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00022f4a 4e 94                    |N       |		JSR	(A4)
00022f4c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f4e 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022f50 4e ba ed 6a              |N  j    |		JSR	0x21cbc
00022f54 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022f58 42 28 02 2a              |B( *    |		CLR.B	(A0+0x22a)
00022f5c 53 b9 00 02 57 9e        |S   W   |		SUBQ.L	#0x1,0x2579e
00022f62 60 68                    |`h      |		BRA	0x22fcc
00022f64 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022f68 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
00022f6c 67 28                    |g(      |		BEQ	0x22f96
00022f6e 43 fa d7 c2              |C       |		LEA.L	0x20732,A1
00022f72 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022f74 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022f76 51 c8 ff fc              |Q       |		DBF	D0,0x22f74
00022f7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f7c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f80 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f82 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022f86 4e 94                    |N       |		JSR	(A4)
00022f88 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f8a 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022f8c 4e ba ed 2e              |N  .    |		JSR	0x21cbc
00022f90 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022f94 60 c2                    |`       |		BRA	0x22f58
00022f96 30 28 23 e2              |0(#     |		MOVE.W	(A0+0x23e2),D0
00022f9a 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
00022f9e 67 08                    |g       |		BEQ	0x22fa8
00022fa0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022fa4 10 81                    |        |		MOVE.B	D1,(A0)
00022fa6 60 24                    |`$      |		BRA	0x22fcc
00022fa8 2f 3a d7 88              |/:      |		MOVE.L	0x20732,-(A7)
00022fac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022fb2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fb4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022fb8 4e 94                    |N       |		JSR	(A4)
00022fba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022fbc 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022fbe 4e ba ec fc              |N       |		JSR	0x21cbc
00022fc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fc4 3e 93                    |>       |		MOVE.W	(A3),(A7)
00022fc6 4e ba fc 36              |N  6    |		JSR	0x22bfe
00022fca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022fcc 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022fd0 4e 5e                    |N^      |		UNLK	A6
00022fd2 4e 75                    |Nu      |		RTS
00022fd4 ; --------------------------------------------------------------------------------------
00022fd4 ; OMSI PASCAL Function
00022fd4 ;    <LVAR  0x00c 2(r)>
00022fd4 ; --------------------------------------------------------------------------------------
00022fd4 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00022fd8 bf d5                    |        |		CMPA.L	(A5),A7
00022fda 62 06                    |b       |		BHI	0x22fe2
00022fdc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022fe0 4e 76                    |Nv      |		TRAPV
00022fe2 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022fe6 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
00022fea 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
00022fee 74 03                    |t       |		MOVEQ.L	#0x03,D2
00022ff0 76 02                    |v       |		MOVEQ.L	#0x02,D3
00022ff2 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00022ff6 c1 d1                    |        |		MULS.W	(A1),D0
00022ff8 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00022ffe 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023002 10 28 02 2c              | ( ,    |		MOVE.B	(A0+0x22c),D0
00023006 b0 02                    |        |		CMP.B	D2,D0
00023008 67 04                    |g       |		BEQ	0x2300e
0002300a b0 03                    |        |		CMP.B	D3,D0
0002300c 66 42                    |fB      |		BNE	0x23050
0002300e 22 28 02 44              |"( D    |		MOVE.L	(A0+0x244),D1
00023012 0c 81 00 00 00 0a        |        |		CMPI.L	#0x0000000a,D1
00023018 6f 10                    |o       |		BLE	0x2302a
0002301a 3f 11                    |?       |		MOVE.W	(A1),-(A7)
0002301c 4e ba fa 4e              |N  N    |		JSR	0x22a6c
00023020 3e 91                    |>       |		MOVE.W	(A1),(A7)
00023022 4e ba fb da              |N       |		JSR	0x22bfe
00023026 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023028 60 24                    |`$      |		BRA	0x2304e
0002302a 32 28 23 da              |2(#     |		MOVE.W	(A0+0x23da),D1
0002302e c2 43                    | C      |		AND.W	D3,D1
00023030 66 10                    |f       |		BNE	0x23042
00023032 b0 02                    |        |		CMP.B	D2,D0
00023034 66 06                    |f       |		BNE	0x2303c
00023036 11 42 23 d4              | B#     |		MOVE.B	D2,(A0+0x23d4)
0002303a 60 06                    |`       |		BRA	0x23042
0002303c 11 7c 00 05 23 d4        | |  #   |		MOVE.B	#0x05,(A0+0x23d4)
00023042 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023044 4e ba e7 74              |N  t    |		JSR	0x217ba
00023048 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002304a 52 a8 02 44              |R  D    |		ADDQ.L	#0x1,(A0+0x244)
0002304e 60 2a                    |`*      |		BRA	0x2307a
00023050 2f 3a d6 e4              |/:      |		MOVE.L	0x20736,-(A7)
00023054 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023056 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002305a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002305e 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00023062 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023068 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002306a 3e 91                    |>       |		MOVE.W	(A1),(A7)
0002306c 4e ba ec 4e              |N  N    |		JSR	0x21cbc
00023070 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023072 3e 91                    |>       |		MOVE.W	(A1),(A7)
00023074 4e ba fb 88              |N       |		JSR	0x22bfe
00023078 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002307a 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
0002307e 4e 5e                    |N^      |		UNLK	A6
00023080 4e 75                    |Nu      |		RTS
00023082 ; --------------------------------------------------------------------------------------
00023082 ; OMSI PASCAL Function
00023082 ;    <LVAR  0x00c 2(r)>
00023082 ; --------------------------------------------------------------------------------------
00023082 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00023086 bf d5                    |        |		CMPA.L	(A5),A7
00023088 62 06                    |b       |		BHI	0x23090
0002308a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002308e 4e 76                    |Nv      |		TRAPV
00023090 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023094 2f 3a d6 a4              |/:      |		MOVE.L	0x2073a,-(A7)
00023098 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002309a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002309e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000230a2 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000230a6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000230ac 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000230ae 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
000230b2 4e ba ec 08              |N       |		JSR	0x21cbc
000230b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230b8 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
000230bc 4e ba fb 40              |N  @    |		JSR	0x22bfe
000230c0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230c2 4e 5e                    |N^      |		UNLK	A6
000230c4 4e 75                    |Nu      |		RTS
000230c6 ; --------------------------------------------------------------------------------------
000230c6 ; OMSI PASCAL Function
000230c6 ;    <LVAR  0x00c 2(r)>
000230c6 ; --------------------------------------------------------------------------------------
000230c6 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000230ca bf d5                    |        |		CMPA.L	(A5),A7
000230cc 62 06                    |b       |		BHI	0x230d4
000230ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230d2 4e 76                    |Nv      |		TRAPV
000230d4 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000230d8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000230dc 2f 3a d6 60              |/: `    |		MOVE.L	0x2073e,-(A7)
000230e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000230e6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000230ea 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000230ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000230f4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000230f6 3e ae 00 0c              |>       |		MOVE.W	(A6+0xc),(A7)
000230fa 4e ba eb c0              |N       |		JSR	0x21cbc
000230fe de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023102 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023106 c1 ee 00 0c              |        |		MULS.W	(A6+0xc),D0
0002310a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023110 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023114 42 28 02 2a              |B( *    |		CLR.B	(A0+0x22a)
00023118 53 b9 00 02 57 9e        |S   W   |		SUBQ.L	#0x1,0x2579e
0002311e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00023122 4e 5e                    |N^      |		UNLK	A6
00023124 4e 75                    |Nu      |		RTS
00023126 ; --------------------------------------------------------------------------------------
00023126 ; OMSI PASCAL Function
00023126 ;    <LVAR  0x00c 2(r)>
00023126 ;    <LVAR  0x008 4(r)>
00023126 ; --------------------------------------------------------------------------------------
00023126 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
0002312a bf d5                    |        |		CMPA.L	(A5),A7
0002312c 62 06                    |b       |		BHI	0x23134
0002312e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023132 4e 76                    |Nv      |		TRAPV
00023134 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00023138 48 e7 e1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D2+D1+D0,-(A7)
0002313c 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00023140 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023142 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023146 42 10                    |B       |		CLR.B	(A0)
00023148 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002314c c1 d2                    |        |		MULS.W	(A2),D0
0002314e 43 f9 00 02 57 8e        |C   W   |		LEA.L	0x2578e,A1
00023154 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
00023158 3f 12                    |?       |		MOVE.W	(A2),-(A7)
0002315a 48 69 23 da              |Hi#     |		PEA.L	(A1+0x23da)
0002315e 4e ba fa 2a              |N  *    |		JSR	0x22b8a
00023162 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023164 30 29 23 e2              |0)#     |		MOVE.W	(A1+0x23e2),D0
00023168 c0 42                    | B      |		AND.W	D2,D0
0002316a 67 04                    |g       |		BEQ	0x23170
0002316c 13 42 02 2b              | B +    |		MOVE.B	D2,(A1+0x22b)
00023170 30 29 23 da              |0)#     |		MOVE.W	(A1+0x23da),D0
00023174 02 40 00 0e              | @      |		ANDI.W	#0x000e,D0
00023178 e2 48                    | H      |		LSR.W	#0x1,D0
0002317a 42 81                    |B       |		CLR.L	D1
0002317c 32 00                    |2       |		MOVE.W	D0,D1
0002317e 2e 01                    |.       |		MOVE.L	D1,D7
00023180 20 07                    |        |		MOVE.L	D7,D0
00023182 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
00023188 63 02                    |c       |		BLS	0x2318c
0002318a 4e 4e                    |NN      |		TRAP	#14
0002318c d0 40                    | @      |		ADD.W	D0,D0
0002318e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00023196 00 10                    |        |		.CONST	0x10			; [0x0] -> 0x231a6
00023198 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x231b0
0002319a 00 24                    | $      |		.CONST	0x24			; [0x2] -> 0x231ba
0002319c 00 2e                    | .      |		.CONST	0x2e			; [0x3] -> 0x231c4
0002319e 00 38                    | 8      |		.CONST	0x38			; [0x4] -> 0x231ce
000231a0 00 42                    | B      |		.CONST	0x42			; [0x5] -> 0x231d8
000231a2 00 44                    | D      |		.CONST	0x44			; [0x6] -> 0x231da
000231a4 00 4e                    | N      |		.CONST	0x4e			; [0x7] -> 0x231e4
000231a6					switch@0x2318e[0x0]:
000231a6 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231a8 48 50                    |HP      |		PEA.L	(A0)
000231aa 4e ba fa 96              |N       |		JSR	0x22c42
000231ae 60 3c                    |`<      |		BRA	0x231ec
000231b0					switch@0x2318e[0x1]:
000231b0 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231b2 48 50                    |HP      |		PEA.L	(A0)
000231b4 4e ba fb 78              |N  x    |		JSR	0x22d2e
000231b8 60 32                    |`2      |		BRA	0x231ec
000231ba					switch@0x2318e[0x2]:
000231ba 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231bc 48 50                    |HP      |		PEA.L	(A0)
000231be 4e ba fb b2              |N       |		JSR	0x22d72
000231c2 60 28                    |`(      |		BRA	0x231ec
000231c4					switch@0x2318e[0x3]:
000231c4 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231c6 48 50                    |HP      |		PEA.L	(A0)
000231c8 4e ba fd 28              |N  (    |		JSR	0x22ef2
000231cc 60 1e                    |`       |		BRA	0x231ec
000231ce					switch@0x2318e[0x4]:
000231ce 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231d0 48 50                    |HP      |		PEA.L	(A0)
000231d2 4e ba fe 00              |N       |		JSR	0x22fd4
000231d6 60 14                    |`       |		BRA	0x231ec
000231d8					switch@0x2318e[0x5]:
000231d8 60 f4                    |`       |		BRA	switch@0x2318e[0x4]
000231da					switch@0x2318e[0x6]:
000231da 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231dc 48 50                    |HP      |		PEA.L	(A0)
000231de 4e ba fe a2              |N       |		JSR	0x23082
000231e2 60 08                    |`       |		BRA	0x231ec
000231e4					switch@0x2318e[0x7]:
000231e4 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000231e6 48 50                    |HP      |		PEA.L	(A0)
000231e8 4e ba fe dc              |N       |		JSR	0x230c6
000231ec 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000231ee 4c df 07 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2
000231f2 4e 5e                    |N^      |		UNLK	A6
000231f4 4e 75                    |Nu      |		RTS
000231f6 ; --------------------------------------------------------------------------------------
000231f6 ; OMSI PASCAL Function
000231f6 ;    <LVAR  0x008 2(r)>
000231f6 ; --------------------------------------------------------------------------------------
000231f6 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
000231fa bf d5                    |        |		CMPA.L	(A5),A7
000231fc 62 06                    |b       |		BHI	0x23204
000231fe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023202 4e 76                    |Nv      |		TRAPV
00023204 de fc 00 12              |        |		ADDA.W	#0x12,A7
00023208 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002320c 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023210 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00023214 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002321a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002321e 11 7c 00 0b 23 d4        | |  #   |		MOVE.B	#0x0b,(A0+0x23d4)
00023224 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00023228 4e ba e5 90              |N       |		JSR	0x217ba
0002322c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002322e 11 7c 00 01 02 2c        | |   ,  |		MOVE.B	#0x01,(A0+0x22c)
00023234 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00023238 4e 5e                    |N^      |		UNLK	A6
0002323a 4e 75                    |Nu      |		RTS
0002323c ; --------------------------------------------------------------------------------------
0002323c ; OMSI PASCAL Function
0002323c ;    <LVAR  0x008 2(r)>
0002323c ; --------------------------------------------------------------------------------------
0002323c 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00023240 bf d5                    |        |		CMPA.L	(A5),A7
00023242 62 06                    |b       |		BHI	0x2324a
00023244 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023248 4e 76                    |Nv      |		TRAPV
0002324a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002324e 48 e7 db c0              |H       |		MOVEM.L	A1+A0+D7+D6+D4+D3+D1+D0,-(A7)
00023252 72 3f                    |r?      |		MOVEQ.L	#0x3f,D1
00023254 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023256 4e ba da 6a              |N  j    |		JSR	0x20cc2
0002325a 20 1f                    |        |		MOVE.L	(A7)+,D0
0002325c 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00023262 63 02                    |c       |		BLS	0x23266
00023264 4e 4f                    |NO      |		TRAP	#15
00023266 3c 00                    |<       |		MOVE.W	D0,D6
00023268 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002326a 48 78 00 12              |Hx      |		PEA.L	0x12
0002326e 48 78 20 00              |Hx      |		PEA.L	0x2000
00023272 4e ba d9 f4              |N       |		JSR	0x20c68
00023276 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023278 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0002327a 08 07 00 00              |        |		BTST.L	#0x0,D7
0002327e 67 02                    |g       |		BEQ	0x23282
00023280 52 87                    |R       |		ADDQ.L	#0x1,D7
00023282 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023286 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
0002328a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023290 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023294 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023296 1e a8 03 d0              |        |		MOVE.B	(A0+0x3d0),(A7)
0002329a 1f 68 03 d1 00 01        | h      |		MOVE.B	(A0+0x3d1),(A7+0x1)
000232a0 1f 68 03 d2 00 02        | h      |		MOVE.B	(A0+0x3d2),(A7+0x2)
000232a6 1f 68 03 d3 00 03        | h      |		MOVE.B	(A0+0x3d3),(A7+0x3)
000232ac 3f 06                    |?       |		MOVE.W	D6,-(A7)
000232ae 28 07                    |(       |		MOVE.L	D7,D4
000232b0 76 02                    |v       |		MOVEQ.L	#0x02,D3
000232b2 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000232b8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000232ba 0c 84 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D4
000232c0 63 02                    |c       |		BLS	0x232c4
000232c2 4e 4f                    |NO      |		TRAP	#15
000232c4 3e 84                    |>       |		MOVE.W	D4,(A7)
000232c6 4e b9 00 01 02 36        |N    6  |		JSR	KERNCALL_1b
000232cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232ce 11 7c 00 04 23 d4        | |  #   |		MOVE.B	#0x04,(A0+0x23d4)
000232d4 21 47 23 d6              |!G#     |		MOVE.L	D7,(A0+0x23d6)
000232d8 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
000232dc 4e ba e4 dc              |N       |		JSR	0x217ba
000232e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000232e2 11 7c 00 02 02 2c        | |   ,  |		MOVE.B	#0x02,(A0+0x22c)
000232e8 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
000232ec b0 81                    |        |		CMP.L	D1,D0
000232ee 63 02                    |c       |		BLS	0x232f2
000232f0 4e 4f                    |NO      |		TRAP	#15
000232f2 28 00                    |(       |		MOVE.L	D0,D4
000232f4 76 06                    |v       |		MOVEQ.L	#0x06,D3
000232f6 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000232fc 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
00023300 33 86 48 26              |3 H&    |		MOVE.W	D6,(A1+D4.L+#0x26)
00023304 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
00023308 b0 81                    |        |		CMP.L	D1,D0
0002330a 63 02                    |c       |		BLS	0x2330e
0002330c 4e 4f                    |NO      |		TRAP	#15
0002330e 28 00                    |(       |		MOVE.L	D0,D4
00023310 76 06                    |v       |		MOVEQ.L	#0x06,D3
00023312 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00023318 23 87 48 28              |# H(    |		MOVE.L	D7,(A1+D4.L+#0x28)
0002331c 4c df 03 db              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D6+D7+A0+A1
00023320 4e 5e                    |N^      |		UNLK	A6
00023322 4e 75                    |Nu      |		RTS
00023324 ; --------------------------------------------------------------------------------------
00023324 ; OMSI PASCAL Function
00023324 ;    <LVAR  0x008 2(r)>
00023324 ; --------------------------------------------------------------------------------------
00023324 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda		; Spelunked
00023328 bf d5                    |        |		CMPA.L	(A5),A7
0002332a 62 06                    |b       |		BHI	0x23332
0002332c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023330 4e 76                    |Nv      |		TRAPV
00023332 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023336 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
0002333a 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002333e c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00023342 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023348 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002334c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002334e 48 78 00 01              |Hx      |		PEA.L	0x1
00023352 2f 28 02 4c              |/( L    |		MOVE.L	(A0+0x24c),-(A7)
00023356 4e ba d9 10              |N       |		JSR	0x20c68
0002335a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002335c 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0002335e 11 7c 00 07 23 d4        | |  #   |		MOVE.B	#0x07,(A0+0x23d4)
00023364 21 47 23 d6              |!G#     |		MOVE.L	D7,(A0+0x23d6)
00023368 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
0002336c 4e ba e4 4c              |N  L    |		JSR	0x217ba
00023370 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023372 9f a8 02 48              |   H    |		SUB.L	D7,(A0+0x248)
00023376 11 7c 00 04 02 2c        | |   ,  |		MOVE.B	#0x04,(A0+0x22c)
0002337c 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00023380 4e 5e                    |N^      |		UNLK	A6
00023382 4e 75                    |Nu      |		RTS
00023384 ; --------------------------------------------------------------------------------------
00023384 ; OMSI PASCAL Function
00023384 ;    <LVAR  0x008 2(r)>
00023384 ; --------------------------------------------------------------------------------------
00023384 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00023388 bf d5                    |        |		CMPA.L	(A5),A7
0002338a 62 06                    |b       |		BHI	0x23392
0002338c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023390 4e 76                    |Nv      |		TRAPV
00023392 de fc 00 12              |        |		ADDA.W	#0x12,A7
00023396 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002339a 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002339e c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
000233a2 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000233a8 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000233ac 11 7c 00 09 23 d4        | |  #   |		MOVE.B	#0x09,(A0+0x23d4)
000233b2 21 7c 00 00 00 01 23 d6  |!|    # |		MOVE.L	#0x1,(A0+0x23d6)
000233ba 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
000233be 4e ba e3 fa              |N       |		JSR	0x217ba
000233c2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000233c4 42 a8 02 48              |B  H    |		CLR.L	(A0+0x248)
000233c8 11 7c 00 05 02 2c        | |   ,  |		MOVE.B	#0x05,(A0+0x22c)
000233ce 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000233d2 4e 5e                    |N^      |		UNLK	A6
000233d4 4e 75                    |Nu      |		RTS
000233d6 ; --------------------------------------------------------------------------------------
000233d6 ; OMSI PASCAL Function
000233d6 ;    <LVAR  0x008 2(r)>
000233d6 ; --------------------------------------------------------------------------------------
000233d6 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
000233da bf d5                    |        |		CMPA.L	(A5),A7
000233dc 62 06                    |b       |		BHI	0x233e4
000233de 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000233e2 4e 76                    |Nv      |		TRAPV
000233e4 de fc 00 12              |        |		ADDA.W	#0x12,A7
000233e8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000233ec 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000233f0 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
000233f4 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000233fa 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000233fe 11 7c 00 08 23 d4        | |  #   |		MOVE.B	#0x08,(A0+0x23d4)
00023404 21 7c 00 00 00 01 23 d6  |!|    # |		MOVE.L	#0x1,(A0+0x23d6)
0002340c 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00023410 4e ba e3 a8              |N       |		JSR	0x217ba
00023414 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023416 11 7c 00 06 02 2c        | |   ,  |		MOVE.B	#0x06,(A0+0x22c)
0002341c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00023420 4e 5e                    |N^      |		UNLK	A6
00023422 4e 75                    |Nu      |		RTS
00023424 ; --------------------------------------------------------------------------------------
00023424 ; OMSI PASCAL Function
00023424 ;    <LVAR  0x00a 2(r)>
00023424 ;    <LVAR  0x008 1(r)>
00023424 ;    <LVAR -0x004 @ 1(rw)>
00023424 ; --------------------------------------------------------------------------------------
00023424 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00023428 bf d5                    |        |		CMPA.L	(A5),A7
0002342a 62 06                    |b       |		BHI	0x23432
0002342c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023430 4e 76                    |Nv      |		TRAPV
00023432 de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00023436 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
0002343a 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
0002343e 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
00023442 72 10                    |r       |		MOVEQ.L	#0x10,D1
00023444 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023446 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002344a c1 d3                    |        |		MULS.W	(A3),D0
0002344c 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023452 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023456 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002345a 67 04                    |g       |		BEQ	0x23460
0002345c 18 82                    |        |		MOVE.B	D2,(A4)
0002345e 60 0a                    |`       |		BRA	0x2346a
00023460 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023462 48 54                    |HT      |		PEA.L	(A4)
00023464 4e ba fc c0              |N       |		JSR	0x23126
00023468 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002346a 4a 14                    |J       |		TST.B	(A4)
0002346c 67 00 00 c0              |g       |		BEQ	0x2352e
00023470 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00023476 67 38                    |g8      |		BEQ	0x234b0
00023478 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002347a 3f 13                    |?       |		MOVE.W	(A3),-(A7)
0002347c d3 57                    | W      |		ADD.W	D1,(A7)
0002347e 4e ba dd 30              |N  0    |		JSR	0x211b0
00023482 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023484 4a 9f                    |J       |		TST.L	(A7)+
00023486 67 28                    |g(      |		BEQ	0x234b0
00023488 43 fa d2 da              |C       |		LEA.L	0x20764,A1
0002348c 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002348e 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00023490 51 c8 ff fc              |Q       |		DBF	D0,0x2348e
00023494 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023496 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002349a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002349c 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
000234a0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000234a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000234a8 4e ba d7 98              |N       |		JSR	0x20c42
000234ac de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000234b0 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
000234b4 0c 80 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D0
000234ba 63 02                    |c       |		BLS	0x234be
000234bc 4e 4f                    |NO      |		TRAP	#15
000234be 28 00                    |(       |		MOVE.L	D0,D4
000234c0 76 06                    |v       |		MOVEQ.L	#0x06,D3
000234c2 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000234c8 9e c1                    |        |		SUBA.W	D1,A7
000234ca 22 4f                    |"O      |		MOVEA.L	A7,A1
000234cc 45 e8 02 3c              |E  <    |		LEA.L	(A0+0x23c),A2
000234d0 70 07                    |p       |		MOVEQ.L	#0x07,D0
000234d2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000234d4 51 c8 ff fc              |Q       |		DBF	D0,0x234d2
000234d8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000234da 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
000234de 2f 31 48 28              |/1H(    |		MOVE.L	(A1+D4.L+#0x28),-(A7)
000234e2 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
000234e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234ea 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
000234f0 de c1                    |        |		ADDA.W	D1,A7
000234f2 43 e8 02 3c              |C  <    |		LEA.L	(A0+0x23c),A1
000234f6 24 4f                    |$O      |		MOVEA.L	A7,A2
000234f8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000234fa 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000234fc 51 c8 ff fc              |Q       |		DBF	D0,0x234fa
00023500 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023502 4a a8 02 44              |J  D    |		TST.L	(A0+0x244)
00023506 67 08                    |g       |		BEQ	0x23510
00023508 3f 13                    |?       |		MOVE.W	(A3),-(A7)
0002350a 4e ba f5 be              |N       |		JSR	0x22aca
0002350e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023510 52 a8 02 48              |R  H    |		ADDQ.L	#0x1,(A0+0x248)
00023514 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
00023518 b0 a8 02 4c              |   L    |		CMP.L	(A0+0x24c),D0
0002351c 6e 08                    |n       |		BGT	0x23526
0002351e 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023520 4e ba fd 1a              |N       |		JSR	0x2323c
00023524 60 06                    |`       |		BRA	0x2352c
00023526 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023528 4e ba fe 5a              |N  Z    |		JSR	0x23384
0002352c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002352e 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00023532 4e 5e                    |N^      |		UNLK	A6
00023534 4e 75                    |Nu      |		RTS
00023536 ; --------------------------------------------------------------------------------------
00023536 ; OMSI PASCAL Function
00023536 ;    <LVAR  0x008 2(r)>
00023536 ; --------------------------------------------------------------------------------------
00023536 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0002353a bf d5                    |        |		CMPA.L	(A5),A7
0002353c 62 06                    |b       |		BHI	0x23544
0002353e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023542 4e 76                    |Nv      |		TRAPV
00023544 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00023548 48 e7 98 c0              |H       |		MOVEM.L	A1+A0+D4+D3+D0,-(A7)
0002354c 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023550 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00023554 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002355a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002355e 11 7c 00 02 23 d4        | |  #   |		MOVE.B	#0x02,(A0+0x23d4)
00023564 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
00023568 0c 80 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D0
0002356e 63 02                    |c       |		BLS	0x23572
00023570 4e 4f                    |NO      |		TRAP	#15
00023572 28 00                    |(       |		MOVE.L	D0,D4
00023574 76 06                    |v       |		MOVEQ.L	#0x06,D3
00023576 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002357c 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
00023580 21 71 48 28 23 d6        |!qH(#   |		MOVE.L	(A1+D4.L+#0x28),(A0+0x23d6)
00023586 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
0002358a 4e ba e2 2e              |N  .    |		JSR	0x217ba
0002358e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023590 13 7c 00 03 00 02        | |      |		MOVE.B	#0x03,(A1+0x2)
00023596 4c df 03 19              |L       |		MOVEM.L	(A7)+,D0+D3+D4+A0+A1
0002359a 4e 5e                    |N^      |		UNLK	A6
0002359c 4e 75                    |Nu      |		RTS
0002359e ; --------------------------------------------------------------------------------------
0002359e ; OMSI PASCAL Function
0002359e ;    <LVAR  0x008 2(r)>
0002359e ;    <LVAR -0x002 @ 1(r)>
0002359e ; --------------------------------------------------------------------------------------
0002359e 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc		; Spelunked
000235a2 bf d5                    |        |		CMPA.L	(A5),A7
000235a4 62 06                    |b       |		BHI	0x235ac
000235a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000235aa 4e 76                    |Nv      |		TRAPV
000235ac de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000235b0 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000235b4 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000235b8 72 14                    |r       |		MOVEQ.L	#0x14,D1
000235ba 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000235be c1 d1                    |        |		MULS.W	(A1),D0
000235c0 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000235c6 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000235ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000235cc 48 78 00 00              |Hx      |		PEA.L	0x0
000235d0 48 78 00 01              |Hx      |		PEA.L	0x1
000235d4 4e ba d6 92              |N       |		JSR	0x20c68
000235d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235da 4a 9f                    |J       |		TST.L	(A7)+
000235dc 66 06                    |f       |		BNE	0x235e4
000235de 11 41 23 d4              | A#     |		MOVE.B	D1,(A0+0x23d4)
000235e2 60 06                    |`       |		BRA	0x235ea
000235e4 11 7c 00 15 23 d4        | |  #   |		MOVE.B	#0x15,(A0+0x23d4)
000235ea 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000235ec 4e ba e1 cc              |N       |		JSR	0x217ba
000235f0 3e 91                    |>       |		MOVE.W	(A1),(A7)
000235f2 06 57 00 10              | W      |		ADDI.W	#0x0010,(A7)
000235f6 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000235fa 4e ba db 5e              |N  ^    |		JSR	0x2115a
000235fe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023600 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00023604 66 2a                    |f*      |		BNE	0x23630
00023606 41 fa d1 6a              |A  j    |		LEA.L	0x20772,A0
0002360a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002360c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002360e 51 c8 ff fc              |Q       |		DBF	D0,0x2360c
00023612 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023614 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023618 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002361c 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00023620 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023626 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023628 3e 91                    |>       |		MOVE.W	(A1),(A7)
0002362a 4e ba e6 90              |N       |		JSR	0x21cbc
0002362e de c1                    |        |		ADDA.W	D1,A7
00023630 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00023634 4e 5e                    |N^      |		UNLK	A6
00023636 4e 75                    |Nu      |		RTS
00023638 ; --------------------------------------------------------------------------------------
00023638 ; OMSI PASCAL Function
00023638 ;    <LVAR  0x008 2(r)>
00023638 ;    <LVAR -0x002 @ 1(r)>
00023638 ; --------------------------------------------------------------------------------------
00023638 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce		; Spelunked
0002363c bf d5                    |        |		CMPA.L	(A5),A7
0002363e 62 06                    |b       |		BHI	0x23646
00023640 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023644 4e 76                    |Nv      |		TRAPV
00023646 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002364a 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
0002364e 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00023652 72 12                    |r       |		MOVEQ.L	#0x12,D1
00023654 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023658 c1 d1                    |        |		MULS.W	(A1),D0
0002365a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023660 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023664 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023666 48 78 00 00              |Hx      |		PEA.L	0x0
0002366a 48 78 00 01              |Hx      |		PEA.L	0x1
0002366e 4e ba d5 f8              |N       |		JSR	0x20c68
00023672 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023674 4a 9f                    |J       |		TST.L	(A7)+
00023676 66 06                    |f       |		BNE	0x2367e
00023678 11 41 23 d4              | A#     |		MOVE.B	D1,(A0+0x23d4)
0002367c 60 06                    |`       |		BRA	0x23684
0002367e 11 7c 00 13 23 d4        | |  #   |		MOVE.B	#0x13,(A0+0x23d4)
00023684 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023686 4e ba e1 32              |N  2    |		JSR	0x217ba
0002368a 3e 91                    |>       |		MOVE.W	(A1),(A7)
0002368c 06 57 00 10              | W      |		ADDI.W	#0x0010,(A7)
00023690 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00023694 4e ba da c4              |N       |		JSR	0x2115a
00023698 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002369a 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0002369e 66 2a                    |f*      |		BNE	0x236ca
000236a0 2f 3a d0 d8              |/:      |		MOVE.L	0x2077a,-(A7)
000236a4 2f 3a d0 d0              |/:      |		MOVE.L	0x20776,-(A7)
000236a8 2f 3a d0 c8              |/:      |		MOVE.L	0x20772,-(A7)
000236ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000236ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000236b2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000236b6 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
000236ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000236c0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000236c2 3e 91                    |>       |		MOVE.W	(A1),(A7)
000236c4 4e ba e5 f6              |N       |		JSR	0x21cbc
000236c8 de c1                    |        |		ADDA.W	D1,A7
000236ca 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000236ce 4e 5e                    |N^      |		UNLK	A6
000236d0 4e 75                    |Nu      |		RTS
000236d2 ; --------------------------------------------------------------------------------------
000236d2 ; OMSI PASCAL Function
000236d2 ;    <LVAR  0x00a 2(r)>
000236d2 ;    <LVAR  0x008 1(r)>
000236d2 ;    <LVAR -0x004 @ 1(rw)>
000236d2 ; --------------------------------------------------------------------------------------
000236d2 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
000236d6 bf d5                    |        |		CMPA.L	(A5),A7
000236d8 62 06                    |b       |		BHI	0x236e0
000236da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000236de 4e 76                    |Nv      |		TRAPV
000236e0 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
000236e4 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000236e8 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
000236ec 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
000236f0 72 3f                    |r?      |		MOVEQ.L	#0x3f,D1
000236f2 74 10                    |t       |		MOVEQ.L	#0x10,D2
000236f4 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000236f6 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000236fa c1 d3                    |        |		MULS.W	(A3),D0
000236fc 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023702 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023706 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002370a 67 04                    |g       |		BEQ	0x23710
0002370c 18 85                    |        |		MOVE.B	D5,(A4)
0002370e 60 0a                    |`       |		BRA	0x2371a
00023710 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023712 48 54                    |HT      |		PEA.L	(A4)
00023714 4e ba fa 10              |N       |		JSR	0x23126
00023718 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002371a 4a 14                    |J       |		TST.B	(A4)
0002371c 67 00 01 6e              |g  n    |		BEQ	0x2388c
00023720 4a 39 00 02 57 a2        |J9  W   |		TST.B	0x257a2
00023726 67 5a                    |gZ      |		BEQ	0x23782
00023728 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
0002372c b0 81                    |        |		CMP.L	D1,D0
0002372e 63 02                    |c       |		BLS	0x23732
00023730 4e 4f                    |NO      |		TRAP	#15
00023732 28 00                    |(       |		MOVE.L	D0,D4
00023734 76 06                    |v       |		MOVEQ.L	#0x06,D3
00023736 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002373c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002373e 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023740 d5 57                    | W      |		ADD.W	D2,(A7)
00023742 4e ba da 6c              |N  l    |		JSR	0x211b0
00023746 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023748 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
0002374c 20 1f                    |        |		MOVE.L	(A7)+,D0
0002374e b0 b1 48 28              |  H(    |		CMP.L	(A1+D4.L+#0x28),D0
00023752 67 2e                    |g.      |		BEQ	0x23782
00023754 9e fc 00 20              |        |		SUBA.W	#0x20,A7
00023758 22 4f                    |"O      |		MOVEA.L	A7,A1
0002375a 45 fa d0 22              |E  "    |		LEA.L	0x2077e,A2
0002375e 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00023760 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023762 51 c8 ff fc              |Q       |		DBF	D0,0x23760
00023766 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023768 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002376c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002376e 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00023772 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023778 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002377a 4e ba d4 c6              |N       |		JSR	0x20c42
0002377e de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023782 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
00023786 b0 81                    |        |		CMP.L	D1,D0
00023788 63 02                    |c       |		BLS	0x2378c
0002378a 4e 4f                    |NO      |		TRAP	#15
0002378c 28 00                    |(       |		MOVE.L	D0,D4
0002378e 76 06                    |v       |		MOVEQ.L	#0x06,D3
00023790 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00023796 9e c2                    |        |		SUBA.W	D2,A7
00023798 22 4f                    |"O      |		MOVEA.L	A7,A1
0002379a 45 e8 02 3c              |E  <    |		LEA.L	(A0+0x23c),A2
0002379e 70 07                    |p       |		MOVEQ.L	#0x07,D0
000237a0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000237a2 51 c8 ff fc              |Q       |		DBF	D0,0x237a0
000237a6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000237a8 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
000237ac 2f 31 48 28              |/1H(    |		MOVE.L	(A1+D4.L+#0x28),-(A7)
000237b0 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
000237b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000237b8 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
000237be de c2                    |        |		ADDA.W	D2,A7
000237c0 43 e8 02 3c              |C  <    |		LEA.L	(A0+0x23c),A1
000237c4 24 4f                    |$O      |		MOVEA.L	A7,A2
000237c6 70 07                    |p       |		MOVEQ.L	#0x07,D0
000237c8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000237ca 51 c8 ff fc              |Q       |		DBF	D0,0x237c8
000237ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237d0 4a a8 02 44              |J  D    |		TST.L	(A0+0x244)
000237d4 67 08                    |g       |		BEQ	0x237de
000237d6 3f 13                    |?       |		MOVE.W	(A3),-(A7)
000237d8 4e ba f2 f0              |N       |		JSR	0x22aca
000237dc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000237de 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
000237e2 b0 81                    |        |		CMP.L	D1,D0
000237e4 63 02                    |c       |		BLS	0x237e8
000237e6 4e 4f                    |NO      |		TRAP	#15
000237e8 28 00                    |(       |		MOVE.L	D0,D4
000237ea 76 06                    |v       |		MOVEQ.L	#0x06,D3
000237ec 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000237f2 2f 04                    |/       |		MOVE.L	D4,-(A7)
000237f4 43 e8 02 2a              |C  *    |		LEA.L	(A0+0x22a),A1
000237f8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000237fa 1e a9 01 a6              |        |		MOVE.B	(A1+0x1a6),(A7)
000237fe 1f 69 01 a7 00 01        | i      |		MOVE.B	(A1+0x1a7),(A7+0x1)
00023804 1f 69 01 a8 00 02        | i      |		MOVE.B	(A1+0x1a8),(A7+0x2)
0002380a 1f 69 01 a9 00 03        | i      |		MOVE.B	(A1+0x1a9),(A7+0x3)
00023810 3f 31 48 26              |?1H&    |		MOVE.W	(A1+D4.L+#0x26),-(A7)
00023814 28 2f 00 08              |(/      |		MOVE.L	(A7+0x8),D4
00023818 28 31 48 28              |(1H(    |		MOVE.L	(A1+D4.L+#0x28),D4
0002381c 76 02                    |v       |		MOVEQ.L	#0x02,D3
0002381e 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00023824 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023826 0c 84 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D4
0002382c 63 02                    |c       |		BLS	0x23830
0002382e 4e 4f                    |NO      |		TRAP	#15
00023830 3e 84                    |>       |		MOVE.W	D4,(A7)
00023832 4e b9 00 01 02 34        |N    4  |		JSR	KERNCALL_1a
00023838 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002383a 4a 1f                    |J       |		TST.B	(A7)+
0002383c 66 08                    |f       |		BNE	0x23846
0002383e 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023840 4e ba f2 ee              |N       |		JSR	0x22b30
00023844 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023846 52 a8 02 48              |R  H    |		ADDQ.L	#0x1,(A0+0x248)
0002384a 20 28 02 48              | ( H    |		MOVE.L	(A0+0x248),D0
0002384e b0 a9 00 22              |   "    |		CMP.L	(A1+0x22),D0
00023852 6e 08                    |n       |		BGT	0x2385c
00023854 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023856 4e ba fc de              |N       |		JSR	0x23536
0002385a 60 2c                    |`,      |		BRA	0x23888
0002385c 42 a8 02 48              |B  H    |		CLR.L	(A0+0x248)
00023860 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023862 48 78 00 10              |Hx      |		PEA.L	0x10
00023866 48 78 00 3f              |Hx ?    |		PEA.L	0x3f
0002386a 4e ba d3 fc              |N       |		JSR	0x20c68
0002386e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023870 23 5f 00 22              |#_ "    |		MOVE.L	(A7)+,(A1+0x22)
00023874 4a 29 00 01              |J)      |		TST.B	(A1+0x1)
00023878 67 08                    |g       |		BEQ	0x23882
0002387a 3f 13                    |?       |		MOVE.W	(A3),-(A7)
0002387c 4e ba f3 80              |N       |		JSR	0x22bfe
00023880 60 06                    |`       |		BRA	0x23888
00023882 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00023884 4e ba f9 70              |N  p    |		JSR	0x231f6
00023888 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002388a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002388c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00023890 4e 5e                    |N^      |		UNLK	A6
00023892 4e 75                    |Nu      |		RTS
00023894 ; --------------------------------------------------------------------------------------
00023894 ; OMSI PASCAL Function
00023894 ;    <LVAR  0x00a 2(r)>
00023894 ;    <LVAR  0x008 1(r)>
00023894 ;    <LVAR -0x004 @ 1(rw)>
00023894 ; --------------------------------------------------------------------------------------
00023894 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00023898 bf d5                    |        |		CMPA.L	(A5),A7
0002389a 62 06                    |b       |		BHI	0x238a2
0002389c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000238a0 4e 76                    |Nv      |		TRAPV
000238a2 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000238a6 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000238aa 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
000238ae 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000238b2 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000238b6 c1 d1                    |        |		MULS.W	(A1),D0
000238b8 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000238be 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000238c2 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000238c6 67 06                    |g       |		BEQ	0x238ce
000238c8 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
000238cc 60 0a                    |`       |		BRA	0x238d8
000238ce 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000238d0 48 52                    |HR      |		PEA.L	(A2)
000238d2 4e ba f8 52              |N  R    |		JSR	0x23126
000238d6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000238d8 4a 12                    |J       |		TST.B	(A2)
000238da 67 16                    |g       |		BEQ	0x238f2
000238dc 4a a8 02 44              |J  D    |		TST.L	(A0+0x244)
000238e0 67 08                    |g       |		BEQ	0x238ea
000238e2 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000238e4 4e ba f1 e4              |N       |		JSR	0x22aca
000238e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238ea 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000238ec 4e ba fc 48              |N  H    |		JSR	0x23536
000238f0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238f2 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
000238f6 4e 5e                    |N^      |		UNLK	A6
000238f8 4e 75                    |Nu      |		RTS
000238fa ; --------------------------------------------------------------------------------------
000238fa ; OMSI PASCAL Function
000238fa ;    <LVAR  0x00a 2(r)>
000238fa ;    <LVAR  0x008 1(r)>
000238fa ;    <LVAR -0x004 @ 1(rw)>
000238fa ; --------------------------------------------------------------------------------------
000238fa 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
000238fe bf d5                    |        |		CMPA.L	(A5),A7
00023900 62 06                    |b       |		BHI	0x23908
00023902 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023906 4e 76                    |Nv      |		TRAPV
00023908 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002390c 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00023910 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
00023914 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00023918 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
0002391c c1 d1                    |        |		MULS.W	(A1),D0
0002391e 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023924 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023928 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002392c 67 06                    |g       |		BEQ	0x23934
0002392e 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
00023932 60 0a                    |`       |		BRA	0x2393e
00023934 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023936 48 52                    |HR      |		PEA.L	(A2)
00023938 4e ba f7 ec              |N       |		JSR	0x23126
0002393c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002393e 4a 12                    |J       |		TST.B	(A2)
00023940 67 16                    |g       |		BEQ	0x23958
00023942 4a a8 02 44              |J  D    |		TST.L	(A0+0x244)
00023946 67 08                    |g       |		BEQ	0x23950
00023948 3f 11                    |?       |		MOVE.W	(A1),-(A7)
0002394a 4e ba f1 7e              |N  ~    |		JSR	0x22aca
0002394e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023950 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023952 4e ba fa 82              |N       |		JSR	0x233d6
00023956 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023958 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
0002395c 4e 5e                    |N^      |		UNLK	A6
0002395e 4e 75                    |Nu      |		RTS
00023960 ; --------------------------------------------------------------------------------------
00023960 ; OMSI PASCAL Function
00023960 ;    <LVAR  0x00a 2(r)>
00023960 ;    <LVAR  0x008 1(r)>
00023960 ;    <LVAR -0x004 @ 1(rw)>
00023960 ; --------------------------------------------------------------------------------------
00023960 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00023964 bf d5                    |        |		CMPA.L	(A5),A7
00023966 62 06                    |b       |		BHI	0x2396e
00023968 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002396c 4e 76                    |Nv      |		TRAPV
0002396e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023972 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00023976 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
0002397a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002397e 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023982 c1 d1                    |        |		MULS.W	(A1),D0
00023984 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002398a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002398e 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00023992 67 06                    |g       |		BEQ	0x2399a
00023994 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
00023998 60 0a                    |`       |		BRA	0x239a4
0002399a 3f 11                    |?       |		MOVE.W	(A1),-(A7)
0002399c 48 52                    |HR      |		PEA.L	(A2)
0002399e 4e ba f7 86              |N       |		JSR	0x23126
000239a2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000239a4 4a 12                    |J       |		TST.B	(A2)
000239a6 67 16                    |g       |		BEQ	0x239be
000239a8 4a a8 02 44              |J  D    |		TST.L	(A0+0x244)
000239ac 67 08                    |g       |		BEQ	0x239b6
000239ae 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000239b0 4e ba f1 18              |N       |		JSR	0x22aca
000239b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000239b6 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000239b8 4e ba fb 7c              |N  |    |		JSR	0x23536
000239bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000239be 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
000239c2 4e 5e                    |N^      |		UNLK	A6
000239c4 4e 75                    |Nu      |		RTS
000239c6 ; --------------------------------------------------------------------------------------
000239c6 ; OMSI PASCAL Function
000239c6 ;    <LVAR  0x00a 2(r)>
000239c6 ;    <LVAR  0x008 1(r)>
000239c6 ;    <LVAR -0x004 @ 1(rw)>
000239c6 ; --------------------------------------------------------------------------------------
000239c6 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
000239ca bf d5                    |        |		CMPA.L	(A5),A7
000239cc 62 06                    |b       |		BHI	0x239d4
000239ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000239d2 4e 76                    |Nv      |		TRAPV
000239d4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000239d8 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000239dc 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
000239e0 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000239e4 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
000239e8 c1 d1                    |        |		MULS.W	(A1),D0
000239ea 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000239f0 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000239f4 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000239f8 67 06                    |g       |		BEQ	0x23a00
000239fa 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
000239fe 60 0a                    |`       |		BRA	0x23a0a
00023a00 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023a02 48 52                    |HR      |		PEA.L	(A2)
00023a04 4e ba f7 20              |N       |		JSR	0x23126
00023a08 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023a0a 4a 12                    |J       |		TST.B	(A2)
00023a0c 67 10                    |g       |		BEQ	0x23a1e
00023a0e 42 28 02 2b              |B( +    |		CLR.B	(A0+0x22b)
00023a12 42 a8 02 48              |B  H    |		CLR.L	(A0+0x248)
00023a16 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023a18 4e ba f7 dc              |N       |		JSR	0x231f6
00023a1c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023a1e 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00023a22 4e 5e                    |N^      |		UNLK	A6
00023a24 4e 75                    |Nu      |		RTS
00023a26 ; --------------------------------------------------------------------------------------
00023a26 ; OMSI PASCAL Function
00023a26 ;    <LVAR  0x00a 2(r)>
00023a26 ;    <LVAR  0x008 1(r)>
00023a26 ;    <LVAR -0x004 @ 1(rw)>
00023a26 ; --------------------------------------------------------------------------------------
00023a26 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00023a2a bf d5                    |        |		CMPA.L	(A5),A7
00023a2c 62 06                    |b       |		BHI	0x23a34
00023a2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a32 4e 76                    |Nv      |		TRAPV
00023a34 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023a38 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00023a3c 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
00023a40 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00023a44 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023a48 c1 d1                    |        |		MULS.W	(A1),D0
00023a4a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023a50 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023a54 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00023a58 67 06                    |g       |		BEQ	0x23a60
00023a5a 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
00023a5e 60 0a                    |`       |		BRA	0x23a6a
00023a60 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023a62 48 52                    |HR      |		PEA.L	(A2)
00023a64 4e ba f6 c0              |N       |		JSR	0x23126
00023a68 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023a6a 4a 12                    |J       |		TST.B	(A2)
00023a6c 67 10                    |g       |		BEQ	0x23a7e
00023a6e 42 28 02 2b              |B( +    |		CLR.B	(A0+0x22b)
00023a72 42 a8 02 48              |B  H    |		CLR.L	(A0+0x248)
00023a76 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00023a78 4e ba f7 c2              |N       |		JSR	0x2323c
00023a7c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023a7e 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00023a82 4e 5e                    |N^      |		UNLK	A6
00023a84 4e 75                    |Nu      |		RTS
00023a86 ; --------------------------------------------------------------------------------------
00023a86 ; OMSI PASCAL Function
00023a86 ; --------------------------------------------------------------------------------------
00023a86 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023a8a bf d5                    |        |		CMPA.L	(A5),A7
00023a8c 62 06                    |b       |		BHI	0x23a94
00023a8e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a92 4e 76                    |Nv      |		TRAPV
00023a94 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00023a98 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
00023a9c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023a9e 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023aa2 c1 c7                    |        |		MULS.W	D7,D0
00023aa4 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023aaa 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023aae 4a 28 02 2a              |J( *    |		TST.B	(A0+0x22a)
00023ab2 67 0e                    |g       |		BEQ	0x23ac2
00023ab4 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023ab6 4e ba f1 46              |N  F    |		JSR	0x22bfe
00023aba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023abc 52 b9 00 02 57 9e        |R   W   |		ADDQ.L	#0x1,0x2579e
00023ac2 52 47                    |RG      |		ADDQ.W	#0x1,D7
00023ac4 0c 47 00 03              | G      |		CMPI.W	#0x0003,D7
00023ac8 6f d4                    |o       |		BLE	0x23a9e
00023aca 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00023ace 4e 5e                    |N^      |		UNLK	A6
00023ad0 4e 75                    |Nu      |		RTS
00023ad2 ; --------------------------------------------------------------------------------------
00023ad2 ; OMSI PASCAL Function
00023ad2 ;    <LVAR -0x001 @ 1(r)>
00023ad2 ;    <LVAR -0x002 @ 1(r)>
00023ad2 ; --------------------------------------------------------------------------------------
00023ad2 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00023ad6 bf d5                    |        |		CMPA.L	(A5),A7
00023ad8 62 06                    |b       |		BHI	0x23ae0
00023ada 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023ade 4e 76                    |Nv      |		TRAPV
00023ae0 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00023ae4 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00023ae8 43 ee ff ff              |C       |		LEA.L	(A6-0x1),A1
00023aec 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023aee 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023af0 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023af4 c1 c7                    |        |		MULS.W	D7,D0
00023af6 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023afc 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023b00 4a 28 02 2a              |J( *    |		TST.B	(A0+0x22a)
00023b04 67 00 00 b4              |g       |		BEQ	0x23bba
00023b08 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b0a 06 57 00 10              | W      |		ADDI.W	#0x0010,(A7)
00023b0e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00023b12 48 51                    |HQ      |		PEA.L	(A1)
00023b14 4e ba d3 12              |N       |		JSR	0x20e28
00023b18 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023b1c 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00023b20 67 00 00 98              |g       |		BEQ	0x23bba
00023b24 10 28 02 2c              | ( ,    |		MOVE.B	(A0+0x22c),D0
00023b28 48 80                    |H       |		EXTB.W	D0
00023b2a 0c 40 00 06              | @      |		CMPI.W	#0x0006,D0
00023b2e 63 02                    |c       |		BLS	0x23b32
00023b30 4e 4e                    |NN      |		TRAP	#14
00023b32 d0 40                    | @      |		ADD.W	D0,D0
00023b34 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00023b3c 00 6e                    | n      |		.CONST	0x6e			; [0x0] -> 0x23baa
00023b3e 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x23b4a
00023b40 00 1e                    |        |		.CONST	0x1e			; [0x2] -> 0x23b5a
00023b42 00 5e                    | ^      |		.CONST	0x5e			; [0x3] -> 0x23b9a
00023b44 00 2e                    | .      |		.CONST	0x2e			; [0x4] -> 0x23b6a
00023b46 00 3e                    | >      |		.CONST	0x3e			; [0x5] -> 0x23b7a
00023b48 00 4e                    | N      |		.CONST	0x4e			; [0x6] -> 0x23b8a
00023b4a					switch@0x23b34[0x1]:
00023b4a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b4c 10 11                    |        |		MOVE.B	(A1),D0
00023b4e 48 80                    |H       |		EXTB.W	D0
00023b50 41 81                    |A       |		CHK.W	D1,D0
00023b52 1f 00                    |        |		MOVE.B	D0,-(A7)
00023b54 4e ba fe d0              |N       |		JSR	0x23a26
00023b58 60 5e                    |`^      |		BRA	0x23bb8
00023b5a					switch@0x23b34[0x2]:
00023b5a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b5c 10 11                    |        |		MOVE.B	(A1),D0
00023b5e 48 80                    |H       |		EXTB.W	D0
00023b60 41 81                    |A       |		CHK.W	D1,D0
00023b62 1f 00                    |        |		MOVE.B	D0,-(A7)
00023b64 4e ba f8 be              |N       |		JSR	0x23424
00023b68 60 4e                    |`N      |		BRA	0x23bb8
00023b6a					switch@0x23b34[0x4]:
00023b6a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b6c 10 11                    |        |		MOVE.B	(A1),D0
00023b6e 48 80                    |H       |		EXTB.W	D0
00023b70 41 81                    |A       |		CHK.W	D1,D0
00023b72 1f 00                    |        |		MOVE.B	D0,-(A7)
00023b74 4e ba fd 1e              |N       |		JSR	0x23894
00023b78 60 3e                    |`>      |		BRA	0x23bb8
00023b7a					switch@0x23b34[0x5]:
00023b7a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b7c 10 11                    |        |		MOVE.B	(A1),D0
00023b7e 48 80                    |H       |		EXTB.W	D0
00023b80 41 81                    |A       |		CHK.W	D1,D0
00023b82 1f 00                    |        |		MOVE.B	D0,-(A7)
00023b84 4e ba fd 74              |N  t    |		JSR	0x238fa
00023b88 60 2e                    |`.      |		BRA	0x23bb8
00023b8a					switch@0x23b34[0x6]:
00023b8a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b8c 10 11                    |        |		MOVE.B	(A1),D0
00023b8e 48 80                    |H       |		EXTB.W	D0
00023b90 41 81                    |A       |		CHK.W	D1,D0
00023b92 1f 00                    |        |		MOVE.B	D0,-(A7)
00023b94 4e ba fd ca              |N       |		JSR	0x23960
00023b98 60 1e                    |`       |		BRA	0x23bb8
00023b9a					switch@0x23b34[0x3]:
00023b9a 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023b9c 10 11                    |        |		MOVE.B	(A1),D0
00023b9e 48 80                    |H       |		EXTB.W	D0
00023ba0 41 81                    |A       |		CHK.W	D1,D0
00023ba2 1f 00                    |        |		MOVE.B	D0,-(A7)
00023ba4 4e ba fb 2c              |N  ,    |		JSR	0x236d2
00023ba8 60 0e                    |`       |		BRA	0x23bb8
00023baa					switch@0x23b34[0x0]:
00023baa 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023bac 10 11                    |        |		MOVE.B	(A1),D0
00023bae 48 80                    |H       |		EXTB.W	D0
00023bb0 41 81                    |A       |		CHK.W	D1,D0
00023bb2 1f 00                    |        |		MOVE.B	D0,-(A7)
00023bb4 4e ba fe 10              |N       |		JSR	0x239c6
00023bb8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023bba 52 47                    |RG      |		ADDQ.W	#0x1,D7
00023bbc 0c 47 00 03              | G      |		CMPI.W	#0x0003,D7
00023bc0 6f 00 ff 2e              |o  .    |		BLE	0x23af0
00023bc4 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00023bc8 4e 5e                    |N^      |		UNLK	A6
00023bca 4e 75                    |Nu      |		RTS
00023bcc ; --------------------------------------------------------------------------------------
00023bcc ; OMSI PASCAL Function
00023bcc ;    <LVAR -0x002 @>
00023bcc ; --------------------------------------------------------------------------------------
00023bcc 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00023bd0 bf d5                    |        |		CMPA.L	(A5),A7
00023bd2 62 06                    |b       |		BHI	0x23bda
00023bd4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023bd8 4e 76                    |Nv      |		TRAPV
00023bda de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023bde 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
00023be2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023be4 30 3c 21 c0              |0<!     |		MOVE.W	#0x21c0,D0
00023be8 c1 c7                    |        |		MULS.W	D7,D0
00023bea 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023bf0 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023bf4 4a 28 02 2a              |J( *    |		TST.B	(A0+0x22a)
00023bf8 67 10                    |g       |		BEQ	0x23c0a
00023bfa 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023bfc 06 57 00 10              | W      |		ADDI.W	#0x0010,(A7)
00023c00 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00023c04 4e ba d5 54              |N  T    |		JSR	0x2115a
00023c08 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023c0a 52 47                    |RG      |		ADDQ.W	#0x1,D7
00023c0c 0c 47 00 03              | G      |		CMPI.W	#0x0003,D7
00023c10 6f d2                    |o       |		BLE	0x23be4
00023c12 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00023c16 4e 5e                    |N^      |		UNLK	A6
00023c18 4e 75                    |Nu      |		RTS
00023c1a ; --------------------------------------------------------------------------------------
00023c1a ; OMSI PASCAL Function
00023c1a ;    <LVAR  0x00a 1(rw)>
00023c1a ;    <LVAR  0x008 2(r)>
00023c1a ;    <LVAR -0x008 @ 2(r)>
00023c1a ;    <LVAR -0x00a @>
00023c1a ;    <LVAR -0x00c 2(r)>
00023c1a ;    <LVAR -0x00e 2(r)>
00023c1a ;    <LVAR -0x010 2(w)>
00023c1a ;    <LVAR -0x012 2(w)>
00023c1a ;    <LVAR -0x014 2(r)>
00023c1a ;    <LVAR -0x016 2(w)>
00023c1a ;    <LVAR -0x018 2(r)>
00023c1a ;    <LVAR -0x01a @ 2(r)>
00023c1a ; --------------------------------------------------------------------------------------
00023c1a 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00023c1e bf d5                    |        |		CMPA.L	(A5),A7
00023c20 62 06                    |b       |		BHI	0x23c28
00023c22 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c26 4e 76                    |Nv      |		TRAPV
00023c28 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00023c2c 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023c30 72 1c                    |r       |		MOVEQ.L	#0x1c,D1
00023c32 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
00023c36 42 6e ff e8              |Bn      |		CLR.W	(A6-0x18)
00023c3a 3d 7c 00 02 ff ea        |=|      |		MOVE.W	#0x2,(A6-0x16)
00023c40 42 6e ff ec              |Bn      |		CLR.W	(A6-0x14)
00023c44 3d 7c 00 04 ff ee        |=|      |		MOVE.W	#0x4,(A6-0x12)
00023c4a 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00023c4e e1 40                    | @      |		ASL.W	#0x8,D0
00023c50 3d 40 ff f0              |=@      |		MOVE.W	D0,(A6-0x10)
00023c54 42 6e ff f2              |Bn      |		CLR.W	(A6-0xe)
00023c58 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
00023c5c 48 6e ff e6              |Hn      |		PEA.L	(A6-0x1a)
00023c60 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00023c64 2f 08                    |/       |		MOVE.L	A0,-(A7)
00023c66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023c68 48 78 00 00              |Hx      |		PEA.L	0x0
00023c6c 48 78 00 08              |Hx      |		PEA.L	0x8
00023c70 4e ba d5 d2              |N       |		JSR	0x21244
00023c74 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023c78 3e 81                    |>       |		MOVE.W	D1,(A7)
00023c7a 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00023c7e 4e ba d4 da              |N       |		JSR	0x2115a
00023c82 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023c84 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
00023c88 30 2e ff f8              |0.      |		MOVE.W	(A6-0x8),D0
00023c8c 0c 40 00 01              | @      |		CMPI.W	#0x0001,D0
00023c90 66 04                    |f       |		BNE	0x23c96
00023c92 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
00023c96 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023c9a 4e 5e                    |N^      |		UNLK	A6
00023c9c 4e 75                    |Nu      |		RTS
00023c9e ; --------------------------------------------------------------------------------------
00023c9e ; OMSI PASCAL Function
00023c9e ;    <LVAR  0x008 2(r)>
00023c9e ;    <LVAR -0x006 @ 1(r)>
00023c9e ;    <LVAR -0x3d6 2(r)>
00023c9e ;    <LVAR -0x3da 2(r)>
00023c9e ;    <LVAR -0x3fb 1(r)>
00023c9e ;    <LVAR -0x3fc 1(r)>
00023c9e ;    <LVAR -0x406 @>
00023c9e ; --------------------------------------------------------------------------------------
00023c9e 4e 56 fb b0              |NV      |		LINK.W	A6,#0xfbb0
00023ca2 bf d5                    |        |		CMPA.L	(A5),A7
00023ca4 62 06                    |b       |		BHI	0x23cac
00023ca6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023caa 4e 76                    |Nv      |		TRAPV
00023cac de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00023cb0 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00023cb4 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00023cb8 72 02                    |r       |		MOVEQ.L	#0x02,D1
00023cba 30 39 00 01 00 08        |09      |		MOVE.W	0x10008,D0
00023cc0 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00023cc4 3e 00                    |>       |		MOVE.W	D0,D7
00023cc6 33 d2 00 01 00 08        |3       |		MOVE.W	(A2),0x10008
00023ccc 1f 01                    |        |		MOVE.B	D1,-(A7)
00023cce 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023cd0 48 78 00 01              |Hx      |		PEA.L	0x1
00023cd4 41 ee fb fa              |A       |		LEA.L	(A6-0x406),A0
00023cd8 2f 08                    |/       |		MOVE.L	A0,-(A7)
00023cda 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00023cde 4e b9 00 01 03 6c        |N    l  |		JSR	RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00023ce4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023ce8 33 c7 00 01 00 08        |3       |		MOVE.W	D7,0x10008
00023cee 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00023cf2 66 4c                    |fL      |		BNE	0x23d40
00023cf4 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00023cf8 20 4f                    | O      |		MOVEA.L	A7,A0
00023cfa 43 fa ca a2              |C       |		LEA.L	0x2079e,A1
00023cfe 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00023d00 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023d02 51 c8 ff fc              |Q       |		DBF	D0,0x23d00
00023d06 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00023d0a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023d0c 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00023d10 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023d14 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00023d18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023d1e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d20 30 12                    |0       |		MOVE.W	(A2),D0
00023d22 48 c0                    |H       |		EXTW.L	D0
00023d24 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023d26 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00023d2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d2e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023d34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023d36 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023d3c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00023d40 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00023d42 c1 d2                    |        |		MULS.W	(A2),D0
00023d44 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023d4a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023d4e d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00023d54 42 a8 00 02              |B       |		CLR.L	(A0+0x2)
00023d58 42 a8 00 06              |B       |		CLR.L	(A0+0x6)
00023d5c 42 a8 00 0a              |B       |		CLR.L	(A0+0xa)
00023d60 42 80                    |B       |		CLR.L	D0
00023d62 30 2e fc 26              |0. &    |		MOVE.W	(A6-0x3da),D0
00023d66 21 40 00 1a              |!@      |		MOVE.L	D0,(A0+0x1a)
00023d6a 42 80                    |B       |		CLR.L	D0
00023d6c 30 2e fc 2a              |0. *    |		MOVE.W	(A6-0x3d6),D0
00023d70 21 40 00 1e              |!@      |		MOVE.L	D0,(A0+0x1e)
00023d74 42 80                    |B       |		CLR.L	D0
00023d76 10 2e fc 05              | .      |		MOVE.B	(A6-0x3fb),D0
00023d7a e2 40                    | @      |		ASR.W	#0x1,D0
00023d7c 31 40 00 24              |1@ $    |		MOVE.W	D0,(A0+0x24)
00023d80 42 80                    |B       |		CLR.L	D0
00023d82 10 2e fc 04              | .      |		MOVE.B	(A6-0x3fc),D0
00023d86 31 40 00 22              |1@ "    |		MOVE.W	D0,(A0+0x22)
00023d8a 21 68 00 1a 00 16        |!h      |		MOVE.L	(A0+0x1a),(A0+0x16)
00023d90 42 a8 00 12              |B       |		CLR.L	(A0+0x12)
00023d94 42 a8 00 0e              |B       |		CLR.L	(A0+0xe)
00023d98 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023d9a 48 78 00 00              |Hx      |		PEA.L	0x0
00023d9e 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00023da4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023da6 41 e8 00 3e              |A  >    |		LEA.L	(A0+0x3e),A0
00023daa 22 4f                    |"O      |		MOVEA.L	A7,A1
00023dac 70 07                    |p       |		MOVEQ.L	#0x07,D0
00023dae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023db0 51 c8 ff fc              |Q       |		DBF	D0,0x23dae
00023db4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023db6 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00023dba 4e 5e                    |N^      |		UNLK	A6
00023dbc 4e 75                    |Nu      |		RTS
00023dbe ; --------------------------------------------------------------------------------------
00023dbe ; OMSI PASCAL Function
00023dbe ; --------------------------------------------------------------------------------------
00023dbe 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00023dc2 bf d5                    |        |		CMPA.L	(A5),A7
00023dc4 62 06                    |b       |		BHI	0x23dcc
00023dc6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023dca 4e 76                    |Nv      |		TRAPV
00023dcc de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00023dd0 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00023dd4 72 20                    |r       |		MOVEQ.L	#0x20,D1
00023dd6 9e c1                    |        |		SUBA.W	D1,A7
00023dd8 20 4f                    | O      |		MOVEA.L	A7,A0
00023dda 43 fa c9 de              |C       |		LEA.L	0x207ba,A1
00023dde 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00023de0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023de2 51 c8 ff fc              |Q       |		DBF	D0,0x23de0
00023de6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023de8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023dec 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023df0 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00023df4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023dfa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dfc 48 78 00 01              |Hx      |		PEA.L	0x1
00023e00 48 78 01 f4              |Hx      |		PEA.L	0x1f4
00023e04 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00023e0a de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023e0e 23 df 00 02 e5 26        |#    &  |		MOVE.L	(A7)+,0x2e526
00023e14 de c1                    |        |		ADDA.W	D1,A7
00023e16 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00023e1a 4e 5e                    |N^      |		UNLK	A6
00023e1c 4e 75                    |Nu      |		RTS
00023e1e ; --------------------------------------------------------------------------------------
00023e1e ; OMSI PASCAL Function
00023e1e ; --------------------------------------------------------------------------------------
00023e1e 4e 56 ff 66              |NV f    |		LINK.W	A6,#0xff66
00023e22 bf d5                    |        |		CMPA.L	(A5),A7
00023e24 62 06                    |b       |		BHI	0x23e2c
00023e26 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023e2a 4e 76                    |Nv      |		TRAPV
00023e2c de fc 00 92              |        |		ADDA.W	#0x92,A7
00023e30 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023e34 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023e3a 49 f9 00 01 02 e4        |I       |		LEA.L	Long2String(a : Long) : String,A4
00023e40 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023e42 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00023e44 76 14                    |v       |		MOVEQ.L	#0x14,D3
00023e46 78 20                    |x       |		MOVEQ.L	#0x20,D4
00023e48 41 fa c9 9e              |A       |		LEA.L	0x207e8,A0
00023e4c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023e4e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023e50 51 c8 ff fc              |Q       |		DBF	D0,0x23e4e
00023e54 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023e56 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023e5a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e5c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023e5e 4e 93                    |N       |		JSR	(A3)
00023e60 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023e62 1e 81                    |        |		MOVE.B	D1,(A7)
00023e64 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023e6a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023e6c 10 1f                    |        |		MOVE.B	(A7)+,D0
00023e6e 48 80                    |H       |		EXTB.W	D0
00023e70 41 81                    |A       |		CHK.W	D1,D0
00023e72 de c2                    |        |		ADDA.W	D2,A7
00023e74 1c 00                    |        |		MOVE.B	D0,D6
00023e76 67 34                    |g4      |		BEQ	0x23eac
00023e78 9e c4                    |        |		SUBA.W	D4,A7
00023e7a 20 4f                    | O      |		MOVEA.L	A7,A0
00023e7c 43 fa c9 6a              |C  j    |		LEA.L	0x207e8,A1
00023e80 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00023e82 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e84 51 c8 ff fc              |Q       |		DBF	D0,0x23e82
00023e88 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023e8a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023e8e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e90 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00023e94 4e 93                    |N       |		JSR	(A3)
00023e96 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023e98 42 17                    |B       |		CLR.B	(A7)
00023e9a 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023ea0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023ea2 10 1f                    |        |		MOVE.B	(A7)+,D0
00023ea4 48 80                    |H       |		EXTB.W	D0
00023ea6 41 81                    |A       |		CHK.W	D1,D0
00023ea8 de c4                    |        |		ADDA.W	D4,A7
00023eaa 1a 00                    |        |		MOVE.B	D0,D5
00023eac 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023eae 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00023eb0 c1 c7                    |        |		MULS.W	D7,D0
00023eb2 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023eb8 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023ebc d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00023ec2 4a 06                    |J       |		TST.B	D6
00023ec4 67 0e                    |g       |		BEQ	0x23ed4
00023ec6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023ec8 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023eca 4e ba fd 4e              |N  N    |		JSR	0x23c1a
00023ece 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023ed0 4a 1f                    |J       |		TST.B	(A7)+
00023ed2 66 04                    |f       |		BNE	0x23ed8
00023ed4 42 10                    |B       |		CLR.B	(A0)
00023ed6 60 48                    |`H      |		BRA	0x23f20
00023ed8 9e c3                    |        |		SUBA.W	D3,A7
00023eda 22 4f                    |"O      |		MOVEA.L	A7,A1
00023edc 45 fa c9 2a              |E  *    |		LEA.L	0x20808,A2
00023ee0 70 12                    |p       |		MOVEQ.L	#0x12,D0
00023ee2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023ee4 51 c8 ff fc              |Q       |		DBF	D0,0x23ee2
00023ee8 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023eec 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00023ef0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023ef2 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00023ef6 4e 93                    |N       |		JSR	(A3)
00023ef8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023efa 30 07                    |0       |		MOVE.W	D7,D0
00023efc 48 c0                    |H       |		EXTW.L	D0
00023efe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023f00 4e 94                    |N       |		JSR	(A4)
00023f02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f04 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023f0a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023f0c 1e 81                    |        |		MOVE.B	D1,(A7)
00023f0e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023f14 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023f16 10 1f                    |        |		MOVE.B	(A7)+,D0
00023f18 48 80                    |H       |		EXTB.W	D0
00023f1a 41 81                    |A       |		CHK.W	D1,D0
00023f1c de c3                    |        |		ADDA.W	D3,A7
00023f1e 10 80                    |        |		MOVE.B	D0,(A0)
00023f20 4a 10                    |J       |		TST.B	(A0)
00023f22 67 08                    |g       |		BEQ	0x23f2c
00023f24 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023f26 4e ba fd 76              |N  v    |		JSR	0x23c9e
00023f2a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023f2c 52 47                    |RG      |		ADDQ.W	#0x1,D7
00023f2e 0c 47 00 0f              | G      |		CMPI.W	#0x000f,D7
00023f32 6f 00 ff 7a              |o  z    |		BLE	0x23eae
00023f36 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023f38 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00023f3a c1 c7                    |        |		MULS.W	D7,D0
00023f3c 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00023f42 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00023f46 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00023f4c 4a 10                    |J       |		TST.B	(A0)
00023f4e 67 00 00 9a              |g       |		BEQ	0x23fea
00023f52 4a 05                    |J       |		TST.B	D5
00023f54 67 06                    |g       |		BEQ	0x23f5c
00023f56 21 68 00 1a 00 1e        |!h      |		MOVE.L	(A0+0x1a),(A0+0x1e)
00023f5c 9e c2                    |        |		SUBA.W	D2,A7
00023f5e 22 4f                    |"O      |		MOVEA.L	A7,A1
00023f60 45 fa c8 ba              |E       |		LEA.L	0x2081c,A2
00023f64 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023f66 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023f68 51 c8 ff fc              |Q       |		DBF	D0,0x23f66
00023f6c 9e c3                    |        |		SUBA.W	D3,A7
00023f6e 22 4f                    |"O      |		MOVEA.L	A7,A1
00023f70 45 fa c8 b8              |E       |		LEA.L	0x2082a,A2
00023f74 70 12                    |p       |		MOVEQ.L	#0x12,D0
00023f76 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023f78 51 c8 ff fc              |Q       |		DBF	D0,0x23f76
00023f7c 3f 3a c8 c0              |?:      |		MOVE.W	0x2083e,-(A7)
00023f80 3f 3a c8 be              |?:      |		MOVE.W	0x20840,-(A7)
00023f84 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023f86 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00023f8a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023f8c 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00023f90 4e 93                    |N       |		JSR	(A3)
00023f92 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f94 30 07                    |0       |		MOVE.W	D7,D0
00023f96 48 c0                    |H       |		EXTW.L	D0
00023f98 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023f9a 4e 94                    |N       |		JSR	(A4)
00023f9c 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00023fa0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023fa2 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00023fa6 4e 93                    |N       |		JSR	(A3)
00023fa8 2e a8 00 1a              |.       |		MOVE.L	(A0+0x1a),(A7)
00023fac 4e 94                    |N       |		JSR	(A4)
00023fae 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00023fb2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023fb4 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00023fb8 4e 93                    |N       |		JSR	(A3)
00023fba 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
00023fbe 4e 94                    |N       |		JSR	(A4)
00023fc0 48 6f 00 24              |Ho $    |		PEA.L	(A7+0x24)
00023fc4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023fc6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00023fca 4e 93                    |N       |		JSR	(A3)
00023fcc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fce 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023fd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023fd6 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00023fdc de fc 00 18              |        |		ADDA.W	#0x18,A7
00023fe0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023fe6 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00023fea 52 47                    |RG      |		ADDQ.W	#0x1,D7
00023fec 0c 47 00 0f              | G      |		CMPI.W	#0x000f,D7
00023ff0 6f 00 ff 46              |o  F    |		BLE	0x23f38
00023ff4 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023ff8 4e 5e                    |N^      |		UNLK	A6
00023ffa 4e 75                    |Nu      |		RTS
00023ffc ; --------------------------------------------------------------------------------------
00023ffc ; OMSI PASCAL Function
00023ffc ;    <LVAR  0x00c 2(r)>
00023ffc ;    <LVAR  0x008 4(r)>
00023ffc ;    <LVAR -0x006 2(w)>
00023ffc ;    <LVAR -0x008 2(w)>
00023ffc ;    <LVAR -0x00c 2(w)>
00023ffc ;    <LVAR -0x010 @>
00023ffc ;    <LVAR -0x012 @>
00023ffc ; --------------------------------------------------------------------------------------
00023ffc 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00024000 bf d5                    |        |		CMPA.L	(A5),A7
00024002 62 06                    |b       |		BHI	0x2400a
00024004 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024008 4e 76                    |Nv      |		TRAPV
0002400a de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002400e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024012 72 1c                    |r       |		MOVEQ.L	#0x1c,D1
00024014 3d 7c 00 02 ff f4        |=|      |		MOVE.W	#0x2,(A6-0xc)
0002401a 3d 7c 00 04 ff f8        |=|      |		MOVE.W	#0x4,(A6-0x8)
00024020 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
00024024 e1 40                    | @      |		ASL.W	#0x8,D0
00024026 52 40                    |R@      |		ADDQ.W	#0x1,D0
00024028 3d 40 ff fa              |=@      |		MOVE.W	D0,(A6-0x6)
0002402c 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00024030 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024034 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024036 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024038 48 78 00 00              |Hx      |		PEA.L	0x0
0002403c 48 78 00 16              |Hx      |		PEA.L	0x16
00024040 4e ba d2 02              |N       |		JSR	0x21244
00024044 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024048 3e 81                    |>       |		MOVE.W	D1,(A7)
0002404a 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
0002404e 4e ba d1 0a              |N       |		JSR	0x2115a
00024052 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024054 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024058 4e 5e                    |N^      |		UNLK	A6
0002405a 4e 75                    |Nu      |		RTS
0002405c ; --------------------------------------------------------------------------------------
0002405c ; OMSI PASCAL Function
0002405c ;    <LVAR  0x008 2(r)>
0002405c ;    <LVAR -0x008 2(w)>
0002405c ;    <LVAR -0x00a 2(w)>
0002405c ;    <LVAR -0x00c 2(w)>
0002405c ;    <LVAR -0x00e 2(r)>
0002405c ;    <LVAR -0x012 2(w)>
0002405c ;    <LVAR -0x016 @ 2(w)>
0002405c ; --------------------------------------------------------------------------------------
0002405c 4e 56 ff b4              |NV      |		LINK.W	A6,#0xffb4
00024060 bf d5                    |        |		CMPA.L	(A5),A7
00024062 62 06                    |b       |		BHI	0x2406a
00024064 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024068 4e 76                    |Nv      |		TRAPV
0002406a de fc 00 36              |   6    |		ADDA.W	#0x36,A7
0002406e 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00024072 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00024076 47 f8 00 00              |G       |		LEA.L	0x0,A3
0002407a 49 fa cb ec              |I       |		LEA.L	0x20c68,A4
0002407e 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
00024084 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024086 c1 d2                    |        |		MULS.W	(A2),D0
00024088 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
0002408e 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024092 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024098 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002409a 4e ba cc 26              |N  &    |		JSR	0x20cc2
0002409e 20 1f                    |        |		MOVE.L	(A7)+,D0
000240a0 b0 81                    |        |		CMP.L	D1,D0
000240a2 63 02                    |c       |		BLS	0x240a6
000240a4 4e 4f                    |NO      |		TRAP	#15
000240a6 31 40 00 26              |1@ &    |		MOVE.W	D0,(A0+0x26)
000240aa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240ac 48 53                    |HS      |		PEA.L	(A3)
000240ae 42 80                    |B       |		CLR.L	D0
000240b0 30 28 00 24              |0( $    |		MOVE.W	(A0+0x24),D0
000240b4 53 80                    |S       |		SUBQ.L	#0x1,D0
000240b6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000240b8 4e 94                    |N       |		JSR	(A4)
000240ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240bc 20 1f                    |        |		MOVE.L	(A7)+,D0
000240be e3 80                    |        |		ASL.L	#0x1,D0
000240c0 21 40 00 0e              |!@      |		MOVE.L	D0,(A0+0xe)
000240c4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240c6 48 53                    |HS      |		PEA.L	(A3)
000240c8 42 80                    |B       |		CLR.L	D0
000240ca 30 28 00 22              |0( "    |		MOVE.W	(A0+0x22),D0
000240ce 53 80                    |S       |		SUBQ.L	#0x1,D0
000240d0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000240d2 4e 94                    |N       |		JSR	(A4)
000240d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240d6 21 57 00 12              |!W      |		MOVE.L	(A7),(A0+0x12)
000240da 2f 28 00 1a              |/(      |		MOVE.L	(A0+0x1a),-(A7)
000240de 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
000240e2 4e 94                    |N       |		JSR	(A4)
000240e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240e6 21 5f 00 16              |!_      |		MOVE.L	(A7)+,(A0+0x16)
000240ea 3d 7c 01 00 ff ea        |=|      |		MOVE.W	#0x100,(A6-0x16)
000240f0 3d 7c 00 02 ff ee        |=|      |		MOVE.W	#0x2,(A6-0x12)
000240f6 42 6e ff f2              |Bn      |		CLR.W	(A6-0xe)
000240fa 30 12                    |0       |		MOVE.W	(A2),D0
000240fc e1 40                    | @      |		ASL.W	#0x8,D0
000240fe 06 40 00 0b              | @      |		ADDI.W	#0x000b,D0
00024102 3d 40 ff f4              |=@      |		MOVE.W	D0,(A6-0xc)
00024106 20 28 00 16              | (      |		MOVE.L	(A0+0x16),D0
0002410a b0 81                    |        |		CMP.L	D1,D0
0002410c 63 02                    |c       |		BLS	0x24110
0002410e 4e 4f                    |NO      |		TRAP	#15
00024110 3d 40 ff f6              |=@      |		MOVE.W	D0,(A6-0xa)
00024114 20 28 00 12              | (      |		MOVE.L	(A0+0x12),D0
00024118 e1 80                    |        |		ASL.L	#0x8,D0
0002411a d0 a8 00 0e              |        |		ADD.L	(A0+0xe),D0
0002411e b0 81                    |        |		CMP.L	D1,D0
00024120 63 02                    |c       |		BLS	0x24124
00024122 4e 4f                    |NO      |		TRAP	#15
00024124 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
00024128 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002412c 43 e8 00 26              |C  &    |		LEA.L	(A0+0x26),A1
00024130 2f 09                    |/       |		MOVE.L	A1,-(A7)
00024132 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00024134 48 78 00 02              |Hx      |		PEA.L	0x2
00024138 48 53                    |HS      |		PEA.L	(A3)
0002413a 4e ba d1 08              |N       |		JSR	0x21244
0002413e de fc 00 12              |        |		ADDA.W	#0x12,A7
00024142 11 7c 00 01 00 01        | |      |		MOVE.B	#0x01,(A0+0x1)
00024148 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002414c 4e 5e                    |N^      |		UNLK	A6
0002414e 4e 75                    |Nu      |		RTS
00024150 ; --------------------------------------------------------------------------------------
00024150 ; OMSI PASCAL Function
00024150 ;    <LVAR  0x008 2(r)>
00024150 ;    <LVAR -0x004 2(w)>
00024150 ;    <LVAR -0x006 2(w)>
00024150 ;    <LVAR -0x008 2(w)>
00024150 ;    <LVAR -0x00a 2(r)>
00024150 ;    <LVAR -0x00e 2(w)>
00024150 ;    <LVAR -0x012 @ 2(w)>
00024150 ; --------------------------------------------------------------------------------------
00024150 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00024154 bf d5                    |        |		CMPA.L	(A5),A7
00024156 62 06                    |b       |		BHI	0x2415e
00024158 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002415c 4e 76                    |Nv      |		TRAPV
0002415e de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00024162 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00024166 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0002416a 70 46                    |pF      |		MOVEQ.L	#0x46,D0
0002416c c1 d2                    |        |		MULS.W	(A2),D0
0002416e 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024174 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024178 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
0002417e 3d 7c 01 00 ff ee        |=|      |		MOVE.W	#0x100,(A6-0x12)
00024184 3d 7c 00 02 ff f2        |=|      |		MOVE.W	#0x2,(A6-0xe)
0002418a 42 6e ff f6              |Bn      |		CLR.W	(A6-0xa)
0002418e 30 12                    |0       |		MOVE.W	(A2),D0
00024190 e1 40                    | @      |		ASL.W	#0x8,D0
00024192 06 40 00 0c              | @      |		ADDI.W	#0x000c,D0
00024196 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
0002419a 20 28 00 16              | (      |		MOVE.L	(A0+0x16),D0
0002419e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000241a4 63 02                    |c       |		BLS	0x241a8
000241a6 4e 4f                    |NO      |		TRAP	#15
000241a8 3d 40 ff fa              |=@      |		MOVE.W	D0,(A6-0x6)
000241ac 20 28 00 12              | (      |		MOVE.L	(A0+0x12),D0
000241b0 e1 80                    |        |		ASL.L	#0x8,D0
000241b2 d0 a8 00 0e              |        |		ADD.L	(A0+0xe),D0
000241b6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000241bc 63 02                    |c       |		BLS	0x241c0
000241be 4e 4f                    |NO      |		TRAP	#15
000241c0 3d 40 ff fc              |=@      |		MOVE.W	D0,(A6-0x4)
000241c4 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000241c8 43 e8 00 26              |C  &    |		LEA.L	(A0+0x26),A1
000241cc 2f 09                    |/       |		MOVE.L	A1,-(A7)
000241ce 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000241d0 48 78 00 02              |Hx      |		PEA.L	0x2
000241d4 48 78 00 00              |Hx      |		PEA.L	0x0
000241d8 4e ba d0 6a              |N  j    |		JSR	0x21244
000241dc de fc 00 12              |        |		ADDA.W	#0x12,A7
000241e0 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
000241e4 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
000241e8 4e 5e                    |N^      |		UNLK	A6
000241ea 4e 75                    |Nu      |		RTS
000241ec ; --------------------------------------------------------------------------------------
000241ec ; OMSI PASCAL Function
000241ec ;    <LVAR  0x008 4(r)>
000241ec ; --------------------------------------------------------------------------------------
000241ec 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000241f0 bf d5                    |        |		CMPA.L	(A5),A7
000241f2 62 06                    |b       |		BHI	0x241fa
000241f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000241f8 4e 76                    |Nv      |		TRAPV
000241fa de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000241fe 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00024202 43 ec 00 08              |C       |		LEA.L	(A4+0x8),A1
00024206 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0002420a 20 51                    | Q      |		MOVEA.L	(A1),A0
0002420c 4a 50                    |JP      |		TST.W	(A0)
0002420e 66 12                    |f       |		BNE	0x24222
00024210 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024212 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024214 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00024216 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002421c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002421e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00024220 60 52                    |`R      |		BRA	0x24274
00024222 30 10                    |0       |		MOVE.W	(A0),D0
00024224 48 c0                    |H       |		EXTW.L	D0
00024226 54 80                    |T       |		ADDQ.L	#0x2,D0
00024228 20 52                    | R      |		MOVEA.L	(A2),A0
0002422a 32 10                    |2       |		MOVE.W	(A0),D1
0002422c 48 c1                    |H       |		EXTW.L	D1
0002422e d2 80                    |        |		ADD.L	D0,D1
00024230 0c 81 00 00 00 50        |     P  |		CMPI.L	#0x00000050,D1
00024236 6e 30                    |n0      |		BGT	0x24268
00024238 3f 3a c8 da              |?:      |		MOVE.W	0x20b14,-(A7)
0002423c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002423e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024240 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024242 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024246 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002424a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002424e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024254 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024256 2e 92                    |.       |		MOVE.L	(A2),(A7)
00024258 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
0002425e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024262 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00024264 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024266 60 0c                    |`       |		BRA	0x24274
00024268 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002426a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024270 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024272 22 92                    |"       |		MOVE.L	(A2),(A1)
00024274 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00024278 4e 5e                    |N^      |		UNLK	A6
0002427a 4e 75                    |Nu      |		RTS
0002427c ; --------------------------------------------------------------------------------------
0002427c ; OMSI PASCAL Function
0002427c ;    <LVAR  0x00a 4(r)>
0002427c ;    <LVAR  0x008 2(r)>
0002427c ;    <LVAR -0x006 @ 4(r)>
0002427c ;    <LVAR -0x00e @ 4(r)>
0002427c ; --------------------------------------------------------------------------------------
0002427c 4e 56 ff 6c              |NV l    |		LINK.W	A6,#0xff6c
00024280 bf d5                    |        |		CMPA.L	(A5),A7
00024282 62 06                    |b       |		BHI	0x2428a
00024284 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024288 4e 76                    |Nv      |		TRAPV
0002428a de fc 00 86              |        |		ADDA.W	#0x86,A7
0002428e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024292 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00024298 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002429a 7a 10                    |z       |		MOVEQ.L	#0x10,D5
0002429c 7c 14                    ||       |		MOVEQ.L	#0x14,D6
0002429e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000242a2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000242a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000242aa 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000242ae 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
000242b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000242b6 70 46                    |pF      |		MOVEQ.L	#0x46,D0
000242b8 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
000242bc 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000242c2 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000242c6 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
000242cc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000242ce 2f 3a c8 4e              |/: N    |		MOVE.L	0x20b1e,-(A7)
000242d2 2f 3a c8 46              |/: F    |		MOVE.L	0x20b1a,-(A7)
000242d6 2f 3a c8 3e              |/: >    |		MOVE.L	0x20b16,-(A7)
000242da 3f 3a c8 46              |?: F    |		MOVE.W	0x20b22,-(A7)
000242de 3f 3a c8 44              |?: D    |		MOVE.W	0x20b24,-(A7)
000242e2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000242e4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000242e8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000242ea 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
000242ee 4e 93                    |N       |		JSR	(A3)
000242f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000242f2 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000242f6 48 c0                    |H       |		EXTW.L	D0
000242f8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000242fa 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024300 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00024304 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024306 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002430a 4e 93                    |N       |		JSR	(A3)
0002430c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002430e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024314 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024316 48 78 00 04              |Hx      |		PEA.L	0x4
0002431a 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00024320 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00024324 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
0002432a 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
0002432e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024330 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00024334 4e 93                    |N       |		JSR	(A3)
00024336 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024338 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002433e de c5                    |        |		ADDA.W	D5,A7
00024340 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00024346 de c6                    |        |		ADDA.W	D6,A7
00024348 43 fa c7 ee              |C       |		LEA.L	0x20b38,A1
0002434c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002434e 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00024350 51 c8 ff fc              |Q       |		DBF	D0,0x2434e
00024354 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024356 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
0002435a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002435c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024360 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024362 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00024366 4e 93                    |N       |		JSR	(A3)
00024368 2e a8 00 0a              |.       |		MOVE.L	(A0+0xa),(A7)
0002436c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024372 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024374 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
0002437a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002437e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024384 de fc 00 16              |        |		ADDA.W	#0x16,A7
00024388 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002438a 0c 87 00 00 00 08        |        |		CMPI.L	#0x00000008,D7
00024390 63 02                    |c       |		BLS	0x24394
00024392 4e 4f                    |NO      |		TRAP	#15
00024394 28 07                    |(       |		MOVE.L	D7,D4
00024396 76 05                    |v       |		MOVEQ.L	#0x05,D3
00024398 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002439e 41 fa c8 74              |A  t    |		LEA.L	0x20c14,A0
000243a2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000243a4 22 4f                    |"O      |		MOVEA.L	A7,A1
000243a6 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000243aa 70 04                    |p       |		MOVEQ.L	#0x04,D0
000243ac 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000243ae 51 c8 ff fc              |Q       |		DBF	D0,0x243ac
000243b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000243b4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000243b8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000243ba 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000243be 4e 93                    |N       |		JSR	(A3)
000243c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243c2 0c 87 00 00 00 0a        |        |		CMPI.L	#0x0000000a,D7
000243c8 63 02                    |c       |		BLS	0x243cc
000243ca 4e 4f                    |NO      |		TRAP	#15
000243cc 20 07                    |        |		MOVE.L	D7,D0
000243ce e3 80                    |        |		ASL.L	#0x1,D0
000243d0 20 6f 00 12              | o      |		MOVEA.L	(A7+0x12),A0
000243d4 42 81                    |B       |		CLR.L	D1
000243d6 32 30 08 28              |20 (    |		MOVE.W	(A0+D0.L+#0x28),D1
000243da 2f 01                    |/       |		MOVE.L	D1,-(A7)
000243dc 48 78 00 04              |Hx      |		PEA.L	0x4
000243e0 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000243e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000243e8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000243ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000243f0 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000243f6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000243fa 52 87                    |R       |		ADDQ.L	#0x1,D7
000243fc 0c 87 00 00 00 08        |        |		CMPI.L	#0x00000008,D7
00024402 6f 86                    |o       |		BLE	0x2438a
00024404 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002440a 20 57                    | W      |		MOVEA.L	(A7),A0
0002440c 30 28 00 28              |0( (    |		MOVE.W	(A0+0x28),D0
00024410 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00024414 67 2e                    |g.      |		BEQ	0x24444
00024416 9e fc 00 12              |        |		SUBA.W	#0x12,A7
0002441a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002441c 45 fa c4 5a              |E  Z    |		LEA.L	0x20878,A2
00024420 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024422 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024424 51 c8 ff fc              |Q       |		DBF	D0,0x24422
00024428 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002442a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002442e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024430 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00024434 4e 93                    |N       |		JSR	(A3)
00024436 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024438 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002443c 4e ba fd ae              |N       |		JSR	0x241ec
00024440 de fc 00 16              |        |		ADDA.W	#0x16,A7
00024444 30 28 00 28              |0( (    |		MOVE.W	(A0+0x28),D0
00024448 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
0002444c 67 28                    |g(      |		BEQ	0x24476
0002444e 43 fa c4 48              |C  H    |		LEA.L	0x20898,A1
00024452 70 06                    |p       |		MOVEQ.L	#0x06,D0
00024454 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00024456 51 c8 ff fc              |Q       |		DBF	D0,0x24454
0002445a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002445c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024460 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024462 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00024466 4e 93                    |N       |		JSR	(A3)
00024468 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002446a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002446e 4e ba fd 7c              |N  |    |		JSR	0x241ec
00024472 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024476 30 28 00 28              |0( (    |		MOVE.W	(A0+0x28),D0
0002447a 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
0002447e 66 28                    |f(      |		BNE	0x244a8
00024480 43 fa c4 2c              |C  ,    |		LEA.L	0x208ae,A1
00024484 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00024486 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00024488 51 c8 ff fc              |Q       |		DBF	D0,0x24486
0002448c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002448e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024492 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024494 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00024498 4e 93                    |N       |		JSR	(A3)
0002449a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002449c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000244a0 4e ba fd 4a              |N  J    |		JSR	0x241ec
000244a4 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000244a8 30 28 00 28              |0( (    |		MOVE.W	(A0+0x28),D0
000244ac 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
000244b0 66 28                    |f(      |		BNE	0x244da
000244b2 43 fa c4 0c              |C       |		LEA.L	0x208c0,A1
000244b6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000244b8 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000244ba 51 c8 ff fc              |Q       |		DBF	D0,0x244b8
000244be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244c0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000244c4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000244c6 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000244ca 4e 93                    |N       |		JSR	(A3)
000244cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244ce 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000244d2 4e ba fd 18              |N       |		JSR	0x241ec
000244d6 de fc 00 16              |        |		ADDA.W	#0x16,A7
000244da 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
000244de 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
000244e2 67 2e                    |g.      |		BEQ	0x24512
000244e4 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000244e8 22 4f                    |"O      |		MOVEA.L	A7,A1
000244ea 45 fa c3 d4              |E       |		LEA.L	0x208c0,A2
000244ee 70 08                    |p       |		MOVEQ.L	#0x08,D0
000244f0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000244f2 51 c8 ff fc              |Q       |		DBF	D0,0x244f0
000244f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244f8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000244fc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000244fe 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00024502 4e 93                    |N       |		JSR	(A3)
00024504 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024506 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002450a 4e ba fc e0              |N       |		JSR	0x241ec
0002450e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024512 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
00024516 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
0002451a 67 2e                    |g.      |		BEQ	0x2454a
0002451c 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00024520 22 4f                    |"O      |		MOVEA.L	A7,A1
00024522 45 fa c3 a6              |E       |		LEA.L	0x208ca,A2
00024526 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024528 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002452a 51 c8 ff fc              |Q       |		DBF	D0,0x24528
0002452e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024530 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024534 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024536 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
0002453a 4e 93                    |N       |		JSR	(A3)
0002453c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002453e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024542 4e ba fc a8              |N       |		JSR	0x241ec
00024546 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002454a 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
0002454e 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00024552 67 28                    |g(      |		BEQ	0x2457c
00024554 43 fa c3 98              |C       |		LEA.L	0x208ee,A1
00024558 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002455a 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
0002455c 51 c8 ff fc              |Q       |		DBF	D0,0x2455a
00024560 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024562 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024566 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024568 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
0002456c 4e 93                    |N       |		JSR	(A3)
0002456e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024570 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024574 4e ba fc 76              |N  v    |		JSR	0x241ec
00024578 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002457c 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
00024580 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
00024584 67 2c                    |g,      |		BEQ	0x245b2
00024586 9e c6                    |        |		SUBA.W	D6,A7
00024588 22 4f                    |"O      |		MOVEA.L	A7,A1
0002458a 45 fa c3 62              |E  b    |		LEA.L	0x208ee,A2
0002458e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00024590 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024592 51 c8 ff fc              |Q       |		DBF	D0,0x24590
00024596 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024598 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002459c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002459e 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000245a2 4e 93                    |N       |		JSR	(A3)
000245a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245a6 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000245aa 4e ba fc 40              |N  @    |		JSR	0x241ec
000245ae de fc 00 18              |        |		ADDA.W	#0x18,A7
000245b2 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
000245b6 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
000245ba 67 2e                    |g.      |		BEQ	0x245ea
000245bc 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
000245c0 22 4f                    |"O      |		MOVEA.L	A7,A1
000245c2 45 fa c3 3e              |E  >    |		LEA.L	0x20902,A2
000245c6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000245c8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000245ca 51 c8 ff fc              |Q       |		DBF	D0,0x245c8
000245ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000245d4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000245d6 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000245da 4e 93                    |N       |		JSR	(A3)
000245dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245de 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000245e2 4e ba fc 08              |N       |		JSR	0x241ec
000245e6 de fc 00 12              |        |		ADDA.W	#0x12,A7
000245ea 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
000245ee 02 40 02 00              | @      |		ANDI.W	#0x0200,D0
000245f2 67 2a                    |g*      |		BEQ	0x2461e
000245f4 9e c5                    |        |		SUBA.W	D5,A7
000245f6 22 4f                    |"O      |		MOVEA.L	A7,A1
000245f8 45 fa c3 16              |E       |		LEA.L	0x20910,A2
000245fc 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000245fe 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024600 51 c8 ff fc              |Q       |		DBF	D0,0x245fe
00024604 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024606 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002460a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002460c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00024610 4e 93                    |N       |		JSR	(A3)
00024612 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024614 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024618 4e ba fb d2              |N       |		JSR	0x241ec
0002461c de c6                    |        |		ADDA.W	D6,A7
0002461e 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
00024622 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00024626 66 2a                    |f*      |		BNE	0x24652
00024628 9e c5                    |        |		SUBA.W	D5,A7
0002462a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002462c 45 fa c2 f2              |E       |		LEA.L	0x20920,A2
00024630 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024632 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024634 51 c8 ff fc              |Q       |		DBF	D0,0x24632
00024638 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002463a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002463e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024640 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00024644 4e 93                    |N       |		JSR	(A3)
00024646 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024648 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002464c 4e ba fb 9e              |N       |		JSR	0x241ec
00024650 de c6                    |        |		ADDA.W	D6,A7
00024652 30 28 00 2a              |0( *    |		MOVE.W	(A0+0x2a),D0
00024656 02 40 00 04              | @      |		ANDI.W	#0x0004,D0
0002465a 67 2e                    |g.      |		BEQ	0x2468a
0002465c 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00024660 22 4f                    |"O      |		MOVEA.L	A7,A1
00024662 45 fa c2 cc              |E       |		LEA.L	0x20930,A2
00024666 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00024668 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002466a 51 c8 ff fc              |Q       |		DBF	D0,0x24668
0002466e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024670 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024674 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024676 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
0002467a 4e 93                    |N       |		JSR	(A3)
0002467c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002467e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024682 4e ba fb 68              |N  h    |		JSR	0x241ec
00024686 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002468a 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
0002468e 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
00024692 67 2e                    |g.      |		BEQ	0x246c2
00024694 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00024698 22 4f                    |"O      |		MOVEA.L	A7,A1
0002469a 45 fa c2 b2              |E       |		LEA.L	0x2094e,A2
0002469e 70 16                    |p       |		MOVEQ.L	#0x16,D0
000246a0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000246a2 51 c8 ff fc              |Q       |		DBF	D0,0x246a0
000246a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000246a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000246ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000246ae 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000246b2 4e 93                    |N       |		JSR	(A3)
000246b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246b6 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000246ba 4e ba fb 30              |N  0    |		JSR	0x241ec
000246be de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000246c2 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
000246c6 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
000246ca 66 28                    |f(      |		BNE	0x246f4
000246cc 43 fa c2 aa              |C       |		LEA.L	0x20978,A1
000246d0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000246d2 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000246d4 51 c8 ff fc              |Q       |		DBF	D0,0x246d2
000246d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000246da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000246de 3f 02                    |?       |		MOVE.W	D2,-(A7)
000246e0 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000246e4 4e 93                    |N       |		JSR	(A3)
000246e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246e8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000246ec 4e ba fa fe              |N       |		JSR	0x241ec
000246f0 de fc 00 16              |        |		ADDA.W	#0x16,A7
000246f4 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
000246f8 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
000246fc 67 26                    |g&      |		BEQ	0x24724
000246fe 2f 3a c2 80              |/:      |		MOVE.L	0x20980,-(A7)
00024702 2f 3a c2 78              |/: x    |		MOVE.L	0x2097c,-(A7)
00024706 2f 3a c2 70              |/: p    |		MOVE.L	0x20978,-(A7)
0002470a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002470c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024710 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024712 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00024716 4e 93                    |N       |		JSR	(A3)
00024718 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002471a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002471e 4e ba fa cc              |N       |		JSR	0x241ec
00024722 de c5                    |        |		ADDA.W	D5,A7
00024724 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
00024728 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
0002472c 67 28                    |g(      |		BEQ	0x24756
0002472e 43 fa c2 6a              |C  j    |		LEA.L	0x2099a,A1
00024732 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00024734 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00024736 51 c8 ff fc              |Q       |		DBF	D0,0x24734
0002473a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002473c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024740 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024742 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00024746 4e 93                    |N       |		JSR	(A3)
00024748 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002474a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002474e 4e ba fa 9c              |N       |		JSR	0x241ec
00024752 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00024756 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
0002475a 02 40 01 00              | @      |		ANDI.W	#0x0100,D0
0002475e 66 2e                    |f.      |		BNE	0x2478e
00024760 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00024764 22 4f                    |"O      |		MOVEA.L	A7,A1
00024766 45 fa c2 32              |E  2    |		LEA.L	0x2099a,A2
0002476a 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002476c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002476e 51 c8 ff fc              |Q       |		DBF	D0,0x2476c
00024772 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024774 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024778 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002477a 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
0002477e 4e 93                    |N       |		JSR	(A3)
00024780 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024782 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024786 4e ba fa 64              |N  d    |		JSR	0x241ec
0002478a de fc 00 16              |        |		ADDA.W	#0x16,A7
0002478e 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
00024792 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
00024796 66 2a                    |f*      |		BNE	0x247c2
00024798 9e c5                    |        |		SUBA.W	D5,A7
0002479a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002479c 45 fa c2 0e              |E       |		LEA.L	0x209ac,A2
000247a0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000247a2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000247a4 51 c8 ff fc              |Q       |		DBF	D0,0x247a2
000247a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000247aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000247ae 3f 02                    |?       |		MOVE.W	D2,-(A7)
000247b0 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000247b4 4e 93                    |N       |		JSR	(A3)
000247b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247b8 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000247bc 4e ba fa 2e              |N  .    |		JSR	0x241ec
000247c0 de c6                    |        |		ADDA.W	D6,A7
000247c2 30 28 00 2c              |0( ,    |		MOVE.W	(A0+0x2c),D0
000247c6 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
000247ca 66 28                    |f(      |		BNE	0x247f4
000247cc 2f 3a c1 fa              |/:      |		MOVE.L	0x209c8,-(A7)
000247d0 2f 3a c1 f2              |/:      |		MOVE.L	0x209c4,-(A7)
000247d4 2f 3a c1 ea              |/:      |		MOVE.L	0x209c0,-(A7)
000247d8 2f 3a c1 e2              |/:      |		MOVE.L	0x209bc,-(A7)
000247dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000247de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000247e2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000247e4 3f 05                    |?       |		MOVE.W	D5,-(A7)
000247e6 4e 93                    |N       |		JSR	(A3)
000247e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247ea 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000247ee 4e ba f9 fc              |N       |		JSR	0x241ec
000247f2 de c6                    |        |		ADDA.W	D6,A7
000247f4 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
000247f8 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
000247fc 67 28                    |g(      |		BEQ	0x24826
000247fe 2f 3a c1 d8              |/:      |		MOVE.L	0x209d8,-(A7)
00024802 2f 3a c1 d0              |/:      |		MOVE.L	0x209d4,-(A7)
00024806 2f 3a c1 c8              |/:      |		MOVE.L	0x209d0,-(A7)
0002480a 2f 3a c1 c0              |/:      |		MOVE.L	0x209cc,-(A7)
0002480e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024810 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024814 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024816 3f 05                    |?       |		MOVE.W	D5,-(A7)
00024818 4e 93                    |N       |		JSR	(A3)
0002481a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002481c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024820 4e ba f9 ca              |N       |		JSR	0x241ec
00024824 de c6                    |        |		ADDA.W	D6,A7
00024826 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
0002482a 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
0002482e 67 28                    |g(      |		BEQ	0x24858
00024830 3f 3a c1 ae              |?:      |		MOVE.W	0x209e0,-(A7)
00024834 3f 3a c1 a8              |?:      |		MOVE.W	0x209de,-(A7)
00024838 3f 3a c1 a2              |?:      |		MOVE.W	0x209dc,-(A7)
0002483c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002483e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024842 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024844 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00024848 4e 93                    |N       |		JSR	(A3)
0002484a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002484c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024850 4e ba f9 9a              |N       |		JSR	0x241ec
00024854 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00024858 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
0002485c 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
00024860 67 26                    |g&      |		BEQ	0x24888
00024862 43 fa c1 92              |C       |		LEA.L	0x209f6,A1
00024866 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024868 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
0002486a 51 c8 ff fc              |Q       |		DBF	D0,0x24868
0002486e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024870 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024874 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024876 3f 06                    |?       |		MOVE.W	D6,-(A7)
00024878 4e 93                    |N       |		JSR	(A3)
0002487a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002487c 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024880 4e ba f9 6a              |N  j    |		JSR	0x241ec
00024884 de fc 00 18              |        |		ADDA.W	#0x18,A7
00024888 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
0002488c 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00024890 67 28                    |g(      |		BEQ	0x248ba
00024892 43 fa c1 74              |C  t    |		LEA.L	0x20a08,A1
00024896 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024898 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
0002489a 51 c8 ff fc              |Q       |		DBF	D0,0x24898
0002489e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000248a6 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000248aa 4e 93                    |N       |		JSR	(A3)
000248ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248ae 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000248b2 4e ba f9 38              |N  8    |		JSR	0x241ec
000248b6 de fc 00 16              |        |		ADDA.W	#0x16,A7
000248ba 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
000248be 02 40 08 00              | @      |		ANDI.W	#0x0800,D0
000248c2 67 28                    |g(      |		BEQ	0x248ec
000248c4 2f 3a c1 4e              |/: N    |		MOVE.L	0x20a14,-(A7)
000248c8 2f 3a c1 46              |/: F    |		MOVE.L	0x20a10,-(A7)
000248cc 2f 3a c1 3e              |/: >    |		MOVE.L	0x20a0c,-(A7)
000248d0 2f 3a c1 36              |/: 6    |		MOVE.L	0x20a08,-(A7)
000248d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248d6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248da 3f 02                    |?       |		MOVE.W	D2,-(A7)
000248dc 3f 05                    |?       |		MOVE.W	D5,-(A7)
000248de 4e 93                    |N       |		JSR	(A3)
000248e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248e2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000248e6 4e ba f9 04              |N       |		JSR	0x241ec
000248ea de c6                    |        |		ADDA.W	D6,A7
000248ec 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
000248f0 02 40 04 00              | @      |		ANDI.W	#0x0400,D0
000248f4 67 2e                    |g.      |		BEQ	0x24924
000248f6 9e fc 00 16              |        |		SUBA.W	#0x16,A7
000248fa 22 4f                    |"O      |		MOVEA.L	A7,A1
000248fc 45 fa c1 1a              |E       |		LEA.L	0x20a18,A2
00024900 70 14                    |p       |		MOVEQ.L	#0x14,D0
00024902 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024904 51 c8 ff fc              |Q       |		DBF	D0,0x24902
00024908 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002490a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002490e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024910 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00024914 4e 93                    |N       |		JSR	(A3)
00024916 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024918 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002491c 4e ba f8 ce              |N       |		JSR	0x241ec
00024920 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00024924 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
00024928 02 40 02 00              | @      |		ANDI.W	#0x0200,D0
0002492c 67 28                    |g(      |		BEQ	0x24956
0002492e 43 fa c1 14              |C       |		LEA.L	0x20a44,A1
00024932 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00024934 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00024936 51 c8 ff fc              |Q       |		DBF	D0,0x24934
0002493a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002493c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024940 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024942 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00024946 4e 93                    |N       |		JSR	(A3)
00024948 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002494a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
0002494e 4e ba f8 9c              |N       |		JSR	0x241ec
00024952 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00024956 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
0002495a 02 40 01 00              | @      |		ANDI.W	#0x0100,D0
0002495e 67 28                    |g(      |		BEQ	0x24988
00024960 2f 3a c0 ee              |/:      |		MOVE.L	0x20a50,-(A7)
00024964 2f 3a c0 e6              |/:      |		MOVE.L	0x20a4c,-(A7)
00024968 2f 3a c0 de              |/:      |		MOVE.L	0x20a48,-(A7)
0002496c 2f 3a c0 d6              |/:      |		MOVE.L	0x20a44,-(A7)
00024970 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024972 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024976 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024978 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002497a 4e 93                    |N       |		JSR	(A3)
0002497c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002497e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024982 4e ba f8 68              |N  h    |		JSR	0x241ec
00024986 de c6                    |        |		ADDA.W	D6,A7
00024988 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
0002498c 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
00024990 67 26                    |g&      |		BEQ	0x249b8
00024992 43 fa c0 d4              |C       |		LEA.L	0x20a68,A1
00024996 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024998 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
0002499a 51 c8 ff fc              |Q       |		DBF	D0,0x24998
0002499e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000249a6 3f 06                    |?       |		MOVE.W	D6,-(A7)
000249a8 4e 93                    |N       |		JSR	(A3)
000249aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249ac 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000249b0 4e ba f8 3a              |N  :    |		JSR	0x241ec
000249b4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000249b8 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
000249bc 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
000249c0 67 28                    |g(      |		BEQ	0x249ea
000249c2 43 fa c0 b2              |C       |		LEA.L	0x20a76,A1
000249c6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000249c8 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
000249ca 51 c8 ff fc              |Q       |		DBF	D0,0x249c8
000249ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249d4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000249d6 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000249da 4e 93                    |N       |		JSR	(A3)
000249dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249de 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000249e2 4e ba f8 08              |N       |		JSR	0x241ec
000249e6 de fc 00 12              |        |		ADDA.W	#0x12,A7
000249ea 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
000249ee c0 45                    | E      |		AND.W	D5,D0
000249f0 67 26                    |g&      |		BEQ	0x24a18
000249f2 2f 3a c0 8a              |/:      |		MOVE.L	0x20a7e,-(A7)
000249f6 2f 3a c0 82              |/:      |		MOVE.L	0x20a7a,-(A7)
000249fa 2f 3a c0 7a              |/: z    |		MOVE.L	0x20a76,-(A7)
000249fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a04 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024a06 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00024a0a 4e 93                    |N       |		JSR	(A3)
00024a0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a0e 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024a12 4e ba f7 d8              |N       |		JSR	0x241ec
00024a16 de c5                    |        |		ADDA.W	D5,A7
00024a18 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
00024a1c 02 40 00 04              | @      |		ANDI.W	#0x0004,D0
00024a20 67 2e                    |g.      |		BEQ	0x24a50
00024a22 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00024a26 22 4f                    |"O      |		MOVEA.L	A7,A1
00024a28 45 fa c0 58              |E  X    |		LEA.L	0x20a82,A2
00024a2c 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00024a2e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024a30 51 c8 ff fc              |Q       |		DBF	D0,0x24a2e
00024a34 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a3a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024a3c 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00024a40 4e 93                    |N       |		JSR	(A3)
00024a42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a44 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024a48 4e ba f7 a2              |N       |		JSR	0x241ec
00024a4c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00024a50 30 28 00 2e              |0( .    |		MOVE.W	(A0+0x2e),D0
00024a54 c0 42                    | B      |		AND.W	D2,D0
00024a56 67 28                    |g(      |		BEQ	0x24a80
00024a58 2f 3a c0 52              |/: R    |		MOVE.L	0x20aac,-(A7)
00024a5c 2f 3a c0 4a              |/: J    |		MOVE.L	0x20aa8,-(A7)
00024a60 2f 3a c0 42              |/: B    |		MOVE.L	0x20aa4,-(A7)
00024a64 2f 3a c0 3a              |/: :    |		MOVE.L	0x20aa0,-(A7)
00024a68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a6e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024a70 3f 05                    |?       |		MOVE.W	D5,-(A7)
00024a72 4e 93                    |N       |		JSR	(A3)
00024a74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a76 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024a7a 4e ba f7 70              |N  p    |		JSR	0x241ec
00024a7e de c6                    |        |		ADDA.W	D6,A7
00024a80 30 28 00 30              |0( 0    |		MOVE.W	(A0+0x30),D0
00024a84 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00024a88 67 2e                    |g.      |		BEQ	0x24ab8
00024a8a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024a8e 22 4f                    |"O      |		MOVEA.L	A7,A1
00024a90 45 fa c0 1e              |E       |		LEA.L	0x20ab0,A2
00024a94 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024a96 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024a98 51 c8 ff fc              |Q       |		DBF	D0,0x24a96
00024a9c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a9e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024aa2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024aa4 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00024aa8 4e 93                    |N       |		JSR	(A3)
00024aaa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024aac 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024ab0 4e ba f7 3a              |N  :    |		JSR	0x241ec
00024ab4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024ab8 30 28 00 30              |0( 0    |		MOVE.W	(A0+0x30),D0
00024abc 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00024ac0 67 2a                    |g*      |		BEQ	0x24aec
00024ac2 9e c5                    |        |		SUBA.W	D5,A7
00024ac4 22 4f                    |"O      |		MOVEA.L	A7,A1
00024ac6 45 fa bf f2              |E       |		LEA.L	0x20aba,A2
00024aca 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024acc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024ace 51 c8 ff fc              |Q       |		DBF	D0,0x24acc
00024ad2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ad4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024ad8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024ada 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00024ade 4e 93                    |N       |		JSR	(A3)
00024ae0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ae2 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024ae6 4e ba f7 04              |N       |		JSR	0x241ec
00024aea de c6                    |        |		ADDA.W	D6,A7
00024aec 30 28 00 30              |0( 0    |		MOVE.W	(A0+0x30),D0
00024af0 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00024af4 67 2e                    |g.      |		BEQ	0x24b24
00024af6 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00024afa 22 4f                    |"O      |		MOVEA.L	A7,A1
00024afc 45 fa bf cc              |E       |		LEA.L	0x20aca,A2
00024b00 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00024b02 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024b04 51 c8 ff fc              |Q       |		DBF	D0,0x24b02
00024b08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b0a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b0e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024b10 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00024b14 4e 93                    |N       |		JSR	(A3)
00024b16 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b18 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024b1c 4e ba f6 ce              |N       |		JSR	0x241ec
00024b20 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00024b24 30 28 00 30              |0( 0    |		MOVE.W	(A0+0x30),D0
00024b28 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
00024b2c 67 26                    |g&      |		BEQ	0x24b54
00024b2e 2f 3a bf e0              |/:      |		MOVE.L	0x20b10,-(A7)
00024b32 2f 3a bf d8              |/:      |		MOVE.L	0x20b0c,-(A7)
00024b36 2f 3a bf d0              |/:      |		MOVE.L	0x20b08,-(A7)
00024b3a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b3c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b40 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024b42 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00024b46 4e 93                    |N       |		JSR	(A3)
00024b48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b4a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00024b4e 4e ba f6 9c              |N       |		JSR	0x241ec
00024b52 de c5                    |        |		ADDA.W	D5,A7
00024b54 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00024b58 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024b5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b60 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024b64 4e 5e                    |N^      |		UNLK	A6
00024b66 4e 75                    |Nu      |		RTS
00024b68 ; --------------------------------------------------------------------------------------
00024b68 ; OMSI PASCAL Function
00024b68 ;    <LVAR  0x008 2(r)>
00024b68 ; --------------------------------------------------------------------------------------
00024b68 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda
00024b6c bf d5                    |        |		CMPA.L	(A5),A7
00024b6e 62 06                    |b       |		BHI	0x24b76
00024b70 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024b74 4e 76                    |Nv      |		TRAPV
00024b76 de fc 00 20              |        |		ADDA.W	#0x20,A7
00024b7a 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00024b7e 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00024b82 2f 3a bf b4              |/:      |		MOVE.L	0x20b38,-(A7)
00024b86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b8c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024b90 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00024b94 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b9a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024b9c 3e 91                    |>       |		MOVE.W	(A1),(A7)
00024b9e 4e ba f6 dc              |N       |		JSR	0x2427c
00024ba2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00024ba6 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024ba8 c1 d1                    |        |		MULS.W	(A1),D0
00024baa 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024bb0 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024bb4 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024bba 42 a8 00 0a              |B       |		CLR.L	(A0+0xa)
00024bbe 52 a8 00 02              |R       |		ADDQ.L	#0x1,(A0+0x2)
00024bc2 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00024bc4 4e ba f4 96              |N       |		JSR	0x2405c
00024bc8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024bca 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00024bce 4e 5e                    |N^      |		UNLK	A6
00024bd0 4e 75                    |Nu      |		RTS
00024bd2 ; --------------------------------------------------------------------------------------
00024bd2 ; OMSI PASCAL Function
00024bd2 ;    <LVAR  0x008 2(r)>
00024bd2 ; --------------------------------------------------------------------------------------
00024bd2 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024bd6 bf d5                    |        |		CMPA.L	(A5),A7
00024bd8 62 06                    |b       |		BHI	0x24be0
00024bda 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024bde 4e 76                    |Nv      |		TRAPV
00024be0 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00024be4 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00024be8 2f 3a bf 52              |/: R    |		MOVE.L	0x20b3c,-(A7)
00024bec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024bee 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024bf2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024bf6 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00024bfa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024c00 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024c02 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
00024c06 4e ba f6 74              |N  t    |		JSR	0x2427c
00024c0a de fc 00 0a              |        |		ADDA.W	#0xa,A7
00024c0e 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024c10 c1 ee 00 08              |        |		MULS.W	(A6+0x8),D0
00024c14 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024c1a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024c1e d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024c24 20 28 00 06              | (      |		MOVE.L	(A0+0x6),D0
00024c28 d0 a8 00 0a              |        |		ADD.L	(A0+0xa),D0
00024c2c 21 40 00 06              |!@      |		MOVE.L	D0,(A0+0x6)
00024c30 42 a8 00 0a              |B       |		CLR.L	(A0+0xa)
00024c34 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00024c38 4e 5e                    |N^      |		UNLK	A6
00024c3a 4e 75                    |Nu      |		RTS
00024c3c ; --------------------------------------------------------------------------------------
00024c3c ; OMSI PASCAL Function
00024c3c ;    <LVAR  0x008 2(r)>
00024c3c ;    <LVAR -0x004 2(w)>
00024c3c ;    <LVAR -0x006 2(w)>
00024c3c ;    <LVAR -0x008 2(w)>
00024c3c ;    <LVAR -0x00a 2(r)>
00024c3c ;    <LVAR -0x00e 2(w)>
00024c3c ;    <LVAR -0x012 @ 2(w)>
00024c3c ; --------------------------------------------------------------------------------------
00024c3c 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00024c40 bf d5                    |        |		CMPA.L	(A5),A7
00024c42 62 06                    |b       |		BHI	0x24c4a
00024c44 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c48 4e 76                    |Nv      |		TRAPV
00024c4a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00024c4e 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00024c52 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00024c56 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024c58 c1 d1                    |        |		MULS.W	(A1),D0
00024c5a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024c60 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024c64 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024c6a 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00024c6c 48 68 00 28              |Hh (    |		PEA.L	(A0+0x28)
00024c70 4e ba f3 8a              |N       |		JSR	0x23ffc
00024c74 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024c76 52 a8 00 0a              |R       |		ADDQ.L	#0x1,(A0+0xa)
00024c7a 20 28 00 0a              | (      |		MOVE.L	(A0+0xa),D0
00024c7e 0c 80 00 00 00 0a        |        |		CMPI.L	#0x0000000a,D0
00024c84 66 0c                    |f       |		BNE	0x24c92
00024c86 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00024c88 4e ba fe de              |N       |		JSR	0x24b68
00024c8c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024c8e 60 00 00 8a              |`       |		BRA	0x24d1a
00024c92 3d 7c 01 00 ff ee        |=|      |		MOVE.W	#0x100,(A6-0x12)
00024c98 3d 7c 00 02 ff f2        |=|      |		MOVE.W	#0x2,(A6-0xe)
00024c9e 42 6e ff f6              |Bn      |		CLR.W	(A6-0xa)
00024ca2 10 28 00 01              | (      |		MOVE.B	(A0+0x1),D0
00024ca6 48 80                    |H       |		EXTB.W	D0
00024ca8 0c 40 00 01              | @      |		CMPI.W	#0x0001,D0
00024cac 63 02                    |c       |		BLS	0x24cb0
00024cae 4e 4e                    |NN      |		TRAP	#14
00024cb0 d0 40                    | @      |		ADD.W	D0,D0
00024cb2 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00024cba 00 04                    |        |		.CONST	0x4			; [0x0] -> 0x24cbe
00024cbc 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x24cc8
00024cbe					switch@0x24cb2[0x0]:
00024cbe 30 11                    |0       |		MOVE.W	(A1),D0
00024cc0 e1 40                    | @      |		ASL.W	#0x8,D0
00024cc2 06 40 00 0c              | @      |		ADDI.W	#0x000c,D0
00024cc6 60 08                    |`       |		BRA	0x24cd0
00024cc8					switch@0x24cb2[0x1]:
00024cc8 30 11                    |0       |		MOVE.W	(A1),D0
00024cca e1 40                    | @      |		ASL.W	#0x8,D0
00024ccc 06 40 00 0b              | @      |		ADDI.W	#0x000b,D0
00024cd0 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
00024cd4 20 28 00 16              | (      |		MOVE.L	(A0+0x16),D0
00024cd8 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00024cde 63 02                    |c       |		BLS	0x24ce2
00024ce0 4e 4f                    |NO      |		TRAP	#15
00024ce2 3d 40 ff fa              |=@      |		MOVE.W	D0,(A6-0x6)
00024ce6 20 28 00 12              | (      |		MOVE.L	(A0+0x12),D0
00024cea e1 80                    |        |		ASL.L	#0x8,D0
00024cec d0 a8 00 0e              |        |		ADD.L	(A0+0xe),D0
00024cf0 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00024cf6 63 02                    |c       |		BLS	0x24cfa
00024cf8 4e 4f                    |NO      |		TRAP	#15
00024cfa 3d 40 ff fc              |=@      |		MOVE.W	D0,(A6-0x4)
00024cfe 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00024d02 41 e8 00 26              |A  &    |		LEA.L	(A0+0x26),A0
00024d06 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024d08 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00024d0a 48 78 00 02              |Hx      |		PEA.L	0x2
00024d0e 48 78 00 00              |Hx      |		PEA.L	0x0
00024d12 4e ba c5 30              |N  0    |		JSR	0x21244
00024d16 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024d1a 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00024d1e 4e 5e                    |N^      |		UNLK	A6
00024d20 4e 75                    |Nu      |		RTS
00024d22 ; --------------------------------------------------------------------------------------
00024d22 ; OMSI PASCAL Function
00024d22 ;    <LVAR  0x00a 2(r)>
00024d22 ;    <LVAR  0x008 1(r)>
00024d22 ; --------------------------------------------------------------------------------------
00024d22 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00024d26 bf d5                    |        |		CMPA.L	(A5),A7
00024d28 62 06                    |b       |		BHI	0x24d30
00024d2a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024d2e 4e 76                    |Nv      |		TRAPV
00024d30 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00024d34 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00024d38 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
00024d3c 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024d3e 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00024d42 66 08                    |f       |		BNE	0x24d4c
00024d44 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024d46 4e ba fe f4              |N       |		JSR	0x24c3c
00024d4a 60 5e                    |`^      |		BRA	0x24daa
00024d4c 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024d4e c1 d3                    |        |		MULS.W	(A3),D0
00024d50 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024d56 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024d5a d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024d60 9e c1                    |        |		SUBA.W	D1,A7
00024d62 22 4f                    |"O      |		MOVEA.L	A7,A1
00024d64 45 e8 00 3e              |E  >    |		LEA.L	(A0+0x3e),A2
00024d68 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024d6a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024d6c 51 c8 ff fc              |Q       |		DBF	D0,0x24d6a
00024d70 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024d72 48 78 04 00              |Hx      |		PEA.L	0x400
00024d76 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00024d7c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024d7e 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00024d84 de c1                    |        |		ADDA.W	D1,A7
00024d86 43 e8 00 3e              |C  >    |		LEA.L	(A0+0x3e),A1
00024d8a 24 4f                    |$O      |		MOVEA.L	A7,A2
00024d8c 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024d8e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024d90 51 c8 ff fc              |Q       |		DBF	D0,0x24d8e
00024d94 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d96 4a a8 00 0a              |J       |		TST.L	(A0+0xa)
00024d9a 67 08                    |g       |		BEQ	0x24da4
00024d9c 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024d9e 4e ba fe 32              |N  2    |		JSR	0x24bd2
00024da2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024da4 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024da6 4e ba f2 b4              |N       |		JSR	0x2405c
00024daa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024dac 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00024db0 4e 5e                    |N^      |		UNLK	A6
00024db2 4e 75                    |Nu      |		RTS
00024db4 ; --------------------------------------------------------------------------------------
00024db4 ; OMSI PASCAL Function
00024db4 ;    <LVAR  0x00a 2(r)>
00024db4 ;    <LVAR  0x008 1(r)>
00024db4 ;    <LVAR -0x010 2(r)>
00024db4 ;    <LVAR -0x018 @>
00024db4 ; --------------------------------------------------------------------------------------
00024db4 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
00024db8 bf d5                    |        |		CMPA.L	(A5),A7
00024dba 62 06                    |b       |		BHI	0x24dc2
00024dbc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024dc0 4e 76                    |Nv      |		TRAPV
00024dc2 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00024dc6 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00024dca 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
00024dce 72 10                    |r       |		MOVEQ.L	#0x10,D1
00024dd0 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00024dd4 66 28                    |f(      |		BNE	0x24dfe
00024dd6 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024dd8 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00024ddc 4e ba f2 1e              |N       |		JSR	0x23ffc
00024de0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024de2 30 2e ff f0              |0.      |		MOVE.W	(A6-0x10),D0
00024de6 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00024dea 67 08                    |g       |		BEQ	0x24df4
00024dec 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024dee 4e ba f2 6c              |N  l    |		JSR	0x2405c
00024df2 60 06                    |`       |		BRA	0x24dfa
00024df4 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024df6 4e ba fe 44              |N  D    |		JSR	0x24c3c
00024dfa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024dfc 60 60                    |``      |		BRA	0x24e5e
00024dfe 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00024e00 c1 d3                    |        |		MULS.W	(A3),D0
00024e02 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024e08 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00024e0c d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024e12 9e c1                    |        |		SUBA.W	D1,A7
00024e14 22 4f                    |"O      |		MOVEA.L	A7,A1
00024e16 45 e8 00 3e              |E  >    |		LEA.L	(A0+0x3e),A2
00024e1a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024e1c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024e1e 51 c8 ff fc              |Q       |		DBF	D0,0x24e1c
00024e22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024e24 48 78 04 00              |Hx      |		PEA.L	0x400
00024e28 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00024e2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024e30 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00024e36 de c1                    |        |		ADDA.W	D1,A7
00024e38 43 e8 00 3e              |C  >    |		LEA.L	(A0+0x3e),A1
00024e3c 24 4f                    |$O      |		MOVEA.L	A7,A2
00024e3e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024e40 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024e42 51 c8 ff fc              |Q       |		DBF	D0,0x24e40
00024e46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e48 4a a8 00 0a              |J       |		TST.L	(A0+0xa)
00024e4c 67 08                    |g       |		BEQ	0x24e56
00024e4e 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024e50 4e ba fd 80              |N       |		JSR	0x24bd2
00024e54 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024e56 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024e58 4e ba f2 f6              |N       |		JSR	0x24150
00024e5c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024e5e 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00024e62 4e 5e                    |N^      |		UNLK	A6
00024e64 4e 75                    |Nu      |		RTS
00024e66 ; --------------------------------------------------------------------------------------
00024e66 ; OMSI PASCAL Function
00024e66 ; --------------------------------------------------------------------------------------
00024e66 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a
00024e6a bf d5                    |        |		CMPA.L	(A5),A7
00024e6c 62 06                    |b       |		BHI	0x24e74
00024e6e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024e72 4e 76                    |Nv      |		TRAPV
00024e74 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00024e78 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024e7c 47 f9 00 01 02 d0        |G       |		LEA.L	StringCat2(a, b : String) : String,A3
00024e82 72 01                    |r       |		MOVEQ.L	#0x01,D1
00024e84 74 02                    |t       |		MOVEQ.L	#0x02,D2
00024e86 7a 0f                    |z       |		MOVEQ.L	#0x0f,D5
00024e88 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00024e8a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00024e8c be 85                    |        |		CMP.L	D5,D7
00024e8e 63 02                    |c       |		BLS	0x24e92
00024e90 4e 4f                    |NO      |		TRAP	#15
00024e92 28 07                    |(       |		MOVE.L	D7,D4
00024e94 76 46                    |vF      |		MOVEQ.L	#0x46,D3
00024e96 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00024e9c 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00024ea2 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00024ea6 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00024eac 4a 10                    |J       |		TST.B	(A0)
00024eae 67 00 02 1a              |g       |		BEQ	0x250ca
00024eb2 2f 3a bc 94              |/:      |		MOVE.L	0x20b48,-(A7)
00024eb6 2f 3a bc 8c              |/:      |		MOVE.L	0x20b44,-(A7)
00024eba 2f 3a bc 84              |/:      |		MOVE.L	0x20b40,-(A7)
00024ebe 3f 3a bc 8c              |?:      |		MOVE.W	0x20b4c,-(A7)
00024ec2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024ec4 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00024ec8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024eca 3f 06                    |?       |		MOVE.W	D6,-(A7)
00024ecc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024ed2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ed4 2f 07                    |/       |		MOVE.L	D7,-(A7)
00024ed6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024edc 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00024ee0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024ee2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024ee4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024eea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024eec 4e 93                    |N       |		JSR	(A3)
00024eee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ef0 48 78 00 04              |Hx      |		PEA.L	0x4
00024ef4 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00024efa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024efc 4e 93                    |N       |		JSR	(A3)
00024efe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f00 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024f02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f04 22 4f                    |"O      |		MOVEA.L	A7,A1
00024f06 45 fa bc 46              |E  F    |		LEA.L	0x20b4e,A2
00024f0a 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024f0c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024f0e 51 c8 ff fc              |Q       |		DBF	D0,0x24f0c
00024f12 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f14 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024f16 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f18 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024f1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024f1e 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00024f22 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024f28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f2a 4e 93                    |N       |		JSR	(A3)
00024f2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f2e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024f30 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024f32 2e 8c                    |.       |		MOVE.L	A4,(A7)
00024f34 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00024f38 22 4f                    |"O      |		MOVEA.L	A7,A1
00024f3a 45 e8 00 3e              |E  >    |		LEA.L	(A0+0x3e),A2
00024f3e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00024f40 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024f42 51 c8 ff fc              |Q       |		DBF	D0,0x24f40
00024f46 48 78 00 0a              |Hx      |		PEA.L	0xa
00024f4a 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00024f50 de c6                    |        |		ADDA.W	D6,A7
00024f52 48 78 00 0b              |Hx      |		PEA.L	0xb
00024f56 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00024f5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f5e 4e 93                    |N       |		JSR	(A3)
00024f60 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f62 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024f64 2f 3a bb f6              |/:      |		MOVE.L	0x20b5c,-(A7)
00024f68 2f 3a bb ee              |/:      |		MOVE.L	0x20b58,-(A7)
00024f6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f6e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024f70 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f72 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024f76 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024f78 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00024f7c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024f82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f84 4e 93                    |N       |		JSR	(A3)
00024f86 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f88 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024f8a 2e 8c                    |.       |		MOVE.L	A4,(A7)
00024f8c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024f8e 2f 28 00 06              |/(      |		MOVE.L	(A0+0x6),-(A7)
00024f92 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024f98 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024f9a 48 78 00 05              |Hx      |		PEA.L	0x5
00024f9e 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00024fa4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fa6 4e 93                    |N       |		JSR	(A3)
00024fa8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024faa 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024fac 2f 3a bb b6              |/:      |		MOVE.L	0x20b64,-(A7)
00024fb0 2f 3a bb ae              |/:      |		MOVE.L	0x20b60,-(A7)
00024fb4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024fb6 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024fb8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024fba 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024fbe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024fc0 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00024fc4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024fca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fcc 4e 93                    |N       |		JSR	(A3)
00024fce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fd0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024fd2 2e 8c                    |.       |		MOVE.L	A4,(A7)
00024fd4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024fd6 2f 28 00 02              |/(      |		MOVE.L	(A0+0x2),-(A7)
00024fda 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024fe0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024fe2 48 78 00 05              |Hx      |		PEA.L	0x5
00024fe6 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00024fec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fee 4e 93                    |N       |		JSR	(A3)
00024ff0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ff2 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024ff4 3f 3a bb 72              |?: r    |		MOVE.W	0x20b68,-(A7)
00024ff8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ffa 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00024ffc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ffe 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00025002 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025004 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025006 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002500c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002500e 4e 93                    |N       |		JSR	(A3)
00025010 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025012 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00025014 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025016 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00025018 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002501a 2f 28 00 16              |/(      |		MOVE.L	(A0+0x16),-(A7)
0002501e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00025024 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025026 48 78 00 04              |Hx      |		PEA.L	0x4
0002502a 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00025030 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025032 4e 93                    |N       |		JSR	(A3)
00025034 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025036 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00025038 3f 3a bb 30              |?: 0    |		MOVE.W	0x20b6a,-(A7)
0002503c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002503e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00025040 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025042 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00025046 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025048 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002504a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025050 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025052 4e 93                    |N       |		JSR	(A3)
00025054 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025056 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00025058 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002505a 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002505c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002505e 2f 28 00 12              |/(      |		MOVE.L	(A0+0x12),-(A7)
00025062 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00025068 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002506a 48 78 00 03              |Hx      |		PEA.L	0x3
0002506e 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00025074 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025076 4e 93                    |N       |		JSR	(A3)
00025078 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002507a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002507c 3f 3a ba ee              |?:      |		MOVE.W	0x20b6c,-(A7)
00025080 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025082 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00025084 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025086 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002508a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002508c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002508e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025094 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025096 4e 93                    |N       |		JSR	(A3)
00025098 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002509a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002509c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002509e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000250a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000250a2 2f 28 00 0e              |/(      |		MOVE.L	(A0+0xe),-(A7)
000250a6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000250ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000250ae 48 78 00 03              |Hx      |		PEA.L	0x3
000250b2 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
000250b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250ba 4e 93                    |N       |		JSR	(A3)
000250bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250be 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000250c0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000250c2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000250c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000250ca 52 87                    |R       |		ADDQ.L	#0x1,D7
000250cc be 85                    |        |		CMP.L	D5,D7
000250ce 6f 00 fd bc              |o       |		BLE	0x24e8c
000250d2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000250d6 4e 5e                    |N^      |		UNLK	A6
000250d8 4e 75                    |Nu      |		RTS
000250da ; --------------------------------------------------------------------------------------
000250da ; OMSI PASCAL Function
000250da ; --------------------------------------------------------------------------------------
000250da 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000250de bf d5                    |        |		CMPA.L	(A5),A7
000250e0 62 06                    |b       |		BHI	0x250e8
000250e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000250e6 4e 76                    |Nv      |		TRAPV
000250e8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000250ec 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000250f0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000250f2 70 46                    |pF      |		MOVEQ.L	#0x46,D0
000250f4 c1 c7                    |        |		MULS.W	D7,D0
000250f6 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000250fc 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00025100 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
00025106 4a 10                    |J       |		TST.B	(A0)
00025108 67 0e                    |g       |		BEQ	0x25118
0002510a 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002510c 4e ba ef 4e              |N  N    |		JSR	0x2405c
00025110 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025112 52 b9 00 02 57 9e        |R   W   |		ADDQ.L	#0x1,0x2579e
00025118 52 47                    |RG      |		ADDQ.W	#0x1,D7
0002511a 0c 47 00 0f              | G      |		CMPI.W	#0x000f,D7
0002511e 6f d2                    |o       |		BLE	0x250f2
00025120 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00025124 4e 5e                    |N^      |		UNLK	A6
00025126 4e 75                    |Nu      |		RTS
00025128 ; --------------------------------------------------------------------------------------
00025128 ; OMSI PASCAL Function
00025128 ;    <LVAR -0x001 @ 1(r)>
00025128 ;    <LVAR -0x002 @ 1(r)>
00025128 ; --------------------------------------------------------------------------------------
00025128 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002512c bf d5                    |        |		CMPA.L	(A5),A7
0002512e 62 06                    |b       |		BHI	0x25136
00025130 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025134 4e 76                    |Nv      |		TRAPV
00025136 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002513a 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
0002513e 43 ee ff ff              |C       |		LEA.L	(A6-0x1),A1
00025142 72 01                    |r       |		MOVEQ.L	#0x01,D1
00025144 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00025146 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00025148 c1 c7                    |        |		MULS.W	D7,D0
0002514a 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
00025150 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00025154 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
0002515a 4a 10                    |J       |		TST.B	(A0)
0002515c 67 50                    |gP      |		BEQ	0x251ae
0002515e 3f 07                    |?       |		MOVE.W	D7,-(A7)
00025160 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00025164 48 51                    |HQ      |		PEA.L	(A1)
00025166 4e ba bc c0              |N       |		JSR	0x20e28
0002516a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002516e 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00025172 67 3a                    |g:      |		BEQ	0x251ae
00025174 10 28 00 01              | (      |		MOVE.B	(A0+0x1),D0
00025178 48 80                    |H       |		EXTB.W	D0
0002517a b0 41                    | A      |		CMP.W	D1,D0
0002517c 63 02                    |c       |		BLS	0x25180
0002517e 4e 4e                    |NN      |		TRAP	#14
00025180 d0 40                    | @      |		ADD.W	D0,D0
00025182 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002518a 00 04                    |        |		.CONST	0x4			; [0x0] -> 0x2518e
0002518c 00 14                    |        |		.CONST	0x14			; [0x1] -> 0x2519e
0002518e					switch@0x25182[0x0]:
0002518e 3f 07                    |?       |		MOVE.W	D7,-(A7)
00025190 10 11                    |        |		MOVE.B	(A1),D0
00025192 48 80                    |H       |		EXTB.W	D0
00025194 41 81                    |A       |		CHK.W	D1,D0
00025196 1f 00                    |        |		MOVE.B	D0,-(A7)
00025198 4e ba fb 88              |N       |		JSR	0x24d22
0002519c 60 0e                    |`       |		BRA	0x251ac
0002519e					switch@0x25182[0x1]:
0002519e 3f 07                    |?       |		MOVE.W	D7,-(A7)
000251a0 10 11                    |        |		MOVE.B	(A1),D0
000251a2 48 80                    |H       |		EXTB.W	D0
000251a4 41 81                    |A       |		CHK.W	D1,D0
000251a6 1f 00                    |        |		MOVE.B	D0,-(A7)
000251a8 4e ba fc 0a              |N       |		JSR	0x24db4
000251ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000251ae 52 47                    |RG      |		ADDQ.W	#0x1,D7
000251b0 0c 47 00 0f              | G      |		CMPI.W	#0x000f,D7
000251b4 6f 90                    |o       |		BLE	0x25146
000251b6 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
000251ba 4e 5e                    |N^      |		UNLK	A6
000251bc 4e 75                    |Nu      |		RTS
000251be ; --------------------------------------------------------------------------------------
000251be ; OMSI PASCAL Function
000251be ;    <LVAR -0x002 @>
000251be ; --------------------------------------------------------------------------------------
000251be 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
000251c2 bf d5                    |        |		CMPA.L	(A5),A7
000251c4 62 06                    |b       |		BHI	0x251cc
000251c6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000251ca 4e 76                    |Nv      |		TRAPV
000251cc de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000251d0 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000251d4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000251d6 70 46                    |pF      |		MOVEQ.L	#0x46,D0
000251d8 c1 c7                    |        |		MULS.W	D7,D0
000251da 41 f9 00 02 57 8e        |A   W   |		LEA.L	0x2578e,A0
000251e0 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000251e4 d1 fc 00 00 89 2a        |     *  |		ADDA.L	#0x892a,A0
000251ea 4a 10                    |J       |		TST.B	(A0)
000251ec 67 0c                    |g       |		BEQ	0x251fa
000251ee 3f 07                    |?       |		MOVE.W	D7,-(A7)
000251f0 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000251f4 4e ba bf 64              |N  d    |		JSR	0x2115a
000251f8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000251fa 52 47                    |RG      |		ADDQ.W	#0x1,D7
000251fc 0c 47 00 0f              | G      |		CMPI.W	#0x000f,D7
00025200 6f d4                    |o       |		BLE	0x251d6
00025202 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00025206 4e 5e                    |N^      |		UNLK	A6
00025208 4e 75                    |Nu      |		RTS
0002520a ; --------------------------------------------------------------------------------------
0002520a ; OMSI PASCAL Function
0002520a ;    <LVAR -0x004 @ 4(r)>
0002520a ; --------------------------------------------------------------------------------------
0002520a 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
0002520e bf d5                    |        |		CMPA.L	(A5),A7
00025210 62 06                    |b       |		BHI	0x25218
00025212 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025216 4e 76                    |Nv      |		TRAPV
00025218 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0002521c 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00025220 45 f9 00 02 e5 18        |E       |		LEA.L	0x2e518,A2
00025226 72 01                    |r       |		MOVEQ.L	#0x01,D1
00025228 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002522c 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00025232 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025234 4a 12                    |J       |		TST.B	(A2)
00025236 67 06                    |g       |		BEQ	0x2523e
00025238 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002523e 41 fa b9 38              |A  8    |		LEA.L	0x20b78,A0
00025242 70 04                    |p       |		MOVEQ.L	#0x04,D0
00025244 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025246 51 c8 ff fc              |Q       |		DBF	D0,0x25244
0002524a 9e fc 00 16              |        |		SUBA.W	#0x16,A7
0002524e 20 4f                    | O      |		MOVEA.L	A7,A0
00025250 43 fa b9 26              |C  &    |		LEA.L	0x20b78,A1
00025254 70 14                    |p       |		MOVEQ.L	#0x14,D0
00025256 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025258 51 c8 ff fc              |Q       |		DBF	D0,0x25256
0002525c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002525e 48 6f 00 1e              |Ho      |		PEA.L	(A7+0x1e)
00025262 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025264 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00025268 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002526e 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00025272 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00025278 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002527c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002527e 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00025282 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025288 2e b9 00 02 57 a4        |.   W   |		MOVE.L	0x257a4,(A7)
0002528e 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00025294 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025296 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002529c de fc 00 10              |        |		ADDA.W	#0x10,A7
000252a0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000252a6 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000252aa 4e ba c7 94              |N       |		JSR	0x21a40
000252ae 4e ba fb b6              |N       |		JSR	0x24e66
000252b2 4a 12                    |J       |		TST.B	(A2)
000252b4 67 06                    |g       |		BEQ	0x252bc
000252b6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000252bc 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000252c0 4e 5e                    |N^      |		UNLK	A6
000252c2 4e 75                    |Nu      |		RTS
000252c4 ; --------------------------------------------------------------------------------------
000252c4 ; OMSI PASCAL Function
000252c4 ;    <LVAR  0x008 1(rw)>
000252c4 ;    <LVAR -0x006 @ 1(r)>
000252c4 ;    <LVAR -0x008 @ 2(rw)>
000252c4 ; --------------------------------------------------------------------------------------
000252c4 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000252c8 bf d5                    |        |		CMPA.L	(A5),A7
000252ca 62 06                    |b       |		BHI	0x252d2
000252cc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000252d0 4e 76                    |Nv      |		TRAPV
000252d2 de fc 00 16              |        |		ADDA.W	#0x16,A7
000252d6 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000252da 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000252de 72 01                    |r       |		MOVEQ.L	#0x01,D1
000252e0 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
000252e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000252e6 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000252ea 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000252f0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000252f2 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
000252f6 b0 01                    |        |		CMP.B	D1,D0
000252f8 66 22                    |f"      |		BNE	0x2531c
000252fa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000252fc 48 50                    |HP      |		PEA.L	(A0)
000252fe 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
00025304 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025306 02 50 00 7f              | P      |		ANDI.W	#0x007f,(A0)
0002530a 30 10                    |0       |		MOVE.W	(A0),D0
0002530c 0c 40 00 07              | @      |		CMPI.W	#0x0007,D0
00025310 66 06                    |f       |		BNE	0x25318
00025312 1d 41 00 08              | A      |		MOVE.B	D1,(A6+0x8)
00025316 60 04                    |`       |		BRA	0x2531c
00025318 4e ba fe f0              |N       |		JSR	0x2520a
0002531c 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00025320 4e 5e                    |N^      |		UNLK	A6
00025322 4e 75                    |Nu      |		RTS
00025324 ; --------------------------------------------------------------------------------------
00025324 ; OMSI PASCAL Function
00025324 ; --------------------------------------------------------------------------------------
00025324 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00025328 bf d5                    |        |		CMPA.L	(A5),A7
0002532a 62 06                    |b       |		BHI	0x25332
0002532c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025330 4e 76                    |Nv      |		TRAPV
00025332 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00025336 48 e7 f0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0002533a 41 f9 00 02 e5 2a        |A    *  |		LEA.L	0x2e52a,A0
00025340 43 f9 00 02 e5 2b        |C    +  |		LEA.L	0x2e52b,A1
00025346 45 f9 00 02 e5 2c        |E    ,  |		LEA.L	0x2e52c,A2
0002534c 47 f9 00 02 e5 2e        |G    .  |		LEA.L	0x2e52e,A3
00025352 74 02                    |t       |		MOVEQ.L	#0x02,D2
00025354 76 01                    |v       |		MOVEQ.L	#0x01,D3
00025356 4a 39 00 02 e5 18        |J9      |		TST.B	0x2e518
0002535c 67 58                    |gX      |		BEQ	0x253b6
0002535e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025360 48 52                    |HR      |		PEA.L	(A2)
00025362 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00025368 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002536a 10 12                    |        |		MOVE.B	(A2),D0
0002536c b0 03                    |        |		CMP.B	D3,D0
0002536e 66 2c                    |f,      |		BNE	0x2539c
00025370 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025372 48 53                    |HS      |		PEA.L	(A3)
00025374 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
0002537a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002537c 30 13                    |0       |		MOVE.W	(A3),D0
0002537e 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00025382 10 80                    |        |		MOVE.B	D0,(A0)
00025384 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
00025388 66 02                    |f       |		BNE	0x2538c
0002538a 42 11                    |B       |		CLR.B	(A1)
0002538c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002538e 42 81                    |B       |		CLR.L	D1
00025390 12 00                    |        |		MOVE.B	D0,D1
00025392 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025394 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002539a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002539c 4a 11                    |J       |		TST.B	(A1)
0002539e 66 16                    |f       |		BNE	0x253b6
000253a0 10 bc 00 10              |        |		MOVE.B	#0x10,(A0)
000253a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000253a6 42 80                    |B       |		CLR.L	D0
000253a8 10 10                    |        |		MOVE.B	(A0),D0
000253aa 3f 00                    |?       |		MOVE.W	D0,-(A7)
000253ac 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000253b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000253b4 12 83                    |        |		MOVE.B	D3,(A1)
000253b6 4c df 0f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3
000253ba 4e 5e                    |N^      |		UNLK	A6
000253bc 4e 75                    |Nu      |		RTS
000253be ; --------------------------------------------------------------------------------------
000253be ; OMSI PASCAL Function
000253be ; --------------------------------------------------------------------------------------
000253be					START:
000253be 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000253c2 4e f9 00 01 02 80        |N       |		JMP	?start_program
000253c8					MAIN:
000253c8 45 f9 00 02 e5 22        |E    "  |		LEA.L	0x2e522,A2
000253ce 47 f9 00 01 03 04        |G       |		LEA.L	GetRtc() : TimeStamp,A3
000253d4 49 f9 00 02 e5 26        |I    &  |		LEA.L	0x2e526,A4
000253da 72 01                    |r       |		MOVEQ.L	#0x01,D1
000253dc 24 3c 00 00 ff ff        |$<      |		MOVE.L	#0xffff,D2
000253e2 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000253e8 42 b9 00 02 57 9e        |B   W   |		CLR.L	0x2579e
000253ee 23 c1 00 02 57 96        |#   W   |		MOVE.L	D1,0x25796
000253f4 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000253f8 20 4f                    | O      |		MOVEA.L	A7,A0
000253fa 43 fa b7 92              |C       |		LEA.L	0x20b8e,A1
000253fe 70 16                    |p       |		MOVEQ.L	#0x16,D0
00025400 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025402 51 c8 ff fc              |Q       |		DBF	D0,0x25400
00025406 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025408 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002540c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002540e 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00025412 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025418 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002541a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00025420 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00025424 4e ba b8 f0              |N       |		JSR	0x20d16
00025428 4e ba c4 d4              |N       |		JSR	0x218fe
0002542c 4e ba e9 f0              |N       |		JSR	0x23e1e
00025430 4e ba c5 b6              |N       |		JSR	0x219e8
00025434 4e ba e9 88              |N       |		JSR	0x23dbe
00025438 48 79 00 02 57 a4        |Hy  W   |		PEA.L	0x257a4
0002543e 4e 93                    |N       |		JSR	(A3)
00025440 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025442 4e ba e6 42              |N  B    |		JSR	0x23a86
00025446 4e ba fc 92              |N       |		JSR	0x250da
0002544a 9e fc 00 30              |   0    |		SUBA.W	#0x30,A7
0002544e 20 4f                    | O      |		MOVEA.L	A7,A0
00025450 43 fa b7 54              |C  T    |		LEA.L	0x20ba6,A1
00025454 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00025456 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025458 51 c8 ff fc              |Q       |		DBF	D0,0x25456
0002545c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002545e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025462 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025464 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00025468 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002546e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025470 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00025476 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002547a 48 52                    |HR      |		PEA.L	(A2)
0002547c 4e 93                    |N       |		JSR	(A3)
0002547e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025480 42 80                    |B       |		CLR.L	D0
00025482 30 12                    |0       |		MOVE.W	(A2),D0
00025484 d0 94                    |        |		ADD.L	(A4),D0
00025486 b0 82                    |        |		CMP.L	D2,D0
00025488 63 02                    |c       |		BLS	0x2548c
0002548a 4e 4f                    |NO      |		TRAP	#15
0002548c 34 80                    |4       |		MOVE.W	D0,(A2)
0002548e 4a 39 00 02 e5 18        |J9      |		TST.B	0x2e518
00025494 67 24                    |g$      |		BEQ	0x254ba
00025496 13 fc 00 10 00 02 e5 2a  |       *|		MOVE.B	#0x10,0x2e52a
0002549e 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000254a2 42 80                    |B       |		CLR.L	D0
000254a4 10 39 00 02 e5 2a        | 9   *  |		MOVE.B	0x2e52a,D0
000254aa 3f 00                    |?       |		MOVE.W	D0,-(A7)
000254ac 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000254b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254b4 13 c1 00 02 e5 2b        |     +  |		MOVE.B	D1,0x2e52b
000254ba 48 79 00 02 e5 1e        |Hy      |		PEA.L	0x2e51e
000254c0 4e 93                    |N       |		JSR	(A3)
000254c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254c4 4e ba e6 0c              |N       |		JSR	0x23ad2
000254c8 4e ba fc 5e              |N  ^    |		JSR	0x25128
000254cc 4e ba fe 56              |N  V    |		JSR	0x25324
000254d0 48 79 00 02 e5 1a        |Hy      |		PEA.L	0x2e51a
000254d6 4e 93                    |N       |		JSR	(A3)
000254d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254da 30 39 00 02 e5 1e        |09      |		MOVE.W	0x2e51e,D0
000254e0 b0 79 00 02 e5 1a        | y      |		CMP.W	0x2e51a,D0
000254e6 63 20                    |c       |		BLS	0x25508
000254e8 4e ba fd 20              |N       |		JSR	0x2520a
000254ec 48 79 00 02 e5 1a        |Hy      |		PEA.L	0x2e51a
000254f2 4e 93                    |N       |		JSR	(A3)
000254f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254f6 42 80                    |B       |		CLR.L	D0
000254f8 30 39 00 02 e5 1a        |09      |		MOVE.W	0x2e51a,D0
000254fe d0 94                    |        |		ADD.L	(A4),D0
00025500 b0 82                    |        |		CMP.L	D2,D0
00025502 63 02                    |c       |		BLS	0x25506
00025504 4e 4f                    |NO      |		TRAP	#15
00025506 34 80                    |4       |		MOVE.W	D0,(A2)
00025508 33 f9 00 02 e5 1a 00 02  |3       |		MOVE.W	0x2e51a,0x2e51e
00025510 e5 1e                    |        |
00025512 30 39 00 02 e5 1a        |09      |		MOVE.W	0x2e51a,D0
00025518 b0 52                    | R      |		CMP.W	(A2),D0
0002551a 65 18                    |e       |		BCS	0x25534
0002551c 4e ba fc ec              |N       |		JSR	0x2520a
00025520 48 52                    |HR      |		PEA.L	(A2)
00025522 4e 93                    |N       |		JSR	(A3)
00025524 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025526 42 80                    |B       |		CLR.L	D0
00025528 30 12                    |0       |		MOVE.W	(A2),D0
0002552a d0 94                    |        |		ADD.L	(A4),D0
0002552c b0 82                    |        |		CMP.L	D2,D0
0002552e 63 02                    |c       |		BLS	0x25532
00025530 4e 4f                    |NO      |		TRAP	#15
00025532 34 80                    |4       |		MOVE.W	D0,(A2)
00025534 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025536 4e ba fd 8c              |N       |		JSR	0x252c4
0002553a 4a 1f                    |J       |		TST.B	(A7)+
0002553c 66 0a                    |f       |		BNE	0x25548
0002553e 4a b9 00 02 57 9e        |J   W   |		TST.L	0x2579e
00025544 66 00 ff 7e              |f  ~    |		BNE	0x254c4
00025548 4e ba e6 82              |N       |		JSR	0x23bcc
0002554c 4e ba fc 70              |N  p    |		JSR	0x251be
00025550 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00025554 20 4f                    | O      |		MOVEA.L	A7,A0
00025556 43 fa b6 7e              |C  ~    |		LEA.L	0x20bd6,A1
0002555a 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002555c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002555e 51 c8 ff fc              |Q       |		DBF	D0,0x2555c
00025562 42 27                    |B'      |		CLR.B	-(A7)
00025564 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025566 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002556a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002556c 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00025570 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025576 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025578 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002557e de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00025582 4e b9 00 01 02 84        |N       |		JSR	?exit
00025588 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00025596 ; --------------------------------------------------------------------------------------
00025596 ; OMSI PASCAL Function
00025596 ;    <LVAR  0x008 1(r)>
00025596 ; --------------------------------------------------------------------------------------
00025596					PROG_FAIL:
00025596 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002559a bf d5                    |        |		CMPA.L	(A5),A7
0002559c 62 06                    |b       |		BHI	0x255a4
0002559e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000255a2 4e 76                    |Nv      |		TRAPV
000255a4 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000255a8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000255ac 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000255b0 70 06                    |p       |		MOVEQ.L	#0x06,D0
000255b2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000255b4 51 c8 ff fc              |Q       |		DBF	D0,0x255b2
000255b8 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000255bc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000255be 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000255c2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000255c6 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000255ca 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000255d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255d2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000255d6 48 80                    |H       |		EXTB.W	D0
000255d8 48 c0                    |H       |		EXTW.L	D0
000255da 2f 00                    |/       |		MOVE.L	D0,-(A7)
000255dc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000255e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255e4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000255ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000255ec 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000255f2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000255f6 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000255fa 4e 5e                    |N^      |		UNLK	A6
000255fc 4e 75                    |Nu      |		RTS
000255fe 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002560c 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002561a 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00025628 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002563a 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00025652 ; --------------------------------------------------------------------------------------
00025652 ; OMSI PASCAL Function
00025652 ;    <LVAR  0x00e 1(r)>
00025652 ;    <LVAR  0x00a 4(r)>
00025652 ;    <LVAR  0x008 1(r)>
00025652 ; --------------------------------------------------------------------------------------
00025652					EXP_FAIL:
00025652 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00025656 bf d5                    |        |		CMPA.L	(A5),A7
00025658 62 06                    |b       |		BHI	0x25660
0002565a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002565e 4e 76                    |Nv      |		TRAPV
00025660 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00025664 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00025668 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002566e 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00025674 72 01                    |r       |		MOVEQ.L	#0x01,D1
00025676 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00025678 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002567a 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002567c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002567e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00025684 41 fa ff b4              |A       |		LEA.L	0x2563a,A0
00025688 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002568a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002568c 51 c8 ff fc              |Q       |		DBF	D0,0x2568a
00025690 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025692 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025696 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025698 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002569a 4e 93                    |N       |		JSR	(A3)
0002569c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002569e 4e 94                    |N       |		JSR	(A4)
000256a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000256a2 20 4f                    | O      |		MOVEA.L	A7,A0
000256a4 43 fa ff 58              |C  X    |		LEA.L	0x255fe,A1
000256a8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000256aa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000256ac 51 c8 ff fc              |Q       |		DBF	D0,0x256aa
000256b0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000256b2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000256b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000256b8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000256ba 4e 93                    |N       |		JSR	(A3)
000256bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000256be 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000256c2 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000256c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000256ca 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000256d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000256d2 4e 94                    |N       |		JSR	(A4)
000256d4 de c4                    |        |		ADDA.W	D4,A7
000256d6 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000256da b0 c1                    |        |		CMPA.W	D1,A0
000256dc 67 48                    |gH      |		BEQ	0x25726
000256de 9e c5                    |        |		SUBA.W	D5,A7
000256e0 22 4f                    |"O      |		MOVEA.L	A7,A1
000256e2 45 fa ff 28              |E  (    |		LEA.L	0x2560c,A2
000256e6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000256e8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000256ea 51 c8 ff fc              |Q       |		DBF	D0,0x256e8
000256ee 9e c3                    |        |		SUBA.W	D3,A7
000256f0 22 4f                    |"O      |		MOVEA.L	A7,A1
000256f2 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000256f6 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000256f8 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000256fa 51 c8 ff fc              |Q       |		DBF	D0,0x256f8
000256fe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025700 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00025704 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025706 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025708 4e 93                    |N       |		JSR	(A3)
0002570a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002570c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00025710 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025712 3f 03                    |?       |		MOVE.W	D3,-(A7)
00025714 4e 93                    |N       |		JSR	(A3)
00025716 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025718 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002571e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025720 4e 94                    |N       |		JSR	(A4)
00025722 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00025726 9e c5                    |        |		SUBA.W	D5,A7
00025728 20 4f                    | O      |		MOVEA.L	A7,A0
0002572a 43 fa fe ee              |C       |		LEA.L	0x2561a,A1
0002572e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00025730 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025732 51 c8 ff fc              |Q       |		DBF	D0,0x25730
00025736 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025738 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002573c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002573e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025740 4e 93                    |N       |		JSR	(A3)
00025742 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025744 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00025748 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002574e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025750 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025756 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025758 4e 94                    |N       |		JSR	(A4)
0002575a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002575c 20 4f                    | O      |		MOVEA.L	A7,A0
0002575e 43 fa fe da              |C       |		LEA.L	0x2563a,A1
00025762 70 16                    |p       |		MOVEQ.L	#0x16,D0
00025764 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025766 51 c8 ff fc              |Q       |		DBF	D0,0x25764
0002576a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002576e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025770 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00025774 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025776 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002577a 4e 93                    |N       |		JSR	(A3)
0002577c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002577e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00025784 de c3                    |        |		ADDA.W	D3,A7
00025786 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002578a 4e 5e                    |N^      |		UNLK	A6
0002578c 4e 75                    |Nu      |		RTS