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

⟦cbe10be8c⟧ M200

    Length: 27648 (0x6c00)
    Types: M200
    Notes: M200_PROGRAM
    Names: »RDIAG.M200«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »RDIAG.M200« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »RDIAG.M200« 
    └─ ⟦this⟧ »RDIAG.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »RDIAG.M200« 

Disassembly

0x20c5e


@ 20c5e
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20c5e-20cc6 Body>                                              
        <POP 20c5e-20c74 Prologue>                           Σ0         ↓
        <POP 20c74-20cbe Naked>                              Σ0         ↓
            <Blob 0x20c74 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x20c80 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20c84-20c86 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20c86 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20c98-20c9a StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c9a  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c9e  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20ca0  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20ca2  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20ca4 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20caa-20cac StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x20cac 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20cb2-20cb4 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20cb4 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20cba-20cbe StackAdj>                       Δ+20               {}
        <POP 20cbe-20cc6 Epilogue>                           Σ0         

0x20cc6


@ 20cc6
        <LVAR  0x02a 4(r)>
        <LVAR  0x028 1(r)>
        <LVAR  0x026 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x020 4(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20cc6-20df0 Body>                                              
        <POP 20cc6-20cdc Prologue>                           Σ0         ↓
        <POP 20cdc-20cea RegCacheLoad>                       Σ0         ↓
        <POP 20cea-20d8a Naked>                              Σ0         ↓ →0x20de8
            <Blob 0x20cea [2] @>                             Δ-2                {[«2""»]}
            <POP 20cee-20cf0 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <POP 20cf0-20cf1 StackAdj>                       Δ+2                {[«2""»]|[-2-]}
            <Blob 0x20cf1 [2] @>                             Δ-2                {[«2""»]|[-2-]|[«2""»]}
            <MI 20cf4  MOVE.B  0x20127,(A7+0x1)>                                {[«2""»]|[-2-]|[«2""»]}
            <MI 20cfa  MOVE.B  0x20128,(A7+0x2)>                                {[«2""»]|[-2-]|[«2""»]}
            <POP 20d00-20d02 StackAdj>                       Δ-8                {[«2""»]|[-2-]|[«2""»]|[-8-]}
            <Lit 0x20d02 2>                                                     {[«2""»]|[-2-]|[«2""»]|[-4-]|[$$P ]}
            <MI 20d12  MOVE.L  (A6+0x2a),(A7)>                                  {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']}
            <POP 20d0c-20d12 StackAdj>                       Δ-8                {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
            <Call 0x20d16 0x102e4>                                              {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x20d1c>                                                       {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
                <Pointer.sp 0x20d1c 16>                      Δ-4        
                <Const 0x20d20 0x1.2>                        Δ-2        
                <Const 0x20d22 0x3.2>                        Δ-2        
                <Call 0x20d26 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20d2c-20d2e StackAdj>                   Δ+8        
            <Call 0x20d2e 0x102d4>                                              {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
                StringCat3(a, b, c : String) : String
            <POP 20d34-20d36 StackAdj>                       Δ+12               {[«2""»]|[-2-]|[«2""»]|[-4-]}
            <MI 20d36  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]|[-2-]|[«2""»]}
            <POP 20d38-20d3a StackAdj>                       Δ+6                {}
            <Call 0x20d3a 0x10538>                                              {}
                IPC_Init(void)
            <MI 20d40  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[2, '(A6+0x28)']}
            <MI 20d44  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']}
            <Const 0x20d46 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
            <Const 0x20d48 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x20d4a 0x104fc>                                              {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20d50-20d52 StackAdj>                       Δ+12               {[2, '(A6+0x28)']}
            <MI 20d52  MOVE.B  (A6+0x26),(A7)>                                  {[-2-]}
            <Call 0x20d56 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 20d5c  MOVE.B  (A6+0x24),(A7)>                                  {[-2-]}
            <Call 0x20d60 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20d66-20d68 StackAdj>                       Δ+2                {}
            <Call 0x20d68 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20d6e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20d72  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x20d74 0x1.4>                            Δ-4                {[4, 'A4']|[##1]}
            <Const 0x20d78 0x1.2>                            Δ-2                {[4, 'A4']|[##1]|[#1]}
            <MI 20d7a  PEA.L   (A0)>                         Δ-4                {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x20d7c 0x103b0>                                              {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20d82-20d86 StackAdj>                       Δ+14               {}
            <MI 20d86  TST.B   (A0)>                                            {}
            <MI 20d88  BNE     0x20de8>                                         {}
        <POP 20d8a-20de8 Naked>                              Σ0         ↓
            <Call 0x20d8a 0x10538>                                              {}
                IPC_Init(void)
            <MI 20d90  MOVEA.L (A6+0x20),A0>                                    {}
            <MI 20d94  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20d96 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20d9c-20d9e StackAdj>                       Δ+4                {}
            <MI 20d9e  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 20da2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20da4 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20da6-20da8 StackAdj>                       Δ+4                {}
            <MI 20da8  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 20dac  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20dae 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20db0-20db2 StackAdj>                       Δ+4                {}
            <MI 20db2  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20db6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20db8 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20dba-20dbc StackAdj>                       Δ+4                {}
            <MI 20dbc  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20dc0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20dc2 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20dc4 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20dc6 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20dcc-20dce StackAdj>                       Δ+12               {}
            <MI 20dce  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20dd2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20dd4 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20dd6 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x20dda 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20de0-20de2 StackAdj>                       Δ+12               {}
            <Call 0x20de2 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20de8-20df0 Epilogue>                           Σ0         ←0x20cea

0x20df0


@ 20df0
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20df0-20e4e Body>                                              
        <POP 20df0-20e06 Prologue>                           Σ0         ↓
        <POP 20e06-20e46 Naked>                              Σ0         ↓
            <Call 0x20e06 0x10538>                                              {}
                IPC_Init(void)
            <MI 20e0c  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20e10  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20e12 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20e16 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20e1a 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20e20-20e24 StackAdj>                       Δ+12               {}
            <MI 20e24  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20e28  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20e2a 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20e30-20e32 StackAdj>                       Δ+4                {}
            <MI 20e32  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20e36  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20e38 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20e3e-20e40 StackAdj>                       Δ+4                {}
            <Call 0x20e40 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20e46-20e4e Epilogue>                           Σ0         

0x20e4e


@ 20e4e
        <LVAR  0x01e 1(r)>
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20e4e-20ede Body>                                              
        <POP 20e4e-20e64 Prologue>                           Σ0         ↓
        <POP 20e64-20e6e RegCacheLoad>                       Σ0         ↓
        <POP 20e6e-20ed6 Naked>                              Σ0         ↓
            <Call 0x20e6e 0x10538>                                              {}
                IPC_Init(void)
            <MI 20e74  MOVE.B  (A6+0x1e),-(A7)>              Δ-2                {[2, '(A6+0x1e)']}
            <Call 0x20e78 0x10502>                                              {[2, '(A6+0x1e)']}
                IPC_PutBool(a : Bool)
            <POP 20e7e-20e80 StackAdj>                       Δ+2                {}
            <MI 20e80  MOVE.L  (A6+0x1a),-(A7)>              Δ-4                {[4, '(A6+0x1a)']}
            <Call 0x20e84 0x10508>                                              {[4, '(A6+0x1a)']}
                IPC_PutString(a : String)
            <MI 20e86  MOVE.L  (A6+0x16),(A7)>                                  {[4, '(A6+0x16)']}
            <Call 0x20e8a 0x10508>                                              {[4, '(A6+0x16)']}
                IPC_PutString(a : String)
            <MI 20e8c  MOVE.L  (A6+0x12),(A7)>                                  {[4, '(A6+0x12)']}
            <Call 0x20e90 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 20e92-20e94 StackAdj>                       Δ+2                {[-2-]}
            <MI 20e94  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <MI 20e98  PEA.L   (A7)>                         Δ-4                {[-2-]|[4, '^(A7)']}
            <Const 0x20e9a 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]}
            <Const 0x20e9c 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x20e9e 0x104fc>                                              {[-2-]|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20ea4-20ea8 StackAdj>                       Δ+10               {[-2-]|[-2-]}
            <MI 20ea8  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 20eac  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20eb0  PEA.L   (A7)>                         Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
            <Const 0x20eb2 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
            <Const 0x20eb4 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
            <Call 0x20eb8 0x104fc>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20ebe-20ec2 StackAdj>                       Δ+20               {}
            <Call 0x20ec2 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20ec8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20eca 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20ece 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20ed4-20ed6 StackAdj>                       Δ+6                {}
        <POP 20ed6-20ede Epilogue>                           Σ0         

0x20ede


@ 20ede
        <LVAR  0x024 4(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20ede-20fda Body>                                              
        <POP 20ede-20ef4 Prologue>                           Σ0         ↓
        <POP 20ef4-20efc RegCacheLoad>                       Σ0         ↓
        <POP 20efc-20f76 Naked>                              Σ0         ↓ →0x20fd2
            <Call 0x20efc 0x10538>                                              {}
                IPC_Init(void)
            <MI 20f02  MOVE.B  (A6+0x22),-(A7)>              Δ-2                {[2, '(A6+0x22)']}
            <Call 0x20f06 0x10502>                                              {[2, '(A6+0x22)']}
                IPC_PutBool(a : Bool)
            <MI 20f0c  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x20f10 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20f16-20f18 StackAdj>                       Δ+2                {}
            <Call 0x20f18 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x20f1e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20f22 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x20f26 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 20f2a-20f2c StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x20f2c 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 20f3a  MOVE.L  (A6+0x24),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
            <POP 20f34-20f3a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
            <Call 0x20f3e 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
                StringDup(a : String) : String
            <POP 20f44-20f46 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
            <Call 0x20f46 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20f4c-20f4e StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x20f4e 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20f54-20f58 StackAdj>                       Δ+16               {}
            <MI 20f58  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20f5c  MOVE.L  (A6+0x24),-(A7)>              Δ-4                {[4, '(A6+0x24)']}
            <Const 0x20f60 0x1.4>                            Δ-4                {[4, '(A6+0x24)']|[##1]}
            <Const 0x20f64 0x1.2>                            Δ-2                {[4, '(A6+0x24)']|[##1]|[#1]}
            <MI 20f66  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x20f68 0x103b0>                                              {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20f6e-20f72 StackAdj>                       Δ+14               {}
            <MI 20f72  TST.B   (A0)>                                            {}
            <MI 20f74  BNE     0x20fd2>                                         {}
        <POP 20f76-20fd2 Naked>                              Σ0         ↓
            <Call 0x20f76 0x10538>                                              {}
                IPC_Init(void)
            <MI 20f7c  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 20f80  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20f82 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20f88-20f8a StackAdj>                       Δ+4                {}
            <MI 20f8a  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 20f8e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20f90 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20f96-20f98 StackAdj>                       Δ+4                {}
            <MI 20f98  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20f9c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20f9e 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20fa4-20fa6 StackAdj>                       Δ+4                {}
            <MI 20fa6  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20faa  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20fac 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20fae 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20fb0 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20fb6-20fb8 StackAdj>                       Δ+12               {}
            <MI 20fb8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20fbc  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20fbe 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20fc0 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x20fc4 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20fca-20fcc StackAdj>                       Δ+12               {}
            <Call 0x20fcc 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20fd2-20fda Epilogue>                           Σ0         ←0x20efc

0x20fda


@ 20fda
        <LVAR  0x028 1(r)>
        <LVAR  0x024 4(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20fda-210e8 Body>                                              
        <POP 20fda-20ff0 Prologue>                           Σ0         ↓
        <POP 20ff0-20ff8 RegCacheLoad>                       Σ0         ↓
        <POP 20ff8-21084 Naked>                              Σ0         ↓ →0x210e0
            <Call 0x20ff8 0x10538>                                              {}
                IPC_Init(void)
            <MI 20ffe  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[2, '(A6+0x28)']}
            <MI 21002  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']}
            <Const 0x21004 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
            <Const 0x21006 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x21008 0x104fc>                                              {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 2100e-21010 StackAdj>                       Δ+12               {[2, '(A6+0x28)']}
            <MI 21010  MOVE.B  (A6+0x22),(A7)>                                  {[-2-]}
            <Call 0x21014 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 2101a  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x2101e 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 21024-21026 StackAdj>                       Δ+2                {}
            <Call 0x21026 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2102c [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21030 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21034 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21038-2103a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x2103a 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 21048  MOVE.L  (A6+0x24),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
            <POP 21042-21048 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
            <Call 0x2104c 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
                StringDup(a : String) : String
            <POP 21052-21054 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
            <Call 0x21054 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2105a-2105c StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x2105c 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21062-21066 StackAdj>                       Δ+16               {}
            <MI 21066  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2106a  MOVE.L  (A6+0x24),-(A7)>              Δ-4                {[4, '(A6+0x24)']}
            <Const 0x2106e 0x1.4>                            Δ-4                {[4, '(A6+0x24)']|[##1]}
            <Const 0x21072 0x1.2>                            Δ-2                {[4, '(A6+0x24)']|[##1]|[#1]}
            <MI 21074  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x21076 0x103b0>                                              {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2107c-21080 StackAdj>                       Δ+14               {}
            <MI 21080  TST.B   (A0)>                                            {}
            <MI 21082  BNE     0x210e0>                                         {}
        <POP 21084-210e0 Naked>                              Σ0         ↓
            <Call 0x21084 0x10538>                                              {}
                IPC_Init(void)
            <MI 2108a  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 2108e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21090 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 21096-21098 StackAdj>                       Δ+4                {}
            <MI 21098  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 2109c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2109e 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 210a4-210a6 StackAdj>                       Δ+4                {}
            <MI 210a6  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 210aa  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x210ac 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 210b2-210b4 StackAdj>                       Δ+4                {}
            <MI 210b4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 210b8  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x210ba 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x210bc 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x210be 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 210c4-210c6 StackAdj>                       Δ+12               {}
            <MI 210c6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 210ca  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x210cc 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x210ce 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x210d2 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 210d8-210da StackAdj>                       Δ+12               {}
            <Call 0x210da 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 210e0-210e8 Epilogue>                           Σ0         ←0x20ff8

0x210e8


@ 210e8
        <LVAR  0x02c 1(r)>
        <LVAR  0x028 4(r)>
        <LVAR  0x026 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 210e8-21200 Body>                                              
        <POP 210e8-210fe Prologue>                           Σ0         ↓
        <POP 210fe-2110c RegCacheLoad>                       Σ0         ↓
        <POP 2110c-2119c Naked>                              Σ0         ↓ →0x211f8
            <Call 0x2110c 0x10538>                                              {}
                IPC_Init(void)
            <MI 21112  MOVE.B  (A6+0x2c),-(A7)>              Δ-2                {[2, '(A6+0x2c)']}
            <MI 21116  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']}
            <Const 0x21118 0x0.4>                            Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]}
            <Const 0x2111a 0x0.4>                            Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x2111c 0x104fc>                                              {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 21122-21124 StackAdj>                       Δ+12               {[2, '(A6+0x2c)']}
            <MI 21124  MOVE.B  (A6+0x26),(A7)>                                  {[-2-]}
            <Call 0x21128 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 2112a  MOVE.B  (A6+0x24),(A7)>                                  {[-2-]}
            <Call 0x2112e 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 21130  MOVE.B  (A6+0x22),(A7)>                                  {[-2-]}
            <Call 0x21134 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 21136  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x2113a 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 2113c-2113e StackAdj>                       Δ+2                {}
            <Call 0x2113e 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x21144 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21148 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2114c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21150-21152 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x21152 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 21160  MOVE.L  (A6+0x28),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']}
            <POP 2115a-21160 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
            <Call 0x21164 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
                StringDup(a : String) : String
            <POP 2116a-2116c StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
            <Call 0x2116c 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21172-21174 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x21174 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2117a-2117e StackAdj>                       Δ+16               {}
            <MI 2117e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21182  MOVE.L  (A6+0x28),-(A7)>              Δ-4                {[4, '(A6+0x28)']}
            <Const 0x21186 0x1.4>                            Δ-4                {[4, '(A6+0x28)']|[##1]}
            <Const 0x2118a 0x1.2>                            Δ-2                {[4, '(A6+0x28)']|[##1]|[#1]}
            <MI 2118c  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x2118e 0x103b0>                                              {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21194-21198 StackAdj>                       Δ+14               {}
            <MI 21198  TST.B   (A0)>                                            {}
            <MI 2119a  BNE     0x211f8>                                         {}
        <POP 2119c-211f8 Naked>                              Σ0         ↓
            <Call 0x2119c 0x10538>                                              {}
                IPC_Init(void)
            <MI 211a2  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 211a6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x211a8 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 211ae-211b0 StackAdj>                       Δ+4                {}
            <MI 211b0  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 211b4  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x211b6 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 211bc-211be StackAdj>                       Δ+4                {}
            <MI 211be  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 211c2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x211c4 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 211ca-211cc StackAdj>                       Δ+4                {}
            <MI 211cc  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 211d0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x211d2 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x211d4 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x211d6 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 211dc-211de StackAdj>                       Δ+12               {}
            <MI 211de  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 211e2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x211e4 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x211e6 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x211ea 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 211f0-211f2 StackAdj>                       Δ+12               {}
            <Call 0x211f2 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 211f8-21200 Epilogue>                           Σ0         ←0x2110c

0x21200


@ 21200
        <LVAR -0x004 @>
    <POP 21200-21270 Body>                                              
        <POP 21200-21216 Prologue>                           Σ0         ↓
        <POP 21216-21218 RegCacheLoad>                       Σ0         ↓
        <POP 21218-21268 Naked>                              Σ0         ↓
            <Call 0x21218 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x2121e 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21220 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21226-21228 StackAdj>                       Δ+2                {}
            <Call 0x21228 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2122e [10] @>                            Δ-10               {[«10""»]}
            <POP 21240-21242 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x21242 9>                                                     {[«10""»]|[$$CONFIGURE]}
            <Const 0x21254 0x1.4>                            Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]}
            <Const 0x21258 0x1.2>                            Δ-2                {[«10""»]|[$$CONFIGURE]|[##1]|[#1]}
            <Pointer.fp 0x2125a <LVAR -0x004 @>>             Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]|[#1]|[@@-4]}
            <Call 0x2125e 0x103b0>                                              {[«10""»]|[$$CONFIGURE]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21264-21268 StackAdj>                       Δ+24               {}
        <POP 21268-21270 Epilogue>                           Σ0         

0x21270


@ 21270
        <LVAR  0x014 1(w)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 21270-212d2 Body>                                              
        <POP 21270-21286 Prologue>                           Σ0         ↓
        <POP 21286-2128a RegCacheLoad>                       Σ0         ↓
        <POP 2128a-212ba Naked>                              Σ0         ↓ →0x212c4
            <MI 2128a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <MI 2128e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 21292  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x21296 <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-6]}
            <Pointer.fp 0x21298 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
            <Call 0x2129c 0x260e4>                                              {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
            <POP 212a2-212a6 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x212a6 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x212aa 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 212b0-212b2 StackAdj>                       Δ+4                {}
            <MI 212b2  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 212b4  CMPA.W  #0x1,A0>                                         {}
            <MI 212b8  BEQ     0x212c4>                                         {}
        <POP 212ba-212c4 Naked>                              Σ0         ↓
            <Pointer.fp 0x212ba <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x212bc 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 212c2-212c4 StackAdj>                       Δ+4                {}
        <POP 212c4-212ca Naked>                              Σ0         ↓ ←0x2128a
            <MI 212c4  MOVE.B  (A6-0x8),(A6+0x14)>                              {}
        <POP 212ca-212d2 Epilogue>                           Σ0         

0x212d2


@ 212d2
        <LVAR -0x004 @>
    <POP 212d2-21348 Body>                                              
        <POP 212d2-212e8 Prologue>                           Σ0         ↓
        <POP 212e8-212ea RegCacheLoad>                       Σ0         ↓
        <POP 212ea-21340 Naked>                              Σ0         ↓
            <Call 0x212ea 0x105b6>                                              {}
                R1000_Reset_L(void)
            <Call 0x212f0 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x212f6 0x1.2>                            Δ-2                {[#1]}
            <Call 0x212f8 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 212fe-21300 StackAdj>                       Δ+2                {}
            <Call 0x21300 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x21306 [10] @>                            Δ-10               {[«10""»]}
            <POP 21318-2131a StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2131a 9>                                                     {[«10""»]|[$$CONFIGURE]}
            <Const 0x2132c 0x1.4>                            Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]}
            <Const 0x21330 0x1.2>                            Δ-2                {[«10""»]|[$$CONFIGURE]|[##1]|[#1]}
            <Pointer.fp 0x21332 <LVAR -0x004 @>>             Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]|[#1]|[@@-4]}
            <Call 0x21336 0x103b0>                                              {[«10""»]|[$$CONFIGURE]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2133c-21340 StackAdj>                       Δ+24               {}
        <POP 21340-21348 Epilogue>                           Σ0         

0x21348


@ 21348
    <POP 21348-2150e Body>                                              
        <POP 21348-2135e Prologue>                           Σ0         ↓
        <POP 2135e-21370 RegCacheLoad>                       Σ0         ↓
        <POP 21370-2137a Naked>                              Σ0         ↓ →0x214e0
            <MI 21370  TST.B   0x26956>                                         {}
            <MI 21376  BNE     0x214e0>                                         {}
        <POP 2137a-21464 Naked>                              Σ0         ↓
            <Blob 0x2137a [8] @>                             Δ-8                {[«8""»]}
            <POP 2138a-2138c StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Blob 0x2138c [4] 0x26958>                       Δ-4                {[«8""»]|[-4-]|[«4»]}
            <POP 21392-21394 StackAdj>                       Δ-4                {[«8""»]|[-4-]|[«4»]|[-4-]}
            <Lit 0x21394 7>                                                     {[«8""»]|[-4-]|[«4»]|[$$ Failed]}
            <Call 0x213a0 0x102d0>                                              {[«8""»]|[-4-]|[«4»]|[$$ Failed]}
                StringCat2(a, b : String) : String
            <POP 213a6-213a8 StackAdj>                       Δ+8                {[«8""»]|[-4-]}
            <Call 0x213a8 0x103e0>                                              {[«8""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 213ae-213b0 StackAdj>                       Δ+12               {}
            <Blob 0x213b0 [36] @>                            Δ-36               {[«36""»]}
            <POP 213bc-213be StackAdj>                       Δ-8                {[«36""»]|[-8-]}
            <Lit 0x213be 36>                                                    {[«36""»]|[-4-]|[$$The test that found the failure was_]}
            <POP 213ca-213cb StackAdj>                       Δ-4                {[«36""»]|[-4-]|[$$The test that found the failure was_]|[-4-]}
            <Blob 0x213cb [4] 0x2695c>                       Δ-4                {[«36""»]|[-4-]|[$$The test that found the failure was_]|[-4-]|[«4»]}
            <Call 0x213cc 0x102cc>                                              {[«36""»]|[-4-]|[$$The test that found the failure was_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 213d2-213d4 StackAdj>                       Δ+4                {[«36""»]|[-4-]|[$$The test that found the failure was_]|[-4-]}
            <Call 0x213d4 0x102d0>                                              {[«36""»]|[-4-]|[$$The test that found the failure was_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213da-213dc StackAdj>                       Δ+8                {[«36""»]|[-4-]}
            <Call 0x213dc 0x103e0>                                              {[«36""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 213e2-213e6 StackAdj>                       Δ+40               {}
            <Call 0x213e6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x213ec [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x213f0 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 213f4-213f6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Blob 0x213f6 [4] 0x2695c>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[«4»]}
            <POP 213f8-213fa StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[«4»]|[-4-]}
            <Lit 0x213fa 8>                                                     {[«4""»]|[«4""»]|[-4-]|[«4»]|[$$.ERRMESS]}
            <Call 0x21408 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[«4»]|[$$.ERRMESS]}
                StringCat2(a, b : String) : String
            <POP 2140e-21410 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21410  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 21412-21414 StackAdj>                       Δ+4                {[«4""»]}
            <MI 21414  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Blob 0x21416 [4] 0x26960>                       Δ-4                {[4, 'A4']|[«4»]}
            <MI 2141c  CLR.L   D0>                                              {[4, 'A4']|[«4»]}
            <MI 2141e  MOVE.B  0x26964,D0>                                      {[4, 'A4']|[«4»]}
            <MI 21424  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A4']|[«4»]|[4, 'D0']}
            <Call 0x21426 0x1044c>                                              {[4, 'A4']|[«4»]|[4, 'D0']}
                WriteErrorMessage(file : String; txt : String; number : Long) : Bool
            <POP 2142c-2142e StackAdj>                       Δ+12               {}
            <Const 0x2142e 0x26960.4>                        Δ-4                {[##158048]}
            <Call 0x21434 0x102bc>                                              {[##158048]}
                FreeString(VAR a : String)
            <POP 2143a-2143c StackAdj>                       Δ+4                {}
            <Blob 0x2143c [26] @>                            Δ-26               {[«26""»]}
            <POP 21448-2144a StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2144a 26>                                                    {[«26""»]|[$$Field replaceable units :_]}
            <Call 0x21458 0x103e0>                                              {[«26""»]|[$$Field replaceable units :_]}
                WriteConsoleStringCrLf(str : String)
            <POP 2145e-21462 StackAdj>                       Δ+30               {}
            <MI 21462  MOVEQ.L #0x00,D7>                                        {}
        <POP 21464-21486 Naked>                              Σ0         ↓ →0x214ac ←0x214ac
            <POP 0x21464 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 2146a  LEA.L   0x2694e,A0>                                      {}
            <MI 21470  CLR.L   D0>                                              {}
            <MI 21472  MOVE.B  (A0+D7.L+#0x17),D0>                              {}
            <MI 21476  MOVE.L  D0,D5>                                           {}
            <MI 21478  MOVE.B  D5,-(A7)>                     Δ-2                {[2, 'D5']}
            <MI 2147a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2147c  EXTB.W  D0>                                              {}
            <POP 0x2147e LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 21482  MOVE.B  D0,D6>                                           {}
            <MI 21484  BEQ     0x214ac>                                         {}
        <POP 21486-214ac Naked>                              Σ0         ↓
            <Blob 0x21486 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2148a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2148e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21492-21494 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21494 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$FRU_LITS.TXT]}
            <POP 2149e-214a0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[$$FRU_LITS.TXT]|[-4-]}
            <MI 214a0  MOVE.L  D5,(A7)>                                         {[«4""»]|[«4""»]|[«4""»]|[$$FRU_LITS.TXT]|[4, 'D5']}
            <Call 0x214a2 0x10450>                                              {[«4""»]|[«4""»]|[«4""»]|[$$FRU_LITS.TXT]|[4, 'D5']}
                FS_10450(&, &)
            <POP 214a8-214ac StackAdj>                       Δ+20               {}
        <POP 214ac-214b2 Naked>                              Σ0         ↓ →0x21464 ←0x21464
            <MI 214ac  ADDQ.L  #0x1,D7>                                         {}
            <MI 214ae  CMP.L   #0x07,D7>                                        {}
            <MI 214b0  BLE     0x21464>                                         {}
        <POP 214b2-214e0 Naked>                              Σ0         →0x21506
            <Blob 0x214b2 [18] @>                            Δ-18               {[«18""»]}
            <POP 214c4-214c6 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x214c6 17>                                                    {[«18""»]|[$$Diagnostic Failed]}
            <Call 0x214d4 0x22e28>                                              {[«18""»]|[$$Diagnostic Failed]}
            <POP 214da-214de StackAdj>                       Δ+22               {}
            <MI 214de  BRA     0x21506>                                         {}
        <POP 214e0-21506 Naked>                              Σ0         ↓ ←0x21370
            <Const 0x214e0 0x26960.4>                        Δ-4                {[##158048]}
            <Call 0x214e6 0x102bc>                                              {[##158048]}
                FreeString(VAR a : String)
            <POP 214ec-214ee StackAdj>                       Δ+4                {}
            <Const 0x214ee 0x2695c.4>                        Δ-4                {[##158044]}
            <Call 0x214f0 0x102bc>                                              {[##158044]}
                FreeString(VAR a : String)
            <POP 214f6-214f8 StackAdj>                       Δ+4                {}
            <Const 0x214f8 0x26958.4>                        Δ-4                {[##158040]}
            <Call 0x214fe 0x102bc>                                              {[##158040]}
                FreeString(VAR a : String)
            <POP 21504-21506 StackAdj>                       Δ+4                {}
        <POP 21506-2150e Epilogue>                           Σ0         ←0x214b2

0x2150e


@ 2150e
CMD_INIT_STATE(?)
        <LVAR -0x004 @ 1(r)>
    <POP 2150e-2159e Body>                                              
        <POP 2150e-21524 Prologue>                           Σ0         ↓
        <POP 21524-21526 RegCacheLoad>                       Σ0         ↓
        <POP 21526-2158a Naked>                              Σ0         ↓ →0x21596
            <Call 0x21526 0x212d2>                                              {}
            <Call 0x2152a 0x10538>                                              {}
                IPC_Init(void)
            <MI 21530  MOVE.B  0x2696e,D0>                                      {}
            <MI 21536  EXTB.W  D0>                                              {}
            <POP 0x21538 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2153a  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2153c 0x10502>                                              {[2, 'D0']}
                IPC_PutBool(a : Bool)
            <POP 21542-21544 StackAdj>                       Δ+2                {}
            <Call 0x21544 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2154a [10] @>                            Δ-10               {[«10""»]}
            <POP 2155c-2155e StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2155e 9>                                                     {[«10""»]|[$$INITSTATE]}
            <Const 0x21570 0x1.4>                            Δ-4                {[«10""»]|[$$INITSTATE]|[##1]}
            <Const 0x21574 0x1.2>                            Δ-2                {[«10""»]|[$$INITSTATE]|[##1]|[#1]}
            <Pointer.fp 0x21576 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«10""»]|[$$INITSTATE]|[##1]|[#1]|[@@-4]}
            <Call 0x2157a 0x103b0>                                              {[«10""»]|[$$INITSTATE]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21580-21584 StackAdj>                       Δ+24               {}
            <MI 21584  TST.B   (A6-0x4)>                                        {}
            <MI 21588  BEQ     0x21596>                                         {}
        <POP 2158a-21596 Naked>                              Σ0         ↓
            <Const 0x2158a 0x1.4>                            Δ-4                {[##1]}
            <Call 0x2158e 0x22e28>                                              {[##1]}
            <POP 21594-21596 StackAdj>                       Δ+4                {}
        <POP 21596-2159e Epilogue>                           Σ0         ←0x21526

0x2159e


@ 2159e
        <LVAR  0x008 1(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 1(rw)>
    <POP 2159e-2162a Body>                                              
        <POP 2159e-215b4 Prologue>                           Σ0         ↓
        <POP 215b4-215b6 RegCacheLoad>                       Σ0         ↓
        <POP 215b6-21612 Naked>                              Σ0         ↓ →0x2161e
            <MI 215b6  MOVE.B  (A6+0x8),(A6-0x2)>                               {}
            <Const 0x215bc 0x1.4>                            Δ-4                {[##1]}
            <MI 215c0  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[##1]|[2, '(A6-0x2)']}
            <MI 215c4  MOVE.B  0x2696d,D0>                                      {[##1]|[2, '(A6-0x2)']}
            <MI 215ca  EXTB.W  D0>                                              {[##1]|[2, '(A6-0x2)']}
            <POP 0x215cc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##1]|[2, '(A6-0x2)']}
            <MI 215ce  MOVE.B  D0,-(A7)>                     Δ-2                {[##1]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 215d0  MOVE.B  0x2696e,D0>                                      {[##1]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 215d6  EXTB.W  D0>                                              {[##1]|[2, '(A6-0x2)']|[2, 'D0']}
            <POP 0x215d8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##1]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 215da  MOVE.B  D0,-(A7)>                     Δ-2                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']}
            <Const 0x215dc 0x26956.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x215e2 0x26958.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]}
            <Const 0x215e8 0x2695c.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]}
            <Const 0x215ee 0x26960.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]}
            <Const 0x215f4 0x26964.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]}
            <Const 0x215fa 0x26965.4>                        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x21600 <LVAR -0x001 @ 1(r)>>        Δ-4                {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <Call 0x21604 0x20cc6>                                              {[##1]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <POP 21608-2160c StackAdj>                       Δ+38               {}
            <MI 2160c  TST.B   (A6-0x1)>                                        {}
            <MI 21610  BEQ     0x2161e>                                         {}
        <POP 21612-2161e Naked>                              Σ0         ↓
            <Const 0x21612 0x1.4>                            Δ-4                {[##1]}
            <Call 0x21616 0x22e28>                                              {[##1]}
            <POP 2161c-2161e StackAdj>                       Δ+4                {}
        <POP 2161e-21622 Naked>                              Σ0         ↓ ←0x215b6
            <Call 0x2161e 0x21348>                                              {}
        <POP 21622-2162a Epilogue>                           Σ0         

0x2162a


@ 2162a
        <LVAR  0x008 1(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 1(rw)>
    <POP 2162a-216ba Body>                                              
        <POP 2162a-21640 Prologue>                           Σ0         ↓
        <POP 21640-21642 RegCacheLoad>                       Σ0         ↓
        <POP 21642-216a2 Naked>                              Σ0         ↓ →0x216ae
            <Call 0x21642 0x2150e>                                              {}
                CMD_INIT_STATE(?)
            <MI 21646  MOVE.B  (A6+0x8),(A6-0x2)>                               {}
            <Const 0x2164c 0x2.4>                            Δ-4                {[##2]}
            <MI 21650  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[##2]|[2, '(A6-0x2)']}
            <MI 21654  MOVE.B  0x2696d,D0>                                      {[##2]|[2, '(A6-0x2)']}
            <MI 2165a  EXTB.W  D0>                                              {[##2]|[2, '(A6-0x2)']}
            <POP 0x2165c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##2]|[2, '(A6-0x2)']}
            <MI 2165e  MOVE.B  D0,-(A7)>                     Δ-2                {[##2]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 21660  MOVE.B  0x2696e,D0>                                      {[##2]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 21666  EXTB.W  D0>                                              {[##2]|[2, '(A6-0x2)']|[2, 'D0']}
            <POP 0x21668 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##2]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 2166a  MOVE.B  D0,-(A7)>                     Δ-2                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']}
            <Const 0x2166c 0x26956.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x21672 0x26958.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]}
            <Const 0x21678 0x2695c.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]}
            <Const 0x2167e 0x26960.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]}
            <Const 0x21684 0x26964.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]}
            <Const 0x2168a 0x26965.4>                        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x21690 <LVAR -0x001 @ 1(r)>>        Δ-4                {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <Call 0x21694 0x20cc6>                                              {[##2]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <POP 21698-2169c StackAdj>                       Δ+38               {}
            <MI 2169c  TST.B   (A6-0x1)>                                        {}
            <MI 216a0  BEQ     0x216ae>                                         {}
        <POP 216a2-216ae Naked>                              Σ0         ↓
            <Const 0x216a2 0x1.4>                            Δ-4                {[##1]}
            <Call 0x216a6 0x22e28>                                              {[##1]}
            <POP 216ac-216ae StackAdj>                       Δ+4                {}
        <POP 216ae-216b2 Naked>                              Σ0         ↓ ←0x21642
            <Call 0x216ae 0x21348>                                              {}
        <POP 216b2-216ba Epilogue>                           Σ0         

0x216ba


@ 216ba
        <LVAR  0x008 1(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 1(rw)>
    <POP 216ba-21746 Body>                                              
        <POP 216ba-216d0 Prologue>                           Σ0         ↓
        <POP 216d0-216d2 RegCacheLoad>                       Σ0         ↓
        <POP 216d2-2172e Naked>                              Σ0         ↓ →0x2173a
            <MI 216d2  MOVE.B  (A6+0x8),(A6-0x2)>                               {}
            <Const 0x216d8 0x3.4>                            Δ-4                {[##3]}
            <MI 216dc  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[##3]|[2, '(A6-0x2)']}
            <MI 216e0  MOVE.B  0x2696d,D0>                                      {[##3]|[2, '(A6-0x2)']}
            <MI 216e6  EXTB.W  D0>                                              {[##3]|[2, '(A6-0x2)']}
            <POP 0x216e8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##3]|[2, '(A6-0x2)']}
            <MI 216ea  MOVE.B  D0,-(A7)>                     Δ-2                {[##3]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 216ec  MOVE.B  0x2696e,D0>                                      {[##3]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 216f2  EXTB.W  D0>                                              {[##3]|[2, '(A6-0x2)']|[2, 'D0']}
            <POP 0x216f4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[##3]|[2, '(A6-0x2)']|[2, 'D0']}
            <MI 216f6  MOVE.B  D0,-(A7)>                     Δ-2                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']}
            <Const 0x216f8 0x26956.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x216fe 0x26958.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]}
            <Const 0x21704 0x2695c.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]}
            <Const 0x2170a 0x26960.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]}
            <Const 0x21710 0x26964.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]}
            <Const 0x21716 0x26965.4>                        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x2171c <LVAR -0x001 @ 1(r)>>        Δ-4                {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <Call 0x21720 0x20cc6>                                              {[##3]|[2, '(A6-0x2)']|[2, 'D0']|[2, 'D0']|[##158038]|[##158040]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-1]}
            <POP 21724-21728 StackAdj>                       Δ+38               {}
            <MI 21728  TST.B   (A6-0x1)>                                        {}
            <MI 2172c  BEQ     0x2173a>                                         {}
        <POP 2172e-2173a Naked>                              Σ0         ↓
            <Const 0x2172e 0x1.4>                            Δ-4                {[##1]}
            <Call 0x21732 0x22e28>                                              {[##1]}
            <POP 21738-2173a StackAdj>                       Δ+4                {}
        <POP 2173a-2173e Naked>                              Σ0         ↓ ←0x216d2
            <Call 0x2173a 0x21348>                                              {}
        <POP 2173e-21746 Epilogue>                           Σ0         

0x21746


@ 21746
CMD_TEST(?)
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x014 @ 4(rw)>
    <POP 21746-2192c Body>                                              
        <POP 21746-2175c Prologue>                           Σ0         ↓
        <POP 2175c-21770 RegCacheLoad>                       Σ0         ↓
        <POP 21770-2179c Naked>                              Σ0 Δ-2     ↓ →0x2179e
            <MI 21770  MOVE.L  #0x3,(A6-0x8)>                                   {}
            <Blob 0x21776 [2] @>                             Δ-2                {[«2""»]}
            <POP 2177a-2177c StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 2177c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <Const 0x2177e 0x0.4>                            Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]}
            <POP 21782-21784 StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[-4-]}
            <Lit 0x21784 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[$$1 ]}
            <Call 0x21790 0x21270>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[$$1 ]}
            <POP 21794-21798 StackAdj>                       Δ+12               {[«2""»]|[-2-]}
            <MI 21798  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 2179a  BEQ     0x2179e>                                         {[«2""»]}
        <POP 2179c-2179e Naked>                              Σ-2        ↓
            <MI 2179c  MOVE.L  #0x01,(A6-0x8)>                                  {[-2-]}
        <POP 2179e-217c4 Naked>                              Σ-2        ↓ →0x217c6 ←0x21770
            <POP 2179e-2179f StackAdj>                       Δ+2                {}
            <Blob 0x2179f [2] @>                             Δ-2                {[«2""»]}
            <POP 217a2-217a4 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 217a4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']}
            <Const 0x217a6 0x0.4>                            Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]}
            <POP 217aa-217ac StackAdj>                       Δ-4                {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[-4-]}
            <Lit 0x217ac 2>                                                     {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[$$2 ]}
            <Call 0x217b8 0x21270>                                              {[«2""»]|[-2-]|[4, '(A6+0x8)']|[##0]|[$$2 ]}
            <POP 217bc-217c0 StackAdj>                       Δ+12               {[«2""»]|[-2-]}
            <MI 217c0  TST.B   (A7)+>                        Δ+2                {[«2""»]}
            <MI 217c2  BEQ     0x217c6>                                         {[«2""»]}
        <POP 217c4-217c6 Naked>                              Σ-2        ↓
            <MI 217c4  MOVE.L  #0x02,(A6-0x8)>                                  {[-2-]}
        <POP 217c6-217f6 Naked>                              Σ-2 Δ+2    ↓ ←0x2179e
            <POP 217c6-217c8 StackAdj>                       Δ+2                {}
            <Blob 0x217c8 [10] @>                            Δ-10               {[«10""»]}
            <MI 217d4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x217d6 0x1.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <Call 0x217da 0x23272>                                              {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <POP 217e0-217e2 StackAdj>                       Δ+10               {[-8-]}
            <MI 217e2  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x217e4 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x217e8 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 217ee-217f0 StackAdj>                       Δ+8                {[-4-]}
            <MI 217f0  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 217f4  MOVEQ.L #0x00,D7>                                        {}
        <POP 217f6-217fc Naked>                              Σ0         ↓ →0x21826 ←0x21880
            <MI 217f6  MOVE.B  D7,D5>                                           {}
            <MI 217f8  CMP.B   #0x02,D7>                                        {}
            <MI 217fa  BNE     0x21826>                                         {}
        <POP 217fc-21826 Naked>                              Σ0         →0x21854
            <POP 217fc-217fe StackAdj>                       Δ-4                {[-4-]}
            <POP 217fe-217ff StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x217ff [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 21802  MOVE.B  0x2023b,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21808  MOVE.B  0x2023c,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2180e-21810 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x21810>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x21810 4>                       Δ-4        
                <Const 0x21814 0x1.2>                        Δ-2        
                <Const 0x21816 0x3.2>                        Δ-2        
                <Call 0x2181a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2181c-2181e StackAdj>                   Δ+8        
            <MI 2181e  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[-2-]|[«2""»]}
            <POP 21822-21824 StackAdj>                       Δ+4                {}
            <MI 21824  BRA     0x21854>                                         {}
        <POP 21826-21854 Naked>                              Σ0         ↓ ←0x217f6
            <MI 21826  MOVE.B  D7,D0>                                           {}
            <MI 21828  EXTB.W  D0>                                              {}
            <MI 2182a  MULS.W  #0x0a,D0>                                        {}
            <MI 2182c  LEA.L   0x2095c,A0>                                      {}
            <Blob 0x21830 [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 21840-21842 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x21842>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x21842 4>                       Δ-4        
                <Const 0x21846 0x1.2>                        Δ-2        
                <Const 0x21848 0xa.2>                        Δ-2        
                <Call 0x2184a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2184c-2184e StackAdj>                   Δ+8        
            <MI 2184e  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«10»]}
            <POP 21852-21854 StackAdj>                       Δ+10               {}
        <POP 21854-2187e Naked>                              Σ0         ↓ →0x21880 ←0x217fc
            <POP 21854-21856 StackAdj>                       Δ-2                {[-2-]}
            <MI 21856  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x14)']}
            <MI 2185a  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x14)']|[4, '(A6-0xe)']}
            <Call 0x2185e 0x102c8>                                              {[-2-]|[4, '(A6-0x14)']|[4, '(A6-0xe)']}
                StringEqual(a, b : String) : Byte
            <POP 21864-21866 StackAdj>                       Δ+8                {[-2-]}
            <MI 21866  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21868  EXTB.W  D0>                                              {}
            <POP 0x2186a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2186c  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x2186e <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x21872 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 21878-2187a StackAdj>                       Δ+4                {}
            <MI 2187a  TST.B   D6>                                              {}
            <MI 2187c  BEQ     0x21880>                                         {}
        <POP 2187e-21880 Naked>                              Σ0         →0x2188a
            <MI 2187e  BRA     0x2188a>                                         {}
        <POP 21880-2188a Naked>                              Σ0         ↓ →0x217f6 ←0x21854
            <MI 21880  ADDQ.B  #0x1,D7>                                         {}
            <MI 21882  CMPI.B  #0x0b,D7>                                        {}
            <MI 21886  BLE     0x217f6>                                         {}
        <POP 2188a-2188e Naked>                              Σ0         ↓ →0x218c6 ←0x2187e
            <MI 2188a  TST.B   D6>                                              {}
            <MI 2188c  BNE     0x218c6>                                         {}
        <POP 2188e-218c6 Naked>                              Σ0         →0x21900
            <Blob 0x2188e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21892 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21896 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2189a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2189e-218a0 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x218a0 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Not a valid FRU_]}
            <POP 218ac-218ae StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Not a valid FRU_]|[-4-]}
            <MI 218ae  MOVE.L  (A6-0x14),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Not a valid FRU_]|[4, '(A6-0x14)']}
            <Call 0x218b2 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Not a valid FRU_]|[4, '(A6-0x14)']}
                StringCat2(a, b : String) : String
            <POP 218b8-218ba StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x218ba 0x22e28>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <POP 218c0-218c4 StackAdj>                       Δ+20               {}
            <MI 218c4  BRA     0x21900>                                         {}
        <POP 218c6-218e8 Naked>                              Σ0         ↓ →0x218f0 ←0x2188a
            <Pointer.fp 0x218c6 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x218ca 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 218d0-218d2 StackAdj>                       Δ+4                {}
            <MI 218d2  MOVE.B  D5,D0>                                           {}
            <MI 218d4  EXTB.W  D0>                                              {}
            <POP 0x218d6 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 218da  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x218dc 0x2159e>                                              {[2, 'D0']}
            <POP 218e0-218e2 StackAdj>                       Δ+2                {}
            <MI 218e2  MOVE.L  (A6-0x8),D1>                                     {}
            <MI 218e4  CMP.L   #0x01,D1>                                        {}
            <MI 218e6  BLE     0x218f0>                                         {}
        <POP 218e8-218f0 Naked>                              Σ0         ↓
            <MI 218e8  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x218ea 0x2162a>                                              {[2, 'D0']}
            <POP 218ee-218f0 StackAdj>                       Δ+2                {}
        <POP 218f0-218f8 Naked>                              Σ0         ↓ →0x21900 ←0x218c6
            <MI 218f0  CMPI.L  #0x00000003,D1>                                  {}
            <MI 218f6  BNE     0x21900>                                         {}
        <POP 218f8-21900 Naked>                              Σ0         ↓
            <MI 218f8  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x218fa 0x216ba>                                              {[2, 'D0']}
            <POP 218fe-21900 StackAdj>                       Δ+2                {}
        <POP 21900-21924 Naked>                              Σ0         ↓ ←0x2188e ←0x218f0
            <Blob 0x21900 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21904 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21908 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2190c-2190e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2190e 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$PASSED]}
            <Call 0x2191c 0x103e0>                                              {[«2""»]|[«2""»]|[«2""»]|[$$PASSED]}
                WriteConsoleStringCrLf(str : String)
            <POP 21922-21924 StackAdj>                       Δ+10               {}
        <POP 21924-2192c Epilogue>                           Σ0         

0x2192c


@ 2192c
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 2192c-219f0 Body>                                              
        <POP 2192c-21942 Prologue>                           Σ0         ↓
        <POP 21942-2194a RegCacheLoad>                       Σ0         ↓
        <POP 2194a-21950 Naked>                              Σ0         ↓
            <MI 2194a  MOVE.B  #0x01,(A6+0xc)>                                  {}
            <MI 2194e  MOVEQ.L #0x00,D7>                                        {}
        <POP 21950-21956 Naked>                              Σ0         ↓ →0x21982 ←0x219de
            <MI 21950  CMPI.B  #0x04,D7>                                        {}
            <MI 21954  BNE     0x21982>                                         {}
        <POP 21956-21982 Naked>                              Σ0         →0x219b2
            <POP 21956-21958 StackAdj>                       Δ-4                {[-4-]}
            <POP 21958-21959 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21959 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2195c  MOVE.B  0x202f5,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21962  MOVE.B  0x202f6,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 21968-2196a StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2196a>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2196a 4>                       Δ-4        
                <Const 0x2196e 0x1.2>                        Δ-2        
                <Const 0x21970 0x3.2>                        Δ-2        
                <Call 0x21974 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2197a-2197c StackAdj>                   Δ+8        
            <MI 2197c  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[-2-]|[«2""»]}
            <POP 2197e-21980 StackAdj>                       Δ+4                {}
            <MI 21980  BRA     0x219b2>                                         {}
        <POP 21982-219b2 Naked>                              Σ0         ↓ ←0x21950
            <MI 21982  MOVE.B  D7,D0>                                           {}
            <MI 21984  EXTB.W  D0>                                              {}
            <MI 21986  MULS.W  #0x0a,D0>                                        {}
            <MI 21988  LEA.L   0x209d4,A0>                                      {}
            <Blob 0x2198c [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 2199c-2199e StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x2199e>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x2199e 4>                       Δ-4        
                <Const 0x219a2 0x1.2>                        Δ-2        
                <Const 0x219a4 0xa.2>                        Δ-2        
                <Call 0x219a6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 219ac-219ae StackAdj>                   Δ+8        
            <MI 219ae  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«10»]}
            <POP 219b0-219b2 StackAdj>                       Δ+10               {}
        <POP 219b2-219d8 Naked>                              Σ0         ↓ →0x219de ←0x21956
            <POP 219b2-219b4 StackAdj>                       Δ-2                {[-2-]}
            <MI 219b4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <MI 219b8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x219ba 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
                StringEqual(a, b : String) : Byte
            <POP 219c0-219c2 StackAdj>                       Δ+8                {[-2-]}
            <MI 219c2  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 219c4  EXTB.W  D0>                                              {}
            <POP 0x219c6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 219c8  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x219ca <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x219cc 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 219d2-219d4 StackAdj>                       Δ+4                {}
            <MI 219d4  TST.B   D6>                                              {}
            <MI 219d6  BEQ     0x219de>                                         {}
        <POP 219d8-219de Naked>                              Σ0         →0x219e8
            <MI 219d8  MOVE.B  D7,(A6+0xc)>                                     {}
            <MI 219dc  BRA     0x219e8>                                         {}
        <POP 219de-219e8 Naked>                              Σ0         ↓ →0x21950 ←0x219b2
            <MI 219de  ADDQ.B  #0x1,D7>                                         {}
            <MI 219e0  CMPI.B  #0x0f,D7>                                        {}
            <MI 219e4  BLE     0x21950>                                         {}
        <POP 219e8-219f0 Epilogue>                           Σ0         ←0x219d8

0x219f0


@ 219f0
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
    <POP 219f0-21ae2 Body>                                   Δ+4        
        <POP 219f0-21a06 Prologue>                           Σ0         ↓
        <POP 21a06-21a0e RegCacheLoad>                       Σ0         ↓
        <POP 21a0e-21a10 Naked>                              Σ0         ↓
            <MI 21a0e  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a10-21a18 Naked>                              Σ0         ↓ →0x21a44 ←0x21ac0
            <MI 21a10  CMPI.L  #0x00000002,D7>                                  {}
            <MI 21a16  BNE     0x21a44>                                         {}
        <POP 21a18-21a40 Naked>                              Σ0 Δ-4     ↓
            <POP 21a18-21a1a StackAdj>                       Δ-4                {[-4-]}
            <POP 21a1a-21a1b StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21a1b [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 21a1e  MOVE.B  0x20439,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21a24  MOVE.B  0x2043a,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 21a2a-21a2c StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x21a2c>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x21a2c 4>                       Δ-4        
                <Const 0x21a30 0x1.2>                        Δ-2        
                <Const 0x21a32 0x3.2>                        Δ-2        
                <Call 0x21a36 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21a3c-21a3e StackAdj>                   Δ+8        
            <MI 21a3e  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-2-]|[«2""»]}
        <POP 21a40-21a44 Naked>                              Σ-4 Δ+4    →0x21a94 ←0x21a4c
            <POP 21a40-21a42 StackAdj>                       Δ+4                {}
            <MI 21a42  BRA     0x21a94>                                         {}
        <POP 21a44-21a4c Naked>                              Σ0         ↓ →0x21a56 ←0x21a10
            <MI 21a44  CMPI.L  #0x00000016,D7>                                  {}
            <MI 21a4a  BNE     0x21a56>                                         {}
        <POP 21a4c-21a56 Naked>                              Σ0 Δ-4     →0x21a40
            <Pointer.fp 0x21a4c <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x21a4e 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <MI 21a54  BRA     0x21a40>                                         {[@@-4]}
        <POP 21a56-21a94 Naked>                              Σ0         ↓ ←0x21a44
            <POP 0x21a56 LimitCheck 0x0 ≤ D7 ≤ 0x1f>                            {}
            <MI 21a60  MOVE.L  D7,D4>                                           {}
            <MI 21a62  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x21a64 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21a6a  LEA.L   0x20a74,A0>                                      {}
            <Blob 0x21a6e [10] (A0+D4.L)>                    Δ-10               {[«10»]}
            <POP 21a7e-21a80 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x21a80>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x21a80 4>                       Δ-4        
                <Const 0x21a84 0x1.2>                        Δ-2        
                <Const 0x21a86 0xa.2>                        Δ-2        
                <Call 0x21a88 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21a8e-21a90 StackAdj>                   Δ+8        
            <MI 21a90  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[«10»]}
            <POP 21a92-21a94 StackAdj>                       Δ+10               {}
        <POP 21a94-21ac0 Naked>                              Σ0         ↓ →0x21aca ←0x21a40
            <MI 21a94  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21a98-21a9a StackAdj>                       Δ-2                {[-2-]}
            <MI 21a9a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x10)']}
            <MI 21a9e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
            <Call 0x21aa0 0x102c8>                                              {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 21aa6-21aa8 StackAdj>                       Δ+8                {[-2-]}
            <MI 21aa8  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21aaa  EXTB.W  D0>                                              {}
            <POP 0x21aac LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21aae  MOVE.B  D0,(A0)>                                         {}
            <Pointer.fp 0x21ab0 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x21ab2 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 21ab8-21aba StackAdj>                       Δ+4                {}
            <MI 21aba  ADDQ.L  #0x1,D7>                                         {}
            <MI 21abc  TST.B   D0>                                              {}
            <MI 21abe  BNE     0x21aca>                                         {}
        <POP 21ac0-21aca Naked>                              Σ0         ↓ →0x21a10
            <MI 21ac0  CMPI.L  #0x00000020,D7>                                  {}
            <MI 21ac6  BNE     0x21a10>                                         {}
        <POP 21aca-21ada Naked>                              Σ0         ↓ ←0x21a94
            <MI 21aca  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 0x21ace LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {}
            <MI 21ad8  MOVE.B  D7,(A0)>                                         {}
        <POP 21ada-21ae2 Epilogue>                           Σ0         

0x21ae2


@ 21ae2
CMD_RUN(?)
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x012 @ 4(rw)>
        <LVAR -0x016 @ 4(rw)>
        <LVAR -0x017 @ 1(rw)>
        <LVAR -0x018 @ 1(r)>
    <POP 21ae2-21ea4 Body>                                              
        <POP 21ae2-21af8 Prologue>                           Σ0         ↓
        <POP 21af8-21b0e RegCacheLoad>                       Σ0         ↓
        <POP 21b0e-21b26 Naked>                              Σ0         ↓ →0x21de4
            <POP 21b0e-21b10 StackAdj>                       Δ-4                {[-4-]}
            <MI 21b10  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x21b12 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 21b18-21b1a StackAdj>                       Δ+4                {[-4-]}
            <MI 21b1a  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 21b1c  CMPI.L  #0x00000002,D0>                                  {}
            <MI 21b22  BNE     0x21de4>                                         {}
        <POP 21b26-21bc4 Naked>                              Σ0         ↓ →0x21cdc
            <POP 21b26-21b28 StackAdj>                       Δ-4                {[-4-]}
            <MI 21b28  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21b2a 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x21b2e 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 21b34-21b36 StackAdj>                       Δ+8                {[-4-]}
            <MI 21b36  MOVE.L  (A7),0x26958>                                    {[-4-]}
            <POP 21b38-21b39 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21b39 [8] @>                             Δ-8                {[«8""»]}
            <POP 21b48-21b4a StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x21b4a 7>                                                     {[«8""»]|[$$P2UCODE]}
            <MI 21b56  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[«8""»]}
            <MI 21b5a  MOVEA.L A7,A0>                                           {[«8""»]}
            <MI 21b5c  LEA.L   0x20468,A1>                                      {[«8""»]}
            <BlockMove 7,A1,A0>                                                 {[«8""»]}
            <POP 21b68-21b6a StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x21b6a 7>                                                     {[«8""»]|[$$P2UCODE]}
            <MI 21b76  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«8""»]}
            <POP 21b7a-21b7c StackAdj>                       Δ+2                {[-6-]}
            <MI 21b7c  MOVE.L  (A6-0x12),(A7)>                                  {[-2-]|[4, '(A6-0x12)']}
            <Blob 0x21b80 [4] 0x26958>                       Δ-4                {[-2-]|[4, '(A6-0x12)']|[«4»]}
            <Call 0x21b82 0x102c8>                                              {[-2-]|[4, '(A6-0x12)']|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 21b88-21b8a StackAdj>                       Δ+2                {[-2-]|[4, '(A6-0x12)']|[-2-]}
            <MI 21b8a  MOVE.L  (A6-0xe),(A7)>                                   {[-2-]|[-2-]|[4, '(A6-0xe)']}
            <Blob 0x21b8e [4] 0x26958>                       Δ-4                {[-2-]|[-2-]|[4, '(A6-0xe)']|[«4»]}
            <Call 0x21b90 0x102c8>                                              {[-2-]|[-2-]|[4, '(A6-0xe)']|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 21b96-21b98 StackAdj>                       Δ+8                {[-2-]|[-2-]}
            <MI 21b98  MOVE.B  (A7+0x2),D0>                                     {[-2-]|[-2-]}
            <MI 21b9c  OR.B    (A7)+,D0>                     Δ+2                {[-2-]}
            <POP 21b9e-21ba0 StackAdj>                       Δ+2                {}
            <MI 21ba0  EXTB.W  D0>                                              {}
            <POP 0x21ba2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21ba4  MOVE.B  D0,D7>                                           {}
            <Pointer.fp 0x21ba6 <LVAR -0x012 @ 4(rw)>>       Δ-4                {[@@-18]}
            <Call 0x21baa 0x102bc>                                              {[@@-18]}
                FreeString(VAR a : String)
            <POP 21bb0-21bb2 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21bb2 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x21bb6 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 21bbc-21bbe StackAdj>                       Δ+4                {}
            <MI 21bbe  TST.B   D7>                                              {}
            <MI 21bc0  BEQ     0x21cdc>                                         {}
        <POP 21bc4-21bf0 Naked>                              Σ0         ↓ →0x21c28
            <POP 21bc4-21bc6 StackAdj>                       Δ-4                {[-4-]}
            <MI 21bc6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21bc8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21bcc 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 21bd2-21bd4 StackAdj>                       Δ+8                {[-4-]}
            <MI 21bd4  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 21bd8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Pointer.fp 0x21bdc <LVAR -0x017 @ 1(rw)>>       Δ-4                {[4, '(A6-0x8)']|[@@-23]}
            <Pointer.fp 0x21be0 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@-23]|[@@-4]}
            <Call 0x21be4 0x219f0>                                              {[4, '(A6-0x8)']|[@@-23]|[@@-4]}
            <POP 21be8-21bea StackAdj>                       Δ+12               {}
            <MI 21bea  TST.B   (A6-0x4)>                                        {}
            <MI 21bee  BNE     0x21c28>                                         {}
        <POP 21bf0-21c28 Naked>                              Σ0         ↓
            <Blob 0x21bf0 [16] @>                            Δ-16               {[«16""»]}
            <POP 21c02-21c04 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x21c04 15>                                                    {[«16""»]|[-4-]|[$$Unknown test :_]}
            <POP 21c10-21c12 StackAdj>                       Δ-4                {[«16""»]|[-4-]|[$$Unknown test :_]|[-4-]}
            <MI 21c12  MOVE.L  (A6-0x8),(A7)>                                   {[«16""»]|[-4-]|[$$Unknown test :_]|[4, '(A6-0x8)']}
            <Call 0x21c16 0x102d0>                                              {[«16""»]|[-4-]|[$$Unknown test :_]|[4, '(A6-0x8)']}
                StringCat2(a, b : String) : String
            <POP 21c1c-21c1e StackAdj>                       Δ+8                {[«16""»]|[-4-]}
            <Call 0x21c1e 0x22e28>                                              {[«16""»]|[-4-]}
            <POP 21c24-21c28 StackAdj>                       Δ+20               {}
        <POP 21c28-21cdc Naked>                              Σ0         →0x21de2 ←0x21bc4
            <Pointer.fp 0x21c28 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21c2c 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21c32-21c34 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21c34 [4] 0x26972>                       Δ-4                {[-2-]|[«4»]}
            <Blob 0x21c3a [4] 0x26958>                       Δ-4                {[-2-]|[«4»]|[«4»]}
            <Call 0x21c3c 0x102c8>                                              {[-2-]|[«4»]|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 21c42-21c44 StackAdj>                       Δ+8                {[-2-]}
            <MI 21c44  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21c46  EXTB.W  D0>                                              {}
            <POP 0x21c48 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21c4a  MOVE.B  D0,0x26970>                                      {}
            <MI 21c50  NEG.B   D0>                                              {}
            <MI 21c52  ADDQ.B  #0x1,D0>                                         {}
            <MI 21c54  OR.B    0x2696f,D0>                                      {}
            <MI 21c5a  EXTB.W  D0>                                              {}
            <POP 0x21c5c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21c5e  MOVE.B  D0,D6>                                           {}
            <Const 0x21c60 0x26972.4>                        Δ-4                {[##158066]}
            <Call 0x21c66 0x102bc>                                              {[##158066]}
                FreeString(VAR a : String)
            <Blob 0x21c6c [4] 0x26958>                       Δ-4                {[##158066]|[«4»]}
            <Call 0x21c6e 0x102cc>                                              {[##158066]|[«4»]}
                StringDup(a : String) : String
            <POP 21c74-21c76 StackAdj>                       Δ+4                {[##158066]}
            <MI 21c76  MOVE.L  (A7)+,0x26972>                Δ+4                {}
            <MI 21c7c  MOVE.B  D6,D0>                                           {}
            <MI 21c7e  EXTB.W  D0>                                              {}
            <POP 0x21c80 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21c82  MOVE.B  (A6-0x17),-(A7)>              Δ-2                {[2, '(A6-0x17)']}
            <POP 21c86-21c88 StackAdj>                       Δ-4                {[2, '(A6-0x17)']|[-4-]}
            <Blob 0x21c88 [4] 0x26958>                       Δ-4                {[2, '(A6-0x17)']|[-4-]|[«4»]}
            <Call 0x21c8a 0x102cc>                                              {[2, '(A6-0x17)']|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 21c90-21c92 StackAdj>                       Δ+4                {[2, '(A6-0x17)']|[-4-]}
            <MI 21c92  MOVE.B  0x2696d,D1>                                      {[2, '(A6-0x17)']|[-4-]}
            <MI 21c98  EXTB.W  D1>                                              {[2, '(A6-0x17)']|[-4-]}
            <POP 0x21c9a LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[2, '(A6-0x17)']|[-4-]}
            <MI 21c9c  MOVE.B  D1,-(A7)>                     Δ-2                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']}
            <MI 21c9e  MOVE.B  0x2696e,D1>                                      {[2, '(A6-0x17)']|[-4-]|[2, 'D1']}
            <MI 21ca4  EXTB.W  D1>                                              {[2, '(A6-0x17)']|[-4-]|[2, 'D1']}
            <POP 0x21ca6 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[2, '(A6-0x17)']|[-4-]|[2, 'D1']}
            <MI 21ca8  MOVE.B  D1,-(A7)>                     Δ-2                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']}
            <MI 21caa  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']}
            <MI 21cac  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']}
            <Const 0x21cae 0x26956.4>                        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x21cb4 0x2695c.4>                        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]}
            <Const 0x21cba 0x26960.4>                        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]}
            <Const 0x21cc0 0x26964.4>                        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]}
            <Const 0x21cc6 0x26965.4>                        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x21ccc <LVAR -0x018 @ 1(r)>>        Δ-4                {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <Call 0x21cd0 0x210e8>                                              {[2, '(A6-0x17)']|[-4-]|[2, 'D1']|[2, 'D1']|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <POP 21cd4-21cd8 StackAdj>                       Δ+38               {}
            <MI 21cd8  BRA     0x21de2>                                         {}
        <POP 21cdc-21d14 Naked>                              Σ0         ↓ →0x21d4c ←0x21b26
            <POP 21cdc-21cde StackAdj>                       Δ-4                {[-4-]}
            <MI 21cde  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21ce0 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21ce4 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 21cea-21cec StackAdj>                       Δ+8                {[-4-]}
            <MI 21cec  MOVE.L  (A7),(A6-0x16)>                                  {[-4-]}
            <POP 21cf0-21cf2 StackAdj>                       Δ+2                {[-2-]}
            <MI 21cf2  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x16)']}
            <Call 0x21cf6 0x2192c>                                              {[-2-]|[4, '(A6-0x16)']}
            <POP 21cfa-21cfc StackAdj>                       Δ+4                {[-2-]}
            <MI 21cfc  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21cfe  EXTB.W  D0>                                              {}
            <POP 0x21d00 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 21d04  MOVE.B  D0,D5>                                           {}
            <MI 21d06  MOVE.B  D5,D0>                                           {}
            <MI 21d08  EXTB.W  D0>                                              {}
            <MI 21d0a  MOVE.W  D0,D1>                                           {}
            <MI 21d0c  SUBQ.W  #0x2,D1>                                         {}
            <MI 21d0e  CMPI.W  #0x000d,D1>                                      {}
            <MI 21d12  BHI     0x21d4c>                                         {}
        <POP 21d14-21d1e Naked>                              Σ0         →0x21d3a →0x21d3a →0x21d3a →0x21d3a →0x21d3a →0x21d3a →0x21d3a →0x21d4c →0x21d4c →0x21d4c →0x21d3a →0x21d3a →0x21d3a →0x21d3a
            <MI 21d14  ADD.W   D1,D1>                                           {}
            <MI 21d16  SWITCH  D1.W>                                            {}
        <POP 21d3a-21d4c Naked>                              Σ0         →0x21d84 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14 ←0x21d14
            <MI 21d3a  EXTW.L  D0>                                              {}
            <POP 0x21d3c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21d46  MOVE.B  D0,(A6-0x17)>                                    {}
            <MI 21d4a  BRA     0x21d84>                                         {}
        <POP 21d4c-21d84 Naked>                              Σ0         ↓ ←0x21cdc ←0x21d14 ←0x21d14 ←0x21d14
            <Blob 0x21d4c [36] @>                            Δ-36               {[«36""»]}
            <POP 21d5e-21d60 StackAdj>                       Δ-8                {[«36""»]|[-8-]}
            <Lit 0x21d60 35>                                                    {[«36""»]|[-4-]|[$$Illegal board name for RUN command_]}
            <POP 21d6c-21d6e StackAdj>                       Δ-4                {[«36""»]|[-4-]|[$$Illegal board name for RUN command_]|[-4-]}
            <MI 21d6e  MOVE.L  (A6-0x16),(A7)>                                  {[«36""»]|[-4-]|[$$Illegal board name for RUN command_]|[4, '(A6-0x16)']}
            <Call 0x21d72 0x102d0>                                              {[«36""»]|[-4-]|[$$Illegal board name for RUN command_]|[4, '(A6-0x16)']}
                StringCat2(a, b : String) : String
            <POP 21d78-21d7a StackAdj>                       Δ+8                {[«36""»]|[-4-]}
            <Call 0x21d7a 0x22e28>                                              {[«36""»]|[-4-]}
            <POP 21d80-21d84 StackAdj>                       Δ+40               {}
        <POP 21d84-21de2 Naked>                              Σ0         ↓ ←0x21d3a
            <Pointer.fp 0x21d84 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x21d88 0x102bc>                                              {[@@-22]}
                FreeString(VAR a : String)
            <POP 21d8e-21d90 StackAdj>                       Δ+2                {[-2-]}
            <MI 21d90  MOVE.B  (A6-0x17),(A7)>                                  {[-2-]}
            <POP 21d94-21d96 StackAdj>                       Δ-4                {[-6-]}
            <Blob 0x21d96 [4] 0x26958>                       Δ-4                {[-6-]|[«4»]}
            <Call 0x21d98 0x102cc>                                              {[-6-]|[«4»]}
                StringDup(a : String) : String
            <POP 21d9e-21da0 StackAdj>                       Δ+4                {[-6-]}
            <MI 21da0  MOVE.B  0x2696d,D0>                                      {[-6-]}
            <MI 21da6  EXTB.W  D0>                                              {[-6-]}
            <POP 0x21da8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-6-]}
            <MI 21daa  MOVE.B  D0,-(A7)>                     Δ-2                {[-6-]|[2, 'D0']}
            <MI 21dac  MOVE.B  0x2696e,D0>                                      {[-6-]|[2, 'D0']}
            <MI 21db2  EXTB.W  D0>                                              {[-6-]|[2, 'D0']}
            <POP 0x21db4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-6-]|[2, 'D0']}
            <MI 21db6  MOVE.B  D0,-(A7)>                     Δ-2                {[-6-]|[2, 'D0']|[2, 'D0']}
            <Const 0x21db8 0x26956.4>                        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x21dbe 0x2695c.4>                        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]}
            <Const 0x21dc4 0x26960.4>                        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]}
            <Const 0x21dca 0x26964.4>                        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]}
            <Const 0x21dd0 0x26965.4>                        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x21dd6 <LVAR -0x018 @ 1(r)>>        Δ-4                {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <Call 0x21dda 0x20fda>                                              {[-6-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <POP 21dde-21de2 StackAdj>                       Δ+34               {}
        <POP 21de2-21de4 Naked>                              Σ0         →0x21e5c ←0x21c28
            <MI 21de2  BRA     0x21e5c>                                         {}
        <POP 21de4-21e5c Naked>                              Σ0         ↓ ←0x21b0e
            <Blob 0x21de4 [10] @>                            Δ-10               {[«10""»]}
            <MI 21df0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x21df2 0x1.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21df6 0x23272>                                              {[«10""»]|[4, '(A6+0x8)']|[##1]}
            <POP 21dfc-21e00 StackAdj>                       Δ+10               {[-8-]}
            <MI 21e00  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21e02 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21e06 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 21e0c-21e0e StackAdj>                       Δ+8                {[-4-]}
            <MI 21e0e  MOVE.L  (A7),0x26958>                                    {[-4-]}
            <Blob 0x21e10 [4] 0x26958>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x21e12 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 21e18-21e1a StackAdj>                       Δ+4                {[-4-]}
            <MI 21e1a  MOVE.B  0x2696d,D0>                                      {[-4-]}
            <MI 21e20  EXTB.W  D0>                                              {[-4-]}
            <POP 0x21e22 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-4-]}
            <MI 21e24  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <MI 21e26  MOVE.B  0x2696e,D0>                                      {[-4-]|[2, 'D0']}
            <MI 21e2c  EXTB.W  D0>                                              {[-4-]|[2, 'D0']}
            <POP 0x21e2e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-4-]|[2, 'D0']}
            <MI 21e30  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']|[2, 'D0']}
            <Const 0x21e32 0x26956.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]}
            <Const 0x21e38 0x2695c.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]}
            <Const 0x21e3e 0x26960.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]}
            <Const 0x21e44 0x26964.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]}
            <Const 0x21e4a 0x26965.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]}
            <Pointer.fp 0x21e50 <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <Call 0x21e54 0x20ede>                                              {[-4-]|[2, 'D0']|[2, 'D0']|[##158038]|[##158044]|[##158048]|[##158052]|[##158053]|[@@-24]}
            <POP 21e58-21e5c StackAdj>                       Δ+32               {}
        <POP 21e5c-21e62 Naked>                              Σ0         ↓ →0x21e6e ←0x21de2
            <MI 21e5c  TST.B   (A6-0x18)>                                       {}
            <MI 21e60  BEQ     0x21e6e>                                         {}
        <POP 21e62-21e6e Naked>                              Σ0         ↓
            <Const 0x21e62 0x1.4>                            Δ-4                {[##1]}
            <Call 0x21e66 0x22e28>                                              {[##1]}
            <POP 21e6c-21e6e StackAdj>                       Δ+4                {}
        <POP 21e6e-21e9c Naked>                              Σ0         ↓ ←0x21e5c
            <Call 0x21e6e 0x21348>                                              {}
            <Blob 0x21e72 [12] @>                            Δ-12               {[«12""»]}
            <POP 21e82-21e84 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x21e84 11>                                                    {[«12""»]|[$$TEST PASSED]}
            <Call 0x21e92 0x103e0>                                              {[«12""»]|[$$TEST PASSED]}
                WriteConsoleStringCrLf(str : String)
            <POP 21e98-21e9c StackAdj>                       Δ+16               {}
        <POP 21e9c-21ea4 Epilogue>                           Σ0         

0x21ea4


@ 21ea4
CMD_ERRMESS(?)
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 21ea4-21f80 Body>                                   Δ+12       
        <POP 21ea4-21eba Prologue>                           Σ0         ↓
        <POP 21eba-21ec4 RegCacheLoad>                       Σ0         ↓
        <POP 21ec4-21edc Naked>                              Σ0         ↓ →0x21ee6
            <MI 21ec4  MOVE.L  #0x01,(A6-0xc)>                                  {}
            <POP 21ec6-21ec8 StackAdj>                       Δ-4                {[-4-]}
            <MI 21ec8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x21eca 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 21ed0-21ed2 StackAdj>                       Δ+4                {[-4-]}
            <MI 21ed2  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 21ed4  CMPI.L  #0x00000002,D0>                                  {}
            <MI 21eda  BNE     0x21ee6>                                         {}
        <POP 21edc-21ee6 Naked>                              Σ0 Δ-12    →0x21f18
            <POP 21edc-21ede StackAdj>                       Δ-4                {[-4-]}
            <MI 21ede  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21ee0 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <MI 21ee4  BRA     0x21f18>                                         {[-4-]|[4, '(A6+0x8)']|[##2]}
        <POP 21ee6-21f18 Naked>                              Σ0 Δ-12    ↓ ←0x21ec4
            <Blob 0x21ee6 [10] @>                            Δ-10               {[«10""»]}
            <MI 21ef2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x21ef4 0x3.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##3]}
            <Call 0x21ef8 0x23272>                                              {[«10""»]|[4, '(A6+0x8)']|[##3]}
            <POP 21efe-21f02 StackAdj>                       Δ+10               {[-8-]}
            <MI 21f02  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21f04 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x21f08 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 21f0e-21f10 StackAdj>                       Δ+8                {[-4-]}
            <MI 21f10  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 21f12  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21f14 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
        <POP 21f18-21f6e Naked>                              Σ-12 Δ+12  ↓ →0x21f78 ←0x21edc
            <Call 0x21f18 0x23bd4>                                              {[-12-]}
            <POP 21f1e-21f20 StackAdj>                       Δ+8                {[-4-]}
            <MI 21f20  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <Blob 0x21f22 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21f26 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21f2a-21f2c StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-8-]}
            <MI 21f2c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x21f2e 0x1.4>                            Δ-4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21f32 0x23b66>                                              {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 21f38-21f3a StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
            <Lit 0x21f3a 8>                                                     {[«4""»]|[«4""»]|[-8-]|[$$.ERRMESS]}
            <Call 0x21f4c 0x102d0>                                              {[«4""»]|[«4""»]|[-8-]|[$$.ERRMESS]}
                StringCat2(a, b : String) : String
            <POP 21f52-21f54 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21f54  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 21f56-21f58 StackAdj>                       Δ+4                {[«4""»]}
            <MI 21f58  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 21f5a  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, 'A4']|[4, '(A6-0xc)']}
            <MI 21f5c  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'A4']|[4, '(A6-0xc)']|[4, 'D7']}
            <Call 0x21f5e 0x1044c>                                              {[4, 'A4']|[4, '(A6-0xc)']|[4, 'D7']}
                WriteErrorMessage(file : String; txt : String; number : Long) : Bool
            <POP 21f64-21f68 StackAdj>                       Δ+12               {}
            <MI 21f68  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 21f6a  CMPA.W  #0x01,A0>                                        {}
            <MI 21f6c  BEQ     0x21f78>                                         {}
        <POP 21f6e-21f78 Naked>                              Σ0         ↓
            <Pointer.fp 0x21f6e <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x21f70 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 21f76-21f78 StackAdj>                       Δ+4                {}
        <POP 21f78-21f80 Epilogue>                           Σ0         ←0x21f18

0x21f80


@ 21f80
        <LVAR  0x016 1(rw)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(rw)>
    <POP 21f80-22096 Body>                                              
        <POP 21f80-21f96 Prologue>                           Σ0         ↓
        <POP 21f96-21fa6 RegCacheLoad>                       Σ0         ↓
        <POP 21fa6-22000 Naked>                              Σ0         ↓ →0x22006
            <Blob 0x21fa6 [10] (A6+0x16)>                    Δ-10               {[«10»]}
            <MI 21fb2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10»]|[4, '(A6+0x8)']}
            <Const 0x21fb6 0x1.4>                            Δ-4                {[«10»]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21fba 0x23272>                                              {[«10»]|[4, '(A6+0x8)']|[##1]}
            <POP 21fc0-21fc4 StackAdj>                       Δ+10               {[-8-]}
            <MI 21fc4  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x21fc8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x21fcc 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 21fd2-21fd4 StackAdj>                       Δ+8                {[-4-]}
            <MI 21fd4  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {}
            <Blob 0x21fd6 [2] @>                             Δ-2                {[«2""»]}
            <POP 21fda-21fdc StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x21fdc 2>                                                     {[«2""»]|[$$ON]}
            <MI 21fee  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«2""»]}
            <MI 21ff0  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«2""»]|[4, '(A6-0xa)']}
            <MI 21ff2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«2""»]|[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <Call 0x21ff4 0x102c8>                                              {[«2""»]|[4, '(A6-0xa)']|[4, '(A6-0x6)']}
                StringEqual(a, b : String) : Byte
            <POP 21ffa-21ffc StackAdj>                       Δ+8                {[«2""»]}
            <MI 21ffc  TST.B   (A7)+>                        Δ+2                {}
            <MI 21ffe  BEQ     0x22006>                                         {}
        <POP 22000-22006 Naked>                              Σ0         →0x22082
            <MI 22000  MOVE.B  #0x01,(A6+0x16)>                                 {}
            <MI 22004  BRA     0x22082>                                         {}
        <POP 22006-22042 Naked>                              Σ0         ↓ →0x22048 ←0x21fa6
            <Pointer.fp 0x22006 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22008 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 2200a-2200b StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2200b [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2200e  MOVE.B  0x204ab,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 22014  MOVE.B  0x204ac,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2201a-2201c StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2201c>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2201c 4>                       Δ-4        
                <Const 0x22020 0x1.2>                        Δ-2        
                <Const 0x22022 0x3.2>                        Δ-2        
                <Call 0x22026 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2202c-2202e StackAdj>                   Δ+8        
            <MI 2202e  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[-2-]|[«2""»]}
            <POP 22030-22032 StackAdj>                       Δ+2                {[-2-]}
            <MI 22032  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <MI 22034  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <Call 0x22036 0x102c8>                                              {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0x6)']}
                StringEqual(a, b : String) : Byte
            <POP 2203c-2203e StackAdj>                       Δ+8                {[-2-]}
            <MI 2203e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22040  BEQ     0x22048>                                         {}
        <POP 22042-22048 Naked>                              Σ0         →0x22082
            <MI 22042  CLR.B   (A6+0x16)>                                       {}
            <MI 22046  BRA     0x22082>                                         {}
        <POP 22048-22082 Naked>                              Σ0         ↓ ←0x22006
            <Pointer.fp 0x22048 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x2204a 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 2204c-2204e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2204e <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x22050 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 22052-22053 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22053 [36] @>                            Δ-36               {[«36""»]}
            <POP 22064-22066 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x22066 35>                                                    {[«36""»]|[$$Arguments for command are ON or OFF]}
            <Call 0x22078 0x22e28>                                              {[«36""»]|[$$Arguments for command are ON or OFF]}
            <POP 2207e-22082 StackAdj>                       Δ+40               {}
        <POP 22082-2208e Naked>                              Σ0         ↓ ←0x22000 ←0x22042
            <Pointer.fp 0x22082 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22084 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22086-22088 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22088 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x2208a 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 2208c-2208e StackAdj>                       Δ+4                {}
        <POP 2208e-22096 Epilogue>                           Σ0         

0x22096


@ 22096
CMD_ISOLATE(?)
        <LVAR  0x008 4(r)>
    <POP 22096-220dc Body>                                              
        <POP 22096-220ac Prologue>                           Σ0         ↓
        <POP 220ac-220d4 Naked>                              Σ0         ↓
            <POP 220ac-220ae StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x220ae [10] @>                            Δ-10               {[-2-]|[«10""»]}
            <MI 220ba  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <Call 0x220be 0x21f80>                                              {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <POP 220c2-220c6 StackAdj>                       Δ+14               {[-2-]}
            <MI 220c6  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 220c8  EXTB.W  D0>                                              {}
            <POP 0x220ca LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 220ce  MOVE.B  D0,0x2696d>                                      {}
        <POP 220d4-220dc Epilogue>                           Σ0         

0x220dc


@ 220dc
CMD_TRACE(?)
        <LVAR  0x008 4(r)>
    <POP 220dc-22122 Body>                                              
        <POP 220dc-220f2 Prologue>                           Σ0         ↓
        <POP 220f2-2211a Naked>                              Σ0         ↓
            <POP 220f2-220f4 StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x220f4 [10] @>                            Δ-10               {[-2-]|[«10""»]}
            <MI 22100  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <Call 0x22104 0x21f80>                                              {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <POP 22108-2210c StackAdj>                       Δ+14               {[-2-]}
            <MI 2210c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2210e  EXTB.W  D0>                                              {}
            <POP 0x22110 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 22114  MOVE.B  D0,0x2696e>                                      {}
        <POP 2211a-22122 Epilogue>                           Σ0         

0x22122


@ 22122
CMD_ULOAD(?)
        <LVAR  0x008 4(r)>
    <POP 22122-22168 Body>                                              
        <POP 22122-22138 Prologue>                           Σ0         ↓
        <POP 22138-22160 Naked>                              Σ0         ↓
            <POP 22138-2213a StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x2213a [10] @>                            Δ-10               {[-2-]|[«10""»]}
            <MI 22146  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <Call 0x2214a 0x21f80>                                              {[-2-]|[«10""»]|[4, '(A6+0x8)']}
            <POP 2214e-22152 StackAdj>                       Δ+14               {[-2-]}
            <MI 22152  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22154  EXTB.W  D0>                                              {}
            <POP 0x22156 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2215a  MOVE.B  D0,0x2696f>                                      {}
        <POP 22160-22168 Epilogue>                           Σ0         

0x22168


@ 22168
MATCH_POWER_MARGINS(?)
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 22168-221f8 Body>                                              
        <POP 22168-2217e Prologue>                           Σ0         ↓
        <POP 2217e-22186 RegCacheLoad>                       Σ0         ↓
        <POP 22186-22188 Naked>                              Σ0         ↓
            <MI 22186  MOVEQ.L #0x00,D7>                                        {}
        <POP 22188-221de Naked>                              Σ0         ↓ →0x221e2 ←0x221e6
            <MI 22188  MOVE.B  D7,D0>                                           {}
            <MI 2218a  EXTB.W  D0>                                              {}
            <MI 2218c  MOVEQ.L #0x0a,D1>                                        {}
            <MI 2218e  MULS.W  D0,D1>                                           {}
            <MI 22190  LEA.L   0x20bb4,A0>                                      {}
            <Blob 0x22194 [10] (A0+D1.W)>                    Δ-10               {[«10»]}
            <POP 221a4-221a6 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x221a6>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x221a6 4>                       Δ-4        
                <Const 0x221aa 0x1.2>                        Δ-2        
                <Const 0x221ac 0xa.2>                        Δ-2        
                <Call 0x221ae 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221b4-221b6 StackAdj>                   Δ+8        
            <MI 221b6  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«10»]}
            <POP 221b8-221ba StackAdj>                       Δ+4                {[-6-]}
            <MI 221ba  MOVE.L  (A6+0x8),(A7)>                                   {[-2-]|[4, '(A6+0x8)']}
            <MI 221be  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x221c0 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
                StringEqual(a, b : String) : Byte
            <POP 221c6-221c8 StackAdj>                       Δ+8                {[-2-]}
            <MI 221c8  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <MI 221ca  EXTB.W  D1>                                              {}
            <POP 0x221cc LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 221ce  MOVE.B  D1,D6>                                           {}
            <Pointer.fp 0x221d0 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x221d2 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 221d8-221da StackAdj>                       Δ+4                {}
            <MI 221da  TST.B   D6>                                              {}
            <MI 221dc  BNE     0x221e2>                                         {}
        <POP 221de-221e2 Naked>                              Σ0         ↓
            <MI 221de  ADDQ.W  #0x1,D0>                                         {}
            <MI 221e0  MOVE.B  D0,D7>                                           {}
        <POP 221e2-221e6 Naked>                              Σ0         ↓ →0x221ec ←0x22188
            <MI 221e2  TST.B   D6>                                              {}
            <MI 221e4  BNE     0x221ec>                                         {}
        <POP 221e6-221ec Naked>                              Σ0         ↓ →0x22188
            <MI 221e6  CMPI.B  #0x03,D7>                                        {}
            <MI 221ea  BNE     0x22188>                                         {}
        <POP 221ec-221f0 Naked>                              Σ0         ↓ ←0x221e2
            <MI 221ec  MOVE.B  D7,(A6+0xc)>                                     {}
        <POP 221f0-221f8 Epilogue>                           Σ0         

0x221f8


@ 221f8
MATCH_CLOCK_MARGINS(?)
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 221f8-22288 Body>                                              
        <POP 221f8-2220e Prologue>                           Σ0         ↓
        <POP 2220e-22216 RegCacheLoad>                       Σ0         ↓
        <POP 22216-22218 Naked>                              Σ0         ↓
            <MI 22216  MOVEQ.L #0x00,D7>                                        {}
        <POP 22218-2226e Naked>                              Σ0         ↓ →0x22272 ←0x22276
            <MI 22218  MOVE.B  D7,D0>                                           {}
            <MI 2221a  EXTB.W  D0>                                              {}
            <MI 2221c  MOVEQ.L #0x0a,D1>                                        {}
            <MI 2221e  MULS.W  D0,D1>                                           {}
            <MI 22220  LEA.L   0x20bdc,A0>                                      {}
            <Blob 0x22224 [10] (A0+D1.W)>                    Δ-10               {[«10»]}
            <POP 22234-22236 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x22236>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x22236 4>                       Δ-4        
                <Const 0x2223a 0x1.2>                        Δ-2        
                <Const 0x2223c 0xa.2>                        Δ-2        
                <Call 0x2223e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22244-22246 StackAdj>                   Δ+8        
            <MI 22246  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«10»]}
            <POP 22248-2224a StackAdj>                       Δ+4                {[-6-]}
            <MI 2224a  MOVE.L  (A6+0x8),(A7)>                                   {[-2-]|[4, '(A6+0x8)']}
            <MI 2224e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x22250 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
                StringEqual(a, b : String) : Byte
            <POP 22256-22258 StackAdj>                       Δ+8                {[-2-]}
            <MI 22258  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <MI 2225a  EXTB.W  D1>                                              {}
            <POP 0x2225c LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 2225e  MOVE.B  D1,D6>                                           {}
            <Pointer.fp 0x22260 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22262 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22268-2226a StackAdj>                       Δ+4                {}
            <MI 2226a  TST.B   D6>                                              {}
            <MI 2226c  BNE     0x22272>                                         {}
        <POP 2226e-22272 Naked>                              Σ0         ↓
            <MI 2226e  ADDQ.W  #0x1,D0>                                         {}
            <MI 22270  MOVE.B  D0,D7>                                           {}
        <POP 22272-22276 Naked>                              Σ0         ↓ →0x2227c ←0x22218
            <MI 22272  TST.B   D6>                                              {}
            <MI 22274  BNE     0x2227c>                                         {}
        <POP 22276-2227c Naked>                              Σ0         ↓ →0x22218
            <MI 22276  CMPI.B  #0x03,D7>                                        {}
            <MI 2227a  BNE     0x22218>                                         {}
        <POP 2227c-22280 Naked>                              Σ0         ↓ ←0x22272
            <MI 2227c  MOVE.B  D7,(A6+0xc)>                                     {}
        <POP 22280-22288 Epilogue>                           Σ0         

0x22288


@ 22288
CMD_MARGIN(?)
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x012 @ 4(rw)>
    <POP 22288-22472 Body>                                              
        <POP 22288-2229e Prologue>                           Σ0         ↓
        <POP 2229e-222b2 RegCacheLoad>                       Σ0         ↓
        <POP 222b2-2232c Naked>                              Σ0         ↓ →0x22384
            <MI 222b2  MOVEQ.L #0x00,D7>                                        {}
            <Blob 0x222b4 [10] @>                            Δ-10               {[«10""»]}
            <MI 222c0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6+0x8)']}
            <Const 0x222c4 0x2.4>                            Δ-4                {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <Call 0x222c8 0x23272>                                              {[«10""»]|[4, '(A6+0x8)']|[##2]}
            <POP 222ce-222d2 StackAdj>                       Δ+10               {[-8-]}
            <MI 222d2  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <Const 0x222d6 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x222da 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 222e0-222e2 StackAdj>                       Δ+8                {[-4-]}
            <MI 222e2  MOVE.L  (A7),(A6-0x12)>                                  {[-4-]}
            <MI 222e6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x222ea 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x222ee 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 222f4-222f6 StackAdj>                       Δ+8                {[-4-]}
            <MI 222f6  MOVE.L  (A7),(A6-0xe)>                                   {[-4-]}
            <POP 222fa-222fb StackAdj>                       Δ+4        ↓       {}
            <Blob 0x222fb [6] @>                             Δ-6                {[«6""»]}
            <POP 2230a-2230c StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2230c 5>                                                     {[«6""»]|[$$POWER]}
            <MI 22318  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[«6""»]}
            <MI 2231a  MOVE.L  (A6-0x12),(A7)>                                  {[-2-]|[4, '(A6-0x12)']}
            <MI 2231e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x12)']|[4, '(A6-0xa)']}
            <Call 0x22320 0x102c8>                                              {[-2-]|[4, '(A6-0x12)']|[4, '(A6-0xa)']}
                StringEqual(a, b : String) : Byte
            <POP 22326-22328 StackAdj>                       Δ+8                {[-2-]}
            <MI 22328  TST.B   (A7)+>                        Δ+2                {}
            <MI 2232a  BEQ     0x22384>                                         {}
        <POP 2232c-22344 Naked>                              Σ0         ↓ →0x22360
            <POP 2232c-2232e StackAdj>                       Δ-2                {[-2-]}
            <MI 2232e  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xe)']}
            <Call 0x22332 0x22168>                                              {[-2-]|[4, '(A6-0xe)']}
                MATCH_POWER_MARGINS(?)
            <POP 22336-22338 StackAdj>                       Δ+4                {[-2-]}
            <MI 22338  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2233a  EXTB.W  D0>                                              {}
            <POP 0x2233c LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2233e  MOVE.B  D0,D6>                                           {}
            <MI 22340  CMP.B   #0x03,D6>                                        {}
            <MI 22342  BEQ     0x22360>                                         {}
        <POP 22344-22360 Naked>                              Σ0         →0x22380
            <MI 22344  MOVE.B  D6,D0>                                           {}
            <MI 22346  EXTB.W  D0>                                              {}
            <MI 22348  EXTW.L  D0>                                              {}
            <POP 0x2234a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 22354  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x22356 0x1022e>                                              {[2, 'D0']}
                KC17_Power_Margin
            <POP 2235c-2235e StackAdj>                       Δ+2                {}
            <MI 2235e  BRA     0x22380>                                         {}
        <POP 22360-22380 Naked>                              Σ0         ↓ ←0x2232c
            <Blob 0x22360 [50] @>                            Δ-50               {[«50""»]}
            <POP 2236c-2236e StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x2236e 50>                                                    {[«50""»]|[$$ERROR - POWER can be margined HIGH, NORMAL, or LOW]}
            <MI 2237a  MOVEA.L (A7)+,A4>                     Δ+4                {[«50""»]}
            <POP 2237c-2237e StackAdj>                       Δ+50               {}
            <MI 2237e  MOVEQ.L #0x01,D7>                                        {}
        <POP 22380-22384 Naked>                              Σ0         →0x2243a ←0x22344
            <MI 22380  BRA     0x2243a>                                         {}
        <POP 22384-223be Naked>                              Σ0         ↓ →0x22416 ←0x222b2
            <Pointer.fp 0x22384 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x22386 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 2238c-2238d StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2238d [6] @>                             Δ-6                {[«6""»]}
            <POP 2239c-2239e StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2239e 5>                                                     {[«6""»]|[$$CLOCK]}
            <MI 223aa  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[«6""»]}
            <MI 223ac  MOVE.L  (A6-0x12),(A7)>                                  {[-2-]|[4, '(A6-0x12)']}
            <MI 223b0  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x12)']|[4, '(A6-0xa)']}
            <Call 0x223b2 0x102c8>                                              {[-2-]|[4, '(A6-0x12)']|[4, '(A6-0xa)']}
                StringEqual(a, b : String) : Byte
            <POP 223b8-223ba StackAdj>                       Δ+8                {[-2-]}
            <MI 223ba  TST.B   (A7)+>                        Δ+2                {}
            <MI 223bc  BEQ     0x22416>                                         {}
        <POP 223be-223d4 Naked>                              Σ0         ↓ →0x223d8
            <POP 223be-223c0 StackAdj>                       Δ-2                {[-2-]}
            <MI 223c0  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xe)']}
            <Call 0x223c4 0x221f8>                                              {[-2-]|[4, '(A6-0xe)']}
                MATCH_CLOCK_MARGINS(?)
            <POP 223c8-223ca StackAdj>                       Δ+4                {[-2-]}
            <MI 223ca  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 223cc  EXTB.W  D0>                                              {}
            <POP 0x223ce LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 223d0  MOVE.B  D0,D6>                                           {}
            <MI 223d2  BEQ     0x223d8>                                         {}
        <POP 223d4-223d8 Naked>                              Σ0         ↓ →0x223f4
            <MI 223d4  CMP.B   #0x01,D6>                                        {}
            <MI 223d6  BNE     0x223f4>                                         {}
        <POP 223d8-223f4 Naked>                              Σ0         →0x22414 ←0x223be
            <MI 223d8  MOVE.B  D6,D0>                                           {}
            <MI 223da  EXTB.W  D0>                                              {}
            <MI 223dc  EXTW.L  D0>                                              {}
            <POP 0x223de LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 223e8  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x223ea 0x1022c>                                              {[2, 'D0']}
                KC16_Clock_Margin
            <POP 223f0-223f2 StackAdj>                       Δ+2                {}
            <MI 223f2  BRA     0x22414>                                         {}
        <POP 223f4-22414 Naked>                              Σ0         ↓ ←0x223d4
            <Blob 0x223f4 [44] @>                            Δ-44               {[«44""»]}
            <POP 22400-22402 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x22402 44>                                                    {[«44""»]|[$$ERROR - CLOCK can be margined FAST or NORMAL]}
            <MI 2240e  MOVEA.L (A7)+,A4>                     Δ+4                {[«44""»]}
            <POP 22410-22412 StackAdj>                       Δ+44               {}
            <MI 22412  MOVEQ.L #0x01,D7>                                        {}
        <POP 22414-22416 Naked>                              Σ0         →0x2243a ←0x223d8
            <MI 22414  BRA     0x2243a>                                         {}
        <POP 22416-2243a Naked>                              Σ0         ↓ ←0x22384
            <Blob 0x22416 [42] @>                            Δ-42               {[«42""»]}
            <POP 22422-22424 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x22424 42>                                                    {[«42""»]|[$$ERROR - You can only margin POWER or CLOCK]}
            <MI 22432  MOVEA.L (A7)+,A4>                     Δ+4                {[«42""»]}
            <POP 22434-22438 StackAdj>                       Δ+42               {}
            <MI 22438  MOVEQ.L #0x01,D7>                                        {}
        <POP 2243a-22460 Naked>                              Σ0         ↓ →0x2246a ←0x22380 ←0x22414
            <Pointer.fp 0x2243a <LVAR -0x012 @ 4(rw)>>       Δ-4                {[@@-18]}
            <Call 0x2243e 0x102bc>                                              {[@@-18]}
                FreeString(VAR a : String)
            <POP 22444-22446 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22446 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x2244a 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 22450-22452 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22452 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x22454 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 2245a-2245c StackAdj>                       Δ+4                {}
            <MI 2245c  TST.B   D7>                                              {}
            <MI 2245e  BEQ     0x2246a>                                         {}
        <POP 22460-2246a Naked>                              Σ0         ↓
            <MI 22460  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x22462 0x103e0>                                              {[4, 'A4']}
                WriteConsoleStringCrLf(str : String)
            <POP 22468-2246a StackAdj>                       Δ+4                {}
        <POP 2246a-22472 Epilogue>                           Σ0         ←0x2243a

0x22472


@ 22472
MATCH_CMDS(?)
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 22472-22518 Body>                                              
        <POP 22472-22488 Prologue>                           Σ0         ↓
        <POP 22488-22490 RegCacheLoad>                       Σ0         ↓
        <POP 22490-2249a Naked>                              Σ0         ↓
            <MI 22490  MOVE.L  #0xffffffff,(A6+0xc)>                            {}
            <MI 22498  MOVEQ.L #0x01,D7>                                        {}
        <POP 2249a-22500 Naked>                              Σ0         ↓ →0x22506 ←0x22506
            <MI 2249a  MOVE.L  D7,D0>                                           {}
            <MI 2249c  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x2249e LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 224a8  MOVE.L  D0,D4>                                           {}
            <MI 224aa  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x224ac 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 224b2  LEA.L   0x20c04,A0>                                      {}
            <Blob 0x224b6 [10] (A0+D4.L)>                    Δ-10               {[«10»]}
            <POP 224c6-224c8 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x224c8>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x224c8 4>                       Δ-4        
                <Const 0x224cc 0x1.2>                        Δ-2        
                <Const 0x224ce 0xa.2>                        Δ-2        
                <Call 0x224d0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 224d6-224d8 StackAdj>                   Δ+8        
            <MI 224d8  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«10»]}
            <POP 224da-224dc StackAdj>                       Δ+4                {[-6-]}
            <MI 224dc  MOVE.L  (A6+0x8),(A7)>                                   {[-2-]|[4, '(A6+0x8)']}
            <MI 224e0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Call 0x224e2 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
                StringEqual(a, b : String) : Byte
            <POP 224e8-224ea StackAdj>                       Δ+8                {[-2-]}
            <MI 224ea  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 224ec  EXTB.W  D0>                                              {}
            <POP 0x224ee LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 224f0  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x224f2 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x224f4 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 224fa-224fc StackAdj>                       Δ+4                {}
            <MI 224fc  TST.B   D6>                                              {}
            <MI 224fe  BEQ     0x22506>                                         {}
        <POP 22500-22506 Naked>                              Σ0         →0x22510
            <MI 22500  MOVE.L  D7,(A6+0xc)>                                     {}
            <MI 22504  BRA     0x22510>                                         {}
        <POP 22506-22510 Naked>                              Σ0         ↓ →0x2249a ←0x2249a
            <MI 22506  ADDQ.L  #0x1,D7>                                         {}
            <MI 22508  CMPI.L  #0x00000009,D7>                                  {}
            <MI 2250e  BLE     0x2249a>                                         {}
        <POP 22510-22518 Epilogue>                           Σ0         ←0x22500

0x22518


@ 22518
CMD_POWERDOWN(?)
    <POP 22518-225dc Body>                                              
        <POP 22518-2252e Prologue>                           Σ0         ↓
        <POP 2252e-2253e RegCacheLoad>                       Σ0         ↓
        <POP 2253e-22546 Naked>                              Σ0         ↓ →0x2256e
            <MI 2253e  TST.B   0x26957>                                         {}
            <MI 22544  BEQ     0x2256e>                                         {}
        <POP 22546-2256e Naked>                              Σ0         →0x225d4
            <Blob 0x22546 [44] @>                            Δ-44               {[«44""»]}
            <POP 22556-22558 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x22558 43>                                                    {[«44""»]|[$$Multi-processors do not have power control!]}
            <Call 0x22566 0x103e0>                                              {[«44""»]|[$$Multi-processors do not have power control!]}
                WriteConsoleStringCrLf(str : String)
            <POP 22568-2256c StackAdj>                       Δ+48               {}
            <MI 2256c  BRA     0x225d4>                                         {}
        <POP 2256e-225d4 Naked>                              Σ0         ↓ ←0x2253e
            <Blob 0x2256e [70] @>                            Δ-70               {[«70""»]}
            <POP 2257a-2257c StackAdj>                       Δ-4                {[«70""»]|[-4-]}
            <Lit 0x2257c 70>                                                    {[«70""»]|[$$This is a Series 200 R1000 Processor.  Power to this processor may not]}
            <Call 0x2258a 0x103e0>                                              {[«70""»]|[$$This is a Series 200 R1000 Processor.  Power to this processor may not]}
                WriteConsoleStringCrLf(str : String)
            <POP 2258c-2258d StackAdj>                       Δ+74       ↓       {}
            <Blob 0x2258d [72] @>                            Δ-72               {[«72""»]}
            <POP 2259c-2259e StackAdj>                       Δ-4                {[«72""»]|[-4-]}
            <Lit 0x2259e 71>                                                    {[«72""»]|[$$be controlled programatically.  To turn the processor off or on use the]}
            <Call 0x225ac 0x103e0>                                              {[«72""»]|[$$be controlled programatically.  To turn the processor off or on use the]}
                WriteConsoleStringCrLf(str : String)
            <POP 225ae-225af StackAdj>                       Δ+76       ↓       {}
            <Blob 0x225af [40] @>                            Δ-40               {[«40""»]}
            <POP 225c0-225c2 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x225c2 39>                                                    {[«40""»]|[$$key switch on the System Control Panel.]}
            <Call 0x225d0 0x103e0>                                              {[«40""»]|[$$key switch on the System Control Panel.]}
                WriteConsoleStringCrLf(str : String)
            <POP 225d2-225d4 StackAdj>                       Δ+44               {}
        <POP 225d4-225dc Epilogue>                           Σ0         ←0x22546

0x225dc


@ 225dc
DISPATCH_CMDS(?)
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 225dc-22682 Body>                                   Δ+24       
        <POP 225dc-225f2 Prologue>                           Σ0         ↓
        <POP 225f2-225f6 RegCacheLoad>                       Σ0         ↓
        <POP 225f6-22616 Naked>                              Σ0         ↓ →0x22678
            <MI 225f6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 225fa  MOVE.B  #0x01,(A0)>                                      {}
            <POP 225fe-22600 StackAdj>                       Δ-4                {[-4-]}
            <MI 22600  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <Call 0x22604 0x22472>                                              {[-4-]|[4, '(A6+0x10)']}
                MATCH_CMDS(?)
            <POP 22608-2260a StackAdj>                       Δ+4                {[-4-]}
            <MI 2260a  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2260c  SUBQ.L  #0x1,D0>                                         {}
            <MI 2260e  CMPI.L  #0x00000008,D0>                                  {}
            <MI 22614  BHI     0x22678>                                         {}
        <POP 22616-22620 Naked>                              Σ0         →0x22632 →0x2263c →0x22644 →0x2264c →0x22652 →0x2265a →0x22662 →0x2266a →0x22672
            <MI 22616  ADD.W   D0,D0>                                           {}
            <MI 22618  SWITCH  D0.W>                                            {}
        <POP 22632-22638 Naked>                              Σ0 Δ-4     ↓ ←0x22616
            <MI 22632  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x22634 0x21746>                                              {[4, '(A6+0xc)']}
                CMD_TEST(?)
        <POP 22638-2263c Naked>                              Σ-4 Δ+4    →0x2267a ←0x2263c ←0x22644 ←0x22652 ←0x2265a ←0x22662 ←0x2266a
            <POP 22638-2263a StackAdj>                       Δ+4                {}
            <MI 2263a  BRA     0x2267a>                                         {}
        <POP 2263c-22644 Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 2263c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x2263e 0x21ae2>                                              {[4, '(A6+0xc)']}
                CMD_RUN(?)
            <MI 22642  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 22644-2264c Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 22644  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x22646 0x21ea4>                                              {[4, '(A6+0xc)']}
                CMD_ERRMESS(?)
            <MI 2264a  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 2264c-22652 Naked>                              Σ0         →0x2267a ←0x22616
            <Call 0x2264c 0x2150e>                                              {}
                CMD_INIT_STATE(?)
            <MI 22650  BRA     0x2267a>                                         {}
        <POP 22652-2265a Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 22652  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x22654 0x22096>                                              {[4, '(A6+0xc)']}
                CMD_ISOLATE(?)
            <MI 22658  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 2265a-22662 Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 2265a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x2265c 0x220dc>                                              {[4, '(A6+0xc)']}
                CMD_TRACE(?)
            <MI 22660  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 22662-2266a Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 22662  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x22664 0x22122>                                              {[4, '(A6+0xc)']}
                CMD_ULOAD(?)
            <MI 22668  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 2266a-22672 Naked>                              Σ0 Δ-4     →0x22638 ←0x22616
            <MI 2266a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x2266c 0x22288>                                              {[4, '(A6+0xc)']}
                CMD_MARGIN(?)
            <MI 22670  BRA     0x22638>                                         {[4, '(A6+0xc)']}
        <POP 22672-22678 Naked>                              Σ0         →0x2267a ←0x22616
            <Call 0x22672 0x22518>                                              {}
                CMD_POWERDOWN(?)
            <MI 22676  BRA     0x2267a>                                         {}
        <POP 22678-2267a Naked>                              Σ0         ↓ ←0x225f6
            <MI 22678  CLR.B   (A0)>                                            {}
        <POP 2267a-22682 Epilogue>                           Σ0         ←0x22638 ←0x2264c ←0x22672

0x22682


@ 22682
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 22682-22764 Body>                                              
        <POP 22682-22698 Prologue>                           Σ0         ↓
        <POP 22698-226a0 RegCacheLoad>                       Σ0         ↓
        <POP 226a0-226f6 Naked>                              Σ0         ↓ →0x226fc
            <Call 0x226a0 0x10398>                                              {}
                FSCALL_10398
            <MI 226a6  MOVE.B  #0x01,0x2696d>                                   {}
            <MI 226ac  MOVE.B  #0x01,0x2696e>                                   {}
            <MI 226b2  MOVE.B  #0x01,0x2696f>                                   {}
            <MI 226b8  CLR.B   0x26970>                                         {}
            <Const 0x226be 0x26972.4>                        Δ-4                {[##158066]}
            <Call 0x226c4 0x102b8>                                              {[##158066]}
                NewString(VAR a : String)
            <POP 226ca-226cc StackAdj>                       Δ+4                {}
            <MI 226cc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 226d0  LEA.L   0x20952,A1>                                      {}
            <BlockMove 10,A1,A0>                                                {}
            <Call 0x226dc 0x21200>                                              {}
            <Pointer.fp 0x226e0 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x226e4 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-8]|[@@-2]}
            <Call 0x226e8 0x1057a>                                              {[@@-8]|[@@-2]}
                Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
            <POP 226ee-226f0 StackAdj>                       Δ+8                {}
            <MI 226f0  TST.B   (A6-0x2)>                                        {}
            <MI 226f4  BEQ     0x226fc>                                         {}
        <POP 226f6-226fc Naked>                              Σ0         →0x226fe
            <MI 226f6  MOVE.B  (A6-0x8),0x26957>                                {}
            <MI 226fa  BRA     0x226fe>                                         {}
        <POP 226fc-226fe Naked>                              Σ0         ↓ ←0x226a0
            <MI 226fc  CLR.B   0x26957>                                         {}
        <POP 226fe-22702 Naked>                              Σ0         ↓ →0x2275c ←0x226f6
            <MI 226fe  TST.B   0x26957>                                         {}
            <MI 22700  BEQ     0x2275c>                                         {}
        <POP 22702-2275c Naked>                              Σ0         ↓
            <Blob 0x22702 [36] @>                            Δ-36               {[«36""»]}
            <POP 22714-22716 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x22716 35>                                                    {[«36""»]|[$$Warning: This is a multi-processor!]}
            <Call 0x22728 0x103e0>                                              {[«36""»]|[$$Warning: This is a multi-processor!]}
                WriteConsoleStringCrLf(str : String)
            <POP 2272e-22732 StackAdj>                       Δ+40               {}
            <Blob 0x22732 [44] @>                            Δ-44               {[«44""»]}
            <POP 2273e-22740 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x22740 44>                                                    {[«44""»]|[$$Running certain FRU's may crash other nodes!]}
            <Call 0x22752 0x103e0>                                              {[«44""»]|[$$Running certain FRU's may crash other nodes!]}
                WriteConsoleStringCrLf(str : String)
            <POP 22758-2275c StackAdj>                       Δ+48               {}
        <POP 2275c-22764 Epilogue>                           Σ0         ←0x226fe

0x22de6


@ 22de6
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(w)>
    <POP 22de6-22e28 Body>                                              
        <POP 22de6-22dfc Prologue>                           Σ0         ↓
        <POP 22dfc-22e00 Naked>                              Σ0         ↓
            <MI 22dfc  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 22e00-22e06 Naked>                              Σ0         ↓ →0x22e20 ←0x22e06
            <MI 22e00  CMPA.W  #0x1,A4>                                         {}
            <MI 22e04  BEQ     0x22e20>                                         {}
        <POP 22e06-22e20 Naked>                              Σ0         →0x22e00
            <MI 22e06  MOVE.L  A4,(A6-0x4)>                                     {}
            <MI 22e0a  MOVEA.L (A4+0x8),A4>                                     {}
            <Pointer.fp 0x22e0e <LVAR -0x004 @ 4(w)>>        Δ-4                {[@@-4]}
            <Const 0x22e12 0xc.4>                            Δ-4                {[@@-4]|[##12]}
            <Call 0x22e16 0x102a8>                                              {[@@-4]|[##12]}
                Free2(a : Pointer; b : Long)
            <POP 22e1c-22e1e StackAdj>                       Δ+8                {}
            <MI 22e1e  BRA     0x22e00>                                         {}
        <POP 22e20-22e28 Epilogue>                           Σ0         ←0x22e00

0x22e28


@ 22e28
        <LVAR  0x008 4(r)>
    <POP 22e28-22e68 Body>                                              
        <POP 22e28-22e3e Prologue>                           Σ0         ↓
        <POP 22e3e-22e48 Naked>                              Σ0         ↓ →0x22e52
            <MI 22e3e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22e42  CMPA.W  #0x1,A0>                                         {}
            <MI 22e46  BEQ     0x22e52>                                         {}
        <POP 22e48-22e52 Naked>                              Σ0         ↓
            <MI 22e48  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Call 0x22e4a 0x103e0>                                              {[4, 'A0']}
                WriteConsoleStringCrLf(str : String)
            <POP 22e50-22e52 StackAdj>                       Δ+4                {}
        <POP 22e52-22e60 Naked>                              Σ0         ←0x22e3e
            <POP 22e52-22e60 Bailout>                                           {}
                <MI 22e52  MOVEA.L (A5+0x8),A7>                         
                <MI 22e56  MOVEA.W #0x0,A6>                             
                <MI 22e5a  JMP     0x267a4>                             
        <POP 22e60-22e68 Epilogue>                           Σ0         

0x22e68


@ 22e68
        <LVAR  0x008 4(w)>
    <POP 22e68-22e86 Body>                                              
        <POP 22e68-22e7a Prologue>                           Σ0         ↓
        <POP 22e7a-22e82 Naked>                              Σ0         ↓
            <MI 22e7a  MOVE.L  0x2797e,(A6+0x8)>                                {}
        <POP 22e82-22e86 Epilogue>                           Σ0         

0x22e86


@ 22e86
        <LVAR  0x008 1(rw)>
    <POP 22e86-22ec4 Body>                                              
        <POP 22e86-22e9c Prologue>                           Σ0         ↓
        <POP 22e9c-22eaa Naked>                              Σ0         ↓ →0x22eb0
            <MI 22e9c  MOVE.L  0x2797e,D0>                                      {}
            <MI 22ea2  CMP.L   0x27982,D0>                                      {}
            <MI 22ea8  BLE     0x22eb0>                                         {}
        <POP 22eaa-22eb0 Naked>                              Σ0         →0x22ebc
            <MI 22eaa  CLR.B   (A6+0x8)>                                        {}
            <MI 22eae  BRA     0x22ebc>                                         {}
        <POP 22eb0-22ebc Naked>                              Σ0         ↓ ←0x22e9c
            <MI 22eb0  LEA.L   0x26976,A0>                                      {}
            <MI 22eb6  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 22ebc-22ec4 Epilogue>                           Σ0         ←0x22eaa

0x22ec4


@ 22ec4
        <LVAR  0x008 1(rw)>
    <POP 22ec4-22f08 Body>                                              
        <POP 22ec4-22eda Prologue>                           Σ0         ↓
        <POP 22eda-22ee0 RegCacheLoad>                       Σ0         ↓
        <POP 22ee0-22eea Naked>                              Σ0         ↓ →0x22ef0
            <MI 22ee0  MOVE.L  0x2797e,D0>                                      {}
            <MI 22ee2  CMP.L   0x27982,D0>                                      {}
            <MI 22ee8  BLE     0x22ef0>                                         {}
        <POP 22eea-22ef0 Naked>                              Σ0         →0x22efc
            <MI 22eea  CLR.B   (A6+0x8)>                                        {}
            <MI 22eee  BRA     0x22efc>                                         {}
        <POP 22ef0-22efc Naked>                              Σ0         ↓ ←0x22ee0
            <MI 22ef0  LEA.L   0x26976,A0>                                      {}
            <MI 22ef6  MOVE.B  (A0+D0.L+#0x7),(A6+0x8)>                         {}
        <POP 22efc-22f00 Naked>                              Σ0         ↓ ←0x22eea
            <MI 22efc  ADDQ.L  #0x1,D0>                                         {}
            <MI 22efe  MOVE.L  D0,0x2797e>                                      {}
        <POP 22f00-22f08 Epilogue>                           Σ0         

0x22f08


@ 22f08
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22f08-22fe6 Body>                                              
        <POP 22f08-22f1e Prologue>                           Σ0         ↓
        <POP 22f1e-22f30 RegCacheLoad>                       Σ0         ↓
        <POP 22f30-22f3c Naked>                              Σ0         ↓ →0x22f48 ←0x22fd8
            <POP 22f30-22f32 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22f32 0x22e86>                                              {[-2-]}
            <MI 22f36  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22f38  CMP.B   #0x5b,D0>                                        {}
            <MI 22f3a  BNE     0x22f48>                                         {}
        <POP 22f3c-22f48 Naked>                              Σ0         →0x22fd8
            <Call 0x22f3c 0x2626c>                                              {}
            <MI 22f42  BRA     0x22fd8>                                         {}
        <POP 22f48-22f54 Naked>                              Σ0         ↓ →0x22f6c ←0x22f30
            <MI 22f48  MOVE.L  0x2797e,D6>                                      {}
            <POP 22f4a-22f4c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22f4c 0x22ec4>                                              {[-2-]}
            <MI 22f50  MOVE.B  (A7)+,D5>                     Δ+2                {}
            <MI 22f52  BNE     0x22f6c>                                         {}
        <POP 22f54-22f6a Naked>                              Σ0         →0x22fde
            <MI 22f54  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22f58  LEA.L   0x22d40,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 22f64  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f66  MOVE.B  #0x02,(A0)>                                      {}
            <MI 22f68  BRA     0x22fde>                                         {}
        <POP 22f6c-22f70 Naked>                              Σ0         ↓ →0x22f78 ←0x22f48
            <MI 22f6c  CMP.B   #0x2c,D5>                                        {}
            <MI 22f6e  BNE     0x22f78>                                         {}
        <POP 22f70-22f78 Naked>                              Σ0         →0x22fc8
            <MI 22f70  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f72  MOVE.B  #0x03,(A0)>                                      {}
            <MI 22f76  BRA     0x22fc8>                                         {}
        <POP 22f78-22f7c Naked>                              Σ0         ↓ →0x22f84 ←0x22f6c
            <MI 22f78  CMP.B   #0x3b,D5>                                        {}
            <MI 22f7a  BNE     0x22f84>                                         {}
        <POP 22f7c-22f84 Naked>                              Σ0         →0x22fc8
            <MI 22f7c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f7e  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22f82  BRA     0x22fc8>                                         {}
        <POP 22f84-22f8a Naked>                              Σ0         ↓ →0x22f90 ←0x22f78
            <MI 22f84  CMPI.B  #0x5d,D5>                                        {}
            <MI 22f88  BNE     0x22f90>                                         {}
        <POP 22f8a-22f90 Naked>                              Σ0         →0x22fc8
            <MI 22f8a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f8c  MOVE.B  #0x02,(A0)>                                      {}
            <MI 22f8e  BRA     0x22fc8>                                         {}
        <POP 22f90-22f94 Naked>                              Σ0         ↓ ←0x22f84
            <MI 22f90  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22f92  CLR.B   (A0)>                                            {}
        <POP 22f94-22fa0 Naked>                              Σ0         ↓ →0x22fa8 ←0x22fc6
            <POP 22f94-22f96 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22f96 0x22e86>                                              {[-2-]}
            <MI 22f9a  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 22f9c  CMP.B   #0x5b,D7>                                        {}
            <MI 22f9e  BNE     0x22fa8>                                         {}
        <POP 22fa0-22fa8 Naked>                              Σ0         →0x22fc6
            <Call 0x22fa0 0x2626c>                                              {}
            <MI 22fa6  BRA     0x22fc6>                                         {}
        <POP 22fa8-22fac Naked>                              Σ0         ↓ →0x22fba ←0x22f94
            <MI 22fa8  CMP.B   #0x3b,D7>                                        {}
            <MI 22faa  BEQ     0x22fba>                                         {}
        <POP 22fac-22fb0 Naked>                              Σ0         ↓ →0x22fba
            <MI 22fac  CMP.B   #0x2c,D7>                                        {}
            <MI 22fae  BEQ     0x22fba>                                         {}
        <POP 22fb0-22fb6 Naked>                              Σ0         ↓ →0x22fba
            <MI 22fb0  CMPI.B  #0x5d,D7>                                        {}
            <MI 22fb4  BEQ     0x22fba>                                         {}
        <POP 22fb6-22fba Naked>                              Σ0         ↓ →0x22fbe
            <MI 22fb6  TST.B   D7>                                              {}
            <MI 22fb8  BNE     0x22fbe>                                         {}
        <POP 22fba-22fbc Naked>                              Σ0         →0x22fc8 ←0x22fa8 ←0x22fac ←0x22fb0
            <MI 22fba  BRA     0x22fc8>                                         {}
        <POP 22fbe-22fc6 Naked>                              Σ0         ↓ ←0x22fb6
            <POP 22fbe-22fc0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22fc0 0x22ec4>                                              {[-2-]}
            <MI 22fc4  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 22fc6-22fc8 Naked>                              Σ0         →0x22f94 ←0x22fa0
            <MI 22fc6  BRA     0x22f94>                                         {}
        <POP 22fc8-22fd8 Naked>                              Σ0         →0x22fde ←0x22f70 ←0x22f7c ←0x22f8a ←0x22fba
            <MI 22fc8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22fcc  MOVE.L  D6,(A0)>                                         {}
            <MI 22fce  MOVE.L  0x2797e,(A0+0x4)>                                {}
            <MI 22fd2  SUBQ.L  #0x1,(A0+0x4)>                                   {}
            <MI 22fd6  BRA     0x22fde>                                         {}
        <POP 22fd8-22fde Naked>                              Σ0         →0x22f30 ←0x22f3c
            <MI 22fd8  BRA     0x22f30>                                         {}
        <POP 22fde-22fe6 Epilogue>                           Σ0         ←0x22f54 ←0x22fc8

0x22fe6


@ 22fe6
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(rw)>
        <LVAR -0x008 4(w)>
        <LVAR -0x00c @ 4(w)>
    <POP 22fe6-23084 Body>                                              
        <POP 22fe6-22ffc Prologue>                           Σ0         ↓
        <POP 22ffc-23006 RegCacheLoad>                       Σ0         ↓
        <POP 23006-23012 Naked>                              Σ0         ↓ →0x23018
            <MI 23006  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2300a  MOVE.B  (A0),D0>                                         {}
            <MI 2300c  CMPI.B  #0x01,D0>                                        {}
            <MI 23010  BEQ     0x23018>                                         {}
        <POP 23012-23018 Naked>                              Σ0         ↓ →0x23026
            <MI 23012  CMPI.B  #0x02,D0>                                        {}
            <MI 23016  BNE     0x23026>                                         {}
        <POP 23018-23026 Naked>                              Σ0         →0x23062 ←0x23006
            <MI 23018  MOVE.L  0x22d40,(A6-0xc)>                                {}
            <MI 2301c  MOVE.L  0x22d44,(A6-0x8)>                                {}
            <MI 23022  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 23024  BRA     0x23062>                                         {}
        <POP 23026-23038 Naked>                              Σ0         ↓ →0x23054 ←0x23012 ←0x2305c
            <Pointer.fp 0x23026 <LVAR -0x00c @ 4(w)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x23028 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[@@-12]|[@@-4]}
            <Call 0x2302a 0x22f08>                                              {[@@-12]|[@@-4]}
            <POP 2302e-23030 StackAdj>                       Δ+8                {}
            <MI 23030  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23034  TST.B   (A6-0x4)>                                        {}
            <MI 23036  BEQ     0x23054>                                         {}
        <POP 23038-2303e Naked>                              Σ0         ↓ →0x23054
            <MI 23038  MOVE.B  (A0),D0>                                         {}
            <MI 2303a  CMP.B   #0x03,D0>                                        {}
            <MI 2303c  BNE     0x23054>                                         {}
        <POP 2303e-23054 Naked>                              Σ0         →0x2305c
            <MI 2303e  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 23040  EXTB.W  D0>                                              {}
            <POP 0x23042 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 23044  MOVE.B  D0,(A0)>                                         {}
            <MI 23046  MOVE.L  0x22d40,(A6-0xc)>                                {}
            <MI 2304a  MOVE.L  0x22d44,(A6-0x8)>                                {}
            <MI 23050  CLR.B   (A6-0x4)>                                        {}
            <MI 23052  BRA     0x2305c>                                         {}
        <POP 23054-2305c Naked>                              Σ0         ↓ ←0x23026 ←0x23038
            <MI 23054  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 23056  EXTB.W  D0>                                              {}
            <POP 0x23058 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2305a  MOVE.B  D0,(A0)>                                         {}
        <POP 2305c-23062 Naked>                              Σ0         ↓ →0x23026 ←0x2303e
            <MI 2305c  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2305e  CMP.B   #0x03,D0>                                        {}
            <MI 23060  BEQ     0x23026>                                         {}
        <POP 23062-2307c Naked>                              Σ0         ↓ ←0x23018
            <MI 23062  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 23066  LEA.L   (A6-0xc),A1>                                     {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 23070  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 23074  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 23076  EXTB.W  D0>                                              {}
            <POP 0x23078 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2307a  MOVE.B  D0,(A0)>                                         {}
        <POP 2307c-23084 Epilogue>                           Σ0         

0x23084


@ 23084
        <LVAR  0x008 4(rw)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x010 2(rw)>
    <POP 23084-23190 Body>                                              
        <POP 23084-2309a Prologue>                           Σ0         ↓
        <POP 2309a-230a8 RegCacheLoad>                       Σ0         ↓
        <POP 230a8-230c0 Naked>                              Σ0 Δ-4     ↓
            <MI 230a8  MOVEQ.L #0x01,D6>                                        {}
            <MI 230aa  CLR.W   (A6-0x10)>                                       {}
            <MI 230ac  MOVEQ.L #0x01,D5>                                        {}
            <POP 230ae-230b0 StackAdj>                       Δ-4                {[-4-]}
            <MI 230b0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x230b2 0x102f0>                                              {[-4-]|[4, '(A6+0x8)']}
                ToUpper(a : String) : String
            <POP 230b8-230ba StackAdj>                       Δ+4                {[-4-]}
            <MI 230ba  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {}
            <MI 230bc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 230be  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
        <POP 230c0-230ce Naked>                              Σ-4        ↓ →0x2317e ←0x23162
            <MI 230c0  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 230c2  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 230c4  EXTW.L  D0>                                              {[-4-]}
            <MI 230c6  CMP.L   D0,D6>                                           {[-4-]}
            <MI 230c8  BGT     0x2317e>                                         {[-4-]}
        <POP 230ce-230e0 Naked>                              Σ-4        ↓ →0x230e2
            <MI 230ce  CLR.L   D0>                                              {[-4-]}
            <MI 230d0  MOVE.B  (A0+D6.L+#0x1),D0>                               {[-4-]}
            <MI 230d4  ANDI.W  #0x007f,D0>                                      {[-4-]}
            <MI 230d8  MOVE.B  D0,(A6-0x4)>                                     {[-4-]}
            <MI 230da  CMPI.B  #0x09,D0>                                        {[-4-]}
            <MI 230de  BNE     0x230e2>                                         {[-4-]}
        <POP 230e0-230e2 Naked>                              Σ-4        ↓
            <MI 230e0  MOVE.B  #0x20,(A6-0x4)>                                  {[-4-]}
        <POP 230e2-230ee Naked>                              Σ-4        ↓ →0x2311e ←0x230ce
            <MI 230e2  CLR.L   D0>                                              {[-4-]}
            <MI 230e4  MOVE.B  (A6-0x4),D0>                                     {[-4-]}
            <MI 230e6  SUB.W   #0x20,D0>                                        {[-4-]}
            <MI 230e8  CMPI.W  #0x000c,D0>                                      {[-4-]}
            <MI 230ec  BHI     0x2311e>                                         {[-4-]}
        <POP 230ee-230f8 Naked>                              Σ-4        →0x23116 →0x23112 →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311e →0x2311a
            <MI 230ee  ADD.W   D0,D0>                                           {[-4-]}
            <MI 230f0  SWITCH  D0.W>                                            {[-4-]}
        <POP 23112-23114 Naked>                              Σ-4        →0x2317e ←0x230ee
            <MI 23112  BRA     0x2317e>                                         {[-4-]}
        <POP 23116-2311a Naked>                              Σ-4        →0x23120 ←0x230ee
            <MI 23116  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <MI 23118  BRA     0x23120>                                         {[-4-]}
        <POP 2311a-2311e Naked>                              Σ-4        →0x23120 ←0x230ee
            <MI 2311a  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 2311c  BRA     0x23120>                                         {[-4-]}
        <POP 2311e-23120 Naked>                              Σ-4        ↓ ←0x230e2 ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee ←0x230ee
            <MI 2311e  MOVEQ.L #0x02,D7>                                        {[-4-]}
        <POP 23120-23144 Naked>                              Σ-4        →0x2314a →0x2314c →0x23156 ←0x23116 ←0x2311a
            <MI 23120  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 23122  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 23124  LEA.L   0x22d48,A0>                                      {[-4-]}
            <MI 23128  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 2312c  CLR.L   D0>                                              {[-4-]}
            <MI 2312e  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <POP 0x23132 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[-4-]}
            <MI 2313a  ADD.W   D0,D0>                                           {[-4-]}
            <MI 2313c  SWITCH  D0.W>                                            {[-4-]}
        <POP 2314a-2314c Naked>                              Σ-4        →0x23162 ←0x23120
            <MI 2314a  BRA     0x23162>                                         {[-4-]}
        <POP 2314c-23156 Naked>                              Σ-4        →0x23162 ←0x23120
            <MI 2314c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2314e  MOVE.B  (A6-0x4),(A0+D5.L+#0x1)>                         {[-4-]}
            <MI 23152  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 23154  BRA     0x23162>                                         {[-4-]}
        <POP 23156-23162 Naked>                              Σ-4        ↓ ←0x23120
            <MI 23156  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 23158  MOVE.B  #0x2c,(A0+D5.L+#0x1)>                            {[-4-]}
            <MI 2315e  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 23160  SUBQ.L  #0x1,D6>                                         {[-4-]}
        <POP 23162-2317e Naked>                              Σ-4        →0x230c0 ←0x2314a ←0x2314c
            <MI 23162  MOVEQ.L #0x03,D0>                                        {[-4-]}
            <MI 23164  MULS.W  (A6-0x10),D0>                                    {[-4-]}
            <MI 23166  LEA.L   0x22d51,A0>                                      {[-4-]}
            <MI 2316a  LEA.L   (A0+D0.W),A0>                                    {[-4-]}
            <MI 2316e  CLR.L   D0>                                              {[-4-]}
            <MI 23170  MOVE.B  (A0+D7.W),D0>                                    {[-4-]}
            <MI 23174  MOVE.W  D0,(A6-0x10)>                                    {[-4-]}
            <MI 23176  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 23178  BRA     0x230c0>                                         {[-4-]}
        <POP 2317e-23188 Naked>                              Σ-4 Δ+4    ↓ ←0x230c0 ←0x23112
            <MI 2317e  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 23180  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 23182  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 23184  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 23186-23188 StackAdj>                       Δ+4                {}
        <POP 23188-23190 Epilogue>                           Σ0         

0x23190


@ 23190
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 23190-2323c Body>                                              
        <POP 23190-231a6 Prologue>                           Σ0         ↓
        <POP 231a6-231ac RegCacheLoad>                       Σ0         ↓
        <POP 231ac-231ba Naked>                              Σ0         ↓ →0x231c2
            <POP 231ac-231ae StackAdj>                       Δ-2                {[-2-]}
            <Call 0x231ae 0x22e86>                                              {[-2-]}
            <MI 231b2  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 231b4  CMPI.B  #0x5b,D0>                                        {}
            <MI 231b8  BNE     0x231c2>                                         {}
        <POP 231ba-231c2 Naked>                              Σ0         ↓
            <POP 231ba-231bc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x231bc 0x22ec4>                                              {[-2-]}
            <MI 231c0  MOVE.B  (A7)+,D7>                     Δ+2                {}
        <POP 231c2-231cc Naked>                              Σ0         ↓ ←0x231ac
            <MI 231c2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 231c6  MOVE.L  #0x01,(A0)>                                      {}
            <MI 231c8  CLR.B   (A6-0x14)>                                       {}
        <POP 231cc-231e6 Naked>                              Σ0         ↓ →0x2321c ←0x2321c
            <Pointer.fp 0x231cc <LVAR -0x00a @>>             Δ-4                {[@@-10]}
            <Pointer.fp 0x231d0 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]}
            <Pointer.fp 0x231d4 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-10]|[@@-2]|[@@-20]}
            <Call 0x231d8 0x22fe6>                                              {[@@-10]|[@@-2]|[@@-20]}
            <POP 231dc-231e0 StackAdj>                       Δ+12               {}
            <MI 231e0  TST.B   (A6-0x2)>                                        {}
            <MI 231e4  BNE     0x2321c>                                         {}
        <POP 231e6-23212 Naked>                              Σ0         ↓ →0x23216
            <Pointer.fp 0x231e6 <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Const 0x231e8 0xc.4>                            Δ-4                {[@@-14]|[##12]}
            <Call 0x231ec 0x1029c>                                              {[@@-14]|[##12]}
                Malloc1(length : Long) : Pointer
            <POP 231f2-231f4 StackAdj>                       Δ+8                {}
            <MI 231f4  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 231f6  MOVEA.L A0,A1>                                           {}
            <MI 231f8  LEA.L   (A6-0xa),A2>                                     {}
            <BlockMove 8,A2,A1>                                                 {}
            <MI 23204  MOVE.L  #0x01,(A0+0x8)>                                  {}
            <MI 23208  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2320c  MOVEA.L (A0),A1>                                         {}
            <MI 2320e  CMPA.W  #0x01,A1>                                        {}
            <MI 23210  BNE     0x23216>                                         {}
        <POP 23212-23216 Naked>                              Σ0         →0x2321a
            <MI 23212  MOVE.L  (A6-0xe),(A0)>                                   {}
            <MI 23214  BRA     0x2321a>                                         {}
        <POP 23216-2321a Naked>                              Σ0         ↓ ←0x231e6
            <MI 23216  MOVE.L  (A6-0xe),(A4+0x8)>                               {}
        <POP 2321a-2321c Naked>                              Σ0         ↓ ←0x23212
            <MI 2321a  MOVEA.L (A6-0xe),A4>                                     {}
        <POP 2321c-23222 Naked>                              Σ0         ↓ →0x231cc ←0x231cc
            <MI 2321c  TST.B   (A6-0x2)>                                        {}
            <MI 23220  BEQ     0x231cc>                                         {}
        <POP 23222-23232 Naked>                              Σ0         ↓ →0x23234
            <MI 23222  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23226  CLR.B   (A0)>                                            {}
            <MI 23228  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 2322c  CMPI.B  #0x02,D0>                                        {}
            <MI 23230  BNE     0x23234>                                         {}
        <POP 23232-23234 Naked>                              Σ0         ↓
            <MI 23232  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 23234-2323c Epilogue>                           Σ0         ←0x23222

0x2323c


@ 2323c
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 2323c-23272 Body>                                              
        <POP 2323c-23252 Prologue>                           Σ0         ↓
        <POP 23252-23258 Naked>                              Σ0         ↓
            <MI 23252  MOVEQ.L #-0x01,D7>                                       {}
            <MI 23254  MOVEA.L (A6+0x8),A4>                                     {}
        <POP 23258-2325e Naked>                              Σ0         ↓ →0x23266 ←0x2325e
            <MI 23258  CMPA.W  #0x1,A4>                                         {}
            <MI 2325c  BEQ     0x23266>                                         {}
        <POP 2325e-23266 Naked>                              Σ0         →0x23258
            <MI 2325e  ADDQ.L  #0x1,D7>                                         {}
            <MI 23260  MOVEA.L (A4+0x8),A4>                                     {}
            <MI 23264  BRA     0x23258>                                         {}
        <POP 23266-2326a Naked>                              Σ0         ↓ ←0x23258
            <MI 23266  MOVE.L  D7,(A6+0xc)>                                     {}
        <POP 2326a-23272 Epilogue>                           Σ0         

0x23272


@ 23272
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23272-232fe Body>                                              
        <POP 23272-23288 Prologue>                           Σ0         ↓
        <POP 23288-2328a RegCacheLoad>                       Σ0         ↓
        <POP 2328a-2329e Naked>                              Σ0         ↓ →0x232f6
            <POP 2328a-2328c StackAdj>                       Δ-4                {[-4-]}
            <MI 2328c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x23290 0x2323c>                                              {[-4-]|[4, '(A6+0xc)']}
            <POP 23294-23296 StackAdj>                       Δ+4                {[-4-]}
            <MI 23296  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 23298  CMP.L   (A6+0x8),D0>                                     {}
            <MI 2329c  BEQ     0x232f6>                                         {}
        <POP 2329e-232f6 Naked>                              Σ0         ↓
            <MI 2329e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x232a2 0x22de6>                                              {[4, '(A6+0xc)']}
            <POP 232a6-232a8 StackAdj>                       Δ+4                {}
            <Blob 0x232a8 [32] @>                            Δ-32               {[«32""»]}
            <Blob 0x232b4 [10] (A6+0x1a)>                    Δ-10               {[«32""»]|[«10»]}
            <POP 232c0-232c2 StackAdj>                       Δ-8                {[«32""»]|[«10»]|[-8-]}
            <Lit 0x232c2 32>                                                    {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
            <POP 232d2-232d4 StackAdj>                       Δ-4                {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
            <Lit 0x232d4>                                                       {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                <Pointer.sp 0x232d4 12>                      Δ-4        
                <Const 0x232d8 0x1.2>                        Δ-2        
                <Const 0x232da 0xa.2>                        Δ-2        
                <Call 0x232de 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 232e4-232e6 StackAdj>                   Δ+8        
            <Call 0x232e6 0x102d0>                                              {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 232ec-232ee StackAdj>                       Δ+8                {[«32""»]|[«10»]|[-4-]}
            <Call 0x232ee 0x22e28>                                              {[«32""»]|[«10»]|[-4-]}
            <POP 232f2-232f6 StackAdj>                       Δ+46               {}
        <POP 232f6-232fe Epilogue>                           Σ0         ←0x2328a

0x232fe


@ 232fe
        <LVAR  0x014 1(rw)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 232fe-23384 Body>                                   Δ-4        
        <POP 232fe-23314 Prologue>                           Σ0         ↓
        <POP 23314-23328 Naked>                              Σ0         ↓ →0x23376
            <MI 23314  CLR.B   (A6+0x14)>                                       {}
            <MI 23318  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 2331c  ADD.L   (A6+0x8),D0>                                     {}
            <MI 23320  CMP.L   0x27982,D0>                                      {}
            <MI 23326  BGT     0x23376>                                         {}
        <POP 23328-2332e Naked>                              Σ0 Δ-4     ↓
            <MI 23328  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 2332c  MOVEQ.L #0x01,D7>                                        {[4, '(A6+0x8)']}
        <POP 2332e-23332 Naked>                              Σ-4        ↓ →0x23374 ←0x23370
            <MI 2332e  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23330  BGT     0x23374>                                         {[-4-]}
        <POP 23332-2336c Naked>                              Σ-4        ↓ →0x23370
            <MI 23332  MOVE.L  (A6+0x10),D0>                                    {[-4-]}
            <MI 23336  ADD.L   D7,D0>                                           {[-4-]}
            <MI 23338  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x2333a LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 23344  LEA.L   0x26976,A0>                                      {[-4-]}
            <MI 2334a  MOVE.L  (A6+0xc),D1>                                     {[-4-]}
            <MI 2334e  ADD.L   D7,D1>                                           {[-4-]}
            <MI 23350  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 23352  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x23354 LimitCheck 0x0 ≤ D1 ≤ 0x3e>                            {[-4-]}
            <MI 2335e  LEA.L   0x2293c,A1>                                      {[-4-]}
            <MI 23362  MOVE.B  (A0+D0.L+#0x8),D0>                               {[-4-]}
            <MI 23366  CMP.B   (A1+D1.L),D0>                                    {[-4-]}
            <MI 2336a  BEQ     0x23370>                                         {[-4-]}
        <POP 2336c-23370 Naked>                              Σ-4 Δ+4    →0x2337c
            <POP 2336c-2336e StackAdj>                       Δ+4                {}
            <MI 2336e  BRA     0x2337c>                                         {}
        <POP 23370-23374 Naked>                              Σ-4        ↓ →0x2332e ←0x23332
            <MI 23370  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23372  BVC     0x2332e>                                         {[-4-]}
        <POP 23374-23376 Naked>                              Σ-4 Δ+4    ↓ ←0x2332e
            <POP 23374-23376 StackAdj>                       Δ+4                {}
        <POP 23376-2337c Naked>                              Σ0         ↓ ←0x23314
            <MI 23376  MOVE.B  #0x01,(A6+0x14)>                                 {}
        <POP 2337c-23384 Epilogue>                           Σ0         ←0x2336c

0x23384


@ 23384
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23384-2340e Body>                                              
        <POP 23384-2339a Prologue>                           Σ0         ↓
        <POP 2339a-233a4 RegCacheLoad>                       Σ0         ↓
        <POP 233a4-233a8 Naked>                              Σ0         ↓ →0x233e6
            <MI 233a4  TST.L   (A6+0x8)>                                        {}
            <MI 233a6  BGE     0x233e6>                                         {}
        <POP 233a8-233b6 Naked>                              Σ0         ↓ →0x233e6
            <MI 233a8  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 233aa  NEG.L   D0>                                              {}
            <MI 233ac  ADD.L   0x27982,D0>                                      {}
            <MI 233ae  CMPI.L  #0x00001000,D0>                                  {}
            <MI 233b4  BLE     0x233e6>                                         {}
        <POP 233b6-233e6 Naked>                              Σ0         ↓
            <Blob 0x233b6 [28] @>                            Δ-28               {[«28""»]}
            <POP 233c8-233ca StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x233ca 27>                                                    {[«28""»]|[$$Evaluation buffer overflow.]}
            <Call 0x233de 0x22e28>                                              {[«28""»]|[$$Evaluation buffer overflow.]}
            <POP 233e2-233e6 StackAdj>                       Δ+32               {}
        <POP 233e6-23406 Naked>                              Σ0         ↓ ←0x233a4 ←0x233a8
            <MI 233e6  LEA.L   0x2697e,A0>                                      {}
            <MI 233ec  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x233ee [4] 0x27982>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 233f0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
            <MI 233f4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x233f6 0x10364>                                              {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                MovStringTail(Base, Len, Ptr, Delta)
            <POP 233fc-23400 StackAdj>                       Δ+16               {}
            <MI 23400  MOVE.L  0x27982,D0>                                      {}
            <MI 23402  SUB.L   (A6+0x8),D0>                                     {}
            <MI 23404  MOVE.L  D0,0x27982>                                      {}
        <POP 23406-2340e Epilogue>                           Σ0         

0x2340e


@ 2340e
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2340e-23498 Body>                                              
        <POP 2340e-23424 Prologue>                           Σ0         ↓
        <POP 23424-23428 RegCacheLoad>                       Σ0         ↓
        <POP 23428-23448 Naked>                              Σ0 Δ-8     ↓
            <MI 23428  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2342c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2342e  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 23430  MOVE.L  (A1),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A1)']}
            <MI 23432  MOVE.W  (A0),D0>                                         {[4, 'A0']|[4, '(A1)']}
            <MI 23434  EXTW.L  D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 23436  NEG.L   D0>                                              {[4, 'A0']|[4, '(A1)']}
            <MI 23438  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <Call 0x2343a 0x23384>                                              {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
            <POP 2343e-23440 StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 23440  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 23442  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 23444  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 23446  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 23448-2344c Naked>                              Σ-8        ↓ →0x23482 ←0x2344c
            <MI 23448  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2344a  BGT     0x23482>                                         {[-8-]}
        <POP 2344c-23482 Naked>                              Σ-8        ↓ →0x23448
            <MI 2344c  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 2344e  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 23450  ADD.L   (A0),D0>                                         {[-8-]}
            <MI 23452  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 23454  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x23456 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 23460  LEA.L   0x26976,A0>                                      {[-8-]}
            <MI 23466  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 23468  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x2346a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 23474  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 23478  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 2347e  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 23480  BVC     0x23448>                                         {[-8-]}
        <POP 23482-23490 Naked>                              Σ-8 Δ+8    ↓ ←0x23448
            <POP 23482-23484 StackAdj>                       Δ+4                {[-4-]}
            <MI 23484  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 23486  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 23488  MOVE.W  (A1),D0>                                         {[-4-]}
            <MI 2348a  EXTW.L  D0>                                              {[-4-]}
            <MI 2348c  ADD.L   D0,(A0)>                                         {[-4-]}
            <POP 2348e-23490 StackAdj>                       Δ+4                {}
        <POP 23490-23498 Epilogue>                           Σ0         

0x23498


@ 23498
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23498-2361e Body>                                              
        <POP 23498-234ae Prologue>                           Σ0         ↓
        <POP 234ae-234bc RegCacheLoad>                       Σ0         ↓
        <POP 234bc-234ce Naked>                              Σ0         ↓
            <MI 234bc  MOVEQ.L #0x00,D7>                                        {}
            <MI 234be  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 234c2  CLR.L   (A0)>                                            {}
            <MI 234c4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 234c6  CLR.L   (A0)>                                            {}
            <MI 234c8  MOVE.L  0x2797e,D6>                                      {}
        <POP 234ce-234f0 Naked>                              Σ0         ↓ →0x235c2 ←0x235cc ←0x235d4
            <MI 234ce  MOVE.L  D6,D0>                                           {}
            <MI 234d0  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x234d2 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 234dc  LEA.L   0x26976,A0>                                      {}
            <MI 234e2  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 234e6  CMPI.B  #0x5b,D0>                                        {}
            <MI 234ea  BNE     0x235c2>                                         {}
        <POP 234f0-23504 Naked>                              Σ0         ↓ →0x23582
            <POP 234f0-234f2 StackAdj>                       Δ-2                {[-2-]}
            <MI 234f2  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x234f4 0x1.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]}
            <Const 0x234f8 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##1]|[##3]}
            <Call 0x234fc 0x232fe>                                              {[-2-]|[4, 'D6']|[##1]|[##3]}
            <POP 234fe-23500 StackAdj>                       Δ+12               {[-2-]}
            <MI 23500  TST.B   (A7)+>                        Δ+2                {}
            <MI 23502  BNE     0x23582>                                         {}
        <POP 23504-23516 Naked>                              Σ0         ↓ →0x23582
            <POP 23504-23506 StackAdj>                       Δ-2                {[-2-]}
            <MI 23506  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x23508 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]}
            <Const 0x2350a 0x3.4>                            Δ-4                {[-2-]|[4, 'D6']|[##4]|[##3]}
            <Call 0x2350e 0x232fe>                                              {[-2-]|[4, 'D6']|[##4]|[##3]}
            <POP 23510-23512 StackAdj>                       Δ+12               {[-2-]}
            <MI 23512  TST.B   (A7)+>                        Δ+2                {}
            <MI 23514  BNE     0x23582>                                         {}
        <POP 23516-23528 Naked>                              Σ0         ↓ →0x23582
            <POP 23516-23518 StackAdj>                       Δ-2                {[-2-]}
            <MI 23518  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2351a 0x7.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]}
            <Const 0x2351e 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##7]|[##4]}
            <Call 0x23520 0x232fe>                                              {[-2-]|[4, 'D6']|[##7]|[##4]}
            <POP 23522-23524 StackAdj>                       Δ+12               {[-2-]}
            <MI 23524  TST.B   (A7)+>                        Δ+2                {}
            <MI 23526  BNE     0x23582>                                         {}
        <POP 23528-2353a Naked>                              Σ0         ↓ →0x23582
            <POP 23528-2352a StackAdj>                       Δ-2                {[-2-]}
            <MI 2352a  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2352c 0xb.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]}
            <Const 0x23530 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##11]|[##4]}
            <Call 0x23532 0x232fe>                                              {[-2-]|[4, 'D6']|[##11]|[##4]}
            <POP 23534-23536 StackAdj>                       Δ+12               {[-2-]}
            <MI 23536  TST.B   (A7)+>                        Δ+2                {}
            <MI 23538  BNE     0x23582>                                         {}
        <POP 2353a-2354c Naked>                              Σ0         ↓ →0x23582
            <POP 2353a-2353c StackAdj>                       Δ-2                {[-2-]}
            <MI 2353c  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2353e 0xf.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]}
            <Const 0x23542 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##15]|[##4]}
            <Call 0x23544 0x232fe>                                              {[-2-]|[4, 'D6']|[##15]|[##4]}
            <POP 23546-23548 StackAdj>                       Δ+12               {[-2-]}
            <MI 23548  TST.B   (A7)+>                        Δ+2                {}
            <MI 2354a  BNE     0x23582>                                         {}
        <POP 2354c-2355e Naked>                              Σ0         ↓ →0x23582
            <POP 2354c-2354e StackAdj>                       Δ-2                {[-2-]}
            <MI 2354e  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x23550 0x13.4>                           Δ-4                {[-2-]|[4, 'D6']|[##19]}
            <Const 0x23554 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##19]|[##4]}
            <Call 0x23556 0x232fe>                                              {[-2-]|[4, 'D6']|[##19]|[##4]}
            <POP 23558-2355a StackAdj>                       Δ+12               {[-2-]}
            <MI 2355a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2355c  BNE     0x23582>                                         {}
        <POP 2355e-23570 Naked>                              Σ0         ↓ →0x23582
            <POP 2355e-23560 StackAdj>                       Δ-2                {[-2-]}
            <MI 23560  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x23562 0x17.4>                           Δ-4                {[-2-]|[4, 'D6']|[##23]}
            <Const 0x23566 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##23]|[##4]}
            <Call 0x23568 0x232fe>                                              {[-2-]|[4, 'D6']|[##23]|[##4]}
            <POP 2356a-2356c StackAdj>                       Δ+12               {[-2-]}
            <MI 2356c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2356e  BNE     0x23582>                                         {}
        <POP 23570-23582 Naked>                              Σ0         ↓ →0x23586
            <POP 23570-23572 StackAdj>                       Δ-2                {[-2-]}
            <MI 23572  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x23574 0x1b.4>                           Δ-4                {[-2-]|[4, 'D6']|[##27]}
            <Const 0x23578 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##27]|[##4]}
            <Call 0x2357a 0x232fe>                                              {[-2-]|[4, 'D6']|[##27]|[##4]}
            <POP 2357c-2357e StackAdj>                       Δ+12               {[-2-]}
            <MI 2357e  TST.B   (A7)+>                        Δ+2                {}
            <MI 23580  BEQ     0x23586>                                         {}
        <POP 23582-23586 Naked>                              Σ0         →0x235c2 ←0x234f0 ←0x23504 ←0x23516 ←0x23528 ←0x2353a ←0x2354c ←0x2355e
            <MI 23582  ADDQ.L  #0x1,D7>                                         {}
            <MI 23584  BRA     0x235c2>                                         {}
        <POP 23586-2358a Naked>                              Σ0         ↓ →0x235a6 ←0x23570
            <MI 23586  TST.L   D7>                                              {}
            <MI 23588  BNE     0x235a6>                                         {}
        <POP 2358a-2359e Naked>                              Σ0         ↓ →0x235a6
            <POP 2358a-2358c StackAdj>                       Δ-2                {[-2-]}
            <MI 2358c  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x2358e 0x1f.4>                           Δ-4                {[-2-]|[4, 'D6']|[##31]}
            <Const 0x23592 0x5.4>                            Δ-4                {[-2-]|[4, 'D6']|[##31]|[##5]}
            <Call 0x23596 0x232fe>                                              {[-2-]|[4, 'D6']|[##31]|[##5]}
            <POP 23598-2359a StackAdj>                       Δ+12               {[-2-]}
            <MI 2359a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2359c  BEQ     0x235a6>                                         {}
        <POP 2359e-235a2 Naked>                              Σ0         ↓
            <MI 2359e  MOVEA.L (A6+0xc),A0>                                     {}
        <POP 235a2-235a6 Naked>                              Σ0         →0x235c2 ←0x235bc
            <MI 235a2  MOVE.L  D6,(A0)>                                         {}
            <MI 235a4  BRA     0x235c2>                                         {}
        <POP 235a6-235b8 Naked>                              Σ0         ↓ →0x235c2 ←0x23586 ←0x2358a
            <POP 235a6-235a8 StackAdj>                       Δ-2                {[-2-]}
            <MI 235a8  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Const 0x235aa 0x24.4>                           Δ-4                {[-2-]|[4, 'D6']|[##36]}
            <Const 0x235ae 0x4.4>                            Δ-4                {[-2-]|[4, 'D6']|[##36]|[##4]}
            <Call 0x235b0 0x232fe>                                              {[-2-]|[4, 'D6']|[##36]|[##4]}
            <POP 235b2-235b4 StackAdj>                       Δ+12               {[-2-]}
            <MI 235b4  TST.B   (A7)+>                        Δ+2                {}
            <MI 235b6  BEQ     0x235c2>                                         {}
        <POP 235b8-235bc Naked>                              Σ0         ↓ →0x235c0
            <MI 235b8  TST.L   D7>                                              {}
            <MI 235ba  BNE     0x235c0>                                         {}
        <POP 235bc-235c0 Naked>                              Σ0         →0x235a2
            <MI 235bc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 235be  BRA     0x235a2>                                         {}
        <POP 235c0-235c2 Naked>                              Σ0         ↓ ←0x235b8
            <MI 235c0  SUBQ.L  #0x1,D7>                                         {}
        <POP 235c2-235cc Naked>                              Σ0         ↓ →0x235de ←0x234ce ←0x23582 ←0x235a2 ←0x235a6
            <MI 235c2  ADDQ.L  #0x1,D6>                                         {}
            <MI 235c4  CMP.L   0x27982,D6>                                      {}
            <MI 235ca  BGT     0x235de>                                         {}
        <POP 235cc-235d4 Naked>                              Σ0         ↓ →0x234ce
            <MI 235cc  TST.L   D7>                                              {}
            <MI 235ce  BNE     0x234ce>                                         {}
        <POP 235d4-235de Naked>                              Σ0         ↓ →0x234ce
            <MI 235d4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 235d6  TST.L   (A0)>                                            {}
            <MI 235d8  BEQ     0x234ce>                                         {}
        <POP 235de-235e6 Naked>                              Σ0         ↓ →0x23616 ←0x235c2
            <MI 235de  CMP.L   0x27982,D6>                                      {}
            <MI 235e4  BLE     0x23616>                                         {}
        <POP 235e6-23616 Naked>                              Σ0         ↓
            <Blob 0x235e6 [28] @>                            Δ-28               {[«28""»]}
            <POP 235f8-235fa StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x235fa 27>                                                    {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <Call 0x2360e 0x22e28>                                              {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
            <POP 23612-23616 StackAdj>                       Δ+32               {}
        <POP 23616-2361e Epilogue>                           Σ0         ←0x235de

0x2361e


@ 2361e
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 2361e-23664 Body>                                              
        <POP 2361e-23634 Prologue>                           Σ0         ↓
        <POP 23634-2363c RegCacheLoad>                       Σ0         ↓
        <POP 2363c-2364a Naked>                              Σ0         ↓ →0x2364c
            <Pointer.fp 0x2363c <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Pointer.fp 0x2363e <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x23640 0x23498>                                              {[@@-8]|[@@-4]}
            <POP 23644-23646 StackAdj>                       Δ+8                {}
            <MI 23646  TST.L   (A6-0x8)>                                        {}
            <MI 23648  BNE     0x2364c>                                         {}
        <POP 2364a-2364c Naked>                              Σ0         ↓
            <MI 2364a  MOVE.L  (A6-0x4),(A6-0x8)>                               {}
        <POP 2364c-2365c Naked>                              Σ0         ↓ ←0x2363c
            <MI 2364c  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 2364e  ADDQ.L  #0x5,D0>                                         {}
            <MI 23650  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 23652  SUB.L   (A6-0x8),D0>                                     {[4, 'D0']}
            <MI 23654  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x23656 0x23384>                                              {[4, 'D0']|[4, 'D0']}
            <POP 2365a-2365c StackAdj>                       Δ+8                {}
        <POP 2365c-23664 Epilogue>                           Σ0         

0x23664


@ 23664
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 23664-236c0 Body>                                              
        <POP 23664-2367a Prologue>                           Σ0         ↓
        <POP 2367a-23682 RegCacheLoad>                       Σ0         ↓
        <POP 23682-23690 Naked>                              Σ0         ↓ →0x23696
            <Pointer.fp 0x23682 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x23684 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Call 0x23686 0x23498>                                              {[@@-8]|[@@-4]}
            <POP 2368a-2368c StackAdj>                       Δ+8                {}
            <MI 2368c  TST.L   (A6-0x8)>                                        {}
            <MI 2368e  BNE     0x23696>                                         {}
        <POP 23690-23696 Naked>                              Σ0         →0x236a8
            <MI 23690  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 23692  ADDQ.L  #0x5,D0>                                         {}
            <MI 23694  BRA     0x236a8>                                         {}
        <POP 23696-236a8 Naked>                              Σ0         ↓ ←0x23682
            <MI 23696  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 23698  ADDQ.L  #0x5,(A7)>                                       {[-4-]}
            <Const 0x2369a 0x5.4>                            Δ-4                {[-4-]|[##5]}
            <Call 0x2369e 0x23384>                                              {[-4-]|[##5]}
            <POP 236a2-236a4 StackAdj>                       Δ+8                {}
            <MI 236a4  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 236a6  ADDQ.L  #0x6,D0>                                         {}
        <POP 236a8-236b8 Naked>                              Σ0         ↓ ←0x23690
            <MI 236a8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 236aa  SUB.L   0x2797e,D0>                                      {[4, 'D0']}
            <MI 236b0  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x236b2 0x23384>                                              {[4, 'D0']|[4, 'D0']}
            <POP 236b6-236b8 StackAdj>                       Δ+8                {}
        <POP 236b8-236c0 Epilogue>                           Σ0         

0x236c0


@ 236c0
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 236c0-237d6 Body>                                              
        <POP 236c0-236d6 Prologue>                           Σ0         ↓
        <POP 236d6-236ee RegCacheLoad>                       Σ0         ↓
        <POP 236ee-236f2 Naked>                              Σ0         ↓ →0x236fc
            <MI 236ee  TST.B   0x27990>                                         {}
            <MI 236f0  BEQ     0x236fc>                                         {}
        <POP 236f2-236f6 Naked>                              Σ0         ↓ →0x236fc
            <MI 236f2  TST.L   0x27996>                                         {}
            <MI 236f4  BNE     0x236fc>                                         {}
        <POP 236f6-236fc Naked>                              Σ0         ↓
            <MI 236f6  MOVE.L  (A6+0x8),0x27996>                                {}
            <MI 236fa  SUBQ.L  #0x1,0x27996>                                    {}
        <POP 236fc-23704 Naked>                              Σ0         ↓ →0x237ce ←0x236ee ←0x236f2
            <MI 236fc  TST.B   0x27990>                                         {}
            <MI 236fe  BNE     0x237ce>                                         {}
        <POP 23704-23738 Naked>                              Σ0         ↓ →0x23752
            <MI 23704  MOVE.L  (A6+0x8),0x2797e>                                {}
            <MI 23708  ADDQ.L  #0x6,0x2797e>                                    {}
            <Pointer.fp 0x2370a <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x2370c <LVAR -0x004 @>>             Δ-4                {[@@-8]|[@@-4]}
            <Call 0x23710 0x23190>                                              {[@@-8]|[@@-4]}
            <POP 23714-23716 StackAdj>                       Δ+8                {}
            <Blob 0x23716 [10] @>                            Δ-10               {[«10""»]}
            <MI 23722  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[4, '(A6-0x8)']}
            <Const 0x23724 0x0.4>                            Δ-4                {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <Call 0x23728 0x23272>                                              {[«10""»]|[4, '(A6-0x8)']|[##0]}
            <POP 2372c-23730 StackAdj>                       Δ+18               {}
            <MI 23730  TST.B   0x2799a>                                         {}
            <MI 23736  BEQ     0x23752>                                         {}
        <POP 23738-23752 Naked>                              Σ0         →0x23766
            <POP 23738-2373a StackAdj>                       Δ-8                {[-8-]}
            <MI 2373a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x2373c 0x0.4>                            Δ-4                {[-8-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x23740 0x23b98>                                              {[-8-]|[4, '(A6-0x8)']|[##0]}
            <POP 23746-23748 StackAdj>                       Δ+8                {[-8-]}
            <MI 23748  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 2374c  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 23750  BRA     0x23766>                                         {}
        <POP 23752-23766 Naked>                              Σ0         ↓ ←0x23704
            <POP 23752-23754 StackAdj>                       Δ-4                {[-4-]}
            <MI 23754  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <Const 0x23756 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x8)']|[##0]}
            <Call 0x2375a 0x23b66>                                              {[-4-]|[4, '(A6-0x8)']|[##0]}
            <POP 23760-23762 StackAdj>                       Δ+8                {[-4-]}
            <MI 23762  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
        <POP 23766-2377c Naked>                              Σ0         ↓ →0x237a6 ←0x23738
            <MI 23766  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x23768 0x22de6>                                              {[4, '(A6-0x8)']}
            <POP 2376c-2376e StackAdj>                       Δ+4                {}
            <MI 2376e  MOVE.L  0x2797e,0x27992>                                 {}
            <MI 23774  TST.B   0x2799a>                                         {}
            <MI 2377a  BEQ     0x237a6>                                         {}
        <POP 2377c-237a6 Naked>                              Σ0         →0x237ce
            <POP 2377c-2377e StackAdj>                       Δ-2                {[-2-]}
            <MI 2377e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']}
            <MI 23782  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Blob 0x23786 [4] 0x279a4>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
            <Blob 0x2378c [4] 0x279a0>                       Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
            <Call 0x23792 0x1032c>                                              {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
                IsEqual(a, b : Quad) : Bool
            <POP 23798-2379c StackAdj>                       Δ+16               {[-2-]}
            <MI 2379c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2379e  EXTB.W  D0>                                              {}
            <POP 0x237a0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 237a2  MOVE.B  D0,0x27990>                                      {}
            <MI 237a4  BRA     0x237ce>                                         {}
        <POP 237a6-237ce Naked>                              Σ0         ↓ ←0x23766
            <POP 237a6-237a8 StackAdj>                       Δ-2                {[-2-]}
            <MI 237a8  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xc)']}
            <Blob 0x237ac [4] 0x2799c>                       Δ-4                {[-2-]|[4, '(A6-0xc)']|[«4»]}
            <Call 0x237b2 0x102c8>                                              {[-2-]|[4, '(A6-0xc)']|[«4»]}
                StringEqual(a, b : String) : Byte
            <POP 237b8-237ba StackAdj>                       Δ+8                {[-2-]}
            <MI 237ba  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 237bc  EXTB.W  D0>                                              {}
            <POP 0x237be LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 237c0  MOVE.B  D0,0x27990>                                      {}
            <Pointer.fp 0x237c2 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x237c6 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 237cc-237ce StackAdj>                       Δ+4                {}
        <POP 237ce-237d6 Epilogue>                           Σ0         ←0x236fc ←0x2377c

0x237d6


@ 237d6
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 237d6-2395e Body>                                              
        <POP 237d6-237ec Prologue>                           Σ0         ↓
        <POP 237ec-23800 RegCacheLoad>                       Σ0         ↓
        <POP 23800-23814 Naked>                              Σ0         ↓
            <MI 23800  CLR.B   0x27990>                                         {}
            <MI 23802  CLR.L   0x27992>                                         {}
            <MI 23808  CLR.L   0x27996>                                         {}
            <MI 2380a  MOVEQ.L #0x00,D7>                                        {}
            <MI 2380c  MOVEQ.L #0x00,D6>                                        {}
            <MI 2380e  MOVE.L  0x2797e,D5>                                      {}
        <POP 23814-2381c Naked>                              Σ0         ↓ →0x238be ←0x238b8
            <MI 23814  TST.L   D6>                                              {}
            <MI 23816  BNE     0x238be>                                         {}
        <POP 2381c-23828 Naked>                              Σ0         ↓ →0x238be
            <MI 2381c  CMP.L   0x27982,D5>                                      {}
            <MI 23822  BGT     0x238be>                                         {}
        <POP 23828-23846 Naked>                              Σ0         ↓ →0x238b2
            <MI 23828  MOVE.L  D5,D0>                                           {}
            <MI 2382a  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x2382c LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 23836  LEA.L   0x26976,A0>                                      {}
            <MI 2383c  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 23840  CMPI.B  #0x5b,D0>                                        {}
            <MI 23844  BNE     0x238b2>                                         {}
        <POP 23846-2385a Naked>                              Σ0         ↓ →0x2386e
            <POP 23846-23848 StackAdj>                       Δ-2                {[-2-]}
            <MI 23848  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x2384a 0x28.4>                           Δ-4                {[-2-]|[4, 'D5']|[##40]}
            <Const 0x2384e 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##40]|[##5]}
            <Call 0x23852 0x232fe>                                              {[-2-]|[4, 'D5']|[##40]|[##5]}
            <POP 23854-23856 StackAdj>                       Δ+12               {[-2-]}
            <MI 23856  TST.B   (A7)+>                        Δ+2                {}
            <MI 23858  BNE     0x2386e>                                         {}
        <POP 2385a-2386e Naked>                              Σ0         ↓ →0x23872
            <POP 2385a-2385c StackAdj>                       Δ-2                {[-2-]}
            <MI 2385c  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x2385e 0x2d.4>                           Δ-4                {[-2-]|[4, 'D5']|[##45]}
            <Const 0x23862 0x6.4>                            Δ-4                {[-2-]|[4, 'D5']|[##45]|[##6]}
            <Call 0x23866 0x232fe>                                              {[-2-]|[4, 'D5']|[##45]|[##6]}
            <POP 23868-2386a StackAdj>                       Δ+12               {[-2-]}
            <MI 2386a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2386c  BEQ     0x23872>                                         {}
        <POP 2386e-23872 Naked>                              Σ0         →0x238b2 ←0x23846
            <MI 2386e  ADDQ.L  #0x1,D7>                                         {}
            <MI 23870  BRA     0x238b2>                                         {}
        <POP 23872-23876 Naked>                              Σ0         ↓ →0x23894 ←0x2385a
            <MI 23872  TST.L   D7>                                              {}
            <MI 23874  BNE     0x23894>                                         {}
        <POP 23876-2388a Naked>                              Σ0         ↓ →0x23894
            <POP 23876-23878 StackAdj>                       Δ-2                {[-2-]}
            <MI 23878  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x2387a 0x33.4>                           Δ-4                {[-2-]|[4, 'D5']|[##51]}
            <Const 0x2387e 0x5.4>                            Δ-4                {[-2-]|[4, 'D5']|[##51]|[##5]}
            <Call 0x23882 0x232fe>                                              {[-2-]|[4, 'D5']|[##51]|[##5]}
            <POP 23884-23886 StackAdj>                       Δ+12               {[-2-]}
            <MI 23886  TST.B   (A7)+>                        Δ+2                {}
            <MI 23888  BEQ     0x23894>                                         {}
        <POP 2388a-23894 Naked>                              Σ0         →0x238b2
            <MI 2388a  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <Call 0x2388c 0x236c0>                                              {[4, 'D5']}
            <POP 23890-23892 StackAdj>                       Δ+4                {}
            <MI 23892  BRA     0x238b2>                                         {}
        <POP 23894-238a8 Naked>                              Σ0         ↓ →0x238b2 ←0x23872 ←0x23876
            <POP 23894-23896 StackAdj>                       Δ-2                {[-2-]}
            <MI 23896  MOVE.L  D5,-(A7)>                     Δ-4                {[-2-]|[4, 'D5']}
            <Const 0x23898 0x38.4>                           Δ-4                {[-2-]|[4, 'D5']|[##56]}
            <Const 0x2389c 0x8.4>                            Δ-4                {[-2-]|[4, 'D5']|[##56]|[##8]}
            <Call 0x238a0 0x232fe>                                              {[-2-]|[4, 'D5']|[##56]|[##8]}
            <POP 238a2-238a4 StackAdj>                       Δ+12               {[-2-]}
            <MI 238a4  TST.B   (A7)+>                        Δ+2                {}
            <MI 238a6  BEQ     0x238b2>                                         {}
        <POP 238a8-238ac Naked>                              Σ0         ↓ →0x238b0
            <MI 238a8  TST.L   D7>                                              {}
            <MI 238aa  BNE     0x238b0>                                         {}
        <POP 238ac-238b0 Naked>                              Σ0         →0x238b2
            <MI 238ac  MOVE.L  D5,D6>                                           {}
            <MI 238ae  BRA     0x238b2>                                         {}
        <POP 238b0-238b2 Naked>                              Σ0         ↓ ←0x238a8
            <MI 238b0  SUBQ.L  #0x1,D7>                                         {}
        <POP 238b2-238b6 Naked>                              Σ0         ↓ →0x238b8 ←0x23828 ←0x2386e ←0x2388a ←0x23894 ←0x238ac
            <MI 238b2  TST.L   D6>                                              {}
            <MI 238b4  BNE     0x238b8>                                         {}
        <POP 238b6-238b8 Naked>                              Σ0         ↓
            <MI 238b6  ADDQ.L  #0x1,D5>                                         {}
        <POP 238b8-238be Naked>                              Σ0         →0x23814 ←0x238b2
            <MI 238b8  BRA     0x23814>                                         {}
        <POP 238be-238c6 Naked>                              Σ0         ↓ →0x238d4 ←0x23814 ←0x2381c
            <MI 238be  TST.B   0x2799a>                                         {}
            <MI 238c4  BNE     0x238d4>                                         {}
        <POP 238c6-238d4 Naked>                              Σ0         ↓
            <Const 0x238c6 0x2799c.4>                        Δ-4                {[##162204]}
            <Call 0x238cc 0x102bc>                                              {[##162204]}
                FreeString(VAR a : String)
            <POP 238d2-238d4 StackAdj>                       Δ+4                {}
        <POP 238d4-238d8 Naked>                              Σ0         ↓ →0x23900 ←0x238be
            <MI 238d4  TST.B   0x27990>                                         {}
            <MI 238d6  BNE     0x23900>                                         {}
        <POP 238d8-23900 Naked>                              Σ0         ↓
            <Blob 0x238d8 [26] @>                            Δ-26               {[«26""»]}
            <POP 238e4-238e6 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x238e6 26>                                                    {[«26""»]|[$$No case alternative found!]}
            <Call 0x238f8 0x22e28>                                              {[«26""»]|[$$No case alternative found!]}
            <POP 238fc-23900 StackAdj>                       Δ+30               {}
        <POP 23900-23904 Naked>                              Σ0         ↓ →0x23932 ←0x238d4
            <MI 23900  TST.L   D6>                                              {}
            <MI 23902  BNE     0x23932>                                         {}
        <POP 23904-23932 Naked>                              Σ0         ↓
            <Blob 0x23904 [20] @>                            Δ-20               {[«20""»]}
            <POP 23916-23918 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x23918 19>                                                    {[«20""»]|[$$No [ENDCASE] found!]}
            <Call 0x2392a 0x22e28>                                              {[«20""»]|[$$No [ENDCASE] found!]}
            <POP 2392e-23932 StackAdj>                       Δ+24               {}
        <POP 23932-23946 Naked>                              Σ0         ↓ →0x23950 ←0x23900
            <MI 23932  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23936  MOVE.L  D6,(A0)>                                         {}
            <MI 23938  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 2393c  MOVE.L  0x27992,(A0)>                                    {}
            <MI 23942  TST.L   0x27996>                                         {}
            <MI 23944  BNE     0x23950>                                         {}
        <POP 23946-23950 Naked>                              Σ0         →0x23956
            <MI 23946  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2394a  MOVE.L  D6,(A0)>                                         {}
            <MI 2394c  SUBQ.L  #0x1,(A0)>                                       {}
            <MI 2394e  BRA     0x23956>                                         {}
        <POP 23950-23956 Naked>                              Σ0         ↓ ←0x23932
            <MI 23950  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 23954  MOVE.L  0x27996,(A0)>                                    {}
        <POP 23956-2395e Epilogue>                           Σ0         ←0x23946

0x2395e


@ 2395e
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 2395e-239d2 Body>                                              
        <POP 2395e-23974 Prologue>                           Σ0         ↓
        <POP 23974-2397e RegCacheLoad>                       Σ0         ↓
        <POP 2397e-239ca Naked>                              Σ0         ↓
            <MI 2397e  MOVE.L  0x2797e,D6>                                      {}
            <MI 23980  CLR.B   0x2799a>                                         {}
            <MI 23986  MOVE.L  (A6+0x8),0x2799c>                                {}
            <MI 2398e  MOVE.L  0x2797e,D7>                                      {}
            <Pointer.fp 0x23990 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x23992 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x23996 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x2399a 0x237d6>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 2399e-239a2 StackAdj>                       Δ+12               {}
            <MI 239a2  MOVE.L  D6,0x2797e>                                      {}
            <MI 239a4  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 239a8  ADDI.L  #0x00000009,D0>                                  {}
            <MI 239ae  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 239b0  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 239b4  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 239b6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x239b8 0x23384>                                              {[4, 'D0']|[4, 'D0']}
            <POP 239bc-239be StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 239be  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 239c0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 239c2  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x239c4 0x23384>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 239c8-239ca StackAdj>                       Δ+8                {}
        <POP 239ca-239d2 Epilogue>                           Σ0         

0x239d2


@ 239d2
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 239d2-23a50 Body>                                              
        <POP 239d2-239e8 Prologue>                           Σ0         ↓
        <POP 239e8-239f2 RegCacheLoad>                       Σ0         ↓
        <POP 239f2-23a48 Naked>                              Σ0         ↓
            <MI 239f2  MOVE.L  0x2797e,D6>                                      {}
            <MI 239f4  MOVE.B  #0x01,0x2799a>                                   {}
            <MI 239fc  MOVE.L  (A6+0x8),0x279a0>                                {}
            <MI 23a04  MOVE.L  (A6+0xc),0x279a4>                                {}
            <MI 23a0c  MOVE.L  0x2797e,D7>                                      {}
            <Pointer.fp 0x23a0e <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Pointer.fp 0x23a10 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]}
            <Pointer.fp 0x23a14 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-16]|[@@-12]|[@@-8]}
            <Call 0x23a18 0x237d6>                                              {[@@-16]|[@@-12]|[@@-8]}
            <POP 23a1c-23a20 StackAdj>                       Δ+12               {}
            <MI 23a20  MOVE.L  D6,0x2797e>                                      {}
            <MI 23a22  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 23a26  ADDI.L  #0x00000009,D0>                                  {}
            <MI 23a2c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 23a2e  SUB.L   (A6-0xc),D0>                                     {[4, 'D0']}
            <MI 23a32  SUBQ.L  #0x1,D0>                                         {[4, 'D0']}
            <MI 23a34  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'D0']}
            <Call 0x23a36 0x23384>                                              {[4, 'D0']|[4, 'D0']}
            <POP 23a3a-23a3c StackAdj>                       Δ+4                {[4, 'D0']}
            <MI 23a3c  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 23a3e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
            <MI 23a40  SUB.L   D7,(A7)>                                         {[4, '(A6-0x10)']|[-4-]}
            <Call 0x23a42 0x23384>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 23a46-23a48 StackAdj>                       Δ+8                {}
        <POP 23a48-23a50 Epilogue>                           Σ0         

0x23a50


@ 23a50
        <LVAR  0x010 4(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23a50-23a88 Body>                                              
        <POP 23a50-23a66 Prologue>                           Σ0         ↓
        <POP 23a66-23a6c Naked>                              Σ0         ↓ →0x23a72
            <MI 23a66  TST.L   (A6+0x8)>                                        {}
            <MI 23a6a  BNE     0x23a72>                                         {}
        <POP 23a6c-23a72 Naked>                              Σ0         →0x23a80
            <MI 23a6c  CLR.L   (A6+0x10)>                                       {}
            <MI 23a70  BRA     0x23a80>                                         {}
        <POP 23a72-23a80 Naked>                              Σ0         ↓ ←0x23a66
            <MI 23a72  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 23a76  SUB.L   (A6+0x8),D0>                                     {}
            <MI 23a7a  ADDQ.L  #0x1,D0>                                         {}
            <MI 23a7c  MOVE.L  D0,(A6+0x10)>                                    {}
        <POP 23a80-23a88 Epilogue>                           Σ0         ←0x23a6c

0x23a88


@ 23a88
        <LVAR  0x014 4(w)>
        <LVAR  0x010 @ 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23a88-23aea Body>                                   Δ-4        
        <POP 23a88-23a9e Prologue>                           Σ0         ↓
        <POP 23a9e-23ab4 Naked>                              Σ0 Δ-4     ↓
            <MI 23a9e  MOVEA.L (A6+0xc),A4>                                     {}
            <MI 23aa2  MOVE.L  0x22d40,(A6+0x10)>                               {}
            <MI 23aa8  MOVE.L  0x22d44,(A6+0x14)>                               {}
            <MI 23aae  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 23ab2  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 23ab4-23ab8 Naked>                              Σ-4        ↓ →0x23ae0 ←0x23adc
            <MI 23ab4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23ab6  BGT     0x23ae0>                                         {[-4-]}
        <POP 23ab8-23abe Naked>                              Σ-4        ↓ →0x23ac2
            <MI 23ab8  CMPA.W  #0x1,A4>                                         {[-4-]}
            <MI 23abc  BNE     0x23ac2>                                         {[-4-]}
        <POP 23abe-23ac2 Naked>                              Σ-4 Δ+4    →0x23ae2
            <POP 23abe-23ac0 StackAdj>                       Δ+4                {}
            <MI 23ac0  BRA     0x23ae2>                                         {}
        <POP 23ac2-23ac8 Naked>                              Σ-4        ↓ →0x23ad8 ←0x23ab8
            <MI 23ac2  CMP.L   (A6+0x8),D7>                                     {[-4-]}
            <MI 23ac6  BNE     0x23ad8>                                         {[-4-]}
        <POP 23ac8-23ad8 Naked>                              Σ-4        →0x23adc
            <MI 23ac8  LEA.L   (A6+0x10),A0>                                    {[-4-]}
            <MI 23acc  MOVEA.L A4,A1>                                           {[-4-]}
            <BlockMove 8,A1,A0>                                                 {[-4-]}
            <MI 23ad6  BRA     0x23adc>                                         {[-4-]}
        <POP 23ad8-23adc Naked>                              Σ-4        ↓ ←0x23ac2
            <MI 23ad8  MOVEA.L (A4+0x8),A4>                                     {[-4-]}
        <POP 23adc-23ae0 Naked>                              Σ-4        ↓ →0x23ab4 ←0x23ac8
            <MI 23adc  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23ade  BVC     0x23ab4>                                         {[-4-]}
        <POP 23ae0-23ae2 Naked>                              Σ-4 Δ+4    ↓ ←0x23ab4
            <POP 23ae0-23ae2 StackAdj>                       Δ+4                {}
        <POP 23ae2-23aea Epilogue>                           Σ0         ←0x23abe

0x23aea


@ 23aea
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 23aea-23b66 Body>                                   Δ-4        
        <POP 23aea-23b00 Prologue>                           Σ0         ↓
        <POP 23b00-23b04 RegCacheLoad>                       Σ0         ↓
        <POP 23b04-23b1c Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x23b04 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x23b06 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 23b0c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']}
            <MI 23b10  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x23b14 0x23a50>                                              {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 23b18-23b1a StackAdj>                       Δ+8                {[@@-8]}
            <MI 23b1a  MOVEQ.L #0x01,D7>                                        {[@@-8]}
        <POP 23b1c-23b20 Naked>                              Σ-4        ↓ →0x23b58 ←0x23b48
            <MI 23b1c  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23b1e  BGT     0x23b58>                                         {[-4-]}
        <POP 23b20-23b44 Naked>                              Σ-4        ↓ →0x23b48
            <MI 23b20  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 23b22  ADD.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 23b26  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 23b28  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x23b2a LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]}
            <MI 23b34  LEA.L   0x26976,A0>                                      {[-4-]}
            <MI 23b3a  MOVE.B  (A0+D0.L+#0x8),D6>                               {[-4-]}
            <MI 23b3e  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 23b42  BNE     0x23b48>                                         {[-4-]}
        <POP 23b44-23b48 Naked>                              Σ-4 Δ+4    →0x23b5a
            <POP 23b44-23b46 StackAdj>                       Δ+4                {}
            <MI 23b46  BRA     0x23b5a>                                         {}
        <POP 23b48-23b58 Naked>                              Σ-4        ↓ →0x23b1c ←0x23b20
            <MI 23b48  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 23b4a  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
            <Call 0x23b4c 0x102c0>                                              {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 23b52-23b54 StackAdj>                       Δ+6                {[-4-]}
            <MI 23b54  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23b56  BVC     0x23b1c>                                         {[-4-]}
        <POP 23b58-23b5a Naked>                              Σ-4 Δ+4    ↓ ←0x23b1c
            <POP 23b58-23b5a StackAdj>                       Δ+4                {}
        <POP 23b5a-23b5e Naked>                              Σ0         ↓ ←0x23b44
            <MI 23b5a  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 23b5e-23b66 Epilogue>                           Σ0         

0x23b66


@ 23b66
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23b66-23b98 Body>                                              
        <POP 23b66-23b78 Prologue>                           Σ0         ↓
        <POP 23b78-23b94 Naked>                              Σ0         ↓
            <POP 23b78-23b7c StackAdj>                       Δ-12               {[-12-]}
            <MI 23b7c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 23b80  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x23b84 0x23a88>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 23b88-23b8a StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23b8a 0x23aea>                                              {[-12-]}
            <POP 23b8e-23b90 StackAdj>                       Δ+8                {[-4-]}
            <MI 23b90  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 23b94-23b98 Epilogue>                           Σ0         

0x23b98


@ 23b98
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23b98-23bd4 Body>                                              
        <POP 23b98-23baa Prologue>                           Σ0         ↓
        <POP 23baa-23bd0 Naked>                              Σ0         ↓
            <POP 23baa-23bae StackAdj>                       Δ-12               {[-12-]}
            <MI 23bae  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 23bb2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x23bb6 0x23b66>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 23bba-23bbc StackAdj>                       Δ+8                {[-12-]}
            <Const 0x23bbc 0x10.4>                           Δ-4                {[-12-]|[##16]}
            <Call 0x23bc0 0x10360>                                              {[-12-]|[##16]}
                ?StringToInt64()
            <POP 23bc6-23bc8 StackAdj>                       Δ+8                {[-8-]}
            <MI 23bc8  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {[-4-]}
            <MI 23bcc  MOVE.L  (A7)+,(A6+0x14)>              Δ+4                {}
        <POP 23bd0-23bd4 Epilogue>                           Σ0         

0x23bd4


@ 23bd4
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23bd4-23c08 Body>                                              
        <POP 23bd4-23be6 Prologue>                           Σ0         ↓
        <POP 23be6-23c04 Naked>                              Σ0         ↓
            <POP 23be6-23bea StackAdj>                       Δ-12               {[-12-]}
            <MI 23bea  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 23bee  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x23bf2 0x23b98>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 23bf6-23bf8 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x23bf8 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 23bfe-23c00 StackAdj>                       Δ+8                {[-4-]}
            <MI 23c00  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 23c04-23c08 Epilogue>                           Σ0         

0x23c08


@ 23c08
        <LVAR  0x008 @ 4(r)>
    <POP 23c08-23c90 Body>                                              
        <POP 23c08-23c1e Prologue>                           Σ0         ↓
        <POP 23c1e-23c24 RegCacheLoad>                       Σ0         ↓
        <POP 23c24-23c42 Naked>                              Σ0 Δ-8     ↓
            <MI 23c24  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23c28  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x23c2a [4] 0x2797e>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 23c2c  MOVE.W  (A0),D0>                                         {[4, 'A0']|[«4»]}
            <MI 23c2e  EXTW.L  D0>                                              {[4, 'A0']|[«4»]}
            <MI 23c30  NEG.L   D0>                                              {[4, 'A0']|[«4»]}
            <MI 23c32  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[«4»]|[4, 'D0']}
            <Call 0x23c34 0x23384>                                              {[4, 'A0']|[«4»]|[4, 'D0']}
            <POP 23c38-23c3a StackAdj>                       Δ+8                {[4, 'A0']}
            <MI 23c3a  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 23c3c  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 23c3e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 23c40  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 23c42-23c46 Naked>                              Σ-8        ↓ →0x23c7a ←0x23c46
            <MI 23c42  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 23c44  BGT     0x23c7a>                                         {[-8-]}
        <POP 23c46-23c7a Naked>                              Σ-8        ↓ →0x23c42
            <MI 23c46  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 23c48  ADD.L   0x2797e,D0>                                      {[-8-]}
            <MI 23c4a  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 23c4c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x23c4e LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 23c58  LEA.L   0x26976,A0>                                      {[-8-]}
            <MI 23c5e  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 23c60  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x23c62 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 23c6c  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 23c70  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 23c76  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 23c78  BVC     0x23c42>                                         {[-8-]}
        <POP 23c7a-23c88 Naked>                              Σ-8 Δ+8    ↓ ←0x23c42
            <POP 23c7a-23c7c StackAdj>                       Δ+8                {}
            <Pointer.fp 0x23c7c <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x23c80 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 23c86-23c88 StackAdj>                       Δ+4                {}
        <POP 23c88-23c90 Epilogue>                           Σ0         

0x23c90


@ 23c90
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 23c90-23cc4 Body>                                              
        <POP 23c90-23ca2 Prologue>                           Σ0         ↓
        <POP 23ca2-23cc0 Naked>                              Σ0         ↓
            <POP 23ca2-23ca4 StackAdj>                       Δ-4                {[-4-]}
            <MI 23ca4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 23ca8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Const 0x23cac 0x10.4>                           Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
            <Call 0x23cb0 0x1035c>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 23cb6-23cba StackAdj>                       Δ+12               {[-4-]}
            <Call 0x23cba 0x23c08>                                              {[-4-]}
            <POP 23cbe-23cc0 StackAdj>                       Δ+4                {}
        <POP 23cc0-23cc4 Epilogue>                           Σ0         

0x23cc4


@ 23cc4
        <LVAR  0x008 4(r)>
    <POP 23cc4-23cee Body>                                              
        <POP 23cc4-23cd6 Prologue>                           Σ0         ↓
        <POP 23cd6-23cea Naked>                              Σ0         ↓
            <POP 23cd6-23cd8 StackAdj>                       Δ-4                {[-4-]}
            <MI 23cd8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23cdc 0x102e4>                                              {[-4-]|[4, '(A6+0x8)']}
                Long2String(a : Long) : String
            <POP 23ce2-23ce4 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x23ce4 0x23c08>                                              {[-4-]}
            <POP 23ce8-23cea StackAdj>                       Δ+4                {}
        <POP 23cea-23cee Epilogue>                           Σ0         

0x23cee


@ 23cee
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 23cee-23dc2 Body>                                              
        <POP 23cee-23d04 Prologue>                           Σ0         ↓
        <POP 23d04-23d0c RegCacheLoad>                       Σ0         ↓
        <POP 23d0c-23d1e Naked>                              Σ0         ↓
            <MI 23d0c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23d10  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <Pointer.fp 0x23d14 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x23d16 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <POP 23d1c-23d1e StackAdj>                       Δ+4                {}
        <POP 23d1e-23d2a Naked>                              Σ0         ↓ →0x23db0 ←0x23d96
            <MI 23d1e  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 23d20  CMPA.W  #0x1,A0>                                         {}
            <MI 23d24  BEQ     0x23db0>                                         {}
        <POP 23d2a-23d2e Naked>                              Σ0         ↓ →0x23d96
            <MI 23d2a  TST.L   (A0)>                                            {}
            <MI 23d2c  BEQ     0x23d96>                                         {}
        <POP 23d2e-23d38 Naked>                              Σ0 Δ-4     ↓ →0x23d4c
            <MI 23d2e  MOVE.L  (A0+0x4),-(A7)>               Δ-4                {[4, '(A0+0x4)']}
            <MI 23d32  MOVE.L  (A0),D7>                                         {[4, '(A0+0x4)']}
            <MI 23d34  CMP.L   (A7),D7>                                         {[4, '(A0+0x4)']}
            <MI 23d36  BGT     0x23d4c>                                         {[4, '(A0+0x4)']}
        <POP 23d38-23d4c Naked>                              Σ-4        ↓
            <MI 23d38  MOVE.L  (A7),D0>                                         {[-4-]}
            <POP 0x23d3a LimitCheck -0x7fffffff ≤ D7>                           {[-4-]}
                <MI 23d3a  CMPI.L  #0x80000001,D7>                      
                <MI 23d40  BLT     0x23d4a>                             
            <POP 0x23d42 LimitCheck D0 ≤ 0x7fffffff>                            {[-4-]}
                <MI 23d42  CMPI.L  #0x7fffffff,D0>                      
                <MI 23d48  BLE     0x23d4c>                             
                <MI 23d4a  TRAP    #15>                                 
        <POP 23d4c-23d50 Naked>                              Σ-4        ↓ →0x23d94 ←0x23d2e ←0x23d90
            <MI 23d4c  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23d4e  BGT     0x23d94>                                         {[-4-]}
        <POP 23d50-23d7c Naked>                              Σ-4        ↓ →0x23d90
            <MI 23d50  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 23d52  MOVE.L  D7,D0>                                           {[-4-]|[4, '(A6-0x4)']}
            <MI 23d54  SUBQ.L  #0x1,D0>                                         {[-4-]|[4, '(A6-0x4)']}
            <POP 0x23d56 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-4-]|[4, '(A6-0x4)']}
            <MI 23d60  LEA.L   0x26976,A0>                                      {[-4-]|[4, '(A6-0x4)']}
            <MI 23d66  MOVE.B  (A0+D0.L+#0x8),-(A7)>         Δ-2                {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
            <Call 0x23d6a 0x102c0>                                              {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
                AppendChar(MOD b : String; a : char)
            <POP 23d70-23d72 StackAdj>                       Δ+6                {[-4-]}
            <MI 23d72  MOVEA.L (A6-0x4),A0>                                     {[-4-]}
            <MI 23d74  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 23d76  CMPI.W  #0x007a,D0>                                      {[-4-]}
            <MI 23d7a  BLT     0x23d90>                                         {[-4-]}
        <POP 23d7c-23d90 Naked>                              Σ-4        ↓
            <MI 23d7c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <Call 0x23d7e 0x103d8>                                              {[-4-]|[4, '(A6-0x4)']}
                WriteConsoleString(str : String)
            <POP 23d84-23d86 StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x23d86 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Call 0x23d88 0x102b8>                                              {[-4-]|[@@-4]}
                NewString(VAR a : String)
            <POP 23d8e-23d90 StackAdj>                       Δ+4                {[-4-]}
        <POP 23d90-23d94 Naked>                              Σ-4        ↓ →0x23d4c ←0x23d50
            <MI 23d90  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23d92  BVC     0x23d4c>                                         {[-4-]}
        <POP 23d94-23d96 Naked>                              Σ-4 Δ+4    ↓ ←0x23d4c
            <POP 23d94-23d96 StackAdj>                       Δ+4                {}
        <POP 23d96-23db0 Naked>                              Σ0         →0x23d1e ←0x23d2a
            <MI 23d96  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Const 0x23d98 0x20.2>                           Δ-2                {[4, '(A6-0x4)']|[#32]}
            <Call 0x23d9c 0x102c0>                                              {[4, '(A6-0x4)']|[#32]}
                AppendChar(MOD b : String; a : char)
            <POP 23da2-23da4 StackAdj>                       Δ+6                {}
            <MI 23da4  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 23da6  MOVE.L  (A0+0x8),(A6-0x8)>                               {}
            <MI 23daa  BRA     0x23d1e>                                         {}
        <POP 23db0-23dba Naked>                              Σ0         ↓ ←0x23d1e
            <MI 23db0  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Call 0x23db2 0x103e0>                                              {[4, '(A6-0x4)']}
                WriteConsoleStringCrLf(str : String)
            <POP 23db8-23dba StackAdj>                       Δ+4                {}
        <POP 23dba-23dc2 Epilogue>                           Σ0         

0x23dc2


@ 23dc2
TRY_HLP_FILE(?)
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 23dc2-23ecc Body>                                              
        <POP 23dc2-23dd8 Prologue>                           Σ0         ↓
        <POP 23dd8-23dea RegCacheLoad>                       Σ0         ↓
        <POP 23dea-23e30 Naked>                              Σ0         ↓ →0x23e66
            <Blob 0x23dea [4] @>                             Δ-4                {[«4""»]}
            <POP 23dee-23df0 StackAdj>                       Δ-8                {[«4""»]|[-8-]}
            <MI 23df0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«4""»]|[-8-]|[4, '(A6+0x8)']}
            <Call 0x23df2 0x102cc>                                              {[«4""»]|[-8-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <Lit 0x23df8 4>                                                     {[«4""»]|[-8-]|[$$.HLP]}
            <Call 0x23e0a 0x102d0>                                              {[«4""»]|[-8-]|[$$.HLP]}
                StringCat2(a, b : String) : String
            <POP 23e10-23e12 StackAdj>                       Δ+8                {[«4""»]|[-4-]}
            <MI 23e12  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«4""»]}
            <MI 23e14  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 23e16  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]}
            <MI 23e18  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]|[#0]}
            <Const 0x23e1a 0x0.4>                            Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x23e1e <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x23e20 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x23e22 0x10380>                                              {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 23e28-23e2c StackAdj>                       Δ+20               {}
            <MI 23e2c  TST.B   (A6-0x4)>                                        {}
            <MI 23e2e  BEQ     0x23e66>                                         {}
        <POP 23e30-23e66 Naked>                              Σ0         →0x23eba
            <Blob 0x23e30 [22] @>                            Δ-22               {[«22""»]}
            <POP 23e3c-23e3e StackAdj>                       Δ-8                {[«22""»]|[-8-]}
            <Lit 0x23e3e 22>                                                    {[«22""»]|[-4-]|[$$No help available for_]}
            <POP 23e4e-23e50 StackAdj>                       Δ-4                {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
            <MI 23e50  MOVE.L  (A6+0x8),(A7)>                                   {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
            <Call 0x23e52 0x102d0>                                              {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 23e58-23e5a StackAdj>                       Δ+8                {[«22""»]|[-4-]}
            <Call 0x23e5a 0x103e0>                                              {[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23e60-23e64 StackAdj>                       Δ+26               {}
            <MI 23e64  BRA     0x23eba>                                         {}
        <POP 23e66-23e7e Naked>                              Σ0         ↓ →0x23e92 ←0x23dea ←0x23e92
            <MI 23e66  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Pointer.fp 0x23e68 <LVAR  0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]}
            <Pointer.fp 0x23e6a <LVAR -0x003 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[@@8]|[@@-3]}
            <Call 0x23e6e 0x1043c>                                              {[4, '(A6-0x8)']|[@@8]|[@@-3]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 23e74-23e78 StackAdj>                       Δ+12               {}
            <MI 23e78  TST.B   (A6-0x3)>                                        {}
            <MI 23e7c  BNE     0x23e92>                                         {}
        <POP 23e7e-23e92 Naked>                              Σ0         ↓
            <POP 23e7e-23e80 StackAdj>                       Δ-4                {[-4-]}
            <MI 23e80  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23e82 0x102cc>                                              {[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 23e88-23e8a StackAdj>                       Δ+4                {[-4-]}
            <Call 0x23e8a 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23e90-23e92 StackAdj>                       Δ+4                {}
        <POP 23e92-23e98 Naked>                              Σ0         ↓ →0x23e66 ←0x23e66
            <MI 23e92  TST.B   (A6-0x3)>                                        {}
            <MI 23e96  BEQ     0x23e66>                                         {}
        <POP 23e98-23eba Naked>                              Σ0         ↓
            <MI 23e98  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x23e9a 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x23e9e 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x23ea2 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x23ea4 <LVAR -0x008 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x23ea6 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 23eac-23eb0 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x23eb0 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x23eb2 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 23eb8-23eba StackAdj>                       Δ+4                {}
        <POP 23eba-23ec4 Naked>                              Σ0         ↓ ←0x23e30
            <Pointer.fp 0x23eba <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x23ebc 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 23ec2-23ec4 StackAdj>                       Δ+4                {}
        <POP 23ec4-23ecc Epilogue>                           Σ0         

0x23ecc


@ 23ecc
        <LVAR  0x008 4(r)>
    <POP 23ecc-23f4e Body>                                              
        <POP 23ecc-23ee2 Prologue>                           Σ0         ↓
        <POP 23ee2-23ef2 Naked>                              Σ0         ↓ →0x23f20
            <POP 23ee2-23ee4 StackAdj>                       Δ-4                {[-4-]}
            <MI 23ee4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x23ee8 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 23eec-23eee StackAdj>                       Δ+4                {[-4-]}
            <MI 23eee  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 23ef0  BNE     0x23f20>                                         {}
        <POP 23ef2-23f20 Naked>                              Σ0         →0x23f46
            <Blob 0x23ef2 [10] 0x27990>                      Δ-10               {[«10»]}
            <POP 23f00-23f02 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x23f02>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x23f02 4>                       Δ-4        
                <Const 0x23f06 0x1.2>                        Δ-2        
                <Const 0x23f0a 0xa.2>                        Δ-2        
                <Call 0x23f0e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23f14-23f16 StackAdj>                   Δ+8        
            <Call 0x23f16 0x23dc2>                                              {[«10»]|[$$…]}
                TRY_HLP_FILE(?)
            <POP 23f1a-23f1e StackAdj>                       Δ+14               {}
            <MI 23f1e  BRA     0x23f46>                                         {}
        <POP 23f20-23f24 Naked>                              Σ0 Δ-4     ↓ ←0x23ee2
            <MI 23f20  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 23f22  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 23f24-23f28 Naked>                              Σ-4        ↓ →0x23f44 ←0x23f28
            <MI 23f24  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 23f26  BGT     0x23f44>                                         {[-4-]}
        <POP 23f28-23f44 Naked>                              Σ-4        ↓ →0x23f24
            <POP 23f28-23f2a StackAdj>                       Δ-4                {[-8-]}
            <MI 23f2a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 23f2e  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x23f30 0x23b66>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 23f34-23f36 StackAdj>                       Δ+8                {[-8-]}
            <MI 23f36  MOVEA.L (A7)+,A4>                     Δ+4                {[-4-]}
            <MI 23f38  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']}
            <Call 0x23f3a 0x23dc2>                                              {[-4-]|[4, 'A4']}
                TRY_HLP_FILE(?)
            <POP 23f3e-23f40 StackAdj>                       Δ+4                {[-4-]}
            <MI 23f40  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23f42  BVC     0x23f24>                                         {[-4-]}
        <POP 23f44-23f46 Naked>                              Σ-4 Δ+4    ↓ ←0x23f24
            <POP 23f44-23f46 StackAdj>                       Δ+4                {}
        <POP 23f46-23f4e Epilogue>                           Σ0         ←0x23ef2

0x23f4e


@ 23f4e
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x020 @>
    <POP 23f4e-23fd0 Body>                                              
        <POP 23f4e-23f64 Prologue>                           Σ0         ↓
        <POP 23f64-23f66 RegCacheLoad>                       Σ0         ↓
        <POP 23f66-23f68 Naked>                              Σ0         ↓
            <MI 23f66  MOVEQ.L #0x01,D7>                                        {}
        <POP 23f68-23f74 Naked>                              Σ0         ↓ →0x23f84 ←0x23fa2
            <MI 23f68  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 23f6c  MOVE.W  (A0),D0>                                         {}
            <MI 23f6e  EXTW.L  D0>                                              {}
            <MI 23f70  CMP.L   D0,D7>                                           {}
            <MI 23f72  BLE     0x23f84>                                         {}
        <POP 23f74-23f84 Naked>                              Σ0         →0x23fa2
            <MI 23f74  MOVE.L  D7,D0>                                           {}
            <MI 23f76  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x23f78 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 23f7e  CLR.B   (A6+D0.L-#0x20)>                                 {}
            <MI 23f82  BRA     0x23fa2>                                         {}
        <POP 23f84-23fa2 Naked>                              Σ0         ↓ ←0x23f68
            <MI 23f84  MOVE.L  D7,D0>                                           {}
            <MI 23f86  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x23f88 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 23f8e  MOVE.L  D7,D1>                                           {}
            <MI 23f90  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x23f92 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {}
            <MI 23f9c  MOVE.B  (A0+D1.L+#0x2),(A6+D0.L-#0x20)>                  {}
        <POP 23fa2-23fac Naked>                              Σ0         ↓ →0x23f68 ←0x23f74
            <MI 23fa2  ADDQ.L  #0x1,D7>                                         {}
            <MI 23fa4  CMPI.L  #0x0000001e,D7>                                  {}
            <MI 23faa  BLE     0x23f68>                                         {}
        <POP 23fac-23fc8 Naked>                              Σ0         ↓
            <Pointer.fp 0x23fac <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x23fb0 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 23fb6-23fb8 StackAdj>                       Δ+4                {}
            <MI 23fb8  LEA.L   (A6+0xc),A0>                                     {}
            <MI 23fbc  LEA.L   (A6-0x20),A1>                                    {}
            <BlockMove 30,A1,A0>                                                {}
        <POP 23fc8-23fd0 Epilogue>                           Σ0         

0x23fd0


@ 23fd0
        <LVAR  0x026 4(w)>
        <LVAR  0x008 @>
        <LVAR -0x006 4(rw)>
    <POP 23fd0-24024 Body>                                              
        <POP 23fd0-23fe6 Prologue>                           Σ0         ↓
        <POP 23fe6-23fea RegCacheLoad>                       Σ0         ↓
        <POP 23fea-23ff2 Naked>                              Σ0         ↓
            <MI 23fea  MOVEQ.L #0x00,D7>                                        {}
            <MI 23fec  MOVE.L  0x279a8,(A6-0x6)>                                {}
        <POP 23ff2-23ffa Naked>                              Σ0         ↓ →0x24018 ←0x24016
            <MI 23ff2  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 23ff4  CMPA.W  #0x1,A0>                                         {}
            <MI 23ff8  BEQ     0x24018>                                         {}
        <POP 23ffa-23ffe Naked>                              Σ0         ↓ →0x24018
            <MI 23ffa  TST.B   D7>                                              {}
            <MI 23ffc  BNE     0x24018>                                         {}
        <POP 23ffe-24006 Naked>                              Σ0         ↓
            <MI 23ffe  MOVEA.L A0,A1>                                           {}
            <MI 24000  LEA.L   (A6+0x8),A2>                                     {}
            <MI 24004  MOVEQ.L #0x1d,D0>                                        {}
        <POP 24006-2400c Naked>                              Σ0         ↓ →0x24006 ←0x24006
            <MI 24006  CMPM.B  (A1)+,(A2)+>                                     {}
            <MI 24008  DBNE    D0,0x24006>                                      {}
        <POP 2400c-2400e Naked>                              Σ0         ↓ →0x24012
            <MI 2400c  BNE     0x24012>                                         {}
        <POP 2400e-24012 Naked>                              Σ0         →0x24016
            <MI 2400e  MOVEQ.L #0x01,D7>                                        {}
            <MI 24010  BRA     0x24016>                                         {}
        <POP 24012-24016 Naked>                              Σ0         ↓ ←0x2400c
            <MI 24012  MOVE.L  (A0+0x26),(A6-0x6)>                              {}
        <POP 24016-24018 Naked>                              Σ0         →0x23ff2 ←0x2400e
            <MI 24016  BRA     0x23ff2>                                         {}
        <POP 24018-2401c Naked>                              Σ0         ↓ ←0x23ff2 ←0x23ffa
            <MI 24018  MOVE.L  A0,(A6+0x26)>                                    {}
        <POP 2401c-24024 Epilogue>                           Σ0         

0x24024


@ 24024
        <LVAR  0x008 @ 4(r)>
    <POP 24024-240aa Body>                                              
        <POP 24024-2403a Prologue>                           Σ0         ↓
        <POP 2403a-24046 RegCacheLoad>                       Σ0         ↓
        <POP 24046-2404c Naked>                              Σ0         ↓ →0x240a2
            <MI 24046  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24048  CMPA.W  #0x01,A0>                                        {}
            <MI 2404a  BEQ     0x240a2>                                         {}
        <POP 2404c-24052 Naked>                              Σ0         ↓ →0x24062
            <MI 2404c  TST.L   (A0+0x1e)>                                       {}
            <MI 24050  BEQ     0x24062>                                         {}
        <POP 24052-24062 Naked>                              Σ0         ↓
            <MI 24052  MOVE.L  (A0+0x22),-(A7)>              Δ-4                {[4, '(A0+0x22)']}
            <MI 24056  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
            <Call 0x2405a 0x102a4>                                              {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
                Free1(a : Pointer; b : Long)
            <POP 24060-24062 StackAdj>                       Δ+8                {}
        <POP 24062-24068 Naked>                              Σ0         ↓ ←0x2404c
            <MI 24062  MOVEQ.L #0x00,D7>                                        {}
            <MI 24064  MOVEA.W #0x01,A4>                                        {}
            <MI 24066  MOVEA.L 0x279a8,A3>                                      {}
        <POP 24068-2406c Naked>                              Σ0         ↓ →0x24080 ←0x2407e
            <MI 24068  CMPA.W  #0x01,A3>                                        {}
            <MI 2406a  BEQ     0x24080>                                         {}
        <POP 2406c-24070 Naked>                              Σ0         ↓ →0x24080
            <MI 2406c  TST.B   D7>                                              {}
            <MI 2406e  BNE     0x24080>                                         {}
        <POP 24070-24074 Naked>                              Σ0         ↓ →0x24078
            <MI 24070  CMPA.L  (A6+0x8),A3>                                     {}
            <MI 24072  BNE     0x24078>                                         {}
        <POP 24074-24078 Naked>                              Σ0         →0x2407e
            <MI 24074  MOVEQ.L #0x01,D7>                                        {}
            <MI 24076  BRA     0x2407e>                                         {}
        <POP 24078-2407e Naked>                              Σ0         ↓ ←0x24070
            <MI 24078  MOVEA.L A3,A4>                                           {}
            <MI 2407a  MOVEA.L (A3+0x26),A3>                                    {}
        <POP 2407e-24080 Naked>                              Σ0         →0x24068 ←0x24074
            <MI 2407e  BRA     0x24068>                                         {}
        <POP 24080-24084 Naked>                              Σ0         ↓ →0x240a2 ←0x24068 ←0x2406c
            <MI 24080  TST.B   D7>                                              {}
            <MI 24082  BEQ     0x240a2>                                         {}
        <POP 24084-24088 Naked>                              Σ0         ↓ →0x2408e
            <MI 24084  CMPA.W  #0x01,A4>                                        {}
            <MI 24086  BNE     0x2408e>                                         {}
        <POP 24088-2408e Naked>                              Σ0         →0x24094
            <MI 24088  MOVE.L  (A3+0x26),0x279a8>                               {}
            <MI 2408c  BRA     0x24094>                                         {}
        <POP 2408e-24094 Naked>                              Σ0         ↓ ←0x24084
            <MI 2408e  MOVE.L  (A3+0x26),(A4+0x26)>                             {}
        <POP 24094-240a2 Naked>                              Σ0         ↓ ←0x24088
            <Pointer.fp 0x24094 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Const 0x24096 0x2a.4>                           Δ-4                {[@@8]|[##42]}
            <Call 0x2409a 0x102a8>                                              {[@@8]|[##42]}
                Free2(a : Pointer; b : Long)
            <POP 240a0-240a2 StackAdj>                       Δ+8                {}
        <POP 240a2-240aa Epilogue>                           Σ0         ←0x24046 ←0x24080

0x240aa


@ 240aa
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x024 @>
    <POP 240aa-24168 Body>                                              
        <POP 240aa-240c0 Prologue>                           Σ0         ↓
        <POP 240c0-240ca RegCacheLoad>                       Σ0         ↓
        <POP 240ca-240e8 Naked>                              Σ0         ↓ →0x240ea
            <POP 240ca-240cc StackAdj>                       Δ-30               {[-30-]}
            <MI 240cc  MOVEA.L (A6+0xc),A0>                                     {[-30-]}
            <MI 240d0  MOVE.L  (A0),-(A7)>                   Δ-4                {[-30-]|[4, '(A0)']}
            <Call 0x240d2 0x23f4e>                                              {[-30-]|[4, '(A0)']}
            <POP 240d6-240d8 StackAdj>                       Δ+4                {[-30-]}
            <MI 240d8  LEA.L   (A6-0x24),A0>                                    {[-30-]}
            <POP 240dc-240e4 StackPop>                       Δ+30               {[-30-]}
                <BlockMove 30,A7,A0>                         Δ+30       
            <MI 240e4  TST.L   (A6+0x8)>                                        {[-30-]}
            <MI 240e6  BGE     0x240ea>                                         {[-30-]}
        <POP 240e8-240ea Naked>                              Σ0         ↓
            <MI 240e8  CLR.L   (A6+0x8)>                                        {}
        <POP 240ea-24106 Naked>                              Σ0         ↓ →0x24118 ←0x240ca
            <POP 240ea-240ec StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x240ec [30] (A6-0x6)>                     Δ-30               {[-4-]|[«30»]}
            <Call 0x240f6 0x23fd0>                                              {[-4-]|[«30»]}
            <POP 240fa-240fc StackAdj>                       Δ+30               {[-4-]}
            <MI 240fc  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 240fe  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 24100  CMPA.W  #0x1,A0>                                         {}
            <MI 24104  BEQ     0x24118>                                         {}
        <POP 24106-2410e Naked>                              Σ0         ↓ →0x24110
            <MI 24106  MOVE.L  (A0+0x1e),D0>                                    {}
            <MI 2410a  CMP.L   (A6+0x8),D0>                                     {}
            <MI 2410c  BNE     0x24110>                                         {}
        <POP 2410e-24110 Naked>                              Σ0         →0x2415c
            <MI 2410e  BRA     0x2415c>                                         {}
        <POP 24110-24118 Naked>                              Σ0         ↓ ←0x24106
            <MI 24110  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x24112 0x24024>                                              {[4, '(A6-0x6)']}
            <POP 24116-24118 StackAdj>                       Δ+4                {}
        <POP 24118-2414c Naked>                              Σ0         ↓ →0x2415c ←0x240ea
            <Pointer.fp 0x24118 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Const 0x2411a 0x2a.4>                           Δ-4                {[@@-6]|[##42]}
            <Call 0x2411e 0x1029c>                                              {[@@-6]|[##42]}
                Malloc1(length : Long) : Pointer
            <POP 24124-24126 StackAdj>                       Δ+8                {}
            <MI 24126  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 24128  MOVE.L  0x279a8,(A0+0x26)>                               {}
            <MI 24130  MOVE.L  (A6-0x6),0x279a8>                                {}
            <MI 24136  MOVEA.L A0,A1>                                           {}
            <MI 24138  LEA.L   (A6-0x24),A2>                                    {}
            <BlockMove 30,A2,A1>                                                {}
            <MI 24144  MOVE.L  (A6+0x8),(A0+0x1e)>                              {}
            <MI 24148  TST.L   (A6+0x8)>                                        {}
            <MI 2414a  BEQ     0x2415c>                                         {}
        <POP 2414c-2415c Naked>                              Σ0         ↓
            <POP 2414c-2414e StackAdj>                       Δ-4                {[-4-]}
            <MI 2414e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x24150 0x102a0>                                              {[-4-]|[4, '(A6+0x8)']}
                Malloc2(VAR dst : Pointer; length : Word)
            <POP 24156-24158 StackAdj>                       Δ+4                {[-4-]}
            <MI 24158  MOVE.L  (A7)+,(A0+0x22)>              Δ+4                {}
        <POP 2415c-24160 Naked>                              Σ0         ↓ ←0x2410e ←0x24118
            <MI 2415c  MOVE.L  (A6-0x6),(A6+0x10)>                              {}
        <POP 24160-24168 Epilogue>                           Σ0         

0x24168


@ 24168
        <LVAR  0x00c @>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 24168-241f2 Body>                                              
        <POP 24168-2417e Prologue>                           Σ0         ↓
        <POP 2417e-24182 RegCacheLoad>                       Σ0         ↓
        <POP 24182-241a0 Naked>                              Σ0         ↓ →0x241e0
            <MI 24182  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 24184  MOVE.W  (A0),D0>                                         {}
            <MI 24186  EXTW.L  D0>                                              {}
            <MI 24188  MOVE.L  D0,D6>                                           {}
            <POP 2418a-2418c StackAdj>                       Δ-4                {[-4-]}
            <Pointer.fp 0x2418c <LVAR  0x00c @>>             Δ-4                {[-4-]|[@@12]}
            <MI 24190  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[@@12]|[4, 'D6']}
            <Call 0x24192 0x240aa>                                              {[-4-]|[@@12]|[4, 'D6']}
            <POP 24196-24198 StackAdj>                       Δ+8                {[-4-]}
            <MI 24198  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 2419c  TST.L   D6>                                              {}
            <MI 2419e  BEQ     0x241e0>                                         {}
        <POP 241a0-241ae Naked>                              Σ0 Δ-8     ↓
            <MI 241a0  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 241a4  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 241a8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 241aa  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D6']}
            <MI 241ac  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D6']}
        <POP 241ae-241b2 Naked>                              Σ-8        ↓ →0x241de ←0x241b2
            <MI 241ae  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 241b0  BGT     0x241de>                                         {[-8-]}
        <POP 241b2-241de Naked>                              Σ-8        ↓ →0x241ae
            <MI 241b2  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 241b4  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x241b6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 241c0  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 241c4  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 241c6  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 241c8  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x241ca LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 241d4  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L)>                        {[-8-]}
            <MI 241da  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 241dc  BVC     0x241ae>                                         {[-8-]}
        <POP 241de-241e0 Naked>                              Σ-8 Δ+8    ↓ ←0x241ae
            <POP 241de-241e0 StackAdj>                       Δ+8                {}
        <POP 241e0-241ea Naked>                              Σ0         ↓ ←0x24182
            <Pointer.fp 0x241e0 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x241e2 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 241e8-241ea StackAdj>                       Δ+4                {}
        <POP 241ea-241f2 Epilogue>                           Σ0         

0x241f2


@ 241f2
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(w)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
    <POP 241f2-24364 Body>                                              
        <POP 241f2-24208 Prologue>                           Σ0         ↓
        <POP 24208-24216 RegCacheLoad>                       Σ0         ↓
        <POP 24216-24228 Naked>                              Σ0         ↓ →0x24256
            <POP 24216-24218 StackAdj>                       Δ-4                {[-4-]}
            <MI 24218  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x2421a 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 2421e-24220 StackAdj>                       Δ+4                {[-4-]}
            <MI 24220  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 24222  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 24224  CMP.L   #0x01,D0>                                        {}
            <MI 24226  BGE     0x24256>                                         {}
        <POP 24228-24256 Naked>                              Σ0         ↓
            <Blob 0x24228 [26] @>                            Δ-26               {[«26""»]}
            <POP 2423a-2423c StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2423c 25>                                                    {[«26""»]|[$$Too few arguments for SET]}
            <Call 0x2424e 0x22e28>                                              {[«26""»]|[$$Too few arguments for SET]}
            <POP 24252-24256 StackAdj>                       Δ+30               {}
        <POP 24256-2425c Naked>                              Σ0 Δ-4     ↓ ←0x24216
            <MI 24256  CLR.L   (A6-0xc)>                                        {}
            <MI 24258  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2425a  MOVEQ.L #0x02,D6>                                        {[4, 'D0']}
        <POP 2425c-24260 Naked>                              Σ-4        ↓ →0x2427e ←0x24260
            <MI 2425c  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 2425e  BGT     0x2427e>                                         {[-4-]}
        <POP 24260-2427e Naked>                              Σ-4        ↓ →0x2425c
            <POP 24260-24264 StackAdj>                       Δ-12               {[-16-]}
            <MI 24264  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 24266  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x24268 0x23a88>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 2426c-2426e StackAdj>                       Δ+8                {[-16-]}
            <Call 0x2426e 0x23a50>                                              {[-16-]}
            <POP 24272-24274 StackAdj>                       Δ+8                {[-8-]}
            <MI 24274  MOVE.L  (A6-0xc),D0>                                     {[-8-]}
            <MI 24276  ADD.L   (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 24278  MOVE.L  D0,(A6-0xc)>                                     {[-4-]}
            <MI 2427a  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 2427c  BVC     0x2425c>                                         {[-4-]}
        <POP 2427e-242b0 Naked>                              Σ-4 Δ+4    ↓ →0x2435c ←0x2425c
            <POP 2427e-24280 StackAdj>                       Δ+4                {}
            <MI 24280  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 24282  SUBQ.L  #0x2,D0>                                         {}
            <MI 24284  ADD.L   D0,(A6-0xc)>                                     {}
            <POP 24286-24288 StackAdj>                       Δ-4                {[-4-]}
            <MI 24288  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2428a 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2428e 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 24292-24294 StackAdj>                       Δ+8                {[-4-]}
            <MI 24294  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <Pointer.fp 0x24298 <LVAR -0x004 @ 4(w)>>        Δ-4                {[-4-]|[@@-4]}
            <MI 2429c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <Call 0x2429e 0x240aa>                                              {[-4-]|[@@-4]|[4, '(A6-0xc)']}
            <POP 242a2-242a4 StackAdj>                       Δ+8                {[-4-]}
            <MI 242a4  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 242a8  TST.L   (A6-0xc)>                                        {}
            <MI 242aa  BLE     0x2435c>                                         {}
        <POP 242b0-242c0 Naked>                              Σ0 Δ-8     ↓
            <MI 242b0  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 242b4  MOVEA.L (A0+0x22),A0>                                    {}
            <MI 242b8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 242ba  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 242bc  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x10)']}
            <MI 242be  MOVEQ.L #0x02,D6>                                        {[4, 'A0']|[4, '(A6-0x10)']}
        <POP 242c0-242c8 Naked>                              Σ-8        ↓ →0x2435a ←0x24352
            <MI 242c0  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 242c2  BGT     0x2435a>                                         {[-8-]}
        <POP 242c8-242e8 Naked>                              Σ-8 Δ-4    ↓ →0x242fc
            <POP 242c8-242ca StackAdj>                       Δ-8                {[-16-]}
            <MI 242ca  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 242cc  MOVE.L  D6,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x242ce 0x23a88>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 242d2-242d4 StackAdj>                       Δ+8                {[-16-]}
            <MI 242d4  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[-12-]}
            <MI 242d8  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-8-]}
            <MI 242dc  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x1c)']}
            <MI 242e0  MOVE.L  (A6-0x20),D5>                                    {[-8-]|[4, '(A6-0x1c)']}
            <MI 242e4  CMP.L   (A7),D5>                                         {[-8-]|[4, '(A6-0x1c)']}
            <MI 242e6  BGT     0x242fc>                                         {[-8-]|[4, '(A6-0x1c)']}
        <POP 242e8-242fc Naked>                              Σ-12       ↓
            <MI 242e8  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x242ea LimitCheck -0x7fffffff ≤ D5>                           {[-12-]}
                <MI 242ea  CMPI.L  #0x80000001,D5>                      
                <MI 242f0  BLT     0x242fa>                             
            <POP 0x242f2 LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 242f2  CMPI.L  #0x7fffffff,D0>                      
                <MI 242f8  BLE     0x242fc>                             
                <MI 242fa  TRAP    #15>                                 
        <POP 242fc-24300 Naked>                              Σ-12       ↓ →0x24332 ←0x242c8 ←0x24300
            <MI 242fc  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 242fe  BGT     0x24332>                                         {[-12-]}
        <POP 24300-24332 Naked>                              Σ-12       ↓ →0x242fc
            <MI 24300  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 24302  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x24304 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-12-]}
            <MI 2430e  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 24312  MOVE.L  D5,D1>                                           {[-12-]}
            <MI 24314  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x24316 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 24320  LEA.L   0x26976,A1>                                      {[-12-]}
            <MI 24326  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L)>                        {[-12-]}
            <MI 2432c  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 2432e  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 24330  BVC     0x242fc>                                         {[-12-]}
        <POP 24332-24338 Naked>                              Σ-12 Δ+4   ↓ →0x24352 ←0x242fc
            <POP 24332-24334 StackAdj>                       Δ+4                {[-8-]}
            <MI 24334  CMP.L   (A6-0x10),D6>                                    {[-8-]}
            <MI 24336  BEQ     0x24352>                                         {[-8-]}
        <POP 24338-24352 Naked>                              Σ-8        ↓
            <MI 24338  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 2433a  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2433c LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 24346  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 2434a  MOVE.B  #0x2c,(A0+D0.L)>                                 {[-8-]}
            <MI 24350  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 24352-2435a Naked>                              Σ-8        ↓ →0x242c0 ←0x24332
            <MI 24352  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 24354  BVC     0x242c0>                                         {[-8-]}
        <POP 2435a-2435c Naked>                              Σ-8 Δ+8    ↓ ←0x242c0
            <POP 2435a-2435c StackAdj>                       Δ+8                {}
        <POP 2435c-24364 Epilogue>                           Σ0         ←0x2427e

0x24364


@ 24364
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
    <POP 24364-24452 Body>                                              
        <POP 24364-2437a Prologue>                           Σ0         ↓
        <POP 2437a-24382 RegCacheLoad>                       Σ0         ↓
        <POP 24382-243b4 Naked>                              Σ0         ↓ →0x243f6
            <POP 24382-24384 StackAdj>                       Δ-4                {[-4-]}
            <MI 24384  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24388 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2438c 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 24390-24392 StackAdj>                       Δ+8                {[-4-]}
            <MI 24392  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 24394-24398 StackAdj>                       Δ-34               {[-34-]}
            <MI 24398  MOVE.L  A4,-(A7)>                     Δ-4                {[-34-]|[4, 'A4']}
            <Call 0x2439a 0x23f4e>                                              {[-34-]|[4, 'A4']}
            <POP 2439e-243a0 StackAdj>                       Δ+4                {[-34-]}
            <Call 0x243a0 0x23fd0>                                              {[-34-]}
            <POP 243a4-243a8 StackAdj>                       Δ+30               {[-4-]}
            <MI 243a8  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 243ac  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 243b0  CMPA.W  #0x01,A0>                                        {}
            <MI 243b2  BNE     0x243f6>                                         {}
        <POP 243b4-243f6 Naked>                              Σ0         ↓
            <Blob 0x243b4 [20] @>                            Δ-20               {[«20""»]}
            <POP 243c6-243c8 StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x243c8 19>                                                    {[«20""»]|[-4-]|[$$Unknown variable :_]}
            <MI 243d8  MOVE.L  (A6+0x8),(A7)>                                   {[«20""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 243d2-243d8 StackAdj>                       Δ-8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Const 0x243dc 0x1.4>                            Δ-4                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <Call 0x243e0 0x23b66>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
            <POP 243e4-243e6 StackAdj>                       Δ+8                {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Call 0x243e6 0x102d0>                                              {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 243ec-243ee StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <Call 0x243ee 0x22e28>                                              {[«20""»]|[-4-]}
            <POP 243f2-243f6 StackAdj>                       Δ+24               {}
        <POP 243f6-2440c Naked>                              Σ0 Δ-8     ↓ ←0x24382
            <MI 243f6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x243f8 [4] 0x2797e>                       Δ-4                {[4, 'A0']|[«4»]}
            <MI 243fa  MOVE.L  (A0+0x1e),-(A7)>              Δ-4                {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <MI 243fe  NEG.L   (A7)>                                            {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <Call 0x24400 0x23384>                                              {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
            <POP 24404-24406 StackAdj>                       Δ+4                {[4, 'A0']|[«4»]}
            <MI 24406  MOVE.L  (A0+0x1e),(A7)>                                  {[4, 'A0']|[4, '(A0+0x1e)']}
            <MI 2440a  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, '(A0+0x1e)']}
        <POP 2440c-24410 Naked>                              Σ-8        ↓ →0x24448 ←0x24410
            <MI 2440c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2440e  BGT     0x24448>                                         {[-8-]}
        <POP 24410-24448 Naked>                              Σ-8        ↓ →0x2440c
            <MI 24410  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 24412  ADD.L   0x2797e,D0>                                      {[-8-]}
            <MI 24414  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 24416  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x24418 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 24422  LEA.L   0x26976,A0>                                      {[-8-]}
            <MI 24428  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 2442c  MOVEA.L (A1+0x22),A1>                                    {[-8-]}
            <MI 24430  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 24432  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x24434 LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {[-8-]}
            <MI 2443e  MOVE.B  (A1+D1.L),(A0+D0.L+#0x8)>                        {[-8-]}
            <MI 24444  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24446  BVC     0x2440c>                                         {[-8-]}
        <POP 24448-2444a Naked>                              Σ-8 Δ+8    ↓ ←0x2440c
            <POP 24448-2444a StackAdj>                       Δ+8                {}
        <POP 2444a-24452 Epilogue>                           Σ0         

0x24452


@ 24452
        <LVAR -0x004 4(rw)>
    <POP 24452-244b4 Body>                                              
        <POP 24452-24468 Prologue>                           Σ0         ↓
        <POP 24468-24470 RegCacheLoad>                       Σ0         ↓
        <POP 24470-24476 Naked>                              Σ0         ↓
            <MI 24470  MOVE.L  0x279a8,(A6-0x4)>                                {}
        <POP 24476-2447c Naked>                              Σ0         ↓ →0x244ac ←0x2447c
            <MI 24476  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 24478  CMPA.W  #0x01,A0>                                        {}
            <MI 2447a  BEQ     0x244ac>                                         {}
        <POP 2447c-244ac Naked>                              Σ0         →0x24476
            <POP 2447c-2447e StackAdj>                       Δ-30               {[-30-]}
            <MI 2447e  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 24480  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 2448a-2448c StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x2448c>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x2448c 4>                       Δ-4        
                <Const 0x24490 0x1.2>                        Δ-2        
                <Const 0x24492 0x1e.2>                       Δ-2        
                <Call 0x24494 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2449a-2449c StackAdj>                   Δ+8        
            <Call 0x2449c 0x103e0>                                              {[-30-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 244a2-244a6 StackAdj>                       Δ+34               {}
            <MI 244a6  MOVE.L  (A0+0x26),(A6-0x4)>                              {}
            <MI 244aa  BRA     0x24476>                                         {}
        <POP 244ac-244b4 Epilogue>                           Σ0         ←0x24476

0x244b4


@ 244b4
        <LVAR  0x008 4(r)>
    <POP 244b4-244f0 Body>                                              
        <POP 244b4-244c6 Prologue>                           Σ0         ↓
        <POP 244c6-244ec Naked>                              Σ0         ↓
            <POP 244c6-244ca StackAdj>                       Δ-38               {[-38-]}
            <MI 244ca  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-38-]|[4, '(A6+0x8)']}
            <Const 0x244ce 0x1.4>                            Δ-4                {[-38-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x244d2 0x23b66>                                              {[-38-]|[4, '(A6+0x8)']|[##1]}
            <POP 244d6-244d8 StackAdj>                       Δ+8                {[-38-]}
            <Call 0x244d8 0x23f4e>                                              {[-38-]}
            <POP 244dc-244de StackAdj>                       Δ+4                {[-34-]}
            <Call 0x244de 0x23fd0>                                              {[-34-]}
            <POP 244e2-244e6 StackAdj>                       Δ+30               {[-4-]}
            <Call 0x244e6 0x24024>                                              {[-4-]}
            <POP 244ea-244ec StackAdj>                       Δ+4                {}
        <POP 244ec-244f0 Epilogue>                           Σ0         

0x244f0


@ 244f0
    <POP 244f0-2451e Body>                                              
        <POP 244f0-24502 Prologue>                           Σ0         ↓
        <POP 24502-2451a Naked>                              Σ0         ↓
            <POP 24502-24504 StackAdj>                       Δ-8                {[-8-]}
            <Call 0x24504 0x103cc>                                              {[-8-]}
                GetPushLevel() : Long
            <Call 0x2450a 0x102e4>                                              {[-8-]}
                Long2String(a : Long) : String
            <POP 24510-24512 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x24512 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24518-2451a StackAdj>                       Δ+4                {}
        <POP 2451a-2451e Epilogue>                           Σ0         

0x2451e


@ 2451e
        <LVAR  0x008 4(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 @ 1(r)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x02c 4(rw)>
        <LVAR -0x030 @ 4(r)>
        <LVAR -0x032 1(w)>
        <LVAR -0x036 @ 4(r)>
        <LVAR -0x038 @ 1(r)>
        <LVAR -0x03c @ 4(rw)>
    <POP 2451e-2484e Body>                                              
        <POP 2451e-24534 Prologue>                           Σ0         ↓
        <POP 24534-2454c RegCacheLoad>                       Σ0         ↓
        <POP 2454c-2455c Naked>                              Σ0         ↓ →0x24584
            <POP 2454c-2454e StackAdj>                       Δ-4                {[-4-]}
            <MI 2454e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x24550 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 24554-24556 StackAdj>                       Δ+4                {[-4-]}
            <MI 24556  MOVE.L  (A7)+,(A6-0x2c)>              Δ+4                {}
            <MI 2455a  BNE     0x24584>                                         {}
        <POP 2455c-24584 Naked>                              Σ0         →0x24594
            <POP 2455c-2455e StackAdj>                       Δ-4                {[-4-]}
            <POP 2455e-2455f StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2455f [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 24562  MOVE.B  0x22a47,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 24568  MOVE.B  0x22a48,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2456e-24570 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x24570>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x24570 4>                       Δ-4        
                <Const 0x24574 0x1.2>                        Δ-2        
                <Const 0x24576 0x3.2>                        Δ-2        
                <Call 0x2457a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2457c-2457e StackAdj>                   Δ+8        
            <MI 2457e  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[-2-]|[«2""»]}
            <POP 24580-24582 StackAdj>                       Δ+4                {}
            <MI 24582  BRA     0x24594>                                         {}
        <POP 24584-24594 Naked>                              Σ0         ↓ ←0x2454c
            <POP 24584-24586 StackAdj>                       Δ-4                {[-4-]}
            <MI 24586  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24588 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2458c 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 24590-24592 StackAdj>                       Δ+8                {[-4-]}
            <MI 24592  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {}
        <POP 24594-245e4 Naked>                              Σ0         ↓ →0x245f4 ←0x2455c
            <Blob 0x24594 [6] @>                             Δ-6                {[«6""»]}
            <POP 245a4-245a6 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <MI 245a6  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 245a8-245aa StackAdj>                       Δ-4                {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x245aa 5>                                                     {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
            <Call 0x245b8 0x102d0>                                              {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
                StringCat2(a, b : String) : String
            <POP 245be-245c0 StackAdj>                       Δ+8                {[«6""»]|[-4-]}
            <MI 245c0  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[«6""»]}
            <POP 245c2-245c4 StackAdj>                       Δ+6                {}
            <MI 245c4  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[4, '(A6-0x3c)']}
            <MI 245c6  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x3c)']|[#0]}
            <Const 0x245c8 0x1.2>                            Δ-2                {[4, '(A6-0x3c)']|[#0]|[#1]}
            <Const 0x245ca 0x0.4>                            Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x245ce <LVAR -0x038 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
            <Pointer.fp 0x245d2 <LVAR -0x036 @ 4(r)>>        Δ-4                {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
            <Call 0x245d6 0x10380>                                              {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 245dc-245de StackAdj>                       Δ+20               {}
            <MI 245de  TST.B   (A6-0x38)>                                       {}
            <MI 245e2  BEQ     0x245f4>                                         {}
        <POP 245e4-245f4 Naked>                              Σ0         →0x24846
            <Pointer.fp 0x245e4 <LVAR -0x03c @ 4(rw)>>       Δ-4                {[@@-60]}
            <Call 0x245e6 0x102bc>                                              {[@@-60]}
                FreeString(VAR a : String)
            <POP 245ec-245ee StackAdj>                       Δ+4                {}
            <MI 245ee  BRA     0x24846>                                         {}
        <POP 245f4-2463a Naked>                              Σ0         ↓ →0x24672 ←0x24594
            <MI 245f4  MOVEA.L (A6-0x36),A0>                                    {}
            <MI 245f8  MOVE.B  (A0+0x3f),D0>                                    {}
            <MI 245fc  LSL.B   #0x6,D0>                                         {}
            <MI 245fe  LSR.B   #0x7,D0>                                         {}
            <MI 24600  MOVE.B  D0,(A6-0x32)>                                    {}
            <MI 24604  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x24606 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x24608 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x2460c <LVAR -0x038 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]}
            <Pointer.fp 0x24610 <LVAR -0x036 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
            <Call 0x24614 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2461a-2461e StackAdj>                       Δ+16               {}
            <MI 2461e  MOVEA.L (A6-0x3c),A0>                                    {}
            <MI 24620  MOVE.W  (A0),D1>                                         {}
            <MI 24622  EXTW.L  D1>                                              {}
            <MI 24624  SUBQ.L  #0x5,D1>                                         {}
            <POP 0x24626 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff>                      {}
            <MI 24634  MOVE.W  D1,(A0)>                                         {}
            <MI 24636  TST.B   D0>                                              {}
            <MI 24638  BNE     0x24672>                                         {}
        <POP 2463a-24672 Naked>                              Σ0         →0x24846
            <Blob 0x2463a [18] @>                            Δ-18               {[«18""»]}
            <POP 24646-24648 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <MI 24648  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
            <POP 2464a-2464c StackAdj>                       Δ-4                {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
            <Lit 0x2464c 18>                                                    {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
            <Call 0x2465a 0x102d0>                                              {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
                StringCat2(a, b : String) : String
            <POP 24660-24662 StackAdj>                       Δ+8                {[«18""»]|[-4-]}
            <Call 0x24662 0x103e0>                                              {[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24668-2466c StackAdj>                       Δ+22               {}
            <MI 2466c  BRA     0x24846>                                         {}
        <POP 24672-2468c Naked>                              Σ0 Δ-8     ↓ ←0x245f4
            <Pointer.fp 0x24672 <LVAR -0x030 @ 4(r)>>        Δ-4                {[@@-48]}
            <Call 0x24676 0x102b8>                                              {[@@-48]}
                NewString(VAR a : String)
            <POP 2467c-2467e StackAdj>                       Δ+4                {}
            <MI 2467e  MOVEA.L (A6-0x30),A0>                                    {}
            <MI 24682  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 24684  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 24686  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6-0x2c)']}
            <MI 2468a  MOVEQ.L #0x02,D5>                                        {[4, 'A0']|[4, '(A6-0x2c)']}
        <POP 2468c-24694 Naked>                              Σ-8        ↓ →0x24728 ←0x24720
            <MI 2468c  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 2468e  BGT     0x24728>                                         {[-8-]}
        <POP 24694-246b4 Naked>                              Σ-8 Δ-4    ↓ →0x246c8
            <POP 24694-24696 StackAdj>                       Δ-8                {[-16-]}
            <MI 24696  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <MI 24698  MOVE.L  D5,-(A7)>                     Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x2469a 0x23a88>                                              {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 2469e-246a0 StackAdj>                       Δ+8                {[-16-]}
            <MI 246a0  MOVE.L  (A7)+,(A6-0x28)>              Δ+4                {[-12-]}
            <MI 246a4  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-8-]}
            <MI 246a8  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x24)']}
            <MI 246ac  MOVE.L  (A6-0x28),D6>                                    {[-8-]|[4, '(A6-0x24)']}
            <MI 246b0  CMP.L   (A7),D6>                                         {[-8-]|[4, '(A6-0x24)']}
            <MI 246b2  BGT     0x246c8>                                         {[-8-]|[4, '(A6-0x24)']}
        <POP 246b4-246c8 Naked>                              Σ-12       ↓
            <MI 246b4  MOVE.L  (A7),D0>                                         {[-12-]}
            <POP 0x246b6 LimitCheck -0x7fffffff ≤ D6>                           {[-12-]}
                <MI 246b6  CMPI.L  #0x80000001,D6>                      
                <MI 246bc  BLT     0x246c6>                             
            <POP 0x246be LimitCheck D0 ≤ 0x7fffffff>                            {[-12-]}
                <MI 246be  CMPI.L  #0x7fffffff,D0>                      
                <MI 246c4  BLE     0x246c8>                             
                <MI 246c6  TRAP    #15>                                 
        <POP 246c8-246cc Naked>                              Σ-12       ↓ →0x246fe ←0x24694 ←0x246cc
            <MI 246c8  CMP.L   (A7),D6>                                         {[-12-]}
            <MI 246ca  BGT     0x246fe>                                         {[-12-]}
        <POP 246cc-246fe Naked>                              Σ-12       ↓ →0x246c8
            <MI 246cc  MOVE.L  D7,D0>                                           {[-12-]}
            <MI 246ce  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x246d0 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 246da  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 246de  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 246e0  SUBQ.L  #0x1,D1>                                         {[-12-]}
            <POP 0x246e2 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-12-]}
            <MI 246ec  LEA.L   0x26976,A1>                                      {[-12-]}
            <MI 246f2  MOVE.B  (A1+D1.L+#0x8),(A0+D0.L+#0x2)>                   {[-12-]}
            <MI 246f8  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 246fa  ADDQ.L  #0x1,D6>                                         {[-12-]}
            <MI 246fc  BVC     0x246c8>                                         {[-12-]}
        <POP 246fe-24706 Naked>                              Σ-12 Δ+4   ↓ →0x24720 ←0x246c8
            <POP 246fe-24700 StackAdj>                       Δ+4                {[-8-]}
            <MI 24700  CMP.L   (A6-0x2c),D5>                                    {[-8-]}
            <MI 24704  BEQ     0x24720>                                         {[-8-]}
        <POP 24706-24720 Naked>                              Σ-8        ↓
            <MI 24706  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 24708  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2470a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 24714  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 24718  MOVE.B  #0x2c,(A0+D0.L+#0x2)>                            {[-8-]}
            <MI 2471e  ADDQ.L  #0x1,D7>                                         {[-8-]}
        <POP 24720-24728 Naked>                              Σ-8        ↓ →0x2468c ←0x246fe
            <MI 24720  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 24722  BVC     0x2468c>                                         {[-8-]}
        <POP 24728-247d8 Naked>                              Σ-8 Δ+8    ↓ →0x247de ←0x2468c
            <POP 24728-2472a StackAdj>                       Δ+4                {[-4-]}
            <MI 2472a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2472c  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 2472e  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x24730 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 2473e  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 24740-24742 StackAdj>                       Δ+2                {[-2-]}
            <POP 24742-24743 StackAdj>                       Δ+2                {}
            <Blob 0x24743 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x24746 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2474a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2474e-24750 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x24750 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
            <MI 2475e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 24762-24764 StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 24764  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x24766 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 2476a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x2476e <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
            <Pointer.fp 0x24772 <LVAR -0x013 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <Call 0x24776 0x260e4>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
            <POP 2477c-2477e StackAdj>                       Δ+20               {}
            <Pointer.fp 0x2477e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x24782 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 24788-2478a StackAdj>                       Δ+2                {[-2-]}
            <POP 2478a-2478b StackAdj>                       Δ+2                {}
            <Blob 0x2478b [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2478e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x24792 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 24796-24798 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x24798 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
            <MI 247a6  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 247aa-247ac StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 247ac  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x247ae 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[##0]}
            <MI 247b2  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
            <Pointer.fp 0x247b6 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
            <Pointer.fp 0x247ba <LVAR -0x012 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <Call 0x247be 0x260e4>                                              {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
            <POP 247c4-247c6 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x247c6 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x247ca 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 247d0-247d2 StackAdj>                       Δ+4                {}
            <MI 247d2  TST.B   (A6-0x13)>                                       {}
            <MI 247d6  BNE     0x247de>                                         {}
        <POP 247d8-247de Naked>                              Σ0         ↓ →0x247e4
            <MI 247d8  TST.B   (A6-0x12)>                                       {}
            <MI 247dc  BEQ     0x247e4>                                         {}
        <POP 247de-247e4 Naked>                              Σ0         →0x247e8 ←0x24728
            <MI 247de  CLR.B   (A6-0x4)>                                        {}
            <MI 247e2  BRA     0x247e8>                                         {}
        <POP 247e4-247e8 Naked>                              Σ0         ↓ ←0x247d8
            <MI 247e4  MOVE.B  #0x01,(A6-0x4)>                                  {}
        <POP 247e8-2480e Naked>                              Σ0         ↓ →0x2482e ←0x247de
            <MI 247e8  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[4, '(A6-0x3c)']}
            <MI 247ea  MOVE.L  (A6-0x30),-(A7)>              Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 247ee  MOVE.B  (A6-0x4),D0>                                     {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 247f2  EXTB.W  D0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <POP 0x247f4 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
            <MI 247f8  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
            <Pointer.fp 0x247fa <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
            <Call 0x247fe 0x103b0>                                              {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 24804-24808 StackAdj>                       Δ+14               {}
            <MI 24808  TST.B   (A6-0x13)>                                       {}
            <MI 2480c  BEQ     0x2482e>                                         {}
        <POP 2480e-2482e Naked>                              Σ0         ↓
            <MI 2480e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <POP 24812-24814 StackAdj>                       Δ-4                {[4, '(A6-0x10)']|[-4-]}
            <MI 24814  MOVE.B  (A6-0x14),D0>                                    {[4, '(A6-0x10)']|[-4-]}
            <MI 24818  EXTB.W  D0>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 0x2481a LimitCheck 0x0 ≤ D0 ≤ 0xe>                             {[4, '(A6-0x10)']|[-4-]}
            <MI 2481e  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
            <Call 0x24820 0x103c0>                                              {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
                ExpErrMsg(a: Byte) : String
            <POP 24826-24828 StackAdj>                       Δ+2                {[4, '(A6-0x10)']|[-4-]}
            <Call 0x24828 0x24168>                                              {[4, '(A6-0x10)']|[-4-]}
            <POP 2482c-2482e StackAdj>                       Δ+8                {}
        <POP 2482e-24834 Naked>                              Σ0         ↓ →0x24846 ←0x247e8
            <MI 2482e  TST.B   (A6-0x12)>                                       {}
            <MI 24832  BEQ     0x24846>                                         {}
        <POP 24834-24846 Naked>                              Σ0         ↓
            <MI 24834  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <POP 24838-2483a StackAdj>                       Δ-4                {[4, '(A6-0xc)']|[-4-]}
            <Call 0x2483a 0x103c8>                                              {[4, '(A6-0xc)']|[-4-]}
                FSCALL_103c8
            <Call 0x24840 0x24168>                                              {[4, '(A6-0xc)']|[-4-]}
            <POP 24844-24846 StackAdj>                       Δ+8                {}
        <POP 24846-2484e Epilogue>                           Σ0         ←0x245e4 ←0x2463a ←0x2482e

0x2484e


@ 2484e
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 2484e-248c6 Body>                                              
        <POP 2484e-24864 Prologue>                           Σ0         ↓
        <POP 24864-2486c RegCacheLoad>                       Σ0         ↓
        <POP 2486c-248a0 Naked>                              Σ0         ↓ →0x248a6
            <POP 2486c-2486e StackAdj>                       Δ-4                {[-4-]}
            <MI 2486e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24872 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24876 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2487a-2487c StackAdj>                       Δ+8                {[-4-]}
            <MI 2487c  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 2487e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24882 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24886 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 2488a-2488c StackAdj>                       Δ+8                {[-4-]}
            <MI 2488c  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 2488e-24890 StackAdj>                       Δ+2                {[-2-]}
            <MI 24890  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 24892  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x24894 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 2489a-2489c StackAdj>                       Δ+8                {[-2-]}
            <MI 2489c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2489e  BEQ     0x248a6>                                         {}
        <POP 248a0-248a6 Naked>                              Σ0         →0x248aa
            <Call 0x248a0 0x2361e>                                              {}
            <MI 248a4  BRA     0x248aa>                                         {}
        <POP 248a6-248aa Naked>                              Σ0         ↓ ←0x2486c
            <Call 0x248a6 0x23664>                                              {}
        <POP 248aa-248be Naked>                              Σ0         ↓ ←0x248a0
            <Pointer.fp 0x248aa <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x248ac 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 248b2-248b4 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x248b4 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x248b6 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 248bc-248be StackAdj>                       Δ+4                {}
        <POP 248be-248c6 Epilogue>                           Σ0         

0x248c6


@ 248c6
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 248c6-2493e Body>                                              
        <POP 248c6-248dc Prologue>                           Σ0         ↓
        <POP 248dc-248e4 RegCacheLoad>                       Σ0         ↓
        <POP 248e4-24918 Naked>                              Σ0         ↓ →0x2491e
            <POP 248e4-248e6 StackAdj>                       Δ-4                {[-4-]}
            <MI 248e6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x248ea 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x248ee 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 248f2-248f4 StackAdj>                       Δ+8                {[-4-]}
            <MI 248f4  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <MI 248f6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x248fa 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x248fe 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 24902-24904 StackAdj>                       Δ+8                {[-4-]}
            <MI 24904  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <POP 24906-24908 StackAdj>                       Δ+2                {[-2-]}
            <MI 24908  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']}
            <MI 2490a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <Call 0x2490c 0x102c8>                                              {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
                StringEqual(a, b : String) : Byte
            <POP 24912-24914 StackAdj>                       Δ+8                {[-2-]}
            <MI 24914  TST.B   (A7)+>                        Δ+2                {}
            <MI 24916  BNE     0x2491e>                                         {}
        <POP 24918-2491e Naked>                              Σ0         →0x24922
            <Call 0x24918 0x2361e>                                              {}
            <MI 2491c  BRA     0x24922>                                         {}
        <POP 2491e-24922 Naked>                              Σ0         ↓ ←0x248e4
            <Call 0x2491e 0x23664>                                              {}
        <POP 24922-24936 Naked>                              Σ0         ↓ ←0x24918
            <Pointer.fp 0x24922 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x24924 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 2492a-2492c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2492c <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2492e 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 24934-24936 StackAdj>                       Δ+4                {}
        <POP 24936-2493e Epilogue>                           Σ0         

0x2493e


@ 2493e
        <LVAR  0x008 4(r)>
    <POP 2493e-2496a Body>                                              
        <POP 2493e-24950 Prologue>                           Σ0         ↓
        <POP 24950-24966 Naked>                              Σ0         ↓
            <POP 24950-24952 StackAdj>                       Δ-4                {[-4-]}
            <MI 24952  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24956 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2495a 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 2495e-24960 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x24960 0x2395e>                                              {[-4-]}
            <POP 24964-24966 StackAdj>                       Δ+4                {}
        <POP 24966-2496a Epilogue>                           Σ0         

0x2496a


@ 2496a
        <LVAR  0x008 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 2496a-24a6a Body>                                              
        <POP 2496a-24980 Prologue>                           Σ0         ↓
        <POP 24980-2498a RegCacheLoad>                       Σ0         ↓
        <POP 2498a-249e8 Naked>                              Σ0         ↓ →0x24a18
            <POP 2498a-2498c StackAdj>                       Δ-4                {[-4-]}
            <MI 2498c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2498e 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24992 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 24996-24998 StackAdj>                       Δ+8                {[-4-]}
            <MI 24998  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <MI 2499a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2499c 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x249a0 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 249a4-249a6 StackAdj>                       Δ+8                {[-4-]}
            <MI 249a6  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 249a8-249ac StackAdj>                       Δ-12               {[-12-]}
            <MI 249ac  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x249ae 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x249b2 0x23b98>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 249b6-249b8 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x249b8 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 249be-249c0 StackAdj>                       Δ+8                {[-4-]}
            <MI 249c0  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 249c2-249c4 StackAdj>                       Δ-8                {[-12-]}
            <MI 249c4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x249c6 0x4.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x249ca 0x23b98>                                              {[-12-]|[4, '(A6+0x8)']|[##4]}
            <POP 249ce-249d0 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x249d0 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 249d6-249d8 StackAdj>                       Δ+8                {[-4-]}
            <MI 249d8  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 249da  MOVE.L  D6,D0>                                           {}
            <MI 249dc  ADD.L   D5,D0>                                           {}
            <MI 249de  SUBQ.L  #0x1,D0>                                         {}
            <MI 249e0  MOVE.W  (A4),D1>                                         {}
            <MI 249e2  EXTW.L  D1>                                              {}
            <MI 249e4  CMP.L   D1,D0>                                           {}
            <MI 249e6  BLE     0x24a18>                                         {}
        <POP 249e8-24a18 Naked>                              Σ0         ↓
            <Blob 0x249e8 [32] @>                            Δ-32               {[«32""»]}
            <POP 249fa-249fc StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x249fc 31>                                                    {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <Call 0x24a10 0x22e28>                                              {[«32""»]|[$$Offset/Length error in [INSERT]]}
            <POP 24a14-24a18 StackAdj>                       Δ+36               {}
        <POP 24a18-24a24 Naked>                              Σ0 Δ-8     ↓ ←0x2498a
            <MI 24a18  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 24a1a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 24a1c  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 24a1e  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 24a20  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 24a22  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 24a24-24a28 Naked>                              Σ-8        ↓ →0x24a4e ←0x24a28
            <MI 24a24  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 24a26  BGT     0x24a4e>                                         {[-8-]}
        <POP 24a28-24a4e Naked>                              Σ-8        ↓ →0x24a24
            <MI 24a28  MOVE.L  D6,D0>                                           {[-8-]}
            <MI 24a2a  ADD.L   D7,D0>                                           {[-8-]}
            <MI 24a2c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 24a2e  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x24a30 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 24a36  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 24a38  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x24a3a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 24a40  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 24a44  MOVE.B  (A0+D1.L+#0x2),(A4+D0.L+#0x2)>                   {[-8-]}
            <MI 24a4a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 24a4c  BVC     0x24a24>                                         {[-8-]}
        <POP 24a4e-24a62 Naked>                              Σ-8 Δ+8    ↓ ←0x24a24
            <POP 24a4e-24a50 StackAdj>                       Δ+4                {[-4-]}
            <MI 24a50  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x24a52 0x23c08>                                              {[4, 'A4']}
            <POP 24a56-24a58 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x24a58 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x24a5a 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 24a60-24a62 StackAdj>                       Δ+4                {}
        <POP 24a62-24a6a Epilogue>                           Σ0         

0x24a6a


@ 24a6a
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x014 @ 4(rw)>
    <POP 24a6a-24b50 Body>                                              
        <POP 24a6a-24a80 Prologue>                           Σ0         ↓
        <POP 24a80-24a8e RegCacheLoad>                       Σ0         ↓
        <POP 24a8e-24ae6 Naked>                              Σ0         ↓ →0x24aec
            <POP 24a8e-24a90 StackAdj>                       Δ-4                {[-4-]}
            <MI 24a90  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x24a92 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24a96 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 24a9a-24a9c StackAdj>                       Δ+8                {[-4-]}
            <MI 24a9c  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <Pointer.fp 0x24a9e <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Call 0x24aa0 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 24aa6-24aa8 StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 24aa8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x24aaa 0x2.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24aae 0x23b98>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 24ab2-24ab4 StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x24ab4 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 24aba-24abc StackAdj>                       Δ+8                {[@@-16]}
            <MI 24abc  MOVE.L  (A7),D5>                                         {[@@-16]}
            <POP 24abe-24ac0 StackAdj>                       Δ-8                {[@@-16]|[-8-]}
            <MI 24ac0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']}
            <Const 0x24ac2 0x3.4>                            Δ-4                {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x24ac6 0x23b98>                                              {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
            <POP 24aca-24acc StackAdj>                       Δ+8                {[@@-16]|[-8-]}
            <Call 0x24acc 0x10350>                                              {[@@-16]|[-8-]}
                Quad2Long(a : Quad) : Long
            <POP 24ad2-24ad4 StackAdj>                       Δ+8                {[@@-16]}
            <MI 24ad4  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 24ad6  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 24ad8  MOVE.L  D5,D0>                                           {}
            <MI 24ada  ADD.L   D6,D0>                                           {}
            <MI 24adc  SUBQ.L  #0x1,D0>                                         {}
            <MI 24ade  MOVE.W  (A0),D1>                                         {}
            <MI 24ae0  EXTW.L  D1>                                              {}
            <MI 24ae2  CMP.L   D1,D0>                                           {}
            <MI 24ae4  BLE     0x24aec>                                         {}
        <POP 24ae6-24aec Naked>                              Σ0         ↓
            <MI 24ae6  ADDQ.L  #0x1,D1>                                         {}
            <MI 24ae8  SUB.L   D5,D1>                                           {}
            <MI 24aea  MOVE.L  D1,D6>                                           {}
        <POP 24aec-24af0 Naked>                              Σ0 Δ-4     ↓ ←0x24a8e
            <MI 24aec  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 24aee  MOVEQ.L #0x01,D7>                                        {[4, 'D6']}
        <POP 24af0-24af4 Naked>                              Σ-4        ↓ →0x24b1a ←0x24af4
            <MI 24af0  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 24af2  BGT     0x24b1a>                                         {[-4-]}
        <POP 24af4-24b1a Naked>                              Σ-4        ↓ →0x24af0
            <MI 24af4  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 24af6  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 24af8  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x24afa LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 24b00  MOVEA.L (A6-0x14),A1>                                    {[-4-]}
            <MI 24b02  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 24b04  ADD.L   D5,D1>                                           {[-4-]}
            <MI 24b06  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <MI 24b08  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x24b0a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 24b10  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-4-]}
            <MI 24b16  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 24b18  BVC     0x24af0>                                         {[-4-]}
        <POP 24b1a-24b48 Naked>                              Σ-4 Δ+4    ↓ ←0x24af0
            <POP 24b1a-24b1c StackAdj>                       Δ+4                {}
            <MI 24b1c  MOVEA.L (A6-0x10),A0>                                    {}
            <POP 0x24b1e LimitCheck -0x8000 ≤ D6 ≤ 0x7fff>                      {}
            <MI 24b34  MOVE.W  D6,(A0)>                                         {}
            <MI 24b36  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x24b38 0x23c08>                                              {[4, '(A6-0x10)']}
            <POP 24b3c-24b3e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x24b3e <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x24b40 0x102bc>                                              {[@@-20]}
                FreeString(VAR a : String)
            <POP 24b46-24b48 StackAdj>                       Δ+4                {}
        <POP 24b48-24b50 Epilogue>                           Σ0         

0x24b50


@ 24b50
        <LVAR  0x008 4(r)>
    <POP 24b50-24b7c Body>                                              
        <POP 24b50-24b62 Prologue>                           Σ0         ↓
        <POP 24b62-24b78 Naked>                              Σ0         ↓
            <POP 24b62-24b64 StackAdj>                       Δ-8                {[-8-]}
            <MI 24b64  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x24b68 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24b6c 0x23b98>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 24b70-24b72 StackAdj>                       Δ+8                {[-8-]}
            <Call 0x24b72 0x239d2>                                              {[-8-]}
            <POP 24b76-24b78 StackAdj>                       Δ+8                {}
        <POP 24b78-24b7c Epilogue>                           Σ0         

0x24b7c


@ 24b7c
        <LVAR  0x008 4(r)>
    <POP 24b7c-24bc8 Body>                                              
        <POP 24b7c-24b8e Prologue>                           Σ0         ↓
        <POP 24b8e-24bba Naked>                              Σ0         ↓ →0x24bc0
            <POP 24b8e-24b92 StackAdj>                       Δ-10               {[-10-]}
            <MI 24b92  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24b96 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24b9a 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24b9e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24ba2 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24ba6 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24baa-24bac StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24bac 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 24bb2-24bb6 StackAdj>                       Δ+16               {[-2-]}
            <MI 24bb6  TST.B   (A7)+>                        Δ+2                {}
            <MI 24bb8  BEQ     0x24bc0>                                         {}
        <POP 24bba-24bc0 Naked>                              Σ0         →0x24bc4
            <Call 0x24bba 0x2361e>                                              {}
            <MI 24bbe  BRA     0x24bc4>                                         {}
        <POP 24bc0-24bc4 Naked>                              Σ0         ↓ ←0x24b8e
            <Call 0x24bc0 0x23664>                                              {}
        <POP 24bc4-24bc8 Epilogue>                           Σ0         ←0x24bba

0x24bc8


@ 24bc8
        <LVAR  0x008 4(r)>
    <POP 24bc8-24c14 Body>                                              
        <POP 24bc8-24bda Prologue>                           Σ0         ↓
        <POP 24bda-24c06 Naked>                              Σ0         ↓ →0x24c0c
            <POP 24bda-24bde StackAdj>                       Δ-10               {[-10-]}
            <MI 24bde  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24be2 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24be6 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24bea  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24bee 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24bf2 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24bf6-24bf8 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24bf8 0x1032c>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsEqual(a, b : Quad) : Bool
            <POP 24bfe-24c02 StackAdj>                       Δ+16               {[-2-]}
            <MI 24c02  TST.B   (A7)+>                        Δ+2                {}
            <MI 24c04  BNE     0x24c0c>                                         {}
        <POP 24c06-24c0c Naked>                              Σ0         →0x24c10
            <Call 0x24c06 0x2361e>                                              {}
            <MI 24c0a  BRA     0x24c10>                                         {}
        <POP 24c0c-24c10 Naked>                              Σ0         ↓ ←0x24bda
            <Call 0x24c0c 0x23664>                                              {}
        <POP 24c10-24c14 Epilogue>                           Σ0         ←0x24c06

0x24c14


@ 24c14
        <LVAR  0x008 4(r)>
    <POP 24c14-24c60 Body>                                              
        <POP 24c14-24c26 Prologue>                           Σ0         ↓
        <POP 24c26-24c52 Naked>                              Σ0         ↓ →0x24c58
            <POP 24c26-24c2a StackAdj>                       Δ-10               {[-10-]}
            <MI 24c2a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24c2e 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24c32 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24c36  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24c3a 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24c3e 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24c42-24c44 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24c44 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 24c4a-24c4e StackAdj>                       Δ+16               {[-2-]}
            <MI 24c4e  TST.B   (A7)+>                        Δ+2                {}
            <MI 24c50  BEQ     0x24c58>                                         {}
        <POP 24c52-24c58 Naked>                              Σ0         →0x24c5c
            <Call 0x24c52 0x2361e>                                              {}
            <MI 24c56  BRA     0x24c5c>                                         {}
        <POP 24c58-24c5c Naked>                              Σ0         ↓ ←0x24c26
            <Call 0x24c58 0x23664>                                              {}
        <POP 24c5c-24c60 Epilogue>                           Σ0         ←0x24c52

0x24c60


@ 24c60
        <LVAR  0x008 4(r)>
    <POP 24c60-24cac Body>                                              
        <POP 24c60-24c72 Prologue>                           Σ0         ↓
        <POP 24c72-24c9e Naked>                              Σ0         ↓ →0x24ca4
            <POP 24c72-24c76 StackAdj>                       Δ-10               {[-10-]}
            <MI 24c76  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24c7a 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24c7e 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24c82  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24c86 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24c8a 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24c8e-24c90 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24c90 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 24c96-24c9a StackAdj>                       Δ+16               {[-2-]}
            <MI 24c9a  TST.B   (A7)+>                        Δ+2                {}
            <MI 24c9c  BEQ     0x24ca4>                                         {}
        <POP 24c9e-24ca4 Naked>                              Σ0         →0x24ca8
            <Call 0x24c9e 0x2361e>                                              {}
            <MI 24ca2  BRA     0x24ca8>                                         {}
        <POP 24ca4-24ca8 Naked>                              Σ0         ↓ ←0x24c72
            <Call 0x24ca4 0x23664>                                              {}
        <POP 24ca8-24cac Epilogue>                           Σ0         ←0x24c9e

0x24cac


@ 24cac
        <LVAR  0x008 4(r)>
    <POP 24cac-24cf8 Body>                                              
        <POP 24cac-24cbe Prologue>                           Σ0         ↓
        <POP 24cbe-24cea Naked>                              Σ0         ↓ →0x24cf0
            <POP 24cbe-24cc2 StackAdj>                       Δ-10               {[-10-]}
            <MI 24cc2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24cc6 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24cca 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24cce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24cd2 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24cd6 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24cda-24cdc StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24cdc 0x10324>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsGreater(a, b : Quad) : Bool
            <POP 24ce2-24ce6 StackAdj>                       Δ+16               {[-2-]}
            <MI 24ce6  TST.B   (A7)+>                        Δ+2                {}
            <MI 24ce8  BNE     0x24cf0>                                         {}
        <POP 24cea-24cf0 Naked>                              Σ0         →0x24cf4
            <Call 0x24cea 0x2361e>                                              {}
            <MI 24cee  BRA     0x24cf4>                                         {}
        <POP 24cf0-24cf4 Naked>                              Σ0         ↓ ←0x24cbe
            <Call 0x24cf0 0x23664>                                              {}
        <POP 24cf4-24cf8 Epilogue>                           Σ0         ←0x24cea

0x24cf8


@ 24cf8
        <LVAR  0x008 4(r)>
    <POP 24cf8-24d44 Body>                                              
        <POP 24cf8-24d0a Prologue>                           Σ0         ↓
        <POP 24d0a-24d36 Naked>                              Σ0         ↓ →0x24d3c
            <POP 24d0a-24d0e StackAdj>                       Δ-10               {[-10-]}
            <MI 24d0e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']}
            <Const 0x24d12 0x1.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24d16 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
            <MI 24d1a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24d1e 0x2.4>                            Δ-4                {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24d22 0x23b98>                                              {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24d26-24d28 StackAdj>                       Δ+8                {[-10-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24d28 0x10328>                                              {[-10-]|[4, '(A6+0x8)']|[##1]}
                IsSmaller(a, b : Quad) : Bool
            <POP 24d2e-24d32 StackAdj>                       Δ+16               {[-2-]}
            <MI 24d32  TST.B   (A7)+>                        Δ+2                {}
            <MI 24d34  BNE     0x24d3c>                                         {}
        <POP 24d36-24d3c Naked>                              Σ0         →0x24d40
            <Call 0x24d36 0x2361e>                                              {}
            <MI 24d3a  BRA     0x24d40>                                         {}
        <POP 24d3c-24d40 Naked>                              Σ0         ↓ ←0x24d0a
            <Call 0x24d3c 0x23664>                                              {}
        <POP 24d40-24d44 Epilogue>                           Σ0         ←0x24d36

0x24d44


@ 24d44
        <LVAR  0x008 4(r)>
    <POP 24d44-24d8e Body>                                              
        <POP 24d44-24d5a Prologue>                           Σ0         ↓
        <POP 24d5a-24d5c RegCacheLoad>                       Σ0         ↓
        <POP 24d5c-24d86 Naked>                              Σ0         ↓
            <POP 24d5c-24d5e StackAdj>                       Δ-16               {[-16-]}
            <MI 24d5e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24d62 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24d66 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24d6a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24d6e 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24d72 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24d76-24d78 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24d78 0x10314>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Add(a, b : Quad) : Quad
            <POP 24d7e-24d80 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24d80 0x23c90>                                              {[-8-]}
            <POP 24d84-24d86 StackAdj>                       Δ+8                {}
        <POP 24d86-24d8e Epilogue>                           Σ0         

0x24d8e


@ 24d8e
        <LVAR  0x008 4(r)>
    <POP 24d8e-24dd8 Body>                                              
        <POP 24d8e-24da4 Prologue>                           Σ0         ↓
        <POP 24da4-24da6 RegCacheLoad>                       Σ0         ↓
        <POP 24da6-24dd0 Naked>                              Σ0         ↓
            <POP 24da6-24da8 StackAdj>                       Δ-16               {[-16-]}
            <MI 24da8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24dac 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24db0 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24db4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24db8 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24dbc 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24dc0-24dc2 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24dc2 0x10318>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Subtract(a, b : Quad) : Quad
            <POP 24dc8-24dca StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24dca 0x23c90>                                              {[-8-]}
            <POP 24dce-24dd0 StackAdj>                       Δ+8                {}
        <POP 24dd0-24dd8 Epilogue>                           Σ0         

0x24dd8


@ 24dd8
        <LVAR  0x008 4(r)>
    <POP 24dd8-24e22 Body>                                              
        <POP 24dd8-24dee Prologue>                           Σ0         ↓
        <POP 24dee-24df0 RegCacheLoad>                       Σ0         ↓
        <POP 24df0-24e1a Naked>                              Σ0         ↓
            <POP 24df0-24df2 StackAdj>                       Δ-16               {[-16-]}
            <MI 24df2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24df6 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24dfa 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24dfe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24e02 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24e06 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24e0a-24e0c StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24e0c 0x1031c>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Multiply(a, b : Quad) : Quad
            <POP 24e12-24e14 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24e14 0x23c90>                                              {[-8-]}
            <POP 24e18-24e1a StackAdj>                       Δ+8                {}
        <POP 24e1a-24e22 Epilogue>                           Σ0         

0x24e22


@ 24e22
        <LVAR  0x008 4(r)>
    <POP 24e22-24e6c Body>                                              
        <POP 24e22-24e38 Prologue>                           Σ0         ↓
        <POP 24e38-24e3a RegCacheLoad>                       Σ0         ↓
        <POP 24e3a-24e64 Naked>                              Σ0         ↓
            <POP 24e3a-24e3c StackAdj>                       Δ-16               {[-16-]}
            <MI 24e3c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24e40 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24e44 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24e48  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24e4c 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24e50 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24e54-24e56 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24e56 0x10320>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Divide(a, b : Quad) : Quad
            <POP 24e5c-24e5e StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24e5e 0x23c90>                                              {[-8-]}
            <POP 24e62-24e64 StackAdj>                       Δ+8                {}
        <POP 24e64-24e6c Epilogue>                           Σ0         

0x24e6c


@ 24e6c
        <LVAR  0x008 4(r)>
    <POP 24e6c-24eb6 Body>                                              
        <POP 24e6c-24e82 Prologue>                           Σ0         ↓
        <POP 24e82-24e84 RegCacheLoad>                       Σ0         ↓
        <POP 24e84-24eae Naked>                              Σ0         ↓
            <POP 24e84-24e86 StackAdj>                       Δ-16               {[-16-]}
            <MI 24e86  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24e8a 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24e8e 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24e92  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24e96 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24e9a 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24e9e-24ea0 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24ea0 0x10358>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                Modulus(a, b : Quad) : Quad
            <POP 24ea6-24ea8 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24ea8 0x23c90>                                              {[-8-]}
            <POP 24eac-24eae StackAdj>                       Δ+8                {}
        <POP 24eae-24eb6 Epilogue>                           Σ0         

0x24eb6


@ 24eb6
        <LVAR  0x008 4(r)>
    <POP 24eb6-24f00 Body>                                              
        <POP 24eb6-24ecc Prologue>                           Σ0         ↓
        <POP 24ecc-24ece RegCacheLoad>                       Σ0         ↓
        <POP 24ece-24ef8 Naked>                              Σ0         ↓
            <POP 24ece-24ed0 StackAdj>                       Δ-16               {[-16-]}
            <MI 24ed0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24ed4 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24ed8 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24edc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24ee0 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24ee4 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24ee8-24eea StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24eea 0x10334>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitOr(a, b : Quad) : Quad
            <POP 24ef0-24ef2 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24ef2 0x23c90>                                              {[-8-]}
            <POP 24ef6-24ef8 StackAdj>                       Δ+8                {}
        <POP 24ef8-24f00 Epilogue>                           Σ0         

0x24f00


@ 24f00
        <LVAR  0x008 4(r)>
    <POP 24f00-24f4a Body>                                              
        <POP 24f00-24f16 Prologue>                           Σ0         ↓
        <POP 24f16-24f18 RegCacheLoad>                       Σ0         ↓
        <POP 24f18-24f42 Naked>                              Σ0         ↓
            <POP 24f18-24f1a StackAdj>                       Δ-16               {[-16-]}
            <MI 24f1a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24f1e 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24f22 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24f26  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24f2a 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24f2e 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24f32-24f34 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24f34 0x10330>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitAnd(a, b : Quad) : Quad
            <POP 24f3a-24f3c StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24f3c 0x23c90>                                              {[-8-]}
            <POP 24f40-24f42 StackAdj>                       Δ+8                {}
        <POP 24f42-24f4a Epilogue>                           Σ0         

0x24f4a


@ 24f4a
        <LVAR  0x008 4(r)>
    <POP 24f4a-24f94 Body>                                              
        <POP 24f4a-24f60 Prologue>                           Σ0         ↓
        <POP 24f60-24f62 RegCacheLoad>                       Σ0         ↓
        <POP 24f62-24f8c Naked>                              Σ0         ↓
            <POP 24f62-24f64 StackAdj>                       Δ-16               {[-16-]}
            <MI 24f64  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24f68 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24f6c 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24f70  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
            <Const 0x24f74 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <Call 0x24f78 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
            <POP 24f7c-24f7e StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24f7e 0x10340>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
                BitXor(a, b : Quad) : Quad
            <POP 24f84-24f86 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x24f86 0x23c90>                                              {[-8-]}
            <POP 24f8a-24f8c StackAdj>                       Δ+8                {}
        <POP 24f8c-24f94 Epilogue>                           Σ0         

0x24f94


@ 24f94
        <LVAR  0x008 4(r)>
    <POP 24f94-24fd8 Body>                                              
        <POP 24f94-24fa6 Prologue>                           Σ0         ↓
        <POP 24fa6-24fd4 Naked>                              Σ0         ↓
            <POP 24fa6-24faa StackAdj>                       Δ-16               {[-16-]}
            <MI 24faa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24fae 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24fb2 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24fb6  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x24fba 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x24fbe 0x23bd4>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 24fc2-24fc4 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <Call 0x24fc4 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 24fca-24fce StackAdj>                       Δ+12               {[-8-]}
            <Call 0x24fce 0x23c90>                                              {[-8-]}
            <POP 24fd2-24fd4 StackAdj>                       Δ+8                {}
        <POP 24fd4-24fd8 Epilogue>                           Σ0         

0x24fd8


@ 24fd8
        <LVAR  0x008 4(r)>
    <POP 24fd8-2501e Body>                                              
        <POP 24fd8-24fea Prologue>                           Σ0         ↓
        <POP 24fea-2501a Naked>                              Σ0         ↓
            <POP 24fea-24fee StackAdj>                       Δ-16               {[-16-]}
            <MI 24fee  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x24ff2 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x24ff6 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <MI 24ffa  MOVE.L  (A6+0x8),(A7)>                                   {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
            <Const 0x24ffe 0x2.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <Call 0x25002 0x23bd4>                                              {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
            <POP 25006-25008 StackAdj>                       Δ+8                {[-16-]|[4, '(A6+0x8)']}
            <MI 25008  NEG.L   (A7)>                                            {[-16-]|[4, '(A6+0x8)']}
            <Call 0x2500a 0x10344>                                              {[-16-]|[4, '(A6+0x8)']}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 25010-25014 StackAdj>                       Δ+12               {[-8-]}
            <Call 0x25014 0x23c90>                                              {[-8-]}
            <POP 25018-2501a StackAdj>                       Δ+8                {}
        <POP 2501a-2501e Epilogue>                           Σ0         

0x2501e


@ 2501e
        <LVAR  0x008 4(r)>
    <POP 2501e-25054 Body>                                              
        <POP 2501e-25030 Prologue>                           Σ0         ↓
        <POP 25030-25050 Naked>                              Σ0         ↓
            <POP 25030-25034 StackAdj>                       Δ-16               {[-16-]}
            <MI 25034  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x8)']}
            <Const 0x25038 0x1.4>                            Δ-4                {[-16-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x2503c 0x23b98>                                              {[-16-]|[4, '(A6+0x8)']|[##1]}
            <POP 25040-25042 StackAdj>                       Δ+8                {[-16-]}
            <Call 0x25042 0x10338>                                              {[-16-]}
                BitNot(a : Quad) : Quad
            <POP 25048-2504a StackAdj>                       Δ+8                {[-8-]}
            <Call 0x2504a 0x23c90>                                              {[-8-]}
            <POP 2504e-25050 StackAdj>                       Δ+8                {}
        <POP 25050-25054 Epilogue>                           Σ0         

0x25054


@ 25054
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
    <POP 25054-250e4 Body>                                              
        <POP 25054-2506a Prologue>                           Σ0         ↓
        <POP 2506a-2506e RegCacheLoad>                       Σ0         ↓
        <POP 2506e-250dc Naked>                              Σ0         ↓
            <POP 2506e-25070 StackAdj>                       Δ-8                {[-8-]}
            <MI 25070  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x25072 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x25076 0x23b98>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 2507a-2507c StackAdj>                       Δ+8                {[-8-]}
            <MI 2507c  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[-4-]}
            <MI 25080  MOVE.L  (A7),(A6-0x14)>                                  {[-4-]}
            <POP 25084-25086 StackAdj>                       Δ-4                {[-8-]}
            <MI 25086  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x25088 0x2.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2508c 0x23b98>                                              {[-8-]|[4, '(A6+0x8)']|[##2]}
            <POP 25090-25092 StackAdj>                       Δ+8                {[-8-]}
            <MI 25092  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 25096  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 2509a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x2509c 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x250a0 0x23bd4>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 250a4-250a6 StackAdj>                       Δ+8                {[-4-]}
            <MI 250a6  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 250a8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x250aa 0x4.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##4]}
            <Call 0x250ae 0x23bd4>                                              {[-4-]|[4, '(A6+0x8)']|[##4]}
            <POP 250b2-250b4 StackAdj>                       Δ+8                {[-4-]}
            <MI 250b4  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 250b6-250b8 StackAdj>                       Δ-4                {[-8-]}
            <MI 250b8  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']}
            <MI 250bc  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <MI 250c0  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
            <MI 250c4  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 250c8  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 250ca  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x250cc 0x10348>                                              {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                ?BitField_something_()
            <POP 250d2-250d6 StackAdj>                       Δ+24               {[-8-]}
            <Call 0x250d6 0x23c90>                                              {[-8-]}
            <POP 250da-250dc StackAdj>                       Δ+8                {}
        <POP 250dc-250e4 Epilogue>                           Σ0         

0x250e4


@ 250e4
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 250e4-25156 Body>                                              
        <POP 250e4-250fa Prologue>                           Σ0         ↓
        <POP 250fa-250fe RegCacheLoad>                       Σ0         ↓
        <POP 250fe-2514e Naked>                              Σ0         ↓
            <POP 250fe-25100 StackAdj>                       Δ-8                {[-8-]}
            <MI 25100  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x25102 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x25106 0x23b98>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 2510a-2510c StackAdj>                       Δ+8                {[-8-]}
            <MI 2510c  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 25110  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 25114  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x25116 0x2.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x2511a 0x23bd4>                                              {[-4-]|[4, '(A6+0x8)']|[##2]}
            <POP 2511e-25120 StackAdj>                       Δ+8                {[-4-]}
            <MI 25120  MOVE.L  (A7),D7>                                         {[-4-]}
            <MI 25122  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x25124 0x3.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x25128 0x23bd4>                                              {[-4-]|[4, '(A6+0x8)']|[##3]}
            <POP 2512c-2512e StackAdj>                       Δ+8                {[-4-]}
            <MI 2512e  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 25130-25132 StackAdj>                       Δ-4                {[-8-]}
            <MI 25132  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 25136  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 2513a  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
            <MI 2513c  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
            <Call 0x2513e 0x1034c>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
                FSCALL_1034c
            <POP 25144-25148 StackAdj>                       Δ+16               {[-8-]}
            <Call 0x25148 0x23c90>                                              {[-8-]}
            <POP 2514c-2514e StackAdj>                       Δ+8                {}
        <POP 2514e-25156 Epilogue>                           Σ0         

0x25156


@ 25156
        <LVAR  0x008 4(r)>
    <POP 25156-251c8 Body>                                              
        <POP 25156-2516c Prologue>                           Σ0         ↓
        <POP 2516c-2517a Naked>                              Σ0 Δ-4     ↓
            <POP 2516c-2516e StackAdj>                       Δ-4                {[-4-]}
            <MI 2516e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x25172 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 25176-25178 StackAdj>                       Δ+4                {[-4-]}
            <MI 25178  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 2517a-2517e Naked>                              Σ-4        ↓ →0x251a4 ←0x2517e
            <MI 2517a  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 2517c  BGT     0x251a4>                                         {[-4-]}
        <POP 2517e-251a4 Naked>                              Σ-4        ↓ →0x2517a
            <POP 2517e-25180 StackAdj>                       Δ-4                {[-8-]}
            <MI 25180  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 25184  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x25186 0x23b66>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 2518a-2518c StackAdj>                       Δ+8                {[-8-]}
            <Call 0x2518c 0x103d8>                                              {[-8-]}
                WriteConsoleString(str : String)
            <POP 25192-25194 StackAdj>                       Δ+2                {[-6-]}
            <POP 25194-25195 StackAdj>                       Δ+2                {[-4-]}
            <Const 0x25195 0x20.2>                           Δ-2                {[-4-]|[#32]}
            <Call 0x25198 0x103d0>                                              {[-4-]|[#32]}
                WriteConsoleChar(chr : char)
            <POP 2519e-251a0 StackAdj>                       Δ+2                {[-4-]}
            <MI 251a0  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 251a2  BVC     0x2517a>                                         {[-4-]}
        <POP 251a4-251c0 Naked>                              Σ-4 Δ+4    ↓ ←0x2517a
            <Const 0x251a4 0x1.4>                            Δ-4                {[-4-]|[##1]}
            <Call 0x251a8 0x103e4>                                              {[-4-]|[##1]}
                AskConsoleString(prompt : String) : String
            <POP 251ae-251b0 StackAdj>                       Δ+4                {[-4-]}
            <MI 251b0  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 251b2  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x251b4 0x23084>                                              {[4, 'A4']}
            <MI 251b8  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x251ba 0x23c08>                                              {[4, 'A4']}
            <POP 251be-251c0 StackAdj>                       Δ+4                {}
        <POP 251c0-251c8 Epilogue>                           Σ0         

0x251c8


@ 251c8
        <LVAR  0x008 4(r)>
    <POP 251c8-2524a Body>                                              
        <POP 251c8-251de Prologue>                           Σ0         ↓
        <POP 251de-251e4 RegCacheLoad>                       Σ0         ↓
        <POP 251e4-25242 Naked>                              Σ0         ↓
            <POP 251e4-251e6 StackAdj>                       Δ-4                {[-4-]}
            <MI 251e6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Const 0x251e8 0x1.4>                            Δ-4                {[-4-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x251ec 0x23b66>                                              {[-4-]|[4, '(A6+0x8)']|[##1]}
            <POP 251f0-251f2 StackAdj>                       Δ+8                {[-4-]}
            <MI 251f2  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 251f4-251f6 StackAdj>                       Δ-12               {[-12-]}
            <MI 251f6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x251f8 0x2.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##2]}
            <Call 0x251fc 0x23b98>                                              {[-12-]|[4, '(A6+0x8)']|[##2]}
            <POP 25200-25202 StackAdj>                       Δ+8                {[-12-]}
            <Call 0x25202 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 25208-2520a StackAdj>                       Δ+8                {[-4-]}
            <MI 2520a  MOVE.L  (A7),D7>                                         {[-4-]}
            <POP 2520c-2520e StackAdj>                       Δ-8                {[-12-]}
            <MI 2520e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Const 0x25210 0x3.4>                            Δ-4                {[-12-]|[4, '(A6+0x8)']|[##3]}
            <Call 0x25214 0x23b98>                                              {[-12-]|[4, '(A6+0x8)']|[##3]}
            <POP 25218-2521a StackAdj>                       Δ+8                {[-12-]}
            <Call 0x2521a 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 25220-25222 StackAdj>                       Δ+8                {[-4-]}
            <MI 25222  MOVE.L  (A7),D6>                                         {[-4-]}
            <POP 25224-25226 StackAdj>                       Δ-8                {[-12-]}
            <MI 25226  MOVE.L  A4,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']}
            <MI 25228  MOVE.L  D7,-(A7)>                     Δ-4                {[-12-]|[4, 'A4']|[4, 'D7']}
            <Call 0x2522a 0x10360>                                              {[-12-]|[4, 'A4']|[4, 'D7']}
                ?StringToInt64()
            <POP 25230-25232 StackAdj>                       Δ+4                {[-12-]|[4, 'A4']}
            <MI 25232  MOVE.L  D6,(A7)>                                         {[-12-]|[4, 'D6']}
            <Call 0x25234 0x1035c>                                              {[-12-]|[4, 'D6']}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 2523a-2523c StackAdj>                       Δ+12               {[-4-]}
            <Call 0x2523c 0x23c08>                                              {[-4-]}
            <POP 25240-25242 StackAdj>                       Δ+4                {}
        <POP 25242-2524a Epilogue>                           Σ0         

0x2524a


@ 2524a
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
    <POP 2524a-252ca Body>                                              
        <POP 2524a-25260 Prologue>                           Σ0         ↓
        <POP 25260-25268 RegCacheLoad>                       Σ0         ↓
        <POP 25268-25280 Naked>                              Σ0         ↓
            <POP 25268-2526a StackAdj>                       Δ-8                {[-8-]}
            <MI 2526a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Const 0x2526e 0x1.4>                            Δ-4                {[-8-]|[4, '(A6+0x8)']|[##1]}
            <Call 0x25272 0x23b98>                                              {[-8-]|[4, '(A6+0x8)']|[##1]}
            <POP 25276-25278 StackAdj>                       Δ+8                {[-8-]}
            <MI 25278  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 2527a  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 2527c  MOVEQ.L #0x00,D7>                                        {}
            <MI 2527e  MOVEQ.L #0x00,D6>                                        {}
        <POP 25280-252b0 Naked>                              Σ0         ↓ →0x25280 ←0x25280
            <MI 25280  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 25284  ANDI.W  #0x0001,D0>                                      {}
            <MI 25288  CLR.L   D1>                                              {}
            <MI 2528a  MOVE.W  D0,D1>                                           {}
            <MI 2528c  ADD.L   D1,D7>                                           {}
            <POP 2528e-25290 StackAdj>                       Δ-8                {[-8-]}
            <MI 25290  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 25292  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Const 0x25294 0xffffffff.4>                     Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
            <Call 0x25298 0x10344>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 2529e-252a2 StackAdj>                       Δ+12               {[-8-]}
            <MI 252a2  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 252a4  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 252a6  ADDQ.L  #0x1,D6>                                         {}
            <MI 252a8  CMPI.L  #0x0000003f,D6>                                  {}
            <MI 252ae  BLE     0x25280>                                         {}
        <POP 252b0-252c2 Naked>                              Σ0         ↓
            <POP 252b0-252b2 StackAdj>                       Δ-8                {[-8-]}
            <MI 252b2  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, 'D7']}
            <Call 0x252b4 0x10354>                                              {[-8-]|[4, 'D7']}
                Long2Quad(a : Long) : Quad
            <POP 252ba-252bc StackAdj>                       Δ+4                {[-8-]}
            <Call 0x252bc 0x23c90>                                              {[-8-]}
            <POP 252c0-252c2 StackAdj>                       Δ+8                {}
        <POP 252c2-252ca Epilogue>                           Σ0         

0x252ca


@ 252ca
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 252ca-2538e Body>                                              
        <POP 252ca-252e0 Prologue>                           Σ0         ↓
        <POP 252e0-252ea RegCacheLoad>                       Σ0         ↓
        <POP 252ea-252ee Naked>                              Σ0         ↓ →0x25320
            <MI 252ea  TST.B   0x279b0>                                         {}
            <MI 252ec  BNE     0x25320>                                         {}
        <POP 252ee-25320 Naked>                              Σ0         ↓
            <Blob 0x252ee [28] @>                            Δ-28               {[«28""»]}
            <POP 25300-25302 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x25302 27>                                                    {[«28""»]|[$$REPEATing, type ^G to exit.]}
            <Call 0x25314 0x103e0>                                              {[«28""»]|[$$REPEATing, type ^G to exit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 2531a-2531e StackAdj>                       Δ+32               {}
            <MI 2531e  MOVE.B  #0x01,0x279b0>                                   {}
        <POP 25320-2534a Naked>                              Σ0         ↓ →0x25360 ←0x252ea
            <POP 25320-25322 StackAdj>                       Δ-6                {[-6-]}
            <Call 0x25322 0x103f8>                                              {[-6-]}
                GetConsoleConfig() : Long
            <MI 25328  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]}
            <POP 0x2532a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]}
            <MI 25334  MOVE.W  D0,(A7)>                                         {[2, 'D0']}
            <Pointer.fp 0x25336 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x2533a 0x10212>                                              {[2, 'D0']|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 25340-25342 StackAdj>                       Δ+6                {}
            <MI 25342  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 25346  CMP.B   #0x01,D0>                                        {}
            <MI 25348  BEQ     0x25360>                                         {}
        <POP 2534a-25360 Naked>                              Σ0         
            <MI 2534a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x2534e 0x22de6>                                              {[4, '(A6+0x8)']}
            <POP 25352-25354 StackAdj>                       Δ+4                {}
            <POP 25354-25360 Bailout>                                           {}
                <MI 25354  MOVEA.L (A5+0x8),A7>                         
                <MI 25358  MOVEA.W #0x00,A6>                            
                <MI 2535a  JMP     0x2676a>                             
        <POP 25360-25370 Naked>                              Σ0         ↓ →0x25386 ←0x25320
            <POP 25360-25362 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25362 0x103d4>                                              {[-2-]}
                ReadChar() : Byte
            <MI 25368  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2536a  CMPI.B  #0x07,D0>                                        {}
            <MI 2536e  BEQ     0x25386>                                         {}
        <POP 25370-25386 Naked>                              Σ0         
            <MI 25370  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x25374 0x22de6>                                              {[4, '(A6+0x8)']}
            <POP 25378-2537a StackAdj>                       Δ+4                {}
            <POP 2537a-25386 Bailout>                                           {}
                <MI 2537a  MOVEA.L (A5+0x8),A7>                         
                <MI 2537e  MOVEA.W #0x00,A6>                            
                <MI 25380  JMP     0x2676a>                             
        <POP 25386-2538e Epilogue>                           Σ0         ←0x25360

0x2538e


@ 2538e
    <POP 2538e-253ae Body>                                              
        <POP 2538e-253a0 Prologue>                           Σ0         ↓
        <POP 253a0-253aa Naked>                              Σ0         ↓
            <Const 0x253a0 0xc8.4>                           Δ-4                {[##200]}
            <Call 0x253a4 0x23cc4>                                              {[##200]}
            <POP 253a8-253aa StackAdj>                       Δ+4                {}
        <POP 253aa-253ae Epilogue>                           Σ0         

0x253ae


@ 253ae
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 253ae-2545a Body>                                              
        <POP 253ae-253c4 Prologue>                           Σ0         ↓
        <POP 253c4-253c8 RegCacheLoad>                       Σ0         ↓
        <POP 253c8-253dc Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x253c8 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x253ca 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <MI 253d0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[@@-12]|[4, '(A6+0x8)']}
            <Call 0x253d4 0x2323c>                                              {[@@-12]|[4, '(A6+0x8)']}
            <POP 253d8-253da StackAdj>                       Δ+4                {[@@-12]}
            <MI 253da  MOVEQ.L #0x01,D7>                                        {[@@-12]}
        <POP 253dc-253e0 Naked>                              Σ-4        ↓ →0x2544a ←0x25446
            <MI 253dc  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 253de  BGT     0x2544a>                                         {[-4-]}
        <POP 253e0-253f2 Naked>                              Σ-4        ↓ →0x25412
            <POP 253e0-253e2 StackAdj>                       Δ-4                {[-8-]}
            <MI 253e2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <MI 253e6  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x253e8 0x23bd4>                                              {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 253ec-253ee StackAdj>                       Δ+8                {[-8-]}
            <MI 253ee  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 253f0  BLT     0x25412>                                         {[-4-]}
        <POP 253f2-253fa Naked>                              Σ-4        ↓ →0x25412
            <MI 253f2  CMPI.L  #0x000000ff,D6>                                  {[-4-]}
            <MI 253f8  BGT     0x25412>                                         {[-4-]}
        <POP 253fa-25412 Naked>                              Σ-4        →0x25446
            <MI 253fa  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0xc)']}
            <POP 0x253fc LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]|[4, '(A6-0xc)']}
            <MI 25406  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
            <Call 0x25408 0x102c0>                                              {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 2540e-25410 StackAdj>                       Δ+6                {[-4-]}
            <MI 25410  BRA     0x25446>                                         {[-4-]}
        <POP 25412-25446 Naked>                              Σ-4        ↓ ←0x253e0 ←0x253f2
            <Pointer.fp 0x25412 <LVAR -0x00c @ 4(r)>>        Δ-4                {[-4-]|[@@-12]}
            <Call 0x25414 0x102bc>                                              {[-4-]|[@@-12]}
                FreeString(VAR a : String)
            <POP 2541a-2541c StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x2541c [28] @>                            Δ-28               {[-4-]|[«28""»]}
            <POP 25428-2542a StackAdj>                       Δ-4                {[-4-]|[«28""»]|[-4-]}
            <Lit 0x2542a 28>                                                    {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <Call 0x2543e 0x22e28>                                              {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
            <POP 25442-25446 StackAdj>                       Δ+32               {[-4-]}
        <POP 25446-2544a Naked>                              Σ-4        ↓ →0x253dc ←0x253fa
            <MI 25446  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 25448  BVC     0x253dc>                                         {[-4-]}
        <POP 2544a-25452 Naked>                              Σ-4 Δ+4    ↓ ←0x253dc
            <MI 2544a  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Call 0x2544c 0x23c08>                                              {[4, '(A6-0xc)']}
            <POP 25450-25452 StackAdj>                       Δ+4                {}
        <POP 25452-2545a Epilogue>                           Σ0         

0x2545a


@ 2545a
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 2545a-25516 Body>                                   Δ-8        
        <POP 2545a-25470 Prologue>                           Σ0         ↓
        <POP 25470-25480 Naked>                              Σ0 Δ-4     ↓
            <MI 25470  CLR.B   (A6+0xc)>                                        {}
            <MI 25474  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 25478  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2547a  MOVEQ.L #0x00,D0>                                        {[4, 'A0']}
            <MI 2547c  ADDQ.W  #0x1,D0>                                         {[4, 'A0']}
            <MI 2547e  MOVE.B  D0,D6>                                           {[4, 'A0']}
        <POP 25480-2548a Naked>                              Σ-4        ↓ →0x2550c ←0x25504
            <MI 25480  CMPI.B  #0x2b,D6>                                        {[-4-]}
            <MI 25484  BGT     0x2550c>                                         {[-4-]}
        <POP 2548a-254b0 Naked>                              Σ-4        ↓ →0x25504
            <MI 2548a  LEA.L   0x22d14,A0>                                      {[-4-]}
            <MI 2548e  MOVE.B  D6,D0>                                           {[-4-]}
            <MI 25490  EXTB.W  D0>                                              {[-4-]}
            <MI 25492  EXTW.L  D0>                                              {[-4-]}
            <MI 25494  ROR.L   #0x1,D0>                                         {[-4-]}
            <MI 25496  ADDA.W  D0,A0>                                           {[-4-]}
            <MI 25498  SWAP.W  D0>                                              {[-4-]}
            <MI 2549a  ROL.W   #0x3,D0>                                         {[-4-]}
            <MI 2549c  CLR.L   D1>                                              {[-4-]}
            <MI 2549e  MOVE.B  (A0),D1>                                         {[-4-]}
            <MI 254a0  LSL.B   D0,D1>                                           {[-4-]}
            <MI 254a2  LSR.B   #0x4,D1>                                         {[-4-]}
            <MI 254a4  MOVE.L  D1,D5>                                           {[-4-]}
            <MI 254a6  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 254a8  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 254aa  EXTW.L  D0>                                              {[-4-]}
            <MI 254ac  CMP.L   D0,D5>                                           {[-4-]}
            <MI 254ae  BNE     0x25504>                                         {[-4-]}
        <POP 254b0-254b4 Naked>                              Σ-4 Δ-4    ↓
            <MI 254b0  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 254b2  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D5']}
        <POP 254b4-254b8 Naked>                              Σ-8        ↓ →0x254fa ←0x254f6
            <MI 254b4  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 254b6  BGT     0x254fa>                                         {[-8-]}
        <POP 254b8-254f2 Naked>                              Σ-8        ↓ →0x254f6
            <MI 254b8  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 254ba  EXTB.W  D0>                                              {[-8-]}
            <MI 254bc  MULS.W  #0xa,D0>                                         {[-8-]}
            <MI 254c0  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 254c2  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x254c4 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 254ce  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 254d2  LEA.L   0x22b5c,A1>                                      {[-8-]}
            <MI 254d6  MOVE.L  D7,D2>                                           {[-8-]}
            <MI 254d8  SUBQ.L  #0x1,D2>                                         {[-8-]}
            <POP 0x254da LimitCheck 0x0 ≤ D2 ≤ 0x9>                             {[-8-]}
            <MI 254e4  LEA.L   (A1+D0.W),A1>                                    {[-8-]}
            <MI 254e8  MOVE.B  (A0+D1.L+#0x2),D0>                               {[-8-]}
            <MI 254ec  CMP.B   (A1+D2.L),D0>                                    {[-8-]}
            <MI 254f0  BEQ     0x254f6>                                         {[-8-]}
        <POP 254f2-254f6 Naked>                              Σ-8 Δ+4    →0x25504
            <POP 254f2-254f4 StackAdj>                       Δ+4                {[-4-]}
            <MI 254f4  BRA     0x25504>                                         {[-4-]}
        <POP 254f6-254fa Naked>                              Σ-8        ↓ →0x254b4 ←0x254b8
            <MI 254f6  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 254f8  BVC     0x254b4>                                         {[-8-]}
        <POP 254fa-25504 Naked>                              Σ-8 Δ+8    →0x2550e ←0x254b4
            <POP 254fa-254fc StackAdj>                       Δ+4                {[-4-]}
            <MI 254fc  MOVE.B  D6,(A6+0xc)>                                     {[-4-]}
            <POP 25500-25502 StackAdj>                       Δ+4                {}
            <MI 25502  BRA     0x2550e>                                         {}
        <POP 25504-2550c Naked>                              Σ-4        ↓ →0x25480 ←0x2548a ←0x254f2
            <MI 25504  ADDQ.B  #0x1,D6>                                         {[-4-]}
            <MI 25506  BVC     0x25480>                                         {[-4-]}
        <POP 2550c-2550e Naked>                              Σ-4 Δ+4    ↓ ←0x25480
            <POP 2550c-2550e StackAdj>                       Δ+4                {}
        <POP 2550e-25516 Epilogue>                           Σ0         ←0x254fa

0x25516


@ 25516
TRY_SCRIPT_FILE(?)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x006 @ 4(w)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(rw)>
    <POP 25516-25652 Body>                                              
        <POP 25516-2552c Prologue>                           Σ0         ↓
        <POP 2552c-2553a RegCacheLoad>                       Σ0         ↓
        <POP 2553a-255a6 Naked>                              Σ0         ↓ →0x255f0
            <POP 2553a-2553c StackAdj>                       Δ-4                {[-4-]}
            <MI 2553c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x25540 0x102cc>                                              {[-4-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <POP 25546-25548 StackAdj>                       Δ+4                {[-4-]}
            <MI 25548  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 2554a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Const 0x2554c 0x2e.2>                           Δ-2                {[4, '(A6-0x10)']|[#46]}
            <Call 0x25550 0x102c0>                                              {[4, '(A6-0x10)']|[#46]}
                AppendChar(MOD b : String; a : char)
            <POP 25556-25558 StackAdj>                       Δ+6                {}
            <Blob 0x25558 [10] 0x27990>                      Δ-10               {[«10»]}
            <POP 25566-25568 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <MI 25568  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']}
            <POP 2556a-2556c StackAdj>                       Δ-4                {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x2556c>                                                       {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                <Pointer.sp 0x2556c 12>                      Δ-4        
                <Const 0x25570 0x1.2>                        Δ-2        
                <Const 0x25572 0xa.2>                        Δ-2        
                <Call 0x25576 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2557c-2557e StackAdj>                   Δ+8        
            <Call 0x2557e 0x102d0>                                              {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
                StringCat2(a, b : String) : String
            <POP 25584-25586 StackAdj>                       Δ+8                {[«10»]|[-4-]}
            <MI 25586  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10»]}
            <POP 25588-2558a StackAdj>                       Δ+6                {[-4-]}
            <MI 2558a  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 2558c  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x10)']|[#0]}
            <Const 0x2558e 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#0]|[#1]}
            <Const 0x25590 0x0.4>                            Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x25594 <LVAR -0x002 @ 1(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
            <Pointer.fp 0x25596 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
            <Call 0x25598 0x10380>                                              {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2559e-255a2 StackAdj>                       Δ+20               {}
            <MI 255a2  TST.B   (A6-0x2)>                                        {}
            <MI 255a4  BEQ     0x255f0>                                         {}
        <POP 255a6-255f0 Naked>                              Σ0         ↓
            <Pointer.fp 0x255a6 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x255a8 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <MI 255ae  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x255b2 0x22de6>                                              {[4, '(A6+0x8)']}
            <POP 255b6-255b7 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x255b7 [26] @>                            Δ-26               {[«26""»]}
            <POP 255c8-255ca StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x255ca 25>                                                    {[«26""»]|[-4-]|[$$Not a command or macro :_]}
            <POP 255da-255dc StackAdj>                       Δ-4                {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
            <MI 255dc  MOVE.L  (A6+0xc),(A7)>                                   {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
            <Call 0x255e0 0x102d0>                                              {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
                StringCat2(a, b : String) : String
            <POP 255e6-255e8 StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x255e8 0x22e28>                                              {[«26""»]|[-4-]}
            <POP 255ec-255f0 StackAdj>                       Δ+30               {}
        <POP 255f0-255f8 Naked>                              Σ0         ↓ ←0x2553a
            <MI 255f0  MOVE.L  0x2797e,(A6-0x6)>                                {}
        <POP 255f8-25610 Naked>                              Σ0         ↓ →0x25624 ←0x25624
            <MI 255f8  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Pointer.fp 0x255fa <LVAR -0x010 @ 4(rw)>>       Δ-4                {[4, '(A6-0xc)']|[@@-16]}
            <Pointer.fp 0x255fc <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
            <Call 0x25600 0x1043c>                                              {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 25606-2560a StackAdj>                       Δ+12               {}
            <MI 2560a  MOVEA.L (A6-0x10),A0>                                    {}
            <MI 2560c  TST.W   (A0)>                                            {}
            <MI 2560e  BEQ     0x25624>                                         {}
        <POP 25610-25624 Naked>                              Σ0         ↓
            <MI 25610  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x25612 0x23084>                                              {[4, '(A6-0x10)']}
            <POP 25616-25618 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x25618 <LVAR -0x006 @ 4(w)>>        Δ-4                {[@@-6]}
            <MI 2561c  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[@@-6]|[4, '(A6-0x10)']}
            <Call 0x2561e 0x2340e>                                              {[@@-6]|[4, '(A6-0x10)']}
            <POP 25622-25624 StackAdj>                       Δ+8                {}
        <POP 25624-2562a Naked>                              Σ0         ↓ →0x255f8 ←0x255f8
            <MI 25624  TST.B   (A6-0x8)>                                        {}
            <MI 25628  BEQ     0x255f8>                                         {}
        <POP 2562a-2564a Naked>                              Σ0         ↓
            <MI 2562a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2562c 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x2562e 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x25632 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]}
            <Pointer.fp 0x25634 <LVAR -0x00c @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
            <Call 0x25636 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2563c-25640 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x25640 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x25642 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 25648-2564a StackAdj>                       Δ+4                {}
        <POP 2564a-25652 Epilogue>                           Σ0         

0x25652


@ 25652
        <LVAR  0x014 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 25652-25692 Body>                                              
        <POP 25652-25668 Prologue>                           Σ0         ↓
        <POP 25668-2568a Naked>                              Σ0         ↓
            <MI 25668  MOVE.L  (A6+0xc),D0>                                     {}
            <MI 2566c  ADD.L   (A6+0x8),D0>                                     {}
            <MI 25670  SUBQ.L  #0x1,D0>                                         {}
            <MI 25672  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x25674 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 2567e  LEA.L   0x26976,A0>                                      {}
            <MI 25684  MOVE.B  (A0+D0.L+#0x8),(A6+0x14)>                        {}
        <POP 2568a-25692 Epilogue>                           Σ0         

0x25692


@ 25692
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 25692-2570e Body>                                              
        <POP 25692-256a8 Prologue>                           Σ0         ↓
        <POP 256a8-256d0 Naked>                              Σ0         ↓ →0x25700
            <POP 256a8-256aa StackAdj>                       Δ-4                {[-4-]}
            <MI 256aa  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 256ae  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x256b2 0x23aea>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 256b6-256b8 StackAdj>                       Δ+8                {[-4-]}
            <Pointer.fp 0x256b8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Pointer.fp 0x256bc <LVAR -0x008 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]|[@@-8]}
            <Call 0x256c0 0x102ec>                                              {[-4-]|[@@-4]|[@@-8]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 256c6-256ca StackAdj>                       Δ+12               {}
            <MI 256ca  TST.B   (A6-0x4)>                                        {}
            <MI 256ce  BNE     0x25700>                                         {}
        <POP 256d0-25700 Naked>                              Σ0         ↓
            <Blob 0x256d0 [24] @>                            Δ-24               {[«24""»]}
            <POP 256e2-256e4 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x256e4 23>                                                    {[«24""»]|[$$Illegal marker argument]}
            <Call 0x256f8 0x22e28>                                              {[«24""»]|[$$Illegal marker argument]}
            <POP 256fc-25700 StackAdj>                       Δ+28               {}
        <POP 25700-25706 Naked>                              Σ0         ↓ ←0x256a8
            <MI 25700  MOVE.L  (A6-0x8),(A6+0x10)>                              {}
        <POP 25706-2570e Epilogue>                           Σ0         

0x2570e


@ 2570e
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(w)>
        <LVAR -0x020 4(rw)>
    <POP 2570e-2583a Body>                                              
        <POP 2570e-25724 Prologue>                           Σ0         ↓
        <POP 25724-25734 RegCacheLoad>                       Σ0         ↓
        <POP 25734-2574e Naked>                              Σ0 Δ-4     ↓
            <MI 25734  MOVEQ.L #0x00,D7>                                        {}
            <MI 25736  MOVE.L  (A6+0x14),(A6-0x20)>                             {}
            <MI 2573a  MOVE.L  0x2797e,D0>                                      {}
            <MI 25740  SUB.L   (A6+0x14),D0>                                    {}
            <MI 25744  MOVE.L  D0,(A6-0x14)>                                    {}
            <MI 25746  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 2574a  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 2574e-25752 Naked>                              Σ-4        ↓ →0x2577e ←0x2577a
            <MI 2574e  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 25750  BGT     0x2577e>                                         {[-4-]}
        <POP 25752-25778 Naked>                              Σ-4        ↓ →0x2577a
            <POP 25752-25754 StackAdj>                       Δ-8                {[-12-]}
            <MI 25754  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 25758  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x2575a 0x23a88>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 2575e-25760 StackAdj>                       Δ+8                {[-12-]}
            <MI 25760  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 25762  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 25764  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 25766  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x25768 0x23a50>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 2576c-2576e StackAdj>                       Δ+8                {[-8-]}
            <MI 2576e  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 25770  ADD.L   D6,D7>                                           {[-4-]}
            <MI 25772  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 25776  BGE     0x2577a>                                         {[-4-]}
        <POP 25778-2577a Naked>                              Σ-4        ↓
            <MI 25778  ADDQ.L  #0x1,D7>                                         {[-4-]}
        <POP 2577a-2577e Naked>                              Σ-4        ↓ →0x2574e ←0x25752
            <MI 2577a  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2577c  BVC     0x2574e>                                         {[-4-]}
        <POP 2577e-2578c Naked>                              Σ-4 Δ+4    ↓ →0x25798 ←0x2574e
            <POP 2577e-25780 StackAdj>                       Δ+4                {}
            <MI 25780  MOVE.L  (A6-0x20),D0>                                    {}
            <MI 25782  ADD.L   (A6-0x14),D0>                                    {}
            <MI 25784  MOVE.L  D0,(A6-0x18)>                                    {}
            <MI 25788  CMP.L   (A6-0x14),D7>                                    {}
            <MI 2578a  BEQ     0x25798>                                         {}
        <POP 2578c-25798 Naked>                              Σ0         ↓
            <MI 2578c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2578e  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, 'D0']|[4, '(A6-0x14)']}
            <MI 25790  SUB.L   D7,(A7)>                                         {[4, 'D0']|[-4-]}
            <Call 0x25792 0x23384>                                              {[4, 'D0']|[-4-]}
            <POP 25796-25798 StackAdj>                       Δ+8                {}
        <POP 25798-257a0 Naked>                              Σ0 Δ-4     ↓ ←0x2577e
            <MI 25798  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 2579c  MOVE.L  (A6+0x10),D5>                                    {[4, '(A6+0xc)']}
        <POP 257a0-257a8 Naked>                              Σ-4        ↓ →0x25830 ←0x25828
            <MI 257a0  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 257a2  BGT     0x25830>                                         {[-4-]}
        <POP 257a8-257ca Naked>                              Σ-4 Δ-4    ↓
            <POP 257a8-257aa StackAdj>                       Δ-8                {[-12-]}
            <MI 257aa  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <MI 257ae  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <Call 0x257b0 0x23a88>                                              {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
            <POP 257b4-257b6 StackAdj>                       Δ+8                {[-12-]}
            <MI 257b6  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-8-]}
            <MI 257b8  MOVE.L  (A7),(A6-0xc)>                                   {[-8-]}
            <MI 257ba  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0xc)']}
            <MI 257bc  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x257be 0x23a50>                                              {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <POP 257c2-257c4 StackAdj>                       Δ+8                {[-8-]}
            <MI 257c4  MOVE.L  (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 257c6  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 257c8  MOVEQ.L #0x01,D0>                                        {[-4-]|[4, 'D6']}
        <POP 257ca-257ce Naked>                              Σ-8        ↓ →0x257fe ←0x257ce
            <MI 257ca  CMP.L   (A7),D0>                                         {[-8-]}
            <MI 257cc  BGT     0x257fe>                                         {[-8-]}
        <POP 257ce-257fe Naked>                              Σ-8        ↓ →0x257ca
            <MI 257ce  MOVE.L  (A6-0x20),D1>                                    {[-8-]}
            <MI 257d0  ADD.L   D0,D1>                                           {[-8-]}
            <MI 257d2  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <MI 257d4  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x257d6 LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-8-]}
            <MI 257e0  LEA.L   0x26976,A0>                                      {[-8-]}
            <POP 257e6-257e8 StackAdj>                       Δ-2                {[-10-]}
            <MI 257e8  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0xc)']}
            <MI 257ea  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <MI 257ec  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <Call 0x257ee 0x25652>                                              {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
            <POP 257f2-257f6 StackAdj>                       Δ+12               {[-10-]}
            <MI 257f6  MOVE.B  (A7)+,(A0+D1.L+#0x8)>         Δ+2                {[-8-]}
            <MI 257fa  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 257fc  BVC     0x257ca>                                         {[-8-]}
        <POP 257fe-25806 Naked>                              Σ-8 Δ+4    ↓ →0x25828 ←0x257ca
            <POP 257fe-25800 StackAdj>                       Δ+4                {[-4-]}
            <MI 25800  CMP.L   (A6+0xc),D5>                                     {[-4-]}
            <MI 25804  BGE     0x25828>                                         {[-4-]}
        <POP 25806-25828 Naked>                              Σ-4        ↓
            <MI 25806  MOVE.L  (A6-0x20),D0>                                    {[-4-]}
            <MI 25808  ADD.L   D6,D0>                                           {[-4-]}
            <MI 2580a  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 2580c  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x2580e LimitCheck 0x0 ≤ D1 ≤ 0xfff>                           {[-4-]}
            <MI 25818  LEA.L   0x26976,A0>                                      {[-4-]}
            <MI 2581e  MOVE.B  #0x2c,(A0+D1.L+#0x8)>                            {[-4-]}
            <MI 25824  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 25826  MOVE.L  D0,(A6-0x20)>                                    {[-4-]}
        <POP 25828-25830 Naked>                              Σ-4        ↓ →0x257a0 ←0x257fe
            <MI 25828  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 2582a  BVC     0x257a0>                                         {[-4-]}
        <POP 25830-25832 Naked>                              Σ-4 Δ+4    ↓ ←0x257a0
            <POP 25830-25832 StackAdj>                       Δ+4                {}
        <POP 25832-2583a Epilogue>                           Σ0         

0x2583a


@ 2583a
        <LVAR  0x018 4(rw)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x018 4(w)>
    <POP 2583a-25934 Body>                                   Δ-12       
        <POP 2583a-25850 Prologue>                           Σ0         ↓
        <POP 25850-25866 RegCacheLoad>                       Σ0         ↓
        <POP 25866-25890 Naked>                              Σ0 Δ-4     ↓
            <POP 25866-25868 StackAdj>                       Δ-4                {[-4-]}
            <MI 25868  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 2586a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x2586c 0x23a50>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 25870-25872 StackAdj>                       Δ+8                {[-4-]}
            <MI 25872  MOVE.L  (A7),(A6-0xc)>                                   {[-4-]}
            <MI 25874  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 25878  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2587c 0x23a50>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 25880-25882 StackAdj>                       Δ+8                {[-4-]}
            <MI 25882  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 25884  ADDQ.L  #0x1,(A6-0x8)>                                   {}
            <MI 25886  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 25888  SUB.L   (A6-0x8),D0>                                     {}
            <MI 2588a  ADDQ.L  #0x1,D0>                                         {}
            <MI 2588c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2588e  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 25890-25898 Naked>                              Σ-4        ↓ →0x25926 ←0x2591c
            <MI 25890  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 25892  BGT     0x25926>                                         {[-4-]}
        <POP 25898-258a4 Naked>                              Σ-4 Δ-8    ↓
            <MI 25898  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 2589c  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 2589e  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 258a0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 258a2  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 258a4-258a8 Naked>                              Σ-12       ↓ →0x258ea ←0x258e4
            <MI 258a4  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 258a6  BGT     0x258ea>                                         {[-12-]}
        <POP 258a8-258b0 Naked>                              Σ-12       ↓ →0x258b4
            <MI 258a8  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 258ae  BNE     0x258b4>                                         {[-12-]}
        <POP 258b0-258b4 Naked>                              Σ-12       →0x258c8
            <MI 258b0  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 258b2  BRA     0x258c8>                                         {[-12-]}
        <POP 258b4-258c8 Naked>                              Σ-12       ↓ ←0x258a8
            <POP 258b4-258b6 StackAdj>                       Δ-2                {[-14-]}
            <MI 258b6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']}
            <MI 258ba  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 258be  MOVE.L  D5,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
            <MI 258c0  SUBQ.L  #0x1,(A7)>                                       {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <Call 0x258c2 0x25652>                                              {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <POP 258c4-258c6 StackAdj>                       Δ+12               {[-14-]}
            <MI 258c6  MOVE.B  (A7)+,D7>                     Δ+2                {[-12-]}
        <POP 258c8-258e0 Naked>                              Σ-12       ↓ →0x258e4 ←0x258b0
            <POP 258c8-258ca StackAdj>                       Δ-2                {[-14-]}
            <MI 258ca  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']}
            <MI 258cc  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 258ce  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 258d2  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 258d4  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 258d6  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x258d8 0x25652>                                              {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 258da-258dc StackAdj>                       Δ+12               {[-14-]}
            <MI 258dc  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 258de  BEQ     0x258e4>                                         {[-12-]}
        <POP 258e0-258e4 Naked>                              Σ-12 Δ+4   →0x258ec
            <POP 258e0-258e2 StackAdj>                       Δ+4                {[-8-]}
            <MI 258e2  BRA     0x258ec>                                         {[-8-]}
        <POP 258e4-258ea Naked>                              Σ-12       ↓ →0x258a4 ←0x258c8
            <MI 258e4  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 258e6  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 258e8  BVC     0x258a4>                                         {[-12-]}
        <POP 258ea-258ec Naked>                              Σ-12 Δ+4   ↓ ←0x258a4
            <POP 258ea-258ec StackAdj>                       Δ+4                {[-8-]}
        <POP 258ec-258f0 Naked>                              Σ-8        ↓ →0x2591c ←0x258e0
            <MI 258ec  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 258ee  BNE     0x2591c>                                         {[-8-]}
        <POP 258f0-258fc Naked>                              Σ-8        ↓ →0x258fe
            <MI 258f0  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 258f2  MOVE.L  D0,(A6+0x18)>                                    {[-8-]}
            <MI 258f6  ADD.L   (A6-0x8),D0>                                     {[-8-]}
            <MI 258f8  CMP.L   (A6-0xc),D0>                                     {[-8-]}
            <MI 258fa  BLT     0x258fe>                                         {[-8-]}
        <POP 258fc-258fe Naked>                              Σ-8        →0x25918
            <MI 258fc  BRA     0x25918>                                         {[-8-]}
        <POP 258fe-25912 Naked>                              Σ-8        ↓ →0x25918 ←0x258f0
            <POP 258fe-25900 StackAdj>                       Δ-2                {[-10-]}
            <MI 25900  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 25902  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 25904  MOVE.L  D0,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <Call 0x25906 0x25652>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
            <POP 25908-2590a StackAdj>                       Δ+12               {[-10-]}
            <MI 2590a  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 2590c  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 25910  BEQ     0x25918>                                         {[-8-]}
        <POP 25912-25918 Naked>                              Σ-8        ↓ →0x2591c
            <MI 25912  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 25916  BNE     0x2591c>                                         {[-8-]}
        <POP 25918-2591c Naked>                              Σ-8 Δ+8    →0x2592c ←0x258fc ←0x258fe
            <POP 25918-2591a StackAdj>                       Δ+8                {}
            <MI 2591a  BRA     0x2592c>                                         {}
        <POP 2591c-25926 Naked>                              Σ-8 Δ+4    ↓ →0x25890 ←0x258ec ←0x25912
            <MI 2591c  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 2591e  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 25920  BVC     0x25890>                                         {[-4-]}
        <POP 25926-2592c Naked>                              Σ-4 Δ+4    ↓ ←0x25890
            <POP 25926-25928 StackAdj>                       Δ+4                {}
            <MI 25928  CLR.L   (A6+0x18)>                                       {}
        <POP 2592c-25934 Epilogue>                           Σ0         ←0x25918

0x25934


@ 25934
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 25934-259c8 Body>                                   Δ-4        
        <POP 25934-2594a Prologue>                           Σ0         ↓
        <POP 2594a-25954 RegCacheLoad>                       Σ0         ↓
        <POP 25954-2596e Naked>                              Σ0         ↓ →0x259c0
            <POP 25954-25956 StackAdj>                       Δ-4                {[-4-]}
            <MI 25956  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 25958  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 2595a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 2595e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x25962 0x2583a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 25966-2596a StackAdj>                       Δ+16               {[-4-]}
            <MI 2596a  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 2596c  BLE     0x259c0>                                         {}
        <POP 2596e-2598e Naked>                              Σ0 Δ-4     ↓
            <MI 2596e  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <Const 0x25972 0x2f.2>                           Δ-2                {[4, '(A6+0x18)']|[#47]}
            <Call 0x25974 0x102c0>                                              {[4, '(A6+0x18)']|[#47]}
                AppendChar(MOD b : String; a : char)
            <POP 2597a-2597c StackAdj>                       Δ+6                {}
            <MI 2597c  MOVE.L  D5,D0>                                           {}
            <MI 2597e  ADDQ.L  #0x1,D0>                                         {}
            <POP 25980-25982 StackAdj>                       Δ-4                {[-4-]}
            <MI 25982  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 25984  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x25986 0x23a50>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 2598a-2598c StackAdj>                       Δ+8                {[-4-]}
            <MI 2598c  MOVE.L  D0,D6>                                           {[-4-]}
        <POP 2598e-25992 Naked>                              Σ-4        ↓ →0x259be ←0x259ac
            <MI 2598e  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 25990  BGT     0x259be>                                         {[-4-]}
        <POP 25992-259a8 Naked>                              Σ-4        ↓ →0x259ac
            <POP 25992-25994 StackAdj>                       Δ-2                {[-6-]}
            <MI 25994  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 25996  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 25998  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x2599a 0x25652>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 2599e-259a2 StackAdj>                       Δ+12               {[-6-]}
            <MI 259a2  MOVE.B  (A7)+,D7>                     Δ+2                {[-4-]}
            <MI 259a4  CMP.B   #0x2f,D7>                                        {[-4-]}
            <MI 259a6  BNE     0x259ac>                                         {[-4-]}
        <POP 259a8-259ac Naked>                              Σ-4 Δ+4    →0x259c0
            <POP 259a8-259aa StackAdj>                       Δ+4                {}
            <MI 259aa  BRA     0x259c0>                                         {}
        <POP 259ac-259be Naked>                              Σ-4        ↓ →0x2598e ←0x25992
            <MI 259ac  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']}
            <MI 259b0  MOVE.B  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x259b2 0x102c0>                                              {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 259b8-259ba StackAdj>                       Δ+6                {[-4-]}
            <MI 259ba  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 259bc  BVC     0x2598e>                                         {[-4-]}
        <POP 259be-259c0 Naked>                              Σ-4 Δ+4    ↓ ←0x2598e
            <POP 259be-259c0 StackAdj>                       Δ+4                {}
        <POP 259c0-259c8 Epilogue>                           Σ0         ←0x25954 ←0x259a8

0x259c8


@ 259c8
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 259c8-25a7e Body>                                   Δ-8        
        <POP 259c8-259de Prologue>                           Σ0         ↓
        <POP 259de-259ec RegCacheLoad>                       Σ0         ↓
        <POP 259ec-25a08 Naked>                              Σ0         ↓ →0x25a76
            <POP 259ec-259ee StackAdj>                       Δ-4                {[-4-]}
            <MI 259ee  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 259f0  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 259f2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 259f6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x259fa 0x2583a>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 259fe-25a02 StackAdj>                       Δ+16               {[-4-]}
            <MI 25a02  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 25a06  BLE     0x25a76>                                         {}
        <POP 25a08-25a1c Naked>                              Σ0 Δ-4     ↓
            <POP 25a08-25a0a StackAdj>                       Δ-4                {[-4-]}
            <MI 25a0a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <MI 25a0c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Call 0x25a0e 0x23a50>                                              {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 25a12-25a14 StackAdj>                       Δ+8                {[-4-]}
            <MI 25a14  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 25a16  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 25a18  MOVE.L  (A6-0x14),D5>                                    {[4, '(A6-0x6)']}
        <POP 25a1c-25a20 Naked>                              Σ-4        ↓ →0x25a74 ←0x25a70
            <MI 25a1c  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 25a1e  BGT     0x25a74>                                         {[-4-]}
        <POP 25a20-25a36 Naked>                              Σ-4        ↓ →0x25a70
            <POP 25a20-25a22 StackAdj>                       Δ-2                {[-6-]}
            <MI 25a22  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']}
            <MI 25a24  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 25a26  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <Call 0x25a28 0x25652>                                              {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
            <POP 25a2c-25a2e StackAdj>                       Δ+12               {[-6-]}
            <MI 25a2e  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 25a30  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 25a34  BNE     0x25a70>                                         {[-4-]}
        <POP 25a36-25a3e Naked>                              Σ-4 Δ-4    ↓
            <MI 25a36  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 25a38  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 25a3a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 25a3c  MOVE.L  D0,D6>                                           {[-4-]|[4, '(A6-0x6)']}
        <POP 25a3e-25a42 Naked>                              Σ-8        ↓ →0x25a6e ←0x25a5c
            <MI 25a3e  CMP.L   (A7),D6>                                         {[-8-]}
            <MI 25a40  BGT     0x25a6e>                                         {[-8-]}
        <POP 25a42-25a58 Naked>                              Σ-8        ↓ →0x25a5c
            <POP 25a42-25a44 StackAdj>                       Δ-2                {[-10-]}
            <MI 25a44  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']}
            <MI 25a46  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 25a48  MOVE.L  D6,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <Call 0x25a4a 0x25652>                                              {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
            <POP 25a4e-25a50 StackAdj>                       Δ+12               {[-10-]}
            <MI 25a50  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 25a52  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 25a56  BNE     0x25a5c>                                         {[-8-]}
        <POP 25a58-25a5c Naked>                              Σ-8 Δ+8    →0x25a76
            <POP 25a58-25a5a StackAdj>                       Δ+8                {}
            <MI 25a5a  BRA     0x25a76>                                         {}
        <POP 25a5c-25a6e Naked>                              Σ-8        ↓ →0x25a3e ←0x25a42
            <MI 25a5c  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 25a60  MOVE.B  D7,-(A7)>                     Δ-2                {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
            <Call 0x25a62 0x102c0>                                              {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 25a68-25a6a StackAdj>                       Δ+6                {[-8-]}
            <MI 25a6a  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 25a6c  BVC     0x25a3e>                                         {[-8-]}
        <POP 25a6e-25a70 Naked>                              Σ-8 Δ+4    ↓ ←0x25a3e
            <POP 25a6e-25a70 StackAdj>                       Δ+4                {[-4-]}
        <POP 25a70-25a74 Naked>                              Σ-4        ↓ →0x25a1c ←0x25a20
            <MI 25a70  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 25a72  BVC     0x25a1c>                                         {[-4-]}
        <POP 25a74-25a76 Naked>                              Σ-4 Δ+4    ↓ ←0x25a1c
            <POP 25a74-25a76 StackAdj>                       Δ+4                {}
        <POP 25a76-25a7e Epilogue>                           Σ0         ←0x259ec ←0x25a58

0x25a7e


@ 25a7e
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 25a7e-25b04 Body>                                   Δ-4        
        <POP 25a7e-25a94 Prologue>                           Σ0         ↓
        <POP 25a94-25a9e RegCacheLoad>                       Σ0         ↓
        <POP 25a9e-25ab0 Naked>                              Σ0 Δ-4     ↓
            <POP 25a9e-25aa0 StackAdj>                       Δ-4                {[-4-]}
            <MI 25aa0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 25aa2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x25aa4 0x23a50>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 25aa8-25aaa StackAdj>                       Δ+8                {[-4-]}
            <MI 25aaa  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 25aac  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <MI 25aae  MOVEQ.L #0x01,D6>                                        {[4, 'D5']}
        <POP 25ab0-25ab4 Naked>                              Σ-4        ↓ →0x25afa ←0x25af6
            <MI 25ab0  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 25ab2  BGT     0x25afa>                                         {[-4-]}
        <POP 25ab4-25aca Naked>                              Σ-4        ↓ →0x25af6
            <POP 25ab4-25ab6 StackAdj>                       Δ-2                {[-6-]}
            <MI 25ab6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 25ab8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 25aba  MOVE.L  D6,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x25abc 0x25652>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
            <POP 25ac0-25ac2 StackAdj>                       Δ+12               {[-6-]}
            <MI 25ac2  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 25ac4  CMPI.B  #0x2f,D0>                                        {[-4-]}
            <MI 25ac8  BNE     0x25af6>                                         {[-4-]}
        <POP 25aca-25ace Naked>                              Σ-4 Δ-4    ↓
            <MI 25aca  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 25acc  MOVE.L  D6,D7>                                           {[-4-]|[4, 'D5']}
        <POP 25ace-25ad2 Naked>                              Σ-8        ↓ →0x25af0 ←0x25ad2
            <MI 25ace  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 25ad0  BGT     0x25af0>                                         {[-8-]}
        <POP 25ad2-25af0 Naked>                              Σ-8        ↓ →0x25ace
            <MI 25ad2  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <POP 25ad6-25ad8 StackAdj>                       Δ-2                {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <MI 25ad8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
            <MI 25ada  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 25adc  MOVE.L  D7,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x25ade 0x25652>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 25ae2-25ae4 StackAdj>                       Δ+12               {[-8-]|[4, '(A6+0x10)']|[-2-]}
            <Call 0x25ae4 0x102c0>                                              {[-8-]|[4, '(A6+0x10)']|[-2-]}
                AppendChar(MOD b : String; a : char)
            <POP 25aea-25aec StackAdj>                       Δ+6                {[-8-]}
            <MI 25aec  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 25aee  BVC     0x25ace>                                         {[-8-]}
        <POP 25af0-25af6 Naked>                              Σ-8 Δ+8    →0x25afc ←0x25ace
            <POP 25af0-25af2 StackAdj>                       Δ+4                {[-4-]}
            <POP 25af2-25af4 StackAdj>                       Δ+4                {}
            <MI 25af4  BRA     0x25afc>                                         {}
        <POP 25af6-25afa Naked>                              Σ-4        ↓ →0x25ab0 ←0x25ab4
            <MI 25af6  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 25af8  BVC     0x25ab0>                                         {[-4-]}
        <POP 25afa-25afc Naked>                              Σ-4 Δ+4    ↓ ←0x25ab0
            <POP 25afa-25afc StackAdj>                       Δ+4                {}
        <POP 25afc-25b04 Epilogue>                           Σ0         ←0x25af0

0x25b04


@ 25b04
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 25b04-25b74 Body>                                   Δ-4        
        <POP 25b04-25b1a Prologue>                           Σ0         ↓
        <POP 25b1a-25b32 Naked>                              Σ0 Δ-4     ↓
            <MI 25b1a  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 25b1e  CLR.W   (A0)>                                            {}
            <POP 25b20-25b22 StackAdj>                       Δ-4                {[-4-]}
            <MI 25b22  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 25b26  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x25b2a 0x23a50>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 25b2e-25b30 StackAdj>                       Δ+8                {[-4-]}
            <MI 25b30  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 25b32-25b36 Naked>                              Σ-4        ↓ →0x25b6a ←0x25b66
            <MI 25b32  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 25b34  BGT     0x25b6a>                                         {[-4-]}
        <POP 25b36-25b52 Naked>                              Σ-4        ↓ →0x25b62
            <POP 25b36-25b38 StackAdj>                       Δ-2                {[-6-]}
            <MI 25b38  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']}
            <MI 25b3c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 25b40  MOVE.L  D7,-(A7)>                     Δ-4                {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <Call 0x25b42 0x25652>                                              {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
            <POP 25b46-25b4a StackAdj>                       Δ+12               {[-6-]}
            <MI 25b4a  MOVE.B  (A7)+,D6>                     Δ+2                {[-4-]}
            <MI 25b4c  CMPI.B  #0x2f,D6>                                        {[-4-]}
            <MI 25b50  BEQ     0x25b62>                                         {[-4-]}
        <POP 25b52-25b62 Naked>                              Σ-4        →0x25b66
            <MI 25b52  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 25b56  MOVE.B  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
            <Call 0x25b58 0x102c0>                                              {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 25b5e-25b60 StackAdj>                       Δ+6                {[-4-]}
            <MI 25b60  BRA     0x25b66>                                         {[-4-]}
        <POP 25b62-25b66 Naked>                              Σ-4 Δ+4    →0x25b6c ←0x25b36
            <POP 25b62-25b64 StackAdj>                       Δ+4                {}
            <MI 25b64  BRA     0x25b6c>                                         {}
        <POP 25b66-25b6a Naked>                              Σ-4        ↓ →0x25b32 ←0x25b52
            <MI 25b66  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 25b68  BVC     0x25b32>                                         {[-4-]}
        <POP 25b6a-25b6c Naked>                              Σ-4 Δ+4    ↓ ←0x25b32
            <POP 25b6a-25b6c StackAdj>                       Δ+4                {}
        <POP 25b6c-25b74 Epilogue>                           Σ0         ←0x25b62

0x25b74


@ 25b74
    <POP 25b74-25bbc Body>                                              
        <POP 25b74-25b8a Prologue>                           Σ0         ↓
        <POP 25b8a-25bb4 Naked>                              Σ0         ↓
            <Blob 0x25b8a [34] @>                            Δ-34               {[«34""»]}
            <POP 25b96-25b98 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x25b98 34>                                                    {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <Call 0x25bac 0x22e28>                                              {[«34""»]|[$$Switch exclusion is unimplemented.]}
            <POP 25bb0-25bb4 StackAdj>                       Δ+38               {}
        <POP 25bb4-25bbc Epilogue>                           Σ0         

0x25bbc


@ 25bbc
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
    <POP 25bbc-25d00 Body>                                              
        <POP 25bbc-25bd2 Prologue>                           Σ0         ↓
        <POP 25bd2-25be8 RegCacheLoad>                       Σ0         ↓
        <POP 25be8-25bf6 Naked>                              Σ0         ↓ →0x25c00
            <MI 25be8  MOVE.L  0x2797e,(A6-0x6)>                                {}
            <POP 25bec-25bee StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25bee 0x22ec4>                                              {[-2-]}
            <MI 25bf0  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 25bf2  CMP.B   #0x25,D7>                                        {}
            <MI 25bf4  BNE     0x25c00>                                         {}
        <POP 25bf6-25c00 Naked>                              Σ0         →0x25ce8
            <MI 25bf6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25bf8  CLR.L   (A0)>                                            {}
            <MI 25bfa  BRA     0x25ce8>                                         {}
        <POP 25c00-25c04 Naked>                              Σ0         ↓ →0x25c12 ←0x25be8
            <MI 25c00  CMP.B   #0x2d,D7>                                        {}
            <MI 25c02  BNE     0x25c12>                                         {}
        <POP 25c04-25c12 Naked>                              Σ0         →0x25ce8
            <MI 25c04  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25c06  MOVE.L  #0x1,(A0)>                                       {}
            <MI 25c0c  BRA     0x25ce8>                                         {}
        <POP 25c12-25c18 Naked>                              Σ0         ↓ →0x25c26 ←0x25c00
            <MI 25c12  CMPI.B  #0x2f,D7>                                        {}
            <MI 25c16  BNE     0x25c26>                                         {}
        <POP 25c18-25c26 Naked>                              Σ0         →0x25ce8
            <MI 25c18  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25c1a  MOVE.L  #0x4,(A0)>                                       {}
            <MI 25c20  BRA     0x25ce8>                                         {}
        <POP 25c26-25c2c Naked>                              Σ0         ↓ →0x25c3a ←0x25c12
            <MI 25c26  CMPI.B  #0x3d,D7>                                        {}
            <MI 25c2a  BNE     0x25c3a>                                         {}
        <POP 25c2c-25c3a Naked>                              Σ0         →0x25ce8
            <MI 25c2c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25c2e  MOVE.L  #0x5,(A0)>                                       {}
            <MI 25c34  BRA     0x25ce8>                                         {}
        <POP 25c3a-25c40 Naked>                              Σ0         ↓ →0x25c4e ←0x25c26
            <MI 25c3a  CMPI.B  #0x5c,D7>                                        {}
            <MI 25c3e  BNE     0x25c4e>                                         {}
        <POP 25c40-25c4e Naked>                              Σ0         →0x25ce8
            <MI 25c40  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25c42  MOVE.L  #0x6,(A0)>                                       {}
            <MI 25c48  BRA     0x25ce8>                                         {}
        <POP 25c4e-25c52 Naked>                              Σ0         ↓ →0x25c7e ←0x25c3a
            <MI 25c4e  TST.B   D7>                                              {}
            <MI 25c50  BNE     0x25c7e>                                         {}
        <POP 25c52-25c7e Naked>                              Σ0         →0x25ce8
            <Blob 0x25c52 [24] @>                            Δ-24               {[«24""»]}
            <POP 25c5e-25c60 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x25c60 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x25c74 0x22e28>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 25c78-25c7c StackAdj>                       Δ+28               {}
            <MI 25c7c  BRA     0x25ce8>                                         {}
        <POP 25c7e-25c82 Naked>                              Σ0         ↓ →0x25cae ←0x25c4e
            <MI 25c7e  CMP.B   #0x30,D7>                                        {}
            <MI 25c80  BCS     0x25cae>                                         {}
        <POP 25c82-25c86 Naked>                              Σ0         ↓ →0x25cae
            <MI 25c82  CMP.B   #0x39,D7>                                        {}
            <MI 25c84  BHI     0x25cae>                                         {}
        <POP 25c86-25c8e Naked>                              Σ0         ↓
            <MI 25c86  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25c88  MOVE.L  #0x2,(A0)>                                       {}
        <POP 25c8e-25c9a Naked>                              Σ0         ↓ →0x25ca4 ←0x25ca8
            <POP 25c8e-25c90 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25c90 0x22e86>                                              {[-2-]}
            <MI 25c94  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 25c96  CMP.B   #0x30,D7>                                        {}
            <MI 25c98  BCS     0x25ca4>                                         {}
        <POP 25c9a-25c9e Naked>                              Σ0         ↓ →0x25ca4
            <MI 25c9a  CMP.B   #0x39,D7>                                        {}
            <MI 25c9c  BHI     0x25ca4>                                         {}
        <POP 25c9e-25ca4 Naked>                              Σ0         ↓
            <POP 25c9e-25ca0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25ca0 0x22ec4>                                              {[-2-]}
            <MI 25ca2  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 25ca4-25ca8 Naked>                              Σ0         ↓ →0x25cac ←0x25c8e ←0x25c9a
            <MI 25ca4  CMP.B   #0x30,D7>                                        {}
            <MI 25ca6  BCS     0x25cac>                                         {}
        <POP 25ca8-25cac Naked>                              Σ0         ↓ →0x25c8e
            <MI 25ca8  CMP.B   #0x39,D7>                                        {}
            <MI 25caa  BLS     0x25c8e>                                         {}
        <POP 25cac-25cae Naked>                              Σ0         →0x25ce8 ←0x25ca4
            <MI 25cac  BRA     0x25ce8>                                         {}
        <POP 25cae-25cb8 Naked>                              Σ0         ↓ ←0x25c7e ←0x25c82
            <MI 25cae  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 25cb0  MOVE.L  #0x3,(A0)>                                       {}
            <MI 25cb6  MOVEQ.L #0x00,D5>                                        {}
        <POP 25cb8-25cc4 Naked>                              Σ0         ↓ →0x25cda ←0x25ce4
            <POP 25cb8-25cba StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25cba 0x22e86>                                              {[-2-]}
            <MI 25cbe  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <MI 25cc0  CMP.B   #0x25,D7>                                        {}
            <MI 25cc2  BEQ     0x25cda>                                         {}
        <POP 25cc4-25cc8 Naked>                              Σ0         ↓ →0x25cda
            <MI 25cc4  CMP.B   #0x2d,D7>                                        {}
            <MI 25cc6  BEQ     0x25cda>                                         {}
        <POP 25cc8-25cce Naked>                              Σ0         ↓ →0x25cda
            <MI 25cc8  CMPI.B  #0x2f,D7>                                        {}
            <MI 25ccc  BEQ     0x25cda>                                         {}
        <POP 25cce-25cd4 Naked>                              Σ0         ↓ →0x25cda
            <MI 25cce  CMPI.B  #0x3d,D7>                                        {}
            <MI 25cd2  BEQ     0x25cda>                                         {}
        <POP 25cd4-25cda Naked>                              Σ0         ↓ →0x25cde
            <MI 25cd4  CMPI.B  #0x5c,D7>                                        {}
            <MI 25cd8  BNE     0x25cde>                                         {}
        <POP 25cda-25cde Naked>                              Σ0         →0x25ce4 ←0x25cb8 ←0x25cc4 ←0x25cc8 ←0x25cce
            <MI 25cda  MOVEQ.L #0x01,D5>                                        {}
            <MI 25cdc  BRA     0x25ce4>                                         {}
        <POP 25cde-25ce4 Naked>                              Σ0         ↓ ←0x25cd4
            <POP 25cde-25ce0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x25ce0 0x22ec4>                                              {[-2-]}
            <MI 25ce2  MOVE.B  (A7)+,D6>                     Δ+2                {}
        <POP 25ce4-25ce8 Naked>                              Σ0         ↓ →0x25cb8 ←0x25cda
            <MI 25ce4  TST.B   D5>                                              {}
            <MI 25ce6  BEQ     0x25cb8>                                         {}
        <POP 25ce8-25cf8 Naked>                              Σ0         ↓ ←0x25bf6 ←0x25c04 ←0x25c18 ←0x25c2c ←0x25c40 ←0x25c52 ←0x25cac
            <MI 25ce8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 25cec  MOVE.L  (A6-0x6),(A0)>                                   {}
            <MI 25cf0  MOVE.L  0x2797e,(A0+0x4)>                                {}
            <MI 25cf4  SUBQ.L  #0x1,(A0+0x4)>                                   {}
        <POP 25cf8-25d00 Epilogue>                           Σ0         

0x25d00


@ 25d00
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 25d00-25d86 Body>                                              
        <POP 25d00-25d16 Prologue>                           Σ0         ↓
        <POP 25d16-25d1a RegCacheLoad>                       Σ0         ↓
        <POP 25d1a-25d34 Naked>                              Σ0 Δ-4     ↓ →0x25d40
            <MI 25d1a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 25d1e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 25d20  MOVE.L  0x2797e,D6>                                      {[4, 'A0']}
            <MI 25d26  SUB.L   (A6+0xc),D6>                                     {[4, 'A0']}
            <MI 25d28  MOVE.L  (A6+0xc),D5>                                     {[4, 'A0']}
            <MI 25d2a  ADD.L   D6,D5>                                           {[4, 'A0']}
            <MI 25d2c  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 25d2e  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 25d30  CMP.L   D6,D0>                                           {[4, 'A0']}
            <MI 25d32  BEQ     0x25d40>                                         {[4, 'A0']}
        <POP 25d34-25d40 Naked>                              Σ-4        ↓
            <MI 25d34  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 25d36  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']|[4, 'D6']}
            <MI 25d38  SUB.L   D0,(A7)>                                         {[-4-]|[4, 'D5']|[-4-]}
            <Call 0x25d3a 0x23384>                                              {[-4-]|[4, 'D5']|[-4-]}
            <POP 25d3e-25d40 StackAdj>                       Δ+8                {[-4-]}
        <POP 25d40-25d44 Naked>                              Σ-4 Δ-4    ↓ ←0x25d1a
            <MI 25d40  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 25d42  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 25d44-25d48 Naked>                              Σ-8        ↓ →0x25d7c ←0x25d48
            <MI 25d44  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 25d46  BGT     0x25d7c>                                         {[-8-]}
        <POP 25d48-25d7c Naked>                              Σ-8        ↓ →0x25d44
            <MI 25d48  MOVE.L  (A6+0xc),D0>                                     {[-8-]}
            <MI 25d4a  ADD.L   D7,D0>                                           {[-8-]}
            <MI 25d4c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 25d4e  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x25d50 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {[-8-]}
            <MI 25d5a  LEA.L   0x26976,A0>                                      {[-8-]}
            <MI 25d60  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 25d62  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x25d64 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 25d6e  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 25d72  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x8)>                   {[-8-]}
            <MI 25d78  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 25d7a  BVC     0x25d44>                                         {[-8-]}
        <POP 25d7c-25d7e Naked>                              Σ-8 Δ+8    ↓ ←0x25d44
            <POP 25d7c-25d7e StackAdj>                       Δ+8                {}
        <POP 25d7e-25d86 Epilogue>                           Σ0         

0x25d86


@ 25d86
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 4(r)>
        <LVAR -0x014 @ 4(r)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
        <LVAR -0x034 4(rw)>
    <POP 25d86-25fe8 Body>                                   Δ+56       
        <POP 25d86-25d9c Prologue>                           Σ0         ↓
        <POP 25d9c-25dae RegCacheLoad>                       Σ0         ↓
        <POP 25dae-25dd2 Naked>                              Σ0         ↓
            <MI 25dae  MOVE.L  0x2797e,(A6-0x28)>                               {}
            <Pointer.fp 0x25db6 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x25db8 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <POP 25dbe-25dc0 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x25dc0 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x25dc4 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x25dc6 0x25bbc>                                              {[@@-12]|[@@-20]}
            <POP 25dca-25dcc StackAdj>                       Δ+8                {}
            <MI 25dcc  CLR.L   (A6-0x34)>                                       {}
            <MI 25dd0  MOVEQ.L #0x00,D7>                                        {}
        <POP 25dd2-25de6 Naked>                              Σ0         →0x25e10 →0x25e1c →0x25e32 →0x25e52 →0x25e58 →0x25e68 →0x25e7e →0x25e86 →0x25e88 →0x25ea0 →0x25eb0 →0x25eca →0x25ede →0x25ef4 →0x25f0a →0x25f0c →0x25f26 →0x25f3c →0x25f4a →0x25f4c →0x25f4e ←0x25fc2
            <MI 25dd2  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x25dd6 LimitCheck 0x0 ≤ D0 ≤ 0x14>                            {}
            <MI 25ddc  ADD.W   D0,D0>                                           {}
            <MI 25dde  SWITCH  D0.W>                                            {}
        <POP 25e10-25e1c Naked>                              Σ0         →0x25f78 ←0x25dd2
            <MI 25e10  MOVEQ.L #0x00,D6>                                        {}
            <MI 25e12  MOVE.L  (A6+0x8),D5>                                     {}
            <MI 25e16  BRA     0x25f78>                                         {}
        <POP 25e1c-25e32 Naked>                              Σ0         →0x25f78 ←0x25dd2
            <POP 25e1c-25e1e StackAdj>                       Δ-4                {[-4-]}
            <MI 25e1e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 25e22  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x25e24 0x25692>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 25e28-25e2a StackAdj>                       Δ+8                {[-4-]}
            <MI 25e2a  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 25e2c  BRA     0x25f78>                                         {}
        <POP 25e32-25e3a Naked>                              Σ0 Δ-12    ↓ ←0x25dd2
            <MI 25e32  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 25e36  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 25e38  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
        <POP 25e3a-25e4c Naked>                              Σ-12 Δ+12  →0x25fd6 ←0x25e58
            <MI 25e3a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <Call 0x25e3e 0x2570e>                                              {[-12-]|[4, '(A6+0xc)']}
            <POP 25e42-25e46 StackAdj>                       Δ+16               {}
            <MI 25e46  BRA     0x25fd6>                                         {}
        <POP 25e52-25e58 Naked>                              Σ0         →0x25f78 ←0x25dd2
            <MI 25e52  BRA     0x25f78>                                         {}
        <POP 25e58-25e62 Naked>                              Σ0 Δ-12    →0x25e3a ←0x25dd2
            <MI 25e58  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 25e5c  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']}
            <MI 25e5e  MOVE.L  D5,-(A7)>                     Δ-4                {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
            <MI 25e60  BRA     0x25e3a>                                         {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
        <POP 25e68-25e7e Naked>                              Σ0         →0x25f78 ←0x25dd2 ←0x25e86
            <POP 25e68-25e6a StackAdj>                       Δ-4                {[-4-]}
            <MI 25e6a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 25e6e  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x25e70 0x25692>                                              {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <POP 25e74-25e76 StackAdj>                       Δ+8                {[-4-]}
            <MI 25e76  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 25e78  BRA     0x25f78>                                         {}
        <POP 25e7e-25e86 Naked>                              Σ0         →0x25f78 ←0x25dd2
            <MI 25e7e  MOVEQ.L #0x01,D6>                                        {}
            <MI 25e80  BRA     0x25f78>                                         {}
        <POP 25e86-25e88 Naked>                              Σ0         →0x25e68 ←0x25dd2
            <MI 25e86  BRA     0x25e68>                                         {}
        <POP 25e88-25ea0 Naked>                              Σ0         →0x25f78 ←0x25dd2
            <POP 25e88-25e8a StackAdj>                       Δ-8                {[-8-]}
            <MI 25e8a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']}
            <MI 25e8e  MOVE.L  D6,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x25e90 0x23a88>                                              {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 25e94-25e96 StackAdj>                       Δ+8                {[-8-]}
            <MI 25e96  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-4-]}
            <MI 25e98  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {}
            <MI 25e9a  BRA     0x25f78>                                         {}
        <POP 25ea0-25eb0 Naked>                              Σ0         →0x25f78 ←0x25dd2
            <MI 25ea0  MOVE.L  (A6-0x14),(A6-0x1c)>                             {}
            <MI 25ea4  MOVE.L  (A6-0x10),(A6-0x18)>                             {}
            <MI 25eaa  BRA     0x25f78>                                         {}
        <POP 25eb0-25ec2 Naked>                              Σ0 Δ-20    ↓ ←0x25dd2
            <MI 25eb0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25eb2  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 25eb4  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 25eb6  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 25eba  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x25ebe 0x259c8>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 25ec2-25eca Naked>                              Σ-20 Δ+20  →0x25f78 ←0x25eca
            <POP 25ec2-25ec4 StackAdj>                       Δ+20               {}
            <MI 25ec4  BRA     0x25f78>                                         {}
        <POP 25eca-25ede Naked>                              Σ0 Δ-20    →0x25ec2 ←0x25dd2
            <MI 25eca  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25ecc  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 25ece  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 25ed0  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 25ed4  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x25ed8 0x25934>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 25edc  BRA     0x25ec2>                                         {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
        <POP 25ede-25ee8 Naked>                              Σ0 Δ-12    ↓ ←0x25dd2
            <MI 25ede  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25ee0  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 25ee2  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x25ee4 0x25a7e>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
        <POP 25ee8-25eec Naked>                              Σ-12 Δ+12  ↓ ←0x25f26
            <POP 25ee8-25eec StackAdj>                       Δ+12               {}
        <POP 25eec-25ef4 Naked>                              Σ0         →0x25f78 ←0x25ef4 ←0x25f0a ←0x25f4c
            <MI 25eec  MOVEQ.L #0x01,D7>                                        {}
            <MI 25eee  BRA     0x25f78>                                         {}
        <POP 25ef4-25f0a Naked>                              Σ0         →0x25eec ←0x25dd2
            <MI 25ef4  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25ef6  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
            <MI 25ef8  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 25efa  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 25efe  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x25f02 0x25934>                                              {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 25f06-25f08 StackAdj>                       Δ+20               {}
            <MI 25f08  BRA     0x25eec>                                         {}
        <POP 25f0a-25f0c Naked>                              Σ0         →0x25eec ←0x25dd2
            <MI 25f0a  BRA     0x25eec>                                         {}
        <POP 25f0c-25f20 Naked>                              Σ0 Δ-12    ↓ ←0x25dd2
            <MI 25f0c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 25f0e-25f10 StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 25f10  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 25f14  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x25f16 0x23a88>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 25f1a-25f1c StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x25f1c 0x25a7e>                                              {[4, '(A6-0x8)']|[-8-]}
        <POP 25f20-25f26 Naked>                              Σ-12 Δ+12  →0x25f78 ←0x25f3c
            <POP 25f20-25f24 StackAdj>                       Δ+12               {}
            <MI 25f24  BRA     0x25f78>                                         {}
        <POP 25f26-25f3c Naked>                              Σ0 Δ-12    →0x25ee8 ←0x25dd2
            <MI 25f26  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <POP 25f28-25f2a StackAdj>                       Δ-8                {[4, '(A6-0x8)']|[-8-]}
            <MI 25f2a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
            <MI 25f2e  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <Call 0x25f30 0x23a88>                                              {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
            <POP 25f34-25f36 StackAdj>                       Δ+8                {[4, '(A6-0x8)']|[-8-]}
            <Call 0x25f36 0x25b04>                                              {[4, '(A6-0x8)']|[-8-]}
            <MI 25f3a  BRA     0x25ee8>                                         {[4, '(A6-0x8)']|[-8-]}
        <POP 25f3c-25f4a Naked>                              Σ0 Δ-12    →0x25f20 ←0x25dd2
            <MI 25f3c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 25f3e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
            <MI 25f42  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x25f44 0x25b74>                                              {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <MI 25f48  BRA     0x25f20>                                         {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
        <POP 25f4a-25f4c Naked>                              Σ0         →0x25f78 ←0x25dd2
            <MI 25f4a  BRA     0x25f78>                                         {}
        <POP 25f4c-25f4e Naked>                              Σ0         →0x25eec ←0x25dd2
            <MI 25f4c  BRA     0x25eec>                                         {}
        <POP 25f4e-25f78 Naked>                              Σ0         ↓ ←0x25dd2
            <Blob 0x25f4e [24] @>                            Δ-24               {[«24""»]}
            <POP 25f5a-25f5c StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x25f5c 24>                                                    {[«24""»]|[$$Illegal argument marker.]}
            <Call 0x25f70 0x22e28>                                              {[«24""»]|[$$Illegal argument marker.]}
            <POP 25f74-25f78 StackAdj>                       Δ+28               {}
        <POP 25f78-25f7c Naked>                              Σ0         ↓ →0x25fc2 ←0x25e10 ←0x25e1c ←0x25e52 ←0x25e68 ←0x25e7e ←0x25e88 ←0x25ea0 ←0x25ec2 ←0x25eec ←0x25f20 ←0x25f4a
            <MI 25f78  TST.B   D7>                                              {}
            <MI 25f7a  BNE     0x25fc2>                                         {}
        <POP 25f7c-25fc2 Naked>                              Σ0         ↓
            <Pointer.fp 0x25f7c <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x25f80 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-12]|[@@-20]}
            <Call 0x25f82 0x25bbc>                                              {[@@-12]|[@@-20]}
            <POP 25f86-25f88 StackAdj>                       Δ+8                {}
            <MI 25f88  MOVE.L  (A6-0x34),D0>                                    {}
            <POP 0x25f8c LimitCheck 0x0 ≤ D0 ≤ 0x13>                            {}
            <MI 25f96  MOVE.L  D0,D4>                                           {}
            <MI 25f98  MOVEQ.L #0x07,D3>                                        {}
            <Call 0x25f9a 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 25fa0  LEA.L   0x22d5a,A0>                                      {}
            <MI 25fa4  MOVE.L  (A6-0xc),D0>                                     {}
            <POP 0x25fa8 LimitCheck 0x0 ≤ D0 ≤ 0x6>                             {}
            <MI 25fb2  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 25fb6  MOVE.B  (A0+D0.L),D1>                                    {}
            <MI 25fba  EXTB.W  D1>                                              {}
            <MI 25fbc  EXTW.L  D1>                                              {}
            <MI 25fbe  MOVE.L  D1,(A6-0x34)>                                    {}
        <POP 25fc2-25fca Naked>                              Σ0         ↓ →0x25dd2 ←0x25f78
            <MI 25fc2  TST.B   D7>                                              {}
            <MI 25fc4  BEQ     0x25dd2>                                         {}
        <POP 25fca-25fd6 Naked>                              Σ0         ↓
            <MI 25fca  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x28)']}
            <MI 25fce  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <Call 0x25fd0 0x25d00>                                              {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
            <POP 25fd4-25fd6 StackAdj>                       Δ+8                {}
        <POP 25fd6-25fe0 Naked>                              Σ0         ↓ ←0x25e3a
            <Pointer.fp 0x25fd6 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x25fd8 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 25fde-25fe0 StackAdj>                       Δ+4                {}
        <POP 25fe0-25fe8 Epilogue>                           Σ0         

0x25fe8


@ 25fe8
        <LVAR  0x014 4(rw)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x018 4(w)>
    <POP 25fe8-260e4 Body>                                   Δ-12       
        <POP 25fe8-25ffe Prologue>                           Σ0         ↓
        <POP 25ffe-26010 RegCacheLoad>                       Σ0         ↓
        <POP 26010-26038 Naked>                              Σ0 Δ-4     ↓
            <MI 26010  CLR.L   (A6+0x14)>                                       {}
            <POP 26014-26016 StackAdj>                       Δ-4                {[-4-]}
            <MI 26016  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 26018  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x2601a 0x23a50>                                              {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <POP 2601e-26020 StackAdj>                       Δ+8                {[-4-]}
            <MI 26020  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 26022  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 26026  MOVE.W  (A0),D0>                                         {}
            <MI 26028  EXTW.L  D0>                                              {}
            <MI 2602a  ADDQ.L  #0x1,D0>                                         {}
            <MI 2602c  MOVE.L  D0,(A6-0x8)>                                     {}
            <MI 2602e  NEG.L   D0>                                              {}
            <MI 26030  ADD.L   (A6-0xc),D0>                                     {}
            <MI 26032  ADDQ.L  #0x1,D0>                                         {}
            <MI 26034  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 26036  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 26038-26040 Naked>                              Σ-4        ↓ →0x260da ←0x260d0
            <MI 26038  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 2603a  BGT     0x260da>                                         {[-4-]}
        <POP 26040-2604c Naked>                              Σ-4 Δ-8    ↓
            <MI 26040  MOVE.L  D0,(A6-0x18)>                                    {[-4-]}
            <MI 26044  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 26046  MOVEQ.L #0x00,D6>                                        {[-4-]|[4, 'D0']}
            <MI 26048  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
            <MI 2604a  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
        <POP 2604c-26050 Naked>                              Σ-12       ↓ →0x26098 ←0x26092
            <MI 2604c  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 2604e  BGT     0x26098>                                         {[-12-]}
        <POP 26050-26058 Naked>                              Σ-12       ↓ →0x2605c
            <MI 26050  CMPI.L  #0x00000001,D5>                                  {[-12-]}
            <MI 26056  BNE     0x2605c>                                         {[-12-]}
        <POP 26058-2605c Naked>                              Σ-12       →0x26074
            <MI 26058  MOVEQ.L #0x2f,D7>                                        {[-12-]}
            <MI 2605a  BRA     0x26074>                                         {[-12-]}
        <POP 2605c-26074 Naked>                              Σ-12       ↓ ←0x26050
            <MI 2605c  MOVEA.L (A6+0x8),A0>                                     {[-12-]}
            <MI 26060  MOVE.L  D5,D0>                                           {[-12-]}
            <MI 26062  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <MI 26064  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <POP 0x26066 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-12-]}
            <MI 26070  MOVE.B  (A0+D0.L+#0x2),D7>                               {[-12-]}
        <POP 26074-2608e Naked>                              Σ-12       ↓ →0x26092 ←0x26058
            <POP 26074-26076 StackAdj>                       Δ-2                {[-14-]}
            <MI 26076  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-14-]|[4, '(A6+0x10)']}
            <MI 26078  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 2607a  MOVE.L  (A7+0xe),D0>                                     {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 2607e  ADD.L   D5,D0>                                           {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 26080  SUBQ.L  #0x1,D0>                                         {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 26082  MOVE.L  D0,-(A7)>                     Δ-4                {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <Call 0x26084 0x25652>                                              {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
            <POP 26088-2608a StackAdj>                       Δ+12               {[-14-]}
            <MI 2608a  CMP.B   (A7)+,D7>                     Δ+2                {[-12-]}
            <MI 2608c  BEQ     0x26092>                                         {[-12-]}
        <POP 2608e-26092 Naked>                              Σ-12 Δ+4   →0x2609a
            <POP 2608e-26090 StackAdj>                       Δ+4                {[-8-]}
            <MI 26090  BRA     0x2609a>                                         {[-8-]}
        <POP 26092-26098 Naked>                              Σ-12       ↓ →0x2604c ←0x26074
            <MI 26092  MOVE.L  D5,D6>                                           {[-12-]}
            <MI 26094  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 26096  BVC     0x2604c>                                         {[-12-]}
        <POP 26098-2609a Naked>                              Σ-12 Δ+4   ↓ ←0x2604c
            <POP 26098-2609a StackAdj>                       Δ+4                {[-8-]}
        <POP 2609a-2609e Naked>                              Σ-8        ↓ →0x260d0 ←0x2608e
            <MI 2609a  CMP.L   (A6-0x8),D6>                                     {[-8-]}
            <MI 2609c  BNE     0x260d0>                                         {[-8-]}
        <POP 2609e-260a8 Naked>                              Σ-8        ↓ →0x260ce
            <MI 2609e  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 260a0  MOVE.L  D0,D1>                                           {[-8-]}
            <MI 260a2  ADD.L   (A6-0x8),D1>                                     {[-8-]}
            <MI 260a4  CMP.L   (A6-0xc),D1>                                     {[-8-]}
            <MI 260a6  BGE     0x260ce>                                         {[-8-]}
        <POP 260a8-260be Naked>                              Σ-8        ↓ →0x260c4
            <POP 260a8-260aa StackAdj>                       Δ-2                {[-10-]}
            <MI 260aa  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6+0x10)']}
            <MI 260ac  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 260ae  MOVE.L  D1,-(A7)>                     Δ-4                {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <Call 0x260b0 0x25652>                                              {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
            <POP 260b4-260b6 StackAdj>                       Δ+12               {[-10-]}
            <MI 260b6  MOVE.B  (A7)+,D7>                     Δ+2                {[-8-]}
            <MI 260b8  CMPI.B  #0x2f,D7>                                        {[-8-]}
            <MI 260bc  BEQ     0x260c4>                                         {[-8-]}
        <POP 260be-260c4 Naked>                              Σ-8        ↓ →0x260cc
            <MI 260be  CMPI.B  #0x3d,D7>                                        {[-8-]}
            <MI 260c2  BNE     0x260cc>                                         {[-8-]}
        <POP 260c4-260cc Naked>                              Σ-8 Δ+8    →0x260dc ←0x260a8 ←0x260ce
            <MI 260c4  MOVE.L  D0,(A6+0x14)>                                    {[-8-]}
            <POP 260c8-260ca StackAdj>                       Δ+8                {}
            <MI 260ca  BRA     0x260dc>                                         {}
        <POP 260cc-260ce Naked>                              Σ-8        →0x260d0 ←0x260be
            <MI 260cc  BRA     0x260d0>                                         {[-8-]}
        <POP 260ce-260d0 Naked>                              Σ-8        →0x260c4 ←0x2609e
            <MI 260ce  BRA     0x260c4>                                         {[-8-]}
        <POP 260d0-260da Naked>                              Σ-8 Δ+4    ↓ →0x26038 ←0x2609a ←0x260cc
            <MI 260d0  MOVE.L  (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 260d2  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 260d4  BVC     0x26038>                                         {[-4-]}
        <POP 260da-260dc Naked>                              Σ-4 Δ+4    ↓ ←0x26038
            <POP 260da-260dc StackAdj>                       Δ+4                {}
        <POP 260dc-260e4 Epilogue>                           Σ0         ←0x260c4

0x260e4


@ 260e4
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
    <POP 260e4-261ce Body>                                   Δ-12       
        <POP 260e4-260fa Prologue>                           Σ0         ↓
        <POP 260fa-2610a RegCacheLoad>                       Σ0         ↓
        <POP 2610a-26132 Naked>                              Σ0         ↓ →0x261c6
            <MI 2610a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2610e  CLR.B   (A0)>                                            {}
            <MI 26110  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 26114  MOVE.L  #0x01,(A1)>                                      {}
            <POP 26116-26118 StackAdj>                       Δ-8                {[-8-]}
            <MI 26118  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']}
            <MI 2611c  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <Call 0x26120 0x23a88>                                              {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <POP 26124-26126 StackAdj>                       Δ+8                {[-8-]}
            <MI 26126  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-4-]}
            <MI 26128  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {}
            <MI 2612a  TST.L   (A6-0x1c)>                                       {}
            <MI 2612c  BEQ     0x261c6>                                         {}
        <POP 26132-26148 Naked>                              Σ0         ↓ →0x261c6
            <POP 26132-26134 StackAdj>                       Δ-4                {[-4-]}
            <MI 26134  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']}
            <MI 26136  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 26138  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <Call 0x2613c 0x25fe8>                                              {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
            <POP 26140-26142 StackAdj>                       Δ+12               {[-4-]}
            <MI 26142  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {}
            <MI 26146  BEQ     0x261c6>                                         {}
        <POP 26148-26168 Naked>                              Σ0 Δ-4     ↓
            <MI 26148  MOVE.B  #0x01,(A0)>                                      {}
            <MI 2614a  PEA.L   (A1)>                         Δ-4                {[4, '^(A1)']}
            <Call 0x2614c 0x102b8>                                              {[4, '^(A1)']}
                NewString(VAR a : String)
            <MI 26152  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']}
            <MI 26154  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x26156 0x23a50>                                              {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 2615a-2615c StackAdj>                       Δ+8                {[4, '^(A1)']}
            <MI 2615c  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 2615e  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 26162  ADDQ.L  #0x1,D0>                                         {}
            <MI 26164  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 26166  MOVE.L  D0,D5>                                           {[4, '(A6-0x8)']}
        <POP 26168-2616c Naked>                              Σ-4        ↓ →0x261c4 ←0x261c0
            <MI 26168  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 2616a  BGT     0x261c4>                                         {[-4-]}
        <POP 2616c-26182 Naked>                              Σ-4        ↓ →0x261c0
            <POP 2616c-2616e StackAdj>                       Δ-2                {[-6-]}
            <MI 2616e  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']}
            <MI 26170  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 26172  MOVE.L  D5,-(A7)>                     Δ-4                {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <Call 0x26174 0x25652>                                              {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
            <POP 26178-2617a StackAdj>                       Δ+12               {[-6-]}
            <MI 2617a  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 2617c  CMPI.B  #0x3d,D0>                                        {[-4-]}
            <MI 26180  BNE     0x261c0>                                         {[-4-]}
        <POP 26182-2618a Naked>                              Σ-4 Δ-4    ↓
            <MI 26182  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 26184  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 26186  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 26188  MOVE.L  D0,D7>                                           {[-4-]|[4, '(A6-0x8)']}
        <POP 2618a-2618e Naked>                              Σ-8        ↓ →0x261bc ←0x261a8
            <MI 2618a  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 2618c  BGT     0x261bc>                                         {[-8-]}
        <POP 2618e-261a4 Naked>                              Σ-8        ↓ →0x261a8
            <POP 2618e-26190 StackAdj>                       Δ-2                {[-10-]}
            <MI 26190  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']}
            <MI 26192  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <MI 26194  MOVE.L  D7,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <Call 0x26196 0x25652>                                              {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
            <POP 2619a-2619c StackAdj>                       Δ+12               {[-10-]}
            <MI 2619c  MOVE.B  (A7)+,D6>                     Δ+2                {[-8-]}
            <MI 2619e  CMPI.B  #0x2f,D6>                                        {[-8-]}
            <MI 261a2  BNE     0x261a8>                                         {[-8-]}
        <POP 261a4-261a8 Naked>                              Σ-8 Δ+8    →0x261c6
            <POP 261a4-261a6 StackAdj>                       Δ+8                {}
            <MI 261a6  BRA     0x261c6>                                         {}
        <POP 261a8-261bc Naked>                              Σ-8        ↓ →0x2618a ←0x2618e
            <MI 261a8  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 261ac  MOVE.L  (A0),-(A7)>                   Δ-4                {[-8-]|[4, '(A0)']}
            <MI 261ae  MOVE.B  D6,-(A7)>                     Δ-2                {[-8-]|[4, '(A0)']|[2, 'D6']}
            <Call 0x261b0 0x102c0>                                              {[-8-]|[4, '(A0)']|[2, 'D6']}
                AppendChar(MOD b : String; a : char)
            <POP 261b6-261b8 StackAdj>                       Δ+6                {[-8-]}
            <MI 261b8  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 261ba  BVC     0x2618a>                                         {[-8-]}
        <POP 261bc-261c0 Naked>                              Σ-8 Δ+8    →0x261c6 ←0x2618a
            <POP 261bc-261be StackAdj>                       Δ+8                {}
            <MI 261be  BRA     0x261c6>                                         {}
        <POP 261c0-261c4 Naked>                              Σ-4        ↓ →0x26168 ←0x2616c
            <MI 261c0  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 261c2  BVC     0x26168>                                         {[-4-]}
        <POP 261c4-261c6 Naked>                              Σ-4 Δ+4    ↓ ←0x26168
            <POP 261c4-261c6 StackAdj>                       Δ+4                {}
        <POP 261c6-261ce Epilogue>                           Σ0         ←0x2610a ←0x26132 ←0x261a4 ←0x261bc

0x261ce


@ 261ce
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 1(r)>
    <POP 261ce-2626c Body>                                              
        <POP 261ce-261e4 Prologue>                           Σ0         ↓
        <POP 261e4-261f2 RegCacheLoad>                       Σ0         ↓
        <POP 261f2-2620a Naked>                              Σ0         ↓ →0x2625a
            <MI 261f2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 261f4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x261f6 <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
            <Call 0x261fa 0x225dc>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
                DISPATCH_CMDS(?)
            <POP 26200-26204 StackAdj>                       Δ+12               {}
            <MI 26204  TST.B   (A6-0x10)>                                       {}
            <MI 26208  BNE     0x2625a>                                         {}
        <POP 2620a-26224 Naked>                              Σ0         ↓
            <MI 2620a  MOVE.L  0x2797e,D7>                                      {}
            <POP 2620c-2620e StackAdj>                       Δ-4                {[-4-]}
            <MI 2620e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x26210 0x2323c>                                              {[-4-]|[4, '(A6+0x8)']}
            <POP 26214-26216 StackAdj>                       Δ+4                {[-4-]}
            <MI 26216  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 26218  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 2621a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x2621c 0x25516>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                TRY_SCRIPT_FILE(?)
            <POP 26220-26222 StackAdj>                       Δ+8                {}
            <MI 26222  MOVE.L  0x2797e,D5>                                      {}
        <POP 26224-26242 Naked>                              Σ0         ↓ →0x2624e ←0x2624e
            <MI 26224  MOVE.L  D7,D0>                                           {}
            <MI 26226  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x26228 LimitCheck 0x0 ≤ D0 ≤ 0xfff>                           {}
            <MI 26232  LEA.L   0x26976,A0>                                      {}
            <MI 26238  MOVE.B  (A0+D0.L+#0x8),D0>                               {}
            <MI 2623c  CMPI.B  #0x25,D0>                                        {}
            <MI 26240  BNE     0x2624e>                                         {}
        <POP 26242-2624e Naked>                              Σ0         ↓
            <MI 26242  MOVE.L  D7,0x2797e>                                      {}
            <MI 26244  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 26246  MOVE.L  D6,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[4, 'D6']}
            <Call 0x26248 0x25d86>                                              {[4, '(A6+0x8)']|[4, 'D6']}
            <POP 2624c-2624e StackAdj>                       Δ+8                {}
        <POP 2624e-26258 Naked>                              Σ0         ↓ →0x26224 ←0x26224
            <MI 2624e  ADDQ.L  #0x1,D7>                                         {}
            <MI 26250  CMP.L   0x27982,D7>                                      {}
            <MI 26256  BLE     0x26224>                                         {}
        <POP 26258-2625a Naked>                              Σ0         ↓
            <MI 26258  MOVE.L  D5,0x2797e>                                      {}
        <POP 2625a-26264 Naked>                              Σ0         ↓ ←0x261f2
            <Pointer.fp 0x2625a <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x2625c 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 26262-26264 StackAdj>                       Δ+4                {}
        <POP 26264-2626c Epilogue>                           Σ0         

0x2626c


@ 2626c
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00b 1(w)>
        <LVAR -0x00c @ 1(r)>
    <POP 2626c-265be Body>                                   Δ+148      
        <POP 2626c-26282 Prologue>                           Σ0         ↓
        <POP 26282-26290 RegCacheLoad>                       Σ0         ↓
        <POP 26290-262b8 Naked>                              Σ0         ↓ →0x2659e ←0x2659e
            <MI 26290  MOVE.L  0x2797e,D7>                                      {}
            <Pointer.fp 0x26292 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Pointer.fp 0x26294 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-6]|[@@-12]}
            <Call 0x26298 0x23190>                                              {[@@-6]|[@@-12]}
            <POP 2629c-2629e StackAdj>                       Δ+8                {}
            <MI 2629e  MOVE.L  0x2797e,D6>                                      {}
            <POP 262a0-262a2 StackAdj>                       Δ-4                {[-4-]}
            <MI 262a2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Call 0x262a4 0x2323c>                                              {[-4-]|[4, '(A6-0x6)']}
            <POP 262a8-262aa StackAdj>                       Δ+4                {[-4-]}
            <MI 262aa  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 262ac  CMPI.L  #0xffffffff,D0>                                  {}
            <MI 262b2  BEQ     0x2659e>                                         {}
        <POP 262b8-262e2 Naked>                              Σ0         ↓ →0x262f2
            <POP 262b8-262ba StackAdj>                       Δ-4                {[-4-]}
            <MI 262ba  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <Const 0x262bc 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x6)']|[##0]}
            <Call 0x262c0 0x23b66>                                              {[-4-]|[4, '(A6-0x6)']|[##0]}
            <POP 262c4-262c6 StackAdj>                       Δ+8                {[-4-]}
            <MI 262c6  MOVE.L  (A7),(A6-0xa)>                                   {[-4-]}
            <POP 262c8-262ca StackAdj>                       Δ+2                {[-2-]}
            <MI 262ca  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <Call 0x262cc 0x2545a>                                              {[-2-]|[4, '(A6-0xa)']}
            <POP 262d0-262d2 StackAdj>                       Δ+4                {[-2-]}
            <MI 262d2  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 262d4  EXTB.W  D0>                                              {}
            <POP 0x262d6 LimitCheck 0x0 ≤ D0 ≤ 0x2b>                            {}
            <MI 262da  MOVE.B  D0,(A6-0xb)>                                     {}
            <MI 262de  TST.B   D0>                                              {}
            <MI 262e0  BNE     0x262f2>                                         {}
        <POP 262e2-262f2 Naked>                              Σ0         →0x26596
            <MI 262e2  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 262e4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <Call 0x262e6 0x261ce>                                              {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
            <POP 262ea-262ec StackAdj>                       Δ+8                {}
            <MI 262ec  BRA     0x26596>                                         {}
        <POP 262f2-26328 Naked>                              Σ0         ↓ →0x26354 ←0x262b8
            <Pointer.fp 0x262f2 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x262f4 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 262fa-262fc StackAdj>                       Δ+4                {}
            <MI 262fc  MOVE.B  D0,D1>                                           {}
            <MI 262fe  EXTB.W  D1>                                              {}
            <POP 0x26300 LimitCheck 0x0 ≤ D1 ≤ 0x2b>                            {}
            <MI 26304  LEA.L   0x22d2a,A0>                                      {}
            <MI 26308  MOVE.W  D1,D0>                                           {}
            <MI 2630a  EXTW.L  D0>                                              {}
            <MI 2630c  MOVE.L  D0,D2>                                           {}
            <MI 2630e  ROR.L   #0x1,D2>                                         {}
            <MI 26310  ADDA.W  D2,A0>                                           {}
            <MI 26312  SWAP.W  D2>                                              {}
            <MI 26314  ROL.W   #0x3,D2>                                         {}
            <MI 26316  CLR.L   D3>                                              {}
            <MI 26318  MOVE.B  (A0),D3>                                         {}
            <MI 2631a  LSL.B   D2,D3>                                           {}
            <MI 2631c  LSR.B   #0x4,D3>                                         {}
            <MI 2631e  MOVE.L  D3,D5>                                           {}
            <MI 26320  CMPI.L  #0x0000000f,D5>                                  {}
            <MI 26326  BEQ     0x26354>                                         {}
        <POP 26328-26354 Naked>                              Σ0         ↓
            <MI 26328  MOVE.L  D0,D4>                                           {}
            <MI 2632a  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x2632c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 26332  LEA.L   0x22b5c,A0>                                      {}
            <Blob 0x26336 [10] (A0+D4.W)>                    Δ-10               {[«10»]}
            <MI 26348  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«10»]|[4, '(A6-0x6)']}
            <MI 2634a  MOVE.L  D5,-(A7)>                     Δ-4                {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <Call 0x2634c 0x23272>                                              {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
            <POP 26350-26354 StackAdj>                       Δ+18               {}
        <POP 26354-26368 Naked>                              Σ0         →0x263be →0x263cc →0x263e0 →0x263ee →0x26588 →0x263f6 →0x263fc →0x26404 →0x2640c →0x26414 →0x2641c →0x26424 →0x2642c →0x26434 →0x2643c →0x26444 →0x26450 →0x2645c →0x26468 →0x26474 →0x26480 →0x2648c →0x26498 →0x264a4 →0x264b0 →0x264bc →0x264c8 →0x264d4 →0x264e0 →0x264ec →0x264f8 →0x26504 →0x26510 →0x2651c →0x26528 →0x26534 →0x26540 →0x2654c →0x26552 →0x2655e →0x2656a →0x26576 →0x2657c ←0x262f2
            <MI 26354  SUBQ.W  #0x1,D1>                                         {}
            <POP 0x26356 LimitCheck 0x0 ≤ D1 ≤ 0x2a>                            {}
            <MI 2635e  ADD.W   D1,D1>                                           {}
            <MI 26360  SWITCH  D1.W>                                            {}
        <POP 263be-263c4 Naked>                              Σ0 Δ-4     ↓ ←0x26354
            <MI 263be  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x263c0 0x23cee>                                              {[4, '(A6-0x6)']}
        <POP 263c4-263cc Naked>                              Σ-4 Δ+4    →0x26596 ←0x263e0 ←0x263ee ←0x263fc ←0x26404 ←0x2640c ←0x26414 ←0x2641c ←0x26424 ←0x2642c ←0x26434 ←0x2643c ←0x26444 ←0x26450 ←0x2645c ←0x26468 ←0x26474 ←0x26480 ←0x2648c ←0x26498 ←0x264a4 ←0x264b0 ←0x264bc ←0x264c8 ←0x264d4 ←0x264e0 ←0x264ec ←0x264f8 ←0x26504 ←0x26510 ←0x2651c ←0x26528 ←0x26534 ←0x26540 ←0x26552 ←0x2655e ←0x2656a ←0x2657c
            <POP 263c4-263c6 StackAdj>                       Δ+4                {}
            <MI 263c6  BRA     0x26596>                                         {}
        <POP 263cc-263e0 Naked>                              Σ0         →0x26596 ←0x26354
            <MI 263cc  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x263ce 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x263d2 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 263d8-263da StackAdj>                       Δ+6                {}
            <MI 263da  BRA     0x26596>                                         {}
        <POP 263e0-263ee Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <POP 263e0-263e2 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x263e2 0x102ac>                                              {[-4-]}
                FSCALL_102ac
            <Call 0x263e8 0x23cc4>                                              {[-4-]}
            <MI 263ec  BRA     0x263c4>                                         {[-4-]}
        <POP 263ee-263f6 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 263ee  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x263f0 0x23ecc>                                              {[4, '(A6-0x6)']}
            <MI 263f4  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 263f6-263fc Naked>                              Σ0         →0x26596 ←0x26354
            <MI 263f6  BRA     0x26596>                                         {}
        <POP 263fc-26404 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 263fc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x263fe 0x241f2>                                              {[4, '(A6-0x6)']}
            <MI 26402  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26404-2640c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26404  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26406 0x24364>                                              {[4, '(A6-0x6)']}
            <MI 2640a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2640c-26414 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2640c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2640e 0x24452>                                              {[4, '(A6-0x6)']}
            <MI 26412  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26414-2641c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26414  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26416 0x2484e>                                              {[4, '(A6-0x6)']}
            <MI 2641a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2641c-26424 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2641c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2641e 0x248c6>                                              {[4, '(A6-0x6)']}
            <MI 26422  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26424-2642c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26424  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26426 0x2493e>                                              {[4, '(A6-0x6)']}
            <MI 2642a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2642c-26434 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2642c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2642e 0x2496a>                                              {[4, '(A6-0x6)']}
            <MI 26432  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26434-2643c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26434  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26436 0x24a6a>                                              {[4, '(A6-0x6)']}
            <MI 2643a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2643c-26444 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2643c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2643e 0x24b50>                                              {[4, '(A6-0x6)']}
            <MI 26442  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26444-26450 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26444  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26446 0x24b7c>                                              {[4, '(A6-0x6)']}
            <MI 2644a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26450-2645c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26450  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26452 0x24bc8>                                              {[4, '(A6-0x6)']}
            <MI 26456  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2645c-26468 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2645c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2645e 0x24c14>                                              {[4, '(A6-0x6)']}
            <MI 26462  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26468-26474 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26468  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2646a 0x24c60>                                              {[4, '(A6-0x6)']}
            <MI 2646e  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26474-26480 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26474  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26476 0x24cac>                                              {[4, '(A6-0x6)']}
            <MI 2647a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26480-2648c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26480  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26482 0x24cf8>                                              {[4, '(A6-0x6)']}
            <MI 26486  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2648c-26498 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2648c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2648e 0x24d44>                                              {[4, '(A6-0x6)']}
            <MI 26492  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26498-264a4 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26498  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2649a 0x24d8e>                                              {[4, '(A6-0x6)']}
            <MI 2649e  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264a4-264b0 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264a4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264a6 0x24dd8>                                              {[4, '(A6-0x6)']}
            <MI 264aa  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264b0-264bc Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264b0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264b2 0x24e22>                                              {[4, '(A6-0x6)']}
            <MI 264b6  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264bc-264c8 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264bc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264be 0x24e6c>                                              {[4, '(A6-0x6)']}
            <MI 264c2  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264c8-264d4 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264c8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264ca 0x24eb6>                                              {[4, '(A6-0x6)']}
            <MI 264ce  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264d4-264e0 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264d4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264d6 0x24f00>                                              {[4, '(A6-0x6)']}
            <MI 264da  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264e0-264ec Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264e0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264e2 0x24f4a>                                              {[4, '(A6-0x6)']}
            <MI 264e6  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264ec-264f8 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264ec  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264ee 0x24f94>                                              {[4, '(A6-0x6)']}
            <MI 264f2  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 264f8-26504 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 264f8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x264fa 0x24fd8>                                              {[4, '(A6-0x6)']}
            <MI 264fe  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26504-26510 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26504  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26506 0x2501e>                                              {[4, '(A6-0x6)']}
            <MI 2650a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26510-2651c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26510  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26512 0x25054>                                              {[4, '(A6-0x6)']}
            <MI 26516  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2651c-26528 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2651c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2651e 0x250e4>                                              {[4, '(A6-0x6)']}
            <MI 26522  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26528-26534 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26528  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2652a 0x25156>                                              {[4, '(A6-0x6)']}
            <MI 2652e  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26534-26540 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26534  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26536 0x244b4>                                              {[4, '(A6-0x6)']}
            <MI 2653a  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26540-2654c Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26540  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26542 0x2451e>                                              {[4, '(A6-0x6)']}
            <MI 26546  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2654c-26552 Naked>                              Σ0         →0x26596 ←0x26354
            <Call 0x2654c 0x244f0>                                              {}
            <MI 26550  BRA     0x26596>                                         {}
        <POP 26552-2655e Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 26552  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26554 0x251c8>                                              {[4, '(A6-0x6)']}
            <MI 26558  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2655e-2656a Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2655e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26560 0x2524a>                                              {[4, '(A6-0x6)']}
            <MI 26564  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 2656a-26576 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2656a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2656c 0x252ca>                                              {[4, '(A6-0x6)']}
            <MI 26570  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26576-2657c Naked>                              Σ0         →0x26596 ←0x26354
            <Call 0x26576 0x2538e>                                              {}
            <MI 2657a  BRA     0x26596>                                         {}
        <POP 2657c-26588 Naked>                              Σ0 Δ-4     →0x263c4 ←0x26354
            <MI 2657c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x2657e 0x253ae>                                              {[4, '(A6-0x6)']}
            <MI 26582  BRA     0x263c4>                                         {[4, '(A6-0x6)']}
        <POP 26588-26596 Naked>                              Σ0         ←0x26354
            <POP 26588-26596 Bailout>                                           {}
                <MI 26588  MOVEA.L (A5+0x8),A7>                         
                <MI 2658c  MOVEA.W #0x0,A6>                             
                <MI 26590  JMP     0x267a4>                             
        <POP 26596-2659e Naked>                              Σ0         ↓ ←0x262e2 ←0x263c4 ←0x263cc ←0x263f6 ←0x2654c ←0x26576
            <MI 26596  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x26598 0x22de6>                                              {[4, '(A6-0x6)']}
            <POP 2659c-2659e StackAdj>                       Δ+4                {}
        <POP 2659e-265b6 Naked>                              Σ0         ↓ →0x26290 ←0x26290
            <MI 2659e  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 265a0  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']|[4, 'D6']}
            <MI 265a2  SUB.L   D7,(A7)>                                         {[4, 'D6']|[-4-]}
            <Call 0x265a4 0x23384>                                              {[4, 'D6']|[-4-]}
            <POP 265a8-265aa StackAdj>                       Δ+8                {}
            <MI 265aa  MOVE.L  D7,0x2797e>                                      {}
            <MI 265ac  TST.B   (A6-0xc)>                                        {}
            <MI 265b0  BEQ     0x26290>                                         {}
        <POP 265b6-265be Epilogue>                           Σ0         

0x265be


@ 265be
START
    <POP 265be--0001 Body>                                              
        <POP 265be-265c8 Prologue>                           Σ0         
        <POP 265c8-265f8 Naked>                              Σ0         ↓ →0x26660
            <MI 265c8  MOVE.L  #0x1,0x279a8>                                    {}
            <POP 265d2-265d4 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x265d4 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 265da  MOVE.L  (A7)+,0x279ac>                Δ+4                {}
            <Const 0x265e0 0x27986.4>                        Δ-4                {[##162182]}
            <Call 0x265e6 0x22682>                                              {[##162182]}
            <POP 265ec-265ee StackAdj>                       Δ+4                {}
            <MI 265ee  MOVEA.L 0x279ac,A0>                                      {}
            <MI 265f4  TST.W   (A0)>                                            {}
            <MI 265f6  BLE     0x26660>                                         {}
        <POP 265f8-26660 Naked>                              Σ0         →0x2669a
            <Blob 0x265f8 [8] @>                             Δ-8                {[«8""»]}
            <Blob 0x26608 [8] @>                             Δ-8                {[«8""»]|[«8""»]}
            <POP 26618-2661a StackAdj>                       Δ-8                {[«8""»]|[«8""»]|[-8-]}
            <Lit 0x2661a 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <POP 2662c-2662e StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
            <POP 2662e-2662f StackAdj>                       Δ+4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
            <Blob 0x2662f [4] 0x279ac>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
            <POP 26634-26636 StackAdj>                       Δ-4                {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
            <Lit 0x26636 7>                                                     {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
            <Call 0x2664a 0x102d4>                                              {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
                StringCat3(a, b, c : String) : String
            <POP 26650-26654 StackAdj>                       Δ+12               {[«8""»]|[«8""»]|[-4-]}
            <MI 26654  MOVE.L  (A7)+,0x279ac>                Δ+4                {[«8""»]|[«8""»]}
            <POP 2665a-2665e StackAdj>                       Δ+16               {}
            <MI 2665e  BRA     0x2669a>                                         {}
        <POP 26660-2669a Naked>                              Σ0         ↓ ←0x265c8
            <Const 0x26660 0x279ac.4>                        Δ-4                {[##162220]}
            <Call 0x26666 0x102bc>                                              {[##162220]}
                FreeString(VAR a : String)
            <POP 2666c-2666d StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2666d [8] @>                             Δ-8                {[«8""»]}
            <POP 2667c-2667e StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x2667e 7>                                                     {[«8""»]|[$$[INIT];]}
            <MI 26692  MOVE.L  (A7)+,0x279ac>                Δ+4                {[«8""»]}
            <POP 26698-2669a StackAdj>                       Δ+8                {}
        <POP 2669a-266a2 Naked>                              Σ0         ↓ ←0x265f8
            <MI 2669a  MOVE.B  #0x01,0x279b6>                                   {}
        <POP 266a2-266aa Naked>                              Σ0         ↓ →0x266b6 ←0x267b2
            <MI 266a2  TST.B   0x279b6>                                         {}
            <MI 266a8  BEQ     0x266b6>                                         {}
        <POP 266aa-266b6 Naked>                              Σ0         →0x26764
            <MI 266aa  CLR.B   0x279b6>                                         {}
            <MI 266b0  BRA     0x26764>                                         {}
        <POP 266b6-26764 Naked>                              Σ0         ↓ ←0x266a2
            <Blob 0x266b6 [10] 0x27990>                      Δ-10               {[«10»]}
            <Blob 0x266c4 [2] @>                             Δ-2                {[«10»]|[«2""»]}
            <POP 266c8-266cc StackAdj>                       Δ-12               {[«10»]|[«2""»]|[-12-]}
            <Lit 0x266cc>                                                       {[«10»]|[«2""»]|[-8-]|[$$…]}
                <Pointer.sp 0x266cc 14>                      Δ-4        
                <Const 0x266d0 0x1.2>                        Δ-2        
                <Const 0x266d4 0xa.2>                        Δ-2        
                <Call 0x266d8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 266de-266e0 StackAdj>                   Δ+8        
            <POP 266de-266e0 StackAdj>                       Δ-4                {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
            <Lit 0x266e0 2>                                                     {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
            <Call 0x266f4 0x102d0>                                              {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
                StringCat2(a, b : String) : String
            <POP 266fa-266fc StackAdj>                       Δ+8                {[«10»]|[«2""»]|[-8-]}
            <Call 0x266fc 0x103e4>                                              {[«10»]|[«2""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 26702-26704 StackAdj>                       Δ+4                {[«10»]|[«2""»]|[-4-]}
            <MI 26704  MOVE.L  (A7)+,0x279b2>                Δ+4                {[«10»]|[«2""»]}
            <POP 2670a-2670c StackAdj>                       Δ+8                {[-4-]}
            <POP 2670c-2670d StackAdj>                       Δ+4                {}
            <Blob 0x2670d [4] 0x279b2>                       Δ-4                {[«4»]}
            <Call 0x26712 0x23084>                                              {[«4»]}
            <POP 26716-26718 StackAdj>                       Δ+2                {[-2-]}
            <POP 26718-26719 StackAdj>                       Δ+2                {}
            <Blob 0x26719 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2671c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <POP 26720-26722 StackAdj>                       Δ-8                {[«2""»]|[«2""»]|[-8-]}
            <Lit 0x26722 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <POP 26734-26736 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
            <POP 26736-26737 StackAdj>                       Δ+4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
            <Blob 0x26737 [4] 0x279b2>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
            <POP 2673c-2673e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
            <Lit 0x2673e 2>                                                     {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
            <Call 0x26752 0x102d4>                                              {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
                StringCat3(a, b, c : String) : String
            <POP 26758-2675c StackAdj>                       Δ+12               {[«2""»]|[«2""»]|[-4-]}
            <MI 2675c  MOVE.L  (A7)+,0x279ac>                Δ+4                {[«2""»]|[«2""»]}
            <POP 26762-26764 StackAdj>                       Δ+4                {}
        <POP 26764-26790 Naked>                              Σ0         ↓ ←0x266aa
            <MI 26764  CLR.B   0x279b0>                                         {}
            <MI 2676a  MOVE.L  #0x1,0x2797e>                                    {}
            <MI 26774  CLR.L   0x27982>                                         {}
            <POP 2677a-2677c StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x2677c [4] 0x279ac>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x26782 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 26788-2678a StackAdj>                       Δ+4                {[-4-]}
            <Call 0x2678a 0x23c08>                                              {[-4-]}
            <POP 2678e-26790 StackAdj>                       Δ+4                {}
        <POP 26790-2679e Naked>                              Σ0         ↓ →0x267a4 ←0x2679e
            <MI 26790  MOVE.L  0x2797e,D0>                                      {}
            <MI 26796  CMP.L   0x27982,D0>                                      {}
            <MI 2679c  BGT     0x267a4>                                         {}
        <POP 2679e-267a4 Naked>                              Σ0         →0x26790
            <Call 0x2679e 0x2626c>                                              {}
            <MI 267a2  BRA     0x26790>                                         {}
        <POP 267a4-267b2 Naked>                              Σ0         ↓ ←0x26790
            <Const 0x267a4 0x279ac.4>                        Δ-4                {[##162220]}
            <Call 0x267aa 0x102bc>                                              {[##162220]}
                FreeString(VAR a : String)
            <POP 267b0-267b2 StackAdj>                       Δ+4                {}
        <POP 267b2-267b8 Naked>                              Σ0         →0x266a2
            <MI 267b2  BRA     0x266a2>                                         {}

0x26812


@ 26812
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 26812-2694e Body>                                              
        <POP 26812-26828 Prologue>                           Σ0         ↓
        <POP 26828-2683e RegCacheLoad>                       Σ0         ↓
        <POP 2683e-2689e Naked>                              Σ0         ↓ →0x268e6
            <Call 0x2683e 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x26844 [18] @>                            Δ-18               {[«18""»]}
            <POP 26850-26852 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x26852 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2685e 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 26860-26861 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x26861 [14] @>                            Δ-14               {[«14""»]}
            <POP 26870-26872 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x26872 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2687c-2687e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2687e  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x26882 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 26888-2688a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x2688a 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 26890-26892 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x26892 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 26894-26896 StackAdj>                       Δ+18               {}
            <MI 26896  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 2689a  CMPA.W  #0x01,A0>                                        {}
            <MI 2689c  BEQ     0x268e6>                                         {}
        <POP 2689e-268e6 Naked>                              Σ0         ↓
            <Blob 0x2689e [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x268ae [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 268be-268c0 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x268c0 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 268ca-268cc StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x268cc>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x268cc 12>                      Δ-4        
                <Const 0x268d0 0x1.2>                        Δ-2        
                <Const 0x268d2 0x1e.2>                       Δ-2        
                <Call 0x268d4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 268d6-268d8 StackAdj>                   Δ+8        
            <Call 0x268d8 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 268de-268e0 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x268e0 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 268e2-268e6 StackAdj>                       Δ+48               {}
        <POP 268e6-26946 Naked>                              Σ0         ↓ ←0x2683e
            <Blob 0x268e6 [14] @>                            Δ-14               {[«14""»]}
            <POP 268f6-268f8 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x268f8 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 26902-26904 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 26904  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x26908 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2690e-26910 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x26910 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 26916-26918 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x26918 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2691a-2691b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2691b [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2692a 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2692e-26930 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x26930 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2693e 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 26944-26946 StackAdj>                       Δ+30               {}
        <POP 26946-2694e Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.87714101b3ba6986
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 65 be              |  e     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 79 c2              |  y     |		.PTR	0x279c2
00020010					code.end:
00020010 00 02 69 4e              |  iN    |		.PTR	0x2694e
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 0c 5e              |   ^    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 68 12              |  h     |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020118 52 75 6e 6e              |Runn    |		.TXT	'Runn'
0002011c 69 6e 67 20              |ing     |		.TXT	'ing '
00020120 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
00020124 50 20                    |P       |		.TXT	'P '
00020126 46 52                    |FR      |		.TXT	'FR'
00020128 55 20                    |U       |		.XXX[0x2]
0002012a 43 4f 4e 46 49 47 55 52  |CONFIGUR|		.TXT	'CONFIGURE '
00020134 43 4f 4e 46 49 47 55 52  |CONFIGUR|		.TXT	'CONFIGURE '
0002013e 20 46 61 69 6c 65 64 20  | Failed |		.TXT	' Failed '
00020146 54 68 65 20 74 65 73 74  |The test|		.TXT	'The test that found the failure was_'
0002016a 2e 45 52 52              |.ERR    |		.TXT	'.ERR'
0002016e 4d 45 53 53              |MESS    |		.TXT	'MESS'
00020172 46 69 65 6c 64 20 72 65  |Field re|		.TXT	'Field replaceable units :_'
0002018c 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
00020190 4c 49 54 53              |LITS    |		.TXT	'LITS'
00020194 2e 54 58 54              |.TXT    |		.TXT	'.TXT'
00020198 44 69 61 67 6e 6f 73 74  |Diagnost|		.TXT	'Diagnostic Failed '
000201aa 49 4e 49 54 53 54 41 54  |INITSTAT|		.TXT	'INITSTATE '
000201b4 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
000201be 49 4f 41 20 20 20 20 20  |IOA     |		.TXT	'IOA       '
000201c8 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
000201d2 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
000201dc 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
000201e6 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
000201f0 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
000201fa 4d 45 4d 30 20 20 20 20  |MEM0    |		.TXT	'MEM0      '
00020204 4d 45 4d 31 20 20 20 20  |MEM1    |		.TXT	'MEM1      '
0002020e 4d 45 4d 32 20 20 20 20  |MEM2    |		.TXT	'MEM2      '
00020218 4d 45 4d 33 20 20 20 20  |MEM3    |		.TXT	'MEM3      '
00020222 46 4f 52 45 50 4c 41 4e  |FOREPLAN|		.TXT	'FOREPLANE '
0002022c 31 20                    |1       |		.TXT	'1 '
0002022e 32 20                    |2       |		.TXT	'2 '
00020230 54 45 53 54 5f 46 52 55  |TEST_FRU|		.TXT	'TEST_FRU  '
0002023a 49 4f                    |IO      |		.TXT	'IO'
0002023c 43 20                    |C       |		.XXX[0x2]
0002023e 4e 6f 74 20              |Not     |		.TXT	'Not '
00020242 61 20 76 61              |a va    |		.TXT	'a va'
00020246 6c 69 64 20              |lid     |		.TXT	'lid '
0002024a 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
0002024e 50 41                    |PA      |		.TXT	'PA'
00020250 53 53                    |SS      |		.TXT	'SS'
00020252 45 44                    |ED      |		.TXT	'ED'
00020254 49 4f 41 20              |IOA     |		.XXX[0x4]
00020258 20 20 20 20 20 20        |        |		.XXX[0x6]
0002025e 57 49 44 47 45 54 20 20  |WIDGET  |		.TXT	'WIDGET    '
00020268 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
00020272 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
0002027c 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
00020286 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
00020290 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
0002029a 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
000202a4 41 4c 4c 4d 45 4d 20 20  |ALLMEM  |		.TXT	'ALLMEM    '
000202ae 46 49 55 5f 4d 45 4d 20  |FIU_MEM |		.TXT	'FIU_MEM   '
000202b8 54 56 53 53 20 20 20 20  |TVSS    |		.TXT	'TVSS      '
000202c2 4e 4f 54 5f 4d 45 4d 20  |NOT_MEM |		.TXT	'NOT_MEM   '
000202cc 4d 45 4d 30 20 20 20 20  |MEM0    |		.TXT	'MEM0      '
000202d6 4d 45 4d 31 20 20 20 20  |MEM1    |		.TXT	'MEM1      '
000202e0 4d 45 4d 32 20 20 20 20  |MEM2    |		.TXT	'MEM2      '
000202ea 4d 45 4d 33 20 20 20 20  |MEM3    |		.TXT	'MEM3      '
000202f4 49 4f                    |IO      |		.TXT	'IO'
000202f6 43 20                    |C       |		.XXX[0x2]
000202f8 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
00020302 43 4f 4e 44 20 20 20 20  |COND    |		.TXT	'COND      '
0002030c 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
00020316 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
00020320 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
0002032a 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
00020334 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
0002033e 4d 45 4d 20 20 20 20 20  |MEM     |		.TXT	'MEM       '
00020348 43 53 41 20 20 20 20 20  |CSA     |		.TXT	'CSA       '
00020352 4d 4d 20 20 20 20 20 20  |MM      |		.TXT	'MM        '
0002035c 50 52 49 56 20 20 20 20  |PRIV    |		.TXT	'PRIV      '
00020366 43 4c 41 53 53 20 20 20  |CLASS   |		.TXT	'CLASS     '
00020370 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x38]
000203a8 20 20 20 20              |        |		.BLANK	20[0x4]
000203ac 54 41 47 53 20 20 20 20  |TAGS    |		.TXT	'TAGS      '
000203b6 44 52 41 4d 20 20 20 20  |DRAM    |		.TXT	'DRAM      '
000203c0 56 52 46 20 20 20 20 20  |VRF     |		.TXT	'VRF       '
000203ca 54 52 46 20 20 20 20 20  |TRF     |		.TXT	'TRF       '
000203d4 53 59 53 42 55 46 46 45  |SYSBUFFE|		.TXT	'SYSBUFFERS'
000203de 44 49 53 50 20 20 20 20  |DISP    |		.TXT	'DISP      '
000203e8 45 43 43 20 20 20 20 20  |ECC     |		.TXT	'ECC       '
000203f2 54 49 4d 45 52 53 20 20  |TIMERS  |		.TXT	'TIMERS    '
000203fc 50 41 54 48 53 20 20 20  |PATHS   |		.TXT	'PATHS     '
00020406 53 50 41 52 45 30 20 20  |SPARE0  |		.TXT	'SPARE0    '
00020410 53 50 41 52 45 31 20 20  |SPARE1  |		.TXT	'SPARE1    '
0002041a 53 50 41 52 45 32 20 20  |SPARE2  |		.TXT	'SPARE2    '
00020424 53 50 41 52 45 33 20 20  |SPARE3  |		.TXT	'SPARE3    '
0002042e 53 50 41 52 45 34 20 20  |SPARE4  |		.TXT	'SPARE4    '
00020438 49 4f                    |IO      |		.TXT	'IO'
0002043a 43 20                    |C       |		.XXX[0x2]
0002043c 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal board name for RUN command_ '
00020460 50 32 55 43 4f 44 45 20  |P2UCODE |		.TXT	'P2UCODE '
00020468 50 33 55 43 4f 44 45 20  |P3UCODE |		.XXX[0x8]
00020470 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown test :_ '
00020480 52 55 4e 20 20 20 20 20  |RUN     |		.TXT	'RUN       '
0002048a 54 45 53 54 20 50 41 53  |TEST PAS|		.TXT	'TEST PASSED '
00020496 2e 45 52 52              |.ERR    |		.TXT	'.ERR'
0002049a 4d 45 53 53              |MESS    |		.TXT	'MESS'
0002049e 45 52 52 4d 45 53 53 20  |ERRMESS |		.TXT	'ERRMESS   '
000204a8 4f 4e                    |ON      |		.TXT	'ON'
000204aa 4f 46                    |OF      |		.TXT	'OF'
000204ac 46 20                    |F       |		.XXX[0x2]
000204ae 41 72 67 75 6d 65 6e 74  |Argument|		.TXT	'Arguments for command are ON or OFF '
000204d2 49 53 4f 4c 41 54 45 20  |ISOLATE |		.TXT	'ISOLATE   '
000204dc 54 52 41 43 45 20 20 20  |TRACE   |		.TXT	'TRACE     '
000204e6 55 4c 4f 41 44 20 20 20  |ULOAD   |		.TXT	'ULOAD     '
000204f0 4e 4f 52 4d 41 4c 20 20  |NORMAL  |		.TXT	'NORMAL    '
000204fa 48 49 47 48 20 20 20 20  |HIGH    |		.TXT	'HIGH      '
00020504 4c 4f 57 20 20 20 20 20  |LOW     |		.TXT	'LOW       '
0002050e 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020518 4e 4f 52 4d 41 4c 20 20  |NORMAL  |		.TXT	'NORMAL    '
00020522 46 41 53 54 20 20 20 20  |FAST    |		.TXT	'FAST      '
0002052c 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020536 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020540 45 52 52 4f 52 20 2d 20  |ERROR - |		.TXT	'ERROR - POWER can be margined HIGH, NORMAL, or LOW'
00020572 45 52 52 4f 52 20 2d 20  |ERROR - |		.TXT	'ERROR - CLOCK can be margined FAST or NORMAL'
0002059e 45 52 52 4f 52 20 2d 20  |ERROR - |		.TXT	'ERROR - You can only margin POWER or CLOCK'
000205c8 4d 41 52 47 49 4e 20 20  |MARGIN  |		.TXT	'MARGIN    '
000205d2 50 4f 57 45 52 20        |POWER   |		.TXT	'POWER '
000205d8 43 4c 4f 43 4b 20        |CLOCK   |		.TXT	'CLOCK '
000205de 54 45 53 54 20 20 20 20  |TEST    |		.TXT	'TEST      '
000205e8 52 55 4e 20 20 20 20 20  |RUN     |		.TXT	'RUN       '
000205f2 45 52 52 4d 45 53 53 20  |ERRMESS |		.TXT	'ERRMESS   '
000205fc 49 4e 49 54 5f 53 54 41  |INIT_STA|		.TXT	'INIT_STATE'
00020606 49 53 4f 4c 41 54 45 20  |ISOLATE |		.TXT	'ISOLATE   '
00020610 54 52 41 43 45 20 20 20  |TRACE   |		.TXT	'TRACE     '
0002061a 55 4c 4f 41 44 20 20 20  |ULOAD   |		.TXT	'ULOAD     '
00020624 4d 41 52 47 49 4e 20 20  |MARGIN  |		.TXT	'MARGIN    '
0002062e 50 4f 57 45 52 44 4f 57  |POWERDOW|		.TXT	'POWERDOWN '
00020638 54 68 69 73 20 69 73 20  |This is |		.XXX[0x1e8]
00020640 61 20 53 65 72 69 65 73  |a Series|
00020648 20 31 30 30 20 52 31 30  | 100 R10|
00020650 30 30 20 50 72 6f 63 65  |00 Proce|
00020658 73 73 6f 72 2e 20 20 54  |ssor.  T|
00020660 68 65 20 70 72 6f 63 65  |he proce|
00020668 73 73 6f 72 20 62 6f 61  |ssor boa|
00020670 72 64 73 20 6d 61 79 20  |rds may |
00020678 62 65 70 6f 77 65 72 65  |bepowere|
00020680 64 20 6f 66 66 20 61 6e  |d off an|
00020688 64 20 6f 6e 20 75 6e 64  |d on und|
00020690 65 72 20 70 72 6f 67 72  |er progr|
00020698 61 6d 20 63 6f 6e 74 72  |am contr|
000206a0 6f 6c 2e 20 20 54 68 65  |ol.  The|
000206a8 20 49 2f 4f 20 41 64 61  | I/O Ada|
000206b0 70 74 6f 72 20 28 49 4f  |ptor (IO|
000206b8 41 29 20 70 6f 77 65 72  |A) power|
000206c0 69 73 20 63 6f 6e 74 72  |is contr|
000206c8 6f 6c 6c 65 64 20 6f 6e  |olled on|
000206d0 6c 79 20 62 79 20 74 68  |ly by th|
000206d8 65 20 66 72 6f 6e 74 20  |e front |
000206e0 70 61 6e 65 6c 20 6b 65  |panel ke|
000206e8 79 20 73 77 69 74 63 68  |y switch|
000206f0 2e 20 20 54 68 69 73 20  |.  This |
000206f8 63 6f 6d 6d 61 6e 64 20  |command |
00020700 6d 61 79 20 6f 6e 6c 79  |may only|
00020708 20 62 65 20 75 73 65 64  | be used|
00020710 20 74 6f 20 72 65 6d 6f  | to remo|
00020718 76 65 20 70 6f 77 65 72  |ve power|
00020720 20 66 72 6f 6d 20 74 68  | from th|
00020728 65 20 53 59 53 2c 20 54  |e SYS, T|
00020730 59 50 2c 20 56 41 4c 2c  |YP, VAL,|
00020738 20 53 45 51 2c 20 46 49  | SEQ, FI|
00020740 55 2c 20 61 6e 64 20 4d  |U, and M|
00020748 45 4d 62 6f 61 72 64 73  |EMboards|
00020750 2e 20 44 6f 20 79 6f 75  |. Do you|
00020758 20 72 65 61 6c 6c 79 20  | really |
00020760 77 61 6e 74 20 74 6f 20  |want to |
00020768 74 75 72 6e 20 74 68 65  |turn the|
00020770 20 52 31 30 30 30 20 70  | R1000 p|
00020778 72 6f 63 65 73 73 6f 72  |rocessor|
00020780 20 70 6f 77 65 72 20 6f  | power o|
00020788 66 66 54 68 65 20 52 31  |ffThe R1|
00020790 30 30 30 20 70 72 6f 63  |000 proc|
00020798 65 73 73 6f 72 20 70 6f  |essor po|
000207a0 77 65 72 20 68 61 73 20  |wer has |
000207a8 62 65 65 6e 20 74 75 72  |been tur|
000207b0 6e 65 64 20 6f 66 66 2e  |ned off.|
000207b8 20 20 49 4f 41 20 70 6f  |  IOA po|
000207c0 77 65 72 20 69 73 20 73  |wer is s|
000207c8 74 69 6c 6c 20 6f 6e 21  |till on!|
000207d0 59 6f 75 20 6d 61 79 20  |You may |
000207d8 63 68 61 6e 67 65 20 43  |change C|
000207e0 50 55 20 62 6f 61 72 64  |PU board|
000207e8 73 20 6e 6f 77 2e 41 72  |s now.Ar|
000207f0 65 20 79 6f 75 20 72 65  |e you re|
000207f8 61 64 79 20 74 6f 20 74  |ady to t|
00020800 75 72 6e 20 74 68 65 20  |urn the |
00020808 52 31 30 30 30 20 70 72  |R1000 pr|
00020810 6f 63 65 73 73 6f 72 20  |ocessor |
00020818 70 6f 77 65 72 20 6f 6e  |power on|
00020820 54 68 69 73 20 69 73 20  |This is |		.TXT	'This is a Series 200 R1000 Processor.  Power to this processor may not'
00020866 62 65 20 63 6f 6e 74 72  |be contr|		.TXT	'be controlled programatically.  To turn the processor off or on use the '
000208ae 6b 65 79 20 73 77 69 74  |key swit|		.TXT	'key switch on the System Control Panel. '
000208d6 4d 75 6c 74 69 2d 70 72  |Multi-pr|		.TXT	'Multi-processors do not have power control! '
00020902 57 61 72 6e 69 6e 67 3a  |Warning:|		.TXT	'Warning: This is a multi-processor! '
00020926 52 75 6e 6e 69 6e 67 20  |Running |		.TXT	'Running certain FRU's may crash other nodes!'
00020952					t_DIAG_:
00020952 44 49 41 47 20 20 20 20  |DIAG    |		.TXT	'DIAG      '
0002095c 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
00020966 49 4f 41 20 20 20 20 20  |IOA     |		.TXT	'IOA       '
00020970 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
0002097a 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
00020984 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
0002098e 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
00020998 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
000209a2 4d 45 4d 30 20 20 20 20  |MEM0    |		.TXT	'MEM0      '
000209ac 4d 45 4d 31 20 20 20 20  |MEM1    |		.TXT	'MEM1      '
000209b6 4d 45 4d 32 20 20 20 20  |MEM2    |		.TXT	'MEM2      '
000209c0 4d 45 4d 33 20 20 20 20  |MEM3    |		.TXT	'MEM3      '
000209ca 46 4f 52 45 50 4c 41 4e  |FOREPLAN|		.TXT	'FOREPLANE '
000209d4 49 4f 41 20 20 20 20 20  |IOA     |		.TXT	'IOA       '
000209de 57 49 44 47 45 54 20 20  |WIDGET  |		.TXT	'WIDGET    '
000209e8 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
000209f2 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
000209fc 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
00020a06 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
00020a10 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
00020a1a 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
00020a24 41 4c 4c 4d 45 4d 20 20  |ALLMEM  |		.TXT	'ALLMEM    '
00020a2e 46 49 55 5f 4d 45 4d 20  |FIU_MEM |		.TXT	'FIU_MEM   '
00020a38 54 56 53 53 20 20 20 20  |TVSS    |		.TXT	'TVSS      '
00020a42 4e 4f 54 5f 4d 45 4d 20  |NOT_MEM |		.TXT	'NOT_MEM   '
00020a4c 4d 45 4d 30 20 20 20 20  |MEM0    |		.TXT	'MEM0      '
00020a56 4d 45 4d 31 20 20 20 20  |MEM1    |		.TXT	'MEM1      '
00020a60 4d 45 4d 32 20 20 20 20  |MEM2    |		.TXT	'MEM2      '
00020a6a 4d 45 4d 33 20 20 20 20  |MEM3    |		.TXT	'MEM3      '
00020a74					TXTTBL__ALL_COND_SYS_VAL...:
00020a74 41 4c 4c 20 20 20 20 20  |ALL     |		.TXT	'ALL       '
00020a7e 43 4f 4e 44 20 20 20 20  |COND    |		.TXT	'COND      '
00020a88 53 59 53 20 20 20 20 20  |SYS     |		.TXT	'SYS       '
00020a92 56 41 4c 20 20 20 20 20  |VAL     |		.TXT	'VAL       '
00020a9c 54 59 50 20 20 20 20 20  |TYP     |		.TXT	'TYP       '
00020aa6 53 45 51 20 20 20 20 20  |SEQ     |		.TXT	'SEQ       '
00020ab0 46 49 55 20 20 20 20 20  |FIU     |		.TXT	'FIU       '
00020aba 4d 45 4d 20 20 20 20 20  |MEM     |		.TXT	'MEM       '
00020ac4 43 53 41 20 20 20 20 20  |CSA     |		.TXT	'CSA       '
00020ace 4d 4d 20 20 20 20 20 20  |MM      |		.TXT	'MM        '
00020ad8 50 52 49 56 20 20 20 20  |PRIV    |		.TXT	'PRIV      '
00020ae2 43 4c 41 53 53 20 20 20  |CLASS   |		.TXT	'CLASS     '
00020aec 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020af6 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020b00 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020b0a 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020b14 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020b1e 20 20 20 20 20 20 20 20  |        |		.TXT	'          '
00020b28 54 41 47 53 20 20 20 20  |TAGS    |		.TXT	'TAGS      '
00020b32 44 52 41 4d 20 20 20 20  |DRAM    |		.TXT	'DRAM      '
00020b3c 56 52 46 20 20 20 20 20  |VRF     |		.TXT	'VRF       '
00020b46 54 52 46 20 20 20 20 20  |TRF     |		.TXT	'TRF       '
00020b50 53 59 53 42 55 46 46 45  |SYSBUFFE|		.TXT	'SYSBUFFERS'
00020b5a 44 49 53 50 20 20 20 20  |DISP    |		.TXT	'DISP      '
00020b64 45 43 43 20 20 20 20 20  |ECC     |		.TXT	'ECC       '
00020b6e 54 49 4d 45 52 53 20 20  |TIMERS  |		.TXT	'TIMERS    '
00020b78 50 41 54 48 53 20 20 20  |PATHS   |		.TXT	'PATHS     '
00020b82 53 50 41 52 45 30 20 20  |SPARE0  |		.TXT	'SPARE0    '
00020b8c 53 50 41 52 45 31 20 20  |SPARE1  |		.TXT	'SPARE1    '
00020b96 53 50 41 52 45 32 20 20  |SPARE2  |		.TXT	'SPARE2    '
00020ba0 53 50 41 52 45 33 20 20  |SPARE3  |		.TXT	'SPARE3    '
00020baa 53 50 41 52 45 34 20 20  |SPARE4  |		.TXT	'SPARE4    '
00020bb4					TXTTBL_POWER_MARGINS:
00020bb4 4e 4f 52 4d 41 4c 20 20  |NORMAL  |		.TXT	'NORMAL    '
00020bbe 48 49 47 48 20 20 20 20  |HIGH    |		.TXT	'HIGH      '
00020bc8 4c 4f 57 20 20 20 20 20  |LOW     |		.TXT	'LOW       '
00020bd2 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020bdc					TXTTBL_CLOCK_MARGINS:
00020bdc 4e 4f 52 4d 41 4c 20 20  |NORMAL  |		.TXT	'NORMAL    '
00020be6 46 41 53 54 20 20 20 20  |FAST    |		.TXT	'FAST      '
00020bf0 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020bfa 49 4c 4c 45 47 41 4c 20  |ILLEGAL |		.TXT	'ILLEGAL   '
00020c04					TXTTBL_CMDS:
00020c04 54 45 53 54 20 20 20 20  |TEST    |		.TXT	'TEST      '
00020c0e 52 55 4e 20 20 20 20 20  |RUN     |		.TXT	'RUN       '
00020c18 45 52 52 4d 45 53 53 20  |ERRMESS |		.TXT	'ERRMESS   '
00020c22 49 4e 49 54 5f 53 54 41  |INIT_STA|		.TXT	'INIT_STATE'
00020c2c 49 53 4f 4c 41 54 45 20  |ISOLATE |		.TXT	'ISOLATE   '
00020c36 54 52 41 43 45 20 20 20  |TRACE   |		.TXT	'TRACE     '
00020c40 55 4c 4f 41 44 20 20 20  |ULOAD   |		.TXT	'ULOAD     '
00020c4a 4d 41 52 47 49 4e 20 20  |MARGIN  |		.TXT	'MARGIN    '
00020c54 50 4f 57 45 52 44 4f 57  |POWERDOW|		.TXT	'POWERDOWN '
00020c5e ; --------------------------------------------------------------------------------------
00020c5e ; OMSI PASCAL Function
00020c5e ;    <LVAR  0x008 1(r)>
00020c5e ; --------------------------------------------------------------------------------------
00020c5e					PROG_FAIL:
00020c5e 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020c62 bf d5                    |        |		CMPA.L	(A5),A7
00020c64 62 06                    |b       |		BHI	0x20c6c
00020c66 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c6a 4e 76                    |Nv      |		TRAPV
00020c6c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020c70 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020c74 41 fa f4 a2              |A       |		LEA.L	0x20118,A0
00020c78 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020c7a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c7c 51 c8 ff fc              |Q       |		DBF	D0,0x20c7a
00020c80 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020c84 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c86 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020c8a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c8e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020c92 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c98 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c9a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020c9e 48 80                    |H       |		EXTB.W	D0
00020ca0 48 c0                    |H       |		EXTW.L	D0
00020ca2 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020ca4 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020caa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020cac 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020cb2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cb4 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020cba de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cbe 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020cc2 4e 5e                    |N^      |		UNLK	A6
00020cc4 4e 75                    |Nu      |		RTS
00020cc6 ; --------------------------------------------------------------------------------------
00020cc6 ; OMSI PASCAL Function
00020cc6 ;    <LVAR  0x02a 4(r)>
00020cc6 ;    <LVAR  0x028 1(r)>
00020cc6 ;    <LVAR  0x026 1(r)>
00020cc6 ;    <LVAR  0x024 1(r)>
00020cc6 ;    <LVAR  0x020 4(r)>
00020cc6 ;    <LVAR  0x01c 4(r)>
00020cc6 ;    <LVAR  0x018 4(r)>
00020cc6 ;    <LVAR  0x014 4(r)>
00020cc6 ;    <LVAR  0x010 4(r)>
00020cc6 ;    <LVAR  0x00c 4(r)>
00020cc6 ;    <LVAR  0x008 4(r)>
00020cc6 ; --------------------------------------------------------------------------------------
00020cc6 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00020cca bf d5                    |        |		CMPA.L	(A5),A7
00020ccc 62 06                    |b       |		BHI	0x20cd4
00020cce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cd2 4e 76                    |Nv      |		TRAPV
00020cd4 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00020cd8 48 e7 c0 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D1+D0,-(A7)
00020cdc 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020ce0 45 f9 00 01 05 2c        |E    ,  |		LEA.L	IPC_GetString(VAR retval : String),A2
00020ce6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020ce8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020cea 3f 3a f4 38              |?: 8    |		MOVE.W	0x20124,-(A7)
00020cee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020cf0 1e ba f4 34              |   4    |		MOVE.B	0x20126,(A7)
00020cf4 1f 7a f4 31 00 01        | z 1    |		MOVE.B	0x20127,(A7+0x1)
00020cfa 1f 7a f4 2c 00 02        | z ,    |		MOVE.B	0x20128,(A7+0x2)
00020d00 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d02 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020d06 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d08 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020d0c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d12 2e ae 00 2a              |.  *    |		MOVE.L	(A6+0x2a),(A7)
00020d16 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020d1c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020d20 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d22 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020d26 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d2e 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020d34 de c0                    |        |		ADDA.W	D0,A7
00020d36 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020d38 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d3a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020d40 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
00020d44 48 57                    |HW      |		PEA.L	(A7)
00020d46 48 51                    |HQ      |		PEA.L	(A1)
00020d48 48 51                    |HQ      |		PEA.L	(A1)
00020d4a 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020d50 de c0                    |        |		ADDA.W	D0,A7
00020d52 1e ae 00 26              |   &    |		MOVE.B	(A6+0x26),(A7)
00020d56 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020d5c 1e ae 00 24              |   $    |		MOVE.B	(A6+0x24),(A7)
00020d60 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020d66 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d68 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020d6e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020d72 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020d74 48 78 00 01              |Hx      |		PEA.L	0x1
00020d78 1f 01                    |        |		MOVE.B	D1,-(A7)
00020d7a 48 50                    |HP      |		PEA.L	(A0)
00020d7c 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020d82 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020d86 4a 10                    |J       |		TST.B	(A0)
00020d88 66 5e                    |f^      |		BNE	0x20de8
00020d8a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020d90 20 6e 00 20              | n      |		MOVEA.L	(A6+0x20),A0
00020d94 48 50                    |HP      |		PEA.L	(A0)
00020d96 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020d9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d9e 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
00020da2 48 50                    |HP      |		PEA.L	(A0)
00020da4 4e 92                    |N       |		JSR	(A2)
00020da6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020da8 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00020dac 48 50                    |HP      |		PEA.L	(A0)
00020dae 4e 92                    |N       |		JSR	(A2)
00020db0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020db2 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020db6 48 50                    |HP      |		PEA.L	(A0)
00020db8 4e 92                    |N       |		JSR	(A2)
00020dba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dbc 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020dc0 48 50                    |HP      |		PEA.L	(A0)
00020dc2 48 51                    |HQ      |		PEA.L	(A1)
00020dc4 48 51                    |HQ      |		PEA.L	(A1)
00020dc6 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020dcc de c0                    |        |		ADDA.W	D0,A7
00020dce 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020dd2 48 50                    |HP      |		PEA.L	(A0)
00020dd4 48 51                    |HQ      |		PEA.L	(A1)
00020dd6 48 78 00 07              |Hx      |		PEA.L	0x7
00020dda 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020de0 de c0                    |        |		ADDA.W	D0,A7
00020de2 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020de8 4c df 17 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A4
00020dec 4e 5e                    |N^      |		UNLK	A6
00020dee 4e 75                    |Nu      |		RTS
00020df0 ; --------------------------------------------------------------------------------------
00020df0 ; OMSI PASCAL Function
00020df0 ;    <LVAR  0x010 4(r)>
00020df0 ;    <LVAR  0x00c 4(r)>
00020df0 ;    <LVAR  0x008 4(r)>
00020df0 ; --------------------------------------------------------------------------------------
00020df0 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00020df4 bf d5                    |        |		CMPA.L	(A5),A7
00020df6 62 06                    |b       |		BHI	0x20dfe
00020df8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020dfc 4e 76                    |Nv      |		TRAPV
00020dfe de fc 00 14              |        |		ADDA.W	#0x14,A7
00020e02 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020e06 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020e0c 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020e10 48 50                    |HP      |		PEA.L	(A0)
00020e12 48 78 00 00              |Hx      |		PEA.L	0x0
00020e16 48 78 00 00              |Hx      |		PEA.L	0x0
00020e1a 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020e20 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020e24 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020e28 48 50                    |HP      |		PEA.L	(A0)
00020e2a 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020e30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e32 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020e36 48 50                    |HP      |		PEA.L	(A0)
00020e38 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020e3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e40 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020e46 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020e4a 4e 5e                    |N^      |		UNLK	A6
00020e4c 4e 75                    |Nu      |		RTS
00020e4e ; --------------------------------------------------------------------------------------
00020e4e ; OMSI PASCAL Function
00020e4e ;    <LVAR  0x01e 1(r)>
00020e4e ;    <LVAR  0x01a 4(r)>
00020e4e ;    <LVAR  0x016 4(r)>
00020e4e ;    <LVAR  0x012 4(r)>
00020e4e ;    <LVAR  0x010 1(r)>
00020e4e ;    <LVAR  0x00c 4(r)>
00020e4e ;    <LVAR  0x008 4(r)>
00020e4e ; --------------------------------------------------------------------------------------
00020e4e 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020e52 bf d5                    |        |		CMPA.L	(A5),A7
00020e54 62 06                    |b       |		BHI	0x20e5c
00020e56 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e5a 4e 76                    |Nv      |		TRAPV
00020e5c de fc 00 20              |        |		ADDA.W	#0x20,A7
00020e60 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00020e64 41 f9 00 01 05 08        |A       |		LEA.L	IPC_PutString(a : String),A0
00020e6a 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020e6e 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020e74 1f 2e 00 1e              | .      |		MOVE.B	(A6+0x1e),-(A7)
00020e78 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020e7e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e80 2f 2e 00 1a              |/.      |		MOVE.L	(A6+0x1a),-(A7)
00020e84 4e 90                    |N       |		JSR	(A0)
00020e86 2e ae 00 16              |.       |		MOVE.L	(A6+0x16),(A7)
00020e8a 4e 90                    |N       |		JSR	(A0)
00020e8c 2e ae 00 12              |.       |		MOVE.L	(A6+0x12),(A7)
00020e90 4e 90                    |N       |		JSR	(A0)
00020e92 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e94 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00020e98 48 57                    |HW      |		PEA.L	(A7)
00020e9a 48 51                    |HQ      |		PEA.L	(A1)
00020e9c 48 51                    |HQ      |		PEA.L	(A1)
00020e9e 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020ea4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020ea8 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00020eac 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020eb0 48 57                    |HW      |		PEA.L	(A7)
00020eb2 48 51                    |HQ      |		PEA.L	(A1)
00020eb4 48 78 00 07              |Hx      |		PEA.L	0x7
00020eb8 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020ebe de fc 00 14              |        |		ADDA.W	#0x14,A7
00020ec2 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020ec8 42 27                    |B'      |		CLR.B	-(A7)
00020eca 48 78 00 01              |Hx      |		PEA.L	0x1
00020ece 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020ed4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ed6 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00020eda 4e 5e                    |N^      |		UNLK	A6
00020edc 4e 75                    |Nu      |		RTS
00020ede ; --------------------------------------------------------------------------------------
00020ede ; OMSI PASCAL Function
00020ede ;    <LVAR  0x024 4(r)>
00020ede ;    <LVAR  0x022 1(r)>
00020ede ;    <LVAR  0x020 1(r)>
00020ede ;    <LVAR  0x01c 4(r)>
00020ede ;    <LVAR  0x018 4(r)>
00020ede ;    <LVAR  0x014 4(r)>
00020ede ;    <LVAR  0x010 4(r)>
00020ede ;    <LVAR  0x00c 4(r)>
00020ede ;    <LVAR  0x008 4(r)>
00020ede ; --------------------------------------------------------------------------------------
00020ede 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00020ee2 bf d5                    |        |		CMPA.L	(A5),A7
00020ee4 62 06                    |b       |		BHI	0x20eec
00020ee6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020eea 4e 76                    |Nv      |		TRAPV
00020eec de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020ef0 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00020ef4 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020ef8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020efa 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020efc 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020f02 1f 2e 00 22              | . "    |		MOVE.B	(A6+0x22),-(A7)
00020f06 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020f0c 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
00020f10 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020f16 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f18 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020f1e 2f 3a f2 00              |/:      |		MOVE.L	0x20120,-(A7)
00020f22 2f 3a f1 f8              |/:      |		MOVE.L	0x2011c,-(A7)
00020f26 2f 3a f1 f0              |/:      |		MOVE.L	0x20118,-(A7)
00020f2a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020f2c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020f30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f32 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020f34 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f3a 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
00020f3e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020f44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f46 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020f4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f4e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020f54 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020f58 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020f5c 2f 2e 00 24              |/. $    |		MOVE.L	(A6+0x24),-(A7)
00020f60 48 78 00 01              |Hx      |		PEA.L	0x1
00020f64 1f 01                    |        |		MOVE.B	D1,-(A7)
00020f66 48 50                    |HP      |		PEA.L	(A0)
00020f68 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020f6e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020f72 4a 10                    |J       |		TST.B	(A0)
00020f74 66 5c                    |f\      |		BNE	0x20fd2
00020f76 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020f7c 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
00020f80 48 50                    |HP      |		PEA.L	(A0)
00020f82 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020f88 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f8a 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00020f8e 48 50                    |HP      |		PEA.L	(A0)
00020f90 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00020f96 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f98 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020f9c 48 50                    |HP      |		PEA.L	(A0)
00020f9e 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00020fa4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fa6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020faa 48 50                    |HP      |		PEA.L	(A0)
00020fac 48 51                    |HQ      |		PEA.L	(A1)
00020fae 48 51                    |HQ      |		PEA.L	(A1)
00020fb0 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020fb6 de c0                    |        |		ADDA.W	D0,A7
00020fb8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020fbc 48 50                    |HP      |		PEA.L	(A0)
00020fbe 48 51                    |HQ      |		PEA.L	(A1)
00020fc0 48 78 00 07              |Hx      |		PEA.L	0x7
00020fc4 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020fca de c0                    |        |		ADDA.W	D0,A7
00020fcc 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020fd2 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020fd6 4e 5e                    |N^      |		UNLK	A6
00020fd8 4e 75                    |Nu      |		RTS
00020fda ; --------------------------------------------------------------------------------------
00020fda ; OMSI PASCAL Function
00020fda ;    <LVAR  0x028 1(r)>
00020fda ;    <LVAR  0x024 4(r)>
00020fda ;    <LVAR  0x022 1(r)>
00020fda ;    <LVAR  0x020 1(r)>
00020fda ;    <LVAR  0x01c 4(r)>
00020fda ;    <LVAR  0x018 4(r)>
00020fda ;    <LVAR  0x014 4(r)>
00020fda ;    <LVAR  0x010 4(r)>
00020fda ;    <LVAR  0x00c 4(r)>
00020fda ;    <LVAR  0x008 4(r)>
00020fda ; --------------------------------------------------------------------------------------
00020fda 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020fde bf d5                    |        |		CMPA.L	(A5),A7
00020fe0 62 06                    |b       |		BHI	0x20fe8
00020fe2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fe6 4e 76                    |Nv      |		TRAPV
00020fe8 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020fec 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00020ff0 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020ff4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020ff6 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020ff8 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020ffe 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
00021002 48 57                    |HW      |		PEA.L	(A7)
00021004 48 51                    |HQ      |		PEA.L	(A1)
00021006 48 51                    |HQ      |		PEA.L	(A1)
00021008 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
0002100e de c0                    |        |		ADDA.W	D0,A7
00021010 1e ae 00 22              |   "    |		MOVE.B	(A6+0x22),(A7)
00021014 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
0002101a 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
0002101e 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021024 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021026 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002102c 2f 3a f0 f2              |/:      |		MOVE.L	0x20120,-(A7)
00021030 2f 3a f0 ea              |/:      |		MOVE.L	0x2011c,-(A7)
00021034 2f 3a f0 e2              |/:      |		MOVE.L	0x20118,-(A7)
00021038 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002103a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002103e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021040 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021042 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021048 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
0002104c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021052 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021054 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002105a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002105c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021062 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021066 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002106a 2f 2e 00 24              |/. $    |		MOVE.L	(A6+0x24),-(A7)
0002106e 48 78 00 01              |Hx      |		PEA.L	0x1
00021072 1f 01                    |        |		MOVE.B	D1,-(A7)
00021074 48 50                    |HP      |		PEA.L	(A0)
00021076 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002107c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021080 4a 10                    |J       |		TST.B	(A0)
00021082 66 5c                    |f\      |		BNE	0x210e0
00021084 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002108a 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
0002108e 48 50                    |HP      |		PEA.L	(A0)
00021090 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00021096 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021098 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
0002109c 48 50                    |HP      |		PEA.L	(A0)
0002109e 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000210a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210a6 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000210aa 48 50                    |HP      |		PEA.L	(A0)
000210ac 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000210b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210b4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000210b8 48 50                    |HP      |		PEA.L	(A0)
000210ba 48 51                    |HQ      |		PEA.L	(A1)
000210bc 48 51                    |HQ      |		PEA.L	(A1)
000210be 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000210c4 de c0                    |        |		ADDA.W	D0,A7
000210c6 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000210ca 48 50                    |HP      |		PEA.L	(A0)
000210cc 48 51                    |HQ      |		PEA.L	(A1)
000210ce 48 78 00 07              |Hx      |		PEA.L	0x7
000210d2 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000210d8 de c0                    |        |		ADDA.W	D0,A7
000210da 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000210e0 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000210e4 4e 5e                    |N^      |		UNLK	A6
000210e6 4e 75                    |Nu      |		RTS
000210e8 ; --------------------------------------------------------------------------------------
000210e8 ; OMSI PASCAL Function
000210e8 ;    <LVAR  0x02c 1(r)>
000210e8 ;    <LVAR  0x028 4(r)>
000210e8 ;    <LVAR  0x026 1(r)>
000210e8 ;    <LVAR  0x024 1(r)>
000210e8 ;    <LVAR  0x022 1(r)>
000210e8 ;    <LVAR  0x020 1(r)>
000210e8 ;    <LVAR  0x01c 4(r)>
000210e8 ;    <LVAR  0x018 4(r)>
000210e8 ;    <LVAR  0x014 4(r)>
000210e8 ;    <LVAR  0x010 4(r)>
000210e8 ;    <LVAR  0x00c 4(r)>
000210e8 ;    <LVAR  0x008 4(r)>
000210e8 ; --------------------------------------------------------------------------------------
000210e8 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000210ec bf d5                    |        |		CMPA.L	(A5),A7
000210ee 62 06                    |b       |		BHI	0x210f6
000210f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000210f4 4e 76                    |Nv      |		TRAPV
000210f6 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000210fa 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000210fe 43 f8 00 00              |C       |		LEA.L	0x0,A1
00021102 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
00021108 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002110a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002110c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021112 1f 2e 00 2c              | . ,    |		MOVE.B	(A6+0x2c),-(A7)
00021116 48 57                    |HW      |		PEA.L	(A7)
00021118 48 51                    |HQ      |		PEA.L	(A1)
0002111a 48 51                    |HQ      |		PEA.L	(A1)
0002111c 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00021122 de c0                    |        |		ADDA.W	D0,A7
00021124 1e ae 00 26              |   &    |		MOVE.B	(A6+0x26),(A7)
00021128 4e 92                    |N       |		JSR	(A2)
0002112a 1e ae 00 24              |   $    |		MOVE.B	(A6+0x24),(A7)
0002112e 4e 92                    |N       |		JSR	(A2)
00021130 1e ae 00 22              |   "    |		MOVE.B	(A6+0x22),(A7)
00021134 4e 92                    |N       |		JSR	(A2)
00021136 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
0002113a 4e 92                    |N       |		JSR	(A2)
0002113c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002113e 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021144 2f 3a ef da              |/:      |		MOVE.L	0x20120,-(A7)
00021148 2f 3a ef d2              |/:      |		MOVE.L	0x2011c,-(A7)
0002114c 2f 3a ef ca              |/:      |		MOVE.L	0x20118,-(A7)
00021150 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021152 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021156 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021158 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002115a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021160 2e ae 00 28              |.  (    |		MOVE.L	(A6+0x28),(A7)
00021164 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002116a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002116c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021172 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021174 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002117a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002117e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021182 2f 2e 00 28              |/. (    |		MOVE.L	(A6+0x28),-(A7)
00021186 48 78 00 01              |Hx      |		PEA.L	0x1
0002118a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002118c 48 50                    |HP      |		PEA.L	(A0)
0002118e 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021194 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021198 4a 10                    |J       |		TST.B	(A0)
0002119a 66 5c                    |f\      |		BNE	0x211f8
0002119c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000211a2 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000211a6 48 50                    |HP      |		PEA.L	(A0)
000211a8 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000211ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211b0 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000211b4 48 50                    |HP      |		PEA.L	(A0)
000211b6 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000211bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211be 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000211c2 48 50                    |HP      |		PEA.L	(A0)
000211c4 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000211ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211cc 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000211d0 48 50                    |HP      |		PEA.L	(A0)
000211d2 48 51                    |HQ      |		PEA.L	(A1)
000211d4 48 51                    |HQ      |		PEA.L	(A1)
000211d6 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000211dc de c0                    |        |		ADDA.W	D0,A7
000211de 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000211e2 48 50                    |HP      |		PEA.L	(A0)
000211e4 48 51                    |HQ      |		PEA.L	(A1)
000211e6 48 78 00 07              |Hx      |		PEA.L	0x7
000211ea 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000211f0 de c0                    |        |		ADDA.W	D0,A7
000211f2 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000211f8 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000211fc 4e 5e                    |N^      |		UNLK	A6
000211fe 4e 75                    |Nu      |		RTS
00021200 ; --------------------------------------------------------------------------------------
00021200 ; OMSI PASCAL Function
00021200 ;    <LVAR -0x004 @>
00021200 ; --------------------------------------------------------------------------------------
00021200 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021204 bf d5                    |        |		CMPA.L	(A5),A7
00021206 62 06                    |b       |		BHI	0x2120e
00021208 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002120c 4e 76                    |Nv      |		TRAPV
0002120e de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021212 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00021216 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021218 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002121e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021220 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021226 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021228 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002122e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021232 20 4f                    | O      |		MOVEA.L	A7,A0
00021234 43 fa ee f4              |C       |		LEA.L	0x2012a,A1
00021238 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002123a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002123c 51 c8 ff fc              |Q       |		DBF	D0,0x2123a
00021240 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021242 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021246 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021248 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002124c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021252 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021254 48 78 00 01              |Hx      |		PEA.L	0x1
00021258 1f 01                    |        |		MOVE.B	D1,-(A7)
0002125a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002125e 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021264 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021268 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
0002126c 4e 5e                    |N^      |		UNLK	A6
0002126e 4e 75                    |Nu      |		RTS
00021270 ; --------------------------------------------------------------------------------------
00021270 ; OMSI PASCAL Function
00021270 ;    <LVAR  0x014 1(w)>
00021270 ;    <LVAR  0x010 4(r)>
00021270 ;    <LVAR  0x00c 4(r)>
00021270 ;    <LVAR  0x008 @ 4(r)>
00021270 ;    <LVAR -0x006 @ 4(r)>
00021270 ;    <LVAR -0x008 @ 1(r)>
00021270 ; --------------------------------------------------------------------------------------
00021270 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00021274 bf d5                    |        |		CMPA.L	(A5),A7
00021276 62 06                    |b       |		BHI	0x2127e
00021278 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002127c 4e 76                    |Nv      |		TRAPV
0002127e de fc 00 20              |        |		ADDA.W	#0x20,A7
00021282 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00021286 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002128a 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002128e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021292 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021296 48 51                    |HQ      |		PEA.L	(A1)
00021298 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002129c 4e b9 00 02 60 e4        |N   `   |		JSR	0x260e4
000212a2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000212a6 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
000212aa 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000212b0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212b2 20 51                    | Q      |		MOVEA.L	(A1),A0
000212b4 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
000212b8 67 0a                    |g       |		BEQ	0x212c4
000212ba 48 51                    |HQ      |		PEA.L	(A1)
000212bc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000212c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212c4 1d 6e ff f8 00 14        | n      |		MOVE.B	(A6-0x8),(A6+0x14)
000212ca 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000212ce 4e 5e                    |N^      |		UNLK	A6
000212d0 4e 75                    |Nu      |		RTS
000212d2 ; --------------------------------------------------------------------------------------
000212d2 ; OMSI PASCAL Function
000212d2 ;    <LVAR -0x004 @>
000212d2 ; --------------------------------------------------------------------------------------
000212d2 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000212d6 bf d5                    |        |		CMPA.L	(A5),A7
000212d8 62 06                    |b       |		BHI	0x212e0
000212da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212de 4e 76                    |Nv      |		TRAPV
000212e0 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000212e4 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000212e8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000212ea 4e b9 00 01 05 b6        |N       |		JSR	R1000_Reset_L(void)
000212f0 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000212f6 1f 01                    |        |		MOVE.B	D1,-(A7)
000212f8 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000212fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021300 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021306 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002130a 20 4f                    | O      |		MOVEA.L	A7,A0
0002130c 43 fa ee 26              |C  &    |		LEA.L	0x20134,A1
00021310 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021312 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021314 51 c8 ff fc              |Q       |		DBF	D0,0x21312
00021318 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002131a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002131e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021320 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021324 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002132a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002132c 48 78 00 01              |Hx      |		PEA.L	0x1
00021330 1f 01                    |        |		MOVE.B	D1,-(A7)
00021332 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021336 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002133c de fc 00 18              |        |		ADDA.W	#0x18,A7
00021340 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00021344 4e 5e                    |N^      |		UNLK	A6
00021346 4e 75                    |Nu      |		RTS
00021348 ; --------------------------------------------------------------------------------------
00021348 ; OMSI PASCAL Function
00021348 ; --------------------------------------------------------------------------------------
00021348 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
0002134c bf d5                    |        |		CMPA.L	(A5),A7
0002134e 62 06                    |b       |		BHI	0x21356
00021350 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021354 4e 76                    |Nv      |		TRAPV
00021356 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
0002135a 48 e7 f7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
0002135e 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021364 47 f9 00 02 69 5c        |G   i\  |		LEA.L	0x2695c,A3
0002136a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002136c 74 07                    |t       |		MOVEQ.L	#0x07,D2
0002136e 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00021370 4a 39 00 02 69 56        |J9  iV  |		TST.B	0x26956
00021376 66 00 01 68              |f  h    |		BNE	0x214e0
0002137a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002137c 20 4f                    | O      |		MOVEA.L	A7,A0
0002137e 43 fa ed be              |C       |		LEA.L	0x2013e,A1
00021382 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021384 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021386 51 c8 ff fc              |Q       |		DBF	D0,0x21384
0002138a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002138c 2f 39 00 02 69 58        |/9  iX  |		MOVE.L	0x26958,-(A7)
00021392 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021394 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021398 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002139a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002139c 4e 92                    |N       |		JSR	(A2)
0002139e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000213ae de c3                    |        |		ADDA.W	D3,A7
000213b0 41 fa ed b8              |A       |		LEA.L	0x2016a,A0
000213b4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000213b6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000213b8 51 c8 ff fc              |Q       |		DBF	D0,0x213b6
000213bc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213be 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000213c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213c4 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
000213c8 4e 92                    |N       |		JSR	(A2)
000213ca 2e 93                    |.       |		MOVE.L	(A3),(A7)
000213cc 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000213d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213d4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213dc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000213e2 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000213e6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000213ec 2f 3a ed 80              |/:      |		MOVE.L	0x2016e,-(A7)
000213f0 2f 3a ed 78              |/: x    |		MOVE.L	0x2016a,-(A7)
000213f4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213f6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000213f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213fa 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000213fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021400 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021404 4e 92                    |N       |		JSR	(A2)
00021406 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021408 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002140e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021410 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021412 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021414 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021416 2f 39 00 02 69 60        |/9  i`  |		MOVE.L	0x26960,-(A7)
0002141c 42 80                    |B       |		CLR.L	D0
0002141e 10 39 00 02 69 64        | 9  id  |		MOVE.B	0x26964,D0
00021424 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021426 4e b9 00 01 04 4c        |N    L  |		JSR	WriteErrorMessage(file : String; txt : String; number : Long) : Bool
0002142c de c3                    |        |		ADDA.W	D3,A7
0002142e 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021434 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002143a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002143c 41 fa ed 4e              |A  N    |		LEA.L	0x2018c,A0
00021440 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021442 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021444 51 c8 ff fc              |Q       |		DBF	D0,0x21442
00021448 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002144a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002144e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021450 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00021454 4e 92                    |N       |		JSR	(A2)
00021456 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021458 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002145e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021462 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021464 be 82                    |        |		CMP.L	D2,D7
00021466 63 02                    |c       |		BLS	0x2146a
00021468 4e 4f                    |NO      |		TRAP	#15
0002146a 41 f9 00 02 69 4e        |A   iN  |		LEA.L	0x2694e,A0
00021470 42 80                    |B       |		CLR.L	D0
00021472 10 30 78 17              | 0x     |		MOVE.B	(A0+D7.L+#0x17),D0
00021476 2a 00                    |*       |		MOVE.L	D0,D5
00021478 1f 05                    |        |		MOVE.B	D5,-(A7)
0002147a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002147c 48 80                    |H       |		EXTB.W	D0
0002147e 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
00021482 1c 00                    |        |		MOVE.B	D0,D6
00021484 67 26                    |g&      |		BEQ	0x214ac
00021486 2f 3a ed 0c              |/:      |		MOVE.L	0x20194,-(A7)
0002148a 2f 3a ed 04              |/:      |		MOVE.L	0x20190,-(A7)
0002148e 2f 3a ec fc              |/:      |		MOVE.L	0x2018c,-(A7)
00021492 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021494 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021498 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002149a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002149c 4e 92                    |N       |		JSR	(A2)
0002149e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214a0 2e 85                    |.       |		MOVE.L	D5,(A7)
000214a2 4e b9 00 01 04 50        |N    P  |		JSR	FS_10450(&, &)
000214a8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000214ac 52 87                    |R       |		ADDQ.L	#0x1,D7
000214ae be 82                    |        |		CMP.L	D2,D7
000214b0 6f b2                    |o       |		BLE	0x21464
000214b2 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000214b6 20 4f                    | O      |		MOVEA.L	A7,A0
000214b8 43 fa ec de              |C       |		LEA.L	0x20198,A1
000214bc 70 10                    |p       |		MOVEQ.L	#0x10,D0
000214be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214c0 51 c8 ff fc              |Q       |		DBF	D0,0x214be
000214c4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214c6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214cc 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
000214d0 4e 92                    |N       |		JSR	(A2)
000214d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214d4 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
000214da de fc 00 16              |        |		ADDA.W	#0x16,A7
000214de 60 26                    |`&      |		BRA	0x21506
000214e0 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
000214e6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000214ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214ee 48 53                    |HS      |		PEA.L	(A3)
000214f0 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000214f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214f8 48 79 00 02 69 58        |Hy  iX  |		PEA.L	0x26958
000214fe 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021504 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021506 4c df 1f ef              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4
0002150a 4e 5e                    |N^      |		UNLK	A6
0002150c 4e 75                    |Nu      |		RTS
0002150e ; --------------------------------------------------------------------------------------
0002150e ; OMSI PASCAL Function
0002150e ;    <LVAR -0x004 @ 1(r)>
0002150e ; --------------------------------------------------------------------------------------
0002150e					CMD_INIT_STATE(?):
0002150e 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021512 bf d5                    |        |		CMPA.L	(A5),A7
00021514 62 06                    |b       |		BHI	0x2151c
00021516 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002151a 4e 76                    |Nv      |		TRAPV
0002151c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021520 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00021524 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021526 4e ba fd aa              |N       |		JSR	0x212d2
0002152a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021530 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
00021536 48 80                    |H       |		EXTB.W	D0
00021538 41 81                    |A       |		CHK.W	D1,D0
0002153a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002153c 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021542 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021544 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002154a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002154e 20 4f                    | O      |		MOVEA.L	A7,A0
00021550 43 fa ec 58              |C  X    |		LEA.L	0x201aa,A1
00021554 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021556 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021558 51 c8 ff fc              |Q       |		DBF	D0,0x21556
0002155c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002155e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021562 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021564 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021568 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002156e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021570 48 78 00 01              |Hx      |		PEA.L	0x1
00021574 1f 01                    |        |		MOVE.B	D1,-(A7)
00021576 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002157a 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021580 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021584 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021588 67 0c                    |g       |		BEQ	0x21596
0002158a 48 78 00 01              |Hx      |		PEA.L	0x1
0002158e 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
00021594 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021596 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
0002159a 4e 5e                    |N^      |		UNLK	A6
0002159c 4e 75                    |Nu      |		RTS
0002159e ; --------------------------------------------------------------------------------------
0002159e ; OMSI PASCAL Function
0002159e ;    <LVAR  0x008 1(r)>
0002159e ;    <LVAR -0x001 @ 1(r)>
0002159e ;    <LVAR -0x002 1(rw)>
0002159e ; --------------------------------------------------------------------------------------
0002159e 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000215a2 bf d5                    |        |		CMPA.L	(A5),A7
000215a4 62 06                    |b       |		BHI	0x215ac
000215a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000215aa 4e 76                    |Nv      |		TRAPV
000215ac de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000215b0 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
000215b4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000215b6 1d 6e 00 08 ff fe        | n      |		MOVE.B	(A6+0x8),(A6-0x2)
000215bc 48 78 00 01              |Hx      |		PEA.L	0x1
000215c0 1f 2e ff fe              | .      |		MOVE.B	(A6-0x2),-(A7)
000215c4 10 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D0
000215ca 48 80                    |H       |		EXTB.W	D0
000215cc 41 81                    |A       |		CHK.W	D1,D0
000215ce 1f 00                    |        |		MOVE.B	D0,-(A7)
000215d0 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
000215d6 48 80                    |H       |		EXTB.W	D0
000215d8 41 81                    |A       |		CHK.W	D1,D0
000215da 1f 00                    |        |		MOVE.B	D0,-(A7)
000215dc 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
000215e2 48 79 00 02 69 58        |Hy  iX  |		PEA.L	0x26958
000215e8 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
000215ee 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
000215f4 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
000215fa 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
00021600 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00021604 4e ba f6 c0              |N       |		JSR	0x20cc6
00021608 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002160c 4a 2e ff ff              |J.      |		TST.B	(A6-0x1)
00021610 67 0c                    |g       |		BEQ	0x2161e
00021612 48 78 00 01              |Hx      |		PEA.L	0x1
00021616 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
0002161c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002161e 4e ba fd 28              |N  (    |		JSR	0x21348
00021622 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00021626 4e 5e                    |N^      |		UNLK	A6
00021628 4e 75                    |Nu      |		RTS
0002162a ; --------------------------------------------------------------------------------------
0002162a ; OMSI PASCAL Function
0002162a ;    <LVAR  0x008 1(r)>
0002162a ;    <LVAR -0x001 @ 1(r)>
0002162a ;    <LVAR -0x002 1(rw)>
0002162a ; --------------------------------------------------------------------------------------
0002162a 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0002162e bf d5                    |        |		CMPA.L	(A5),A7
00021630 62 06                    |b       |		BHI	0x21638
00021632 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021636 4e 76                    |Nv      |		TRAPV
00021638 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
0002163c 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
00021640 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021642 4e ba fe ca              |N       |		JSR	CMD_INIT_STATE(?)
00021646 1d 6e 00 08 ff fe        | n      |		MOVE.B	(A6+0x8),(A6-0x2)
0002164c 48 78 00 02              |Hx      |		PEA.L	0x2
00021650 1f 2e ff fe              | .      |		MOVE.B	(A6-0x2),-(A7)
00021654 10 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D0
0002165a 48 80                    |H       |		EXTB.W	D0
0002165c 41 81                    |A       |		CHK.W	D1,D0
0002165e 1f 00                    |        |		MOVE.B	D0,-(A7)
00021660 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
00021666 48 80                    |H       |		EXTB.W	D0
00021668 41 81                    |A       |		CHK.W	D1,D0
0002166a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002166c 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
00021672 48 79 00 02 69 58        |Hy  iX  |		PEA.L	0x26958
00021678 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
0002167e 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021684 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
0002168a 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
00021690 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00021694 4e ba f6 30              |N  0    |		JSR	0x20cc6
00021698 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002169c 4a 2e ff ff              |J.      |		TST.B	(A6-0x1)
000216a0 67 0c                    |g       |		BEQ	0x216ae
000216a2 48 78 00 01              |Hx      |		PEA.L	0x1
000216a6 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
000216ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216ae 4e ba fc 98              |N       |		JSR	0x21348
000216b2 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
000216b6 4e 5e                    |N^      |		UNLK	A6
000216b8 4e 75                    |Nu      |		RTS
000216ba ; --------------------------------------------------------------------------------------
000216ba ; OMSI PASCAL Function
000216ba ;    <LVAR  0x008 1(r)>
000216ba ;    <LVAR -0x001 @ 1(r)>
000216ba ;    <LVAR -0x002 1(rw)>
000216ba ; --------------------------------------------------------------------------------------
000216ba 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000216be bf d5                    |        |		CMPA.L	(A5),A7
000216c0 62 06                    |b       |		BHI	0x216c8
000216c2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216c6 4e 76                    |Nv      |		TRAPV
000216c8 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000216cc 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
000216d0 72 01                    |r       |		MOVEQ.L	#0x01,D1
000216d2 1d 6e 00 08 ff fe        | n      |		MOVE.B	(A6+0x8),(A6-0x2)
000216d8 48 78 00 03              |Hx      |		PEA.L	0x3
000216dc 1f 2e ff fe              | .      |		MOVE.B	(A6-0x2),-(A7)
000216e0 10 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D0
000216e6 48 80                    |H       |		EXTB.W	D0
000216e8 41 81                    |A       |		CHK.W	D1,D0
000216ea 1f 00                    |        |		MOVE.B	D0,-(A7)
000216ec 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
000216f2 48 80                    |H       |		EXTB.W	D0
000216f4 41 81                    |A       |		CHK.W	D1,D0
000216f6 1f 00                    |        |		MOVE.B	D0,-(A7)
000216f8 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
000216fe 48 79 00 02 69 58        |Hy  iX  |		PEA.L	0x26958
00021704 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
0002170a 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021710 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
00021716 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
0002171c 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00021720 4e ba f5 a4              |N       |		JSR	0x20cc6
00021724 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021728 4a 2e ff ff              |J.      |		TST.B	(A6-0x1)
0002172c 67 0c                    |g       |		BEQ	0x2173a
0002172e 48 78 00 01              |Hx      |		PEA.L	0x1
00021732 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
00021738 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002173a 4e ba fc 0c              |N       |		JSR	0x21348
0002173e 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00021742 4e 5e                    |N^      |		UNLK	A6
00021744 4e 75                    |Nu      |		RTS
00021746 ; --------------------------------------------------------------------------------------
00021746 ; OMSI PASCAL Function
00021746 ;    <LVAR  0x008 4(r)>
00021746 ;    <LVAR -0x008 4(rw)>
00021746 ;    <LVAR -0x00e @ 4(rw)>
00021746 ;    <LVAR -0x014 @ 4(rw)>
00021746 ; --------------------------------------------------------------------------------------
00021746					CMD_TEST(?):
00021746 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
0002174a bf d5                    |        |		CMPA.L	(A5),A7
0002174c 62 06                    |b       |		BHI	0x21754
0002174e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021752 4e 76                    |Nv      |		TRAPV
00021754 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00021758 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002175c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021762 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00021766 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
0002176a 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002176c 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0002176e 78 02                    |x       |		MOVEQ.L	#0x02,D4
00021770 26 bc 00 00 00 03        |&       |		MOVE.L	#0x3,(A3)
00021776 3f 3a ea b4              |?:      |		MOVE.W	0x2022c,-(A7)
0002177a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002177c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002177e 48 78 00 00              |Hx      |		PEA.L	0x0
00021782 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021784 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00021788 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002178a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002178c 4e 92                    |N       |		JSR	(A2)
0002178e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021790 4e ba fa de              |N       |		JSR	0x21270
00021794 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021798 4a 1f                    |J       |		TST.B	(A7)+
0002179a 67 02                    |g       |		BEQ	0x2179e
0002179c 26 82                    |&       |		MOVE.L	D2,(A3)
0002179e 3e ba ea 8e              |>       |		MOVE.W	0x2022e,(A7)
000217a2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000217a4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000217a6 48 78 00 00              |Hx      |		PEA.L	0x0
000217aa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217ac 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000217b0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000217b2 3f 04                    |?       |		MOVE.W	D4,-(A7)
000217b4 4e 92                    |N       |		JSR	(A2)
000217b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217b8 4e ba fa b6              |N       |		JSR	0x21270
000217bc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000217c0 4a 1f                    |J       |		TST.B	(A7)+
000217c2 67 02                    |g       |		BEQ	0x217c6
000217c4 26 84                    |&       |		MOVE.L	D4,(A3)
000217c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217c8 41 fa ea 70              |A  p    |		LEA.L	0x2023a,A0
000217cc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000217ce 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217d0 51 c8 ff fc              |Q       |		DBF	D0,0x217ce
000217d4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000217d6 48 78 00 01              |Hx      |		PEA.L	0x1
000217da 4e b9 00 02 32 72        |N   2r  |		JSR	0x23272
000217e0 de c3                    |        |		ADDA.W	D3,A7
000217e2 2e 94                    |.       |		MOVE.L	(A4),(A7)
000217e4 48 78 00 01              |Hx      |		PEA.L	0x1
000217e8 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
000217ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217f0 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
000217f4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000217f6 1a 07                    |        |		MOVE.B	D7,D5
000217f8 be 04                    |        |		CMP.B	D4,D7
000217fa 66 2a                    |f*      |		BNE	0x21826
000217fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217fe 1e ba ea 3a              |   :    |		MOVE.B	0x2023a,(A7)
00021802 1f 7a ea 37 00 01        | z 7    |		MOVE.B	0x2023b,(A7+0x1)
00021808 1f 7a ea 32 00 02        | z 2    |		MOVE.B	0x2023c,(A7+0x2)
0002180e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021810 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021814 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021816 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
0002181a 4e 92                    |N       |		JSR	(A2)
0002181c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002181e 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021822 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021824 60 2e                    |`.      |		BRA	0x21854
00021826 10 07                    |        |		MOVE.B	D7,D0
00021828 48 80                    |H       |		EXTB.W	D0
0002182a c1 c3                    |        |		MULS.W	D3,D0
0002182c 41 fa f1 2e              |A  .    |		LEA.L	0x2095c,A0
00021830 9e c3                    |        |		SUBA.W	D3,A7
00021832 22 4f                    |"O      |		MOVEA.L	A7,A1
00021834 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021838 70 09                    |p       |		MOVEQ.L	#0x09,D0
0002183a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002183c 51 c8 ff fc              |Q       |		DBF	D0,0x2183a
00021840 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021842 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021846 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021848 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002184a 4e 92                    |N       |		JSR	(A2)
0002184c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002184e 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021852 de c3                    |        |		ADDA.W	D3,A7
00021854 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021856 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
0002185a 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002185e 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021864 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021866 10 1f                    |        |		MOVE.B	(A7)+,D0
00021868 48 80                    |H       |		EXTB.W	D0
0002186a 41 82                    |A       |		CHK.W	D2,D0
0002186c 1c 00                    |        |		MOVE.B	D0,D6
0002186e 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021872 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021878 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002187a 4a 06                    |J       |		TST.B	D6
0002187c 67 02                    |g       |		BEQ	0x21880
0002187e 60 0a                    |`       |		BRA	0x2188a
00021880 52 07                    |R       |		ADDQ.B	#0x1,D7
00021882 0c 07 00 0b              |        |		CMPI.B	#0x0b,D7
00021886 6f 00 ff 6e              |o  n    |		BLE	0x217f6
0002188a 4a 06                    |J       |		TST.B	D6
0002188c 66 38                    |f8      |		BNE	0x218c6
0002188e 2f 3a e9 ba              |/:      |		MOVE.L	0x2024a,-(A7)
00021892 2f 3a e9 b2              |/:      |		MOVE.L	0x20246,-(A7)
00021896 2f 3a e9 aa              |/:      |		MOVE.L	0x20242,-(A7)
0002189a 2f 3a e9 a2              |/:      |		MOVE.L	0x2023e,-(A7)
0002189e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000218a0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000218a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000218a6 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
000218aa 4e 92                    |N       |		JSR	(A2)
000218ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218ae 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
000218b2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000218b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218ba 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
000218c0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000218c4 60 3a                    |`:      |		BRA	0x21900
000218c6 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000218ca 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000218d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218d2 10 05                    |        |		MOVE.B	D5,D0
000218d4 48 80                    |H       |		EXTB.W	D0
000218d6 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
000218da 1f 00                    |        |		MOVE.B	D0,-(A7)
000218dc 4e ba fc c0              |N       |		JSR	0x2159e
000218e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218e2 22 13                    |"       |		MOVE.L	(A3),D1
000218e4 b2 82                    |        |		CMP.L	D2,D1
000218e6 6f 08                    |o       |		BLE	0x218f0
000218e8 1f 00                    |        |		MOVE.B	D0,-(A7)
000218ea 4e ba fd 3e              |N  >    |		JSR	0x2162a
000218ee 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218f0 0c 81 00 00 00 03        |        |		CMPI.L	#0x00000003,D1
000218f6 66 08                    |f       |		BNE	0x21900
000218f8 1f 00                    |        |		MOVE.B	D0,-(A7)
000218fa 4e ba fd be              |N       |		JSR	0x216ba
000218fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021900 3f 3a e9 50              |?: P    |		MOVE.W	0x20252,-(A7)
00021904 3f 3a e9 4a              |?: J    |		MOVE.W	0x20250,-(A7)
00021908 3f 3a e9 44              |?: D    |		MOVE.W	0x2024e,-(A7)
0002190c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002190e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021912 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021914 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021918 4e 92                    |N       |		JSR	(A2)
0002191a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002191c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021922 de c3                    |        |		ADDA.W	D3,A7
00021924 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021928 4e 5e                    |N^      |		UNLK	A6
0002192a 4e 75                    |Nu      |		RTS
0002192c ; --------------------------------------------------------------------------------------
0002192c ; OMSI PASCAL Function
0002192c ;    <LVAR  0x00c 1(w)>
0002192c ;    <LVAR  0x008 4(r)>
0002192c ;    <LVAR -0x006 @ 4(rw)>
0002192c ; --------------------------------------------------------------------------------------
0002192c 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00021930 bf d5                    |        |		CMPA.L	(A5),A7
00021932 62 06                    |b       |		BHI	0x2193a
00021934 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021938 4e 76                    |Nv      |		TRAPV
0002193a de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
0002193e 48 e7 e3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00021942 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021946 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021948 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
0002194a 1d 41 00 0c              | A      |		MOVE.B	D1,(A6+0xc)
0002194e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021950 0c 07 00 04              |        |		CMPI.B	#0x04,D7
00021954 66 2c                    |f,      |		BNE	0x21982
00021956 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021958 1e ba e9 9a              |        |		MOVE.B	0x202f4,(A7)
0002195c 1f 7a e9 97 00 01        | z      |		MOVE.B	0x202f5,(A7+0x1)
00021962 1f 7a e9 92 00 02        | z      |		MOVE.B	0x202f6,(A7+0x2)
00021968 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002196a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002196e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021970 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021974 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002197a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002197c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002197e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021980 60 30                    |`0      |		BRA	0x219b2
00021982 10 07                    |        |		MOVE.B	D7,D0
00021984 48 80                    |H       |		EXTB.W	D0
00021986 c1 c2                    |        |		MULS.W	D2,D0
00021988 41 fa f0 4a              |A  J    |		LEA.L	0x209d4,A0
0002198c 9e c2                    |        |		SUBA.W	D2,A7
0002198e 22 4f                    |"O      |		MOVEA.L	A7,A1
00021990 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021994 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021996 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021998 51 c8 ff fc              |Q       |		DBF	D0,0x21996
0002199c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002199e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000219a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000219a6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219ae 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000219b0 de c2                    |        |		ADDA.W	D2,A7
000219b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000219b4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000219b8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000219ba 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000219c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219c2 10 1f                    |        |		MOVE.B	(A7)+,D0
000219c4 48 80                    |H       |		EXTB.W	D0
000219c6 41 81                    |A       |		CHK.W	D1,D0
000219c8 1c 00                    |        |		MOVE.B	D0,D6
000219ca 48 52                    |HR      |		PEA.L	(A2)
000219cc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000219d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219d4 4a 06                    |J       |		TST.B	D6
000219d6 67 06                    |g       |		BEQ	0x219de
000219d8 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
000219dc 60 0a                    |`       |		BRA	0x219e8
000219de 52 07                    |R       |		ADDQ.B	#0x1,D7
000219e0 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000219e4 6f 00 ff 6a              |o  j    |		BLE	0x21950
000219e8 4c df 07 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2
000219ec 4e 5e                    |N^      |		UNLK	A6
000219ee 4e 75                    |Nu      |		RTS
000219f0 ; --------------------------------------------------------------------------------------
000219f0 ; OMSI PASCAL Function
000219f0 ;    <LVAR  0x010 4(r)>
000219f0 ;    <LVAR  0x00c 4(r)>
000219f0 ;    <LVAR  0x008 4(r)>
000219f0 ;    <LVAR -0x004 @ 4(rw)>
000219f0 ; --------------------------------------------------------------------------------------
000219f0 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
000219f4 bf d5                    |        |		CMPA.L	(A5),A7
000219f6 62 06                    |b       |		BHI	0x219fe
000219f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219fc 4e 76                    |Nv      |		TRAPV
000219fe de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00021a02 48 e7 f9 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021a06 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021a0a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a0c 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00021a0e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a10 0c 87 00 00 00 02        |        |		CMPI.L	#0x00000002,D7
00021a16 66 2c                    |f,      |		BNE	0x21a44
00021a18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a1a 1e ba ea 1c              |        |		MOVE.B	0x20438,(A7)
00021a1e 1f 7a ea 19 00 01        | z      |		MOVE.B	0x20439,(A7+0x1)
00021a24 1f 7a ea 14 00 02        | z      |		MOVE.B	0x2043a,(A7+0x2)
00021a2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a2c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a32 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021a36 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a3e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021a40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a42 60 50                    |`P      |		BRA	0x21a94
00021a44 0c 87 00 00 00 16        |        |		CMPI.L	#0x00000016,D7
00021a4a 66 0a                    |f       |		BNE	0x21a56
00021a4c 48 52                    |HR      |		PEA.L	(A2)
00021a4e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021a54 60 ea                    |`       |		BRA	0x21a40
00021a56 0c 87 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D7
00021a5c 63 02                    |c       |		BLS	0x21a60
00021a5e 4e 4f                    |NO      |		TRAP	#15
00021a60 28 07                    |(       |		MOVE.L	D7,D4
00021a62 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00021a64 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021a6a 41 fa f0 08              |A       |		LEA.L	TXTTBL__ALL_COND_SYS_VAL...,A0
00021a6e 9e c2                    |        |		SUBA.W	D2,A7
00021a70 22 4f                    |"O      |		MOVEA.L	A7,A1
00021a72 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00021a76 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021a78 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021a7a 51 c8 ff fc              |Q       |		DBF	D0,0x21a78
00021a7e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a80 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a84 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a86 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a88 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a90 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021a92 de c2                    |        |		ADDA.W	D2,A7
00021a94 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021a98 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021a9a 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021a9e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021aa0 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021aa6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021aa8 10 1f                    |        |		MOVE.B	(A7)+,D0
00021aaa 48 80                    |H       |		EXTB.W	D0
00021aac 41 81                    |A       |		CHK.W	D1,D0
00021aae 10 80                    |        |		MOVE.B	D0,(A0)
00021ab0 48 52                    |HR      |		PEA.L	(A2)
00021ab2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021ab8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021aba 52 87                    |R       |		ADDQ.L	#0x1,D7
00021abc 4a 00                    |J       |		TST.B	D0
00021abe 66 0a                    |f       |		BNE	0x21aca
00021ac0 0c 87 00 00 00 20        |        |		CMPI.L	#0x00000020,D7
00021ac6 66 00 ff 48              |f  H    |		BNE	0x21a10
00021aca 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021ace 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00021ad4 63 02                    |c       |		BLS	0x21ad8
00021ad6 4e 4f                    |NO      |		TRAP	#15
00021ad8 10 87                    |        |		MOVE.B	D7,(A0)
00021ada 4c df 07 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00021ade 4e 5e                    |N^      |		UNLK	A6
00021ae0 4e 75                    |Nu      |		RTS
00021ae2 ; --------------------------------------------------------------------------------------
00021ae2 ; OMSI PASCAL Function
00021ae2 ;    <LVAR  0x008 4(r)>
00021ae2 ;    <LVAR -0x004 @ 1(r)>
00021ae2 ;    <LVAR -0x008 @ 4(rw)>
00021ae2 ;    <LVAR -0x00e @ 4(rw)>
00021ae2 ;    <LVAR -0x012 @ 4(rw)>
00021ae2 ;    <LVAR -0x016 @ 4(rw)>
00021ae2 ;    <LVAR -0x017 @ 1(rw)>
00021ae2 ;    <LVAR -0x018 @ 1(r)>
00021ae2 ; --------------------------------------------------------------------------------------
00021ae2					CMD_RUN(?):
00021ae2 4e 56 ff 7a              |NV z    |		LINK.W	A6,#0xff7a
00021ae6 bf d5                    |        |		CMPA.L	(A5),A7
00021ae8 62 06                    |b       |		BHI	0x21af0
00021aea 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021aee 4e 76                    |Nv      |		TRAPV
00021af0 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021af4 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021af8 45 f9 00 02 69 58        |E   iX  |		LEA.L	0x26958,A2
00021afe 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00021b02 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00021b08 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021b0a 76 07                    |v       |		MOVEQ.L	#0x07,D3
00021b0c 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00021b0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b10 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b12 4e b9 00 02 32 3c        |N   2<  |		JSR	0x2323c
00021b18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b1a 20 1f                    |        |		MOVE.L	(A7)+,D0
00021b1c 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00021b22 66 00 02 c0              |f       |		BNE	0x21de4
00021b26 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b28 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b2a 48 78 00 02              |Hx      |		PEA.L	0x2
00021b2e 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021b34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b36 24 97                    |$       |		MOVE.L	(A7),(A2)
00021b38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b3a 20 4f                    | O      |		MOVEA.L	A7,A0
00021b3c 43 fa e9 22              |C  "    |		LEA.L	0x20460,A1
00021b40 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021b42 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b44 51 c8 ff fc              |Q       |		DBF	D0,0x21b42
00021b48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b4a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b4e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b50 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021b52 4e 94                    |N       |		JSR	(A4)
00021b54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b56 2d 5f ff ee              |-_      |		MOVE.L	(A7)+,(A6-0x12)
00021b5a 20 4f                    | O      |		MOVEA.L	A7,A0
00021b5c 43 fa e9 0a              |C       |		LEA.L	0x20468,A1
00021b60 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021b62 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b64 51 c8 ff fc              |Q       |		DBF	D0,0x21b62
00021b68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b6e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b70 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021b72 4e 94                    |N       |		JSR	(A4)
00021b74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b76 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021b7a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b7c 2e ae ff ee              |.       |		MOVE.L	(A6-0x12),(A7)
00021b80 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021b82 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021b88 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b8a 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00021b8e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021b90 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021b96 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b98 10 2f 00 02              | /      |		MOVE.B	(A7+0x2),D0
00021b9c 80 1f                    |        |		OR.B	(A7)+,D0
00021b9e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ba0 48 80                    |H       |		EXTB.W	D0
00021ba2 41 82                    |A       |		CHK.W	D2,D0
00021ba4 1e 00                    |        |		MOVE.B	D0,D7
00021ba6 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00021baa 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021bb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bb2 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021bb6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021bbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bbe 4a 07                    |J       |		TST.B	D7
00021bc0 67 00 01 1a              |g       |		BEQ	0x21cdc
00021bc4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bc6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021bc8 48 78 00 01              |Hx      |		PEA.L	0x1
00021bcc 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021bd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bd4 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00021bd8 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00021bdc 48 6e ff e9              |Hn      |		PEA.L	(A6-0x17)
00021be0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021be4 4e ba fe 0a              |N       |		JSR	0x219f0
00021be8 de c4                    |        |		ADDA.W	D4,A7
00021bea 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021bee 66 38                    |f8      |		BNE	0x21c28
00021bf0 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00021bf4 20 4f                    | O      |		MOVEA.L	A7,A0
00021bf6 43 fa e8 78              |C  x    |		LEA.L	0x20470,A1
00021bfa 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021bfc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bfe 51 c8 ff fc              |Q       |		DBF	D0,0x21bfc
00021c02 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c04 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021c08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021c0a 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021c0e 4e 94                    |N       |		JSR	(A4)
00021c10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c12 2e ae ff f8              |.       |		MOVE.L	(A6-0x8),(A7)
00021c16 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021c1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c1e 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
00021c24 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021c28 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021c2c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021c32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021c34 2f 39 00 02 69 72        |/9  ir  |		MOVE.L	0x26972,-(A7)
00021c3a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c3c 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021c42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c44 10 1f                    |        |		MOVE.B	(A7)+,D0
00021c46 48 80                    |H       |		EXTB.W	D0
00021c48 41 82                    |A       |		CHK.W	D2,D0
00021c4a 13 c0 00 02 69 70        |    ip  |		MOVE.B	D0,0x26970
00021c50 44 00                    |D       |		NEG.B	D0
00021c52 52 00                    |R       |		ADDQ.B	#0x1,D0
00021c54 80 39 00 02 69 6f        | 9  io  |		OR.B	0x2696f,D0
00021c5a 48 80                    |H       |		EXTB.W	D0
00021c5c 41 82                    |A       |		CHK.W	D2,D0
00021c5e 1c 00                    |        |		MOVE.B	D0,D6
00021c60 48 79 00 02 69 72        |Hy  ir  |		PEA.L	0x26972
00021c66 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021c6c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c6e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021c74 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c76 23 df 00 02 69 72        |#   ir  |		MOVE.L	(A7)+,0x26972
00021c7c 10 06                    |        |		MOVE.B	D6,D0
00021c7e 48 80                    |H       |		EXTB.W	D0
00021c80 41 82                    |A       |		CHK.W	D2,D0
00021c82 1f 2e ff e9              | .      |		MOVE.B	(A6-0x17),-(A7)
00021c86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c88 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c8a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021c90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c92 12 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D1
00021c98 48 81                    |H       |		EXTB.W	D1
00021c9a 43 82                    |C       |		CHK.W	D2,D1
00021c9c 1f 01                    |        |		MOVE.B	D1,-(A7)
00021c9e 12 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D1
00021ca4 48 81                    |H       |		EXTB.W	D1
00021ca6 43 82                    |C       |		CHK.W	D2,D1
00021ca8 1f 01                    |        |		MOVE.B	D1,-(A7)
00021caa 1f 00                    |        |		MOVE.B	D0,-(A7)
00021cac 1f 00                    |        |		MOVE.B	D0,-(A7)
00021cae 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
00021cb4 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
00021cba 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021cc0 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
00021cc6 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
00021ccc 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021cd0 4e ba f4 16              |N       |		JSR	0x210e8
00021cd4 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021cd8 60 00 01 08              |`       |		BRA	0x21de2
00021cdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cde 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021ce0 48 78 00 01              |Hx      |		PEA.L	0x1
00021ce4 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021cea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cec 2d 57 ff ea              |-W      |		MOVE.L	(A7),(A6-0x16)
00021cf0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021cf2 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00021cf6 4e ba fc 34              |N  4    |		JSR	0x2192c
00021cfa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cfc 10 1f                    |        |		MOVE.B	(A7)+,D0
00021cfe 48 80                    |H       |		EXTB.W	D0
00021d00 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00021d04 1a 00                    |        |		MOVE.B	D0,D5
00021d06 10 05                    |        |		MOVE.B	D5,D0
00021d08 48 80                    |H       |		EXTB.W	D0
00021d0a 32 00                    |2       |		MOVE.W	D0,D1
00021d0c 55 41                    |UA      |		SUBQ.W	#0x2,D1
00021d0e 0c 41 00 0d              | A      |		CMPI.W	#0x000d,D1
00021d12 62 38                    |b8      |		BHI	switch@0x21d16[0x7]
00021d14 d2 41                    | A      |		ADD.W	D1,D1
00021d16 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00021d1e 00 1c                    |        |		.CONST	0x1c			; [0x0] -> 0x21d3a
00021d20 00 1c                    |        |		.CONST	0x1c			; [0x1] -> 0x21d3a
00021d22 00 1c                    |        |		.CONST	0x1c			; [0x2] -> 0x21d3a
00021d24 00 1c                    |        |		.CONST	0x1c			; [0x3] -> 0x21d3a
00021d26 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x21d3a
00021d28 00 1c                    |        |		.CONST	0x1c			; [0x5] -> 0x21d3a
00021d2a 00 1c                    |        |		.CONST	0x1c			; [0x6] -> 0x21d3a
00021d2c 00 2e                    | .      |		.CONST	0x2e			; [0x7] -> 0x21d4c
00021d2e 00 2e                    | .      |		.CONST	0x2e			; [0x8] -> 0x21d4c
00021d30 00 2e                    | .      |		.CONST	0x2e			; [0x9] -> 0x21d4c
00021d32 00 1c                    |        |		.CONST	0x1c			; [0xa] -> 0x21d3a
00021d34 00 1c                    |        |		.CONST	0x1c			; [0xb] -> 0x21d3a
00021d36 00 1c                    |        |		.CONST	0x1c			; [0xc] -> 0x21d3a
00021d38 00 1c                    |        |		.CONST	0x1c			; [0xd] -> 0x21d3a
00021d3a					switch@0x21d16[0x0]:
00021d3a					switch@0x21d16[0x1]:
00021d3a					switch@0x21d16[0x2]:
00021d3a					switch@0x21d16[0x3]:
00021d3a					switch@0x21d16[0x4]:
00021d3a					switch@0x21d16[0x5]:
00021d3a					switch@0x21d16[0x6]:
00021d3a					switch@0x21d16[0xa]:
00021d3a					switch@0x21d16[0xb]:
00021d3a					switch@0x21d16[0xc]:
00021d3a					switch@0x21d16[0xd]:
00021d3a 48 c0                    |H       |		EXTW.L	D0
00021d3c 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021d42 63 02                    |c       |		BLS	0x21d46
00021d44 4e 4f                    |NO      |		TRAP	#15
00021d46 1d 40 ff e9              | @      |		MOVE.B	D0,(A6-0x17)
00021d4a 60 38                    |`8      |		BRA	0x21d84
00021d4c					switch@0x21d16[0x7]:
00021d4c					switch@0x21d16[0x8]:
00021d4c					switch@0x21d16[0x9]:
00021d4c 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
00021d50 20 4f                    | O      |		MOVEA.L	A7,A0
00021d52 43 fa e6 e8              |C       |		LEA.L	0x2043c,A1
00021d56 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021d58 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d5a 51 c8 ff fc              |Q       |		DBF	D0,0x21d58
00021d5e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021d60 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021d64 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021d66 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00021d6a 4e 94                    |N       |		JSR	(A4)
00021d6c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d6e 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00021d72 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021d78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d7a 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
00021d80 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00021d84 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00021d88 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021d8e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021d90 1e ae ff e9              |        |		MOVE.B	(A6-0x17),(A7)
00021d94 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d96 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021d98 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021d9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021da0 10 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D0
00021da6 48 80                    |H       |		EXTB.W	D0
00021da8 41 82                    |A       |		CHK.W	D2,D0
00021daa 1f 00                    |        |		MOVE.B	D0,-(A7)
00021dac 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
00021db2 48 80                    |H       |		EXTB.W	D0
00021db4 41 82                    |A       |		CHK.W	D2,D0
00021db6 1f 00                    |        |		MOVE.B	D0,-(A7)
00021db8 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
00021dbe 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
00021dc4 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021dca 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
00021dd0 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
00021dd6 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021dda 4e ba f1 fe              |N       |		JSR	0x20fda
00021dde de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021de2 60 78                    |`x      |		BRA	0x21e5c
00021de4 41 fa e6 a4              |A       |		LEA.L	0x2048a,A0
00021de8 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021dea 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021dec 51 c8 ff fc              |Q       |		DBF	D0,0x21dea
00021df0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021df2 48 78 00 01              |Hx      |		PEA.L	0x1
00021df6 4e b9 00 02 32 72        |N   2r  |		JSR	0x23272
00021dfc de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021e00 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021e02 48 78 00 01              |Hx      |		PEA.L	0x1
00021e06 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021e0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e0e 24 97                    |$       |		MOVE.L	(A7),(A2)
00021e10 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e12 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021e18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e1a 10 39 00 02 69 6d        | 9  im  |		MOVE.B	0x2696d,D0
00021e20 48 80                    |H       |		EXTB.W	D0
00021e22 41 82                    |A       |		CHK.W	D2,D0
00021e24 1f 00                    |        |		MOVE.B	D0,-(A7)
00021e26 10 39 00 02 69 6e        | 9  in  |		MOVE.B	0x2696e,D0
00021e2c 48 80                    |H       |		EXTB.W	D0
00021e2e 41 82                    |A       |		CHK.W	D2,D0
00021e30 1f 00                    |        |		MOVE.B	D0,-(A7)
00021e32 48 79 00 02 69 56        |Hy  iV  |		PEA.L	0x26956
00021e38 48 79 00 02 69 5c        |Hy  i\  |		PEA.L	0x2695c
00021e3e 48 79 00 02 69 60        |Hy  i`  |		PEA.L	0x26960
00021e44 48 79 00 02 69 64        |Hy  id  |		PEA.L	0x26964
00021e4a 48 79 00 02 69 65        |Hy  ie  |		PEA.L	0x26965
00021e50 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021e54 4e ba f0 88              |N       |		JSR	0x20ede
00021e58 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021e5c 4a 2e ff e8              |J.      |		TST.B	(A6-0x18)
00021e60 67 0c                    |g       |		BEQ	0x21e6e
00021e62 48 78 00 01              |Hx      |		PEA.L	0x1
00021e66 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
00021e6c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e6e 4e ba f4 d8              |N       |		JSR	0x21348
00021e72 9e c4                    |        |		SUBA.W	D4,A7
00021e74 20 4f                    | O      |		MOVEA.L	A7,A0
00021e76 43 fa e6 12              |C       |		LEA.L	0x2048a,A1
00021e7a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021e7c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e7e 51 c8 ff fc              |Q       |		DBF	D0,0x21e7c
00021e82 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e84 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e88 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021e8a 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021e8e 4e 94                    |N       |		JSR	(A4)
00021e90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e92 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021e98 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021e9c 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021ea0 4e 5e                    |N^      |		UNLK	A6
00021ea2 4e 75                    |Nu      |		RTS
00021ea4 ; --------------------------------------------------------------------------------------
00021ea4 ; OMSI PASCAL Function
00021ea4 ;    <LVAR  0x008 4(r)>
00021ea4 ;    <LVAR -0x00c @ 4(rw)>
00021ea4 ; --------------------------------------------------------------------------------------
00021ea4					CMD_ERRMESS(?):
00021ea4 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00021ea8 bf d5                    |        |		CMPA.L	(A5),A7
00021eaa 62 06                    |b       |		BHI	0x21eb2
00021eac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021eb0 4e 76                    |Nv      |		TRAPV
00021eb2 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00021eb6 48 e7 c1 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D1+D0,-(A7)
00021eba 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00021ebe 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00021ec2 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021ec4 24 81                    |$       |		MOVE.L	D1,(A2)
00021ec6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ec8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021eca 4e b9 00 02 32 3c        |N   2<  |		JSR	0x2323c
00021ed0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ed2 20 1f                    |        |		MOVE.L	(A7)+,D0
00021ed4 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00021eda 66 0a                    |f       |		BNE	0x21ee6
00021edc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ede 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021ee0 48 78 00 02              |Hx      |		PEA.L	0x2
00021ee4 60 32                    |`2      |		BRA	0x21f18
00021ee6 41 fa e5 c0              |A       |		LEA.L	0x204a8,A0
00021eea 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021eec 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021eee 51 c8 ff fc              |Q       |		DBF	D0,0x21eec
00021ef2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021ef4 48 78 00 03              |Hx      |		PEA.L	0x3
00021ef8 4e b9 00 02 32 72        |N   2r  |		JSR	0x23272
00021efe de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021f02 2e 91                    |.       |		MOVE.L	(A1),(A7)
00021f04 48 78 00 02              |Hx      |		PEA.L	0x2
00021f08 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021f0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f10 24 97                    |$       |		MOVE.L	(A7),(A2)
00021f12 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f14 48 78 00 03              |Hx      |		PEA.L	0x3
00021f18 4e b9 00 02 3b d4        |N   ;   |		JSR	0x23bd4
00021f1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f20 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00021f22 2f 3a e5 76              |/: v    |		MOVE.L	0x2049a,-(A7)
00021f26 2f 3a e5 6e              |/: n    |		MOVE.L	0x20496,-(A7)
00021f2a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021f2c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f2e 48 78 00 01              |Hx      |		PEA.L	0x1
00021f32 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021f38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f3a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021f3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f40 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021f44 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f4a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f4c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021f52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f54 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021f56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f58 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021f5a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021f5c 2f 07                    |/       |		MOVE.L	D7,-(A7)
00021f5e 4e b9 00 01 04 4c        |N    L  |		JSR	WriteErrorMessage(file : String; txt : String; number : Long) : Bool
00021f64 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021f68 20 52                    | R      |		MOVEA.L	(A2),A0
00021f6a b0 c1                    |        |		CMPA.W	D1,A0
00021f6c 67 0a                    |g       |		BEQ	0x21f78
00021f6e 48 52                    |HR      |		PEA.L	(A2)
00021f70 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021f76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f78 4c df 17 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A4
00021f7c 4e 5e                    |N^      |		UNLK	A6
00021f7e 4e 75                    |Nu      |		RTS
00021f80 ; --------------------------------------------------------------------------------------
00021f80 ; OMSI PASCAL Function
00021f80 ;    <LVAR  0x016 1(rw)>
00021f80 ;    <LVAR  0x008 4(r)>
00021f80 ;    <LVAR -0x006 @ 4(rw)>
00021f80 ;    <LVAR -0x00a @ 4(rw)>
00021f80 ; --------------------------------------------------------------------------------------
00021f80 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
00021f84 bf d5                    |        |		CMPA.L	(A5),A7
00021f86 62 06                    |b       |		BHI	0x21f8e
00021f88 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f8c 4e 76                    |Nv      |		TRAPV
00021f8e de fc 00 50              |   P    |		ADDA.W	#0x50,A7
00021f92 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00021f96 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021f9a 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00021f9e 49 f9 00 01 02 bc        |I       |		LEA.L	FreeString(VAR a : String),A4
00021fa4 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021fa6 41 ee 00 16              |A       |		LEA.L	(A6+0x16),A0
00021faa 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021fac 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021fae 51 c8 ff fc              |Q       |		DBF	D0,0x21fac
00021fb2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021fb6 48 78 00 01              |Hx      |		PEA.L	0x1
00021fba 4e b9 00 02 32 72        |N   2r  |		JSR	0x23272
00021fc0 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021fc4 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00021fc8 48 78 00 01              |Hx      |		PEA.L	0x1
00021fcc 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00021fd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fd4 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021fd6 3f 3a e4 d0              |?:      |		MOVE.W	0x204a8,-(A7)
00021fda 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fdc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fe0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fe2 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021fe6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fee 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021ff0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021ff2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021ff4 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021ffa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ffc 4a 1f                    |J       |		TST.B	(A7)+
00021ffe 67 06                    |g       |		BEQ	0x22006
00022000 1d 41 00 16              | A      |		MOVE.B	D1,(A6+0x16)
00022004 60 7c                    |`|      |		BRA	0x22082
00022006 48 52                    |HR      |		PEA.L	(A2)
00022008 4e 94                    |N       |		JSR	(A4)
0002200a 1e ba e4 9e              |        |		MOVE.B	0x204aa,(A7)
0002200e 1f 7a e4 9b 00 01        | z      |		MOVE.B	0x204ab,(A7+0x1)
00022014 1f 7a e4 96 00 02        | z      |		MOVE.B	0x204ac,(A7+0x2)
0002201a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002201c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022020 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022022 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022026 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002202c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002202e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022030 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022032 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022034 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022036 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002203c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002203e 4a 1f                    |J       |		TST.B	(A7)+
00022040 67 06                    |g       |		BEQ	0x22048
00022042 42 2e 00 16              |B.      |		CLR.B	(A6+0x16)
00022046 60 3a                    |`:      |		BRA	0x22082
00022048 48 52                    |HR      |		PEA.L	(A2)
0002204a 4e 94                    |N       |		JSR	(A4)
0002204c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002204e 48 53                    |HS      |		PEA.L	(A3)
00022050 4e 94                    |N       |		JSR	(A4)
00022052 9e fc 00 20              |        |		SUBA.W	#0x20,A7
00022056 20 4f                    | O      |		MOVEA.L	A7,A0
00022058 43 fa e4 54              |C  T    |		LEA.L	0x204ae,A1
0002205c 70 22                    |p"      |		MOVEQ.L	#0x22,D0
0002205e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
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 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022070 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022076 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022078 4e b9 00 02 2e 28        |N   .(  |		JSR	0x22e28
0002207e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022082 48 52                    |HR      |		PEA.L	(A2)
00022084 4e 94                    |N       |		JSR	(A4)
00022086 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022088 48 53                    |HS      |		PEA.L	(A3)
0002208a 4e 94                    |N       |		JSR	(A4)
0002208c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002208e 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022092 4e 5e                    |N^      |		UNLK	A6
00022094 4e 75                    |Nu      |		RTS
00022096 ; --------------------------------------------------------------------------------------
00022096 ; OMSI PASCAL Function
00022096 ;    <LVAR  0x008 4(r)>
00022096 ; --------------------------------------------------------------------------------------
00022096					CMD_ISOLATE(?):
00022096 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0002209a bf d5                    |        |		CMPA.L	(A5),A7
0002209c 62 06                    |b       |		BHI	0x220a4
0002209e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000220a2 4e 76                    |Nv      |		TRAPV
000220a4 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000220a8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000220ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220ae 41 fa e4 2c              |A  ,    |		LEA.L	0x204dc,A0
000220b2 70 04                    |p       |		MOVEQ.L	#0x04,D0
000220b4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000220b6 51 c8 ff fc              |Q       |		DBF	D0,0x220b4
000220ba 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000220be 4e ba fe c0              |N       |		JSR	0x21f80
000220c2 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000220c6 10 1f                    |        |		MOVE.B	(A7)+,D0
000220c8 48 80                    |H       |		EXTB.W	D0
000220ca 41 bc 00 01              |A       |		CHK.W	#0x1,D0
000220ce 13 c0 00 02 69 6d        |    im  |		MOVE.B	D0,0x2696d
000220d4 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000220d8 4e 5e                    |N^      |		UNLK	A6
000220da 4e 75                    |Nu      |		RTS
000220dc ; --------------------------------------------------------------------------------------
000220dc ; OMSI PASCAL Function
000220dc ;    <LVAR  0x008 4(r)>
000220dc ; --------------------------------------------------------------------------------------
000220dc					CMD_TRACE(?):
000220dc 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
000220e0 bf d5                    |        |		CMPA.L	(A5),A7
000220e2 62 06                    |b       |		BHI	0x220ea
000220e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000220e8 4e 76                    |Nv      |		TRAPV
000220ea de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000220ee 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000220f2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220f4 41 fa e3 f0              |A       |		LEA.L	0x204e6,A0
000220f8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000220fa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000220fc 51 c8 ff fc              |Q       |		DBF	D0,0x220fa
00022100 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00022104 4e ba fe 7a              |N  z    |		JSR	0x21f80
00022108 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002210c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002210e 48 80                    |H       |		EXTB.W	D0
00022110 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00022114 13 c0 00 02 69 6e        |    in  |		MOVE.B	D0,0x2696e
0002211a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002211e 4e 5e                    |N^      |		UNLK	A6
00022120 4e 75                    |Nu      |		RTS
00022122 ; --------------------------------------------------------------------------------------
00022122 ; OMSI PASCAL Function
00022122 ;    <LVAR  0x008 4(r)>
00022122 ; --------------------------------------------------------------------------------------
00022122					CMD_ULOAD(?):
00022122 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00022126 bf d5                    |        |		CMPA.L	(A5),A7
00022128 62 06                    |b       |		BHI	0x22130
0002212a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002212e 4e 76                    |Nv      |		TRAPV
00022130 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022134 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022138 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002213a 41 fa e3 b4              |A       |		LEA.L	0x204f0,A0
0002213e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022140 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022142 51 c8 ff fc              |Q       |		DBF	D0,0x22140
00022146 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002214a 4e ba fe 34              |N  4    |		JSR	0x21f80
0002214e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022152 10 1f                    |        |		MOVE.B	(A7)+,D0
00022154 48 80                    |H       |		EXTB.W	D0
00022156 41 bc 00 01              |A       |		CHK.W	#0x1,D0
0002215a 13 c0 00 02 69 6f        |    io  |		MOVE.B	D0,0x2696f
00022160 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022164 4e 5e                    |N^      |		UNLK	A6
00022166 4e 75                    |Nu      |		RTS
00022168 ; --------------------------------------------------------------------------------------
00022168 ; OMSI PASCAL Function
00022168 ;    <LVAR  0x00c 1(w)>
00022168 ;    <LVAR  0x008 4(r)>
00022168 ;    <LVAR -0x006 @ 4(rw)>
00022168 ; --------------------------------------------------------------------------------------
00022168					MATCH_POWER_MARGINS(?):
00022168 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
0002216c bf d5                    |        |		CMPA.L	(A5),A7
0002216e 62 06                    |b       |		BHI	0x22176
00022170 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022174 4e 76                    |Nv      |		TRAPV
00022176 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
0002217a 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0002217e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022182 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00022184 76 01                    |v       |		MOVEQ.L	#0x01,D3
00022186 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022188 10 07                    |        |		MOVE.B	D7,D0
0002218a 48 80                    |H       |		EXTB.W	D0
0002218c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002218e c3 c0                    |        |		MULS.W	D0,D1
00022190 41 fa ea 22              |A  "    |		LEA.L	TXTTBL_POWER_MARGINS,A0
00022194 9e c2                    |        |		SUBA.W	D2,A7
00022196 22 4f                    |"O      |		MOVEA.L	A7,A1
00022198 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
0002219c 72 09                    |r       |		MOVEQ.L	#0x09,D1
0002219e 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000221a0 51 c9 ff fc              |Q       |		DBF	D1,0x2219e
000221a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221aa 3f 03                    |?       |		MOVE.W	D3,-(A7)
000221ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221ae 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b6 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000221b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221ba 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000221be 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000221c0 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000221c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221c8 12 1f                    |        |		MOVE.B	(A7)+,D1
000221ca 48 81                    |H       |		EXTB.W	D1
000221cc 43 83                    |C       |		CHK.W	D3,D1
000221ce 1c 01                    |        |		MOVE.B	D1,D6
000221d0 48 52                    |HR      |		PEA.L	(A2)
000221d2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000221d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221da 4a 06                    |J       |		TST.B	D6
000221dc 66 04                    |f       |		BNE	0x221e2
000221de 52 40                    |R@      |		ADDQ.W	#0x1,D0
000221e0 1e 00                    |        |		MOVE.B	D0,D7
000221e2 4a 06                    |J       |		TST.B	D6
000221e4 66 06                    |f       |		BNE	0x221ec
000221e6 0c 07 00 03              |        |		CMPI.B	#0x03,D7
000221ea 66 9c                    |f       |		BNE	0x22188
000221ec 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
000221f0 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
000221f4 4e 5e                    |N^      |		UNLK	A6
000221f6 4e 75                    |Nu      |		RTS
000221f8 ; --------------------------------------------------------------------------------------
000221f8 ; OMSI PASCAL Function
000221f8 ;    <LVAR  0x00c 1(w)>
000221f8 ;    <LVAR  0x008 4(r)>
000221f8 ;    <LVAR -0x006 @ 4(rw)>
000221f8 ; --------------------------------------------------------------------------------------
000221f8					MATCH_CLOCK_MARGINS(?):
000221f8 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
000221fc bf d5                    |        |		CMPA.L	(A5),A7
000221fe 62 06                    |b       |		BHI	0x22206
00022200 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022204 4e 76                    |Nv      |		TRAPV
00022206 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
0002220a 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0002220e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022212 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00022214 76 01                    |v       |		MOVEQ.L	#0x01,D3
00022216 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022218 10 07                    |        |		MOVE.B	D7,D0
0002221a 48 80                    |H       |		EXTB.W	D0
0002221c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002221e c3 c0                    |        |		MULS.W	D0,D1
00022220 41 fa e9 ba              |A       |		LEA.L	TXTTBL_CLOCK_MARGINS,A0
00022224 9e c2                    |        |		SUBA.W	D2,A7
00022226 22 4f                    |"O      |		MOVEA.L	A7,A1
00022228 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
0002222c 72 09                    |r       |		MOVEQ.L	#0x09,D1
0002222e 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022230 51 c9 ff fc              |Q       |		DBF	D1,0x2222e
00022234 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022236 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002223a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002223c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002223e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022244 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022246 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022248 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002224a 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
0002224e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022250 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00022256 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022258 12 1f                    |        |		MOVE.B	(A7)+,D1
0002225a 48 81                    |H       |		EXTB.W	D1
0002225c 43 83                    |C       |		CHK.W	D3,D1
0002225e 1c 01                    |        |		MOVE.B	D1,D6
00022260 48 52                    |HR      |		PEA.L	(A2)
00022262 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022268 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002226a 4a 06                    |J       |		TST.B	D6
0002226c 66 04                    |f       |		BNE	0x22272
0002226e 52 40                    |R@      |		ADDQ.W	#0x1,D0
00022270 1e 00                    |        |		MOVE.B	D0,D7
00022272 4a 06                    |J       |		TST.B	D6
00022274 66 06                    |f       |		BNE	0x2227c
00022276 0c 07 00 03              |        |		CMPI.B	#0x03,D7
0002227a 66 9c                    |f       |		BNE	0x22218
0002227c 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
00022280 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
00022284 4e 5e                    |N^      |		UNLK	A6
00022286 4e 75                    |Nu      |		RTS
00022288 ; --------------------------------------------------------------------------------------
00022288 ; OMSI PASCAL Function
00022288 ;    <LVAR  0x008 4(r)>
00022288 ;    <LVAR -0x00a @ 4(rw)>
00022288 ;    <LVAR -0x00e @ 4(rw)>
00022288 ;    <LVAR -0x012 @ 4(rw)>
00022288 ; --------------------------------------------------------------------------------------
00022288					CMD_MARGIN(?):
00022288 4e 56 ff 76              |NV v    |		LINK.W	A6,#0xff76
0002228c bf d5                    |        |		CMPA.L	(A5),A7
0002228e 62 06                    |b       |		BHI	0x22296
00022290 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022294 4e 76                    |Nv      |		TRAPV
00022296 de fc 00 76              |   v    |		ADDA.W	#0x76,A7
0002229a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002229e 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
000222a2 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000222a8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000222aa 74 03                    |t       |		MOVEQ.L	#0x03,D2
000222ac 76 05                    |v       |		MOVEQ.L	#0x05,D3
000222ae 78 32                    |x2      |		MOVEQ.L	#0x32,D4
000222b0 7a 2c                    |z,      |		MOVEQ.L	#0x2c,D5
000222b2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000222b4 41 fa e3 1c              |A       |		LEA.L	0x205d2,A0
000222b8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000222ba 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000222bc 51 c8 ff fc              |Q       |		DBF	D0,0x222ba
000222c0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000222c4 48 78 00 02              |Hx      |		PEA.L	0x2
000222c8 4e b9 00 02 32 72        |N   2r  |		JSR	0x23272
000222ce de fc 00 0a              |        |		ADDA.W	#0xa,A7
000222d2 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000222d6 48 78 00 01              |Hx      |		PEA.L	0x1
000222da 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
000222e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222e2 2d 57 ff ee              |-W      |		MOVE.L	(A7),(A6-0x12)
000222e6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000222ea 48 78 00 02              |Hx      |		PEA.L	0x2
000222ee 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
000222f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222f6 2d 57 ff f2              |-W      |		MOVE.L	(A7),(A6-0xe)
000222fa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000222fc 20 4f                    | O      |		MOVEA.L	A7,A0
000222fe 43 fa e2 d2              |C       |		LEA.L	0x205d2,A1
00022302 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022304 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022306 51 c8 ff fc              |Q       |		DBF	D0,0x22304
0002230a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002230c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022310 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022312 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022314 4e 93                    |N       |		JSR	(A3)
00022316 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022318 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002231a 2e ae ff ee              |.       |		MOVE.L	(A6-0x12),(A7)
0002231e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022320 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00022326 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022328 4a 1f                    |J       |		TST.B	(A7)+
0002232a 67 58                    |gX      |		BEQ	0x22384
0002232c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002232e 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00022332 4e ba fe 34              |N  4    |		JSR	MATCH_POWER_MARGINS(?)
00022336 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022338 10 1f                    |        |		MOVE.B	(A7)+,D0
0002233a 48 80                    |H       |		EXTB.W	D0
0002233c 41 82                    |A       |		CHK.W	D2,D0
0002233e 1c 00                    |        |		MOVE.B	D0,D6
00022340 bc 02                    |        |		CMP.B	D2,D6
00022342 67 1c                    |g       |		BEQ	0x22360
00022344 10 06                    |        |		MOVE.B	D6,D0
00022346 48 80                    |H       |		EXTB.W	D0
00022348 48 c0                    |H       |		EXTW.L	D0
0002234a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00022350 63 02                    |c       |		BLS	0x22354
00022352 4e 4f                    |NO      |		TRAP	#15
00022354 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022356 4e b9 00 01 02 2e        |N    .  |		JSR	KC17_Power_Margin
0002235c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002235e 60 20                    |`       |		BRA	0x22380
00022360 41 fa e2 10              |A       |		LEA.L	0x20572,A0
00022364 70 18                    |p       |		MOVEQ.L	#0x18,D0
00022366 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022368 51 c8 ff fc              |Q       |		DBF	D0,0x22366
0002236c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002236e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022372 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022374 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022376 4e 93                    |N       |		JSR	(A3)
00022378 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002237a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002237c de c4                    |        |		ADDA.W	D4,A7
0002237e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022380 60 00 00 b8              |`       |		BRA	0x2243a
00022384 48 52                    |HR      |		PEA.L	(A2)
00022386 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002238c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002238e 20 4f                    | O      |		MOVEA.L	A7,A0
00022390 43 fa e2 46              |C  F    |		LEA.L	0x205d8,A1
00022394 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022396 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022398 51 c8 ff fc              |Q       |		DBF	D0,0x22396
0002239c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002239e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223a4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000223a6 4e 93                    |N       |		JSR	(A3)
000223a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223aa 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000223ac 2e ae ff ee              |.       |		MOVE.L	(A6-0x12),(A7)
000223b0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223b2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000223b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223ba 4a 1f                    |J       |		TST.B	(A7)+
000223bc 67 58                    |gX      |		BEQ	0x22416
000223be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223c0 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000223c4 4e ba fe 32              |N  2    |		JSR	MATCH_CLOCK_MARGINS(?)
000223c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223ca 10 1f                    |        |		MOVE.B	(A7)+,D0
000223cc 48 80                    |H       |		EXTB.W	D0
000223ce 41 82                    |A       |		CHK.W	D2,D0
000223d0 1c 00                    |        |		MOVE.B	D0,D6
000223d2 67 04                    |g       |		BEQ	0x223d8
000223d4 bc 01                    |        |		CMP.B	D1,D6
000223d6 66 1c                    |f       |		BNE	0x223f4
000223d8 10 06                    |        |		MOVE.B	D6,D0
000223da 48 80                    |H       |		EXTB.W	D0
000223dc 48 c0                    |H       |		EXTW.L	D0
000223de 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000223e4 63 02                    |c       |		BLS	0x223e8
000223e6 4e 4f                    |NO      |		TRAP	#15
000223e8 3f 00                    |?       |		MOVE.W	D0,-(A7)
000223ea 4e b9 00 01 02 2c        |N    ,  |		JSR	KC16_Clock_Margin
000223f0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000223f2 60 20                    |`       |		BRA	0x22414
000223f4 41 fa e1 a8              |A       |		LEA.L	0x2059e,A0
000223f8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000223fa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000223fc 51 c8 ff fc              |Q       |		DBF	D0,0x223fa
00022400 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022402 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022406 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022408 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002240a 4e 93                    |N       |		JSR	(A3)
0002240c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002240e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022410 de c5                    |        |		ADDA.W	D5,A7
00022412 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022414 60 24                    |`$      |		BRA	0x2243a
00022416 41 fa e1 b0              |A       |		LEA.L	0x205c8,A0
0002241a 70 14                    |p       |		MOVEQ.L	#0x14,D0
0002241c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002241e 51 c8 ff fc              |Q       |		DBF	D0,0x2241c
00022422 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022424 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022428 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002242a 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
0002242e 4e 93                    |N       |		JSR	(A3)
00022430 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022432 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022434 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022438 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002243a 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
0002243e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022444 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022446 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002244a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022450 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022452 48 52                    |HR      |		PEA.L	(A2)
00022454 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002245a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002245c 4a 07                    |J       |		TST.B	D7
0002245e 67 0a                    |g       |		BEQ	0x2246a
00022460 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022462 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022468 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002246a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002246e 4e 5e                    |N^      |		UNLK	A6
00022470 4e 75                    |Nu      |		RTS
00022472 ; --------------------------------------------------------------------------------------
00022472 ; OMSI PASCAL Function
00022472 ;    <LVAR  0x00c 4(w)>
00022472 ;    <LVAR  0x008 4(r)>
00022472 ;    <LVAR -0x008 @ 4(rw)>
00022472 ; --------------------------------------------------------------------------------------
00022472					MATCH_CMDS(?):
00022472 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00022476 bf d5                    |        |		CMPA.L	(A5),A7
00022478 62 06                    |b       |		BHI	0x22480
0002247a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002247e 4e 76                    |Nv      |		TRAPV
00022480 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00022484 48 e7 fb e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022488 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
0002248c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002248e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022490 2d 7c ff ff ff ff 00 0c  |-|      |		MOVE.L	#0xffffffff,(A6+0xc)
00022498 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002249a 20 07                    |        |		MOVE.L	D7,D0
0002249c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002249e 0c 80 00 00 00 08        |        |		CMPI.L	#0x00000008,D0
000224a4 63 02                    |c       |		BLS	0x224a8
000224a6 4e 4f                    |NO      |		TRAP	#15
000224a8 28 00                    |(       |		MOVE.L	D0,D4
000224aa 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000224ac 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000224b2 41 fa e7 50              |A  P    |		LEA.L	TXTTBL_CMDS,A0
000224b6 9e c1                    |        |		SUBA.W	D1,A7
000224b8 22 4f                    |"O      |		MOVEA.L	A7,A1
000224ba 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000224be 70 09                    |p       |		MOVEQ.L	#0x09,D0
000224c0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000224c2 51 c8 ff fc              |Q       |		DBF	D0,0x224c0
000224c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224c8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224cc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000224ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224d0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224d8 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000224da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224dc 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000224e0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000224e2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000224e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224ea 10 1f                    |        |		MOVE.B	(A7)+,D0
000224ec 48 80                    |H       |		EXTB.W	D0
000224ee 41 82                    |A       |		CHK.W	D2,D0
000224f0 1c 00                    |        |		MOVE.B	D0,D6
000224f2 48 52                    |HR      |		PEA.L	(A2)
000224f4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000224fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224fc 4a 06                    |J       |		TST.B	D6
000224fe 67 06                    |g       |		BEQ	0x22506
00022500 2d 47 00 0c              |-G      |		MOVE.L	D7,(A6+0xc)
00022504 60 0a                    |`       |		BRA	0x22510
00022506 52 87                    |R       |		ADDQ.L	#0x1,D7
00022508 0c 87 00 00 00 09        |        |		CMPI.L	#0x00000009,D7
0002250e 6f 8a                    |o       |		BLE	0x2249a
00022510 4c df 07 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2
00022514 4e 5e                    |N^      |		UNLK	A6
00022516 4e 75                    |Nu      |		RTS
00022518 ; --------------------------------------------------------------------------------------
00022518 ; OMSI PASCAL Function
00022518 ; --------------------------------------------------------------------------------------
00022518					CMD_POWERDOWN(?):
00022518 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
0002251c bf d5                    |        |		CMPA.L	(A5),A7
0002251e 62 06                    |b       |		BHI	0x22526
00022520 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022524 4e 76                    |Nv      |		TRAPV
00022526 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002252a 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
0002252e 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022534 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002253a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002253c 74 2c                    |t,      |		MOVEQ.L	#0x2c,D2
0002253e 4a 39 00 02 69 57        |J9  iW  |		TST.B	0x26957
00022544 67 28                    |g(      |		BEQ	0x2256e
00022546 9e c2                    |        |		SUBA.W	D2,A7
00022548 20 4f                    | O      |		MOVEA.L	A7,A0
0002254a 43 fa e3 8a              |C       |		LEA.L	0x208d6,A1
0002254e 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
00022550 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022552 51 c8 ff fc              |Q       |		DBF	D0,0x22550
00022556 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022558 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002255c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002255e 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
00022562 4e 92                    |N       |		JSR	(A2)
00022564 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022566 4e 93                    |N       |		JSR	(A3)
00022568 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002256c 60 66                    |`f      |		BRA	0x225d4
0002256e 41 fa e2 f6              |A       |		LEA.L	0x20866,A0
00022572 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00022574 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022576 51 c8 ff fc              |Q       |		DBF	D0,0x22574
0002257a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002257c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022580 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022582 3f 3c 00 46              |?< F    |		MOVE.W	#0x46,-(A7)
00022586 4e 92                    |N       |		JSR	(A2)
00022588 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002258a 4e 93                    |N       |		JSR	(A3)
0002258c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002258e 20 4f                    | O      |		MOVEA.L	A7,A0
00022590 43 fa e2 d4              |C       |		LEA.L	0x20866,A1
00022594 70 46                    |pF      |		MOVEQ.L	#0x46,D0
00022596 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022598 51 c8 ff fc              |Q       |		DBF	D0,0x22596
0002259c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002259e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225a4 3f 3c 00 47              |?< G    |		MOVE.W	#0x47,-(A7)
000225a8 4e 92                    |N       |		JSR	(A2)
000225aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225ac 4e 93                    |N       |		JSR	(A3)
000225ae de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000225b2 20 4f                    | O      |		MOVEA.L	A7,A0
000225b4 43 fa e2 f8              |C       |		LEA.L	0x208ae,A1
000225b8 70 26                    |p&      |		MOVEQ.L	#0x26,D0
000225ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000225bc 51 c8 ff fc              |Q       |		DBF	D0,0x225ba
000225c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225c8 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
000225cc 4e 92                    |N       |		JSR	(A2)
000225ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225d0 4e 93                    |N       |		JSR	(A3)
000225d2 de c2                    |        |		ADDA.W	D2,A7
000225d4 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
000225d8 4e 5e                    |N^      |		UNLK	A6
000225da 4e 75                    |Nu      |		RTS
000225dc ; --------------------------------------------------------------------------------------
000225dc ; OMSI PASCAL Function
000225dc ;    <LVAR  0x010 4(r)>
000225dc ;    <LVAR  0x00c 4(r)>
000225dc ;    <LVAR  0x008 4(r)>
000225dc ; --------------------------------------------------------------------------------------
000225dc					DISPATCH_CMDS(?):
000225dc 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
000225e0 bf d5                    |        |		CMPA.L	(A5),A7
000225e2 62 06                    |b       |		BHI	0x225ea
000225e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225e8 4e 76                    |Nv      |		TRAPV
000225ea de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000225ee 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000225f2 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
000225f6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000225fa 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
000225fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022600 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00022604 4e ba fe 6c              |N  l    |		JSR	MATCH_CMDS(?)
00022608 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002260a 20 1f                    |        |		MOVE.L	(A7)+,D0
0002260c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002260e 0c 80 00 00 00 08        |        |		CMPI.L	#0x00000008,D0
00022614 62 62                    |bb      |		BHI	0x22678
00022616 d0 40                    | @      |		ADD.W	D0,D0
00022618 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022620 00 12                    |        |		.CONST	0x12			; [0x0] -> 0x22632
00022622 00 1c                    |        |		.CONST	0x1c			; [0x1] -> 0x2263c
00022624 00 24                    | $      |		.CONST	0x24			; [0x2] -> 0x22644
00022626 00 2c                    | ,      |		.CONST	0x2c			; [0x3] -> 0x2264c
00022628 00 32                    | 2      |		.CONST	0x32			; [0x4] -> 0x22652
0002262a 00 3a                    | :      |		.CONST	0x3a			; [0x5] -> 0x2265a
0002262c 00 42                    | B      |		.CONST	0x42			; [0x6] -> 0x22662
0002262e 00 4a                    | J      |		.CONST	0x4a			; [0x7] -> 0x2266a
00022630 00 52                    | R      |		.CONST	0x52			; [0x8] -> 0x22672
00022632					switch@0x22618[0x0]:
00022632 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022634 4e ba f1 10              |N       |		JSR	CMD_TEST(?)
00022638 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002263a 60 3e                    |`>      |		BRA	0x2267a
0002263c					switch@0x22618[0x1]:
0002263c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002263e 4e ba f4 a2              |N       |		JSR	CMD_RUN(?)
00022642 60 f4                    |`       |		BRA	0x22638
00022644					switch@0x22618[0x2]:
00022644 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022646 4e ba f8 5c              |N  \    |		JSR	CMD_ERRMESS(?)
0002264a 60 ec                    |`       |		BRA	0x22638
0002264c					switch@0x22618[0x3]:
0002264c 4e ba ee c0              |N       |		JSR	CMD_INIT_STATE(?)
00022650 60 28                    |`(      |		BRA	0x2267a
00022652					switch@0x22618[0x4]:
00022652 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022654 4e ba fa 40              |N  @    |		JSR	CMD_ISOLATE(?)
00022658 60 de                    |`       |		BRA	0x22638
0002265a					switch@0x22618[0x5]:
0002265a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002265c 4e ba fa 7e              |N  ~    |		JSR	CMD_TRACE(?)
00022660 60 d6                    |`       |		BRA	0x22638
00022662					switch@0x22618[0x6]:
00022662 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022664 4e ba fa bc              |N       |		JSR	CMD_ULOAD(?)
00022668 60 ce                    |`       |		BRA	0x22638
0002266a					switch@0x22618[0x7]:
0002266a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002266c 4e ba fc 1a              |N       |		JSR	CMD_MARGIN(?)
00022670 60 c6                    |`       |		BRA	0x22638
00022672					switch@0x22618[0x8]:
00022672 4e ba fe a4              |N       |		JSR	CMD_POWERDOWN(?)
00022676 60 02                    |`       |		BRA	0x2267a
00022678 42 10                    |B       |		CLR.B	(A0)
0002267a 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002267e 4e 5e                    |N^      |		UNLK	A6
00022680 4e 75                    |Nu      |		RTS
00022682 ; --------------------------------------------------------------------------------------
00022682 ; OMSI PASCAL Function
00022682 ;    <LVAR  0x008 4(r)>
00022682 ;    <LVAR -0x002 @ 1(r)>
00022682 ;    <LVAR -0x008 @ 1(r)>
00022682 ; --------------------------------------------------------------------------------------
00022682 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00022686 bf d5                    |        |		CMPA.L	(A5),A7
00022688 62 06                    |b       |		BHI	0x22690
0002268a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002268e 4e 76                    |Nv      |		TRAPV
00022690 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
00022694 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00022698 45 f9 00 02 69 57        |E   iW  |		LEA.L	0x26957,A2
0002269e 72 01                    |r       |		MOVEQ.L	#0x01,D1
000226a0 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000226a6 13 c1 00 02 69 6d        |    im  |		MOVE.B	D1,0x2696d
000226ac 13 c1 00 02 69 6e        |    in  |		MOVE.B	D1,0x2696e
000226b2 13 c1 00 02 69 6f        |    io  |		MOVE.B	D1,0x2696f
000226b8 42 39 00 02 69 70        |B9  ip  |		CLR.B	0x26970
000226be 48 79 00 02 69 72        |Hy  ir  |		PEA.L	0x26972
000226c4 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000226ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000226cc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000226d0 43 fa e2 80              |C       |		LEA.L	t_DIAG_,A1
000226d4 70 09                    |p       |		MOVEQ.L	#0x09,D0
000226d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000226d8 51 c8 ff fc              |Q       |		DBF	D0,0x226d6
000226dc 4e ba eb 22              |N  "    |		JSR	0x21200
000226e0 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000226e4 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000226e8 4e b9 00 01 05 7a        |N    z  |		JSR	Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
000226ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226f0 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000226f4 67 06                    |g       |		BEQ	0x226fc
000226f6 14 ae ff f8              |        |		MOVE.B	(A6-0x8),(A2)
000226fa 60 02                    |`       |		BRA	0x226fe
000226fc 42 12                    |B       |		CLR.B	(A2)
000226fe 4a 12                    |J       |		TST.B	(A2)
00022700 67 5a                    |gZ      |		BEQ	0x2275c
00022702 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
00022706 20 4f                    | O      |		MOVEA.L	A7,A0
00022708 43 fa e1 f8              |C       |		LEA.L	0x20902,A1
0002270c 70 22                    |p"      |		MOVEQ.L	#0x22,D0
0002270e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022710 51 c8 ff fc              |Q       |		DBF	D0,0x2270e
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 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022720 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022726 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022728 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002272e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022732 41 fa e2 1e              |A       |		LEA.L	t_DIAG_,A0
00022736 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022738 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002273a 51 c8 ff fc              |Q       |		DBF	D0,0x22738
0002273e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022740 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022744 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022746 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
0002274a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022750 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022752 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022758 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002275c 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022760 4e 5e                    |N^      |		UNLK	A6
00022762 4e 75                    |Nu      |		RTS
00022764 ; --------------------------------------------------------------------------------------
00022764 ; COMMAND TABLE
00022764 ; --------------------------------------------------------------------------------------
00022764					COMMAND_TABLE_22764:
00022764 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
0002276e 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
00022778 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00022782 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
0002278c 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
00022796 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
000227a0 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
000227aa 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
000227b4 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
000227be 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
000227c8 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
000227d2 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
000227dc 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
000227e6 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
000227f0 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
000227fa 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
00022804 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
0002280e 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
00022818 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
00022822 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
0002282c 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
00022836 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00022840 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
0002284a 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
00022854 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
0002285e 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
00022868 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00022872 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
0002287c 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
00022886 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00022890 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
0002289a 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
000228a4 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
000228ae 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
000228b8 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
000228c2 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
000228cc 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
000228d6 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
000228e0 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
000228ea 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
000228f4 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
000228fe 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
00022908 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
00022912 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
0002291c 57 72 6f 6e 67 20 6e 75  |Wrong nu|		.TXT	'Wrong number of arguments for :_'
0002293c 45 51 2c 4e              |EQ,N    |		.XXX[0x4]
00022940 45 2c 23 45 51 2c 23 4e  |E,#EQ,#N|		.XXX[0x38]
00022948 45 2c 23 4c 54 2c 23 47  |E,#LT,#G|
00022950 54 2c 23 4c 45 2c 23 47  |T,#LE,#G|
00022958 45 2c 45 4c 53 45 5d 45  |E,ELSE]E|
00022960 4e 44 5d 43 41 53 45 2c  |ND]CASE,|
00022968 23 43 41 53 45 2c 57 48  |#CASE,WH|
00022970 45 4e 2c 45 4e 44 43 41  |EN,ENDCA|
00022978 53 45 5d 20              |SE]     |		.XXX[0x4]
0002297c 45 76 61 6c 75 61 74 69  |Evaluati|		.TXT	'Evaluation buffer overflow. '
00022998 55 6e 62 61 6c 61 6e 63  |Unbalanc|		.TXT	'Unbalanced [ELSE] or [END]! '
000229b4 5b 57 48 45 4e 20 5d 20  |[WHEN ] |		.TXT	'[WHEN ]   '
000229be 4e 6f 20 63 61 73 65 20  |No case |		.TXT	'No case alternative found!'
000229d8 4e 6f 20 5b 45 4e 44 43  |No [ENDC|		.TXT	'No [ENDCASE] found! '
000229ec 4e 6f 20 68 65 6c 70 20  |No help |		.TXT	'No help available for_'
00022a02 2e 48 4c 50              |.HLP    |		.TXT	'.HLP'
00022a06 54 6f 6f 20 66 65 77 20  |Too few |		.TXT	'Too few arguments for SET '
00022a20 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown variable :_ '
00022a34 20 69 73 20 6e 6f 74 20  | is not |		.TXT	' is not a program.'
00022a46 43 4c                    |CL      |		.TXT	'CL'
00022a48 49 20 2e 4d 31 30 30 20  |I .M100 |		.XXX[0x8]
00022a50 2e 4d 32 30 30 20        |.M200   |		.TXT	'.M200 '
00022a56 53 54                    |ST      |		.TXT	'ST'
00022a58 41 54                    |AT      |		.TXT	'AT'
00022a5a 55 53                    |US      |		.TXT	'US'
00022a5c 52 45                    |RE      |		.TXT	'RE'
00022a5e 53 55                    |SU      |		.TXT	'SU'
00022a60 4c 54                    |LT      |		.TXT	'LT'
00022a62 4f 66 66 73 65 74 2f 4c  |Offset/L|		.TXT	'Offset/Length error in [INSERT] '
00022a82 52 45 50 45 41 54 69 6e  |REPEATin|		.TXT	'REPEATing, type ^G to exit. '
00022a9e 41 53 43 49 49 20 61 72  |ASCII ar|		.TXT	'ASCII argument out of range.'
00022aba 4e 6f 74 20 61 20 63 6f  |Not a co|		.TXT	'Not a command or macro :_ '
00022ad4 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal marker argument '
00022aec 53 77 69 74 63 68 20 65  |Switch e|		.TXT	'Switch exclusion is unimplemented.'
00022b0e 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
00022b26 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal argument marker.'
00022b3e 5b 49 4e 49 54 5d 5b 20  |[INIT][ |		.TXT	'[INIT][ '
00022b46 5d 5b 42 59 45 5d 3b 20  |][BYE]; |		.TXT	'][BYE]; '
00022b4e 5b 49 4e 49 54 5d 3b 20  |[INIT]; |		.TXT	'[INIT]; '
00022b56 3e 5f                    |>_      |		.TXT	'>_'
00022b58 5b 20                    |[       |		.TXT	'[ '
00022b5a 5d 3b                    |];      |		.TXT	'];'
00022b5c ; --------------------------------------------------------------------------------------
00022b5c ; COMMAND TABLE
00022b5c ; --------------------------------------------------------------------------------------
00022b5c					COMMAND_TABLE_22b5c:
00022b5c 21 40 23 24 25 5e 26 2a  |!@#$%^&*|		.TXT	'!@#$%^&*()'
00022b66 57 52 49 54 45 20 20 20  |WRITE   |		.TXT	'WRITE     '
00022b70 42 59 45 20 20 20 20 20  |BYE     |		.TXT	'BYE       '
00022b7a 48 45 41 50 20 20 20 20  |HEAP    |		.TXT	'HEAP      '
00022b84 48 45 4c 50 20 20 20 20  |HELP    |		.TXT	'HELP      '
00022b8e 41 42 4f 52 54 20 20 20  |ABORT   |		.TXT	'ABORT     '
00022b98 43 4f 4d 4d 45 4e 54 20  |COMMENT |		.TXT	'COMMENT   '
00022ba2 53 45 54 20 20 20 20 20  |SET     |		.TXT	'SET       '
00022bac 56 41 52 20 20 20 20 20  |VAR     |		.TXT	'VAR       '
00022bb6 56 41 52 53 20 20 20 20  |VARS    |		.TXT	'VARS      '
00022bc0 45 51 20 20 20 20 20 20  |EQ      |		.TXT	'EQ        '
00022bca 4e 45 20 20 20 20 20 20  |NE      |		.TXT	'NE        '
00022bd4 43 41 53 45 20 20 20 20  |CASE    |		.TXT	'CASE      '
00022bde 49 4e 53 45 52 54 20 20  |INSERT  |		.TXT	'INSERT    '
00022be8 45 58 54 52 41 43 54 20  |EXTRACT |		.TXT	'EXTRACT   '
00022bf2 23 43 41 53 45 20 20 20  |#CASE   |		.TXT	'#CASE     '
00022bfc 23 45 51 20 20 20 20 20  |#EQ     |		.TXT	'#EQ       '
00022c06 23 4e 45 20 20 20 20 20  |#NE     |		.TXT	'#NE       '
00022c10 23 4c 54 20 20 20 20 20  |#LT     |		.TXT	'#LT       '
00022c1a 23 47 54 20 20 20 20 20  |#GT     |		.TXT	'#GT       '
00022c24 23 4c 45 20 20 20 20 20  |#LE     |		.TXT	'#LE       '
00022c2e 23 47 45 20 20 20 20 20  |#GE     |		.TXT	'#GE       '
00022c38 41 44 44 20 20 20 20 20  |ADD     |		.TXT	'ADD       '
00022c42 53 55 42 20 20 20 20 20  |SUB     |		.TXT	'SUB       '
00022c4c 4d 55 4c 20 20 20 20 20  |MUL     |		.TXT	'MUL       '
00022c56 44 49 56 20 20 20 20 20  |DIV     |		.TXT	'DIV       '
00022c60 4d 4f 44 20 20 20 20 20  |MOD     |		.TXT	'MOD       '
00022c6a 4f 52 20 20 20 20 20 20  |OR      |		.TXT	'OR        '
00022c74 41 4e 44 20 20 20 20 20  |AND     |		.TXT	'AND       '
00022c7e 58 4f 52 20 20 20 20 20  |XOR     |		.TXT	'XOR       '
00022c88 4c 53 48 49 46 54 20 20  |LSHIFT  |		.TXT	'LSHIFT    '
00022c92 52 53 48 49 46 54 20 20  |RSHIFT  |		.TXT	'RSHIFT    '
00022c9c 4e 4f 54 20 20 20 20 20  |NOT     |		.TXT	'NOT       '
00022ca6 23 49 4e 53 45 52 54 20  |#INSERT |		.TXT	'#INSERT   '
00022cb0 23 45 58 54 52 41 43 54  |#EXTRACT|		.TXT	'#EXTRACT  '
00022cba 52 45 41 44 20 20 20 20  |READ    |		.TXT	'READ      '
00022cc4 4b 49 4c 4c 20 20 20 20  |KILL    |		.TXT	'KILL      '
00022cce 50 55 53 48 20 20 20 20  |PUSH    |		.TXT	'PUSH      '
00022cd8 4c 45 56 45 4c 20 20 20  |LEVEL   |		.TXT	'LEVEL     '
00022ce2 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT   '
00022cec 43 4f 55 4e 54 5f 4f 4e  |COUNT_ON|		.TXT	'COUNT_ONES'
00022cf6 52 45 50 45 41 54 20 20  |REPEAT  |		.TXT	'REPEAT    '
00022d00 4d 4f 44 45 4c 20 20 20  |MODEL   |		.TXT	'MODEL     '
00022d0a 41 53 43 49 49 20 20 20  |ASCII   |		.TXT	'ASCII     '
00022d14 a5 34 45 73              | 4Es    |		.XXX[0x4]
00022d18 34 22 46 75 33 33 33 33  |4"Fu3333|		.XXX[0x98]
00022d20 33 32 33 66 37 84 44 57  |323f7 DW|
00022d28 a6 55 0f 00 f0 ff 10 22  | U     "|
00022d30 14 31 22 22 22 22 22 22  | 1""""""|
00022d38 22 22 14 3f 1f 03 10 0f  |"" ?    |
00022d40 00 00 00 00 ff ff ff ff  |        |
00022d48 00 01 01 00 01 01 00 01  |        |
00022d50 02 00 00 01 02 00 01 02  |        |
00022d58 00 01 14 06 01 14 08 14  |        |
00022d60 0f 02 03 14 14 08 14 0f  |        |
00022d68 14 14 14 14 14 14 14 04  |        |
00022d70 14 05 14 14 14 14 14 14  |        |
00022d78 14 14 14 14 14 04 14 14  |        |
00022d80 14 14 14 14 04 14 07 14  |        |
00022d88 14 14 14 04 14 14 14 14  |        |
00022d90 14 14 0c 14 14 09 14 14  |        |
00022d98 14 0d 14 14 14 0b 0a 14  |        |
00022da0 0e 14 14 14 08 14 14 0c  |        |
00022da8 14 14 09 14 14 14 14 14  |        |
00022db0 14 14 14 14 14 14 14 14  |        |		.BLANK	14[0x10]
00022dc0 14 14 14 10 14 14 11 14  |        |		.XXX[0x20]
00022dc8 14 14 14 14 14 14 14 14  |        |
00022dd0 14 13 14 14 14 14 14 12  |        |
00022dd8 14 14 14 11 14 14 14 14  |        |
00022de0 14 14 14 14 14 14        |        |		.XXX[0x6]
00022de6 ; --------------------------------------------------------------------------------------
00022de6 ; OMSI PASCAL Function
00022de6 ;    <LVAR  0x008 4(r)>
00022de6 ;    <LVAR -0x004 @ 4(w)>
00022de6 ; --------------------------------------------------------------------------------------
00022de6 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00022dea bf d5                    |        |		CMPA.L	(A5),A7
00022dec 62 06                    |b       |		BHI	0x22df4
00022dee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022df2 4e 76                    |Nv      |		TRAPV
00022df4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022df8 48 e7 00 08              |H       |		MOVEM.L	A4,-(A7)
00022dfc 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00022e00 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00022e04 67 1a                    |g       |		BEQ	0x22e20
00022e06 2d 4c ff fc              |-L      |		MOVE.L	A4,(A6-0x4)
00022e0a 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00022e0e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022e12 48 78 00 0c              |Hx      |		PEA.L	0xc
00022e16 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00022e1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e1e 60 e0                    |`       |		BRA	0x22e00
00022e20 4c df 10 00              |L       |		MOVEM.L	(A7)+,A4
00022e24 4e 5e                    |N^      |		UNLK	A6
00022e26 4e 75                    |Nu      |		RTS
00022e28 ; --------------------------------------------------------------------------------------
00022e28 ; OMSI PASCAL Function
00022e28 ;    <LVAR  0x008 4(r)>
00022e28 ; --------------------------------------------------------------------------------------
00022e28 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00022e2c bf d5                    |        |		CMPA.L	(A5),A7
00022e2e 62 06                    |b       |		BHI	0x22e36
00022e30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e34 4e 76                    |Nv      |		TRAPV
00022e36 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022e3a 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00022e3e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022e42 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00022e46 67 0a                    |g       |		BEQ	0x22e52
00022e48 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022e4a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022e50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e52 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00022e56 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00022e5a 4e f9 00 02 67 a4        |N   g   |		JMP	0x267a4
00022e60 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00022e64 4e 5e                    |N^      |		UNLK	A6
00022e66 4e 75                    |Nu      |		RTS
00022e68 ; --------------------------------------------------------------------------------------
00022e68 ; OMSI PASCAL Function
00022e68 ;    <LVAR  0x008 4(w)>
00022e68 ; --------------------------------------------------------------------------------------
00022e68 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00022e6c bf d5                    |        |		CMPA.L	(A5),A7
00022e6e 62 06                    |b       |		BHI	0x22e76
00022e70 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e74 4e 76                    |Nv      |		TRAPV
00022e76 de fc 00 04              |        |		ADDA.W	#0x4,A7
00022e7a 2d 79 00 02 79 7e 00 08  |-y  y~  |		MOVE.L	0x2797e,(A6+0x8)
00022e82 4e 5e                    |N^      |		UNLK	A6
00022e84 4e 75                    |Nu      |		RTS
00022e86 ; --------------------------------------------------------------------------------------
00022e86 ; OMSI PASCAL Function
00022e86 ;    <LVAR  0x008 1(rw)>
00022e86 ; --------------------------------------------------------------------------------------
00022e86 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00022e8a bf d5                    |        |		CMPA.L	(A5),A7
00022e8c 62 06                    |b       |		BHI	0x22e94
00022e8e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e92 4e 76                    |Nv      |		TRAPV
00022e94 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022e98 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022e9c 20 39 00 02 79 7e        | 9  y~  |		MOVE.L	0x2797e,D0
00022ea2 b0 b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D0
00022ea8 6f 06                    |o       |		BLE	0x22eb0
00022eaa 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00022eae 60 0c                    |`       |		BRA	0x22ebc
00022eb0 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00022eb6 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00022ebc 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022ec0 4e 5e                    |N^      |		UNLK	A6
00022ec2 4e 75                    |Nu      |		RTS
00022ec4 ; --------------------------------------------------------------------------------------
00022ec4 ; OMSI PASCAL Function
00022ec4 ;    <LVAR  0x008 1(rw)>
00022ec4 ; --------------------------------------------------------------------------------------
00022ec4 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022ec8 bf d5                    |        |		CMPA.L	(A5),A7
00022eca 62 06                    |b       |		BHI	0x22ed2
00022ecc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ed0 4e 76                    |Nv      |		TRAPV
00022ed2 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022ed6 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00022eda 43 f9 00 02 79 7e        |C   y~  |		LEA.L	0x2797e,A1
00022ee0 20 11                    |        |		MOVE.L	(A1),D0
00022ee2 b0 b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D0
00022ee8 6f 06                    |o       |		BLE	0x22ef0
00022eea 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00022eee 60 0c                    |`       |		BRA	0x22efc
00022ef0 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00022ef6 1d 70 08 07 00 08        | p      |		MOVE.B	(A0+D0.L+#0x7),(A6+0x8)
00022efc 52 80                    |R       |		ADDQ.L	#0x1,D0
00022efe 22 80                    |"       |		MOVE.L	D0,(A1)
00022f00 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00022f04 4e 5e                    |N^      |		UNLK	A6
00022f06 4e 75                    |Nu      |		RTS
00022f08 ; --------------------------------------------------------------------------------------
00022f08 ; OMSI PASCAL Function
00022f08 ;    <LVAR  0x00c 4(r)>
00022f08 ;    <LVAR  0x008 4(r)>
00022f08 ; --------------------------------------------------------------------------------------
00022f08 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00022f0c bf d5                    |        |		CMPA.L	(A5),A7
00022f0e 62 06                    |b       |		BHI	0x22f16
00022f10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f14 4e 76                    |Nv      |		TRAPV
00022f16 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00022f1a 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022f1e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00022f22 47 f9 00 02 79 7e        |G   y~  |		LEA.L	0x2797e,A3
00022f28 72 5b                    |r[      |		MOVEQ.L	#0x5b,D1
00022f2a 74 02                    |t       |		MOVEQ.L	#0x02,D2
00022f2c 76 2c                    |v,      |		MOVEQ.L	#0x2c,D3
00022f2e 78 3b                    |x;      |		MOVEQ.L	#0x3b,D4
00022f30 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022f32 4e ba ff 52              |N  R    |		JSR	0x22e86
00022f36 10 1f                    |        |		MOVE.B	(A7)+,D0
00022f38 b0 01                    |        |		CMP.B	D1,D0
00022f3a 66 0c                    |f       |		BNE	0x22f48
00022f3c 4e b9 00 02 62 6c        |N   bl  |		JSR	0x2626c
00022f42 60 ff 00 00 00 94        |`       |		BRA	0x22fd8
00022f48 2c 13                    |,       |		MOVE.L	(A3),D6
00022f4a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022f4c 4e ba ff 76              |N  v    |		JSR	0x22ec4
00022f50 1a 1f                    |        |		MOVE.B	(A7)+,D5
00022f52 66 18                    |f       |		BNE	0x22f6c
00022f54 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022f58 43 fa fd e6              |C       |		LEA.L	0x22d40,A1
00022f5c 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022f5e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f60 51 c8 ff fc              |Q       |		DBF	D0,0x22f5e
00022f64 20 52                    | R      |		MOVEA.L	(A2),A0
00022f66 10 82                    |        |		MOVE.B	D2,(A0)
00022f68 60 74                    |`t      |		BRA	0x22fde
00022f6a 60 5c                    |`\      |		.XXX[0x2]
00022f6c ba 03                    |        |		CMP.B	D3,D5
00022f6e 66 08                    |f       |		BNE	0x22f78
00022f70 20 52                    | R      |		MOVEA.L	(A2),A0
00022f72 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00022f76 60 50                    |`P      |		BRA	0x22fc8
00022f78 ba 04                    |        |		CMP.B	D4,D5
00022f7a 66 08                    |f       |		BNE	0x22f84
00022f7c 20 52                    | R      |		MOVEA.L	(A2),A0
00022f7e 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00022f82 60 44                    |`D      |		BRA	0x22fc8
00022f84 0c 05 00 5d              |   ]    |		CMPI.B	#0x5d,D5
00022f88 66 06                    |f       |		BNE	0x22f90
00022f8a 20 52                    | R      |		MOVEA.L	(A2),A0
00022f8c 10 82                    |        |		MOVE.B	D2,(A0)
00022f8e 60 38                    |`8      |		BRA	0x22fc8
00022f90 20 52                    | R      |		MOVEA.L	(A2),A0
00022f92 42 10                    |B       |		CLR.B	(A0)
00022f94 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022f96 4e ba fe ee              |N       |		JSR	0x22e86
00022f9a 1e 1f                    |        |		MOVE.B	(A7)+,D7
00022f9c be 01                    |        |		CMP.B	D1,D7
00022f9e 66 08                    |f       |		BNE	0x22fa8
00022fa0 4e b9 00 02 62 6c        |N   bl  |		JSR	0x2626c
00022fa6 60 1e                    |`       |		BRA	0x22fc6
00022fa8 be 04                    |        |		CMP.B	D4,D7
00022faa 67 0e                    |g       |		BEQ	0x22fba
00022fac be 03                    |        |		CMP.B	D3,D7
00022fae 67 0a                    |g       |		BEQ	0x22fba
00022fb0 0c 07 00 5d              |   ]    |		CMPI.B	#0x5d,D7
00022fb4 67 04                    |g       |		BEQ	0x22fba
00022fb6 4a 07                    |J       |		TST.B	D7
00022fb8 66 04                    |f       |		BNE	0x22fbe
00022fba 60 0c                    |`       |		BRA	0x22fc8
00022fbc 60 08                    |`       |		.XXX[0x2]
00022fbe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022fc0 4e ba ff 02              |N       |		JSR	0x22ec4
00022fc4 1e 1f                    |        |		MOVE.B	(A7)+,D7
00022fc6 60 cc                    |`       |		BRA	0x22f94
00022fc8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022fcc 20 86                    |        |		MOVE.L	D6,(A0)
00022fce 21 53 00 04              |!S      |		MOVE.L	(A3),(A0+0x4)
00022fd2 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00022fd6 60 06                    |`       |		BRA	0x22fde
00022fd8 60 ff ff ff ff 56        |`    V  |		BRA	0x22f30
00022fde 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00022fe2 4e 5e                    |N^      |		UNLK	A6
00022fe4 4e 75                    |Nu      |		RTS
00022fe6 ; --------------------------------------------------------------------------------------
00022fe6 ; OMSI PASCAL Function
00022fe6 ;    <LVAR  0x010 4(r)>
00022fe6 ;    <LVAR  0x00c 4(r)>
00022fe6 ;    <LVAR  0x008 4(r)>
00022fe6 ;    <LVAR -0x004 @ 1(rw)>
00022fe6 ;    <LVAR -0x008 4(w)>
00022fe6 ;    <LVAR -0x00c @ 4(w)>
00022fe6 ; --------------------------------------------------------------------------------------
00022fe6 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00022fea bf d5                    |        |		CMPA.L	(A5),A7
00022fec 62 06                    |b       |		BHI	0x22ff4
00022fee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ff2 4e 76                    |Nv      |		TRAPV
00022ff4 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022ff8 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00022ffc 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00023000 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00023004 72 03                    |r       |		MOVEQ.L	#0x03,D1
00023006 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002300a 10 10                    |        |		MOVE.B	(A0),D0
0002300c 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00023010 67 06                    |g       |		BEQ	0x23018
00023012 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00023016 66 0e                    |f       |		BNE	0x23026
00023018 26 ba fd 26              |&  &    |		MOVE.L	0x22d40,(A3)
0002301c 2d 7a fd 26 ff f8        |-z &    |		MOVE.L	0x22d44,(A6-0x8)
00023022 14 80                    |        |		MOVE.B	D0,(A2)
00023024 60 3c                    |`<      |		BRA	0x23062
00023026 48 53                    |HS      |		PEA.L	(A3)
00023028 48 52                    |HR      |		PEA.L	(A2)
0002302a 4e ba fe dc              |N       |		JSR	0x22f08
0002302e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023030 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023034 4a 12                    |J       |		TST.B	(A2)
00023036 67 1c                    |g       |		BEQ	0x23054
00023038 10 10                    |        |		MOVE.B	(A0),D0
0002303a b0 01                    |        |		CMP.B	D1,D0
0002303c 66 16                    |f       |		BNE	0x23054
0002303e 10 12                    |        |		MOVE.B	(A2),D0
00023040 48 80                    |H       |		EXTB.W	D0
00023042 41 81                    |A       |		CHK.W	D1,D0
00023044 10 80                    |        |		MOVE.B	D0,(A0)
00023046 26 ba fc f8              |&       |		MOVE.L	0x22d40,(A3)
0002304a 2d 7a fc f8 ff f8        |-z      |		MOVE.L	0x22d44,(A6-0x8)
00023050 42 12                    |B       |		CLR.B	(A2)
00023052 60 08                    |`       |		BRA	0x2305c
00023054 10 12                    |        |		MOVE.B	(A2),D0
00023056 48 80                    |H       |		EXTB.W	D0
00023058 41 81                    |A       |		CHK.W	D1,D0
0002305a 10 80                    |        |		MOVE.B	D0,(A0)
0002305c 10 12                    |        |		MOVE.B	(A2),D0
0002305e b0 01                    |        |		CMP.B	D1,D0
00023060 67 c4                    |g       |		BEQ	0x23026
00023062 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00023066 22 4b                    |"K      |		MOVEA.L	A3,A1
00023068 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002306a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002306c 51 c8 ff fc              |Q       |		DBF	D0,0x2306a
00023070 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00023074 10 12                    |        |		MOVE.B	(A2),D0
00023076 48 80                    |H       |		EXTB.W	D0
00023078 41 81                    |A       |		CHK.W	D1,D0
0002307a 10 80                    |        |		MOVE.B	D0,(A0)
0002307c 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00023080 4e 5e                    |N^      |		UNLK	A6
00023082 4e 75                    |Nu      |		RTS
00023084 ; --------------------------------------------------------------------------------------
00023084 ; OMSI PASCAL Function
00023084 ;    <LVAR  0x008 4(rw)>
00023084 ;    <LVAR -0x004 1(rw)>
00023084 ;    <LVAR -0x010 2(rw)>
00023084 ; --------------------------------------------------------------------------------------
00023084 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00023088 bf d5                    |        |		CMPA.L	(A5),A7
0002308a 62 06                    |b       |		BHI	0x23092
0002308c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023090 4e 76                    |Nv      |		TRAPV
00023092 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023096 48 e7 c7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
0002309a 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
0002309e 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000230a2 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000230a6 72 20                    |r       |		MOVEQ.L	#0x20,D1
000230a8 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000230aa 42 51                    |BQ      |		CLR.W	(A1)
000230ac 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000230ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230b0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000230b2 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
000230b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230ba 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000230bc 20 53                    | S      |		MOVEA.L	(A3),A0
000230be 2f 08                    |/       |		MOVE.L	A0,-(A7)
000230c0 20 57                    | W      |		MOVEA.L	(A7),A0
000230c2 30 10                    |0       |		MOVE.W	(A0),D0
000230c4 48 c0                    |H       |		EXTW.L	D0
000230c6 bc 80                    |        |		CMP.L	D0,D6
000230c8 6e ff 00 00 00 b4        |n       |		BGT	0x2317e
000230ce 42 80                    |B       |		CLR.L	D0
000230d0 10 30 68 01              | 0h     |		MOVE.B	(A0+D6.L+#0x1),D0
000230d4 02 40 00 7f              | @      |		ANDI.W	#0x007f,D0
000230d8 14 80                    |        |		MOVE.B	D0,(A2)
000230da 0c 00 00 09              |        |		CMPI.B	#0x09,D0
000230de 66 02                    |f       |		BNE	0x230e2
000230e0 14 81                    |        |		MOVE.B	D1,(A2)
000230e2 42 80                    |B       |		CLR.L	D0
000230e4 10 12                    |        |		MOVE.B	(A2),D0
000230e6 90 41                    | A      |		SUB.W	D1,D0
000230e8 0c 40 00 0c              | @      |		CMPI.W	#0x000c,D0
000230ec 62 30                    |b0      |		BHI	switch@0x230f0[0x2]
000230ee d0 40                    | @      |		ADD.W	D0,D0
000230f0 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000230f8 00 1e                    |        |		.CONST	0x1e			; [0x0] -> 0x23116
000230fa 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x23112
000230fc 00 26                    | &      |		.CONST	0x26			; [0x2] -> 0x2311e
000230fe 00 26                    | &      |		.CONST	0x26			; [0x3] -> 0x2311e
00023100 00 26                    | &      |		.CONST	0x26			; [0x4] -> 0x2311e
00023102 00 26                    | &      |		.CONST	0x26			; [0x5] -> 0x2311e
00023104 00 26                    | &      |		.CONST	0x26			; [0x6] -> 0x2311e
00023106 00 26                    | &      |		.CONST	0x26			; [0x7] -> 0x2311e
00023108 00 26                    | &      |		.CONST	0x26			; [0x8] -> 0x2311e
0002310a 00 26                    | &      |		.CONST	0x26			; [0x9] -> 0x2311e
0002310c 00 26                    | &      |		.CONST	0x26			; [0xa] -> 0x2311e
0002310e 00 26                    | &      |		.CONST	0x26			; [0xb] -> 0x2311e
00023110 00 22                    | "      |		.CONST	0x22			; [0xc] -> 0x2311a
00023112					switch@0x230f0[0x1]:
00023112 60 6a                    |`j      |		BRA	0x2317e
00023114 60 0a                    |`       |		.XXX[0x2]
00023116					switch@0x230f0[0x0]:
00023116 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023118 60 06                    |`       |		BRA	0x23120
0002311a					switch@0x230f0[0xc]:
0002311a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002311c 60 02                    |`       |		BRA	0x23120
0002311e					switch@0x230f0[0x2]:
0002311e					switch@0x230f0[0x3]:
0002311e					switch@0x230f0[0x4]:
0002311e					switch@0x230f0[0x5]:
0002311e					switch@0x230f0[0x6]:
0002311e					switch@0x230f0[0x7]:
0002311e					switch@0x230f0[0x8]:
0002311e					switch@0x230f0[0x9]:
0002311e					switch@0x230f0[0xa]:
0002311e					switch@0x230f0[0xb]:
0002311e 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00023120 70 03                    |p       |		MOVEQ.L	#0x03,D0
00023122 c1 d1                    |        |		MULS.W	(A1),D0
00023124 41 fa fc 22              |A  "    |		LEA.L	0x22d48,A0
00023128 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002312c 42 80                    |B       |		CLR.L	D0
0002312e 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
00023132 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00023136 63 02                    |c       |		BLS	0x2313a
00023138 4e 4e                    |NN      |		TRAP	#14
0002313a d0 40                    | @      |		ADD.W	D0,D0
0002313c 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00023144 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x2314a
00023146 00 08                    |        |		.CONST	0x8			; [0x1] -> 0x2314c
00023148 00 12                    |        |		.CONST	0x12			; [0x2] -> 0x23156
0002314a					switch@0x2313c[0x0]:
0002314a 60 16                    |`       |		BRA	0x23162
0002314c					switch@0x2313c[0x1]:
0002314c 20 57                    | W      |		MOVEA.L	(A7),A0
0002314e 11 92 58 01              |  X     |		MOVE.B	(A2),(A0+D5.L+#0x1)
00023152 52 85                    |R       |		ADDQ.L	#0x1,D5
00023154 60 0c                    |`       |		BRA	0x23162
00023156					switch@0x2313c[0x2]:
00023156 20 57                    | W      |		MOVEA.L	(A7),A0
00023158 11 bc 00 2c 58 01        |   ,X   |		MOVE.B	#0x2c,(A0+D5.L+#0x1)
0002315e 52 85                    |R       |		ADDQ.L	#0x1,D5
00023160 53 86                    |S       |		SUBQ.L	#0x1,D6
00023162 70 03                    |p       |		MOVEQ.L	#0x03,D0
00023164 c1 d1                    |        |		MULS.W	(A1),D0
00023166 41 fa fb e9              |A       |		LEA.L	0x22d51,A0
0002316a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002316e 42 80                    |B       |		CLR.L	D0
00023170 10 30 70 00              | 0p     |		MOVE.B	(A0+D7.W),D0
00023174 32 80                    |2       |		MOVE.W	D0,(A1)
00023176 52 86                    |R       |		ADDQ.L	#0x1,D6
00023178 60 ff ff ff ff 46        |`    F  |		BRA	0x230c0
0002317e 20 57                    | W      |		MOVEA.L	(A7),A0
00023180 20 05                    |        |		MOVE.L	D5,D0
00023182 53 80                    |S       |		SUBQ.L	#0x1,D0
00023184 30 80                    |0       |		MOVE.W	D0,(A0)
00023186 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023188 4c df 0f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
0002318c 4e 5e                    |N^      |		UNLK	A6
0002318e 4e 75                    |Nu      |		RTS
00023190 ; --------------------------------------------------------------------------------------
00023190 ; OMSI PASCAL Function
00023190 ;    <LVAR  0x00c 4(r)>
00023190 ;    <LVAR  0x008 4(r)>
00023190 ;    <LVAR -0x002 @ 1(r)>
00023190 ;    <LVAR -0x00a @>
00023190 ;    <LVAR -0x00e @ 4(r)>
00023190 ;    <LVAR -0x014 @ 1(r)>
00023190 ; --------------------------------------------------------------------------------------
00023190 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00023194 bf d5                    |        |		CMPA.L	(A5),A7
00023196 62 06                    |b       |		BHI	0x2319e
00023198 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002319c 4e 76                    |Nv      |		TRAPV
0002319e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000231a2 48 e7 c1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
000231a6 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
000231aa 72 01                    |r       |		MOVEQ.L	#0x01,D1
000231ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000231ae 4e ba fc d6              |N       |		JSR	0x22e86
000231b2 10 1f                    |        |		MOVE.B	(A7)+,D0
000231b4 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000231b8 66 08                    |f       |		BNE	0x231c2
000231ba 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000231bc 4e ba fd 06              |N       |		JSR	0x22ec4
000231c0 1e 1f                    |        |		MOVE.B	(A7)+,D7
000231c2 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000231c6 20 81                    |        |		MOVE.L	D1,(A0)
000231c8 42 2e ff ec              |B.      |		CLR.B	(A6-0x14)
000231cc 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000231d0 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000231d4 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000231d8 4e ba fe 0c              |N       |		JSR	0x22fe6
000231dc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000231e0 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000231e4 66 36                    |f6      |		BNE	0x2321c
000231e6 48 53                    |HS      |		PEA.L	(A3)
000231e8 48 78 00 0c              |Hx      |		PEA.L	0xc
000231ec 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
000231f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000231f4 20 53                    | S      |		MOVEA.L	(A3),A0
000231f6 22 48                    |"H      |		MOVEA.L	A0,A1
000231f8 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
000231fc 70 07                    |p       |		MOVEQ.L	#0x07,D0
000231fe 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023200 51 c8 ff fc              |Q       |		DBF	D0,0x231fe
00023204 21 41 00 08              |!A      |		MOVE.L	D1,(A0+0x8)
00023208 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002320c 22 50                    |"P      |		MOVEA.L	(A0),A1
0002320e b2 c1                    |        |		CMPA.W	D1,A1
00023210 66 04                    |f       |		BNE	0x23216
00023212 20 93                    |        |		MOVE.L	(A3),(A0)
00023214 60 04                    |`       |		BRA	0x2321a
00023216 29 53 00 08              |)S      |		MOVE.L	(A3),(A4+0x8)
0002321a 28 53                    |(S      |		MOVEA.L	(A3),A4
0002321c 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00023220 67 aa                    |g       |		BEQ	0x231cc
00023222 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023226 42 10                    |B       |		CLR.B	(A0)
00023228 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
0002322c 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00023230 66 02                    |f       |		BNE	0x23234
00023232 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00023234 4c df 1f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3+A4
00023238 4e 5e                    |N^      |		UNLK	A6
0002323a 4e 75                    |Nu      |		RTS
0002323c ; --------------------------------------------------------------------------------------
0002323c ; OMSI PASCAL Function
0002323c ;    <LVAR  0x00c 4(w)>
0002323c ;    <LVAR  0x008 4(r)>
0002323c ; --------------------------------------------------------------------------------------
0002323c 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
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 0c              |        |		ADDA.W	#0xc,A7
0002324e 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
00023252 7e ff                    |~       |		MOVEQ.L	#-0x01,D7
00023254 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00023258 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
0002325c 67 08                    |g       |		BEQ	0x23266
0002325e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023260 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00023264 60 f2                    |`       |		BRA	0x23258
00023266 2d 47 00 0c              |-G      |		MOVE.L	D7,(A6+0xc)
0002326a 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
0002326e 4e 5e                    |N^      |		UNLK	A6
00023270 4e 75                    |Nu      |		RTS
00023272 ; --------------------------------------------------------------------------------------
00023272 ; OMSI PASCAL Function
00023272 ;    <LVAR  0x00c 4(r)>
00023272 ;    <LVAR  0x008 4(r)>
00023272 ; --------------------------------------------------------------------------------------
00023272 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
00023276 bf d5                    |        |		CMPA.L	(A5),A7
00023278 62 06                    |b       |		BHI	0x23280
0002327a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002327e 4e 76                    |Nv      |		TRAPV
00023280 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00023284 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023288 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002328a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002328c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023290 4e ba ff aa              |N       |		JSR	0x2323c
00023294 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023296 20 1f                    |        |		MOVE.L	(A7)+,D0
00023298 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
0002329c 67 58                    |gX      |		BEQ	0x232f6
0002329e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000232a2 4e ba fb 42              |N  B    |		JSR	0x22de6
000232a6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000232a8 41 fa f6 92              |A       |		LEA.L	0x2293c,A0
000232ac 70 07                    |p       |		MOVEQ.L	#0x07,D0
000232ae 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000232b0 51 c8 ff fc              |Q       |		DBF	D0,0x232ae
000232b4 41 ee 00 1a              |A       |		LEA.L	(A6+0x1a),A0
000232b8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000232ba 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000232bc 51 c8 ff fc              |Q       |		DBF	D0,0x232ba
000232c0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232c2 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
000232c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232c8 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
000232cc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000232d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000232d4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000232d8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232da 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000232de 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000232e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232e6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000232ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232ee 4e ba fb 38              |N  8    |		JSR	0x22e28
000232f2 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000232f6 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000232fa 4e 5e                    |N^      |		UNLK	A6
000232fc 4e 75                    |Nu      |		RTS
000232fe ; --------------------------------------------------------------------------------------
000232fe ; OMSI PASCAL Function
000232fe ;    <LVAR  0x014 1(rw)>
000232fe ;    <LVAR  0x010 4(r)>
000232fe ;    <LVAR  0x00c 4(r)>
000232fe ;    <LVAR  0x008 4(r)>
000232fe ; --------------------------------------------------------------------------------------
000232fe 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00023302 bf d5                    |        |		CMPA.L	(A5),A7
00023304 62 06                    |b       |		BHI	0x2330c
00023306 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002330a 4e 76                    |Nv      |		TRAPV
0002330c de fc 00 20              |        |		ADDA.W	#0x20,A7
00023310 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00023314 42 2e 00 14              |B.      |		CLR.B	(A6+0x14)
00023318 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
0002331c d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00023320 b0 b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D0
00023326 6e 4e                    |nN      |		BGT	0x23376
00023328 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002332c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002332e be 97                    |        |		CMP.L	(A7),D7
00023330 6e 42                    |nB      |		BGT	0x23374
00023332 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00023336 d0 87                    |        |		ADD.L	D7,D0
00023338 53 80                    |S       |		SUBQ.L	#0x1,D0
0002333a 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00023340 63 02                    |c       |		BLS	0x23344
00023342 4e 4f                    |NO      |		TRAP	#15
00023344 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
0002334a 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
0002334e d2 87                    |        |		ADD.L	D7,D1
00023350 53 81                    |S       |		SUBQ.L	#0x1,D1
00023352 53 81                    |S       |		SUBQ.L	#0x1,D1
00023354 0c 81 00 00 00 3e        |     >  |		CMPI.L	#0x0000003e,D1
0002335a 63 02                    |c       |		BLS	0x2335e
0002335c 4e 4f                    |NO      |		TRAP	#15
0002335e 43 fa f5 dc              |C       |		LEA.L	0x2293c,A1
00023362 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
00023366 b0 31 18 00              | 1      |		CMP.B	(A1+D1.L),D0
0002336a 67 04                    |g       |		BEQ	0x23370
0002336c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002336e 60 0c                    |`       |		BRA	0x2337c
00023370 52 87                    |R       |		ADDQ.L	#0x1,D7
00023372 68 ba                    |h       |		BVC	0x2332e
00023374 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023376 1d 7c 00 01 00 14        | |      |		MOVE.B	#0x01,(A6+0x14)
0002337c 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00023380 4e 5e                    |N^      |		UNLK	A6
00023382 4e 75                    |Nu      |		RTS
00023384 ; --------------------------------------------------------------------------------------
00023384 ; OMSI PASCAL Function
00023384 ;    <LVAR  0x00c 4(r)>
00023384 ;    <LVAR  0x008 4(r)>
00023384 ; --------------------------------------------------------------------------------------
00023384 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
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 40              |   @    |		ADDA.W	#0x40,A7
00023396 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
0002339a 45 f9 00 02 79 82        |E   y   |		LEA.L	eval_buffer?,A2
000233a0 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000233a4 4a 93                    |J       |		TST.L	(A3)
000233a6 6c 3e                    |l>      |		BGE	0x233e6
000233a8 20 13                    |        |		MOVE.L	(A3),D0
000233aa 44 80                    |D       |		NEG.L	D0
000233ac d0 92                    |        |		ADD.L	(A2),D0
000233ae 0c 80 00 00 10 00        |        |		CMPI.L	#0x00001000,D0
000233b4 6f 30                    |o0      |		BLE	0x233e6
000233b6 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000233ba 20 4f                    | O      |		MOVEA.L	A7,A0
000233bc 43 fa f5 be              |C       |		LEA.L	0x2297c,A1
000233c0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000233c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000233c4 51 c8 ff fc              |Q       |		DBF	D0,0x233c2
000233c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000233ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000233ce 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000233d2 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000233d6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000233dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233de 4e ba fa 48              |N  H    |		JSR	0x22e28
000233e2 de fc 00 20              |        |		ADDA.W	#0x20,A7
000233e6 41 f9 00 02 69 7e        |A   i~  |		LEA.L	0x2697e,A0
000233ec 2f 08                    |/       |		MOVE.L	A0,-(A7)
000233ee 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000233f0 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000233f4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000233f6 4e b9 00 01 03 64        |N    d  |		JSR	MovStringTail(Base, Len, Ptr, Delta)
000233fc de fc 00 10              |        |		ADDA.W	#0x10,A7
00023400 20 12                    |        |		MOVE.L	(A2),D0
00023402 90 93                    |        |		SUB.L	(A3),D0
00023404 24 80                    |$       |		MOVE.L	D0,(A2)
00023406 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
0002340a 4e 5e                    |N^      |		UNLK	A6
0002340c 4e 75                    |Nu      |		RTS
0002340e ; --------------------------------------------------------------------------------------
0002340e ; OMSI PASCAL Function
0002340e ;    <LVAR  0x00c 4(r)>
0002340e ;    <LVAR  0x008 4(r)>
0002340e ; --------------------------------------------------------------------------------------
0002340e 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00023412 bf d5                    |        |		CMPA.L	(A5),A7
00023414 62 06                    |b       |		BHI	0x2341c
00023416 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002341a 4e 76                    |Nv      |		TRAPV
0002341c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023420 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00023424 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00023428 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002342c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002342e 22 52                    |"R      |		MOVEA.L	(A2),A1
00023430 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023432 30 10                    |0       |		MOVE.W	(A0),D0
00023434 48 c0                    |H       |		EXTW.L	D0
00023436 44 80                    |D       |		NEG.L	D0
00023438 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002343a 4e ba ff 48              |N  H    |		JSR	0x23384
0002343e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023440 30 10                    |0       |		MOVE.W	(A0),D0
00023442 48 c0                    |H       |		EXTW.L	D0
00023444 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023446 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023448 be 97                    |        |		CMP.L	(A7),D7
0002344a 6e 36                    |n6      |		BGT	0x23482
0002344c 20 52                    | R      |		MOVEA.L	(A2),A0
0002344e 20 07                    |        |		MOVE.L	D7,D0
00023450 d0 90                    |        |		ADD.L	(A0),D0
00023452 53 80                    |S       |		SUBQ.L	#0x1,D0
00023454 53 80                    |S       |		SUBQ.L	#0x1,D0
00023456 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002345c 63 02                    |c       |		BLS	0x23460
0002345e 4e 4f                    |NO      |		TRAP	#15
00023460 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00023466 22 07                    |"       |		MOVE.L	D7,D1
00023468 53 81                    |S       |		SUBQ.L	#0x1,D1
0002346a 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00023470 63 02                    |c       |		BLS	0x23474
00023472 4e 4f                    |NO      |		TRAP	#15
00023474 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00023478 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
0002347e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023480 68 c6                    |h       |		BVC	0x23448
00023482 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023484 20 52                    | R      |		MOVEA.L	(A2),A0
00023486 22 57                    |"W      |		MOVEA.L	(A7),A1
00023488 30 11                    |0       |		MOVE.W	(A1),D0
0002348a 48 c0                    |H       |		EXTW.L	D0
0002348c d1 90                    |        |		ADD.L	D0,(A0)
0002348e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023490 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00023494 4e 5e                    |N^      |		UNLK	A6
00023496 4e 75                    |Nu      |		RTS
00023498 ; --------------------------------------------------------------------------------------
00023498 ; OMSI PASCAL Function
00023498 ;    <LVAR  0x00c 4(r)>
00023498 ;    <LVAR  0x008 4(r)>
00023498 ; --------------------------------------------------------------------------------------
00023498 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
0002349c bf d5                    |        |		CMPA.L	(A5),A7
0002349e 62 06                    |b       |		BHI	0x234a6
000234a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000234a4 4e 76                    |Nv      |		TRAPV
000234a6 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000234aa 48 e7 c3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
000234ae 45 fa fe 4e              |E  N    |		LEA.L	0x232fe,A2
000234b2 47 f8 00 04              |G       |		LEA.L	0x4,A3
000234b6 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000234ba 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000234bc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000234be 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000234c2 42 90                    |B       |		CLR.L	(A0)
000234c4 20 54                    | T      |		MOVEA.L	(A4),A0
000234c6 42 90                    |B       |		CLR.L	(A0)
000234c8 2c 39 00 02 79 7e        |,9  y~  |		MOVE.L	0x2797e,D6
000234ce 20 06                    |        |		MOVE.L	D6,D0
000234d0 53 80                    |S       |		SUBQ.L	#0x1,D0
000234d2 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
000234d8 63 02                    |c       |		BLS	0x234dc
000234da 4e 4f                    |NO      |		TRAP	#15
000234dc 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
000234e2 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
000234e6 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
000234ea 66 ff 00 00 00 d6        |f       |		BNE	0x235c2
000234f0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000234f2 2f 06                    |/       |		MOVE.L	D6,-(A7)
000234f4 48 78 00 01              |Hx      |		PEA.L	0x1
000234f8 48 78 00 03              |Hx      |		PEA.L	0x3
000234fc 4e 92                    |N       |		JSR	(A2)
000234fe de c1                    |        |		ADDA.W	D1,A7
00023500 4a 1f                    |J       |		TST.B	(A7)+
00023502 66 7e                    |f~      |		BNE	0x23582
00023504 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023506 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023508 48 53                    |HS      |		PEA.L	(A3)
0002350a 48 78 00 03              |Hx      |		PEA.L	0x3
0002350e 4e 92                    |N       |		JSR	(A2)
00023510 de c1                    |        |		ADDA.W	D1,A7
00023512 4a 1f                    |J       |		TST.B	(A7)+
00023514 66 6c                    |fl      |		BNE	0x23582
00023516 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023518 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002351a 48 78 00 07              |Hx      |		PEA.L	0x7
0002351e 48 53                    |HS      |		PEA.L	(A3)
00023520 4e 92                    |N       |		JSR	(A2)
00023522 de c1                    |        |		ADDA.W	D1,A7
00023524 4a 1f                    |J       |		TST.B	(A7)+
00023526 66 5a                    |fZ      |		BNE	0x23582
00023528 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002352a 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002352c 48 78 00 0b              |Hx      |		PEA.L	0xb
00023530 48 53                    |HS      |		PEA.L	(A3)
00023532 4e 92                    |N       |		JSR	(A2)
00023534 de c1                    |        |		ADDA.W	D1,A7
00023536 4a 1f                    |J       |		TST.B	(A7)+
00023538 66 48                    |fH      |		BNE	0x23582
0002353a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002353c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002353e 48 78 00 0f              |Hx      |		PEA.L	0xf
00023542 48 53                    |HS      |		PEA.L	(A3)
00023544 4e 92                    |N       |		JSR	(A2)
00023546 de c1                    |        |		ADDA.W	D1,A7
00023548 4a 1f                    |J       |		TST.B	(A7)+
0002354a 66 36                    |f6      |		BNE	0x23582
0002354c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002354e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023550 48 78 00 13              |Hx      |		PEA.L	0x13
00023554 48 53                    |HS      |		PEA.L	(A3)
00023556 4e 92                    |N       |		JSR	(A2)
00023558 de c1                    |        |		ADDA.W	D1,A7
0002355a 4a 1f                    |J       |		TST.B	(A7)+
0002355c 66 24                    |f$      |		BNE	0x23582
0002355e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023560 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023562 48 78 00 17              |Hx      |		PEA.L	0x17
00023566 48 53                    |HS      |		PEA.L	(A3)
00023568 4e 92                    |N       |		JSR	(A2)
0002356a de c1                    |        |		ADDA.W	D1,A7
0002356c 4a 1f                    |J       |		TST.B	(A7)+
0002356e 66 12                    |f       |		BNE	0x23582
00023570 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023572 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023574 48 78 00 1b              |Hx      |		PEA.L	0x1b
00023578 48 53                    |HS      |		PEA.L	(A3)
0002357a 4e 92                    |N       |		JSR	(A2)
0002357c de c1                    |        |		ADDA.W	D1,A7
0002357e 4a 1f                    |J       |		TST.B	(A7)+
00023580 67 04                    |g       |		BEQ	0x23586
00023582 52 87                    |R       |		ADDQ.L	#0x1,D7
00023584 60 3c                    |`<      |		BRA	0x235c2
00023586 4a 87                    |J       |		TST.L	D7
00023588 66 1c                    |f       |		BNE	0x235a6
0002358a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002358c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002358e 48 78 00 1f              |Hx      |		PEA.L	0x1f
00023592 48 78 00 05              |Hx      |		PEA.L	0x5
00023596 4e 92                    |N       |		JSR	(A2)
00023598 de c1                    |        |		ADDA.W	D1,A7
0002359a 4a 1f                    |J       |		TST.B	(A7)+
0002359c 67 08                    |g       |		BEQ	0x235a6
0002359e 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000235a2 20 86                    |        |		MOVE.L	D6,(A0)
000235a4 60 1c                    |`       |		BRA	0x235c2
000235a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000235a8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000235aa 48 78 00 24              |Hx $    |		PEA.L	0x24
000235ae 48 53                    |HS      |		PEA.L	(A3)
000235b0 4e 92                    |N       |		JSR	(A2)
000235b2 de c1                    |        |		ADDA.W	D1,A7
000235b4 4a 1f                    |J       |		TST.B	(A7)+
000235b6 67 0a                    |g       |		BEQ	0x235c2
000235b8 4a 87                    |J       |		TST.L	D7
000235ba 66 04                    |f       |		BNE	0x235c0
000235bc 20 54                    | T      |		MOVEA.L	(A4),A0
000235be 60 e2                    |`       |		BRA	0x235a2
000235c0 53 87                    |S       |		SUBQ.L	#0x1,D7
000235c2 52 86                    |R       |		ADDQ.L	#0x1,D6
000235c4 bc b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D6
000235ca 6e 12                    |n       |		BGT	0x235de
000235cc 4a 87                    |J       |		TST.L	D7
000235ce 66 ff ff ff fe fe        |f       |		BNE	0x234ce
000235d4 20 54                    | T      |		MOVEA.L	(A4),A0
000235d6 4a 90                    |J       |		TST.L	(A0)
000235d8 67 ff ff ff fe f4        |g       |		BEQ	0x234ce
000235de bc b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D6
000235e4 6f 30                    |o0      |		BLE	0x23616
000235e6 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000235ea 20 4f                    | O      |		MOVEA.L	A7,A0
000235ec 43 fa f3 aa              |C       |		LEA.L	0x22998,A1
000235f0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000235f2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000235f4 51 c8 ff fc              |Q       |		DBF	D0,0x235f2
000235f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000235fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000235fe 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023602 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00023606 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002360c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002360e 4e ba f8 18              |N       |		JSR	0x22e28
00023612 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023616 4c df 1f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
0002361a 4e 5e                    |N^      |		UNLK	A6
0002361c 4e 75                    |Nu      |		RTS
0002361e ; --------------------------------------------------------------------------------------
0002361e ; OMSI PASCAL Function
0002361e ;    <LVAR -0x004 @ 4(r)>
0002361e ;    <LVAR -0x008 @ 4(rw)>
0002361e ; --------------------------------------------------------------------------------------
0002361e 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00023622 bf d5                    |        |		CMPA.L	(A5),A7
00023624 62 06                    |b       |		BHI	0x2362c
00023626 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002362a 4e 76                    |Nv      |		TRAPV
0002362c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00023630 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00023634 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00023638 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002363c 48 50                    |HP      |		PEA.L	(A0)
0002363e 48 51                    |HQ      |		PEA.L	(A1)
00023640 4e ba fe 56              |N  V    |		JSR	0x23498
00023644 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023646 4a 90                    |J       |		TST.L	(A0)
00023648 66 02                    |f       |		BNE	0x2364c
0002364a 20 91                    |        |		MOVE.L	(A1),(A0)
0002364c 20 11                    |        |		MOVE.L	(A1),D0
0002364e 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00023650 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023652 90 90                    |        |		SUB.L	(A0),D0
00023654 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023656 4e ba fd 2c              |N  ,    |		JSR	0x23384
0002365a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002365c 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00023660 4e 5e                    |N^      |		UNLK	A6
00023662 4e 75                    |Nu      |		RTS
00023664 ; --------------------------------------------------------------------------------------
00023664 ; OMSI PASCAL Function
00023664 ;    <LVAR -0x004 @ 4(r)>
00023664 ;    <LVAR -0x008 @ 4(r)>
00023664 ; --------------------------------------------------------------------------------------
00023664 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00023668 bf d5                    |        |		CMPA.L	(A5),A7
0002366a 62 06                    |b       |		BHI	0x23672
0002366c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023670 4e 76                    |Nv      |		TRAPV
00023672 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00023676 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002367a 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
0002367e 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00023682 48 50                    |HP      |		PEA.L	(A0)
00023684 48 51                    |HQ      |		PEA.L	(A1)
00023686 4e ba fe 10              |N       |		JSR	0x23498
0002368a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002368c 4a 90                    |J       |		TST.L	(A0)
0002368e 66 06                    |f       |		BNE	0x23696
00023690 20 11                    |        |		MOVE.L	(A1),D0
00023692 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00023694 60 12                    |`       |		BRA	0x236a8
00023696 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023698 5a 97                    |Z       |		ADDQ.L	#0x5,(A7)
0002369a 48 78 00 05              |Hx      |		PEA.L	0x5
0002369e 4e ba fc e4              |N       |		JSR	0x23384
000236a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000236a4 20 10                    |        |		MOVE.L	(A0),D0
000236a6 5c 80                    |\       |		ADDQ.L	#0x6,D0
000236a8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000236aa 90 b9 00 02 79 7e        |    y~  |		SUB.L	0x2797e,D0
000236b0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000236b2 4e ba fc d0              |N       |		JSR	0x23384
000236b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000236b8 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000236bc 4e 5e                    |N^      |		UNLK	A6
000236be 4e 75                    |Nu      |		RTS
000236c0 ; --------------------------------------------------------------------------------------
000236c0 ; OMSI PASCAL Function
000236c0 ;    <LVAR  0x008 4(r)>
000236c0 ;    <LVAR -0x004 @>
000236c0 ;    <LVAR -0x008 @ 4(r)>
000236c0 ;    <LVAR -0x00c @ 4(rw)>
000236c0 ;    <LVAR -0x010 4(rw)>
000236c0 ;    <LVAR -0x014 4(rw)>
000236c0 ; --------------------------------------------------------------------------------------
000236c0 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
000236c4 bf d5                    |        |		CMPA.L	(A5),A7
000236c6 62 06                    |b       |		BHI	0x236ce
000236c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000236cc 4e 76                    |Nv      |		TRAPV
000236ce de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000236d2 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000236d6 43 f9 00 02 79 90        |C   y   |		LEA.L	0x27990,A1
000236dc 45 f9 00 02 79 96        |E   y   |		LEA.L	0x27996,A2
000236e2 47 f9 00 02 79 7e        |G   y~  |		LEA.L	0x2797e,A3
000236e8 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
000236ec 72 01                    |r       |		MOVEQ.L	#0x01,D1
000236ee 4a 11                    |J       |		TST.B	(A1)
000236f0 67 0a                    |g       |		BEQ	0x236fc
000236f2 4a 92                    |J       |		TST.L	(A2)
000236f4 66 06                    |f       |		BNE	0x236fc
000236f6 24 ae 00 08              |$       |		MOVE.L	(A6+0x8),(A2)
000236fa 53 92                    |S       |		SUBQ.L	#0x1,(A2)
000236fc 4a 11                    |J       |		TST.B	(A1)
000236fe 66 ff 00 00 00 ce        |f       |		BNE	0x237ce
00023704 26 ae 00 08              |&       |		MOVE.L	(A6+0x8),(A3)
00023708 5c 93                    |\       |		ADDQ.L	#0x6,(A3)
0002370a 48 54                    |HT      |		PEA.L	(A4)
0002370c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00023710 4e ba fa 7e              |N  ~    |		JSR	0x23190
00023714 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023716 41 fa f2 a6              |A       |		LEA.L	0x229be,A0
0002371a 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002371c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002371e 51 c8 ff fc              |Q       |		DBF	D0,0x2371c
00023722 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023724 48 78 00 00              |Hx      |		PEA.L	0x0
00023728 4e ba fb 48              |N  H    |		JSR	0x23272
0002372c de fc 00 12              |        |		ADDA.W	#0x12,A7
00023730 4a 39 00 02 79 9a        |J9  y   |		TST.B	0x2799a
00023736 67 1a                    |g       |		BEQ	0x23752
00023738 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002373a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002373c 48 78 00 00              |Hx      |		PEA.L	0x0
00023740 4e b9 00 02 3b 98        |N   ;   |		JSR	0x23b98
00023746 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023748 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
0002374c 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00023750 60 14                    |`       |		BRA	0x23766
00023752 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023754 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023756 48 78 00 00              |Hx      |		PEA.L	0x0
0002375a 4e b9 00 02 3b 66        |N   ;f  |		JSR	0x23b66
00023760 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023762 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00023766 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023768 4e ba f6 7c              |N  |    |		JSR	0x22de6
0002376c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002376e 23 d3 00 02 79 92        |#   y   |		MOVE.L	(A3),0x27992
00023774 4a 39 00 02 79 9a        |J9  y   |		TST.B	0x2799a
0002377a 67 2a                    |g*      |		BEQ	0x237a6
0002377c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002377e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00023782 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00023786 2f 39 00 02 79 a4        |/9  y   |		MOVE.L	0x279a4,-(A7)
0002378c 2f 39 00 02 79 a0        |/9  y   |		MOVE.L	0x279a0,-(A7)
00023792 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00023798 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002379c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002379e 48 80                    |H       |		EXTB.W	D0
000237a0 41 81                    |A       |		CHK.W	D1,D0
000237a2 12 80                    |        |		MOVE.B	D0,(A1)
000237a4 60 28                    |`(      |		BRA	0x237ce
000237a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000237a8 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
000237ac 2f 39 00 02 79 9c        |/9  y   |		MOVE.L	0x2799c,-(A7)
000237b2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000237b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000237ba 10 1f                    |        |		MOVE.B	(A7)+,D0
000237bc 48 80                    |H       |		EXTB.W	D0
000237be 41 81                    |A       |		CHK.W	D1,D0
000237c0 12 80                    |        |		MOVE.B	D0,(A1)
000237c2 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000237c6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000237cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000237ce 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000237d2 4e 5e                    |N^      |		UNLK	A6
000237d4 4e 75                    |Nu      |		RTS
000237d6 ; --------------------------------------------------------------------------------------
000237d6 ; OMSI PASCAL Function
000237d6 ;    <LVAR  0x010 4(r)>
000237d6 ;    <LVAR  0x00c 4(r)>
000237d6 ;    <LVAR  0x008 4(r)>
000237d6 ; --------------------------------------------------------------------------------------
000237d6 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
000237da bf d5                    |        |		CMPA.L	(A5),A7
000237dc 62 06                    |b       |		BHI	0x237e4
000237de 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237e2 4e 76                    |Nv      |		TRAPV
000237e4 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000237e8 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000237ec 45 f9 00 02 79 96        |E   y   |		LEA.L	0x27996,A2
000237f2 47 fa fb 0a              |G       |		LEA.L	0x232fe,A3
000237f6 49 f9 00 02 79 90        |I   y   |		LEA.L	0x27990,A4
000237fc 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000237fe 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023800 42 14                    |B       |		CLR.B	(A4)
00023802 42 b9 00 02 79 92        |B   y   |		CLR.L	0x27992
00023808 42 92                    |B       |		CLR.L	(A2)
0002380a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002380c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002380e 2a 39 00 02 79 7e        |*9  y~  |		MOVE.L	0x2797e,D5
00023814 4a 86                    |J       |		TST.L	D6
00023816 66 ff 00 00 00 a6        |f       |		BNE	0x238be
0002381c ba b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D5
00023822 6e ff 00 00 00 9a        |n       |		BGT	0x238be
00023828 20 05                    |        |		MOVE.L	D5,D0
0002382a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002382c 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00023832 63 02                    |c       |		BLS	0x23836
00023834 4e 4f                    |NO      |		TRAP	#15
00023836 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
0002383c 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
00023840 0c 00 00 5b              |   [    |		CMPI.B	#0x5b,D0
00023844 66 6c                    |fl      |		BNE	0x238b2
00023846 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023848 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002384a 48 78 00 28              |Hx (    |		PEA.L	0x28
0002384e 48 78 00 05              |Hx      |		PEA.L	0x5
00023852 4e 93                    |N       |		JSR	(A3)
00023854 de c1                    |        |		ADDA.W	D1,A7
00023856 4a 1f                    |J       |		TST.B	(A7)+
00023858 66 14                    |f       |		BNE	0x2386e
0002385a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002385c 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002385e 48 78 00 2d              |Hx -    |		PEA.L	0x2d
00023862 48 78 00 06              |Hx      |		PEA.L	0x6
00023866 4e 93                    |N       |		JSR	(A3)
00023868 de c1                    |        |		ADDA.W	D1,A7
0002386a 4a 1f                    |J       |		TST.B	(A7)+
0002386c 67 04                    |g       |		BEQ	0x23872
0002386e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023870 60 40                    |`@      |		BRA	0x238b2
00023872 4a 87                    |J       |		TST.L	D7
00023874 66 1e                    |f       |		BNE	0x23894
00023876 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023878 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002387a 48 78 00 33              |Hx 3    |		PEA.L	0x33
0002387e 48 78 00 05              |Hx      |		PEA.L	0x5
00023882 4e 93                    |N       |		JSR	(A3)
00023884 de c1                    |        |		ADDA.W	D1,A7
00023886 4a 1f                    |J       |		TST.B	(A7)+
00023888 67 0a                    |g       |		BEQ	0x23894
0002388a 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002388c 4e ba fe 32              |N  2    |		JSR	0x236c0
00023890 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023892 60 1e                    |`       |		BRA	0x238b2
00023894 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023896 2f 05                    |/       |		MOVE.L	D5,-(A7)
00023898 48 78 00 38              |Hx 8    |		PEA.L	0x38
0002389c 48 78 00 08              |Hx      |		PEA.L	0x8
000238a0 4e 93                    |N       |		JSR	(A3)
000238a2 de c1                    |        |		ADDA.W	D1,A7
000238a4 4a 1f                    |J       |		TST.B	(A7)+
000238a6 67 0a                    |g       |		BEQ	0x238b2
000238a8 4a 87                    |J       |		TST.L	D7
000238aa 66 04                    |f       |		BNE	0x238b0
000238ac 2c 05                    |,       |		MOVE.L	D5,D6
000238ae 60 02                    |`       |		BRA	0x238b2
000238b0 53 87                    |S       |		SUBQ.L	#0x1,D7
000238b2 4a 86                    |J       |		TST.L	D6
000238b4 66 02                    |f       |		BNE	0x238b8
000238b6 52 85                    |R       |		ADDQ.L	#0x1,D5
000238b8 60 ff ff ff ff 5a        |`    Z  |		BRA	0x23814
000238be 4a 39 00 02 79 9a        |J9  y   |		TST.B	0x2799a
000238c4 66 0e                    |f       |		BNE	0x238d4
000238c6 48 79 00 02 79 9c        |Hy  y   |		PEA.L	0x2799c
000238cc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000238d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000238d4 4a 14                    |J       |		TST.B	(A4)
000238d6 66 28                    |f(      |		BNE	0x23900
000238d8 41 fa f0 fe              |A       |		LEA.L	0x229d8,A0
000238dc 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000238de 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000238e0 51 c8 ff fc              |Q       |		DBF	D0,0x238de
000238e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000238e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000238ea 3f 02                    |?       |		MOVE.W	D2,-(A7)
000238ec 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000238f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000238f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238f8 4e ba f5 2e              |N  .    |		JSR	0x22e28
000238fc de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023900 4a 86                    |J       |		TST.L	D6
00023902 66 2e                    |f.      |		BNE	0x23932
00023904 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00023908 20 4f                    | O      |		MOVEA.L	A7,A0
0002390a 43 fa f0 cc              |C       |		LEA.L	0x229d8,A1
0002390e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00023910 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023912 51 c8 ff fc              |Q       |		DBF	D0,0x23910
00023916 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023918 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002391c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002391e 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00023922 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023928 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002392a 4e ba f4 fc              |N       |		JSR	0x22e28
0002392e de fc 00 18              |        |		ADDA.W	#0x18,A7
00023932 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023936 20 86                    |        |		MOVE.L	D6,(A0)
00023938 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0002393c 20 b9 00 02 79 92        |    y   |		MOVE.L	0x27992,(A0)
00023942 4a 92                    |J       |		TST.L	(A2)
00023944 66 0a                    |f       |		BNE	0x23950
00023946 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002394a 20 86                    |        |		MOVE.L	D6,(A0)
0002394c 53 90                    |S       |		SUBQ.L	#0x1,(A0)
0002394e 60 06                    |`       |		BRA	0x23956
00023950 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00023954 20 92                    |        |		MOVE.L	(A2),(A0)
00023956 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
0002395a 4e 5e                    |N^      |		UNLK	A6
0002395c 4e 75                    |Nu      |		RTS
0002395e ; --------------------------------------------------------------------------------------
0002395e ; OMSI PASCAL Function
0002395e ;    <LVAR  0x008 4(r)>
0002395e ;    <LVAR -0x008 @ 4(r)>
0002395e ;    <LVAR -0x00c @ 4(r)>
0002395e ;    <LVAR -0x010 @ 4(r)>
0002395e ; --------------------------------------------------------------------------------------
0002395e 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023962 bf d5                    |        |		CMPA.L	(A5),A7
00023964 62 06                    |b       |		BHI	0x2396c
00023966 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002396a 4e 76                    |Nv      |		TRAPV
0002396c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023970 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00023974 41 f9 00 02 79 7e        |A   y~  |		LEA.L	0x2797e,A0
0002397a 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
0002397e 2c 10                    |,       |		MOVE.L	(A0),D6
00023980 42 39 00 02 79 9a        |B9  y   |		CLR.B	0x2799a
00023986 23 ee 00 08 00 02 79 9c  |#     y |		MOVE.L	(A6+0x8),0x2799c
0002398e 2e 10                    |.       |		MOVE.L	(A0),D7
00023990 48 51                    |HQ      |		PEA.L	(A1)
00023992 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00023996 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002399a 4e ba fe 3a              |N  :    |		JSR	0x237d6
0002399e de fc 00 0c              |        |		ADDA.W	#0xc,A7
000239a2 20 86                    |        |		MOVE.L	D6,(A0)
000239a4 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
000239a8 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
000239ae 2f 00                    |/       |		MOVE.L	D0,-(A7)
000239b0 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
000239b4 53 80                    |S       |		SUBQ.L	#0x1,D0
000239b6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000239b8 4e ba f9 ca              |N       |		JSR	0x23384
000239bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000239be 2e 91                    |.       |		MOVE.L	(A1),(A7)
000239c0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000239c2 9f 97                    |        |		SUB.L	D7,(A7)
000239c4 4e ba f9 be              |N       |		JSR	0x23384
000239c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239ca 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
000239ce 4e 5e                    |N^      |		UNLK	A6
000239d0 4e 75                    |Nu      |		RTS
000239d2 ; --------------------------------------------------------------------------------------
000239d2 ; OMSI PASCAL Function
000239d2 ;    <LVAR  0x00c 4(r)>
000239d2 ;    <LVAR  0x008 4(r)>
000239d2 ;    <LVAR -0x008 @ 4(r)>
000239d2 ;    <LVAR -0x00c @ 4(r)>
000239d2 ;    <LVAR -0x010 @ 4(r)>
000239d2 ; --------------------------------------------------------------------------------------
000239d2 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000239d6 bf d5                    |        |		CMPA.L	(A5),A7
000239d8 62 06                    |b       |		BHI	0x239e0
000239da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000239de 4e 76                    |Nv      |		TRAPV
000239e0 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000239e4 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
000239e8 41 f9 00 02 79 7e        |A   y~  |		LEA.L	0x2797e,A0
000239ee 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000239f2 2c 10                    |,       |		MOVE.L	(A0),D6
000239f4 13 fc 00 01 00 02 79 9a  |      y |		MOVE.B	#0x01,0x2799a
000239fc 23 ee 00 08 00 02 79 a0  |#     y |		MOVE.L	(A6+0x8),0x279a0
00023a04 23 ee 00 0c 00 02 79 a4  |#     y |		MOVE.L	(A6+0xc),0x279a4
00023a0c 2e 10                    |.       |		MOVE.L	(A0),D7
00023a0e 48 51                    |HQ      |		PEA.L	(A1)
00023a10 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00023a14 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00023a18 4e ba fd bc              |N       |		JSR	0x237d6
00023a1c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023a20 20 86                    |        |		MOVE.L	D6,(A0)
00023a22 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
00023a26 06 80 00 00 00 09        |        |		ADDI.L	#0x00000009,D0
00023a2c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023a2e 90 ae ff f4              |        |		SUB.L	(A6-0xc),D0
00023a32 53 80                    |S       |		SUBQ.L	#0x1,D0
00023a34 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023a36 4e ba f9 4c              |N  L    |		JSR	0x23384
00023a3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023a3c 2e 91                    |.       |		MOVE.L	(A1),(A7)
00023a3e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023a40 9f 97                    |        |		SUB.L	D7,(A7)
00023a42 4e ba f9 40              |N  @    |		JSR	0x23384
00023a46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a48 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00023a4c 4e 5e                    |N^      |		UNLK	A6
00023a4e 4e 75                    |Nu      |		RTS
00023a50 ; --------------------------------------------------------------------------------------
00023a50 ; OMSI PASCAL Function
00023a50 ;    <LVAR  0x010 4(rw)>
00023a50 ;    <LVAR  0x00c 4(r)>
00023a50 ;    <LVAR  0x008 4(r)>
00023a50 ; --------------------------------------------------------------------------------------
00023a50 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
00023a54 bf d5                    |        |		CMPA.L	(A5),A7
00023a56 62 06                    |b       |		BHI	0x23a5e
00023a58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a5c 4e 76                    |Nv      |		TRAPV
00023a5e de fc 00 08              |        |		ADDA.W	#0x8,A7
00023a62 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00023a66 4a ae 00 08              |J       |		TST.L	(A6+0x8)
00023a6a 66 06                    |f       |		BNE	0x23a72
00023a6c 42 ae 00 10              |B       |		CLR.L	(A6+0x10)
00023a70 60 0e                    |`       |		BRA	0x23a80
00023a72 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00023a76 90 ae 00 08              |        |		SUB.L	(A6+0x8),D0
00023a7a 52 80                    |R       |		ADDQ.L	#0x1,D0
00023a7c 2d 40 00 10              |-@      |		MOVE.L	D0,(A6+0x10)
00023a80 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00023a84 4e 5e                    |N^      |		UNLK	A6
00023a86 4e 75                    |Nu      |		RTS
00023a88 ; --------------------------------------------------------------------------------------
00023a88 ; OMSI PASCAL Function
00023a88 ;    <LVAR  0x014 4(w)>
00023a88 ;    <LVAR  0x010 @ 4(w)>
00023a88 ;    <LVAR  0x00c 4(r)>
00023a88 ;    <LVAR  0x008 4(r)>
00023a88 ; --------------------------------------------------------------------------------------
00023a88 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00023a8c bf d5                    |        |		CMPA.L	(A5),A7
00023a8e 62 06                    |b       |		BHI	0x23a96
00023a90 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a94 4e 76                    |Nv      |		TRAPV
00023a96 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023a9a 48 e7 81 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D0,-(A7)
00023a9e 28 6e 00 0c              |(n      |		MOVEA.L	(A6+0xc),A4
00023aa2 2d 7a f2 9c 00 10        |-z      |		MOVE.L	0x22d40,(A6+0x10)
00023aa8 2d 7a f2 9a 00 14        |-z      |		MOVE.L	0x22d44,(A6+0x14)
00023aae 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023ab2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023ab4 be 97                    |        |		CMP.L	(A7),D7
00023ab6 6e 28                    |n(      |		BGT	0x23ae0
00023ab8 b8 fc 00 01              |        |		CMPA.W	#0x1,A4
00023abc 66 04                    |f       |		BNE	0x23ac2
00023abe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ac0 60 20                    |`       |		BRA	0x23ae2
00023ac2 be ae 00 08              |        |		CMP.L	(A6+0x8),D7
00023ac6 66 10                    |f       |		BNE	0x23ad8
00023ac8 41 ee 00 10              |A       |		LEA.L	(A6+0x10),A0
00023acc 22 4c                    |"L      |		MOVEA.L	A4,A1
00023ace 70 07                    |p       |		MOVEQ.L	#0x07,D0
00023ad0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023ad2 51 c8 ff fc              |Q       |		DBF	D0,0x23ad0
00023ad6 60 04                    |`       |		BRA	0x23adc
00023ad8 28 6c 00 08              |(l      |		MOVEA.L	(A4+0x8),A4
00023adc 52 87                    |R       |		ADDQ.L	#0x1,D7
00023ade 68 d4                    |h       |		BVC	0x23ab4
00023ae0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ae2 4c df 13 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A4
00023ae6 4e 5e                    |N^      |		UNLK	A6
00023ae8 4e 75                    |Nu      |		RTS
00023aea ; --------------------------------------------------------------------------------------
00023aea ; OMSI PASCAL Function
00023aea ;    <LVAR  0x010 4(w)>
00023aea ;    <LVAR  0x00c 4(r)>
00023aea ;    <LVAR  0x008 4(r)>
00023aea ;    <LVAR -0x008 @ 4(r)>
00023aea ; --------------------------------------------------------------------------------------
00023aea 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00023aee bf d5                    |        |		CMPA.L	(A5),A7
00023af0 62 06                    |b       |		BHI	0x23af8
00023af2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023af6 4e 76                    |Nv      |		TRAPV
00023af8 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00023afc 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00023b00 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00023b04 48 51                    |HQ      |		PEA.L	(A1)
00023b06 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023b0c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023b10 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b14 4e ba ff 3a              |N  :    |		JSR	0x23a50
00023b18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b1a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023b1c be 97                    |        |		CMP.L	(A7),D7
00023b1e 6e 38                    |n8      |		BGT	0x23b58
00023b20 20 07                    |        |		MOVE.L	D7,D0
00023b22 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00023b26 53 80                    |S       |		SUBQ.L	#0x1,D0
00023b28 53 80                    |S       |		SUBQ.L	#0x1,D0
00023b2a 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00023b30 63 02                    |c       |		BLS	0x23b34
00023b32 4e 4f                    |NO      |		TRAP	#15
00023b34 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00023b3a 1c 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D6
00023b3e 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00023b42 66 04                    |f       |		BNE	0x23b48
00023b44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023b46 60 12                    |`       |		BRA	0x23b5a
00023b48 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023b4a 1f 06                    |        |		MOVE.B	D6,-(A7)
00023b4c 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00023b52 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023b54 52 87                    |R       |		ADDQ.L	#0x1,D7
00023b56 68 c4                    |h       |		BVC	0x23b1c
00023b58 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023b5a 2d 51 00 10              |-Q      |		MOVE.L	(A1),(A6+0x10)
00023b5e 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00023b62 4e 5e                    |N^      |		UNLK	A6
00023b64 4e 75                    |Nu      |		RTS
00023b66 ; --------------------------------------------------------------------------------------
00023b66 ; OMSI PASCAL Function
00023b66 ;    <LVAR  0x010 4(w)>
00023b66 ;    <LVAR  0x00c 4(r)>
00023b66 ;    <LVAR  0x008 4(r)>
00023b66 ; --------------------------------------------------------------------------------------
00023b66 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00023b6a bf d5                    |        |		CMPA.L	(A5),A7
00023b6c 62 06                    |b       |		BHI	0x23b74
00023b6e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b72 4e 76                    |Nv      |		TRAPV
00023b74 de fc 00 18              |        |		ADDA.W	#0x18,A7
00023b78 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00023b7c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023b80 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023b84 4e ba ff 02              |N       |		JSR	0x23a88
00023b88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b8a 4e ba ff 5e              |N  ^    |		JSR	0x23aea
00023b8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b90 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00023b94 4e 5e                    |N^      |		UNLK	A6
00023b96 4e 75                    |Nu      |		RTS
00023b98 ; --------------------------------------------------------------------------------------
00023b98 ; OMSI PASCAL Function
00023b98 ;    <LVAR  0x014 4(w)>
00023b98 ;    <LVAR  0x010 4(w)>
00023b98 ;    <LVAR  0x00c 4(r)>
00023b98 ;    <LVAR  0x008 4(r)>
00023b98 ; --------------------------------------------------------------------------------------
00023b98 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00023b9c bf d5                    |        |		CMPA.L	(A5),A7
00023b9e 62 06                    |b       |		BHI	0x23ba6
00023ba0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023ba4 4e 76                    |Nv      |		TRAPV
00023ba6 de fc 00 18              |        |		ADDA.W	#0x18,A7
00023baa 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00023bae 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023bb2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023bb6 4e ba ff ae              |N       |		JSR	0x23b66
00023bba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bbc 48 78 00 10              |Hx      |		PEA.L	0x10
00023bc0 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00023bc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bc8 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00023bcc 2d 5f 00 14              |-_      |		MOVE.L	(A7)+,(A6+0x14)
00023bd0 4e 5e                    |N^      |		UNLK	A6
00023bd2 4e 75                    |Nu      |		RTS
00023bd4 ; --------------------------------------------------------------------------------------
00023bd4 ; OMSI PASCAL Function
00023bd4 ;    <LVAR  0x010 4(w)>
00023bd4 ;    <LVAR  0x00c 4(r)>
00023bd4 ;    <LVAR  0x008 4(r)>
00023bd4 ; --------------------------------------------------------------------------------------
00023bd4 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00023bd8 bf d5                    |        |		CMPA.L	(A5),A7
00023bda 62 06                    |b       |		BHI	0x23be2
00023bdc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023be0 4e 76                    |Nv      |		TRAPV
00023be2 de fc 00 18              |        |		ADDA.W	#0x18,A7
00023be6 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00023bea 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023bee 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023bf2 4e ba ff a4              |N       |		JSR	0x23b98
00023bf6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bf8 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00023bfe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c00 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00023c04 4e 5e                    |N^      |		UNLK	A6
00023c06 4e 75                    |Nu      |		RTS
00023c08 ; --------------------------------------------------------------------------------------
00023c08 ; OMSI PASCAL Function
00023c08 ;    <LVAR  0x008 @ 4(r)>
00023c08 ; --------------------------------------------------------------------------------------
00023c08 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00023c0c bf d5                    |        |		CMPA.L	(A5),A7
00023c0e 62 06                    |b       |		BHI	0x23c16
00023c10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c14 4e 76                    |Nv      |		TRAPV
00023c16 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023c1a 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00023c1e 45 f9 00 02 79 7e        |E   y~  |		LEA.L	0x2797e,A2
00023c24 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023c28 2f 08                    |/       |		MOVE.L	A0,-(A7)
00023c2a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023c2c 30 10                    |0       |		MOVE.W	(A0),D0
00023c2e 48 c0                    |H       |		EXTW.L	D0
00023c30 44 80                    |D       |		NEG.L	D0
00023c32 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023c34 4e ba f7 4e              |N  N    |		JSR	0x23384
00023c38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c3a 30 10                    |0       |		MOVE.W	(A0),D0
00023c3c 48 c0                    |H       |		EXTW.L	D0
00023c3e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023c40 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023c42 be 97                    |        |		CMP.L	(A7),D7
00023c44 6e 34                    |n4      |		BGT	0x23c7a
00023c46 20 07                    |        |		MOVE.L	D7,D0
00023c48 d0 92                    |        |		ADD.L	(A2),D0
00023c4a 53 80                    |S       |		SUBQ.L	#0x1,D0
00023c4c 53 80                    |S       |		SUBQ.L	#0x1,D0
00023c4e 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00023c54 63 02                    |c       |		BLS	0x23c58
00023c56 4e 4f                    |NO      |		TRAP	#15
00023c58 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00023c5e 22 07                    |"       |		MOVE.L	D7,D1
00023c60 53 81                    |S       |		SUBQ.L	#0x1,D1
00023c62 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00023c68 63 02                    |c       |		BLS	0x23c6c
00023c6a 4e 4f                    |NO      |		TRAP	#15
00023c6c 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00023c70 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00023c76 52 87                    |R       |		ADDQ.L	#0x1,D7
00023c78 68 c8                    |h       |		BVC	0x23c42
00023c7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023c7c 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00023c80 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023c86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023c88 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
00023c8c 4e 5e                    |N^      |		UNLK	A6
00023c8e 4e 75                    |Nu      |		RTS
00023c90 ; --------------------------------------------------------------------------------------
00023c90 ; OMSI PASCAL Function
00023c90 ;    <LVAR  0x00c 4(r)>
00023c90 ;    <LVAR  0x008 4(r)>
00023c90 ; --------------------------------------------------------------------------------------
00023c90 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00023c94 bf d5                    |        |		CMPA.L	(A5),A7
00023c96 62 06                    |b       |		BHI	0x23c9e
00023c98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c9c 4e 76                    |Nv      |		TRAPV
00023c9e de fc 00 14              |        |		ADDA.W	#0x14,A7
00023ca2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ca4 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00023ca8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023cac 48 78 00 10              |Hx      |		PEA.L	0x10
00023cb0 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00023cb6 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023cba 4e ba ff 4c              |N  L    |		JSR	0x23c08
00023cbe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023cc0 4e 5e                    |N^      |		UNLK	A6
00023cc2 4e 75                    |Nu      |		RTS
00023cc4 ; --------------------------------------------------------------------------------------
00023cc4 ; OMSI PASCAL Function
00023cc4 ;    <LVAR  0x008 4(r)>
00023cc4 ; --------------------------------------------------------------------------------------
00023cc4 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00023cc8 bf d5                    |        |		CMPA.L	(A5),A7
00023cca 62 06                    |b       |		BHI	0x23cd2
00023ccc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023cd0 4e 76                    |Nv      |		TRAPV
00023cd2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023cd6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023cd8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023cdc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00023ce2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ce4 4e ba ff 22              |N  "    |		JSR	0x23c08
00023ce8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023cea 4e 5e                    |N^      |		UNLK	A6
00023cec 4e 75                    |Nu      |		RTS
00023cee ; --------------------------------------------------------------------------------------
00023cee ; OMSI PASCAL Function
00023cee ;    <LVAR  0x008 4(r)>
00023cee ;    <LVAR -0x004 @ 4(r)>
00023cee ;    <LVAR -0x008 4(rw)>
00023cee ; --------------------------------------------------------------------------------------
00023cee 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00023cf2 bf d5                    |        |		CMPA.L	(A5),A7
00023cf4 62 06                    |b       |		BHI	0x23cfc
00023cf6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023cfa 4e 76                    |Nv      |		TRAPV
00023cfc de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00023d00 48 e7 81 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D0,-(A7)
00023d04 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00023d08 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00023d0c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023d10 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
00023d14 48 51                    |HQ      |		PEA.L	(A1)
00023d16 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023d1c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d1e 20 52                    | R      |		MOVEA.L	(A2),A0
00023d20 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00023d24 67 ff 00 00 00 8a        |g       |		BEQ	0x23db0
00023d2a 4a 90                    |J       |		TST.L	(A0)
00023d2c 67 68                    |gh      |		BEQ	0x23d96
00023d2e 2f 28 00 04              |/(      |		MOVE.L	(A0+0x4),-(A7)
00023d32 2e 10                    |.       |		MOVE.L	(A0),D7
00023d34 be 97                    |        |		CMP.L	(A7),D7
00023d36 6e 14                    |n       |		BGT	0x23d4c
00023d38 20 17                    |        |		MOVE.L	(A7),D0
00023d3a 0c 87 80 00 00 01        |        |		CMPI.L	#0x80000001,D7
00023d40 6d 08                    |m       |		BLT	0x23d4a
00023d42 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
00023d48 6f 02                    |o       |		BLE	0x23d4c
00023d4a 4e 4f                    |NO      |		TRAP	#15
00023d4c be 97                    |        |		CMP.L	(A7),D7
00023d4e 6e 44                    |nD      |		BGT	0x23d94
00023d50 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023d52 20 07                    |        |		MOVE.L	D7,D0
00023d54 53 80                    |S       |		SUBQ.L	#0x1,D0
00023d56 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00023d5c 63 02                    |c       |		BLS	0x23d60
00023d5e 4e 4f                    |NO      |		TRAP	#15
00023d60 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00023d66 1f 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),-(A7)
00023d6a 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00023d70 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023d72 20 51                    | Q      |		MOVEA.L	(A1),A0
00023d74 30 10                    |0       |		MOVE.W	(A0),D0
00023d76 0c 40 00 7a              | @ z    |		CMPI.W	#0x007a,D0
00023d7a 6d 14                    |m       |		BLT	0x23d90
00023d7c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023d7e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023d84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d86 48 51                    |HQ      |		PEA.L	(A1)
00023d88 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00023d8e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d90 52 87                    |R       |		ADDQ.L	#0x1,D7
00023d92 68 b8                    |h       |		BVC	0x23d4c
00023d94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d96 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023d98 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
00023d9c 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00023da2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023da4 20 52                    | R      |		MOVEA.L	(A2),A0
00023da6 24 a8 00 08              |$       |		MOVE.L	(A0+0x8),(A2)
00023daa 60 ff ff ff ff 72        |`    r  |		BRA	0x23d1e
00023db0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023db2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023db8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023dba 4c df 07 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2
00023dbe 4e 5e                    |N^      |		UNLK	A6
00023dc0 4e 75                    |Nu      |		RTS
00023dc2 ; --------------------------------------------------------------------------------------
00023dc2 ; OMSI PASCAL Function
00023dc2 ;    <LVAR  0x008 @ 4(r)>
00023dc2 ;    <LVAR -0x003 @ 1(r)>
00023dc2 ;    <LVAR -0x004 @ 1(r)>
00023dc2 ;    <LVAR -0x008 @ 4(r)>
00023dc2 ;    <LVAR -0x00c @ 4(rw)>
00023dc2 ; --------------------------------------------------------------------------------------
00023dc2					TRY_HLP_FILE(?):
00023dc2 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00023dc6 bf d5                    |        |		CMPA.L	(A5),A7
00023dc8 62 06                    |b       |		BHI	0x23dd0
00023dca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023dce 4e 76                    |Nv      |		TRAPV
00023dd0 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00023dd4 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00023dd8 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00023ddc 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00023de0 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00023de4 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00023de8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023dea 2f 3a ec 16              |/:      |		MOVE.L	0x22a02,-(A7)
00023dee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023df0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023df2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00023df8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023dfc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023dfe 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00023e02 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023e08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e0a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023e10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e12 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00023e14 2e 92                    |.       |		MOVE.L	(A2),(A7)
00023e16 42 27                    |B'      |		CLR.B	-(A7)
00023e18 42 27                    |B'      |		CLR.B	-(A7)
00023e1a 48 78 00 00              |Hx      |		PEA.L	0x0
00023e1e 48 53                    |HS      |		PEA.L	(A3)
00023e20 48 54                    |HT      |		PEA.L	(A4)
00023e22 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00023e28 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023e2c 4a 13                    |J       |		TST.B	(A3)
00023e2e 67 36                    |g6      |		BEQ	0x23e66
00023e30 41 fa eb d0              |A       |		LEA.L	0x22a02,A0
00023e34 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023e36 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023e38 51 c8 ff fc              |Q       |		DBF	D0,0x23e36
00023e3c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e3e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023e42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e44 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00023e48 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023e4e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023e50 2e 91                    |.       |		MOVE.L	(A1),(A7)
00023e52 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023e58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e5a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023e60 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00023e64 60 54                    |`T      |		BRA	0x23eba
00023e66 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00023e68 48 51                    |HQ      |		PEA.L	(A1)
00023e6a 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00023e6e 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00023e74 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023e78 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00023e7c 66 14                    |f       |		BNE	0x23e92
00023e7e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e80 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023e82 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00023e88 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023e8a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023e90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023e92 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00023e96 67 ce                    |g       |		BEQ	0x23e66
00023e98 42 27                    |B'      |		CLR.B	-(A7)
00023e9a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00023e9e 48 78 00 01              |Hx      |		PEA.L	0x1
00023ea2 48 53                    |HS      |		PEA.L	(A3)
00023ea4 48 54                    |HT      |		PEA.L	(A4)
00023ea6 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00023eac de fc 00 10              |        |		ADDA.W	#0x10,A7
00023eb0 48 51                    |HQ      |		PEA.L	(A1)
00023eb2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023eb8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023eba 48 52                    |HR      |		PEA.L	(A2)
00023ebc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023ec2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ec4 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00023ec8 4e 5e                    |N^      |		UNLK	A6
00023eca 4e 75                    |Nu      |		RTS
00023ecc ; --------------------------------------------------------------------------------------
00023ecc ; OMSI PASCAL Function
00023ecc ;    <LVAR  0x008 4(r)>
00023ecc ; --------------------------------------------------------------------------------------
00023ecc 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00023ed0 bf d5                    |        |		CMPA.L	(A5),A7
00023ed2 62 06                    |b       |		BHI	0x23eda
00023ed4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023ed8 4e 76                    |Nv      |		TRAPV
00023eda de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00023ede 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
00023ee2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ee4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023ee8 4e ba f3 52              |N  R    |		JSR	0x2323c
00023eec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023eee 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00023ef0 66 2e                    |f.      |		BNE	0x23f20
00023ef2 41 f9 00 02 79 90        |A   y   |		LEA.L	0x27990,A0
00023ef8 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023efa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023efc 51 c8 ff fc              |Q       |		DBF	D0,0x23efa
00023f00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f02 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023f06 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023f0a 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00023f0e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023f14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f16 4e ba fe aa              |N       |		JSR	TRY_HLP_FILE(?)
00023f1a de fc 00 0e              |        |		ADDA.W	#0xe,A7
00023f1e 60 26                    |`&      |		BRA	0x23f46
00023f20 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023f22 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023f24 be 97                    |        |		CMP.L	(A7),D7
00023f26 6e 1c                    |n       |		BGT	0x23f44
00023f28 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f2a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00023f2e 2f 07                    |/       |		MOVE.L	D7,-(A7)
00023f30 4e ba fc 34              |N  4    |		JSR	0x23b66
00023f34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f36 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00023f38 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00023f3a 4e ba fe 86              |N       |		JSR	TRY_HLP_FILE(?)
00023f3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f40 52 87                    |R       |		ADDQ.L	#0x1,D7
00023f42 68 e0                    |h       |		BVC	0x23f24
00023f44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f46 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
00023f4a 4e 5e                    |N^      |		UNLK	A6
00023f4c 4e 75                    |Nu      |		RTS
00023f4e ; --------------------------------------------------------------------------------------
00023f4e ; OMSI PASCAL Function
00023f4e ;    <LVAR  0x00c @>
00023f4e ;    <LVAR  0x008 @ 4(r)>
00023f4e ;    <LVAR -0x020 @>
00023f4e ; --------------------------------------------------------------------------------------
00023f4e 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00023f52 bf d5                    |        |		CMPA.L	(A5),A7
00023f54 62 06                    |b       |		BHI	0x23f5c
00023f56 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f5a 4e 76                    |Nv      |		TRAPV
00023f5c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023f60 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00023f64 74 1d                    |t       |		MOVEQ.L	#0x1d,D2
00023f66 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00023f68 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023f6c 30 10                    |0       |		MOVE.W	(A0),D0
00023f6e 48 c0                    |H       |		EXTW.L	D0
00023f70 be 80                    |        |		CMP.L	D0,D7
00023f72 6f 10                    |o       |		BLE	0x23f84
00023f74 20 07                    |        |		MOVE.L	D7,D0
00023f76 53 80                    |S       |		SUBQ.L	#0x1,D0
00023f78 b0 82                    |        |		CMP.L	D2,D0
00023f7a 63 02                    |c       |		BLS	0x23f7e
00023f7c 4e 4f                    |NO      |		TRAP	#15
00023f7e 42 36 08 e0              |B6      |		CLR.B	(A6+D0.L-#0x20)
00023f82 60 1e                    |`       |		BRA	0x23fa2
00023f84 20 07                    |        |		MOVE.L	D7,D0
00023f86 53 80                    |S       |		SUBQ.L	#0x1,D0
00023f88 b0 82                    |        |		CMP.L	D2,D0
00023f8a 63 02                    |c       |		BLS	0x23f8e
00023f8c 4e 4f                    |NO      |		TRAP	#15
00023f8e 22 07                    |"       |		MOVE.L	D7,D1
00023f90 53 81                    |S       |		SUBQ.L	#0x1,D1
00023f92 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00023f98 63 02                    |c       |		BLS	0x23f9c
00023f9a 4e 4f                    |NO      |		TRAP	#15
00023f9c 1d b0 18 02 08 e0        |        |		MOVE.B	(A0+D1.L+#0x2),(A6+D0.L-#0x20)
00023fa2 52 87                    |R       |		ADDQ.L	#0x1,D7
00023fa4 0c 87 00 00 00 1e        |        |		CMPI.L	#0x0000001e,D7
00023faa 6f bc                    |o       |		BLE	0x23f68
00023fac 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00023fb0 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023fb6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023fb8 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00023fbc 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
00023fc0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00023fc2 30 d9                    |0       |		MOVE.W	(A1)+,(A0)+
00023fc4 51 c8 ff fc              |Q       |		DBF	D0,0x23fc2
00023fc8 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
00023fcc 4e 5e                    |N^      |		UNLK	A6
00023fce 4e 75                    |Nu      |		RTS
00023fd0 ; --------------------------------------------------------------------------------------
00023fd0 ; OMSI PASCAL Function
00023fd0 ;    <LVAR  0x026 4(w)>
00023fd0 ;    <LVAR  0x008 @>
00023fd0 ;    <LVAR -0x006 4(rw)>
00023fd0 ; --------------------------------------------------------------------------------------
00023fd0 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00023fd4 bf d5                    |        |		CMPA.L	(A5),A7
00023fd6 62 06                    |b       |		BHI	0x23fde
00023fd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023fdc 4e 76                    |Nv      |		TRAPV
00023fde de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023fe2 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
00023fe6 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00023fea 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023fec 26 b9 00 02 79 a8        |&   y   |		MOVE.L	0x279a8,(A3)
00023ff2 20 53                    | S      |		MOVEA.L	(A3),A0
00023ff4 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00023ff8 67 1e                    |g       |		BEQ	0x24018
00023ffa 4a 07                    |J       |		TST.B	D7
00023ffc 66 1a                    |f       |		BNE	0x24018
00023ffe 22 48                    |"H      |		MOVEA.L	A0,A1
00024000 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00024004 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00024006 b5 09                    |        |		CMPM.B	(A1)+,(A2)+
00024008 56 c8 ff fc              |V       |		DBNE	D0,0x24006
0002400c 66 04                    |f       |		BNE	0x24012
0002400e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024010 60 04                    |`       |		BRA	0x24016
00024012 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
00024016 60 da                    |`       |		BRA	0x23ff2
00024018 2d 48 00 26              |-H &    |		MOVE.L	A0,(A6+0x26)
0002401c 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00024020 4e 5e                    |N^      |		UNLK	A6
00024022 4e 75                    |Nu      |		RTS
00024024 ; --------------------------------------------------------------------------------------
00024024 ; OMSI PASCAL Function
00024024 ;    <LVAR  0x008 @ 4(r)>
00024024 ; --------------------------------------------------------------------------------------
00024024 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00024028 bf d5                    |        |		CMPA.L	(A5),A7
0002402a 62 06                    |b       |		BHI	0x24032
0002402c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024030 4e 76                    |Nv      |		TRAPV
00024032 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00024036 48 e7 81 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D0,-(A7)
0002403a 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0002403e 45 f9 00 02 79 a8        |E   y   |		LEA.L	0x279a8,A2
00024044 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024046 20 51                    | Q      |		MOVEA.L	(A1),A0
00024048 b0 c0                    |        |		CMPA.W	D0,A0
0002404a 67 56                    |gV      |		BEQ	0x240a2
0002404c 4a a8 00 1e              |J       |		TST.L	(A0+0x1e)
00024050 67 10                    |g       |		BEQ	0x24062
00024052 2f 28 00 22              |/( "    |		MOVE.L	(A0+0x22),-(A7)
00024056 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
0002405a 4e b9 00 01 02 a4        |N       |		JSR	Free1(a : Pointer; b : Long)
00024060 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024062 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00024064 38 40                    |8@      |		MOVEA.W	D0,A4
00024066 26 52                    |&R      |		MOVEA.L	(A2),A3
00024068 b6 c0                    |        |		CMPA.W	D0,A3
0002406a 67 14                    |g       |		BEQ	0x24080
0002406c 4a 07                    |J       |		TST.B	D7
0002406e 66 10                    |f       |		BNE	0x24080
00024070 b7 d1                    |        |		CMPA.L	(A1),A3
00024072 66 04                    |f       |		BNE	0x24078
00024074 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024076 60 06                    |`       |		BRA	0x2407e
00024078 28 4b                    |(K      |		MOVEA.L	A3,A4
0002407a 26 6b 00 26              |&k &    |		MOVEA.L	(A3+0x26),A3
0002407e 60 e8                    |`       |		BRA	0x24068
00024080 4a 07                    |J       |		TST.B	D7
00024082 67 1e                    |g       |		BEQ	0x240a2
00024084 b8 c0                    |        |		CMPA.W	D0,A4
00024086 66 06                    |f       |		BNE	0x2408e
00024088 24 ab 00 26              |$  &    |		MOVE.L	(A3+0x26),(A2)
0002408c 60 06                    |`       |		BRA	0x24094
0002408e 29 6b 00 26 00 26        |)k & &  |		MOVE.L	(A3+0x26),(A4+0x26)
00024094 48 51                    |HQ      |		PEA.L	(A1)
00024096 48 78 00 2a              |Hx *    |		PEA.L	0x2a
0002409a 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
000240a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240a2 4c df 1f 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A3+A4
000240a6 4e 5e                    |N^      |		UNLK	A6
000240a8 4e 75                    |Nu      |		RTS
000240aa ; --------------------------------------------------------------------------------------
000240aa ; OMSI PASCAL Function
000240aa ;    <LVAR  0x010 4(w)>
000240aa ;    <LVAR  0x00c 4(r)>
000240aa ;    <LVAR  0x008 4(r)>
000240aa ;    <LVAR -0x006 @ 4(rw)>
000240aa ;    <LVAR -0x024 @>
000240aa ; --------------------------------------------------------------------------------------
000240aa 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
000240ae bf d5                    |        |		CMPA.L	(A5),A7
000240b0 62 06                    |b       |		BHI	0x240b8
000240b2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000240b6 4e 76                    |Nv      |		TRAPV
000240b8 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000240bc 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000240c0 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
000240c4 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000240c8 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
000240ca 9e c1                    |        |		SUBA.W	D1,A7
000240cc 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000240d0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000240d2 4e ba fe 7a              |N  z    |		JSR	0x23f4e
000240d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000240d8 41 ee ff dc              |A       |		LEA.L	(A6-0x24),A0
000240dc 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000240de 30 df                    |0       |		MOVE.W	(A7)+,(A0)+
000240e0 51 c8 ff fc              |Q       |		DBF	D0,0x240de
000240e4 4a 94                    |J       |		TST.L	(A4)
000240e6 6c 02                    |l       |		BGE	0x240ea
000240e8 42 94                    |B       |		CLR.L	(A4)
000240ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240ec 20 4b                    | K      |		MOVEA.L	A3,A0
000240ee 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000240f0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000240f2 51 c8 ff fc              |Q       |		DBF	D0,0x240f0
000240f6 4e ba fe d8              |N       |		JSR	0x23fd0
000240fa de c1                    |        |		ADDA.W	D1,A7
000240fc 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000240fe 20 53                    | S      |		MOVEA.L	(A3),A0
00024100 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
00024104 67 12                    |g       |		BEQ	0x24118
00024106 20 28 00 1e              | (      |		MOVE.L	(A0+0x1e),D0
0002410a b0 94                    |        |		CMP.L	(A4),D0
0002410c 66 02                    |f       |		BNE	0x24110
0002410e 60 4c                    |`L      |		BRA	0x2415c
00024110 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024112 4e ba ff 10              |N       |		JSR	0x24024
00024116 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024118 48 53                    |HS      |		PEA.L	(A3)
0002411a 48 78 00 2a              |Hx *    |		PEA.L	0x2a
0002411e 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
00024124 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024126 20 53                    | S      |		MOVEA.L	(A3),A0
00024128 21 79 00 02 79 a8 00 26  |!y  y  &|		MOVE.L	0x279a8,(A0+0x26)
00024130 23 d3 00 02 79 a8        |#   y   |		MOVE.L	(A3),0x279a8
00024136 22 48                    |"H      |		MOVEA.L	A0,A1
00024138 45 ee ff dc              |E       |		LEA.L	(A6-0x24),A2
0002413c 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002413e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024140 51 c8 ff fc              |Q       |		DBF	D0,0x2413e
00024144 21 54 00 1e              |!T      |		MOVE.L	(A4),(A0+0x1e)
00024148 4a 94                    |J       |		TST.L	(A4)
0002414a 67 10                    |g       |		BEQ	0x2415c
0002414c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002414e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024150 4e b9 00 01 02 a0        |N       |		JSR	Malloc2(VAR dst : Pointer; length : Word)
00024156 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024158 21 5f 00 22              |!_ "    |		MOVE.L	(A7)+,(A0+0x22)
0002415c 2d 53 00 10              |-S      |		MOVE.L	(A3),(A6+0x10)
00024160 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00024164 4e 5e                    |N^      |		UNLK	A6
00024166 4e 75                    |Nu      |		RTS
00024168 ; --------------------------------------------------------------------------------------
00024168 ; OMSI PASCAL Function
00024168 ;    <LVAR  0x00c @>
00024168 ;    <LVAR  0x008 @ 4(r)>
00024168 ;    <LVAR -0x008 4(rw)>
00024168 ; --------------------------------------------------------------------------------------
00024168 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002416c bf d5                    |        |		CMPA.L	(A5),A7
0002416e 62 06                    |b       |		BHI	0x24176
00024170 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024174 4e 76                    |Nv      |		TRAPV
00024176 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002417a 48 e7 c3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D1+D0,-(A7)
0002417e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00024182 20 52                    | R      |		MOVEA.L	(A2),A0
00024184 30 10                    |0       |		MOVE.W	(A0),D0
00024186 48 c0                    |H       |		EXTW.L	D0
00024188 2c 00                    |,       |		MOVE.L	D0,D6
0002418a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002418c 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00024190 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024192 4e ba ff 16              |N       |		JSR	0x240aa
00024196 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024198 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002419c 4a 86                    |J       |		TST.L	D6
0002419e 67 40                    |g@      |		BEQ	0x241e0
000241a0 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
000241a4 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
000241a8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000241aa 2f 06                    |/       |		MOVE.L	D6,-(A7)
000241ac 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000241ae be 97                    |        |		CMP.L	(A7),D7
000241b0 6e 2c                    |n,      |		BGT	0x241de
000241b2 20 07                    |        |		MOVE.L	D7,D0
000241b4 53 80                    |S       |		SUBQ.L	#0x1,D0
000241b6 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000241bc 63 02                    |c       |		BLS	0x241c0
000241be 4e 4f                    |NO      |		TRAP	#15
000241c0 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000241c4 22 52                    |"R      |		MOVEA.L	(A2),A1
000241c6 22 07                    |"       |		MOVE.L	D7,D1
000241c8 53 81                    |S       |		SUBQ.L	#0x1,D1
000241ca 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000241d0 63 02                    |c       |		BLS	0x241d4
000241d2 4e 4f                    |NO      |		TRAP	#15
000241d4 11 b1 18 02 08 00        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L)
000241da 52 87                    |R       |		ADDQ.L	#0x1,D7
000241dc 68 d0                    |h       |		BVC	0x241ae
000241de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000241e0 48 52                    |HR      |		PEA.L	(A2)
000241e2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000241e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000241ea 4c df 07 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2
000241ee 4e 5e                    |N^      |		UNLK	A6
000241f0 4e 75                    |Nu      |		RTS
000241f2 ; --------------------------------------------------------------------------------------
000241f2 ; OMSI PASCAL Function
000241f2 ;    <LVAR  0x008 4(r)>
000241f2 ;    <LVAR -0x004 @ 4(w)>
000241f2 ;    <LVAR -0x008 4(rw)>
000241f2 ;    <LVAR -0x00c 4(rw)>
000241f2 ;    <LVAR -0x010 4(rw)>
000241f2 ;    <LVAR -0x01c 4(rw)>
000241f2 ;    <LVAR -0x020 4(rw)>
000241f2 ; --------------------------------------------------------------------------------------
000241f2 4e 56 ff 82              |NV      |		LINK.W	A6,#0xff82
000241f6 bf d5                    |        |		CMPA.L	(A5),A7
000241f8 62 06                    |b       |		BHI	0x24200
000241fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000241fe 4e 76                    |Nv      |		TRAPV
00024200 de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00024204 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024208 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
0002420c 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
00024210 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00024214 74 01                    |t       |		MOVEQ.L	#0x01,D2
00024216 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024218 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002421a 4e ba f0 20              |N       |		JSR	0x2323c
0002421e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024220 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00024222 20 13                    |        |		MOVE.L	(A3),D0
00024224 b0 82                    |        |		CMP.L	D2,D0
00024226 6c 2e                    |l.      |		BGE	0x24256
00024228 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
0002422c 20 4f                    | O      |		MOVEA.L	A7,A0
0002422e 43 fa e7 d6              |C       |		LEA.L	0x22a06,A1
00024232 72 18                    |r       |		MOVEQ.L	#0x18,D1
00024234 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024236 51 c9 ff fc              |Q       |		DBF	D1,0x24234
0002423a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002423c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024240 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024242 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00024246 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002424c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002424e 4e ba eb d8              |N       |		JSR	0x22e28
00024252 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024256 42 92                    |B       |		CLR.L	(A2)
00024258 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002425a 7c 02                    ||       |		MOVEQ.L	#0x02,D6
0002425c bc 97                    |        |		CMP.L	(A7),D6
0002425e 6e 1e                    |n       |		BGT	0x2427e
00024260 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00024264 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024266 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024268 4e ba f8 1e              |N       |		JSR	0x23a88
0002426c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002426e 4e ba f7 e0              |N       |		JSR	0x23a50
00024272 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024274 20 12                    |        |		MOVE.L	(A2),D0
00024276 d0 9f                    |        |		ADD.L	(A7)+,D0
00024278 24 80                    |$       |		MOVE.L	D0,(A2)
0002427a 52 86                    |R       |		ADDQ.L	#0x1,D6
0002427c 68 de                    |h       |		BVC	0x2425c
0002427e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024280 20 13                    |        |		MOVE.L	(A3),D0
00024282 55 80                    |U       |		SUBQ.L	#0x2,D0
00024284 d1 92                    |        |		ADD.L	D0,(A2)
00024286 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024288 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002428a 48 78 00 01              |Hx      |		PEA.L	0x1
0002428e 4e ba f8 d6              |N       |		JSR	0x23b66
00024292 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024294 2d 57 ff fc              |-W      |		MOVE.L	(A7),(A6-0x4)
00024298 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002429c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002429e 4e ba fe 0a              |N       |		JSR	0x240aa
000242a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000242a4 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000242a8 4a 92                    |J       |		TST.L	(A2)
000242aa 6f ff 00 00 00 b0        |o       |		BLE	0x2435c
000242b0 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
000242b4 20 68 00 22              | h "    |		MOVEA.L	(A0+0x22),A0
000242b8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000242ba 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000242bc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000242be 7c 02                    ||       |		MOVEQ.L	#0x02,D6
000242c0 bc 97                    |        |		CMP.L	(A7),D6
000242c2 6e ff 00 00 00 96        |n       |		BGT	0x2435a
000242c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000242ca 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000242cc 2f 06                    |/       |		MOVE.L	D6,-(A7)
000242ce 4e ba f7 b8              |N       |		JSR	0x23a88
000242d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000242d4 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
000242d8 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
000242dc 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
000242e0 2a 2e ff e0              |*.      |		MOVE.L	(A6-0x20),D5
000242e4 ba 97                    |        |		CMP.L	(A7),D5
000242e6 6e 14                    |n       |		BGT	0x242fc
000242e8 20 17                    |        |		MOVE.L	(A7),D0
000242ea 0c 85 80 00 00 01        |        |		CMPI.L	#0x80000001,D5
000242f0 6d 08                    |m       |		BLT	0x242fa
000242f2 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
000242f8 6f 02                    |o       |		BLE	0x242fc
000242fa 4e 4f                    |NO      |		TRAP	#15
000242fc ba 97                    |        |		CMP.L	(A7),D5
000242fe 6e 32                    |n2      |		BGT	0x24332
00024300 20 07                    |        |		MOVE.L	D7,D0
00024302 53 80                    |S       |		SUBQ.L	#0x1,D0
00024304 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
0002430a 63 02                    |c       |		BLS	0x2430e
0002430c 4e 4f                    |NO      |		TRAP	#15
0002430e 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00024312 22 05                    |"       |		MOVE.L	D5,D1
00024314 53 81                    |S       |		SUBQ.L	#0x1,D1
00024316 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
0002431c 63 02                    |c       |		BLS	0x24320
0002431e 4e 4f                    |NO      |		TRAP	#15
00024320 43 f9 00 02 69 76        |C   iv  |		LEA.L	0x26976,A1
00024326 11 b1 18 08 08 00        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L)
0002432c 52 87                    |R       |		ADDQ.L	#0x1,D7
0002432e 52 85                    |R       |		ADDQ.L	#0x1,D5
00024330 68 ca                    |h       |		BVC	0x242fc
00024332 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024334 bc 93                    |        |		CMP.L	(A3),D6
00024336 67 1a                    |g       |		BEQ	0x24352
00024338 20 07                    |        |		MOVE.L	D7,D0
0002433a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002433c 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00024342 63 02                    |c       |		BLS	0x24346
00024344 4e 4f                    |NO      |		TRAP	#15
00024346 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0002434a 11 bc 00 2c 08 00        |   ,    |		MOVE.B	#0x2c,(A0+D0.L)
00024350 52 87                    |R       |		ADDQ.L	#0x1,D7
00024352 52 86                    |R       |		ADDQ.L	#0x1,D6
00024354 68 ff ff ff ff 6a        |h    j  |		BVC	0x242c0
0002435a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002435c 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024360 4e 5e                    |N^      |		UNLK	A6
00024362 4e 75                    |Nu      |		RTS
00024364 ; --------------------------------------------------------------------------------------
00024364 ; OMSI PASCAL Function
00024364 ;    <LVAR  0x008 4(r)>
00024364 ;    <LVAR -0x00c 4(rw)>
00024364 ; --------------------------------------------------------------------------------------
00024364 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00024368 bf d5                    |        |		CMPA.L	(A5),A7
0002436a 62 06                    |b       |		BHI	0x24372
0002436c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024370 4e 76                    |Nv      |		TRAPV
00024372 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00024376 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
0002437a 47 f9 00 02 79 7e        |G   y~  |		LEA.L	0x2797e,A3
00024380 74 01                    |t       |		MOVEQ.L	#0x01,D2
00024382 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024384 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024388 48 78 00 01              |Hx      |		PEA.L	0x1
0002438c 4e ba f7 d8              |N       |		JSR	0x23b66
00024390 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024392 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00024394 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00024398 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002439a 4e ba fb b2              |N       |		JSR	0x23f4e
0002439e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000243a0 4e ba fc 2e              |N  .    |		JSR	0x23fd0
000243a4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000243a8 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000243ac 20 6e ff f4              | n      |		MOVEA.L	(A6-0xc),A0
000243b0 b0 c2                    |        |		CMPA.W	D2,A0
000243b2 66 42                    |fB      |		BNE	0x243f6
000243b4 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000243b8 22 4f                    |"O      |		MOVEA.L	A7,A1
000243ba 45 fa e6 64              |E  d    |		LEA.L	0x22a20,A2
000243be 70 12                    |p       |		MOVEQ.L	#0x12,D0
000243c0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000243c2 51 c8 ff fc              |Q       |		DBF	D0,0x243c0
000243c6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000243c8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000243cc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000243ce 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000243d2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000243d8 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000243dc 48 78 00 01              |Hx      |		PEA.L	0x1
000243e0 4e ba f7 84              |N       |		JSR	0x23b66
000243e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000243e6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000243ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000243ee 4e ba ea 38              |N  8    |		JSR	0x22e28
000243f2 de fc 00 18              |        |		ADDA.W	#0x18,A7
000243f6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000243f8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000243fa 2f 28 00 1e              |/(      |		MOVE.L	(A0+0x1e),-(A7)
000243fe 44 97                    |D       |		NEG.L	(A7)
00024400 4e ba ef 82              |N       |		JSR	0x23384
00024404 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024406 2e a8 00 1e              |.       |		MOVE.L	(A0+0x1e),(A7)
0002440a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002440c be 97                    |        |		CMP.L	(A7),D7
0002440e 6e 38                    |n8      |		BGT	0x24448
00024410 20 07                    |        |		MOVE.L	D7,D0
00024412 d0 93                    |        |		ADD.L	(A3),D0
00024414 53 80                    |S       |		SUBQ.L	#0x1,D0
00024416 53 80                    |S       |		SUBQ.L	#0x1,D0
00024418 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002441e 63 02                    |c       |		BLS	0x24422
00024420 4e 4f                    |NO      |		TRAP	#15
00024422 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00024428 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
0002442c 22 69 00 22              |"i "    |		MOVEA.L	(A1+0x22),A1
00024430 22 07                    |"       |		MOVE.L	D7,D1
00024432 53 81                    |S       |		SUBQ.L	#0x1,D1
00024434 0c 81 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D1
0002443a 63 02                    |c       |		BLS	0x2443e
0002443c 4e 4f                    |NO      |		TRAP	#15
0002443e 11 b1 18 00 08 08        |        |		MOVE.B	(A1+D1.L),(A0+D0.L+#0x8)
00024444 52 87                    |R       |		ADDQ.L	#0x1,D7
00024446 68 c4                    |h       |		BVC	0x2440c
00024448 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002444a 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
0002444e 4e 5e                    |N^      |		UNLK	A6
00024450 4e 75                    |Nu      |		RTS
00024452 ; --------------------------------------------------------------------------------------
00024452 ; OMSI PASCAL Function
00024452 ;    <LVAR -0x004 4(rw)>
00024452 ; --------------------------------------------------------------------------------------
00024452 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00024456 bf d5                    |        |		CMPA.L	(A5),A7
00024458 62 06                    |b       |		BHI	0x24460
0002445a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002445e 4e 76                    |Nv      |		TRAPV
00024460 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00024464 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00024468 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
0002446c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002446e 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00024470 26 b9 00 02 79 a8        |&   y   |		MOVE.L	0x279a8,(A3)
00024476 20 53                    | S      |		MOVEA.L	(A3),A0
00024478 b0 c1                    |        |		CMPA.W	D1,A0
0002447a 67 30                    |g0      |		BEQ	0x244ac
0002447c 9e c2                    |        |		SUBA.W	D2,A7
0002447e 22 4f                    |"O      |		MOVEA.L	A7,A1
00024480 24 48                    |$H      |		MOVEA.L	A0,A2
00024482 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00024484 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024486 51 c8 ff fc              |Q       |		DBF	D0,0x24484
0002448a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002448c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024490 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024492 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024494 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002449a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002449c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000244a2 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000244a6 26 a8 00 26              |&  &    |		MOVE.L	(A0+0x26),(A3)
000244aa 60 ca                    |`       |		BRA	0x24476
000244ac 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
000244b0 4e 5e                    |N^      |		UNLK	A6
000244b2 4e 75                    |Nu      |		RTS
000244b4 ; --------------------------------------------------------------------------------------
000244b4 ; OMSI PASCAL Function
000244b4 ;    <LVAR  0x008 4(r)>
000244b4 ; --------------------------------------------------------------------------------------
000244b4 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000244b8 bf d5                    |        |		CMPA.L	(A5),A7
000244ba 62 06                    |b       |		BHI	0x244c2
000244bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000244c0 4e 76                    |Nv      |		TRAPV
000244c2 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000244c6 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
000244ca 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000244ce 48 78 00 01              |Hx      |		PEA.L	0x1
000244d2 4e ba f6 92              |N       |		JSR	0x23b66
000244d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244d8 4e ba fa 74              |N  t    |		JSR	0x23f4e
000244dc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244de 4e ba fa f0              |N       |		JSR	0x23fd0
000244e2 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000244e6 4e ba fb 3c              |N  <    |		JSR	0x24024
000244ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244ec 4e 5e                    |N^      |		UNLK	A6
000244ee 4e 75                    |Nu      |		RTS
000244f0 ; --------------------------------------------------------------------------------------
000244f0 ; OMSI PASCAL Function
000244f0 ; --------------------------------------------------------------------------------------
000244f0 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
000244f4 bf d5                    |        |		CMPA.L	(A5),A7
000244f6 62 06                    |b       |		BHI	0x244fe
000244f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000244fc 4e 76                    |Nv      |		TRAPV
000244fe de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024502 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024504 4e b9 00 01 03 cc        |N       |		JSR	GetPushLevel() : Long
0002450a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024510 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024512 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024518 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002451a 4e 5e                    |N^      |		UNLK	A6
0002451c 4e 75                    |Nu      |		RTS
0002451e ; --------------------------------------------------------------------------------------
0002451e ; OMSI PASCAL Function
0002451e ;    <LVAR  0x008 4(r)>
0002451e ;    <LVAR -0x004 1(rw)>
0002451e ;    <LVAR -0x008 @ 4(rw)>
0002451e ;    <LVAR -0x00c @ 4(r)>
0002451e ;    <LVAR -0x010 @ 4(r)>
0002451e ;    <LVAR -0x012 @ 1(r)>
0002451e ;    <LVAR -0x013 @ 1(r)>
0002451e ;    <LVAR -0x014 @ 1(r)>
0002451e ;    <LVAR -0x024 4(rw)>
0002451e ;    <LVAR -0x028 4(rw)>
0002451e ;    <LVAR -0x02c 4(rw)>
0002451e ;    <LVAR -0x030 @ 4(r)>
0002451e ;    <LVAR -0x032 1(w)>
0002451e ;    <LVAR -0x036 @ 4(r)>
0002451e ;    <LVAR -0x038 @ 1(r)>
0002451e ;    <LVAR -0x03c @ 4(rw)>
0002451e ; --------------------------------------------------------------------------------------
0002451e 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
00024522 bf d5                    |        |		CMPA.L	(A5),A7
00024524 62 06                    |b       |		BHI	0x2452c
00024526 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002452a 4e 76                    |Nv      |		TRAPV
0002452c de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00024530 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024534 45 ee ff c4              |E       |		LEA.L	(A6-0x3c),A2
00024538 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
0002453c 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00024542 74 01                    |t       |		MOVEQ.L	#0x01,D2
00024544 76 14                    |v       |		MOVEQ.L	#0x14,D3
00024546 28 3c ff ff 80 00        |(<      |		MOVE.L	#0xffff8000,D4
0002454c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002454e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024550 4e ba ec ea              |N       |		JSR	0x2323c
00024554 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024556 2d 5f ff d4              |-_      |		MOVE.L	(A7)+,(A6-0x2c)
0002455a 66 28                    |f(      |		BNE	0x24584
0002455c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002455e 1e ba e4 e6              |        |		MOVE.B	0x22a46,(A7)
00024562 1f 7a e4 e3 00 01        | z      |		MOVE.B	0x22a47,(A7+0x1)
00024568 1f 7a e4 de 00 02        | z      |		MOVE.B	0x22a48,(A7+0x2)
0002456e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024570 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024574 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024576 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
0002457a 4e 94                    |N       |		JSR	(A4)
0002457c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002457e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024580 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024582 60 10                    |`       |		BRA	0x24594
00024584 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024586 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024588 48 78 00 01              |Hx      |		PEA.L	0x1
0002458c 4e ba f5 d8              |N       |		JSR	0x23b66
00024590 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024592 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024594 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00024596 20 4f                    | O      |		MOVEA.L	A7,A0
00024598 43 fa e4 b6              |C       |		LEA.L	0x22a50,A1
0002459c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002459e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000245a0 51 c8 ff fc              |Q       |		DBF	D0,0x2459e
000245a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245a6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000245a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000245aa 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000245ae 3f 02                    |?       |		MOVE.W	D2,-(A7)
000245b0 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000245b4 4e 94                    |N       |		JSR	(A4)
000245b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245b8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000245be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000245c0 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000245c2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000245c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000245c6 42 27                    |B'      |		CLR.B	-(A7)
000245c8 1f 02                    |        |		MOVE.B	D2,-(A7)
000245ca 48 78 00 00              |Hx      |		PEA.L	0x0
000245ce 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000245d2 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
000245d6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000245dc de c3                    |        |		ADDA.W	D3,A7
000245de 4a 2e ff c8              |J.      |		TST.B	(A6-0x38)
000245e2 67 10                    |g       |		BEQ	0x245f4
000245e4 48 52                    |HR      |		PEA.L	(A2)
000245e6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000245ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000245ee 60 ff 00 00 02 56        |`    V  |		BRA	0x24846
000245f4 20 6e ff ca              | n      |		MOVEA.L	(A6-0x36),A0
000245f8 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
000245fc ed 08                    |        |		LSL.B	#0x6,D0
000245fe ee 08                    |        |		LSR.B	#0x7,D0
00024600 1d 40 ff ce              | @      |		MOVE.B	D0,(A6-0x32)
00024604 42 27                    |B'      |		CLR.B	-(A7)
00024606 1f 02                    |        |		MOVE.B	D2,-(A7)
00024608 48 78 00 01              |Hx      |		PEA.L	0x1
0002460c 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
00024610 48 6e ff ca              |Hn      |		PEA.L	(A6-0x36)
00024614 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002461a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002461e 20 52                    | R      |		MOVEA.L	(A2),A0
00024620 32 10                    |2       |		MOVE.W	(A0),D1
00024622 48 c1                    |H       |		EXTW.L	D1
00024624 5b 81                    |[       |		SUBQ.L	#0x5,D1
00024626 92 84                    |        |		SUB.L	D4,D1
00024628 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
0002462e 63 02                    |c       |		BLS	0x24632
00024630 4e 4f                    |NO      |		TRAP	#15
00024632 d2 84                    |        |		ADD.L	D4,D1
00024634 30 81                    |0       |		MOVE.W	D1,(A0)
00024636 4a 00                    |J       |		TST.B	D0
00024638 66 38                    |f8      |		BNE	0x24672
0002463a 41 fa e4 0a              |A       |		LEA.L	0x22a46,A0
0002463e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024640 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024642 51 c8 ff fc              |Q       |		DBF	D0,0x24640
00024646 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024648 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002464a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002464c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024650 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024652 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00024656 4e 94                    |N       |		JSR	(A4)
00024658 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002465a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024660 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024662 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024668 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002466c 60 ff 00 00 01 d8        |`       |		BRA	0x24846
00024672 48 6e ff d0              |Hn      |		PEA.L	(A6-0x30)
00024676 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002467c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002467e 20 6e ff d0              | n      |		MOVEA.L	(A6-0x30),A0
00024682 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024684 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024686 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
0002468a 7a 02                    |z       |		MOVEQ.L	#0x02,D5
0002468c ba 97                    |        |		CMP.L	(A7),D5
0002468e 6e ff 00 00 00 98        |n       |		BGT	0x24728
00024694 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024696 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024698 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002469a 4e ba f3 ec              |N       |		JSR	0x23a88
0002469e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246a0 2d 5f ff d8              |-_      |		MOVE.L	(A7)+,(A6-0x28)
000246a4 2d 5f ff dc              |-_      |		MOVE.L	(A7)+,(A6-0x24)
000246a8 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
000246ac 2c 2e ff d8              |,.      |		MOVE.L	(A6-0x28),D6
000246b0 bc 97                    |        |		CMP.L	(A7),D6
000246b2 6e 14                    |n       |		BGT	0x246c8
000246b4 20 17                    |        |		MOVE.L	(A7),D0
000246b6 0c 86 80 00 00 01        |        |		CMPI.L	#0x80000001,D6
000246bc 6d 08                    |m       |		BLT	0x246c6
000246be 0c 80 7f ff ff ff        |        |		CMPI.L	#0x7fffffff,D0
000246c4 6f 02                    |o       |		BLE	0x246c8
000246c6 4e 4f                    |NO      |		TRAP	#15
000246c8 bc 97                    |        |		CMP.L	(A7),D6
000246ca 6e 32                    |n2      |		BGT	0x246fe
000246cc 20 07                    |        |		MOVE.L	D7,D0
000246ce 53 80                    |S       |		SUBQ.L	#0x1,D0
000246d0 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000246d6 63 02                    |c       |		BLS	0x246da
000246d8 4e 4f                    |NO      |		TRAP	#15
000246da 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
000246de 22 06                    |"       |		MOVE.L	D6,D1
000246e0 53 81                    |S       |		SUBQ.L	#0x1,D1
000246e2 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000246e8 63 02                    |c       |		BLS	0x246ec
000246ea 4e 4f                    |NO      |		TRAP	#15
000246ec 43 f9 00 02 69 76        |C   iv  |		LEA.L	0x26976,A1
000246f2 11 b1 18 08 08 02        |        |		MOVE.B	(A1+D1.L+#0x8),(A0+D0.L+#0x2)
000246f8 52 87                    |R       |		ADDQ.L	#0x1,D7
000246fa 52 86                    |R       |		ADDQ.L	#0x1,D6
000246fc 68 ca                    |h       |		BVC	0x246c8
000246fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024700 ba ae ff d4              |        |		CMP.L	(A6-0x2c),D5
00024704 67 1a                    |g       |		BEQ	0x24720
00024706 20 07                    |        |		MOVE.L	D7,D0
00024708 53 80                    |S       |		SUBQ.L	#0x1,D0
0002470a 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00024710 63 02                    |c       |		BLS	0x24714
00024712 4e 4f                    |NO      |		TRAP	#15
00024714 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00024718 11 bc 00 2c 08 02        |   ,    |		MOVE.B	#0x2c,(A0+D0.L+#0x2)
0002471e 52 87                    |R       |		ADDQ.L	#0x1,D7
00024720 52 85                    |R       |		ADDQ.L	#0x1,D5
00024722 68 ff ff ff ff 68        |h    h  |		BVC	0x2468c
00024728 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002472a 20 57                    | W      |		MOVEA.L	(A7),A0
0002472c 20 07                    |        |		MOVE.L	D7,D0
0002472e 53 80                    |S       |		SUBQ.L	#0x1,D0
00024730 90 84                    |        |		SUB.L	D4,D0
00024732 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00024738 63 02                    |c       |		BLS	0x2473c
0002473a 4e 4f                    |NO      |		TRAP	#15
0002473c d0 84                    |        |		ADD.L	D4,D0
0002473e 30 80                    |0       |		MOVE.W	D0,(A0)
00024740 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024742 3e ba e3 16              |>       |		MOVE.W	0x22a5a,(A7)
00024746 3f 3a e3 10              |?:      |		MOVE.W	0x22a58,-(A7)
0002474a 3f 3a e3 0a              |?:      |		MOVE.W	0x22a56,-(A7)
0002474e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024750 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024754 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024756 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002475a 4e 94                    |N       |		JSR	(A4)
0002475c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002475e 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00024762 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024764 2e 93                    |.       |		MOVE.L	(A3),(A7)
00024766 48 78 00 00              |Hx      |		PEA.L	0x0
0002476a 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
0002476e 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00024772 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
00024776 4e b9 00 02 60 e4        |N   `   |		JSR	0x260e4
0002477c de c3                    |        |		ADDA.W	D3,A7
0002477e 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00024782 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024788 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002478a 3e ba e2 d4              |>       |		MOVE.W	0x22a60,(A7)
0002478e 3f 3a e2 ce              |?:      |		MOVE.W	0x22a5e,-(A7)
00024792 3f 3a e2 c8              |?:      |		MOVE.W	0x22a5c,-(A7)
00024796 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024798 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002479c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002479e 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000247a2 4e 94                    |N       |		JSR	(A4)
000247a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247a6 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000247aa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000247ac 2e 93                    |.       |		MOVE.L	(A3),(A7)
000247ae 48 78 00 00              |Hx      |		PEA.L	0x0
000247b2 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
000247b6 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000247ba 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000247be 4e b9 00 02 60 e4        |N   `   |		JSR	0x260e4
000247c4 de c3                    |        |		ADDA.W	D3,A7
000247c6 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000247ca 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000247d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247d2 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
000247d6 66 06                    |f       |		BNE	0x247de
000247d8 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
000247dc 67 06                    |g       |		BEQ	0x247e4
000247de 42 2e ff fc              |B.      |		CLR.B	(A6-0x4)
000247e2 60 04                    |`       |		BRA	0x247e8
000247e4 1d 42 ff fc              | B      |		MOVE.B	D2,(A6-0x4)
000247e8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000247ea 2f 2e ff d0              |/.      |		MOVE.L	(A6-0x30),-(A7)
000247ee 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
000247f2 48 80                    |H       |		EXTB.W	D0
000247f4 41 bc 00 02              |A       |		CHK.W	#0x2,D0
000247f8 1f 00                    |        |		MOVE.B	D0,-(A7)
000247fa 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000247fe 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00024804 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00024808 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
0002480c 67 20                    |g       |		BEQ	0x2482e
0002480e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00024812 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024814 10 2e ff ec              | .      |		MOVE.B	(A6-0x14),D0
00024818 48 80                    |H       |		EXTB.W	D0
0002481a 41 bc 00 0e              |A       |		CHK.W	#0xe,D0
0002481e 1f 00                    |        |		MOVE.B	D0,-(A7)
00024820 4e b9 00 01 03 c0        |N       |		JSR	ExpErrMsg(a: Byte) : String
00024826 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024828 4e ba f9 3e              |N  >    |		JSR	0x24168
0002482c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002482e 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
00024832 67 12                    |g       |		BEQ	0x24846
00024834 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00024838 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002483a 4e b9 00 01 03 c8        |N       |		JSR	FSCALL_103c8
00024840 4e ba f9 26              |N  &    |		JSR	0x24168
00024844 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024846 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002484a 4e 5e                    |N^      |		UNLK	A6
0002484c 4e 75                    |Nu      |		RTS
0002484e ; --------------------------------------------------------------------------------------
0002484e ; OMSI PASCAL Function
0002484e ;    <LVAR  0x008 4(r)>
0002484e ;    <LVAR -0x004 @ 4(rw)>
0002484e ;    <LVAR -0x008 @ 4(rw)>
0002484e ; --------------------------------------------------------------------------------------
0002484e 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00024852 bf d5                    |        |		CMPA.L	(A5),A7
00024854 62 06                    |b       |		BHI	0x2485c
00024856 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002485a 4e 76                    |Nv      |		TRAPV
0002485c de fc 00 18              |        |		ADDA.W	#0x18,A7
00024860 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00024864 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00024868 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002486c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002486e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024872 48 78 00 01              |Hx      |		PEA.L	0x1
00024876 4e ba f2 ee              |N       |		JSR	0x23b66
0002487a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002487c 20 97                    |        |		MOVE.L	(A7),(A0)
0002487e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024882 48 78 00 02              |Hx      |		PEA.L	0x2
00024886 4e ba f2 de              |N       |		JSR	0x23b66
0002488a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002488c 22 97                    |"       |		MOVE.L	(A7),(A1)
0002488e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024890 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00024892 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00024894 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002489a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002489c 4a 1f                    |J       |		TST.B	(A7)+
0002489e 67 06                    |g       |		BEQ	0x248a6
000248a0 4e ba ed 7c              |N  |    |		JSR	0x2361e
000248a4 60 04                    |`       |		BRA	0x248aa
000248a6 4e ba ed bc              |N       |		JSR	0x23664
000248aa 48 51                    |HQ      |		PEA.L	(A1)
000248ac 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000248b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000248b4 48 50                    |HP      |		PEA.L	(A0)
000248b6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000248bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000248be 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000248c2 4e 5e                    |N^      |		UNLK	A6
000248c4 4e 75                    |Nu      |		RTS
000248c6 ; --------------------------------------------------------------------------------------
000248c6 ; OMSI PASCAL Function
000248c6 ;    <LVAR  0x008 4(r)>
000248c6 ;    <LVAR -0x004 @ 4(rw)>
000248c6 ;    <LVAR -0x008 @ 4(rw)>
000248c6 ; --------------------------------------------------------------------------------------
000248c6 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000248ca bf d5                    |        |		CMPA.L	(A5),A7
000248cc 62 06                    |b       |		BHI	0x248d4
000248ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000248d2 4e 76                    |Nv      |		TRAPV
000248d4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000248d8 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000248dc 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000248e0 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000248e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248e6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000248ea 48 78 00 01              |Hx      |		PEA.L	0x1
000248ee 4e ba f2 76              |N  v    |		JSR	0x23b66
000248f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248f4 20 97                    |        |		MOVE.L	(A7),(A0)
000248f6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000248fa 48 78 00 02              |Hx      |		PEA.L	0x2
000248fe 4e ba f2 66              |N  f    |		JSR	0x23b66
00024902 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024904 22 97                    |"       |		MOVE.L	(A7),(A1)
00024906 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024908 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002490a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002490c 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00024912 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024914 4a 1f                    |J       |		TST.B	(A7)+
00024916 66 06                    |f       |		BNE	0x2491e
00024918 4e ba ed 04              |N       |		JSR	0x2361e
0002491c 60 04                    |`       |		BRA	0x24922
0002491e 4e ba ed 44              |N  D    |		JSR	0x23664
00024922 48 51                    |HQ      |		PEA.L	(A1)
00024924 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002492a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002492c 48 50                    |HP      |		PEA.L	(A0)
0002492e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024934 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024936 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0002493a 4e 5e                    |N^      |		UNLK	A6
0002493c 4e 75                    |Nu      |		RTS
0002493e ; --------------------------------------------------------------------------------------
0002493e ; OMSI PASCAL Function
0002493e ;    <LVAR  0x008 4(r)>
0002493e ; --------------------------------------------------------------------------------------
0002493e 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00024942 bf d5                    |        |		CMPA.L	(A5),A7
00024944 62 06                    |b       |		BHI	0x2494c
00024946 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002494a 4e 76                    |Nv      |		TRAPV
0002494c de fc 00 10              |        |		ADDA.W	#0x10,A7
00024950 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024952 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024956 48 78 00 01              |Hx      |		PEA.L	0x1
0002495a 4e ba f2 0a              |N       |		JSR	0x23b66
0002495e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024960 4e ba ef fc              |N       |		JSR	0x2395e
00024964 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024966 4e 5e                    |N^      |		UNLK	A6
00024968 4e 75                    |Nu      |		RTS
0002496a ; --------------------------------------------------------------------------------------
0002496a ; OMSI PASCAL Function
0002496a ;    <LVAR  0x008 4(r)>
0002496a ;    <LVAR -0x014 @ 4(rw)>
0002496a ; --------------------------------------------------------------------------------------
0002496a 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
0002496e bf d5                    |        |		CMPA.L	(A5),A7
00024970 62 06                    |b       |		BHI	0x24978
00024972 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024976 4e 76                    |Nv      |		TRAPV
00024978 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
0002497c 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024980 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00024984 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
00024988 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
0002498a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002498c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002498e 48 78 00 01              |Hx      |		PEA.L	0x1
00024992 4e ba f1 d2              |N       |		JSR	0x23b66
00024996 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024998 26 97                    |&       |		MOVE.L	(A7),(A3)
0002499a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002499c 48 78 00 02              |Hx      |		PEA.L	0x2
000249a0 4e ba f1 c4              |N       |		JSR	0x23b66
000249a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249a6 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000249a8 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
000249ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000249ae 48 78 00 03              |Hx      |		PEA.L	0x3
000249b2 4e ba f1 e4              |N       |		JSR	0x23b98
000249b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249b8 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000249be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249c0 2c 17                    |,       |		MOVE.L	(A7),D6
000249c2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000249c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000249c6 48 78 00 04              |Hx      |		PEA.L	0x4
000249ca 4e ba f1 cc              |N       |		JSR	0x23b98
000249ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249d0 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
000249d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249d8 2a 1f                    |*       |		MOVE.L	(A7)+,D5
000249da 20 06                    |        |		MOVE.L	D6,D0
000249dc d0 85                    |        |		ADD.L	D5,D0
000249de 53 80                    |S       |		SUBQ.L	#0x1,D0
000249e0 32 14                    |2       |		MOVE.W	(A4),D1
000249e2 48 c1                    |H       |		EXTW.L	D1
000249e4 b0 81                    |        |		CMP.L	D1,D0
000249e6 6f 30                    |o0      |		BLE	0x24a18
000249e8 9e fc 00 20              |        |		SUBA.W	#0x20,A7
000249ec 20 4f                    | O      |		MOVEA.L	A7,A0
000249ee 43 fa e0 72              |C  r    |		LEA.L	0x22a62,A1
000249f2 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
000249f4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000249f6 51 c8 ff fc              |Q       |		DBF	D0,0x249f4
000249fa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249fc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a00 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024a04 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00024a08 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024a0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a10 4e ba e4 16              |N       |		JSR	0x22e28
00024a14 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00024a18 20 53                    | S      |		MOVEA.L	(A3),A0
00024a1a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00024a1c 30 10                    |0       |		MOVE.W	(A0),D0
00024a1e 48 c0                    |H       |		EXTW.L	D0
00024a20 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024a22 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024a24 be 97                    |        |		CMP.L	(A7),D7
00024a26 6e 26                    |n&      |		BGT	0x24a4e
00024a28 20 06                    |        |		MOVE.L	D6,D0
00024a2a d0 87                    |        |		ADD.L	D7,D0
00024a2c 53 80                    |S       |		SUBQ.L	#0x1,D0
00024a2e 53 80                    |S       |		SUBQ.L	#0x1,D0
00024a30 b0 82                    |        |		CMP.L	D2,D0
00024a32 63 02                    |c       |		BLS	0x24a36
00024a34 4e 4f                    |NO      |		TRAP	#15
00024a36 22 07                    |"       |		MOVE.L	D7,D1
00024a38 53 81                    |S       |		SUBQ.L	#0x1,D1
00024a3a b2 82                    |        |		CMP.L	D2,D1
00024a3c 63 02                    |c       |		BLS	0x24a40
00024a3e 4e 4f                    |NO      |		TRAP	#15
00024a40 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00024a44 19 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A4+D0.L+#0x2)
00024a4a 52 87                    |R       |		ADDQ.L	#0x1,D7
00024a4c 68 d6                    |h       |		BVC	0x24a24
00024a4e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a50 2e 8c                    |.       |		MOVE.L	A4,(A7)
00024a52 4e ba f1 b4              |N       |		JSR	0x23c08
00024a56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a58 48 53                    |HS      |		PEA.L	(A3)
00024a5a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024a60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024a62 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024a66 4e 5e                    |N^      |		UNLK	A6
00024a68 4e 75                    |Nu      |		RTS
00024a6a ; --------------------------------------------------------------------------------------
00024a6a ; OMSI PASCAL Function
00024a6a ;    <LVAR  0x008 4(r)>
00024a6a ;    <LVAR -0x010 @ 4(r)>
00024a6a ;    <LVAR -0x014 @ 4(rw)>
00024a6a ; --------------------------------------------------------------------------------------
00024a6a 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00024a6e bf d5                    |        |		CMPA.L	(A5),A7
00024a70 62 06                    |b       |		BHI	0x24a78
00024a72 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024a76 4e 76                    |Nv      |		TRAPV
00024a78 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00024a7c 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024a80 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00024a84 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
00024a88 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00024a8c 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00024a8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a90 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024a92 48 78 00 01              |Hx      |		PEA.L	0x1
00024a96 4e ba f0 ce              |N       |		JSR	0x23b66
00024a9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a9c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00024a9e 48 53                    |HS      |		PEA.L	(A3)
00024aa0 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00024aa6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024aa8 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024aaa 48 78 00 02              |Hx      |		PEA.L	0x2
00024aae 4e ba f0 e8              |N       |		JSR	0x23b98
00024ab2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ab4 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00024aba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024abc 2a 17                    |*       |		MOVE.L	(A7),D5
00024abe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024ac0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00024ac2 48 78 00 03              |Hx      |		PEA.L	0x3
00024ac6 4e ba f0 d0              |N       |		JSR	0x23b98
00024aca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024acc 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00024ad2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ad4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00024ad6 20 52                    | R      |		MOVEA.L	(A2),A0
00024ad8 20 05                    |        |		MOVE.L	D5,D0
00024ada d0 86                    |        |		ADD.L	D6,D0
00024adc 53 80                    |S       |		SUBQ.L	#0x1,D0
00024ade 32 10                    |2       |		MOVE.W	(A0),D1
00024ae0 48 c1                    |H       |		EXTW.L	D1
00024ae2 b0 81                    |        |		CMP.L	D1,D0
00024ae4 6f 06                    |o       |		BLE	0x24aec
00024ae6 52 81                    |R       |		ADDQ.L	#0x1,D1
00024ae8 92 85                    |        |		SUB.L	D5,D1
00024aea 2c 01                    |,       |		MOVE.L	D1,D6
00024aec 2f 06                    |/       |		MOVE.L	D6,-(A7)
00024aee 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00024af0 be 97                    |        |		CMP.L	(A7),D7
00024af2 6e 26                    |n&      |		BGT	0x24b1a
00024af4 20 53                    | S      |		MOVEA.L	(A3),A0
00024af6 20 07                    |        |		MOVE.L	D7,D0
00024af8 53 80                    |S       |		SUBQ.L	#0x1,D0
00024afa b0 82                    |        |		CMP.L	D2,D0
00024afc 63 02                    |c       |		BLS	0x24b00
00024afe 4e 4f                    |NO      |		TRAP	#15
00024b00 22 52                    |"R      |		MOVEA.L	(A2),A1
00024b02 22 07                    |"       |		MOVE.L	D7,D1
00024b04 d2 85                    |        |		ADD.L	D5,D1
00024b06 53 81                    |S       |		SUBQ.L	#0x1,D1
00024b08 53 81                    |S       |		SUBQ.L	#0x1,D1
00024b0a b2 82                    |        |		CMP.L	D2,D1
00024b0c 63 02                    |c       |		BLS	0x24b10
00024b0e 4e 4f                    |NO      |		TRAP	#15
00024b10 11 b1 18 02 08 02        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x2)
00024b16 52 87                    |R       |		ADDQ.L	#0x1,D7
00024b18 68 d6                    |h       |		BVC	0x24af0
00024b1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b1c 20 53                    | S      |		MOVEA.L	(A3),A0
00024b1e 04 86 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D6
00024b24 0c 86 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D6
00024b2a 63 02                    |c       |		BLS	0x24b2e
00024b2c 4e 4f                    |NO      |		TRAP	#15
00024b2e 06 86 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D6
00024b34 30 86                    |0       |		MOVE.W	D6,(A0)
00024b36 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00024b38 4e ba f0 ce              |N       |		JSR	0x23c08
00024b3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b3e 48 52                    |HR      |		PEA.L	(A2)
00024b40 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00024b46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b48 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024b4c 4e 5e                    |N^      |		UNLK	A6
00024b4e 4e 75                    |Nu      |		RTS
00024b50 ; --------------------------------------------------------------------------------------
00024b50 ; OMSI PASCAL Function
00024b50 ;    <LVAR  0x008 4(r)>
00024b50 ; --------------------------------------------------------------------------------------
00024b50 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00024b54 bf d5                    |        |		CMPA.L	(A5),A7
00024b56 62 06                    |b       |		BHI	0x24b5e
00024b58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024b5c 4e 76                    |Nv      |		TRAPV
00024b5e de fc 00 14              |        |		ADDA.W	#0x14,A7
00024b62 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024b64 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024b68 48 78 00 01              |Hx      |		PEA.L	0x1
00024b6c 4e ba f0 2a              |N  *    |		JSR	0x23b98
00024b70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b72 4e ba ee 5e              |N  ^    |		JSR	0x239d2
00024b76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b78 4e 5e                    |N^      |		UNLK	A6
00024b7a 4e 75                    |Nu      |		RTS
00024b7c ; --------------------------------------------------------------------------------------
00024b7c ; OMSI PASCAL Function
00024b7c ;    <LVAR  0x008 4(r)>
00024b7c ; --------------------------------------------------------------------------------------
00024b7c 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024b80 bf d5                    |        |		CMPA.L	(A5),A7
00024b82 62 06                    |b       |		BHI	0x24b8a
00024b84 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024b88 4e 76                    |Nv      |		TRAPV
00024b8a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024b8e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024b92 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024b96 48 78 00 01              |Hx      |		PEA.L	0x1
00024b9a 4e ba ef fc              |N       |		JSR	0x23b98
00024b9e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024ba2 48 78 00 02              |Hx      |		PEA.L	0x2
00024ba6 4e ba ef f0              |N       |		JSR	0x23b98
00024baa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bac 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00024bb2 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024bb6 4a 1f                    |J       |		TST.B	(A7)+
00024bb8 67 06                    |g       |		BEQ	0x24bc0
00024bba 4e ba ea 62              |N  b    |		JSR	0x2361e
00024bbe 60 04                    |`       |		BRA	0x24bc4
00024bc0 4e ba ea a2              |N       |		JSR	0x23664
00024bc4 4e 5e                    |N^      |		UNLK	A6
00024bc6 4e 75                    |Nu      |		RTS
00024bc8 ; --------------------------------------------------------------------------------------
00024bc8 ; OMSI PASCAL Function
00024bc8 ;    <LVAR  0x008 4(r)>
00024bc8 ; --------------------------------------------------------------------------------------
00024bc8 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024bcc bf d5                    |        |		CMPA.L	(A5),A7
00024bce 62 06                    |b       |		BHI	0x24bd6
00024bd0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024bd4 4e 76                    |Nv      |		TRAPV
00024bd6 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024bda 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024bde 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024be2 48 78 00 01              |Hx      |		PEA.L	0x1
00024be6 4e ba ef b0              |N       |		JSR	0x23b98
00024bea 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024bee 48 78 00 02              |Hx      |		PEA.L	0x2
00024bf2 4e ba ef a4              |N       |		JSR	0x23b98
00024bf6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bf8 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00024bfe de fc 00 10              |        |		ADDA.W	#0x10,A7
00024c02 4a 1f                    |J       |		TST.B	(A7)+
00024c04 66 06                    |f       |		BNE	0x24c0c
00024c06 4e ba ea 16              |N       |		JSR	0x2361e
00024c0a 60 04                    |`       |		BRA	0x24c10
00024c0c 4e ba ea 56              |N  V    |		JSR	0x23664
00024c10 4e 5e                    |N^      |		UNLK	A6
00024c12 4e 75                    |Nu      |		RTS
00024c14 ; --------------------------------------------------------------------------------------
00024c14 ; OMSI PASCAL Function
00024c14 ;    <LVAR  0x008 4(r)>
00024c14 ; --------------------------------------------------------------------------------------
00024c14 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024c18 bf d5                    |        |		CMPA.L	(A5),A7
00024c1a 62 06                    |b       |		BHI	0x24c22
00024c1c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c20 4e 76                    |Nv      |		TRAPV
00024c22 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024c26 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024c2a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024c2e 48 78 00 01              |Hx      |		PEA.L	0x1
00024c32 4e ba ef 64              |N  d    |		JSR	0x23b98
00024c36 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024c3a 48 78 00 02              |Hx      |		PEA.L	0x2
00024c3e 4e ba ef 58              |N  X    |		JSR	0x23b98
00024c42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c44 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
00024c4a de fc 00 10              |        |		ADDA.W	#0x10,A7
00024c4e 4a 1f                    |J       |		TST.B	(A7)+
00024c50 67 06                    |g       |		BEQ	0x24c58
00024c52 4e ba e9 ca              |N       |		JSR	0x2361e
00024c56 60 04                    |`       |		BRA	0x24c5c
00024c58 4e ba ea 0a              |N       |		JSR	0x23664
00024c5c 4e 5e                    |N^      |		UNLK	A6
00024c5e 4e 75                    |Nu      |		RTS
00024c60 ; --------------------------------------------------------------------------------------
00024c60 ; OMSI PASCAL Function
00024c60 ;    <LVAR  0x008 4(r)>
00024c60 ; --------------------------------------------------------------------------------------
00024c60 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024c64 bf d5                    |        |		CMPA.L	(A5),A7
00024c66 62 06                    |b       |		BHI	0x24c6e
00024c68 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024c6c 4e 76                    |Nv      |		TRAPV
00024c6e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024c72 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024c76 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024c7a 48 78 00 01              |Hx      |		PEA.L	0x1
00024c7e 4e ba ef 18              |N       |		JSR	0x23b98
00024c82 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024c86 48 78 00 02              |Hx      |		PEA.L	0x2
00024c8a 4e ba ef 0c              |N       |		JSR	0x23b98
00024c8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c90 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00024c96 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024c9a 4a 1f                    |J       |		TST.B	(A7)+
00024c9c 67 06                    |g       |		BEQ	0x24ca4
00024c9e 4e ba e9 7e              |N  ~    |		JSR	0x2361e
00024ca2 60 04                    |`       |		BRA	0x24ca8
00024ca4 4e ba e9 be              |N       |		JSR	0x23664
00024ca8 4e 5e                    |N^      |		UNLK	A6
00024caa 4e 75                    |Nu      |		RTS
00024cac ; --------------------------------------------------------------------------------------
00024cac ; OMSI PASCAL Function
00024cac ;    <LVAR  0x008 4(r)>
00024cac ; --------------------------------------------------------------------------------------
00024cac 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024cb0 bf d5                    |        |		CMPA.L	(A5),A7
00024cb2 62 06                    |b       |		BHI	0x24cba
00024cb4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024cb8 4e 76                    |Nv      |		TRAPV
00024cba de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024cbe 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024cc2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024cc6 48 78 00 01              |Hx      |		PEA.L	0x1
00024cca 4e ba ee cc              |N       |		JSR	0x23b98
00024cce 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024cd2 48 78 00 02              |Hx      |		PEA.L	0x2
00024cd6 4e ba ee c0              |N       |		JSR	0x23b98
00024cda 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024cdc 4e b9 00 01 03 24        |N    $  |		JSR	IsGreater(a, b : Quad) : Bool
00024ce2 de fc 00 10              |        |		ADDA.W	#0x10,A7
00024ce6 4a 1f                    |J       |		TST.B	(A7)+
00024ce8 66 06                    |f       |		BNE	0x24cf0
00024cea 4e ba e9 32              |N  2    |		JSR	0x2361e
00024cee 60 04                    |`       |		BRA	0x24cf4
00024cf0 4e ba e9 72              |N  r    |		JSR	0x23664
00024cf4 4e 5e                    |N^      |		UNLK	A6
00024cf6 4e 75                    |Nu      |		RTS
00024cf8 ; --------------------------------------------------------------------------------------
00024cf8 ; OMSI PASCAL Function
00024cf8 ;    <LVAR  0x008 4(r)>
00024cf8 ; --------------------------------------------------------------------------------------
00024cf8 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00024cfc bf d5                    |        |		CMPA.L	(A5),A7
00024cfe 62 06                    |b       |		BHI	0x24d06
00024d00 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024d04 4e 76                    |Nv      |		TRAPV
00024d06 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00024d0a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024d0e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024d12 48 78 00 01              |Hx      |		PEA.L	0x1
00024d16 4e ba ee 80              |N       |		JSR	0x23b98
00024d1a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024d1e 48 78 00 02              |Hx      |		PEA.L	0x2
00024d22 4e ba ee 74              |N  t    |		JSR	0x23b98
00024d26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d28 4e b9 00 01 03 28        |N    (  |		JSR	IsSmaller(a, b : Quad) : Bool
00024d2e de fc 00 10              |        |		ADDA.W	#0x10,A7
00024d32 4a 1f                    |J       |		TST.B	(A7)+
00024d34 66 06                    |f       |		BNE	0x24d3c
00024d36 4e ba e8 e6              |N       |		JSR	0x2361e
00024d3a 60 04                    |`       |		BRA	0x24d40
00024d3c 4e ba e9 26              |N  &    |		JSR	0x23664
00024d40 4e 5e                    |N^      |		UNLK	A6
00024d42 4e 75                    |Nu      |		RTS
00024d44 ; --------------------------------------------------------------------------------------
00024d44 ; OMSI PASCAL Function
00024d44 ;    <LVAR  0x008 4(r)>
00024d44 ; --------------------------------------------------------------------------------------
00024d44 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024d48 bf d5                    |        |		CMPA.L	(A5),A7
00024d4a 62 06                    |b       |		BHI	0x24d52
00024d4c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024d50 4e 76                    |Nv      |		TRAPV
00024d52 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024d56 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024d5a 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024d5c 9e c0                    |        |		SUBA.W	D0,A7
00024d5e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024d62 48 78 00 01              |Hx      |		PEA.L	0x1
00024d66 4e ba ee 30              |N  0    |		JSR	0x23b98
00024d6a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024d6e 48 78 00 02              |Hx      |		PEA.L	0x2
00024d72 4e ba ee 24              |N  $    |		JSR	0x23b98
00024d76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d78 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00024d7e de c0                    |        |		ADDA.W	D0,A7
00024d80 4e ba ef 0e              |N       |		JSR	0x23c90
00024d84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024d86 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024d8a 4e 5e                    |N^      |		UNLK	A6
00024d8c 4e 75                    |Nu      |		RTS
00024d8e ; --------------------------------------------------------------------------------------
00024d8e ; OMSI PASCAL Function
00024d8e ;    <LVAR  0x008 4(r)>
00024d8e ; --------------------------------------------------------------------------------------
00024d8e 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024d92 bf d5                    |        |		CMPA.L	(A5),A7
00024d94 62 06                    |b       |		BHI	0x24d9c
00024d96 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024d9a 4e 76                    |Nv      |		TRAPV
00024d9c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024da0 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024da4 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024da6 9e c0                    |        |		SUBA.W	D0,A7
00024da8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024dac 48 78 00 01              |Hx      |		PEA.L	0x1
00024db0 4e ba ed e6              |N       |		JSR	0x23b98
00024db4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024db8 48 78 00 02              |Hx      |		PEA.L	0x2
00024dbc 4e ba ed da              |N       |		JSR	0x23b98
00024dc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024dc2 4e b9 00 01 03 18        |N       |		JSR	Subtract(a, b : Quad) : Quad
00024dc8 de c0                    |        |		ADDA.W	D0,A7
00024dca 4e ba ee c4              |N       |		JSR	0x23c90
00024dce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024dd0 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024dd4 4e 5e                    |N^      |		UNLK	A6
00024dd6 4e 75                    |Nu      |		RTS
00024dd8 ; --------------------------------------------------------------------------------------
00024dd8 ; OMSI PASCAL Function
00024dd8 ;    <LVAR  0x008 4(r)>
00024dd8 ; --------------------------------------------------------------------------------------
00024dd8 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024ddc bf d5                    |        |		CMPA.L	(A5),A7
00024dde 62 06                    |b       |		BHI	0x24de6
00024de0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024de4 4e 76                    |Nv      |		TRAPV
00024de6 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024dea 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024dee 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024df0 9e c0                    |        |		SUBA.W	D0,A7
00024df2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024df6 48 78 00 01              |Hx      |		PEA.L	0x1
00024dfa 4e ba ed 9c              |N       |		JSR	0x23b98
00024dfe 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024e02 48 78 00 02              |Hx      |		PEA.L	0x2
00024e06 4e ba ed 90              |N       |		JSR	0x23b98
00024e0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e0c 4e b9 00 01 03 1c        |N       |		JSR	Multiply(a, b : Quad) : Quad
00024e12 de c0                    |        |		ADDA.W	D0,A7
00024e14 4e ba ee 7a              |N  z    |		JSR	0x23c90
00024e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e1a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024e1e 4e 5e                    |N^      |		UNLK	A6
00024e20 4e 75                    |Nu      |		RTS
00024e22 ; --------------------------------------------------------------------------------------
00024e22 ; OMSI PASCAL Function
00024e22 ;    <LVAR  0x008 4(r)>
00024e22 ; --------------------------------------------------------------------------------------
00024e22 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024e26 bf d5                    |        |		CMPA.L	(A5),A7
00024e28 62 06                    |b       |		BHI	0x24e30
00024e2a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024e2e 4e 76                    |Nv      |		TRAPV
00024e30 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024e34 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024e38 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024e3a 9e c0                    |        |		SUBA.W	D0,A7
00024e3c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024e40 48 78 00 01              |Hx      |		PEA.L	0x1
00024e44 4e ba ed 52              |N  R    |		JSR	0x23b98
00024e48 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024e4c 48 78 00 02              |Hx      |		PEA.L	0x2
00024e50 4e ba ed 46              |N  F    |		JSR	0x23b98
00024e54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e56 4e b9 00 01 03 20        |N       |		JSR	Divide(a, b : Quad) : Quad
00024e5c de c0                    |        |		ADDA.W	D0,A7
00024e5e 4e ba ee 30              |N  0    |		JSR	0x23c90
00024e62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024e64 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024e68 4e 5e                    |N^      |		UNLK	A6
00024e6a 4e 75                    |Nu      |		RTS
00024e6c ; --------------------------------------------------------------------------------------
00024e6c ; OMSI PASCAL Function
00024e6c ;    <LVAR  0x008 4(r)>
00024e6c ; --------------------------------------------------------------------------------------
00024e6c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024e70 bf d5                    |        |		CMPA.L	(A5),A7
00024e72 62 06                    |b       |		BHI	0x24e7a
00024e74 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024e78 4e 76                    |Nv      |		TRAPV
00024e7a de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024e7e 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024e82 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024e84 9e c0                    |        |		SUBA.W	D0,A7
00024e86 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024e8a 48 78 00 01              |Hx      |		PEA.L	0x1
00024e8e 4e ba ed 08              |N       |		JSR	0x23b98
00024e92 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024e96 48 78 00 02              |Hx      |		PEA.L	0x2
00024e9a 4e ba ec fc              |N       |		JSR	0x23b98
00024e9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ea0 4e b9 00 01 03 58        |N    X  |		JSR	Modulus(a, b : Quad) : Quad
00024ea6 de c0                    |        |		ADDA.W	D0,A7
00024ea8 4e ba ed e6              |N       |		JSR	0x23c90
00024eac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024eae 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024eb2 4e 5e                    |N^      |		UNLK	A6
00024eb4 4e 75                    |Nu      |		RTS
00024eb6 ; --------------------------------------------------------------------------------------
00024eb6 ; OMSI PASCAL Function
00024eb6 ;    <LVAR  0x008 4(r)>
00024eb6 ; --------------------------------------------------------------------------------------
00024eb6 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024eba bf d5                    |        |		CMPA.L	(A5),A7
00024ebc 62 06                    |b       |		BHI	0x24ec4
00024ebe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024ec2 4e 76                    |Nv      |		TRAPV
00024ec4 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024ec8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024ecc 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024ece 9e c0                    |        |		SUBA.W	D0,A7
00024ed0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024ed4 48 78 00 01              |Hx      |		PEA.L	0x1
00024ed8 4e ba ec be              |N       |		JSR	0x23b98
00024edc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024ee0 48 78 00 02              |Hx      |		PEA.L	0x2
00024ee4 4e ba ec b2              |N       |		JSR	0x23b98
00024ee8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024eea 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00024ef0 de c0                    |        |		ADDA.W	D0,A7
00024ef2 4e ba ed 9c              |N       |		JSR	0x23c90
00024ef6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ef8 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024efc 4e 5e                    |N^      |		UNLK	A6
00024efe 4e 75                    |Nu      |		RTS
00024f00 ; --------------------------------------------------------------------------------------
00024f00 ; OMSI PASCAL Function
00024f00 ;    <LVAR  0x008 4(r)>
00024f00 ; --------------------------------------------------------------------------------------
00024f00 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024f04 bf d5                    |        |		CMPA.L	(A5),A7
00024f06 62 06                    |b       |		BHI	0x24f0e
00024f08 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024f0c 4e 76                    |Nv      |		TRAPV
00024f0e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024f12 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024f16 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024f18 9e c0                    |        |		SUBA.W	D0,A7
00024f1a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024f1e 48 78 00 01              |Hx      |		PEA.L	0x1
00024f22 4e ba ec 74              |N  t    |		JSR	0x23b98
00024f26 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024f2a 48 78 00 02              |Hx      |		PEA.L	0x2
00024f2e 4e ba ec 68              |N  h    |		JSR	0x23b98
00024f32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f34 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00024f3a de c0                    |        |		ADDA.W	D0,A7
00024f3c 4e ba ed 52              |N  R    |		JSR	0x23c90
00024f40 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f42 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024f46 4e 5e                    |N^      |		UNLK	A6
00024f48 4e 75                    |Nu      |		RTS
00024f4a ; --------------------------------------------------------------------------------------
00024f4a ; OMSI PASCAL Function
00024f4a ;    <LVAR  0x008 4(r)>
00024f4a ; --------------------------------------------------------------------------------------
00024f4a 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00024f4e bf d5                    |        |		CMPA.L	(A5),A7
00024f50 62 06                    |b       |		BHI	0x24f58
00024f52 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024f56 4e 76                    |Nv      |		TRAPV
00024f58 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024f5c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00024f60 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024f62 9e c0                    |        |		SUBA.W	D0,A7
00024f64 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024f68 48 78 00 01              |Hx      |		PEA.L	0x1
00024f6c 4e ba ec 2a              |N  *    |		JSR	0x23b98
00024f70 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024f74 48 78 00 02              |Hx      |		PEA.L	0x2
00024f78 4e ba ec 1e              |N       |		JSR	0x23b98
00024f7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f7e 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00024f84 de c0                    |        |		ADDA.W	D0,A7
00024f86 4e ba ed 08              |N       |		JSR	0x23c90
00024f8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f8c 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00024f90 4e 5e                    |N^      |		UNLK	A6
00024f92 4e 75                    |Nu      |		RTS
00024f94 ; --------------------------------------------------------------------------------------
00024f94 ; OMSI PASCAL Function
00024f94 ;    <LVAR  0x008 4(r)>
00024f94 ; --------------------------------------------------------------------------------------
00024f94 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00024f98 bf d5                    |        |		CMPA.L	(A5),A7
00024f9a 62 06                    |b       |		BHI	0x24fa2
00024f9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024fa0 4e 76                    |Nv      |		TRAPV
00024fa2 de fc 00 20              |        |		ADDA.W	#0x20,A7
00024fa6 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00024faa 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024fae 48 78 00 01              |Hx      |		PEA.L	0x1
00024fb2 4e ba eb e4              |N       |		JSR	0x23b98
00024fb6 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00024fba 48 78 00 02              |Hx      |		PEA.L	0x2
00024fbe 4e ba ec 14              |N       |		JSR	0x23bd4
00024fc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fc4 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00024fca de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024fce 4e ba ec c0              |N       |		JSR	0x23c90
00024fd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fd4 4e 5e                    |N^      |		UNLK	A6
00024fd6 4e 75                    |Nu      |		RTS
00024fd8 ; --------------------------------------------------------------------------------------
00024fd8 ; OMSI PASCAL Function
00024fd8 ;    <LVAR  0x008 4(r)>
00024fd8 ; --------------------------------------------------------------------------------------
00024fd8 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00024fdc bf d5                    |        |		CMPA.L	(A5),A7
00024fde 62 06                    |b       |		BHI	0x24fe6
00024fe0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024fe4 4e 76                    |Nv      |		TRAPV
00024fe6 de fc 00 20              |        |		ADDA.W	#0x20,A7
00024fea 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00024fee 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00024ff2 48 78 00 01              |Hx      |		PEA.L	0x1
00024ff6 4e ba eb a0              |N       |		JSR	0x23b98
00024ffa 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00024ffe 48 78 00 02              |Hx      |		PEA.L	0x2
00025002 4e ba eb d0              |N       |		JSR	0x23bd4
00025006 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025008 44 97                    |D       |		NEG.L	(A7)
0002500a 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00025010 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025014 4e ba ec 7a              |N  z    |		JSR	0x23c90
00025018 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002501a 4e 5e                    |N^      |		UNLK	A6
0002501c 4e 75                    |Nu      |		RTS
0002501e ; --------------------------------------------------------------------------------------
0002501e ; OMSI PASCAL Function
0002501e ;    <LVAR  0x008 4(r)>
0002501e ; --------------------------------------------------------------------------------------
0002501e 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00025022 bf d5                    |        |		CMPA.L	(A5),A7
00025024 62 06                    |b       |		BHI	0x2502c
00025026 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002502a 4e 76                    |Nv      |		TRAPV
0002502c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00025030 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00025034 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025038 48 78 00 01              |Hx      |		PEA.L	0x1
0002503c 4e ba eb 5a              |N  Z    |		JSR	0x23b98
00025040 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025042 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00025048 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002504a 4e ba ec 44              |N  D    |		JSR	0x23c90
0002504e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025050 4e 5e                    |N^      |		UNLK	A6
00025052 4e 75                    |Nu      |		RTS
00025054 ; --------------------------------------------------------------------------------------
00025054 ; OMSI PASCAL Function
00025054 ;    <LVAR  0x008 4(r)>
00025054 ;    <LVAR -0x00c 4(rw)>
00025054 ;    <LVAR -0x010 4(rw)>
00025054 ;    <LVAR -0x014 4(rw)>
00025054 ;    <LVAR -0x018 4(rw)>
00025054 ; --------------------------------------------------------------------------------------
00025054 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00025058 bf d5                    |        |		CMPA.L	(A5),A7
0002505a 62 06                    |b       |		BHI	0x25062
0002505c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025060 4e 76                    |Nv      |		TRAPV
00025062 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00025066 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
0002506a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0002506e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025070 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025072 48 78 00 01              |Hx      |		PEA.L	0x1
00025076 4e ba eb 20              |N       |		JSR	0x23b98
0002507a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002507c 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
00025080 2d 57 ff ec              |-W      |		MOVE.L	(A7),(A6-0x14)
00025084 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025086 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025088 48 78 00 02              |Hx      |		PEA.L	0x2
0002508c 4e ba eb 0a              |N       |		JSR	0x23b98
00025090 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025092 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00025096 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
0002509a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002509c 48 78 00 03              |Hx      |		PEA.L	0x3
000250a0 4e ba eb 32              |N  2    |		JSR	0x23bd4
000250a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250a6 2e 17                    |.       |		MOVE.L	(A7),D7
000250a8 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000250aa 48 78 00 04              |Hx      |		PEA.L	0x4
000250ae 4e ba eb 24              |N  $    |		JSR	0x23bd4
000250b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250b4 2c 17                    |,       |		MOVE.L	(A7),D6
000250b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000250b8 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
000250bc 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
000250c0 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
000250c4 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000250c8 2f 07                    |/       |		MOVE.L	D7,-(A7)
000250ca 2f 06                    |/       |		MOVE.L	D6,-(A7)
000250cc 4e b9 00 01 03 48        |N    H  |		JSR	?BitField_something_()
000250d2 de fc 00 18              |        |		ADDA.W	#0x18,A7
000250d6 4e ba eb b8              |N       |		JSR	0x23c90
000250da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000250dc 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
000250e0 4e 5e                    |N^      |		UNLK	A6
000250e2 4e 75                    |Nu      |		RTS
000250e4 ; --------------------------------------------------------------------------------------
000250e4 ; OMSI PASCAL Function
000250e4 ;    <LVAR  0x008 4(r)>
000250e4 ;    <LVAR -0x00c 4(rw)>
000250e4 ;    <LVAR -0x010 4(rw)>
000250e4 ; --------------------------------------------------------------------------------------
000250e4 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000250e8 bf d5                    |        |		CMPA.L	(A5),A7
000250ea 62 06                    |b       |		BHI	0x250f2
000250ec 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000250f0 4e 76                    |Nv      |		TRAPV
000250f2 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000250f6 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
000250fa 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
000250fe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025100 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025102 48 78 00 01              |Hx      |		PEA.L	0x1
00025106 4e ba ea 90              |N       |		JSR	0x23b98
0002510a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002510c 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00025110 2d 57 ff f4              |-W      |		MOVE.L	(A7),(A6-0xc)
00025114 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025116 48 78 00 02              |Hx      |		PEA.L	0x2
0002511a 4e ba ea b8              |N       |		JSR	0x23bd4
0002511e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025120 2e 17                    |.       |		MOVE.L	(A7),D7
00025122 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025124 48 78 00 03              |Hx      |		PEA.L	0x3
00025128 4e ba ea aa              |N       |		JSR	0x23bd4
0002512c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002512e 2c 17                    |,       |		MOVE.L	(A7),D6
00025130 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025132 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00025136 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002513a 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002513c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002513e 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00025144 de fc 00 10              |        |		ADDA.W	#0x10,A7
00025148 4e ba eb 46              |N  F    |		JSR	0x23c90
0002514c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002514e 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00025152 4e 5e                    |N^      |		UNLK	A6
00025154 4e 75                    |Nu      |		RTS
00025156 ; --------------------------------------------------------------------------------------
00025156 ; OMSI PASCAL Function
00025156 ;    <LVAR  0x008 4(r)>
00025156 ; --------------------------------------------------------------------------------------
00025156 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0002515a bf d5                    |        |		CMPA.L	(A5),A7
0002515c 62 06                    |b       |		BHI	0x25164
0002515e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025162 4e 76                    |Nv      |		TRAPV
00025164 de fc 00 20              |        |		ADDA.W	#0x20,A7
00025168 48 e7 01 08              |H       |		MOVEM.L	A4+D7,-(A7)
0002516c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002516e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025172 4e ba e0 c8              |N       |		JSR	0x2323c
00025176 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025178 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002517a be 97                    |        |		CMP.L	(A7),D7
0002517c 6e 26                    |n&      |		BGT	0x251a4
0002517e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025180 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025184 2f 07                    |/       |		MOVE.L	D7,-(A7)
00025186 4e ba e9 de              |N       |		JSR	0x23b66
0002518a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002518c 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00025192 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00025194 1e bc 00 20              |        |		MOVE.B	#0x20,(A7)
00025198 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
0002519e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000251a0 52 87                    |R       |		ADDQ.L	#0x1,D7
000251a2 68 d6                    |h       |		BVC	0x2517a
000251a4 48 78 00 01              |Hx      |		PEA.L	0x1
000251a8 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000251ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000251b0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000251b2 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000251b4 4e ba de ce              |N       |		JSR	0x23084
000251b8 2e 8c                    |.       |		MOVE.L	A4,(A7)
000251ba 4e ba ea 4c              |N  L    |		JSR	0x23c08
000251be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000251c0 4c df 10 80              |L       |		MOVEM.L	(A7)+,D7+A4
000251c4 4e 5e                    |N^      |		UNLK	A6
000251c6 4e 75                    |Nu      |		RTS
000251c8 ; --------------------------------------------------------------------------------------
000251c8 ; OMSI PASCAL Function
000251c8 ;    <LVAR  0x008 4(r)>
000251c8 ; --------------------------------------------------------------------------------------
000251c8 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000251cc bf d5                    |        |		CMPA.L	(A5),A7
000251ce 62 06                    |b       |		BHI	0x251d6
000251d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000251d4 4e 76                    |Nv      |		TRAPV
000251d6 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000251da 48 e7 83 88              |H       |		MOVEM.L	A4+A0+D7+D6+D0,-(A7)
000251de 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
000251e2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000251e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000251e6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000251e8 48 78 00 01              |Hx      |		PEA.L	0x1
000251ec 4e ba e9 78              |N  x    |		JSR	0x23b66
000251f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000251f2 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000251f4 9e c0                    |        |		SUBA.W	D0,A7
000251f6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000251f8 48 78 00 02              |Hx      |		PEA.L	0x2
000251fc 4e ba e9 9a              |N       |		JSR	0x23b98
00025200 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025202 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00025208 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002520a 2e 17                    |.       |		MOVE.L	(A7),D7
0002520c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002520e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025210 48 78 00 03              |Hx      |		PEA.L	0x3
00025214 4e ba e9 82              |N       |		JSR	0x23b98
00025218 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002521a 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00025220 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025222 2c 17                    |,       |		MOVE.L	(A7),D6
00025224 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025226 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00025228 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002522a 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00025230 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025232 2e 86                    |.       |		MOVE.L	D6,(A7)
00025234 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
0002523a de c0                    |        |		ADDA.W	D0,A7
0002523c 4e ba e9 ca              |N       |		JSR	0x23c08
00025240 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025242 4c df 11 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A4
00025246 4e 5e                    |N^      |		UNLK	A6
00025248 4e 75                    |Nu      |		RTS
0002524a ; --------------------------------------------------------------------------------------
0002524a ; OMSI PASCAL Function
0002524a ;    <LVAR  0x008 4(r)>
0002524a ;    <LVAR -0x00a 2(r)>
0002524a ;    <LVAR -0x00c 4(rw)>
0002524a ;    <LVAR -0x010 4(rw)>
0002524a ; --------------------------------------------------------------------------------------
0002524a 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
0002524e bf d5                    |        |		CMPA.L	(A5),A7
00025250 62 06                    |b       |		BHI	0x25258
00025252 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025256 4e 76                    |Nv      |		TRAPV
00025258 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002525c 48 e7 c3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D1+D0,-(A7)
00025260 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
00025264 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00025268 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002526a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002526e 48 78 00 01              |Hx      |		PEA.L	0x1
00025272 4e ba e9 24              |N  $    |		JSR	0x23b98
00025276 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025278 20 9f                    |        |		MOVE.L	(A7)+,(A0)
0002527a 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0002527c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002527e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00025280 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
00025284 02 40 00 01              | @      |		ANDI.W	#0x0001,D0
00025288 42 81                    |B       |		CLR.L	D1
0002528a 32 00                    |2       |		MOVE.W	D0,D1
0002528c de 81                    |        |		ADD.L	D1,D7
0002528e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025290 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025292 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025294 48 78 ff ff              |Hx      |		PEA.L	0xffffffff
00025298 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
0002529e de fc 00 0c              |        |		ADDA.W	#0xc,A7
000252a2 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000252a4 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000252a6 52 86                    |R       |		ADDQ.L	#0x1,D6
000252a8 0c 86 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D6
000252ae 6f d0                    |o       |		BLE	0x25280
000252b0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000252b2 2f 07                    |/       |		MOVE.L	D7,-(A7)
000252b4 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
000252ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000252bc 4e ba e9 d2              |N       |		JSR	0x23c90
000252c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000252c2 4c df 03 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1
000252c6 4e 5e                    |N^      |		UNLK	A6
000252c8 4e 75                    |Nu      |		RTS
000252ca ; --------------------------------------------------------------------------------------
000252ca ; OMSI PASCAL Function
000252ca ;    <LVAR  0x008 4(r)>
000252ca ;    <LVAR -0x004 @ 1(r)>
000252ca ; --------------------------------------------------------------------------------------
000252ca 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
000252ce bf d5                    |        |		CMPA.L	(A5),A7
000252d0 62 06                    |b       |		BHI	0x252d8
000252d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000252d6 4e 76                    |Nv      |		TRAPV
000252d8 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000252dc 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
000252e0 45 f9 00 02 79 b0        |E   y   |		LEA.L	0x279b0,A2
000252e6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000252e8 74 00                    |t       |		MOVEQ.L	#0x00,D2
000252ea 4a 12                    |J       |		TST.B	(A2)
000252ec 66 32                    |f2      |		BNE	0x25320
000252ee 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000252f2 20 4f                    | O      |		MOVEA.L	A7,A0
000252f4 43 fa d7 8c              |C       |		LEA.L	0x22a82,A1
000252f8 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000252fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000252fc 51 c8 ff fc              |Q       |		DBF	D0,0x252fa
00025300 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025302 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025306 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025308 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
0002530c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025312 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025314 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002531a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002531e 14 81                    |        |		MOVE.B	D1,(A2)
00025320 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00025322 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00025328 20 1f                    |        |		MOVE.L	(A7)+,D0
0002532a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00025330 63 02                    |c       |		BLS	0x25334
00025332 4e 4f                    |NO      |		TRAP	#15
00025334 3e 80                    |>       |		MOVE.W	D0,(A7)
00025336 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002533a 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00025340 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025342 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00025346 b0 01                    |        |		CMP.B	D1,D0
00025348 67 16                    |g       |		BEQ	0x25360
0002534a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002534e 4e ba da 96              |N       |		JSR	0x22de6
00025352 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025354 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00025358 3c 42                    |<B      |		MOVEA.W	D2,A6
0002535a 4e f9 00 02 67 6a        |N   gj  |		JMP	0x2676a
00025360 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025362 4e b9 00 01 03 d4        |N       |		JSR	ReadChar() : Byte
00025368 10 1f                    |        |		MOVE.B	(A7)+,D0
0002536a 0c 00 00 07              |        |		CMPI.B	#0x07,D0
0002536e 67 16                    |g       |		BEQ	0x25386
00025370 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025374 4e ba da 70              |N  p    |		JSR	0x22de6
00025378 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002537a 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
0002537e 3c 42                    |<B      |		MOVEA.W	D2,A6
00025380 4e f9 00 02 67 6a        |N   gj  |		JMP	0x2676a
00025386 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
0002538a 4e 5e                    |N^      |		UNLK	A6
0002538c 4e 75                    |Nu      |		RTS
0002538e ; --------------------------------------------------------------------------------------
0002538e ; OMSI PASCAL Function
0002538e ; --------------------------------------------------------------------------------------
0002538e 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
00025392 bf d5                    |        |		CMPA.L	(A5),A7
00025394 62 06                    |b       |		BHI	0x2539c
00025396 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002539a 4e 76                    |Nv      |		TRAPV
0002539c de fc 00 08              |        |		ADDA.W	#0x8,A7
000253a0 48 78 00 c8              |Hx      |		PEA.L	0xc8
000253a4 4e ba e9 1e              |N       |		JSR	0x23cc4
000253a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000253aa 4e 5e                    |N^      |		UNLK	A6
000253ac 4e 75                    |Nu      |		RTS
000253ae ; --------------------------------------------------------------------------------------
000253ae ; OMSI PASCAL Function
000253ae ;    <LVAR  0x008 4(r)>
000253ae ;    <LVAR -0x00c @ 4(r)>
000253ae ; --------------------------------------------------------------------------------------
000253ae 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
000253b2 bf d5                    |        |		CMPA.L	(A5),A7
000253b4 62 06                    |b       |		BHI	0x253bc
000253b6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000253ba 4e 76                    |Nv      |		TRAPV
000253bc de fc 00 48              |   H    |		ADDA.W	#0x48,A7
000253c0 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
000253c4 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
000253c8 48 51                    |HQ      |		PEA.L	(A1)
000253ca 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000253d0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000253d4 4e ba de 66              |N  f    |		JSR	0x2323c
000253d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000253da 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000253dc be 97                    |        |		CMP.L	(A7),D7
000253de 6e 6a                    |nj      |		BGT	0x2544a
000253e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000253e2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000253e6 2f 07                    |/       |		MOVE.L	D7,-(A7)
000253e8 4e ba e7 ea              |N       |		JSR	0x23bd4
000253ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000253ee 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000253f0 6d 20                    |m       |		BLT	0x25412
000253f2 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
000253f8 6e 18                    |n       |		BGT	0x25412
000253fa 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000253fc 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
00025402 63 02                    |c       |		BLS	0x25406
00025404 4e 4f                    |NO      |		TRAP	#15
00025406 1f 06                    |        |		MOVE.B	D6,-(A7)
00025408 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002540e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025410 60 34                    |`4      |		BRA	0x25446
00025412 48 51                    |HQ      |		PEA.L	(A1)
00025414 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002541a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002541c 41 fa d6 9c              |A       |		LEA.L	0x22aba,A0
00025420 70 06                    |p       |		MOVEQ.L	#0x06,D0
00025422 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00025424 51 c8 ff fc              |Q       |		DBF	D0,0x25422
00025428 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002542a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002542e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025432 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00025436 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002543c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002543e 4e ba d9 e8              |N       |		JSR	0x22e28
00025442 de fc 00 20              |        |		ADDA.W	#0x20,A7
00025446 52 87                    |R       |		ADDQ.L	#0x1,D7
00025448 68 92                    |h       |		BVC	0x253dc
0002544a 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002544c 4e ba e7 ba              |N       |		JSR	0x23c08
00025450 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025452 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00025456 4e 5e                    |N^      |		UNLK	A6
00025458 4e 75                    |Nu      |		RTS
0002545a ; --------------------------------------------------------------------------------------
0002545a ; OMSI PASCAL Function
0002545a ;    <LVAR  0x00c 1(rw)>
0002545a ;    <LVAR  0x008 4(r)>
0002545a ; --------------------------------------------------------------------------------------
0002545a 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
0002545e bf d5                    |        |		CMPA.L	(A5),A7
00025460 62 06                    |b       |		BHI	0x25468
00025462 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025466 4e 76                    |Nv      |		TRAPV
00025468 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002546c 48 e7 e7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00025470 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
00025474 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00025478 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002547a 70 00                    |p       |		MOVEQ.L	#0x00,D0
0002547c 52 40                    |R@      |		ADDQ.W	#0x1,D0
0002547e 1c 00                    |        |		MOVE.B	D0,D6
00025480 0c 06 00 2b              |   +    |		CMPI.B	#0x2b,D6
00025484 6e ff 00 00 00 86        |n       |		BGT	0x2550c
0002548a 41 fa d8 88              |A       |		LEA.L	0x22d14,A0
0002548e 10 06                    |        |		MOVE.B	D6,D0
00025490 48 80                    |H       |		EXTB.W	D0
00025492 48 c0                    |H       |		EXTW.L	D0
00025494 e2 98                    |        |		ROR.L	#0x1,D0
00025496 d0 c0                    |        |		ADDA.W	D0,A0
00025498 48 40                    |H@      |		SWAP.W	D0
0002549a e7 58                    | X      |		ROL.W	#0x3,D0
0002549c 42 81                    |B       |		CLR.L	D1
0002549e 12 10                    |        |		MOVE.B	(A0),D1
000254a0 e1 29                    | )      |		LSL.B	D0,D1
000254a2 e8 09                    |        |		LSR.B	#0x4,D1
000254a4 2a 01                    |*       |		MOVE.L	D1,D5
000254a6 20 57                    | W      |		MOVEA.L	(A7),A0
000254a8 30 10                    |0       |		MOVE.W	(A0),D0
000254aa 48 c0                    |H       |		EXTW.L	D0
000254ac ba 80                    |        |		CMP.L	D0,D5
000254ae 66 54                    |fT      |		BNE	0x25504
000254b0 2f 05                    |/       |		MOVE.L	D5,-(A7)
000254b2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000254b4 be 97                    |        |		CMP.L	(A7),D7
000254b6 6e 42                    |nB      |		BGT	0x254fa
000254b8 10 06                    |        |		MOVE.B	D6,D0
000254ba 48 80                    |H       |		EXTB.W	D0
000254bc c1 fc 00 0a              |        |		MULS.W	#0xa,D0
000254c0 22 07                    |"       |		MOVE.L	D7,D1
000254c2 53 81                    |S       |		SUBQ.L	#0x1,D1
000254c4 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000254ca 63 02                    |c       |		BLS	0x254ce
000254cc 4e 4f                    |NO      |		TRAP	#15
000254ce 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000254d2 43 fa d6 88              |C       |		LEA.L	COMMAND_TABLE_22b5c,A1
000254d6 24 07                    |$       |		MOVE.L	D7,D2
000254d8 53 82                    |S       |		SUBQ.L	#0x1,D2
000254da 0c 82 00 00 00 09        |        |		CMPI.L	#0x00000009,D2
000254e0 63 02                    |c       |		BLS	0x254e4
000254e2 4e 4f                    |NO      |		TRAP	#15
000254e4 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
000254e8 10 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D0
000254ec b0 31 28 00              | 1(     |		CMP.B	(A1+D2.L),D0
000254f0 67 04                    |g       |		BEQ	0x254f6
000254f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254f4 60 0e                    |`       |		BRA	0x25504
000254f6 52 87                    |R       |		ADDQ.L	#0x1,D7
000254f8 68 ba                    |h       |		BVC	0x254b4
000254fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000254fc 1d 46 00 0c              | F      |		MOVE.B	D6,(A6+0xc)
00025500 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025502 60 0a                    |`       |		BRA	0x2550e
00025504 52 06                    |R       |		ADDQ.B	#0x1,D6
00025506 68 ff ff ff ff 78        |h    x  |		BVC	0x25480
0002550c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002550e 4c df 03 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1
00025512 4e 5e                    |N^      |		UNLK	A6
00025514 4e 75                    |Nu      |		RTS
00025516 ; --------------------------------------------------------------------------------------
00025516 ; OMSI PASCAL Function
00025516 ;    <LVAR  0x00c 4(r)>
00025516 ;    <LVAR  0x008 4(r)>
00025516 ;    <LVAR -0x002 @ 1(r)>
00025516 ;    <LVAR -0x006 @ 4(w)>
00025516 ;    <LVAR -0x008 @ 1(r)>
00025516 ;    <LVAR -0x00c @ 4(r)>
00025516 ;    <LVAR -0x010 @ 4(rw)>
00025516 ; --------------------------------------------------------------------------------------
00025516					TRY_SCRIPT_FILE(?):
00025516 4e 56 ff a6              |NV      |		LINK.W	A6,#0xffa6
0002551a bf d5                    |        |		CMPA.L	(A5),A7
0002551c 62 06                    |b       |		BHI	0x25524
0002551e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025522 4e 76                    |Nv      |		TRAPV
00025524 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00025528 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
0002552c 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
00025530 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
00025534 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
00025538 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002553a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002553c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025540 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00025546 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025548 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002554a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002554c 1f 3c 00 2e              | < .    |		MOVE.B	#0x2e,-(A7)
00025550 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00025556 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025558 41 f9 00 02 79 90        |A   y   |		LEA.L	0x27990,A0
0002555e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00025560 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025562 51 c8 ff fc              |Q       |		DBF	D0,0x25560
00025566 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025568 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002556a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002556c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00025570 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025572 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00025576 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002557c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002557e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025584 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025586 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00025588 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002558a 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002558c 42 27                    |B'      |		CLR.B	-(A7)
0002558e 1f 01                    |        |		MOVE.B	D1,-(A7)
00025590 48 78 00 00              |Hx      |		PEA.L	0x0
00025594 48 53                    |HS      |		PEA.L	(A3)
00025596 48 54                    |HT      |		PEA.L	(A4)
00025598 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002559e de fc 00 14              |        |		ADDA.W	#0x14,A7
000255a2 4a 13                    |J       |		TST.B	(A3)
000255a4 67 4a                    |gJ      |		BEQ	0x255f0
000255a6 48 52                    |HR      |		PEA.L	(A2)
000255a8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000255ae 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000255b2 4e ba d8 32              |N  2    |		JSR	0x22de6
000255b6 9e fc 00 16              |        |		SUBA.W	#0x16,A7
000255ba 20 4f                    | O      |		MOVEA.L	A7,A0
000255bc 43 fa d4 fc              |C       |		LEA.L	0x22aba,A1
000255c0 70 18                    |p       |		MOVEQ.L	#0x18,D0
000255c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000255c4 51 c8 ff fc              |Q       |		DBF	D0,0x255c2
000255c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000255ca 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000255ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000255d0 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000255d4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000255da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000255dc 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000255e0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000255e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000255e8 4e ba d8 3e              |N  >    |		JSR	0x22e28
000255ec de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000255f0 2d 79 00 02 79 7e ff fa  |-y  y~  |		MOVE.L	0x2797e,(A6-0x6)
000255f8 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000255fa 48 52                    |HR      |		PEA.L	(A2)
000255fc 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00025600 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00025606 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002560a 20 52                    | R      |		MOVEA.L	(A2),A0
0002560c 4a 50                    |JP      |		TST.W	(A0)
0002560e 67 14                    |g       |		BEQ	0x25624
00025610 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025612 4e ba da 70              |N  p    |		JSR	0x23084
00025616 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025618 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002561c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002561e 4e ba dd ee              |N       |		JSR	0x2340e
00025622 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025624 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
00025628 67 ce                    |g       |		BEQ	0x255f8
0002562a 42 27                    |B'      |		CLR.B	-(A7)
0002562c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002562e 48 78 00 01              |Hx      |		PEA.L	0x1
00025632 48 53                    |HS      |		PEA.L	(A3)
00025634 48 54                    |HT      |		PEA.L	(A4)
00025636 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002563c de fc 00 10              |        |		ADDA.W	#0x10,A7
00025640 48 52                    |HR      |		PEA.L	(A2)
00025642 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025648 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002564a 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002564e 4e 5e                    |N^      |		UNLK	A6
00025650 4e 75                    |Nu      |		RTS
00025652 ; --------------------------------------------------------------------------------------
00025652 ; OMSI PASCAL Function
00025652 ;    <LVAR  0x014 1(w)>
00025652 ;    <LVAR  0x00c 4(r)>
00025652 ;    <LVAR  0x008 4(r)>
00025652 ; --------------------------------------------------------------------------------------
00025652 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
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 0c              |        |		ADDA.W	#0xc,A7
00025664 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00025668 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
0002566c d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00025670 53 80                    |S       |		SUBQ.L	#0x1,D0
00025672 53 80                    |S       |		SUBQ.L	#0x1,D0
00025674 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002567a 63 02                    |c       |		BLS	0x2567e
0002567c 4e 4f                    |NO      |		TRAP	#15
0002567e 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00025684 1d 70 08 08 00 14        | p      |		MOVE.B	(A0+D0.L+#0x8),(A6+0x14)
0002568a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002568e 4e 5e                    |N^      |		UNLK	A6
00025690 4e 75                    |Nu      |		RTS
00025692 ; --------------------------------------------------------------------------------------
00025692 ; OMSI PASCAL Function
00025692 ;    <LVAR  0x010 4(w)>
00025692 ;    <LVAR  0x00c 4(r)>
00025692 ;    <LVAR  0x008 4(r)>
00025692 ;    <LVAR -0x004 @ 1(r)>
00025692 ;    <LVAR -0x008 @ 4(r)>
00025692 ; --------------------------------------------------------------------------------------
00025692 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00025696 bf d5                    |        |		CMPA.L	(A5),A7
00025698 62 06                    |b       |		BHI	0x256a0
0002569a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002569e 4e 76                    |Nv      |		TRAPV
000256a0 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000256a4 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000256a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000256aa 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000256ae 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000256b2 4e ba e4 36              |N  6    |		JSR	0x23aea
000256b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000256b8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000256bc 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000256c0 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
000256c6 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000256ca 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000256ce 66 30                    |f0      |		BNE	0x25700
000256d0 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000256d4 20 4f                    | O      |		MOVEA.L	A7,A0
000256d6 43 fa d3 fc              |C       |		LEA.L	0x22ad4,A1
000256da 70 16                    |p       |		MOVEQ.L	#0x16,D0
000256dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000256de 51 c8 ff fc              |Q       |		DBF	D0,0x256dc
000256e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000256e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000256e8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000256ec 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000256f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000256f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000256f8 4e ba d7 2e              |N  .    |		JSR	0x22e28
000256fc de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00025700 2d 6e ff f8 00 10        |-n      |		MOVE.L	(A6-0x8),(A6+0x10)
00025706 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002570a 4e 5e                    |N^      |		UNLK	A6
0002570c 4e 75                    |Nu      |		RTS
0002570e ; --------------------------------------------------------------------------------------
0002570e ; OMSI PASCAL Function
0002570e ;    <LVAR  0x014 4(r)>
0002570e ;    <LVAR  0x010 4(r)>
0002570e ;    <LVAR  0x00c 4(r)>
0002570e ;    <LVAR  0x008 4(r)>
0002570e ;    <LVAR -0x00c 4(rw)>
0002570e ;    <LVAR -0x010 4(rw)>
0002570e ;    <LVAR -0x014 4(rw)>
0002570e ;    <LVAR -0x018 4(w)>
0002570e ;    <LVAR -0x020 4(rw)>
0002570e ; --------------------------------------------------------------------------------------
0002570e 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
00025712 bf d5                    |        |		CMPA.L	(A5),A7
00025714 62 06                    |b       |		BHI	0x2571c
00025716 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002571a 4e 76                    |Nv      |		TRAPV
0002571c de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00025720 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00025724 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
00025728 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
0002572c 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00025730 49 ee ff ec              |I       |		LEA.L	(A6-0x14),A4
00025734 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00025736 22 ae 00 14              |"       |		MOVE.L	(A6+0x14),(A1)
0002573a 20 39 00 02 79 7e        | 9  y~  |		MOVE.L	0x2797e,D0
00025740 90 ae 00 14              |        |		SUB.L	(A6+0x14),D0
00025744 28 80                    |(       |		MOVE.L	D0,(A4)
00025746 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002574a 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
0002574e ba 97                    |        |		CMP.L	(A7),D5
00025750 6e 2c                    |n,      |		BGT	0x2577e
00025752 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025754 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025758 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002575a 4e ba e3 2c              |N  ,    |		JSR	0x23a88
0002575e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025760 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00025762 26 97                    |&       |		MOVE.L	(A7),(A3)
00025764 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025766 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025768 4e ba e2 e6              |N       |		JSR	0x23a50
0002576c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002576e 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00025770 de 86                    |        |		ADD.L	D6,D7
00025772 ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
00025776 6c 02                    |l       |		BGE	0x2577a
00025778 52 87                    |R       |		ADDQ.L	#0x1,D7
0002577a 52 85                    |R       |		ADDQ.L	#0x1,D5
0002577c 68 d0                    |h       |		BVC	0x2574e
0002577e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025780 20 11                    |        |		MOVE.L	(A1),D0
00025782 d0 94                    |        |		ADD.L	(A4),D0
00025784 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00025788 be 94                    |        |		CMP.L	(A4),D7
0002578a 67 0c                    |g       |		BEQ	0x25798
0002578c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002578e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025790 9f 97                    |        |		SUB.L	D7,(A7)
00025792 4e ba db f0              |N       |		JSR	0x23384
00025796 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025798 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002579c 2a 2e 00 10              |*.      |		MOVE.L	(A6+0x10),D5
000257a0 ba 97                    |        |		CMP.L	(A7),D5
000257a2 6e ff 00 00 00 8c        |n       |		BGT	0x25830
000257a8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000257aa 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000257ae 2f 05                    |/       |		MOVE.L	D5,-(A7)
000257b0 4e ba e2 d6              |N       |		JSR	0x23a88
000257b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000257b6 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000257b8 26 97                    |&       |		MOVE.L	(A7),(A3)
000257ba 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000257bc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000257be 4e ba e2 90              |N       |		JSR	0x23a50
000257c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000257c4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000257c6 2f 06                    |/       |		MOVE.L	D6,-(A7)
000257c8 70 01                    |p       |		MOVEQ.L	#0x01,D0
000257ca b0 97                    |        |		CMP.L	(A7),D0
000257cc 6e 30                    |n0      |		BGT	0x257fe
000257ce 22 11                    |"       |		MOVE.L	(A1),D1
000257d0 d2 80                    |        |		ADD.L	D0,D1
000257d2 53 81                    |S       |		SUBQ.L	#0x1,D1
000257d4 53 81                    |S       |		SUBQ.L	#0x1,D1
000257d6 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
000257dc 63 02                    |c       |		BLS	0x257e0
000257de 4e 4f                    |NO      |		TRAP	#15
000257e0 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
000257e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000257e8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000257ea 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000257ec 2f 00                    |/       |		MOVE.L	D0,-(A7)
000257ee 4e ba fe 62              |N  b    |		JSR	0x25652
000257f2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000257f6 11 9f 18 08              |        |		MOVE.B	(A7)+,(A0+D1.L+#0x8)
000257fa 52 80                    |R       |		ADDQ.L	#0x1,D0
000257fc 68 cc                    |h       |		BVC	0x257ca
000257fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025800 ba ae 00 0c              |        |		CMP.L	(A6+0xc),D5
00025804 6c 22                    |l"      |		BGE	0x25828
00025806 20 11                    |        |		MOVE.L	(A1),D0
00025808 d0 86                    |        |		ADD.L	D6,D0
0002580a 22 00                    |"       |		MOVE.L	D0,D1
0002580c 53 81                    |S       |		SUBQ.L	#0x1,D1
0002580e 0c 81 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D1
00025814 63 02                    |c       |		BLS	0x25818
00025816 4e 4f                    |NO      |		TRAP	#15
00025818 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
0002581e 11 bc 00 2c 18 08        |   ,    |		MOVE.B	#0x2c,(A0+D1.L+#0x8)
00025824 52 80                    |R       |		ADDQ.L	#0x1,D0
00025826 22 80                    |"       |		MOVE.L	D0,(A1)
00025828 52 85                    |R       |		ADDQ.L	#0x1,D5
0002582a 68 ff ff ff ff 74        |h    t  |		BVC	0x257a0
00025830 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025832 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00025836 4e 5e                    |N^      |		UNLK	A6
00025838 4e 75                    |Nu      |		RTS
0002583a ; --------------------------------------------------------------------------------------
0002583a ; OMSI PASCAL Function
0002583a ;    <LVAR  0x018 4(rw)>
0002583a ;    <LVAR  0x014 4(r)>
0002583a ;    <LVAR  0x010 4(r)>
0002583a ;    <LVAR  0x00c 4(r)>
0002583a ;    <LVAR  0x008 4(r)>
0002583a ;    <LVAR -0x008 4(rw)>
0002583a ;    <LVAR -0x00c 4(rw)>
0002583a ;    <LVAR -0x018 4(w)>
0002583a ; --------------------------------------------------------------------------------------
0002583a 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
0002583e bf d5                    |        |		CMPA.L	(A5),A7
00025840 62 06                    |b       |		BHI	0x25848
00025842 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025846 4e 76                    |Nv      |		TRAPV
00025848 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
0002584c 48 e7 c7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00025850 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00025854 43 ee 00 14              |C       |		LEA.L	(A6+0x14),A1
00025858 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
0002585c 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00025860 49 fa fd f0              |I       |		LEA.L	0x25652,A4
00025864 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00025866 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025868 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002586a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002586c 4e ba e1 e2              |N       |		JSR	0x23a50
00025870 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025872 26 97                    |&       |		MOVE.L	(A7),(A3)
00025874 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025878 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002587c 4e ba e1 d2              |N       |		JSR	0x23a50
00025880 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025882 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00025884 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00025886 20 13                    |        |		MOVE.L	(A3),D0
00025888 90 90                    |        |		SUB.L	(A0),D0
0002588a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002588c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002588e 70 01                    |p       |		MOVEQ.L	#0x01,D0
00025890 b0 97                    |        |		CMP.L	(A7),D0
00025892 6e ff 00 00 00 92        |n       |		BGT	0x25926
00025898 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
0002589c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002589e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000258a0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000258a2 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000258a4 ba 97                    |        |		CMP.L	(A7),D5
000258a6 6e 42                    |nB      |		BGT	0x258ea
000258a8 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
000258ae 66 04                    |f       |		BNE	0x258b4
000258b0 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
000258b2 60 14                    |`       |		BRA	0x258c8
000258b4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000258b6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000258ba 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000258be 2f 05                    |/       |		MOVE.L	D5,-(A7)
000258c0 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000258c2 4e 94                    |N       |		JSR	(A4)
000258c4 de c1                    |        |		ADDA.W	D1,A7
000258c6 1e 1f                    |        |		MOVE.B	(A7)+,D7
000258c8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000258ca 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000258cc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000258ce 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
000258d2 d0 85                    |        |		ADD.L	D5,D0
000258d4 53 80                    |S       |		SUBQ.L	#0x1,D0
000258d6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000258d8 4e 94                    |N       |		JSR	(A4)
000258da de c1                    |        |		ADDA.W	D1,A7
000258dc be 1f                    |        |		CMP.B	(A7)+,D7
000258de 67 04                    |g       |		BEQ	0x258e4
000258e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000258e2 60 08                    |`       |		BRA	0x258ec
000258e4 2c 05                    |,       |		MOVE.L	D5,D6
000258e6 52 85                    |R       |		ADDQ.L	#0x1,D5
000258e8 68 ba                    |h       |		BVC	0x258a4
000258ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000258ec bc 90                    |        |		CMP.L	(A0),D6
000258ee 66 2c                    |f,      |		BNE	0x2591c
000258f0 20 17                    |        |		MOVE.L	(A7),D0
000258f2 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
000258f6 d0 90                    |        |		ADD.L	(A0),D0
000258f8 b0 93                    |        |		CMP.L	(A3),D0
000258fa 6d 02                    |m       |		BLT	0x258fe
000258fc 60 1a                    |`       |		BRA	0x25918
000258fe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025900 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025902 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025904 2f 00                    |/       |		MOVE.L	D0,-(A7)
00025906 4e 94                    |N       |		JSR	(A4)
00025908 de c1                    |        |		ADDA.W	D1,A7
0002590a 1e 1f                    |        |		MOVE.B	(A7)+,D7
0002590c 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00025910 67 06                    |g       |		BEQ	0x25918
00025912 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00025916 66 04                    |f       |		BNE	0x2591c
00025918 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002591a 60 10                    |`       |		BRA	0x2592c
0002591c 20 1f                    |        |		MOVE.L	(A7)+,D0
0002591e 52 80                    |R       |		ADDQ.L	#0x1,D0
00025920 68 ff ff ff ff 6e        |h    n  |		BVC	0x25890
00025926 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025928 42 ae 00 18              |B       |		CLR.L	(A6+0x18)
0002592c 4c df 1f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00025930 4e 5e                    |N^      |		UNLK	A6
00025932 4e 75                    |Nu      |		RTS
00025934 ; --------------------------------------------------------------------------------------
00025934 ; OMSI PASCAL Function
00025934 ;    <LVAR  0x018 4(r)>
00025934 ;    <LVAR  0x014 4(r)>
00025934 ;    <LVAR  0x010 4(r)>
00025934 ;    <LVAR  0x00c 4(r)>
00025934 ;    <LVAR  0x008 4(r)>
00025934 ; --------------------------------------------------------------------------------------
00025934 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00025938 bf d5                    |        |		CMPA.L	(A5),A7
0002593a 62 06                    |b       |		BHI	0x25942
0002593c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025940 4e 76                    |Nv      |		TRAPV
00025942 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00025946 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
0002594a 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
0002594e 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
00025952 72 2f                    |r/      |		MOVEQ.L	#0x2f,D1
00025954 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025956 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025958 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002595a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002595e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025962 4e ba fe d6              |N       |		JSR	0x2583a
00025966 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002596a 2a 1f                    |*       |		MOVE.L	(A7)+,D5
0002596c 6f 52                    |oR      |		BLE	0x259c0
0002596e 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00025972 1f 01                    |        |		MOVE.B	D1,-(A7)
00025974 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002597a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002597c 20 05                    |        |		MOVE.L	D5,D0
0002597e 52 80                    |R       |		ADDQ.L	#0x1,D0
00025980 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025982 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025984 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025986 4e ba e0 c8              |N       |		JSR	0x23a50
0002598a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002598c 2c 00                    |,       |		MOVE.L	D0,D6
0002598e bc 97                    |        |		CMP.L	(A7),D6
00025990 6e 2c                    |n,      |		BGT	0x259be
00025992 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025994 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025996 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025998 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002599a 4e ba fc b6              |N       |		JSR	0x25652
0002599e de fc 00 0c              |        |		ADDA.W	#0xc,A7
000259a2 1e 1f                    |        |		MOVE.B	(A7)+,D7
000259a4 be 01                    |        |		CMP.B	D1,D7
000259a6 66 04                    |f       |		BNE	0x259ac
000259a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000259aa 60 14                    |`       |		BRA	0x259c0
000259ac 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
000259b0 1f 07                    |        |		MOVE.B	D7,-(A7)
000259b2 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000259b8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000259ba 52 86                    |R       |		ADDQ.L	#0x1,D6
000259bc 68 d0                    |h       |		BVC	0x2598e
000259be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000259c0 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
000259c4 4e 5e                    |N^      |		UNLK	A6
000259c6 4e 75                    |Nu      |		RTS
000259c8 ; --------------------------------------------------------------------------------------
000259c8 ; OMSI PASCAL Function
000259c8 ;    <LVAR  0x018 4(r)>
000259c8 ;    <LVAR  0x014 4(r)>
000259c8 ;    <LVAR  0x010 4(r)>
000259c8 ;    <LVAR  0x00c 4(r)>
000259c8 ;    <LVAR  0x008 4(r)>
000259c8 ;    <LVAR -0x006 4(rw)>
000259c8 ;    <LVAR -0x014 4(rw)>
000259c8 ; --------------------------------------------------------------------------------------
000259c8 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
000259cc bf d5                    |        |		CMPA.L	(A5),A7
000259ce 62 06                    |b       |		BHI	0x259d6
000259d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000259d4 4e 76                    |Nv      |		TRAPV
000259d6 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000259da 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000259de 41 ee 00 14              |A       |		LEA.L	(A6+0x14),A0
000259e2 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
000259e6 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000259ea 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000259ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000259ee 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000259f0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000259f2 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000259f6 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000259fa 4e ba fe 3e              |N  >    |		JSR	0x2583a
000259fe de fc 00 10              |        |		ADDA.W	#0x10,A7
00025a02 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00025a06 6f 6e                    |on      |		BLE	0x25a76
00025a08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025a0a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025a0c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025a0e 4e ba e0 40              |N  @    |		JSR	0x23a50
00025a12 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025a14 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00025a16 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025a18 2a 2e ff ec              |*.      |		MOVE.L	(A6-0x14),D5
00025a1c ba 97                    |        |		CMP.L	(A7),D5
00025a1e 6e 54                    |nT      |		BGT	0x25a74
00025a20 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025a22 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025a24 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025a26 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025a28 4e ba fc 28              |N  (    |		JSR	0x25652
00025a2c de c1                    |        |		ADDA.W	D1,A7
00025a2e 10 1f                    |        |		MOVE.B	(A7)+,D0
00025a30 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
00025a34 66 3a                    |f:      |		BNE	0x25a70
00025a36 20 05                    |        |		MOVE.L	D5,D0
00025a38 52 80                    |R       |		ADDQ.L	#0x1,D0
00025a3a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025a3c 2c 00                    |,       |		MOVE.L	D0,D6
00025a3e bc 97                    |        |		CMP.L	(A7),D6
00025a40 6e 2c                    |n,      |		BGT	0x25a6e
00025a42 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025a44 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025a46 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025a48 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025a4a 4e ba fc 06              |N       |		JSR	0x25652
00025a4e de c1                    |        |		ADDA.W	D1,A7
00025a50 1e 1f                    |        |		MOVE.B	(A7)+,D7
00025a52 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00025a56 66 04                    |f       |		BNE	0x25a5c
00025a58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025a5a 60 1a                    |`       |		BRA	0x25a76
00025a5c 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00025a60 1f 07                    |        |		MOVE.B	D7,-(A7)
00025a62 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00025a68 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025a6a 52 86                    |R       |		ADDQ.L	#0x1,D6
00025a6c 68 d0                    |h       |		BVC	0x25a3e
00025a6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025a70 52 85                    |R       |		ADDQ.L	#0x1,D5
00025a72 68 a8                    |h       |		BVC	0x25a1c
00025a74 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025a76 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00025a7a 4e 5e                    |N^      |		UNLK	A6
00025a7c 4e 75                    |Nu      |		RTS
00025a7e ; --------------------------------------------------------------------------------------
00025a7e ; OMSI PASCAL Function
00025a7e ;    <LVAR  0x010 4(r)>
00025a7e ;    <LVAR  0x00c 4(r)>
00025a7e ;    <LVAR  0x008 4(r)>
00025a7e ; --------------------------------------------------------------------------------------
00025a7e 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00025a82 bf d5                    |        |		CMPA.L	(A5),A7
00025a84 62 06                    |b       |		BHI	0x25a8c
00025a86 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025a8a 4e 76                    |Nv      |		TRAPV
00025a8c de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00025a90 48 e7 c7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D1+D0,-(A7)
00025a94 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00025a98 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00025a9c 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00025a9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025aa0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025aa2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025aa4 4e ba df aa              |N       |		JSR	0x23a50
00025aa8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025aaa 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00025aac 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025aae 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00025ab0 bc 97                    |        |		CMP.L	(A7),D6
00025ab2 6e 46                    |nF      |		BGT	0x25afa
00025ab4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025ab6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025ab8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025aba 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025abc 4e ba fb 94              |N       |		JSR	0x25652
00025ac0 de c1                    |        |		ADDA.W	D1,A7
00025ac2 10 1f                    |        |		MOVE.B	(A7)+,D0
00025ac4 0c 00 00 2f              |   /    |		CMPI.B	#0x2f,D0
00025ac8 66 2c                    |f,      |		BNE	0x25af6
00025aca 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025acc 2e 06                    |.       |		MOVE.L	D6,D7
00025ace be 97                    |        |		CMP.L	(A7),D7
00025ad0 6e 1e                    |n       |		BGT	0x25af0
00025ad2 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00025ad6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025ad8 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00025ada 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025adc 2f 07                    |/       |		MOVE.L	D7,-(A7)
00025ade 4e ba fb 72              |N  r    |		JSR	0x25652
00025ae2 de c1                    |        |		ADDA.W	D1,A7
00025ae4 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00025aea 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025aec 52 87                    |R       |		ADDQ.L	#0x1,D7
00025aee 68 de                    |h       |		BVC	0x25ace
00025af0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025af2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025af4 60 06                    |`       |		BRA	0x25afc
00025af6 52 86                    |R       |		ADDQ.L	#0x1,D6
00025af8 68 b6                    |h       |		BVC	0x25ab0
00025afa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025afc 4c df 03 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1
00025b00 4e 5e                    |N^      |		UNLK	A6
00025b02 4e 75                    |Nu      |		RTS
00025b04 ; --------------------------------------------------------------------------------------
00025b04 ; OMSI PASCAL Function
00025b04 ;    <LVAR  0x010 4(r)>
00025b04 ;    <LVAR  0x00c 4(r)>
00025b04 ;    <LVAR  0x008 4(r)>
00025b04 ; --------------------------------------------------------------------------------------
00025b04 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00025b08 bf d5                    |        |		CMPA.L	(A5),A7
00025b0a 62 06                    |b       |		BHI	0x25b12
00025b0c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025b10 4e 76                    |Nv      |		TRAPV
00025b12 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00025b16 48 e7 03 80              |H       |		MOVEM.L	A0+D7+D6,-(A7)
00025b1a 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00025b1e 42 50                    |BP      |		CLR.W	(A0)
00025b20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025b22 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025b26 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025b2a 4e ba df 24              |N  $    |		JSR	0x23a50
00025b2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025b30 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00025b32 be 97                    |        |		CMP.L	(A7),D7
00025b34 6e 34                    |n4      |		BGT	0x25b6a
00025b36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025b38 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025b3c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00025b40 2f 07                    |/       |		MOVE.L	D7,-(A7)
00025b42 4e ba fb 0e              |N       |		JSR	0x25652
00025b46 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025b4a 1c 1f                    |        |		MOVE.B	(A7)+,D6
00025b4c 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
00025b50 67 10                    |g       |		BEQ	0x25b62
00025b52 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00025b56 1f 06                    |        |		MOVE.B	D6,-(A7)
00025b58 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00025b5e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00025b60 60 04                    |`       |		BRA	0x25b66
00025b62 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025b64 60 06                    |`       |		BRA	0x25b6c
00025b66 52 87                    |R       |		ADDQ.L	#0x1,D7
00025b68 68 c8                    |h       |		BVC	0x25b32
00025b6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025b6c 4c df 01 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0
00025b70 4e 5e                    |N^      |		UNLK	A6
00025b72 4e 75                    |Nu      |		RTS
00025b74 ; --------------------------------------------------------------------------------------
00025b74 ; OMSI PASCAL Function
00025b74 ; --------------------------------------------------------------------------------------
00025b74 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00025b78 bf d5                    |        |		CMPA.L	(A5),A7
00025b7a 62 06                    |b       |		BHI	0x25b82
00025b7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025b80 4e 76                    |Nv      |		TRAPV
00025b82 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00025b86 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00025b8a 41 fa cf 82              |A       |		LEA.L	0x22b0e,A0
00025b8e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00025b90 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00025b92 51 c8 ff fc              |Q       |		DBF	D0,0x25b90
00025b96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025b98 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025b9c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025ba0 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00025ba4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025baa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025bac 4e ba d2 7a              |N  z    |		JSR	0x22e28
00025bb0 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00025bb4 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00025bb8 4e 5e                    |N^      |		UNLK	A6
00025bba 4e 75                    |Nu      |		RTS
00025bbc ; --------------------------------------------------------------------------------------
00025bbc ; OMSI PASCAL Function
00025bbc ;    <LVAR  0x00c 4(r)>
00025bbc ;    <LVAR  0x008 4(r)>
00025bbc ;    <LVAR -0x006 4(rw)>
00025bbc ; --------------------------------------------------------------------------------------
00025bbc 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00025bc0 bf d5                    |        |		CMPA.L	(A5),A7
00025bc2 62 06                    |b       |		BHI	0x25bca
00025bc4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025bc8 4e 76                    |Nv      |		TRAPV
00025bca de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00025bce 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00025bd2 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
00025bd6 45 f9 00 02 79 7e        |E   y~  |		LEA.L	0x2797e,A2
00025bdc 47 fa d2 e6              |G       |		LEA.L	0x22ec4,A3
00025be0 72 30                    |r0      |		MOVEQ.L	#0x30,D1
00025be2 74 39                    |t9      |		MOVEQ.L	#0x39,D2
00025be4 76 25                    |v%      |		MOVEQ.L	#0x25,D3
00025be6 78 2d                    |x-      |		MOVEQ.L	#0x2d,D4
00025be8 2d 52 ff fa              |-R      |		MOVE.L	(A2),(A6-0x6)
00025bec 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025bee 4e 93                    |N       |		JSR	(A3)
00025bf0 1e 1f                    |        |		MOVE.B	(A7)+,D7
00025bf2 be 03                    |        |		CMP.B	D3,D7
00025bf4 66 0a                    |f       |		BNE	0x25c00
00025bf6 20 51                    | Q      |		MOVEA.L	(A1),A0
00025bf8 42 90                    |B       |		CLR.L	(A0)
00025bfa 60 ff 00 00 00 ec        |`       |		BRA	0x25ce8
00025c00 be 04                    |        |		CMP.B	D4,D7
00025c02 66 0e                    |f       |		BNE	0x25c12
00025c04 20 51                    | Q      |		MOVEA.L	(A1),A0
00025c06 20 bc 00 00 00 01        |        |		MOVE.L	#0x1,(A0)
00025c0c 60 ff 00 00 00 da        |`       |		BRA	0x25ce8
00025c12 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00025c16 66 0e                    |f       |		BNE	0x25c26
00025c18 20 51                    | Q      |		MOVEA.L	(A1),A0
00025c1a 20 bc 00 00 00 04        |        |		MOVE.L	#0x4,(A0)
00025c20 60 ff 00 00 00 c6        |`       |		BRA	0x25ce8
00025c26 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00025c2a 66 0e                    |f       |		BNE	0x25c3a
00025c2c 20 51                    | Q      |		MOVEA.L	(A1),A0
00025c2e 20 bc 00 00 00 05        |        |		MOVE.L	#0x5,(A0)
00025c34 60 ff 00 00 00 b2        |`       |		BRA	0x25ce8
00025c3a 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
00025c3e 66 0e                    |f       |		BNE	0x25c4e
00025c40 20 51                    | Q      |		MOVEA.L	(A1),A0
00025c42 20 bc 00 00 00 06        |        |		MOVE.L	#0x6,(A0)
00025c48 60 ff 00 00 00 9e        |`       |		BRA	0x25ce8
00025c4e 4a 07                    |J       |		TST.B	D7
00025c50 66 2c                    |f,      |		BNE	0x25c7e
00025c52 41 fa ce d2              |A       |		LEA.L	0x22b26,A0
00025c56 70 05                    |p       |		MOVEQ.L	#0x05,D0
00025c58 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00025c5a 51 c8 ff fc              |Q       |		DBF	D0,0x25c58
00025c5e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025c60 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025c64 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025c68 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00025c6c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025c72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025c74 4e ba d1 b2              |N       |		JSR	0x22e28
00025c78 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00025c7c 60 6a                    |`j      |		BRA	0x25ce8
00025c7e be 01                    |        |		CMP.B	D1,D7
00025c80 65 2c                    |e,      |		BCS	0x25cae
00025c82 be 02                    |        |		CMP.B	D2,D7
00025c84 62 28                    |b(      |		BHI	0x25cae
00025c86 20 51                    | Q      |		MOVEA.L	(A1),A0
00025c88 20 bc 00 00 00 02        |        |		MOVE.L	#0x2,(A0)
00025c8e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025c90 4e ba d1 f4              |N       |		JSR	0x22e86
00025c94 1e 1f                    |        |		MOVE.B	(A7)+,D7
00025c96 be 01                    |        |		CMP.B	D1,D7
00025c98 65 0a                    |e       |		BCS	0x25ca4
00025c9a be 02                    |        |		CMP.B	D2,D7
00025c9c 62 06                    |b       |		BHI	0x25ca4
00025c9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025ca0 4e 93                    |N       |		JSR	(A3)
00025ca2 1c 1f                    |        |		MOVE.B	(A7)+,D6
00025ca4 be 01                    |        |		CMP.B	D1,D7
00025ca6 65 04                    |e       |		BCS	0x25cac
00025ca8 be 02                    |        |		CMP.B	D2,D7
00025caa 63 e2                    |c       |		BLS	0x25c8e
00025cac 60 3a                    |`:      |		BRA	0x25ce8
00025cae 20 51                    | Q      |		MOVEA.L	(A1),A0
00025cb0 20 bc 00 00 00 03        |        |		MOVE.L	#0x3,(A0)
00025cb6 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00025cb8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025cba 4e ba d1 ca              |N       |		JSR	0x22e86
00025cbe 1e 1f                    |        |		MOVE.B	(A7)+,D7
00025cc0 be 03                    |        |		CMP.B	D3,D7
00025cc2 67 16                    |g       |		BEQ	0x25cda
00025cc4 be 04                    |        |		CMP.B	D4,D7
00025cc6 67 12                    |g       |		BEQ	0x25cda
00025cc8 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
00025ccc 67 0c                    |g       |		BEQ	0x25cda
00025cce 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
00025cd2 67 06                    |g       |		BEQ	0x25cda
00025cd4 0c 07 00 5c              |   \    |		CMPI.B	#0x5c,D7
00025cd8 66 04                    |f       |		BNE	0x25cde
00025cda 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00025cdc 60 06                    |`       |		BRA	0x25ce4
00025cde 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00025ce0 4e 93                    |N       |		JSR	(A3)
00025ce2 1c 1f                    |        |		MOVE.B	(A7)+,D6
00025ce4 4a 05                    |J       |		TST.B	D5
00025ce6 67 d0                    |g       |		BEQ	0x25cb8
00025ce8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00025cec 20 ae ff fa              |        |		MOVE.L	(A6-0x6),(A0)
00025cf0 21 52 00 04              |!R      |		MOVE.L	(A2),(A0+0x4)
00025cf4 53 a8 00 04              |S       |		SUBQ.L	#0x1,(A0+0x4)
00025cf8 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00025cfc 4e 5e                    |N^      |		UNLK	A6
00025cfe 4e 75                    |Nu      |		RTS
00025d00 ; --------------------------------------------------------------------------------------
00025d00 ; OMSI PASCAL Function
00025d00 ;    <LVAR  0x00c 4(r)>
00025d00 ;    <LVAR  0x008 4(r)>
00025d00 ; --------------------------------------------------------------------------------------
00025d00 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00025d04 bf d5                    |        |		CMPA.L	(A5),A7
00025d06 62 06                    |b       |		BHI	0x25d0e
00025d08 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025d0c 4e 76                    |Nv      |		TRAPV
00025d0e de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00025d12 48 e7 c7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00025d16 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00025d1a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00025d1e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00025d20 2c 39 00 02 79 7e        |,9  y~  |		MOVE.L	0x2797e,D6
00025d26 9c 92                    |        |		SUB.L	(A2),D6
00025d28 2a 12                    |*       |		MOVE.L	(A2),D5
00025d2a da 86                    |        |		ADD.L	D6,D5
00025d2c 30 10                    |0       |		MOVE.W	(A0),D0
00025d2e 48 c0                    |H       |		EXTW.L	D0
00025d30 b0 86                    |        |		CMP.L	D6,D0
00025d32 67 0c                    |g       |		BEQ	0x25d40
00025d34 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025d36 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025d38 91 97                    |        |		SUB.L	D0,(A7)
00025d3a 4e ba d6 48              |N  H    |		JSR	0x23384
00025d3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025d40 2f 00                    |/       |		MOVE.L	D0,-(A7)
00025d42 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00025d44 be 97                    |        |		CMP.L	(A7),D7
00025d46 6e 34                    |n4      |		BGT	0x25d7c
00025d48 20 12                    |        |		MOVE.L	(A2),D0
00025d4a d0 87                    |        |		ADD.L	D7,D0
00025d4c 53 80                    |S       |		SUBQ.L	#0x1,D0
00025d4e 53 80                    |S       |		SUBQ.L	#0x1,D0
00025d50 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
00025d56 63 02                    |c       |		BLS	0x25d5a
00025d58 4e 4f                    |NO      |		TRAP	#15
00025d5a 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00025d60 22 07                    |"       |		MOVE.L	D7,D1
00025d62 53 81                    |S       |		SUBQ.L	#0x1,D1
00025d64 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00025d6a 63 02                    |c       |		BLS	0x25d6e
00025d6c 4e 4f                    |NO      |		TRAP	#15
00025d6e 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00025d72 11 b1 18 02 08 08        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x8)
00025d78 52 87                    |R       |		ADDQ.L	#0x1,D7
00025d7a 68 c8                    |h       |		BVC	0x25d44
00025d7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025d7e 4c df 07 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00025d82 4e 5e                    |N^      |		UNLK	A6
00025d84 4e 75                    |Nu      |		RTS
00025d86 ; --------------------------------------------------------------------------------------
00025d86 ; OMSI PASCAL Function
00025d86 ;    <LVAR  0x00c 4(r)>
00025d86 ;    <LVAR  0x008 4(r)>
00025d86 ;    <LVAR -0x008 @ 4(r)>
00025d86 ;    <LVAR -0x00c @ 4(r)>
00025d86 ;    <LVAR -0x010 4(r)>
00025d86 ;    <LVAR -0x014 @ 4(r)>
00025d86 ;    <LVAR -0x018 4(rw)>
00025d86 ;    <LVAR -0x01c 4(rw)>
00025d86 ;    <LVAR -0x020 4(rw)>
00025d86 ;    <LVAR -0x024 4(rw)>
00025d86 ;    <LVAR -0x028 4(rw)>
00025d86 ;    <LVAR -0x034 4(rw)>
00025d86 ; --------------------------------------------------------------------------------------
00025d86 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00025d8a bf d5                    |        |		CMPA.L	(A5),A7
00025d8c 62 06                    |b       |		BHI	0x25d94
00025d8e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025d92 4e 76                    |Nv      |		TRAPV
00025d94 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00025d98 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00025d9c 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00025da0 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00025da4 47 ee ff dc              |G       |		LEA.L	(A6-0x24),A3
00025da8 49 ee ff e0              |I       |		LEA.L	(A6-0x20),A4
00025dac 74 14                    |t       |		MOVEQ.L	#0x14,D2
00025dae 2d 79 00 02 79 7e ff d8  |-y  y~  |		MOVE.L	0x2797e,(A6-0x28)
00025db6 48 51                    |HQ      |		PEA.L	(A1)
00025db8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00025dbe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025dc0 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00025dc4 48 52                    |HR      |		PEA.L	(A2)
00025dc6 4e ba fd f4              |N       |		JSR	0x25bbc
00025dca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025dcc 42 ae ff cc              |B       |		CLR.L	(A6-0x34)
00025dd0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00025dd2 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00025dd6 b0 82                    |        |		CMP.L	D2,D0
00025dd8 63 02                    |c       |		BLS	0x25ddc
00025dda 4e 4e                    |NN      |		TRAP	#14
00025ddc d0 40                    | @      |		ADD.W	D0,D0
00025dde 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00025de6 00 2a                    | *      |		.CONST	0x2a			; [0x0] -> 0x25e10
00025de8 00 36                    | 6      |		.CONST	0x36			; [0x1] -> 0x25e1c
00025dea 00 4c                    | L      |		.CONST	0x4c			; [0x2] -> 0x25e32
00025dec 00 6c                    | l      |		.CONST	0x6c			; [0x3] -> 0x25e52
00025dee 00 72                    | r      |		.CONST	0x72			; [0x4] -> 0x25e58
00025df0 00 82                    |        |		.CONST	0x82			; [0x5] -> 0x25e68
00025df2 00 98                    |        |		.CONST	0x98			; [0x6] -> 0x25e7e
00025df4 00 a0                    |        |		.CONST	0xa0			; [0x7] -> 0x25e86
00025df6 00 a2                    |        |		.CONST	0xa2			; [0x8] -> 0x25e88
00025df8 00 ba                    |        |		.CONST	0xba			; [0x9] -> 0x25ea0
00025dfa 00 ca                    |        |		.CONST	0xca			; [0xa] -> 0x25eb0
00025dfc 00 e4                    |        |		.CONST	0xe4			; [0xb] -> 0x25eca
00025dfe 00 f8                    |        |		.CONST	0xf8			; [0xc] -> 0x25ede
00025e00 01 0e                    |        |		.CONST	0x10e			; [0xd] -> 0x25ef4
00025e02 01 24                    | $      |		.CONST	0x124			; [0xe] -> 0x25f0a
00025e04 01 26                    | &      |		.CONST	0x126			; [0xf] -> 0x25f0c
00025e06 01 40                    | @      |		.CONST	0x140			; [0x10] -> 0x25f26
00025e08 01 56                    | V      |		.CONST	0x156			; [0x11] -> 0x25f3c
00025e0a 01 64                    | d      |		.CONST	0x164			; [0x12] -> 0x25f4a
00025e0c 01 66                    | f      |		.CONST	0x166			; [0x13] -> 0x25f4c
00025e0e 01 68                    | h      |		.CONST	0x168			; [0x14] -> 0x25f4e
00025e10					switch@0x25dde[0x0]:
00025e10 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00025e12 2a 2e 00 08              |*.      |		MOVE.L	(A6+0x8),D5
00025e16 60 ff 00 00 01 60        |`    `  |		BRA	0x25f78
00025e1c					switch@0x25dde[0x1]:
00025e1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025e1e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00025e22 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025e24 4e ba f8 6c              |N  l    |		JSR	0x25692
00025e28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025e2a 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00025e2c 60 ff 00 00 01 4a        |`    J  |		BRA	0x25f78
00025e32					switch@0x25dde[0x2]:
00025e32 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00025e36 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025e38 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025e3a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025e3e 4e ba f8 ce              |N       |		JSR	0x2570e
00025e42 de fc 00 10              |        |		ADDA.W	#0x10,A7
00025e46 60 ff 00 00 01 8e        |`       |		BRA	0x25fd6
00025e4c 60 ff 00 00              |`       |		.XXX[0x4]
00025e50 01 2a                    | *      |		.XXX[0x2]
00025e52					switch@0x25dde[0x3]:
00025e52 60 ff 00 00 01 24        |`    $  |		BRA	0x25f78
00025e58					switch@0x25dde[0x4]:
00025e58 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00025e5c 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025e5e 2f 05                    |/       |		MOVE.L	D5,-(A7)
00025e60 60 d8                    |`       |		BRA	0x25e3a
00025e62 60 ff 00 00 01 14        |`       |		.XXX[0x6]
00025e68					switch@0x25dde[0x5]:
00025e68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025e6a 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00025e6e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025e70 4e ba f8 20              |N       |		JSR	0x25692
00025e74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025e76 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00025e78 60 ff 00 00 00 fe        |`       |		BRA	0x25f78
00025e7e					switch@0x25dde[0x6]:
00025e7e 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00025e80 60 ff 00 00 00 f6        |`       |		BRA	0x25f78
00025e86					switch@0x25dde[0x7]:
00025e86 60 e0                    |`       |		BRA	switch@0x25dde[0x5]
00025e88					switch@0x25dde[0x8]:
00025e88 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025e8a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025e8e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025e90 4e ba db f6              |N       |		JSR	0x23a88
00025e94 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025e96 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00025e98 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00025e9a 60 ff 00 00 00 dc        |`       |		BRA	0x25f78
00025ea0					switch@0x25dde[0x9]:
00025ea0 2d 52 ff e4              |-R      |		MOVE.L	(A2),(A6-0x1c)
00025ea4 2d 6e ff f0 ff e8        |-n      |		MOVE.L	(A6-0x10),(A6-0x18)
00025eaa 60 ff 00 00 00 cc        |`       |		BRA	0x25f78
00025eb0					switch@0x25dde[0xa]:
00025eb0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025eb2 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025eb4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025eb6 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00025eba 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00025ebe 4e ba fb 08              |N       |		JSR	0x259c8
00025ec2 de c2                    |        |		ADDA.W	D2,A7
00025ec4 60 ff 00 00 00 b2        |`       |		BRA	0x25f78
00025eca					switch@0x25dde[0xb]:
00025eca 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025ecc 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025ece 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025ed0 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00025ed4 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00025ed8 4e ba fa 5a              |N  Z    |		JSR	0x25934
00025edc 60 e4                    |`       |		BRA	0x25ec2
00025ede					switch@0x25dde[0xc]:
00025ede 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025ee0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025ee2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025ee4 4e ba fb 98              |N       |		JSR	0x25a7e
00025ee8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025eec 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00025eee 60 ff 00 00 00 88        |`       |		BRA	0x25f78
00025ef4					switch@0x25dde[0xd]:
00025ef4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025ef6 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00025ef8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00025efa 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00025efe 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00025f02 4e ba fa 30              |N  0    |		JSR	0x25934
00025f06 de c2                    |        |		ADDA.W	D2,A7
00025f08 60 e2                    |`       |		BRA	0x25eec
00025f0a					switch@0x25dde[0xe]:
00025f0a 60 e0                    |`       |		BRA	0x25eec
00025f0c					switch@0x25dde[0xf]:
00025f0c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025f0e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025f10 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025f14 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025f16 4e ba db 70              |N  p    |		JSR	0x23a88
00025f1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025f1c 4e ba fb 60              |N  `    |		JSR	0x25a7e
00025f20 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00025f24 60 52                    |`R      |		BRA	0x25f78
00025f26					switch@0x25dde[0x10]:
00025f26 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025f28 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025f2a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00025f2e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00025f30 4e ba db 56              |N  V    |		JSR	0x23a88
00025f34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025f36 4e ba fb cc              |N       |		JSR	0x25b04
00025f3a 60 ac                    |`       |		BRA	0x25ee8
00025f3c					switch@0x25dde[0x11]:
00025f3c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025f3e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00025f42 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00025f44 4e ba fc 2e              |N  .    |		JSR	0x25b74
00025f48 60 d6                    |`       |		BRA	0x25f20
00025f4a					switch@0x25dde[0x12]:
00025f4a 60 2c                    |`,      |		BRA	0x25f78
00025f4c					switch@0x25dde[0x13]:
00025f4c 60 9e                    |`       |		BRA	0x25eec
00025f4e					switch@0x25dde[0x14]:
00025f4e 41 fa cb ee              |A       |		LEA.L	0x22b3e,A0
00025f52 70 05                    |p       |		MOVEQ.L	#0x05,D0
00025f54 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00025f56 51 c8 ff fc              |Q       |		DBF	D0,0x25f54
00025f5a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00025f5c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00025f60 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00025f64 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00025f68 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00025f6e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025f70 4e ba ce b6              |N       |		JSR	0x22e28
00025f74 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00025f78 4a 07                    |J       |		TST.B	D7
00025f7a 66 46                    |fF      |		BNE	0x25fc2
00025f7c 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00025f80 48 52                    |HR      |		PEA.L	(A2)
00025f82 4e ba fc 38              |N  8    |		JSR	0x25bbc
00025f86 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025f88 20 2e ff cc              | .      |		MOVE.L	(A6-0x34),D0
00025f8c 0c 80 00 00 00 13        |        |		CMPI.L	#0x00000013,D0
00025f92 63 02                    |c       |		BLS	0x25f96
00025f94 4e 4f                    |NO      |		TRAP	#15
00025f96 28 00                    |(       |		MOVE.L	D0,D4
00025f98 76 07                    |v       |		MOVEQ.L	#0x07,D3
00025f9a 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00025fa0 41 fa cd b8              |A       |		LEA.L	0x22d5a,A0
00025fa4 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
00025fa8 0c 80 00 00 00 06        |        |		CMPI.L	#0x00000006,D0
00025fae 63 02                    |c       |		BLS	0x25fb2
00025fb0 4e 4f                    |NO      |		TRAP	#15
00025fb2 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00025fb6 12 30 08 00              | 0      |		MOVE.B	(A0+D0.L),D1
00025fba 48 81                    |H       |		EXTB.W	D1
00025fbc 48 c1                    |H       |		EXTW.L	D1
00025fbe 2d 41 ff cc              |-A      |		MOVE.L	D1,(A6-0x34)
00025fc2 4a 07                    |J       |		TST.B	D7
00025fc4 67 ff ff ff fe 0c        |g       |		BEQ	0x25dd2
00025fca 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00025fce 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00025fd0 4e ba fd 2e              |N  .    |		JSR	0x25d00
00025fd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025fd6 48 51                    |HQ      |		PEA.L	(A1)
00025fd8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00025fde 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025fe0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00025fe4 4e 5e                    |N^      |		UNLK	A6
00025fe6 4e 75                    |Nu      |		RTS
00025fe8 ; --------------------------------------------------------------------------------------
00025fe8 ; OMSI PASCAL Function
00025fe8 ;    <LVAR  0x014 4(rw)>
00025fe8 ;    <LVAR  0x010 4(r)>
00025fe8 ;    <LVAR  0x00c 4(r)>
00025fe8 ;    <LVAR  0x008 4(r)>
00025fe8 ;    <LVAR -0x008 4(rw)>
00025fe8 ;    <LVAR -0x00c 4(rw)>
00025fe8 ;    <LVAR -0x018 4(w)>
00025fe8 ; --------------------------------------------------------------------------------------
00025fe8 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00025fec bf d5                    |        |		CMPA.L	(A5),A7
00025fee 62 06                    |b       |		BHI	0x25ff6
00025ff0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00025ff4 4e 76                    |Nv      |		TRAPV
00025ff6 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00025ffa 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00025ffe 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00026002 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
00026006 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
0002600a 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
0002600e 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00026010 42 ae 00 14              |B       |		CLR.L	(A6+0x14)
00026014 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00026016 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026018 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002601a 4e ba da 34              |N  4    |		JSR	0x23a50
0002601e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026020 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00026022 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00026026 30 10                    |0       |		MOVE.W	(A0),D0
00026028 48 c0                    |H       |		EXTW.L	D0
0002602a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002602c 22 80                    |"       |		MOVE.L	D0,(A1)
0002602e 44 80                    |D       |		NEG.L	D0
00026030 d0 94                    |        |		ADD.L	(A4),D0
00026032 52 80                    |R       |		ADDQ.L	#0x1,D0
00026034 2f 00                    |/       |		MOVE.L	D0,-(A7)
00026036 70 01                    |p       |		MOVEQ.L	#0x01,D0
00026038 b0 97                    |        |		CMP.L	(A7),D0
0002603a 6e ff 00 00 00 9e        |n       |		BGT	0x260da
00026040 2d 40 ff e8              |-@      |		MOVE.L	D0,(A6-0x18)
00026044 2f 00                    |/       |		MOVE.L	D0,-(A7)
00026046 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00026048 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002604a 7a 01                    |z       |		MOVEQ.L	#0x01,D5
0002604c ba 97                    |        |		CMP.L	(A7),D5
0002604e 6e 48                    |nH      |		BGT	0x26098
00026050 0c 85 00 00 00 01        |        |		CMPI.L	#0x00000001,D5
00026056 66 04                    |f       |		BNE	0x2605c
00026058 7e 2f                    |~/      |		MOVEQ.L	#0x2f,D7
0002605a 60 18                    |`       |		BRA	0x26074
0002605c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00026060 20 05                    |        |		MOVE.L	D5,D0
00026062 53 80                    |S       |		SUBQ.L	#0x1,D0
00026064 53 80                    |S       |		SUBQ.L	#0x1,D0
00026066 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
0002606c 63 02                    |c       |		BLS	0x26070
0002606e 4e 4f                    |NO      |		TRAP	#15
00026070 1e 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D7
00026074 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00026076 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026078 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002607a 20 2f 00 0e              | /      |		MOVE.L	(A7+0xe),D0
0002607e d0 85                    |        |		ADD.L	D5,D0
00026080 53 80                    |S       |		SUBQ.L	#0x1,D0
00026082 2f 00                    |/       |		MOVE.L	D0,-(A7)
00026084 4e ba f5 cc              |N       |		JSR	0x25652
00026088 de c2                    |        |		ADDA.W	D2,A7
0002608a be 1f                    |        |		CMP.B	(A7)+,D7
0002608c 67 04                    |g       |		BEQ	0x26092
0002608e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026090 60 08                    |`       |		BRA	0x2609a
00026092 2c 05                    |,       |		MOVE.L	D5,D6
00026094 52 85                    |R       |		ADDQ.L	#0x1,D5
00026096 68 b4                    |h       |		BVC	0x2604c
00026098 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002609a bc 91                    |        |		CMP.L	(A1),D6
0002609c 66 32                    |f2      |		BNE	0x260d0
0002609e 20 17                    |        |		MOVE.L	(A7),D0
000260a0 22 00                    |"       |		MOVE.L	D0,D1
000260a2 d2 91                    |        |		ADD.L	(A1),D1
000260a4 b2 94                    |        |		CMP.L	(A4),D1
000260a6 6c 26                    |l&      |		BGE	0x260ce
000260a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000260aa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000260ac 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000260ae 2f 01                    |/       |		MOVE.L	D1,-(A7)
000260b0 4e ba f5 a0              |N       |		JSR	0x25652
000260b4 de c2                    |        |		ADDA.W	D2,A7
000260b6 1e 1f                    |        |		MOVE.B	(A7)+,D7
000260b8 0c 07 00 2f              |   /    |		CMPI.B	#0x2f,D7
000260bc 67 06                    |g       |		BEQ	0x260c4
000260be 0c 07 00 3d              |   =    |		CMPI.B	#0x3d,D7
000260c2 66 08                    |f       |		BNE	0x260cc
000260c4 2d 40 00 14              |-@      |		MOVE.L	D0,(A6+0x14)
000260c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000260ca 60 10                    |`       |		BRA	0x260dc
000260cc 60 02                    |`       |		BRA	0x260d0
000260ce 60 f4                    |`       |		BRA	0x260c4
000260d0 20 1f                    |        |		MOVE.L	(A7)+,D0
000260d2 52 80                    |R       |		ADDQ.L	#0x1,D0
000260d4 68 ff ff ff ff 62        |h    b  |		BVC	0x26038
000260da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000260dc 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000260e0 4e 5e                    |N^      |		UNLK	A6
000260e2 4e 75                    |Nu      |		RTS
000260e4 ; --------------------------------------------------------------------------------------
000260e4 ; OMSI PASCAL Function
000260e4 ;    <LVAR  0x018 4(r)>
000260e4 ;    <LVAR  0x014 4(r)>
000260e4 ;    <LVAR  0x010 4(r)>
000260e4 ;    <LVAR  0x00c 4(r)>
000260e4 ;    <LVAR  0x008 4(r)>
000260e4 ;    <LVAR -0x008 4(rw)>
000260e4 ;    <LVAR -0x014 4(rw)>
000260e4 ;    <LVAR -0x018 4(rw)>
000260e4 ;    <LVAR -0x01c 4(rw)>
000260e4 ; --------------------------------------------------------------------------------------
000260e4 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
000260e8 bf d5                    |        |		CMPA.L	(A5),A7
000260ea 62 06                    |b       |		BHI	0x260f2
000260ec 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000260f0 4e 76                    |Nv      |		TRAPV
000260f2 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000260f6 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000260fa 45 ee ff e4              |E       |		LEA.L	(A6-0x1c),A2
000260fe 47 ee ff e8              |G       |		LEA.L	(A6-0x18),A3
00026102 49 ee ff f8              |I       |		LEA.L	(A6-0x8),A4
00026106 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00026108 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002610a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002610e 42 10                    |B       |		CLR.B	(A0)
00026110 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00026114 22 82                    |"       |		MOVE.L	D2,(A1)
00026116 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00026118 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002611c 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00026120 4e ba d9 66              |N  f    |		JSR	0x23a88
00026124 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026126 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00026128 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002612a 4a 92                    |J       |		TST.L	(A2)
0002612c 67 ff 00 00 00 98        |g       |		BEQ	0x261c6
00026132 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00026134 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00026136 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026138 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0002613c 4e ba fe aa              |N       |		JSR	0x25fe8
00026140 de c1                    |        |		ADDA.W	D1,A7
00026142 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00026146 67 7e                    |g~      |		BEQ	0x261c6
00026148 10 82                    |        |		MOVE.B	D2,(A0)
0002614a 48 51                    |HQ      |		PEA.L	(A1)
0002614c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00026152 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00026154 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026156 4e ba d8 f8              |N       |		JSR	0x23a50
0002615a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002615c 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
0002615e 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00026162 52 80                    |R       |		ADDQ.L	#0x1,D0
00026164 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00026166 2a 00                    |*       |		MOVE.L	D0,D5
00026168 ba 97                    |        |		CMP.L	(A7),D5
0002616a 6e 58                    |nX      |		BGT	0x261c4
0002616c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002616e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00026170 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026172 2f 05                    |/       |		MOVE.L	D5,-(A7)
00026174 4e ba f4 dc              |N       |		JSR	0x25652
00026178 de c1                    |        |		ADDA.W	D1,A7
0002617a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002617c 0c 00 00 3d              |   =    |		CMPI.B	#0x3d,D0
00026180 66 3e                    |f>      |		BNE	0x261c0
00026182 20 05                    |        |		MOVE.L	D5,D0
00026184 52 80                    |R       |		ADDQ.L	#0x1,D0
00026186 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00026188 2e 00                    |.       |		MOVE.L	D0,D7
0002618a be 97                    |        |		CMP.L	(A7),D7
0002618c 6e 2e                    |n.      |		BGT	0x261bc
0002618e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00026190 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00026192 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026194 2f 07                    |/       |		MOVE.L	D7,-(A7)
00026196 4e ba f4 ba              |N       |		JSR	0x25652
0002619a de c1                    |        |		ADDA.W	D1,A7
0002619c 1c 1f                    |        |		MOVE.B	(A7)+,D6
0002619e 0c 06 00 2f              |   /    |		CMPI.B	#0x2f,D6
000261a2 66 04                    |f       |		BNE	0x261a8
000261a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000261a6 60 1e                    |`       |		BRA	0x261c6
000261a8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000261ac 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000261ae 1f 06                    |        |		MOVE.B	D6,-(A7)
000261b0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000261b6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000261b8 52 87                    |R       |		ADDQ.L	#0x1,D7
000261ba 68 ce                    |h       |		BVC	0x2618a
000261bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000261be 60 06                    |`       |		BRA	0x261c6
000261c0 52 85                    |R       |		ADDQ.L	#0x1,D5
000261c2 68 a4                    |h       |		BVC	0x26168
000261c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000261c6 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000261ca 4e 5e                    |N^      |		UNLK	A6
000261cc 4e 75                    |Nu      |		RTS
000261ce ; --------------------------------------------------------------------------------------
000261ce ; OMSI PASCAL Function
000261ce ;    <LVAR  0x00c @ 4(r)>
000261ce ;    <LVAR  0x008 4(r)>
000261ce ;    <LVAR -0x010 @ 1(r)>
000261ce ; --------------------------------------------------------------------------------------
000261ce 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
000261d2 bf d5                    |        |		CMPA.L	(A5),A7
000261d4 62 06                    |b       |		BHI	0x261dc
000261d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000261da 4e 76                    |Nv      |		TRAPV
000261dc de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000261e0 48 e7 87 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
000261e4 43 f9 00 02 79 7e        |C   y~  |		LEA.L	0x2797e,A1
000261ea 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000261ee 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
000261f2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000261f4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000261f6 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000261fa 4e b9 00 02 25 dc        |N   %   |		JSR	DISPATCH_CMDS(?)
00026200 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00026204 4a 2e ff f0              |J.      |		TST.B	(A6-0x10)
00026208 66 50                    |fP      |		BNE	0x2625a
0002620a 2e 11                    |.       |		MOVE.L	(A1),D7
0002620c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002620e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026210 4e ba d0 2a              |N  *    |		JSR	0x2323c
00026214 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026216 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00026218 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002621a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002621c 4e ba f2 f8              |N       |		JSR	TRY_SCRIPT_FILE(?)
00026220 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026222 2a 11                    |*       |		MOVE.L	(A1),D5
00026224 20 07                    |        |		MOVE.L	D7,D0
00026226 53 80                    |S       |		SUBQ.L	#0x1,D0
00026228 0c 80 00 00 0f ff        |        |		CMPI.L	#0x00000fff,D0
0002622e 63 02                    |c       |		BLS	0x26232
00026230 4e 4f                    |NO      |		TRAP	#15
00026232 41 f9 00 02 69 76        |A   iv  |		LEA.L	0x26976,A0
00026238 10 30 08 08              | 0      |		MOVE.B	(A0+D0.L+#0x8),D0
0002623c 0c 00 00 25              |   %    |		CMPI.B	#0x25,D0
00026240 66 0c                    |f       |		BNE	0x2624e
00026242 22 87                    |"       |		MOVE.L	D7,(A1)
00026244 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026246 2f 06                    |/       |		MOVE.L	D6,-(A7)
00026248 4e ba fb 3c              |N  <    |		JSR	0x25d86
0002624c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002624e 52 87                    |R       |		ADDQ.L	#0x1,D7
00026250 be b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D7
00026256 6f cc                    |o       |		BLE	0x26224
00026258 22 85                    |"       |		MOVE.L	D5,(A1)
0002625a 48 53                    |HS      |		PEA.L	(A3)
0002625c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00026262 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026264 4c df 0f e1              |L       |		MOVEM.L	(A7)+,D0+D5+D6+D7+A0+A1+A2+A3
00026268 4e 5e                    |N^      |		UNLK	A6
0002626a 4e 75                    |Nu      |		RTS
0002626c ; --------------------------------------------------------------------------------------
0002626c ; OMSI PASCAL Function
0002626c ;    <LVAR -0x006 @ 4(r)>
0002626c ;    <LVAR -0x00a @ 4(rw)>
0002626c ;    <LVAR -0x00b 1(w)>
0002626c ;    <LVAR -0x00c @ 1(r)>
0002626c ; --------------------------------------------------------------------------------------
0002626c 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00026270 bf d5                    |        |		CMPA.L	(A5),A7
00026272 62 06                    |b       |		BHI	0x2627a
00026274 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00026278 4e 76                    |Nv      |		TRAPV
0002627a de fc 00 54              |   T    |		ADDA.W	#0x54,A7
0002627e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00026282 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00026286 47 f9 00 02 79 7e        |G   y~  |		LEA.L	0x2797e,A3
0002628c 49 ee ff f6              |I       |		LEA.L	(A6-0xa),A4
00026290 2e 13                    |.       |		MOVE.L	(A3),D7
00026292 48 52                    |HR      |		PEA.L	(A2)
00026294 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00026298 4e ba ce f6              |N       |		JSR	0x23190
0002629c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002629e 2c 13                    |,       |		MOVE.L	(A3),D6
000262a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000262a2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000262a4 4e ba cf 96              |N       |		JSR	0x2323c
000262a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000262aa 20 1f                    |        |		MOVE.L	(A7)+,D0
000262ac 0c 80 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D0
000262b2 67 ff 00 00 02 ea        |g       |		BEQ	0x2659e
000262b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000262ba 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000262bc 48 78 00 00              |Hx      |		PEA.L	0x0
000262c0 4e ba d8 a4              |N       |		JSR	0x23b66
000262c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000262c6 28 97                    |(       |		MOVE.L	(A7),(A4)
000262c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000262ca 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000262cc 4e ba f1 8c              |N       |		JSR	0x2545a
000262d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000262d2 10 1f                    |        |		MOVE.B	(A7)+,D0
000262d4 48 80                    |H       |		EXTB.W	D0
000262d6 41 bc 00 2b              |A  +    |		CHK.W	#0x2b,D0
000262da 1d 40 ff f5              | @      |		MOVE.B	D0,(A6-0xb)
000262de 4a 00                    |J       |		TST.B	D0
000262e0 66 10                    |f       |		BNE	0x262f2
000262e2 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000262e4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000262e6 4e ba fe e6              |N       |		JSR	0x261ce
000262ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000262ec 60 ff 00 00 02 a8        |`       |		BRA	0x26596
000262f2 48 54                    |HT      |		PEA.L	(A4)
000262f4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000262fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000262fc 12 00                    |        |		MOVE.B	D0,D1
000262fe 48 81                    |H       |		EXTB.W	D1
00026300 43 bc 00 2b              |C  +    |		CHK.W	#0x2b,D1
00026304 41 fa ca 24              |A  $    |		LEA.L	0x22d2a,A0
00026308 30 01                    |0       |		MOVE.W	D1,D0
0002630a 48 c0                    |H       |		EXTW.L	D0
0002630c 24 00                    |$       |		MOVE.L	D0,D2
0002630e e2 9a                    |        |		ROR.L	#0x1,D2
00026310 d0 c2                    |        |		ADDA.W	D2,A0
00026312 48 42                    |HB      |		SWAP.W	D2
00026314 e7 5a                    | Z      |		ROL.W	#0x3,D2
00026316 42 83                    |B       |		CLR.L	D3
00026318 16 10                    |        |		MOVE.B	(A0),D3
0002631a e5 2b                    | +      |		LSL.B	D2,D3
0002631c e8 0b                    |        |		LSR.B	#0x4,D3
0002631e 2a 03                    |*       |		MOVE.L	D3,D5
00026320 0c 85 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D5
00026326 67 2c                    |g,      |		BEQ	0x26354
00026328 28 00                    |(       |		MOVE.L	D0,D4
0002632a 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0002632c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00026332 41 fa c8 28              |A  (    |		LEA.L	COMMAND_TABLE_22b5c,A0
00026336 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002633a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002633c 41 f0 40 00              |A @     |		LEA.L	(A0+D4.W),A0
00026340 70 09                    |p       |		MOVEQ.L	#0x09,D0
00026342 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00026344 51 c8 ff fc              |Q       |		DBF	D0,0x26342
00026348 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002634a 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002634c 4e ba cf 24              |N  $    |		JSR	0x23272
00026350 de fc 00 12              |        |		ADDA.W	#0x12,A7
00026354 53 41                    |SA      |		SUBQ.W	#0x1,D1
00026356 0c 41 00 2a              | A *    |		CMPI.W	#0x002a,D1
0002635a 63 02                    |c       |		BLS	0x2635e
0002635c 4e 4e                    |NN      |		TRAP	#14
0002635e d2 41                    | A      |		ADD.W	D1,D1
00026360 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00026368 00 56                    | V      |		.CONST	0x56			; [0x0] -> 0x263be
0002636a 00 64                    | d      |		.CONST	0x64			; [0x1] -> 0x263cc
0002636c 00 78                    | x      |		.CONST	0x78			; [0x2] -> 0x263e0
0002636e 00 86                    |        |		.CONST	0x86			; [0x3] -> 0x263ee
00026370 02 20                    |        |		.CONST	0x220			; [0x4] -> 0x26588
00026372 00 8e                    |        |		.CONST	0x8e			; [0x5] -> 0x263f6
00026374 00 94                    |        |		.CONST	0x94			; [0x6] -> 0x263fc
00026376 00 9c                    |        |		.CONST	0x9c			; [0x7] -> 0x26404
00026378 00 a4                    |        |		.CONST	0xa4			; [0x8] -> 0x2640c
0002637a 00 ac                    |        |		.CONST	0xac			; [0x9] -> 0x26414
0002637c 00 b4                    |        |		.CONST	0xb4			; [0xa] -> 0x2641c
0002637e 00 bc                    |        |		.CONST	0xbc			; [0xb] -> 0x26424
00026380 00 c4                    |        |		.CONST	0xc4			; [0xc] -> 0x2642c
00026382 00 cc                    |        |		.CONST	0xcc			; [0xd] -> 0x26434
00026384 00 d4                    |        |		.CONST	0xd4			; [0xe] -> 0x2643c
00026386 00 dc                    |        |		.CONST	0xdc			; [0xf] -> 0x26444
00026388 00 e8                    |        |		.CONST	0xe8			; [0x10] -> 0x26450
0002638a 00 f4                    |        |		.CONST	0xf4			; [0x11] -> 0x2645c
0002638c 01 00                    |        |		.CONST	0x100			; [0x12] -> 0x26468
0002638e 01 0c                    |        |		.CONST	0x10c			; [0x13] -> 0x26474
00026390 01 18                    |        |		.CONST	0x118			; [0x14] -> 0x26480
00026392 01 24                    | $      |		.CONST	0x124			; [0x15] -> 0x2648c
00026394 01 30                    | 0      |		.CONST	0x130			; [0x16] -> 0x26498
00026396 01 3c                    | <      |		.CONST	0x13c			; [0x17] -> 0x264a4
00026398 01 48                    | H      |		.CONST	0x148			; [0x18] -> 0x264b0
0002639a 01 54                    | T      |		.CONST	0x154			; [0x19] -> 0x264bc
0002639c 01 60                    | `      |		.CONST	0x160			; [0x1a] -> 0x264c8
0002639e 01 6c                    | l      |		.CONST	0x16c			; [0x1b] -> 0x264d4
000263a0 01 78                    | x      |		.CONST	0x178			; [0x1c] -> 0x264e0
000263a2 01 84                    |        |		.CONST	0x184			; [0x1d] -> 0x264ec
000263a4 01 90                    |        |		.CONST	0x190			; [0x1e] -> 0x264f8
000263a6 01 9c                    |        |		.CONST	0x19c			; [0x1f] -> 0x26504
000263a8 01 a8                    |        |		.CONST	0x1a8			; [0x20] -> 0x26510
000263aa 01 b4                    |        |		.CONST	0x1b4			; [0x21] -> 0x2651c
000263ac 01 c0                    |        |		.CONST	0x1c0			; [0x22] -> 0x26528
000263ae 01 cc                    |        |		.CONST	0x1cc			; [0x23] -> 0x26534
000263b0 01 d8                    |        |		.CONST	0x1d8			; [0x24] -> 0x26540
000263b2 01 e4                    |        |		.CONST	0x1e4			; [0x25] -> 0x2654c
000263b4 01 ea                    |        |		.CONST	0x1ea			; [0x26] -> 0x26552
000263b6 01 f6                    |        |		.CONST	0x1f6			; [0x27] -> 0x2655e
000263b8 02 02                    |        |		.CONST	0x202			; [0x28] -> 0x2656a
000263ba 02 0e                    |        |		.CONST	0x20e			; [0x29] -> 0x26576
000263bc 02 14                    |        |		.CONST	0x214			; [0x2a] -> 0x2657c
000263be					switch@0x26360[0x0]:
000263be 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000263c0 4e ba d9 2c              |N  ,    |		JSR	0x23cee
000263c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000263c6 60 ff 00 00 01 ce        |`       |		BRA	0x26596
000263cc					switch@0x26360[0x1]:
000263cc 42 27                    |B'      |		CLR.B	-(A7)
000263ce 48 78 00 01              |Hx      |		PEA.L	0x1
000263d2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000263d8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000263da 60 ff 00 00 01 ba        |`       |		BRA	0x26596
000263e0					switch@0x26360[0x2]:
000263e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000263e2 4e b9 00 01 02 ac        |N       |		JSR	FSCALL_102ac
000263e8 4e ba d8 da              |N       |		JSR	0x23cc4
000263ec 60 d6                    |`       |		BRA	0x263c4
000263ee					switch@0x26360[0x3]:
000263ee 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000263f0 4e ba da da              |N       |		JSR	0x23ecc
000263f4 60 ce                    |`       |		BRA	0x263c4
000263f6					switch@0x26360[0x5]:
000263f6 60 ff 00 00 01 9e        |`       |		BRA	0x26596
000263fc					switch@0x26360[0x6]:
000263fc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000263fe 4e ba dd f2              |N       |		JSR	0x241f2
00026402 60 c0                    |`       |		BRA	0x263c4
00026404					switch@0x26360[0x7]:
00026404 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026406 4e ba df 5c              |N  \    |		JSR	0x24364
0002640a 60 b8                    |`       |		BRA	0x263c4
0002640c					switch@0x26360[0x8]:
0002640c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002640e 4e ba e0 42              |N  B    |		JSR	0x24452
00026412 60 b0                    |`       |		BRA	0x263c4
00026414					switch@0x26360[0x9]:
00026414 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026416 4e ba e4 36              |N  6    |		JSR	0x2484e
0002641a 60 a8                    |`       |		BRA	0x263c4
0002641c					switch@0x26360[0xa]:
0002641c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002641e 4e ba e4 a6              |N       |		JSR	0x248c6
00026422 60 a0                    |`       |		BRA	0x263c4
00026424					switch@0x26360[0xb]:
00026424 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026426 4e ba e5 16              |N       |		JSR	0x2493e
0002642a 60 98                    |`       |		BRA	0x263c4
0002642c					switch@0x26360[0xc]:
0002642c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002642e 4e ba e5 3a              |N  :    |		JSR	0x2496a
00026432 60 90                    |`       |		BRA	0x263c4
00026434					switch@0x26360[0xd]:
00026434 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026436 4e ba e6 32              |N  2    |		JSR	0x24a6a
0002643a 60 88                    |`       |		BRA	0x263c4
0002643c					switch@0x26360[0xe]:
0002643c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002643e 4e ba e7 10              |N       |		JSR	0x24b50
00026442 60 80                    |`       |		BRA	0x263c4
00026444					switch@0x26360[0xf]:
00026444 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026446 4e ba e7 34              |N  4    |		JSR	0x24b7c
0002644a 60 ff ff ff ff 78        |`    x  |		BRA	0x263c4
00026450					switch@0x26360[0x10]:
00026450 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026452 4e ba e7 74              |N  t    |		JSR	0x24bc8
00026456 60 ff ff ff ff 6c        |`    l  |		BRA	0x263c4
0002645c					switch@0x26360[0x11]:
0002645c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002645e 4e ba e7 b4              |N       |		JSR	0x24c14
00026462 60 ff ff ff ff 60        |`    `  |		BRA	0x263c4
00026468					switch@0x26360[0x12]:
00026468 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002646a 4e ba e7 f4              |N       |		JSR	0x24c60
0002646e 60 ff ff ff ff 54        |`    T  |		BRA	0x263c4
00026474					switch@0x26360[0x13]:
00026474 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026476 4e ba e8 34              |N  4    |		JSR	0x24cac
0002647a 60 ff ff ff ff 48        |`    H  |		BRA	0x263c4
00026480					switch@0x26360[0x14]:
00026480 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026482 4e ba e8 74              |N  t    |		JSR	0x24cf8
00026486 60 ff ff ff ff 3c        |`    <  |		BRA	0x263c4
0002648c					switch@0x26360[0x15]:
0002648c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002648e 4e ba e8 b4              |N       |		JSR	0x24d44
00026492 60 ff ff ff ff 30        |`    0  |		BRA	0x263c4
00026498					switch@0x26360[0x16]:
00026498 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002649a 4e ba e8 f2              |N       |		JSR	0x24d8e
0002649e 60 ff ff ff ff 24        |`    $  |		BRA	0x263c4
000264a4					switch@0x26360[0x17]:
000264a4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264a6 4e ba e9 30              |N  0    |		JSR	0x24dd8
000264aa 60 ff ff ff ff 18        |`       |		BRA	0x263c4
000264b0					switch@0x26360[0x18]:
000264b0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264b2 4e ba e9 6e              |N  n    |		JSR	0x24e22
000264b6 60 ff ff ff ff 0c        |`       |		BRA	0x263c4
000264bc					switch@0x26360[0x19]:
000264bc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264be 4e ba e9 ac              |N       |		JSR	0x24e6c
000264c2 60 ff ff ff ff 00        |`       |		BRA	0x263c4
000264c8					switch@0x26360[0x1a]:
000264c8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264ca 4e ba e9 ea              |N       |		JSR	0x24eb6
000264ce 60 ff ff ff fe f4        |`       |		BRA	0x263c4
000264d4					switch@0x26360[0x1b]:
000264d4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264d6 4e ba ea 28              |N  (    |		JSR	0x24f00
000264da 60 ff ff ff fe e8        |`       |		BRA	0x263c4
000264e0					switch@0x26360[0x1c]:
000264e0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264e2 4e ba ea 66              |N  f    |		JSR	0x24f4a
000264e6 60 ff ff ff fe dc        |`       |		BRA	0x263c4
000264ec					switch@0x26360[0x1d]:
000264ec 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264ee 4e ba ea a4              |N       |		JSR	0x24f94
000264f2 60 ff ff ff fe d0        |`       |		BRA	0x263c4
000264f8					switch@0x26360[0x1e]:
000264f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000264fa 4e ba ea dc              |N       |		JSR	0x24fd8
000264fe 60 ff ff ff fe c4        |`       |		BRA	0x263c4
00026504					switch@0x26360[0x1f]:
00026504 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026506 4e ba eb 16              |N       |		JSR	0x2501e
0002650a 60 ff ff ff fe b8        |`       |		BRA	0x263c4
00026510					switch@0x26360[0x20]:
00026510 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026512 4e ba eb 40              |N  @    |		JSR	0x25054
00026516 60 ff ff ff fe ac        |`       |		BRA	0x263c4
0002651c					switch@0x26360[0x21]:
0002651c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002651e 4e ba eb c4              |N       |		JSR	0x250e4
00026522 60 ff ff ff fe a0        |`       |		BRA	0x263c4
00026528					switch@0x26360[0x22]:
00026528 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002652a 4e ba ec 2a              |N  *    |		JSR	0x25156
0002652e 60 ff ff ff fe 94        |`       |		BRA	0x263c4
00026534					switch@0x26360[0x23]:
00026534 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026536 4e ba df 7c              |N  |    |		JSR	0x244b4
0002653a 60 ff ff ff fe 88        |`       |		BRA	0x263c4
00026540					switch@0x26360[0x24]:
00026540 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026542 4e ba df da              |N       |		JSR	0x2451e
00026546 60 ff ff ff fe 7c        |`    |  |		BRA	0x263c4
0002654c					switch@0x26360[0x25]:
0002654c 4e ba df a2              |N       |		JSR	0x244f0
00026550 60 44                    |`D      |		BRA	0x26596
00026552					switch@0x26360[0x26]:
00026552 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026554 4e ba ec 72              |N  r    |		JSR	0x251c8
00026558 60 ff ff ff fe 6a        |`    j  |		BRA	0x263c4
0002655e					switch@0x26360[0x27]:
0002655e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026560 4e ba ec e8              |N       |		JSR	0x2524a
00026564 60 ff ff ff fe 5e        |`    ^  |		BRA	0x263c4
0002656a					switch@0x26360[0x28]:
0002656a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002656c 4e ba ed 5c              |N  \    |		JSR	0x252ca
00026570 60 ff ff ff fe 52        |`    R  |		BRA	0x263c4
00026576					switch@0x26360[0x29]:
00026576 4e ba ee 16              |N       |		JSR	0x2538e
0002657a 60 1a                    |`       |		BRA	0x26596
0002657c					switch@0x26360[0x2a]:
0002657c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002657e 4e ba ee 2e              |N  .    |		JSR	0x253ae
00026582 60 ff ff ff fe 40        |`    @  |		BRA	0x263c4
00026588					switch@0x26360[0x4]:
00026588 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
0002658c 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00026590 4e f9 00 02 67 a4        |N   g   |		JMP	0x267a4
00026596 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00026598 4e ba c8 4c              |N  L    |		JSR	0x22de6
0002659c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002659e 2f 06                    |/       |		MOVE.L	D6,-(A7)
000265a0 2f 06                    |/       |		MOVE.L	D6,-(A7)
000265a2 9f 97                    |        |		SUB.L	D7,(A7)
000265a4 4e ba cd de              |N       |		JSR	0x23384
000265a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000265aa 26 87                    |&       |		MOVE.L	D7,(A3)
000265ac 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
000265b0 67 ff ff ff fc de        |g       |		BEQ	0x26290
000265b6 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000265ba 4e 5e                    |N^      |		UNLK	A6
000265bc 4e 75                    |Nu      |		RTS
000265be ; --------------------------------------------------------------------------------------
000265be ; OMSI PASCAL Function
000265be ; --------------------------------------------------------------------------------------
000265be					START:
000265be 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000265c2 4e f9 00 01 02 80        |N       |		JMP	?start_program
000265c8					MAIN:
000265c8 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x279a8
000265d0 79 a8                    |y       |
000265d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000265d4 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
000265da 23 df 00 02 79 ac        |#   y   |		MOVE.L	(A7)+,0x279ac
000265e0 48 79 00 02 79 86        |Hy  y   |		PEA.L	0x27986
000265e6 4e b9 00 02 26 82        |N   &   |		JSR	0x22682
000265ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000265ee 20 79 00 02 79 ac        | y  y   |		MOVEA.L	0x279ac,A0
000265f4 4a 50                    |JP      |		TST.W	(A0)
000265f6 6f 68                    |oh      |		BLE	0x26660
000265f8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000265fa 20 4f                    | O      |		MOVEA.L	A7,A0
000265fc 43 fa c5 40              |C  @    |		LEA.L	0x22b3e,A1
00026600 70 06                    |p       |		MOVEQ.L	#0x06,D0
00026602 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00026604 51 c8 ff fc              |Q       |		DBF	D0,0x26602
00026608 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002660a 20 4f                    | O      |		MOVEA.L	A7,A0
0002660c 43 fa c5 38              |C  8    |		LEA.L	0x22b46,A1
00026610 70 06                    |p       |		MOVEQ.L	#0x06,D0
00026612 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00026614 51 c8 ff fc              |Q       |		DBF	D0,0x26612
00026618 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002661a 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002661e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00026622 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00026626 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002662c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002662e 2e b9 00 02 79 ac        |.   y   |		MOVE.L	0x279ac,(A7)
00026634 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00026636 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
0002663a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002663e 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00026642 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00026648 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002664a 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00026650 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00026654 23 df 00 02 79 ac        |#   y   |		MOVE.L	(A7)+,0x279ac
0002665a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002665e 60 3a                    |`:      |		BRA	0x2669a
00026660 48 79 00 02 79 ac        |Hy  y   |		PEA.L	0x279ac
00026666 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002666c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002666e 20 4f                    | O      |		MOVEA.L	A7,A0
00026670 43 fa c4 dc              |C       |		LEA.L	0x22b4e,A1
00026674 70 06                    |p       |		MOVEQ.L	#0x06,D0
00026676 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00026678 51 c8 ff fc              |Q       |		DBF	D0,0x26676
0002667c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002667e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00026682 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00026686 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0002668a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00026690 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026692 23 df 00 02 79 ac        |#   y   |		MOVE.L	(A7)+,0x279ac
00026698 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002669a 13 fc 00 01 00 02 79 b6  |      y |		MOVE.B	#0x01,0x279b6
000266a2 4a 39 00 02 79 b6        |J9  y   |		TST.B	0x279b6
000266a8 67 0c                    |g       |		BEQ	0x266b6
000266aa 42 39 00 02 79 b6        |B9  y   |		CLR.B	0x279b6
000266b0 60 ff 00 00 00 b2        |`       |		BRA	0x26764
000266b6 41 f9 00 02 79 90        |A   y   |		LEA.L	0x27990,A0
000266bc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000266be 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000266c0 51 c8 ff fc              |Q       |		DBF	D0,0x266be
000266c4 3f 3a c4 90              |?:      |		MOVE.W	0x22b56,-(A7)
000266c8 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
000266cc 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000266d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000266d4 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000266d8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000266de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000266e0 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000266e4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000266e8 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000266ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000266f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000266f4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000266fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000266fc 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00026702 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026704 23 df 00 02 79 b2        |#   y   |		MOVE.L	(A7)+,0x279b2
0002670a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002670c 2e b9 00 02 79 b2        |.   y   |		MOVE.L	0x279b2,(A7)
00026712 4e ba c9 70              |N  p    |		JSR	0x23084
00026716 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00026718 3e ba c4 3e              |>  >    |		MOVE.W	0x22b58,(A7)
0002671c 3f 3a c4 3c              |?: <    |		MOVE.W	0x22b5a,-(A7)
00026720 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00026722 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00026726 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002672a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002672e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00026734 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026736 2e b9 00 02 79 b2        |.   y   |		MOVE.L	0x279b2,(A7)
0002673c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002673e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00026742 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00026746 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002674a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00026750 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026752 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00026758 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002675c 23 df 00 02 79 ac        |#   y   |		MOVE.L	(A7)+,0x279ac
00026762 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026764 42 39 00 02 79 b0        |B9  y   |		CLR.B	0x279b0
0002676a 23 fc 00 00 00 01 00 02  |#       |		MOVE.L	#0x1,0x2797e
00026772 79 7e                    |y~      |
00026774 42 b9 00 02 79 82        |B   y   |		CLR.L	eval_buffer?
0002677a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002677c 2f 39 00 02 79 ac        |/9  y   |		MOVE.L	0x279ac,-(A7)
00026782 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00026788 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002678a 4e ba d4 7c              |N  |    |		JSR	0x23c08
0002678e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00026790 20 39 00 02 79 7e        | 9  y~  |		MOVE.L	0x2797e,D0
00026796 b0 b9 00 02 79 82        |    y   |		CMP.L	eval_buffer?,D0
0002679c 6e 06                    |n       |		BGT	0x267a4
0002679e 4e ba fa cc              |N       |		JSR	0x2626c
000267a2 60 ec                    |`       |		BRA	0x26790
000267a4 48 79 00 02 79 ac        |Hy  y   |		PEA.L	0x279ac
000267aa 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000267b0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000267b2 60 ff ff ff fe ee        |`       |		BRA	0x266a2
000267b8 4e b9 00 01 02 84        |N       |		.XXX[0x6]
000267be 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000267cc 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
000267da 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000267e8 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000267fa 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00026812 ; --------------------------------------------------------------------------------------
00026812 ; OMSI PASCAL Function
00026812 ;    <LVAR  0x00e 1(r)>
00026812 ;    <LVAR  0x00a 4(r)>
00026812 ;    <LVAR  0x008 1(r)>
00026812 ; --------------------------------------------------------------------------------------
00026812					EXP_FAIL:
00026812 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00026816 bf d5                    |        |		CMPA.L	(A5),A7
00026818 62 06                    |b       |		BHI	0x26820
0002681a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002681e 4e 76                    |Nv      |		TRAPV
00026820 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00026824 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00026828 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002682e 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00026834 72 01                    |r       |		MOVEQ.L	#0x01,D1
00026836 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00026838 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002683a 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002683c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002683e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00026844 41 fa ff b4              |A       |		LEA.L	0x267fa,A0
00026848 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002684a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002684c 51 c8 ff fc              |Q       |		DBF	D0,0x2684a
00026850 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00026852 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00026856 3f 01                    |?       |		MOVE.W	D1,-(A7)
00026858 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002685a 4e 93                    |N       |		JSR	(A3)
0002685c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002685e 4e 94                    |N       |		JSR	(A4)
00026860 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026862 20 4f                    | O      |		MOVEA.L	A7,A0
00026864 43 fa ff 58              |C  X    |		LEA.L	0x267be,A1
00026868 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002686a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002686c 51 c8 ff fc              |Q       |		DBF	D0,0x2686a
00026870 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00026872 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00026876 3f 01                    |?       |		MOVE.W	D1,-(A7)
00026878 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002687a 4e 93                    |N       |		JSR	(A3)
0002687c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002687e 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00026882 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00026888 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002688a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00026890 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026892 4e 94                    |N       |		JSR	(A4)
00026894 de c4                    |        |		ADDA.W	D4,A7
00026896 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
0002689a b0 c1                    |        |		CMPA.W	D1,A0
0002689c 67 48                    |gH      |		BEQ	0x268e6
0002689e 9e c5                    |        |		SUBA.W	D5,A7
000268a0 22 4f                    |"O      |		MOVEA.L	A7,A1
000268a2 45 fa ff 28              |E  (    |		LEA.L	0x267cc,A2
000268a6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000268a8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000268aa 51 c8 ff fc              |Q       |		DBF	D0,0x268a8
000268ae 9e c3                    |        |		SUBA.W	D3,A7
000268b0 22 4f                    |"O      |		MOVEA.L	A7,A1
000268b2 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000268b6 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000268b8 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000268ba 51 c8 ff fc              |Q       |		DBF	D0,0x268b8
000268be 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000268c0 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000268c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000268c6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000268c8 4e 93                    |N       |		JSR	(A3)
000268ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000268cc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000268d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000268d2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000268d4 4e 93                    |N       |		JSR	(A3)
000268d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000268d8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000268de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000268e0 4e 94                    |N       |		JSR	(A4)
000268e2 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000268e6 9e c5                    |        |		SUBA.W	D5,A7
000268e8 20 4f                    | O      |		MOVEA.L	A7,A0
000268ea 43 fa fe ee              |C       |		LEA.L	0x267da,A1
000268ee 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000268f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000268f2 51 c8 ff fc              |Q       |		DBF	D0,0x268f0
000268f6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000268f8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000268fc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000268fe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00026900 4e 93                    |N       |		JSR	(A3)
00026902 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00026904 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00026908 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002690e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00026910 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00026916 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00026918 4e 94                    |N       |		JSR	(A4)
0002691a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002691c 20 4f                    | O      |		MOVEA.L	A7,A0
0002691e 43 fa fe da              |C       |		LEA.L	0x267fa,A1
00026922 70 16                    |p       |		MOVEQ.L	#0x16,D0
00026924 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00026926 51 c8 ff fc              |Q       |		DBF	D0,0x26924
0002692a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002692e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00026930 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00026934 3f 01                    |?       |		MOVE.W	D1,-(A7)
00026936 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002693a 4e 93                    |N       |		JSR	(A3)
0002693c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002693e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00026944 de c3                    |        |		ADDA.W	D3,A7
00026946 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002694a 4e 5e                    |N^      |		UNLK	A6
0002694c 4e 75                    |Nu      |		RTS