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

⟦60e49da3a⟧ M200

    Length: 9728 (0x2600)
    Types: M200
    Notes: M200_PROGRAM
    Names: »EMBALM.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »EMBALM.M200« 

Disassembly

0x2126e


@ 2126e
        <LVAR -0x003 1(w)>
        <LVAR -0x004 1(w) 2(r)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 @ 1(r) 2(r)>
        <LVAR -0x010 @>
        <LVAR -0x018 @>
        <LVAR -0x020 @>
        <LVAR -0x028 @>
        <LVAR -0x030 @>
        <LVAR -0x038 @>
        <LVAR -0x040 @>
        <LVAR -0x048 @>
        <LVAR -0x050 @>
        <LVAR -0x058 @>
        <LVAR -0x060 @>
        <LVAR -0x068 @>
        <LVAR -0x070 @>
        <LVAR -0x078 @>
        <LVAR -0x080 @>
        <LVAR -0x088 @>
        <LVAR -0x090 @>
    <POP 2126e-213ae Body>                                              
        <POP 2126e-21284 Prologue>                           Σ0         ↓
        <POP 21284-2128a RegCacheLoad>                       Σ0         ↓
        <POP 2128a-21320 Naked>                              Σ0         ↓
            <MI 2128a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x2128c <LVAR -0x006 @ 1(r) 2(r)>>   Δ-4                {[#0]|[@@-6]}
            <Call 0x2128e 0x2220c>                                              {[#0]|[@@-6]}
                exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2)
            <POP 21294-21296 StackAdj>                       Δ+6                {}
            <MI 21296  CLR.L   D0>                                              {}
            <MI 21298  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 2129a  ASL.W   #0x8,D0>                                         {}
            <MI 2129c  CLR.L   D1>                                              {}
            <MI 2129e  MOVE.B  (A6-0x5),D1>                                     {}
            <MI 212a2  ADD.W   D0,D1>                                           {}
            <MI 212a4  MOVE.W  D1,D5>                                           {}
            <MI 212a6  CLR.L   D0>                                              {}
            <MI 212a8  MOVE.W  D5,D0>                                           {}
            <MI 212aa  SUB.L   #0x40,D0>                                        {}
            <MI 212ac  SUBQ.L  #0x2,D0>                                         {}
            <MI 212ae  ANDI.L  #0x000007ff,D0>                                  {}
            <MI 212b4  MOVE.W  D0,D5>                                           {}
            <MI 212b6  MOVE.W  D5,D0>                                           {}
            <MI 212b8  LSR.W   #0x8,D0>                                         {}
            <MI 212ba  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 212be  MOVE.W  D5,D0>                                           {}
            <MI 212c0  ANDI.W  #0x00ff,D0>                                      {}
            <MI 212c4  MOVE.B  D0,(A6-0x3)>                                     {}
            <MI 212c8  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <MI 212cc  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x4)']|[#0]}
            <Call 0x212ce 0x22250>                                              {[2, '(A6-0x4)']|[#0]}
                exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 212d4-212d6 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x212d6 <LVAR -0x088 @>>             Δ-4                {[@@-136]}
            <Pointer.fp 0x212da <LVAR -0x080 @>>             Δ-4                {[@@-136]|[@@-128]}
            <Pointer.fp 0x212de <LVAR -0x078 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]}
            <Pointer.fp 0x212e2 <LVAR -0x070 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]}
            <Pointer.fp 0x212e6 <LVAR -0x068 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]}
            <Pointer.fp 0x212ea <LVAR -0x060 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]}
            <Pointer.fp 0x212ee <LVAR -0x058 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]}
            <Pointer.fp 0x212f2 <LVAR -0x050 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]}
            <Pointer.fp 0x212f6 <LVAR -0x048 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]}
            <Pointer.fp 0x212fa <LVAR -0x040 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]}
            <Pointer.fp 0x212fe <LVAR -0x038 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]}
            <Pointer.fp 0x21302 <LVAR -0x030 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]}
            <Pointer.fp 0x21306 <LVAR -0x028 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]}
            <Pointer.fp 0x2130a <LVAR -0x020 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]}
            <Pointer.fp 0x2130e <LVAR -0x018 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]}
            <Pointer.fp 0x21312 <LVAR -0x010 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]|[@@-16]}
            <Call 0x21316 0x221da>                                              {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]|[@@-16]}
                exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
            <POP 2131c-2131e StackAdj>                       Δ+64               {}
            <MI 2131e  MOVEQ.L #0x00,D6>                                        {}
        <POP 21320-21322 Naked>                              Σ0         ↓ ←0x21390
            <MI 21320  MOVEQ.L #0x00,D7>                                        {}
        <POP 21322-21390 Naked>                              Σ0         ↓ →0x21322 ←0x21322
            <MI 21322  MOVE.L  D6,D0>                                           {}
            <MI 21324  ASL.L   #0x2,D0>                                         {}
            <MI 21326  NEG.L   D0>                                              {}
            <MI 21328  ADDI.L  #0x0000003f,D0>                                  {}
            <MI 2132e  SUB.L   D7,D0>                                           {}
            <POP 0x21330 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 2133a  ASL.L   #0x1,D0>                                         {}
            <MI 2133c  LEA.L   0x2247c,A0>                                      {}
            <POP 0x21342 LimitCheck 0x0 ≤ D6 ≤ 0xf>                             {}
            <MI 2134c  MOVE.L  D6,D1>                                           {}
            <MI 2134e  ASL.L   #0x3,D1>                                         {}
            <MI 21350  LEA.L   (A6-0x90),A1>                                    {}
            <MI 21354  MOVE.L  D7,D2>                                           {}
            <MI 21356  ASL.L   #0x1,D2>                                         {}
            <POP 0x21358 LimitCheck 0x0 ≤ D2 ≤ 0x7>                             {}
            <MI 21362  LEA.L   (A1+D1.L),A1>                                    {}
            <MI 21366  CLR.L   D1>                                              {}
            <MI 21368  MOVE.B  (A1+D2.L+#0x8),D1>                               {}
            <MI 2136c  ASL.W   #0x8,D1>                                         {}
            <MI 2136e  ADDQ.L  #0x1,D2>                                         {}
            <POP 0x21370 LimitCheck 0x0 ≤ D2 ≤ 0x7>                             {}
            <MI 2137a  CLR.L   D3>                                              {}
            <MI 2137c  MOVE.B  (A1+D2.L+#0x8),D3>                               {}
            <MI 21380  ADD.W   D1,D3>                                           {}
            <MI 21382  MOVE.W  D3,(A0+D0.L+#0x8)>                               {}
            <MI 21386  ADDQ.L  #0x1,D7>                                         {}
            <MI 21388  CMPI.L  #0x00000003,D7>                                  {}
            <MI 2138e  BLE     0x21322>                                         {}
        <POP 21390-2139a Naked>                              Σ0         ↓ →0x21320
            <MI 21390  ADDQ.L  #0x1,D6>                                         {}
            <MI 21392  CMPI.L  #0x0000000f,D6>                                  {}
            <MI 21398  BLE     0x21320>                                         {}
        <POP 2139a-213a6 Naked>                              Σ0         ↓
            <MI 2139a  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x6)']}
            <MI 2139c  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x6)']|[#0]}
            <Call 0x2139e 0x22250>                                              {[2, '(A6-0x6)']|[#0]}
                exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 213a4-213a6 StackAdj>                       Δ+4                {}
        <POP 213a6-213ae Epilogue>                           Σ0         

0x213ae


@ 213ae
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 213ae-21444 Body>                                              
        <POP 213ae-213c4 Prologue>                           Σ0         ↓
        <POP 213c4-213c6 RegCacheLoad>                       Σ0         ↓
        <POP 213c6-213e8 Naked>                              Σ0         ↓ →0x213ea
            <MI 213c6  MOVEQ.L #0x00,D0>                                        {}
            <MI 213c8  MOVE.L  (A6+0xc),D1>                                     {}
            <POP 0x213cc LimitCheck 0x0 ≤ D1 ≤ 0x7>                             {}
            <MI 213d6  ASL.L   #0x1,D1>                                         {}
            <MI 213d8  LEA.L   0x210f6,A0>                                      {}
            <MI 213dc  CLR.L   D2>                                              {}
            <MI 213de  MOVE.B  (A6+0x10),D2>                                    {}
            <MI 213e2  AND.W   (A0+D1.L),D2>                                    {}
            <MI 213e6  BEQ     0x213ea>                                         {}
        <POP 213e8-213ea Naked>                              Σ0         ↓
            <MI 213e8  ADDQ.B  #0x1,D0>                                         {}
        <POP 213ea-213f0 Naked>                              Σ0         ↓ →0x2143c ←0x213c6
            <MI 213ea  CMP.B   (A6+0xa),D0>                                     {}
            <MI 213ee  BNE     0x2143c>                                         {}
        <POP 213f0-2143c Naked>                              Σ0         ↓
            <MI 213f0  MOVEA.L (A4+0x2c),A0>                                    {}
            <MI 213f4  ADDQ.L  #0x1,(A0)>                                       {}
            <MI 213f6  MOVEA.L (A4+0x30),A0>                                    {}
            <MI 213fa  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 213fe  EXTB.W  D0>                                              {}
            <MI 21400  MOVE.B  #0x01,(A0+D0.W)>                                 {}
            <MI 21404  MOVEA.L (A4+0x28),A0>                                    {}
            <MI 21408  MOVE.B  D0,(A0)>                                         {}
            <MI 2140a  MULS.W  #0x2a,D0>                                        {}
            <MI 2140e  LEA.L   0x209be,A0>                                      {}
            <Blob 0x21412 [40] (A0+D0.W+#0x28)>              Δ-40               {[«40»]}
            <POP 2141e-21420 StackAdj>                       Δ-4                {[«40»]|[-4-]}
            <Lit 0x21420>                                                       {[«40»]|[$$…]}
                <Pointer.sp 0x21420 4>                       Δ-4        
                <Const 0x21424 0x1.2>                        Δ-2        
                <Const 0x21426 0x28.2>                       Δ-2        
                <Call 0x2142a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21430-21432 StackAdj>                   Δ+8        
            <Call 0x21432 0x103e0>                                              {[«40»]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21438-2143c StackAdj>                       Δ+44               {}
        <POP 2143c-21444 Epilogue>                           Σ0         ←0x213ea

0x21444


@ 21444
        <LVAR  0x00c 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 @ 1(rw)>
        <LVAR -0x00a 1(r)>
        <LVAR -0x00e @>
        <LVAR -0x013 1(r)>
        <LVAR -0x014 @ 1(r)>
        <LVAR -0x015 1(r)>
        <LVAR -0x019 @>
        <LVAR -0x01d 1(r)>
        <LVAR -0x01e @ 1(r)>
        <LVAR -0x01f 1(w)>
        <LVAR -0x020 @ 1(w) 2(r)>
    <POP 21444-2197c Body>                                   Δ+40       
        <POP 21444-2145a Prologue>                           Σ0         ↓
        <POP 2145a-21470 RegCacheLoad>                       Σ0         ↓
        <POP 21470-21484 Naked>                              Σ0         ↓ →0x21486
            <MI 21470  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21474  CLR.L   (A0)>                                            {}
            <MI 21476  MOVEQ.L #0x00,D7>                                        {}
            <MI 21478  MOVE.W  0x22484,D0>                                      {}
            <MI 2147e  ANDI.W  #0x4000,D0>                                      {}
            <MI 21482  BEQ     0x21486>                                         {}
        <POP 21484-21486 Naked>                              Σ0         ↓
            <MI 21484  ADDQ.B  #0x1,D7>                                         {}
        <POP 21486-215a6 Naked>                              Σ0         ↓ →0x215c8 ←0x21470
            <MI 21486  MOVE.W  0x22486,D0>                                      {}
            <MI 2148c  ANDI.W  #0x3f00,D0>                                      {}
            <MI 21490  LSR.W   #0x8,D0>                                         {}
            <MI 21492  MOVE.B  D0,(A6-0x20)>                                    {}
            <MI 21494  MOVE.W  0x22486,D0>                                      {}
            <MI 2149a  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2149e  MOVE.B  D0,(A6-0x1f)>                                    {}
            <MI 214a2  MOVE.W  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <MI 214a4  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[#0]}
            <Pointer.fp 0x214a6 <LVAR -0x014 @ 1(r)>>        Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-20]}
            <Pointer.fp 0x214aa <LVAR -0x003 @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-20]|[@@-3]}
            <Call 0x214ae 0x22078>                                              {[2, '(A6-0x20)']|[#0]|[@@-20]|[@@-3]}
                exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 214b4-214b6 StackAdj>                       Δ+10               {[2, '(A6-0x20)']}
            <MI 214b6  MOVE.W  (A6-0x20),(A7)>                                  {[2, '(A6-0x20)']}
            <MI 214b8  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[#0]}
            <Pointer.fp 0x214ba <LVAR -0x01e @ 1(r)>>        Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-30]}
            <Pointer.fp 0x214be <LVAR -0x003 @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-30]|[@@-3]}
            <Call 0x214c2 0x220b4>                                              {[2, '(A6-0x20)']|[#0]|[@@-30]|[@@-3]}
                exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
            <POP 214c8-214ca StackAdj>                       Δ+12               {}
            <MI 214ca  MOVE.W  0x22488,D0>                                      {}
            <MI 214d0  ANDI.W  #0x3f00,D0>                                      {}
            <MI 214d4  LSR.W   #0x8,D0>                                         {}
            <MI 214d6  MOVE.B  D0,(A6-0x20)>                                    {}
            <MI 214d8  MOVE.W  0x22488,D0>                                      {}
            <MI 214de  ANDI.W  #0x00ff,D0>                                      {}
            <MI 214e2  MOVE.B  D0,(A6-0x1f)>                                    {}
            <MI 214e6  MOVE.W  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <MI 214e8  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[#0]}
            <Pointer.fp 0x214ea <LVAR -0x00e @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-14]}
            <Pointer.fp 0x214ee <LVAR -0x003 @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-14]|[@@-3]}
            <Call 0x214f2 0x22078>                                              {[2, '(A6-0x20)']|[#0]|[@@-14]|[@@-3]}
                exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 214f8-214fa StackAdj>                       Δ+10               {[2, '(A6-0x20)']}
            <MI 214fa  MOVE.W  (A6-0x20),(A7)>                                  {[2, '(A6-0x20)']}
            <MI 214fc  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[#0]}
            <Pointer.fp 0x214fe <LVAR -0x019 @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-25]}
            <Pointer.fp 0x21502 <LVAR -0x003 @>>             Δ-4                {[2, '(A6-0x20)']|[#0]|[@@-25]|[@@-3]}
            <Call 0x21506 0x220b4>                                              {[2, '(A6-0x20)']|[#0]|[@@-25]|[@@-3]}
                exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
            <POP 2150c-2150e StackAdj>                       Δ+10               {[2, '(A6-0x20)']}
            <MI 2150e  CLR.B   (A7)>                                            {[2, '(A6-0x20)']}
            <Pointer.fp 0x21510 <LVAR -0x008 @ 1(rw)>>       Δ-4                {[2, '(A6-0x20)']|[@@-8]}
            <Call 0x21512 0x22232>                                              {[2, '(A6-0x20)']|[@@-8]}
                exp_READ_PAREG.IOC(Sw_1, &Sr_1)
            <POP 21518-2151a StackAdj>                       Δ+4                {[2, '(A6-0x20)']}
            <MI 2151a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2151c 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 21520  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x21522 0x2.2>                            Δ-2                {[-2-]|[##4]|[#0]|[#2]}
            <MI 21524  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#2]}
            <Call 0x21526 0x213ae>                                              {[-2-]|[##4]|[#0]|[#2]}
            <POP 21528-2152a StackAdj>                       Δ+8                {[-2-]}
            <MI 2152a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2152c 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 21530  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x21532 0x3.2>                            Δ-2                {[-2-]|[##5]|[#0]|[#3]}
            <MI 21534  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#3]}
            <Call 0x21536 0x213ae>                                              {[-2-]|[##5]|[#0]|[#3]}
            <POP 21538-2153a StackAdj>                       Δ+8                {[-2-]}
            <MI 2153a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2153c 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 21540  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x21542 0x1.2>                            Δ-2                {[-2-]|[##6]|[#0]|[#1]}
            <MI 21544  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#1]}
            <Call 0x21546 0x213ae>                                              {[-2-]|[##6]|[#0]|[#1]}
            <POP 21548-2154a StackAdj>                       Δ+8                {[-2-]}
            <MI 2154a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2154c 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 21550  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <MI 21552  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]|[#0]}
            <MI 21554  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#0]}
            <Call 0x21556 0x213ae>                                              {[-2-]|[##7]|[#0]|[#0]}
            <POP 21558-2155a StackAdj>                       Δ+10               {}
            <Pointer.fp 0x2155a <LVAR -0x008 @ 1(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2155c 0x220d2>                                              {[@@-8]}
                exp_READ_PARITY.VAL(&Sr_1)
            <POP 21562-21564 StackAdj>                       Δ+2                {[-2-]}
            <MI 21564  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21566 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 2156a  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x2156c 0x4.2>                            Δ-2                {[-2-]|[##0]|[#0]|[#4]}
            <MI 21570  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#4]}
            <Call 0x21572 0x213ae>                                              {[-2-]|[##0]|[#0]|[#4]}
            <POP 21574-21576 StackAdj>                       Δ+8                {[-2-]}
            <MI 21576  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21578 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 2157c  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x2157e 0x5.2>                            Δ-2                {[-2-]|[##1]|[#0]|[#5]}
            <MI 21582  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#5]}
            <Call 0x21584 0x213ae>                                              {[-2-]|[##1]|[#0]|[#5]}
            <POP 21586-21588 StackAdj>                       Δ+8                {[-2-]}
            <MI 21588  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2158a 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 2158e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x21590 0x6.2>                            Δ-2                {[-2-]|[##3]|[#0]|[#6]}
            <MI 21594  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#6]}
            <Call 0x21596 0x213ae>                                              {[-2-]|[##3]|[#0]|[#6]}
            <POP 21598-2159a StackAdj>                       Δ+10               {}
            <MI 2159a  CLR.L   D0>                                              {}
            <MI 2159c  MOVE.B  (A6-0x1e),D0>                                    {}
            <MI 215a0  AND.W   #0x03,D0>                                        {}
            <MI 215a2  CMP.W   #0x01,D0>                                        {}
            <MI 215a4  BNE     0x215c8>                                         {}
        <POP 215a6-215b6 Naked>                              Σ0         ↓ →0x215c8
            <MI 215a6  CLR.L   D0>                                              {}
            <MI 215a8  MOVE.B  (A6-0x1d),D0>                                    {}
            <MI 215ac  ANDI.W  #0x00f0,D0>                                      {}
            <MI 215b0  CMPI.W  #0x0060,D0>                                      {}
            <MI 215b4  BNE     0x215c8>                                         {}
        <POP 215b6-215ba Naked>                              Σ0         ↓ →0x215c8
            <MI 215b6  TST.B   D7>                                              {}
            <MI 215b8  BNE     0x215c8>                                         {}
        <POP 215ba-215c8 Naked>                              Σ0 Δ-10    →0x215d4
            <MI 215ba  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Const 0x215bc 0x2.4>                            Δ-4                {[2, '(A6-0x8)']|[##2]}
            <MI 215c0  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]}
            <Const 0x215c2 0x8.2>                            Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]|[#8]}
            <MI 215c6  BRA     0x215d4>                                         {[2, '(A6-0x8)']|[##2]|[#0]|[#8]}
        <POP 215c8-215d4 Naked>                              Σ0 Δ-10    ↓ ←0x21486 ←0x215a6 ←0x215b6
            <MI 215c8  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Const 0x215ca 0x2.4>                            Δ-4                {[2, '(A6-0x8)']|[##2]}
            <MI 215ce  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]}
            <Const 0x215d0 0x7.2>                            Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]|[#7]}
        <POP 215d4-215e6 Naked>                              Σ-10 Δ+10  ↓ →0x2160e ←0x215ba
            <MI 215d4  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x215d6 0x213ae>                                              {[-10-]}
            <POP 215d8-215da StackAdj>                       Δ+10               {}
            <MI 215da  CLR.L   D0>                                              {}
            <MI 215dc  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 215de  MOVE.W  D0,D1>                                           {}
            <MI 215e0  ANDI.W  #0x0004,D1>                                      {}
            <MI 215e4  BEQ     0x2160e>                                         {}
        <POP 215e6-215f0 Naked>                              Σ0         ↓ →0x215fe
            <MI 215e6  CLR.L   D1>                                              {}
            <MI 215e8  MOVE.B  (A6-0x15),D1>                                    {}
            <MI 215ec  AND.W   #0x02,D1>                                        {}
            <MI 215ee  BNE     0x215fe>                                         {}
        <POP 215f0-215fe Naked>                              Σ0 Δ-10    →0x21608
            <MI 215f0  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x215f2 0x4.4>                            Δ-4                {[2, 'D0']|[##4]}
            <Const 0x215f6 0x1.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]}
            <Const 0x215f8 0x9.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]|[#9]}
            <MI 215fc  BRA     0x21608>                                         {[2, 'D0']|[##4]|[#1]|[#9]}
        <POP 215fe-21608 Naked>                              Σ0 Δ-10    ↓ ←0x215e6
            <MI 215fe  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x21600 0x4.4>                            Δ-4                {[2, 'D0']|[##4]}
            <Const 0x21604 0x1.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]}
            <Const 0x21606 0xa.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]|[#10]}
        <POP 21608-2160e Naked>                              Σ-10 Δ+10  ↓ ←0x215f0
            <MI 21608  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x2160a 0x213ae>                                              {[-10-]}
            <POP 2160c-2160e StackAdj>                       Δ+10               {}
        <POP 2160e-21658 Naked>                              Σ0         ↓ →0x2167a ←0x215d4
            <Pointer.fp 0x2160e <LVAR -0x008 @ 1(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21610 0x22096>                                              {[@@-8]}
                exp_READ_PARITY.TYP(&Sr_1)
            <POP 21616-21618 StackAdj>                       Δ+2                {[-2-]}
            <MI 21618  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2161a 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 2161e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x21620 0xb.2>                            Δ-2                {[-2-]|[##0]|[#0]|[#11]}
            <MI 21624  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#11]}
            <Call 0x21626 0x213ae>                                              {[-2-]|[##0]|[#0]|[#11]}
            <POP 21628-2162a StackAdj>                       Δ+8                {[-2-]}
            <MI 2162a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2162c 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 21630  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x21632 0xc.2>                            Δ-2                {[-2-]|[##1]|[#0]|[#12]}
            <MI 21634  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#12]}
            <Call 0x21636 0x213ae>                                              {[-2-]|[##1]|[#0]|[#12]}
            <POP 21638-2163a StackAdj>                       Δ+8                {[-2-]}
            <MI 2163a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2163c 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 21640  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x21642 0xd.2>                            Δ-2                {[-2-]|[##3]|[#0]|[#13]}
            <MI 21646  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#13]}
            <Call 0x21648 0x213ae>                                              {[-2-]|[##3]|[#0]|[#13]}
            <POP 2164a-2164c StackAdj>                       Δ+10               {}
            <MI 2164c  CLR.L   D0>                                              {}
            <MI 2164e  MOVE.B  (A6-0x14),D0>                                    {}
            <MI 21652  AND.W   #0x03,D0>                                        {}
            <MI 21654  CMP.W   #0x01,D0>                                        {}
            <MI 21656  BNE     0x2167a>                                         {}
        <POP 21658-21668 Naked>                              Σ0         ↓ →0x2167a
            <MI 21658  CLR.L   D0>                                              {}
            <MI 2165a  MOVE.B  (A6-0x13),D0>                                    {}
            <MI 2165e  ANDI.W  #0x00f0,D0>                                      {}
            <MI 21662  CMPI.W  #0x0060,D0>                                      {}
            <MI 21666  BNE     0x2167a>                                         {}
        <POP 21668-2166c Naked>                              Σ0         ↓ →0x2167a
            <MI 21668  TST.B   D7>                                              {}
            <MI 2166a  BNE     0x2167a>                                         {}
        <POP 2166c-2167a Naked>                              Σ0 Δ-10    →0x21686
            <MI 2166c  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Const 0x2166e 0x2.4>                            Δ-4                {[2, '(A6-0x8)']|[##2]}
            <MI 21672  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]}
            <Const 0x21674 0xf.2>                            Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]|[#15]}
            <MI 21678  BRA     0x21686>                                         {[2, '(A6-0x8)']|[##2]|[#0]|[#15]}
        <POP 2167a-21686 Naked>                              Σ0 Δ-10    ↓ ←0x2160e ←0x21658 ←0x21668
            <MI 2167a  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Const 0x2167c 0x2.4>                            Δ-4                {[2, '(A6-0x8)']|[##2]}
            <MI 21680  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]}
            <Const 0x21682 0xe.2>                            Δ-2                {[2, '(A6-0x8)']|[##2]|[#0]|[#14]}
        <POP 21686-21696 Naked>                              Σ-10 Δ+10  ↓ →0x216c0 ←0x2166c
            <MI 21686  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x21688 0x213ae>                                              {[-10-]}
            <POP 2168a-2168c StackAdj>                       Δ+10               {}
            <MI 2168c  CLR.L   D0>                                              {}
            <MI 2168e  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 21690  MOVE.W  D0,D1>                                           {}
            <MI 21692  AND.W   #0x02,D1>                                        {}
            <MI 21694  BEQ     0x216c0>                                         {}
        <POP 21696-216a0 Naked>                              Σ0         ↓ →0x216ae
            <MI 21696  CLR.L   D1>                                              {}
            <MI 21698  MOVE.B  (A6-0xa),D1>                                     {}
            <MI 2169c  AND.W   #0x01,D1>                                        {}
            <MI 2169e  BNE     0x216ae>                                         {}
        <POP 216a0-216ae Naked>                              Σ0 Δ-10    →0x216ba
            <MI 216a0  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x216a2 0x5.4>                            Δ-4                {[2, 'D0']|[##5]}
            <Const 0x216a6 0x1.2>                            Δ-2                {[2, 'D0']|[##5]|[#1]}
            <Const 0x216a8 0x10.2>                           Δ-2                {[2, 'D0']|[##5]|[#1]|[#16]}
            <MI 216ac  BRA     0x216ba>                                         {[2, 'D0']|[##5]|[#1]|[#16]}
        <POP 216ae-216ba Naked>                              Σ0 Δ-10    ↓ ←0x21696
            <MI 216ae  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x216b0 0x5.4>                            Δ-4                {[2, 'D0']|[##5]}
            <Const 0x216b4 0x1.2>                            Δ-2                {[2, 'D0']|[##5]|[#1]}
            <Const 0x216b6 0x11.2>                           Δ-2                {[2, 'D0']|[##5]|[#1]|[#17]}
        <POP 216ba-216c0 Naked>                              Σ-10 Δ+10  ↓ ←0x216a0
            <MI 216ba  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x216bc 0x213ae>                                              {[-10-]}
            <POP 216be-216c0 StackAdj>                       Δ+10               {}
        <POP 216c0-217f0 Naked>                              Σ0         ↓ →0x21842 ←0x21686
            <Pointer.fp 0x216c0 <LVAR -0x008 @ 1(rw)>>       Δ-4                {[@@-8]}
            <Call 0x216c2 0x22056>                                              {[@@-8]}
                exp_GET_MISC_ERRORS.SEQ(&Sr_1)
            <POP 216c8-216ca StackAdj>                       Δ+2                {[-2-]}
            <MI 216ca  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x216cc 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 216d0  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x216d2 0x12.2>                           Δ-2                {[-2-]|[##3]|[#0]|[#18]}
            <MI 216d6  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#18]}
            <Call 0x216d8 0x213ae>                                              {[-2-]|[##3]|[#0]|[#18]}
            <POP 216da-216dc StackAdj>                       Δ+8                {[-2-]}
            <MI 216dc  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x216de 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 216e2  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x216e4 0x13.2>                           Δ-2                {[-2-]|[##4]|[#0]|[#19]}
            <MI 216e8  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#19]}
            <Call 0x216ea 0x213ae>                                              {[-2-]|[##4]|[#0]|[#19]}
            <POP 216ec-216ee StackAdj>                       Δ+8                {[-2-]}
            <MI 216ee  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x216f0 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 216f4  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x216f6 0x14.2>                           Δ-2                {[-2-]|[##5]|[#0]|[#20]}
            <MI 216fa  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#20]}
            <Call 0x216fc 0x213ae>                                              {[-2-]|[##5]|[#0]|[#20]}
            <POP 216fe-21700 StackAdj>                       Δ+8                {[-2-]}
            <MI 21700  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21702 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 21706  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x21708 0x15.2>                           Δ-2                {[-2-]|[##6]|[#0]|[#21]}
            <MI 2170c  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#21]}
            <Call 0x2170e 0x213ae>                                              {[-2-]|[##6]|[#0]|[#21]}
            <POP 21710-21712 StackAdj>                       Δ+8                {[-2-]}
            <MI 21712  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21714 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 21718  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <Const 0x2171a 0x16.2>                           Δ-2                {[-2-]|[##7]|[#0]|[#22]}
            <MI 2171e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#22]}
            <Call 0x21720 0x213ae>                                              {[-2-]|[##7]|[#0]|[#22]}
            <POP 21722-21724 StackAdj>                       Δ+10               {}
            <Pointer.fp 0x21724 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-2]}
            <Call 0x21728 0x22040>                                              {[@@-2]}
                exp_HALT.SEQ(&Fr)
            <POP 2172e-21730 StackAdj>                       Δ+4                {}
            <MI 21730  MOVE.B  (A6-0x2),(A6-0x8)>                               {}
            <MI 21734  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Const 0x21736 0x7.4>                            Δ-4                {[2, '(A6-0x8)']|[##7]}
            <Const 0x2173a 0x1.2>                            Δ-2                {[2, '(A6-0x8)']|[##7]|[#1]}
            <Const 0x2173c 0x17.2>                           Δ-2                {[2, '(A6-0x8)']|[##7]|[#1]|[#23]}
            <MI 21740  LEA.L   (A6-0x20),A4>                                    {[2, '(A6-0x8)']|[##7]|[#1]|[#23]}
            <Call 0x21742 0x213ae>                                              {[2, '(A6-0x8)']|[##7]|[#1]|[#23]}
            <POP 21744-21746 StackAdj>                       Δ+8                {[2, '(A6-0x8)']}
            <MI 21746  CLR.B   (A7)>                                            {[2, '(A6-0x8)']}
            <Pointer.fp 0x21748 <LVAR -0x008 @ 1(rw)>>       Δ-4                {[2, '(A6-0x8)']|[@@-8]}
            <Call 0x2174a 0x22022>                                              {[2, '(A6-0x8)']|[@@-8]}
                exp_READ_PAREG.FIU(Sw_1, &Sr_1)
            <POP 21750-21752 StackAdj>                       Δ+4                {[2, '(A6-0x8)']}
            <MI 21752  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21754 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 21758  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x2175a 0x18.2>                           Δ-2                {[-2-]|[##0]|[#0]|[#24]}
            <MI 2175e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#24]}
            <Call 0x21760 0x213ae>                                              {[-2-]|[##0]|[#0]|[#24]}
            <POP 21762-21764 StackAdj>                       Δ+8                {[-2-]}
            <MI 21764  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21766 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 2176a  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x2176c 0x19.2>                           Δ-2                {[-2-]|[##1]|[#0]|[#25]}
            <MI 21770  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#25]}
            <Call 0x21772 0x213ae>                                              {[-2-]|[##1]|[#0]|[#25]}
            <POP 21774-21776 StackAdj>                       Δ+8                {[-2-]}
            <MI 21776  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x21778 0x2.4>                            Δ-4                {[-2-]|[##2]}
            <MI 2177c  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##2]|[#0]}
            <Const 0x2177e 0x1a.2>                           Δ-2                {[-2-]|[##2]|[#0]|[#26]}
            <MI 21782  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##2]|[#0]|[#26]}
            <Call 0x21784 0x213ae>                                              {[-2-]|[##2]|[#0]|[#26]}
            <POP 21786-21788 StackAdj>                       Δ+8                {[-2-]}
            <MI 21788  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2178a 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 2178e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x21790 0x1b.2>                           Δ-2                {[-2-]|[##3]|[#0]|[#27]}
            <MI 21794  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#27]}
            <Call 0x21796 0x213ae>                                              {[-2-]|[##3]|[#0]|[#27]}
            <POP 21798-2179a StackAdj>                       Δ+8                {[-2-]}
            <MI 2179a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2179c 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 217a0  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x217a2 0x1c.2>                           Δ-2                {[-2-]|[##4]|[#0]|[#28]}
            <MI 217a6  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#28]}
            <Call 0x217a8 0x213ae>                                              {[-2-]|[##4]|[#0]|[#28]}
            <POP 217aa-217ac StackAdj>                       Δ+8                {[-2-]}
            <MI 217ac  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x217ae 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 217b2  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x217b4 0x1d.2>                           Δ-2                {[-2-]|[##5]|[#0]|[#29]}
            <MI 217b8  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#29]}
            <Call 0x217ba 0x213ae>                                              {[-2-]|[##5]|[#0]|[#29]}
            <POP 217bc-217be StackAdj>                       Δ+8                {[-2-]}
            <MI 217be  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x217c0 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 217c4  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x217c6 0x1e.2>                           Δ-2                {[-2-]|[##6]|[#0]|[#30]}
            <MI 217ca  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#30]}
            <Call 0x217cc 0x213ae>                                              {[-2-]|[##6]|[#0]|[#30]}
            <POP 217ce-217d0 StackAdj>                       Δ+8                {[-2-]}
            <MI 217d0  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x217d2 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 217d6  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <Const 0x217d8 0x1f.2>                           Δ-2                {[-2-]|[##7]|[#0]|[#31]}
            <MI 217dc  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#31]}
            <Call 0x217de 0x213ae>                                              {[-2-]|[##7]|[#0]|[#31]}
            <POP 217e0-217e2 StackAdj>                       Δ+6                {[-2-]|[-2-]}
            <POP 217e2-217e3 StackAdj>                       Δ+2                {[-2-]}
            <Const 0x217e3 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x217e4 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 217ea-217ec StackAdj>                       Δ+2                {[-2-]}
            <MI 217ec  TST.B   (A7)+>                        Δ+2                {}
            <MI 217ee  BEQ     0x21842>                                         {}
        <POP 217f0-21842 Naked>                              Σ0         ↓
            <Const 0x217f0 0xc.2>                            Δ-2                {[#12]}
            <Pointer.fp 0x217f2 <LVAR -0x007 @ 1(r)>>        Δ-4                {[#12]|[@@-7]}
            <Pointer.fp 0x217f6 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#12]|[@@-7]|[@@-6]}
            <Pointer.fp 0x217fa <LVAR -0x005 @ 1(r)>>        Δ-4                {[#12]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x217fe 0x22110>                                              {[#12]|[@@-7]|[@@-6]|[@@-5]}
            <POP 21804-21806 StackAdj>                       Δ+12               {[#12]}
            <MI 21806  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x2180a 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x2180e 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21810 0x20.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#32]}
            <MI 21814  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#32]}
            <Call 0x21816 0x213ae>                                              {[-2-]|[##7]|[#1]|[#32]}
            <POP 21818-2181a StackAdj>                       Δ+8                {[-2-]}
            <MI 2181a  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x2181e 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21822 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21824 0x21.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#33]}
            <MI 21828  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#33]}
            <Call 0x2182a 0x213ae>                                              {[-2-]|[##7]|[#1]|[#33]}
            <POP 2182c-2182e StackAdj>                       Δ+8                {[-2-]}
            <MI 2182e  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21832 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21836 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21838 0x22.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#34]}
            <MI 2183c  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#34]}
            <Call 0x2183e 0x213ae>                                              {[-2-]|[##7]|[#1]|[#34]}
            <POP 21840-21842 StackAdj>                       Δ+10               {}
        <POP 21842-21854 Naked>                              Σ0         ↓ →0x218a8 ←0x216c0
            <POP 21842-21844 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21844 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x21848 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2184e-21850 StackAdj>                       Δ+2                {[-2-]}
            <MI 21850  TST.B   (A7)+>                        Δ+2                {}
            <MI 21852  BEQ     0x218a8>                                         {}
        <POP 21854-218a8 Naked>                              Σ0         ↓
            <Const 0x21854 0xd.2>                            Δ-2                {[#13]}
            <Pointer.fp 0x21858 <LVAR -0x007 @ 1(r)>>        Δ-4                {[#13]|[@@-7]}
            <Pointer.fp 0x2185c <LVAR -0x006 @ 1(r)>>        Δ-4                {[#13]|[@@-7]|[@@-6]}
            <Pointer.fp 0x21860 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#13]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x21864 0x22110>                                              {[#13]|[@@-7]|[@@-6]|[@@-5]}
            <POP 2186a-2186c StackAdj>                       Δ+12               {[#13]}
            <MI 2186c  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x21870 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21874 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21876 0x23.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#35]}
            <MI 2187a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#35]}
            <Call 0x2187c 0x213ae>                                              {[-2-]|[##7]|[#1]|[#35]}
            <POP 2187e-21880 StackAdj>                       Δ+8                {[-2-]}
            <MI 21880  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x21884 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21888 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2188a 0x24.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#36]}
            <MI 2188e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#36]}
            <Call 0x21890 0x213ae>                                              {[-2-]|[##7]|[#1]|[#36]}
            <POP 21892-21894 StackAdj>                       Δ+8                {[-2-]}
            <MI 21894  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21898 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x2189c 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2189e 0x25.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#37]}
            <MI 218a2  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#37]}
            <Call 0x218a4 0x213ae>                                              {[-2-]|[##7]|[#1]|[#37]}
            <POP 218a6-218a8 StackAdj>                       Δ+10               {}
        <POP 218a8-218ba Naked>                              Σ0         ↓ →0x2190e ←0x21842
            <POP 218a8-218aa StackAdj>                       Δ-2                {[-2-]}
            <Const 0x218aa 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x218ae 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 218b4-218b6 StackAdj>                       Δ+2                {[-2-]}
            <MI 218b6  TST.B   (A7)+>                        Δ+2                {}
            <MI 218b8  BEQ     0x2190e>                                         {}
        <POP 218ba-2190e Naked>                              Σ0         ↓
            <Const 0x218ba 0xe.2>                            Δ-2                {[#14]}
            <Pointer.fp 0x218be <LVAR -0x007 @ 1(r)>>        Δ-4                {[#14]|[@@-7]}
            <Pointer.fp 0x218c2 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#14]|[@@-7]|[@@-6]}
            <Pointer.fp 0x218c6 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#14]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x218ca 0x22110>                                              {[#14]|[@@-7]|[@@-6]|[@@-5]}
            <POP 218d0-218d2 StackAdj>                       Δ+12               {[#14]}
            <MI 218d2  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x218d6 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x218da 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x218dc 0x26.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#38]}
            <MI 218e0  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#38]}
            <Call 0x218e2 0x213ae>                                              {[-2-]|[##7]|[#1]|[#38]}
            <POP 218e4-218e6 StackAdj>                       Δ+8                {[-2-]}
            <MI 218e6  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x218ea 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x218ee 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x218f0 0x27.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#39]}
            <MI 218f4  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#39]}
            <Call 0x218f6 0x213ae>                                              {[-2-]|[##7]|[#1]|[#39]}
            <POP 218f8-218fa StackAdj>                       Δ+8                {[-2-]}
            <MI 218fa  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x218fe 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21902 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21904 0x28.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#40]}
            <MI 21908  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#40]}
            <Call 0x2190a 0x213ae>                                              {[-2-]|[##7]|[#1]|[#40]}
            <POP 2190c-2190e StackAdj>                       Δ+10               {}
        <POP 2190e-21920 Naked>                              Σ0         ↓ →0x21974 ←0x218a8
            <POP 2190e-21910 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21910 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x21914 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2191a-2191c StackAdj>                       Δ+2                {[-2-]}
            <MI 2191c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2191e  BEQ     0x21974>                                         {}
        <POP 21920-21974 Naked>                              Σ0         ↓
            <Const 0x21920 0xf.2>                            Δ-2                {[#15]}
            <Pointer.fp 0x21924 <LVAR -0x007 @ 1(r)>>        Δ-4                {[#15]|[@@-7]}
            <Pointer.fp 0x21928 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#15]|[@@-7]|[@@-6]}
            <Pointer.fp 0x2192c <LVAR -0x005 @ 1(r)>>        Δ-4                {[#15]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x21930 0x22110>                                              {[#15]|[@@-7]|[@@-6]|[@@-5]}
            <POP 21936-21938 StackAdj>                       Δ+12               {[#15]}
            <MI 21938  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x2193c 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21940 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21942 0x29.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#41]}
            <MI 21946  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#41]}
            <Call 0x21948 0x213ae>                                              {[-2-]|[##7]|[#1]|[#41]}
            <POP 2194a-2194c StackAdj>                       Δ+8                {[-2-]}
            <MI 2194c  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x21950 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21954 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21956 0x2a.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#42]}
            <MI 2195a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#42]}
            <Call 0x2195c 0x213ae>                                              {[-2-]|[##7]|[#1]|[#42]}
            <POP 2195e-21960 StackAdj>                       Δ+8                {[-2-]}
            <MI 21960  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21964 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21968 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2196a 0x2b.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#43]}
            <MI 2196e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#43]}
            <Call 0x21970 0x213ae>                                              {[-2-]|[##7]|[#1]|[#43]}
            <POP 21972-21974 StackAdj>                       Δ+10               {}
        <POP 21974-2197c Epilogue>                           Σ0         ←0x2190e

0x2197c


@ 2197c
        <LVAR  0x012 1(rw)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 2197c-21a28 Body>                                              
        <POP 2197c-21992 Prologue>                           Σ0         ↓
        <POP 21992-219a0 RegCacheLoad>                       Σ0         ↓
        <POP 219a0-219a2 Naked>                              Σ0         ↓
            <MI 219a0  MOVEQ.L #0x01,D7>                                        {}
        <POP 219a2-219b0 Naked>                              Σ0         ↓ →0x219a2 ←0x219a2
            <MI 219a2  MOVE.B  D7,D0>                                           {}
            <MI 219a4  EXTB.W  D0>                                              {}
            <MI 219a6  CLR.B   (A6+D0.W-#0xc)>                                  {}
            <MI 219aa  ADDQ.B  #0x1,D7>                                         {}
            <MI 219ac  CMP.B   #0x0b,D7>                                        {}
            <MI 219ae  BLE     0x219a2>                                         {}
        <POP 219b0-219b6 Naked>                              Σ0         ↓ →0x219ba
            <MI 219b0  TST.L   (A6+0xa)>                                        {}
            <MI 219b4  BNE     0x219ba>                                         {}
        <POP 219b6-219ba Naked>                              Σ0         →0x21a20
            <MI 219b6  CLR.B   (A6+0x12)>                                       {}
            <MI 219b8  BRA     0x21a20>                                         {}
        <POP 219ba-219c2 Naked>                              Σ0         ↓ →0x219d2 ←0x219b0
            <MI 219ba  MOVE.L  (A6+0xa),D0>                                     {}
            <MI 219be  CMP.L   #0x01,D0>                                        {}
            <MI 219c0  BNE     0x219d2>                                         {}
        <POP 219c2-219d2 Naked>                              Σ0         →0x21a20
            <MI 219c2  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 219c6  EXTB.W  D0>                                              {}
            <MI 219c8  MULS.W  #0x2a,D0>                                        {}
            <MI 219ca  LEA.L   0x209be,A0>                                      {}
            <MI 219cc  MOVE.B  (A0+D0.W+#0x29),(A6+0x12)>                       {}
            <MI 219d0  BRA     0x21a20>                                         {}
        <POP 219d2-219d4 Naked>                              Σ0         ↓ ←0x219ba
            <MI 219d2  MOVEQ.L #0x04,D6>                                        {}
        <POP 219d4-21a0a Naked>                              Σ0         ↓ →0x219d4 ←0x219d4
            <MI 219d4  MOVE.B  D6,D0>                                           {}
            <MI 219d6  EXTB.W  D0>                                              {}
            <MI 219d8  MULS.W  #0x2a,D0>                                        {}
            <MI 219da  LEA.L   0x209be,A0>                                      {}
            <MI 219dc  MOVE.B  (A0+D0.W+#0x29),D1>                              {}
            <MI 219e0  EXTB.W  D1>                                              {}
            <MI 219e2  LEA.L   0x209be,A0>                                      {}
            <MI 219e4  MOVE.B  (A0+D0.W+#0x29),D2>                              {}
            <MI 219e8  EXTB.W  D2>                                              {}
            <MI 219ea  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 219ee  MOVE.B  D6,D0>                                           {}
            <MI 219f0  EXTB.W  D0>                                              {}
            <MI 219f2  MOVE.B  (A6+D2.W-#0xc),D2>                               {}
            <MI 219f6  OR.B    (A0+D0.W),D2>                                    {}
            <MI 219fa  EXTB.W  D2>                                              {}
            <POP 0x219fc LimitCheck 0x0 ≤ D2 ≤ 0x1>                             {}
            <MI 219fe  MOVE.B  D2,(A6+D1.W-#0xc)>                               {}
            <MI 21a02  ADDQ.B  #0x1,D6>                                         {}
            <MI 21a04  CMPI.B  #0x2b,D6>                                        {}
            <MI 21a08  BLE     0x219d4>                                         {}
        <POP 21a0a-21a0c Naked>                              Σ0         ↓
            <MI 21a0a  MOVEQ.L #0x01,D7>                                        {}
        <POP 21a0c-21a16 Naked>                              Σ0         ↓ →0x21a1a ←0x21a1a
            <MI 21a0c  MOVE.B  D7,D0>                                           {}
            <MI 21a0e  EXTB.W  D0>                                              {}
            <MI 21a10  TST.B   (A6+D0.W-#0xc)>                                  {}
            <MI 21a14  BEQ     0x21a1a>                                         {}
        <POP 21a16-21a1a Naked>                              Σ0         →0x21a20
            <MI 21a16  MOVE.B  D7,(A6+0x12)>                                    {}
            <MI 21a18  BRA     0x21a20>                                         {}
        <POP 21a1a-21a20 Naked>                              Σ0         ↓ →0x21a0c ←0x21a0c
            <MI 21a1a  ADDQ.B  #0x1,D7>                                         {}
            <MI 21a1c  CMP.B   #0x0b,D7>                                        {}
            <MI 21a1e  BLE     0x21a0c>                                         {}
        <POP 21a20-21a28 Epilogue>                           Σ0         ←0x219b6 ←0x219c2 ←0x21a16

0x21a28


@ 21a28
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 21a28-21a7a Body>                                              
        <POP 21a28-21a3e Prologue>                           Σ0         ↓
        <POP 21a3e-21a40 RegCacheLoad>                       Σ0         ↓
        <POP 21a40-21a72 Naked>                              Σ0         ↓
            <MI 21a40  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21a44  EXTB.W  D0>                                              {}
            <MI 21a46  MULS.W  #0x1e,D0>                                        {}
            <MI 21a48  LEA.L   0x21106,A0>                                      {}
            <Blob 0x21a4c [30] (A0+D0.W+#0x1e)>              Δ-30               {[«30»]}
            <POP 21a58-21a5a StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x21a5a>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x21a5a 4>                       Δ-4        
                <Const 0x21a5e 0x1.2>                        Δ-2        
                <Const 0x21a62 0x1e.2>                       Δ-2        
                <Call 0x21a64 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21a6a-21a6c StackAdj>                   Δ+8        
            <MI 21a6c  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«30»]}
            <POP 21a70-21a72 StackAdj>                       Δ+30               {}
        <POP 21a72-21a7a Epilogue>                           Σ0         

0x21a7a


@ 21a7a
        <LVAR  0x03a 4(w)>
        <LVAR  0x036 4(w)>
        <LVAR  0x008 1(r)>
        <LVAR -0x00a 4(r)>
        <LVAR -0x00e 4(r)>
    <POP 21a7a-21b40 Body>                                              
        <POP 21a7a-21a90 Prologue>                           Σ0         ↓
        <POP 21a90-21a96 RegCacheLoad>                       Σ0         ↓
        <POP 21a96-21a98 Naked>                              Σ0         ↓
            <MI 21a96  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a98-21aa8 Naked>                              Σ0         ↓ →0x21a98 ←0x21a98
            <POP 0x21a98 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 21a9e  CLR.B   (A6+D7.L-#0xe)>                                  {}
            <MI 21aa2  ADDQ.L  #0x1,D7>                                         {}
            <MI 21aa4  CMP.L   #0x07,D7>                                        {}
            <MI 21aa6  BLE     0x21a98>                                         {}
        <POP 21aa8-21aae Naked>                              Σ0         ↓
            <MI 21aa8  MOVEQ.L #0x00,D7>                                        {}
            <MI 21aaa  MOVEQ.L #0x0f,D6>                                        {}
            <MI 21aac  MOVEQ.L #0x04,D5>                                        {}
        <POP 21aae-21ab8 Naked>                              Σ0         ↓ →0x21b24 ←0x21b24
            <MI 21aae  MOVE.B  D5,D0>                                           {}
            <MI 21ab0  EXTB.W  D0>                                              {}
            <MI 21ab2  TST.B   (A6+D0.W+#0xa)>                                  {}
            <MI 21ab6  BEQ     0x21b24>                                         {}
        <POP 21ab8-21acc Naked>                              Σ0         ↓ →0x21b24
            <MI 21ab8  MOVE.B  D5,D0>                                           {}
            <MI 21aba  EXTB.W  D0>                                              {}
            <MI 21abc  MULS.W  #0x2a,D0>                                        {}
            <MI 21ac0  LEA.L   0x209be,A0>                                      {}
            <MI 21ac2  MOVE.B  (A6+0x8),D1>                                     {}
            <MI 21ac6  CMP.B   (A0+D0.W+#0x29),D1>                              {}
            <MI 21aca  BNE     0x21b24>                                         {}
        <POP 21acc-21ad4 Naked>                              Σ0         ↓ →0x21b24
            <MI 21acc  LEA.L   0x209be,A0>                                      {}
            <MI 21ace  CMP.B   (A0+D0.W+#0x28),D6>                              {}
            <MI 21ad2  BEQ     0x21b24>                                         {}
        <POP 21ad4-21ad8 Naked>                              Σ0         ↓ →0x21b0e
            <MI 21ad4  CMP.L   #0x07,D7>                                        {}
            <MI 21ad6  BLE     0x21b0e>                                         {}
        <POP 21ad8-21b0e Naked>                              Σ0         ↓
            <Blob 0x21ad8 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21aea 0xe.2>                            Δ-2                {[«24""»]|[#14]}
            <POP 21aee-21af0 StackAdj>                       Δ-4                {[«24""»]|[#14]|[-4-]}
            <Lit 0x21af0 23>                                                    {[«24""»]|[#14]|[$$Too many boards failed.]}
            <Call 0x21b04 0x103b8>                                              {[«24""»]|[#14]|[$$Too many boards failed.]}
                PopProgram(status : Byte; msg : String)
            <POP 21b0a-21b0e StackAdj>                       Δ+30               {}
        <POP 21b0e-21b24 Naked>                              Σ0         ↓ ←0x21ad4
            <POP 0x21b0e LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 21b14  LEA.L   0x209be,A0>                                      {}
            <MI 21b16  MOVE.B  (A0+D0.W+#0x28),(A6+D7.L-#0xe)>                  {}
            <MI 21b1c  LEA.L   0x209be,A0>                                      {}
            <MI 21b1e  MOVE.B  (A0+D0.W+#0x28),D6>                              {}
            <MI 21b22  ADDQ.L  #0x1,D7>                                         {}
        <POP 21b24-21b2c Naked>                              Σ0         ↓ →0x21aae ←0x21aae ←0x21ab8 ←0x21acc
            <MI 21b24  ADDQ.B  #0x1,D5>                                         {}
            <MI 21b26  CMPI.B  #0x2b,D5>                                        {}
            <MI 21b2a  BLE     0x21aae>                                         {}
        <POP 21b2c-21b38 Naked>                              Σ0         ↓
            <MI 21b2c  MOVE.L  (A6-0xe),(A6+0x36)>                              {}
            <MI 21b32  MOVE.L  (A6-0xa),(A6+0x3a)>                              {}
        <POP 21b38-21b40 Epilogue>                           Σ0         

0x21b40


@ 21b40
        <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)>
        <LVAR -0x004 @ 1(r)>
    <POP 21b40-21cc6 Body>                                              
        <POP 21b40-21b56 Prologue>                           Σ0         ↓
        <POP 21b56-21b60 RegCacheLoad>                       Σ0         ↓
        <POP 21b60-21b6a Naked>                              Σ0         ↓ →0x21b76
            <MI 21b60  MOVE.B  (A6+0x24),D0>                                    {}
            <MI 21b64  CMPI.B  #0x03,D0>                                        {}
            <MI 21b68  BEQ     0x21b76>                                         {}
        <POP 21b6a-21b70 Naked>                              Σ0         ↓ →0x21b76
            <MI 21b6a  CMPI.B  #0x04,D0>                                        {}
            <MI 21b6e  BEQ     0x21b76>                                         {}
        <POP 21b70-21b76 Naked>                              Σ0         ↓ →0x21b9a
            <MI 21b70  CMPI.B  #0x05,D0>                                        {}
            <MI 21b74  BNE     0x21b9a>                                         {}
        <POP 21b76-21b9a Naked>                              Σ0         →0x21b9c ←0x21b60 ←0x21b6a
            <Blob 0x21b76 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21b7a [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21b7e [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21b82-21b84 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21b84 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]}
            <MI 21b94  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21b96-21b98 StackAdj>                       Δ+6                {}
            <MI 21b98  BRA     0x21b9c>                                         {}
        <POP 21b9a-21b9c Naked>                              Σ0         ↓ ←0x21b70
            <MI 21b9a  MOVEA.W #0x01,A4>                                        {}
        <POP 21b9c-21ba2 Naked>                              Σ0         ↓ →0x21ba4 ←0x21b76
            <MI 21b9c  MOVEQ.L #0x00,D7>                                        {}
            <MI 21b9e  CMPA.W  #0x01,A4>                                        {}
            <MI 21ba0  BEQ     0x21ba4>                                         {}
        <POP 21ba2-21ba4 Naked>                              Σ0         ↓
            <MI 21ba2  ADDQ.B  #0x1,D7>                                         {}
        <POP 21ba4-21baa Naked>                              Σ0         ↓ →0x21c66 ←0x21b9c
            <MI 21ba4  TST.B   D7>                                              {}
            <MI 21ba6  BEQ     0x21c66>                                         {}
        <POP 21baa-21bfa Naked>                              Σ0         ↓ →0x21c08
            <Call 0x21baa 0x10538>                                              {}
                IPC_Init(void)
            <MI 21bb0  EXTB.W  D0>                                              {}
            <MI 21bb2  EXTW.L  D0>                                              {}
            <MI 21bb4  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <Call 0x21bb6 0x1050e>                                              {[4, 'D0']}
                IPC_PutLong(a : L)
            <MI 21bbc  MOVE.L  (A6+0x20),(A7)>                                  {[4, '(A6+0x20)']}
            <MI 21bc0  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[4, '(A6+0x20)']|[4, '(A6+0x1c)']}
            <MI 21bc4  PEA.L   (A7)>                         Δ-4                {[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[4, '^(A7)']}
            <Const 0x21bc6 0x0.4>                            Δ-4                {[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[4, '^(A7)']|[##0]}
            <Const 0x21bc8 0x7.4>                            Δ-4                {[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[4, '^(A7)']|[##0]|[##7]}
            <Call 0x21bcc 0x104fc>                                              {[4, '(A6+0x20)']|[4, '(A6+0x1c)']|[4, '^(A7)']|[##0]|[##7]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 21bd2-21bd6 StackAdj>                       Δ+20               {}
            <Call 0x21bd6 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 21bdc  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x21bde 0x1.4>                            Δ-4                {[4, 'A4']|[##1]}
            <Const 0x21be2 0x2.2>                            Δ-2                {[4, 'A4']|[##1]|[#2]}
            <Pointer.fp 0x21be6 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, 'A4']|[##1]|[#2]|[@@-4]}
            <Call 0x21bea 0x103b0>                                              {[4, 'A4']|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21bf0-21bf4 StackAdj>                       Δ+14               {}
            <MI 21bf4  TST.B   (A6-0x4)>                                        {}
            <MI 21bf8  BEQ     0x21c08>                                         {}
        <POP 21bfa-21c08 Naked>                              Σ0         ↓
            <Const 0x21bfa 0x6.2>                            Δ-2                {[#6]}
            <Const 0x21bfc 0x1.4>                            Δ-4                {[#6]|[##1]}
            <Call 0x21c00 0x103b8>                                              {[#6]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21c06-21c08 StackAdj>                       Δ+6                {}
        <POP 21c08-21c66 Naked>                              Σ0         →0x21cbe ←0x21baa
            <Call 0x21c08 0x10538>                                              {}
                IPC_Init(void)
            <MI 21c0e  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 21c12  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21c14 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 21c1a-21c1c StackAdj>                       Δ+4                {}
            <MI 21c1c  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 21c20  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21c22 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 21c28-21c2a StackAdj>                       Δ+4                {}
            <MI 21c2a  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 21c2e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21c30 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 21c36-21c38 StackAdj>                       Δ+4                {}
            <MI 21c38  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21c3c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x21c3e 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x21c40 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x21c42 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 21c48-21c4a StackAdj>                       Δ+12               {}
            <MI 21c4a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21c4e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x21c50 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x21c52 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x21c56 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 21c5c-21c5e StackAdj>                       Δ+12               {}
            <Call 0x21c5e 0x1051a>                                              {}
                IPC_GetEnd(void)
            <MI 21c64  BRA     0x21cbe>                                         {}
        <POP 21c66-21cbe Naked>                              Σ0         ↓ ←0x21ba4
            <MI 21c66  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 21c6a  MOVE.B  #0x01,(A0)>                                      {}
            <MI 21c6c  MOVEA.L (A6+0x14),A0>                                    {}
            <Blob 0x21c70 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21c74 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21c78 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21c7c-21c7e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21c7e 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <MI 21c8e  MOVE.L  (A7)+,(A0)>                   Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21c90-21c92 StackAdj>                       Δ+6                {}
            <MI 21c92  MOVEA.L (A6+0x10),A0>                                    {}
            <POP 21c96-21c98 StackAdj>                       Δ-4                {[-4-]}
            <MI 21c98  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Call 0x21c9a 0x21a28>                                              {[-4-]|[2, 'D0']}
            <POP 21c9e-21ca0 StackAdj>                       Δ+2                {[-4-]}
            <MI 21ca0  MOVE.L  (A7)+,(A0)>                   Δ+4                {}
            <MI 21ca2  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, '(A0)']}
            <Const 0x21ca4 0x5c.2>                           Δ-2                {[4, '(A0)']|[#92]}
            <Call 0x21ca8 0x102c0>                                              {[4, '(A0)']|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 21cae-21cb0 StackAdj>                       Δ+6                {}
            <MI 21cb0  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21cb4  MOVE.B  #0x01,(A0)>                                      {}
            <MI 21cb6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21cba  MOVE.B  #0x27,(A0)>                                      {}
        <POP 21cbe-21cc6 Epilogue>                           Σ0         ←0x21c08

0x21cc6


@ 21cc6
START
    <POP 21cc6--0001 Body>                                   Δ+2        
        <POP 21cc6-21cd0 Prologue>                           Σ0         
        <POP 21cd0-21cec RegCacheLoad>                       Σ0         ↓
        <POP 21cec-21d28 Naked>                              Σ0         ↓
            <Call 0x21cec 0x10398>                                              {}
                FSCALL_10398
            <Const 0x21cf2 0x2250a.4>                        Δ-4                {[##140554]}
            <Const 0x21cf8 0x2250b.4>                        Δ-4                {[##140554]|[##140555]}
            <Call 0x21cfe 0x10544>                                              {[##140554]|[##140555]}
                IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
            <POP 21d04-21d06 StackAdj>                       Δ+8                {}
            <Const 0x21d06 0x0.4>                            Δ-4                {[##0]}
            <Call 0x21d0a 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 21d10-21d12 StackAdj>                       Δ+2                {[-2-]}
            <POP 21d12-21d13 StackAdj>                       Δ+2                {}
            <Blob 0x21d13 [2] 0x2250b>                       Δ-2                {[«2»]}
            <Call 0x21d18 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 21d1e-21d20 StackAdj>                       Δ+2                {}
            <Call 0x21d20 0x105c8>                                              {}
                And_fc0c_7f(void)
            <MI 21d26  MOVEQ.L #0x04,D0>                                        {}
        <POP 21d28-21d48 Naked>                              Σ0         ↓ →0x21d28 ←0x21d28
            <MI 21d28  MOVE.B  D0,0x22510>                                      {}
            <MI 21d2e  MOVE.B  D0,D1>                                           {}
            <MI 21d30  EXTB.W  D1>                                              {}
            <MI 21d32  MOVE.W  D1,-(A7)>                     Δ-2                {[2, 'D1']}
            <MI 21d34  LEA.L   0x2247c,A0>                                      {[2, 'D1']}
            <MI 21d36  LEA.L   (A0+D1.W),A0>                                    {[2, 'D1']}
            <MI 21d3a  CLR.B   (A0+0xa7)>                                       {[2, 'D1']}
            <MI 21d3e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 21d40  ADDQ.W  #0x1,D0>                                         {}
            <MI 21d42  CMPI.W  #0x002b,D0>                                      {}
            <MI 21d46  BLE     0x21d28>                                         {}
        <POP 21d48-21d4a Naked>                              Σ0         ↓
            <MI 21d48  MOVEQ.L #0x00,D0>                                        {}
        <POP 21d4a-21d66 Naked>                              Σ0         ↓ →0x21d4a ←0x21d4a
            <MI 21d4a  MOVE.L  D0,0x22506>                                      {}
            <POP 0x21d50 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 21d56  LEA.L   0x2247c,A0>                                      {}
            <MI 21d58  LEA.L   (A0+D0.L),A0>                                    {}
            <MI 21d5c  CLR.B   (A0+0x9f)>                                       {}
            <MI 21d60  ADDQ.L  #0x1,D0>                                         {}
            <MI 21d62  CMP.L   #0x07,D0>                                        {}
            <MI 21d64  BLE     0x21d4a>                                         {}
        <POP 21d66-21d8e Naked>                              Σ0         ↓
            <Call 0x21d66 0x2126e>                                              {}
            <Blob 0x21d6a [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21d6e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21d72 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21d76-21d78 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21d78 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$uaddr trace:]}
            <Call 0x21d86 0x103d8>                                              {[«4""»]|[«4""»]|[«4""»]|[$$uaddr trace:]}
                WriteConsoleString(str : String)
            <POP 21d88-21d8c StackAdj>                       Δ+16               {}
            <MI 21d8c  MOVEQ.L #0x04,D0>                                        {}
        <POP 21d8e-21dd6 Naked>                              Σ0         ↓ →0x21ddc ←0x21de0
            <MI 21d8e  MOVE.L  D0,0x22506>                                      {}
            <Blob 0x21d94 [2] @>                             Δ-2                {[«2""»]}
            <POP 21d98-21d9a StackAdj>                       Δ-8                {[«2""»]|[-8-]}
            <Lit 0x21d9a 2>                                                     {[«2""»]|[-4-]|[$$ _]}
            <MI 21da4  MOVE.L  D0,(A7)>                                         {[«2""»]|[-4-]|[4, 'D0']}
            <POP 21da2-21da4 StackAdj>                       Δ-8                {[«2""»]|[-4-]|[4, 'D0']|[-8-]}
            <Call 0x21da6 0x102e4>                                              {[«2""»]|[-4-]|[4, 'D0']|[-8-]}
                Long2String(a : Long) : String
            <POP 21dac-21dae StackAdj>                       Δ+4                {[«2""»]|[-4-]|[4, 'D0']|[-4-]}
            <Call 0x21dae 0x102d0>                                              {[«2""»]|[-4-]|[4, 'D0']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21db4-21db6 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <Call 0x21db6 0x103d8>                                              {[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21db8-21dba StackAdj>                       Δ+6                {}
            <MI 21dba  MOVE.L  D0,D1>                                           {}
            <MI 21dbc  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x21dbe LimitCheck 0x0 ≤ D1 ≤ 0x3f>                            {}
            <MI 21dc8  ASL.L   #0x1,D1>                                         {}
            <MI 21dca  LEA.L   0x2247c,A0>                                      {}
            <MI 21dcc  MOVE.W  (A0+D1.L+#0x8),D1>                               {}
            <MI 21dd0  ANDI.W  #0x8000,D1>                                      {}
            <MI 21dd4  BNE     0x21ddc>                                         {}
        <POP 21dd6-21ddc Naked>                              Σ0 Δ-2     →0x21de0
            <Blob 0x21dd6 [2] @>                             Δ-2                {[«2""»]}
            <MI 21dda  BRA     0x21de0>                                         {[«2""»]}
        <POP 21ddc-21de0 Naked>                              Σ0 Δ-2     ↓ ←0x21d8e
            <Blob 0x21ddc [2] @>                             Δ-2                {[«2""»]}
        <POP 21de0-21e2a Naked>                              Σ-2 Δ+2    ↓ →0x21d8e ←0x21dd6
            <POP 21de0-21de2 StackAdj>                       Δ-4                {[-6-]}
            <Lit 0x21de2>                                                       {[-2-]|[$$…]}
                <Pointer.sp 0x21de2 4>                       Δ-4        
                <Const 0x21de6 0x1.2>                        Δ-2        
                <Const 0x21de8 0x2.2>                        Δ-2        
                <Call 0x21dea 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21dec-21dee StackAdj>                   Δ+8        
            <Call 0x21dee 0x103d8>                                              {[-2-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 21df0-21df2 StackAdj>                       Δ+6                {}
            <POP 21df2-21df4 StackAdj>                       Δ-4                {[-4-]}
            <POP 0x21df4 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {[-4-]}
            <MI 21dfe  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 21e00  ASL.L   #0x1,D1>                                         {[-4-]}
            <MI 21e02  LEA.L   0x2247c,A0>                                      {[-4-]}
            <MI 21e04  MOVE.W  (A0+D1.L+#0x8),D1>                               {[-4-]}
            <MI 21e08  ANDI.W  #0x3fff,D1>                                      {[-4-]}
            <MI 21e0c  CLR.L   D2>                                              {[-4-]}
            <MI 21e0e  MOVE.W  D1,D2>                                           {[-4-]}
            <MI 21e10  MOVE.L  D2,-(A7)>                     Δ-4                {[-4-]|[4, 'D2']}
            <Const 0x21e12 0x4.4>                            Δ-4                {[-4-]|[4, 'D2']|[##4]}
            <Call 0x21e16 0x102e8>                                              {[-4-]|[4, 'D2']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e1c-21e1e StackAdj>                       Δ+8                {[-4-]}
            <Call 0x21e1e 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 21e20-21e22 StackAdj>                       Δ+4                {}
            <MI 21e22  SUBQ.L  #0x1,D0>                                         {}
            <MI 21e24  CMP.L   #0x01,D0>                                        {}
            <MI 21e26  BGE     0x21d8e>                                         {}
        <POP 21e2a-21e70 Naked>                              Σ0         ↓ →0x21f10
            <Blob 0x21e2a [20] @>                            Δ-20               {[«20""»]}
            <POP 21e3c-21e3e StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21e3e 19>                                                    {[«20""»]|[$$CURRENT.M200_CONFIG]}
            <Const 0x21e4c 0x3.4>                            Δ-4                {[«20""»]|[$$CURRENT.M200_CONFIG]|[##3]}
            <Const 0x21e50 0x2255c.4>                        Δ-4                {[«20""»]|[$$CURRENT.M200_CONFIG]|[##3]|[##140636]}
            <Const 0x21e56 0x22504.4>                        Δ-4                {[«20""»]|[$$CURRENT.M200_CONFIG]|[##3]|[##140636]|[##140548]}
            <Call 0x21e5c 0x1056e>                                              {[«20""»]|[$$CURRENT.M200_CONFIG]|[##3]|[##140636]|[##140548]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 21e62-21e66 StackAdj>                       Δ+36               {}
            <MI 21e66  TST.B   0x22504>                                         {}
            <MI 21e6c  BEQ     0x21f10>                                         {}
        <POP 21e70-21f10 Naked>                              Σ0         →0x21f3c
            <Blob 0x21e70 [30] 0x2258f>                      Δ-30               {[«30»]}
            <POP 21e82-21e84 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x21e84>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x21e84 4>                       Δ-4        
                <Const 0x21e88 0x1.2>                        Δ-2        
                <Const 0x21e8a 0x1e.2>                       Δ-2        
                <Call 0x21e8c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21e8e-21e90 StackAdj>                   Δ+8        
            <MI 21e90  MOVE.L  (A7)+,0x226ee>                Δ+4                {[«30»]}
            <POP 21e96-21e98 StackAdj>                       Δ+30               {}
            <MI 21e98  MOVEA.L 0x226ee,A0>                                      {}
            <Blob 0x21e9e [2] @>                             Δ-2                {[«2""»]}
            <POP 21ea2-21ea4 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Blob 0x21ea4 [4] 0x226ee>                       Δ-4                {[«2""»]|[-4-]|[«4»]}
            <POP 21eaa-21eac StackAdj>                       Δ-4                {[«2""»]|[-4-]|[«4»]|[-4-]}
            <Lit 0x21eac 2>                                                     {[«2""»]|[-4-]|[«4»]|[$$. ]}
            <Call 0x21eb8 0x10300>                                              {[«2""»]|[-4-]|[«4»]|[$$. ]}
                FSCALL_10300
            <POP 21ebe-21ec0 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <MI 21ec0  MOVE.L  (A7)+,D0>                     Δ+4                {[«2""»]}
            <POP 0x21ec2 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[«2""»]}
            <POP 21ed8-21eda StackAdj>                       Δ+2                {}
            <MI 21eda  MOVE.W  D0,(A0)>                                         {}
            <Blob 0x21edc [10] @>                            Δ-10               {[«10""»]}
            <POP 21ee8-21eea StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x21eea 10>                                                    {[«10""»]|[-4-]|[$$  --ucode_]}
            <POP 21ef4-21ef6 StackAdj>                       Δ-4                {[«10""»]|[-4-]|[$$  --ucode_]|[-4-]}
            <POP 21ef6-21ef7 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[$$  --ucode_]}
            <Blob 0x21ef7 [4] 0x226ee>                       Δ-4                {[«10""»]|[-4-]|[$$  --ucode_]|[«4»]}
            <Call 0x21efc 0x102d0>                                              {[«10""»]|[-4-]|[$$  --ucode_]|[«4»]}
                StringCat2(a, b : String) : String
            <POP 21f02-21f04 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <Call 0x21f04 0x103e0>                                              {[«10""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f0a-21f0e StackAdj>                       Δ+14               {}
            <MI 21f0e  BRA     0x21f3c>                                         {}
        <POP 21f10-21f3c Naked>                              Σ0         ↓ ←0x21e2a
            <Blob 0x21f10 [22] @>                            Δ-22               {[«22""»]}
            <POP 21f22-21f24 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x21f24 21>                                                    {[«22""»]|[$$  ** ucode version ??]}
            <Call 0x21f32 0x103e0>                                              {[«22""»]|[$$  ** ucode version ??]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f38-21f3c StackAdj>                       Δ+26               {}
        <POP 21f3c-2201c Naked>                              Σ0         ↓ ←0x21e70
            <Const 0x21f3c 0x22523.4>                        Δ-4                {[##140579]}
            <Const 0x21f42 0x2250c.4>                        Δ-4                {[##140579]|[##140556]}
            <Const 0x21f48 0x22550.4>                        Δ-4                {[##140579]|[##140556]|[##140624]}
            <Call 0x21f4e 0x21444>                                              {[##140579]|[##140556]|[##140624]}
            <POP 21f52-21f54 StackAdj>                       Δ+10               {[-2-]}
            <Const 0x21f54 0x22523.4>                        Δ-4                {[-2-]|[##140579]}
            <Blob 0x21f5a [4] 0x2250c>                       Δ-4                {[-2-]|[##140579]|[«4»]}
            <Blob 0x21f60 [2] 0x22550>                       Δ-2                {[-2-]|[##140579]|[«4»]|[«2»]}
            <Call 0x21f66 0x2197c>                                              {[-2-]|[##140579]|[«4»]|[«2»]}
            <POP 21f6a-21f6c StackAdj>                       Δ+10               {[-2-]}
            <MI 21f6c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21f6e  EXTB.W  D0>                                              {}
            <POP 0x21f70 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 21f74  MOVE.B  D0,0x2254f>                                      {}
            <POP 21f7a-21f7b StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x21f7b [44] 0x22523>                      Δ-44               {[-8-]|[«44»]}
            <MI 21f8e  MOVE.B  D0,-(A7)>                     Δ-2                {[-8-]|[«44»]|[2, 'D0']}
            <Call 0x21f90 0x21a7a>                                              {[-8-]|[«44»]|[2, 'D0']}
            <POP 21f94-21f98 StackAdj>                       Δ+46               {[-8-]}
            <MI 21f98  LEA.L   0x22551,A0>                                      {[-8-]}
            <MI 21f9e  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 21fa8-21faa StackAdj>                       Δ+6                {[-2-]}
            <POP 21faa-21fab StackAdj>                       Δ+2                {}
            <Blob 0x21fab [2] 0x2254f>                       Δ-2                {[«2»]}
            <Blob 0x21fb0 [8] 0x22551>                       Δ-8                {[«2»]|[«8»]}
            <Const 0x21fc2 0x22511.4>                        Δ-4                {[«2»]|[«8»]|[##140561]}
            <Const 0x21fc8 0x22512.4>                        Δ-4                {[«2»]|[«8»]|[##140561]|[##140562]}
            <Const 0x21fce 0x22516.4>                        Δ-4                {[«2»]|[«8»]|[##140561]|[##140562]|[##140566]}
            <Const 0x21fd4 0x2251a.4>                        Δ-4                {[«2»]|[«8»]|[##140561]|[##140562]|[##140566]|[##140570]}
            <Const 0x21fda 0x2251b.4>                        Δ-4                {[«2»]|[«8»]|[##140561]|[##140562]|[##140566]|[##140570]|[##140571]}
            <Call 0x21fe0 0x21b40>                                              {[«2»]|[«8»]|[##140561]|[##140562]|[##140566]|[##140570]|[##140571]}
            <POP 21fe4-21fe8 StackAdj>                       Δ+28               {[«2»]}
            <POP 21fe8-21fe9 StackAdj>                       Δ+2                {}
            <Blob 0x21fe9 [2] 0x22511>                       Δ-2                {[«2»]}
            <Blob 0x21fee [4] 0x22512>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x21ff4 [4] 0x22516>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x21ffa [2] 0x2251a>                       Δ-2                {[«2»]|[«4»]|[«4»]|[«2»]}
            <Blob 0x22000 [8] 0x2251b>                       Δ-8                {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x22012 0x1054a>                                              {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 22018-2201c StackAdj>                       Δ+20               {}
        <POP 2201c-22022 Naked>                              Σ0         
            <Call 0x2201c 0x10284>                                              {}
                ?exit

0x22110


@ 22110
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22110-221da Body>                                   Δ+16       
        <POP 22110-22126 Prologue>                           Σ0         ↓
        <POP 22126-22138 RegCacheLoad>                       Σ0         ↓
        <POP 22138-22144 Naked>                              Σ0         ↓ →0x22156
            <POP 22138-2213a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2213a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22140  TST.B   (A7)+>                        Δ+2                {}
            <MI 22142  BEQ     0x22156>                                         {}
        <POP 22144-22156 Naked>                              Σ0 Δ-16    →0x22166
            <Blob 0x22144 [16] @>                            Δ-16               {[«16""»]}
            <MI 22154  BRA     0x22166>                                         {[«16""»]}
        <POP 22156-22166 Naked>                              Σ0 Δ-16    ↓ ←0x22138
            <Blob 0x22156 [16] @>                            Δ-16               {[«16""»]}
        <POP 22166-221d2 Naked>                              Σ-16 Δ+16  ↓ ←0x22144
            <POP 22166-22168 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x22168>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x22168 4>                       Δ-4        
                <Const 0x2216c 0x1.2>                        Δ-2        
                <Const 0x22170 0xf.2>                        Δ-2        
                <Call 0x22174 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2217a-2217c StackAdj>                   Δ+8        
            <Pointer.fp 0x2217c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-6]}
            <Call 0x2217e 0x10460>                                              {[-16-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22184-22188 StackAdj>                       Δ+24               {}
            <MI 22188  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2218a  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x14)']}
            <MI 2218e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
            <Call 0x22190 0x104ba>                                              {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22196-22198 StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x14)']}
            <MI 22198  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 2219a  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 2219e  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x221a0 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x221a2 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x221a4 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 221a6-221a8 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 221a8  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 221aa  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 221ae  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x221b0 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x221b2 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x221b4 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 221b6-221b8 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 221b8  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 221ba  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 221be  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x221c0 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x221c2 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x221c4 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 221c6-221c8 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x221c8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x221ca 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 221d0-221d2 StackAdj>                       Δ+4                {}
        <POP 221d2-221da Epilogue>                           Σ0         

0x22284


@ 22284
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22284-222ec Body>                                              
        <POP 22284-2229a Prologue>                           Σ0         ↓
        <POP 2229a-222e4 Naked>                              Σ0         ↓
            <Blob 0x2229a [14] @>                            Δ-14               {[«14""»]}
            <Const 0x222a6 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 222aa-222ac StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x222ac 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 222be-222c0 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 222c0  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 222c4  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 222c6  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 222c8  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x222ca 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 222d0-222d2 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x222d2 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 222d8-222da StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x222da 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 222e0-222e4 StackAdj>                       Δ+20               {}
        <POP 222e4-222ec Epilogue>                           Σ0         

0x22340


@ 22340
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 22340-2247c Body>                                              
        <POP 22340-22356 Prologue>                           Σ0         ↓
        <POP 22356-2236c RegCacheLoad>                       Σ0         ↓
        <POP 2236c-223cc Naked>                              Σ0         ↓ →0x22414
            <Call 0x2236c 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x22372 [18] @>                            Δ-18               {[«18""»]}
            <POP 2237e-22380 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x22380 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2238c 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2238e-2238f StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2238f [14] @>                            Δ-14               {[«14""»]}
            <POP 2239e-223a0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x223a0 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 223aa-223ac StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 223ac  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x223b0 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 223b6-223b8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x223b8 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 223be-223c0 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x223c0 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 223c2-223c4 StackAdj>                       Δ+18               {}
            <MI 223c4  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 223c8  CMPA.W  #0x01,A0>                                        {}
            <MI 223ca  BEQ     0x22414>                                         {}
        <POP 223cc-22414 Naked>                              Σ0         ↓
            <Blob 0x223cc [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x223dc [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 223ec-223ee StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x223ee 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 223f8-223fa StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x223fa>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x223fa 12>                      Δ-4        
                <Const 0x223fe 0x1.2>                        Δ-2        
                <Const 0x22400 0x1e.2>                       Δ-2        
                <Call 0x22402 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22404-22406 StackAdj>                   Δ+8        
            <Call 0x22406 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2240c-2240e StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2240e 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22410-22414 StackAdj>                       Δ+48               {}
        <POP 22414-22474 Naked>                              Σ0         ↓ ←0x2236c
            <Blob 0x22414 [14] @>                            Δ-14               {[«14""»]}
            <POP 22424-22426 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x22426 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 22430-22432 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 22432  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x22436 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2243c-2243e StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2243e 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22444-22446 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x22446 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22448-22449 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x22449 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x22458 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2245c-2245e StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2245e 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2246c 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 22472-22474 StackAdj>                       Δ+30               {}
        <POP 22474-2247c Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.034c561ea36442ee
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 1c c6              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 27 0c              |  '     |		.PTR	0x2270c
00020010					code.end:
00020010 00 02 24 7c              |  $|    |		.PTR	0x2247c
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 22 84              |  "     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 23 40              |  #@    |		.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 49 4f 43 20 62 6f        |IOC bo  |		.XXX[0x6]
00020110 61 72 64 20 4d 69 63 72  |ard Micr|		.XXX[0x3a0]
00020118 6f 61 64 64 72 65 73 73  |oaddress|
00020120 20 62 75 73 20 70 61 72  | bus par|
00020128 69 74 79 20 65 72 72 6f  |ity erro|
00020130 72 20 49 4f 43 20 62 6f  |r IOC bo|
00020138 61 72 64 20 57 43 53 20  |ard WCS |
00020140 70 61 72 69 74 79 20 65  |parity e|
00020148 72 72 6f 72 20 20 20 20  |rror    |
00020150 20 20 20 20 20 20 20 20  |        |
00020158 20 20 49 4f 43 20 62 6f  |  IOC bo|
00020160 61 72 64 20 54 59 50 20  |ard TYP |
00020168 62 75 73 20 70 61 72 69  |bus pari|
00020170 74 79 20 65 72 72 6f 72  |ty error|
00020178 20 20 20 20 20 20 20 20  |        |
00020180 20 20 49 4f 43 20 62 6f  |  IOC bo|
00020188 61 72 64 20 56 41 4c 20  |ard VAL |
00020190 62 75 73 20 70 61 72 69  |bus pari|
00020198 74 79 20 65 72 72 6f 72  |ty error|
000201a0 20 20 20 20 20 20 20 20  |        |
000201a8 20 20 56 41 4c 20 62 6f  |  VAL bo|
000201b0 61 72 64 20 4d 69 63 72  |ard Micr|
000201b8 6f 61 64 64 72 65 73 73  |oaddress|
000201c0 20 62 75 73 20 70 61 72  | bus par|
000201c8 69 74 79 20 65 72 72 6f  |ity erro|
000201d0 72 20 56 41 4c 20 62 6f  |r VAL bo|
000201d8 61 72 64 20 57 43 53 20  |ard WCS |
000201e0 70 61 72 69 74 79 20 65  |parity e|
000201e8 72 72 6f 72 20 20 20 20  |rror    |
000201f0 20 20 20 20 20 20 20 20  |        |
000201f8 20 20 56 41 4c 20 62 6f  |  VAL bo|
00020200 61 72 64 20 41 52 46 20  |ard ARF |
00020208 52 41 4d 20 70 61 72 69  |RAM pari|
00020210 74 79 20 65 72 72 6f 72  |ty error|
00020218 20 20 20 20 20 20 20 20  |        |
00020220 20 20 56 41 4c 20 62 6f  |  VAL bo|
00020228 61 72 64 20 42 52 46 20  |ard BRF |
00020230 52 41 4d 20 70 61 72 69  |RAM pari|
00020238 74 79 20 65 72 72 6f 72  |ty error|
00020240 20 20 20 20 20 20 20 20  |        |
00020248 20 20 56 41 4c 20 62 6f  |  VAL bo|
00020250 61 72 64 20 56 41 4c 20  |ard VAL |
00020258 62 75 73 20 70 61 72 69  |bus pari|
00020260 74 79 20 65 72 72 6f 72  |ty error|
00020268 20 20 20 20 20 20 20 20  |        |
00020270 20 20 56 41 4c 20 62 6f  |  VAL bo|
00020278 61 72 64 20 46 49 55 20  |ard FIU |
00020280 62 75 73 20 70 61 72 69  |bus pari|
00020288 74 79 20 65 72 72 6f 72  |ty error|
00020290 20 20 20 20 20 20 20 20  |        |
00020298 20 20 56 41 4c 20 62 6f  |  VAL bo|
000202a0 61 72 64 20 57 44 52 20  |ard WDR |
000202a8 70 61 72 69 74 79 20 65  |parity e|
000202b0 72 72 6f 72 20 20 20 20  |rror    |
000202b8 20 20 20 20 20 20 20 20  |        |
000202c0 20 20 54 59 50 20 62 6f  |  TYP bo|
000202c8 61 72 64 20 4d 69 63 72  |ard Micr|
000202d0 6f 61 64 64 72 65 73 73  |oaddress|
000202d8 20 62 75 73 20 70 61 72  | bus par|
000202e0 69 74 79 20 65 72 72 6f  |ity erro|
000202e8 72 20 54 59 50 20 62 6f  |r TYP bo|
000202f0 61 72 64 20 57 43 53 20  |ard WCS |
000202f8 70 61 72 69 74 79 20 65  |parity e|
00020300 72 72 6f 72 20 20 20 20  |rror    |
00020308 20 20 20 20 20 20 20 20  |        |
00020310 20 20 54 59 50 20 62 6f  |  TYP bo|
00020318 61 72 64 20 41 52 46 20  |ard ARF |
00020320 52 41 4d 20 70 61 72 69  |RAM pari|
00020328 74 79 20 65 72 72 6f 72  |ty error|
00020330 20 20 20 20 20 20 20 20  |        |
00020338 20 20 54 59 50 20 62 6f  |  TYP bo|
00020340 61 72 64 20 42 52 46 20  |ard BRF |
00020348 52 41 4d 20 70 61 72 69  |RAM pari|
00020350 74 79 20 65 72 72 6f 72  |ty error|
00020358 20 20 20 20 20 20 20 20  |        |
00020360 20 20 54 59 50 20 62 6f  |  TYP bo|
00020368 61 72 64 20 54 59 50 20  |ard TYP |
00020370 62 75 73 20 70 61 72 69  |bus pari|
00020378 74 79 20 65 72 72 6f 72  |ty error|
00020380 20 20 20 20 20 20 20 20  |        |
00020388 20 20 54 59 50 20 62 6f  |  TYP bo|
00020390 61 72 64 20 46 49 55 20  |ard FIU |
00020398 62 75 73 20 70 61 72 69  |bus pari|
000203a0 74 79 20 65 72 72 6f 72  |ty error|
000203a8 20 20 20 20 20 20 20 20  |        |
000203b0 20 20 54 59 50 20 62 6f  |  TYP bo|
000203b8 61 72 64 20 57 44 52 20  |ard WDR |
000203c0 70 61 72 69 74 79 20 65  |parity e|
000203c8 72 72 6f 72 20 20 20 20  |rror    |
000203d0 20 20 20 20 20 20 20 20  |        |
000203d8 20 20 53 45 51 20 62 6f  |  SEQ bo|
000203e0 61 72 64 20 46 49 55 20  |ard FIU |
000203e8 62 75 73 20 70 61 72 69  |bus pari|
000203f0 74 79 20 65 72 72 6f 72  |ty error|
000203f8 20 20 20 20 20 20 20 20  |        |
00020400 20 20 53 45 51 20 62 6f  |  SEQ bo|
00020408 61 72 64 20 56 41 4c 20  |ard VAL |
00020410 62 75 73 20 70 61 72 69  |bus pari|
00020418 74 79 20 65 72 72 6f 72  |ty error|
00020420 20 20 20 20 20 20 20 20  |        |
00020428 20 20 53 45 51 20 62 6f  |  SEQ bo|
00020430 61 72 64 20 54 59 50 20  |ard TYP |
00020438 62 75 73 20 70 61 72 69  |bus pari|
00020440 74 79 20 65 72 72 6f 72  |ty error|
00020448 20 20 20 20 20 20 20 20  |        |
00020450 20 20 53 45 51 20 62 6f  |  SEQ bo|
00020458 61 72 64 20 57 43 53 20  |ard WCS |
00020460 70 61 72 69 74 79 20 65  |parity e|
00020468 72 72 6f 72 20 20 20 20  |rror    |
00020470 20 20 20 20 20 20 20 20  |        |
00020478 20 20 53 45 51 20 62 6f  |  SEQ bo|
00020480 61 72 64 20 44 65 63 6f  |ard Deco|
00020488 64 65 20 52 41 4d 20 70  |de RAM p|
00020490 61 72 69 74 79 20 65 72  |arity er|
00020498 72 6f 72 20 20 20 20 20  |ror     |
000204a0 20 20 4d 69 63 72 6f 63  |  Microc|
000204a8 6f 64 65 20 48 41 4c 54  |ode HALT|
000204b0 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
000204c8 20 20                    |        |		.BLANK	20[0x2]
000204ca 46 49 55 20 62 6f        |FIU bo  |		.XXX[0x6]
000204d0 61 72 64 20 46 49 55 20  |ard FIU |		.XXX[0xb0]
000204d8 62 75 73 20 70 61 72 69  |bus pari|
000204e0 74 79 20 65 72 72 6f 72  |ty error|
000204e8 20 20 20 20 20 20 20 20  |        |
000204f0 20 20 46 49 55 20 62 6f  |  FIU bo|
000204f8 61 72 64 20 56 41 4c 20  |ard VAL |
00020500 62 75 73 20 70 61 72 69  |bus pari|
00020508 74 79 20 65 72 72 6f 72  |ty error|
00020510 20 20 20 20 20 20 20 20  |        |
00020518 20 20 46 49 55 20 62 6f  |  FIU bo|
00020520 61 72 64 20 54 59 50 20  |ard TYP |
00020528 62 75 73 20 70 61 72 69  |bus pari|
00020530 74 79 20 65 72 72 6f 72  |ty error|
00020538 20 20 20 20 20 20 20 20  |        |
00020540 20 20 46 49 55 20 62 6f  |  FIU bo|
00020548 61 72 64 20 41 64 64 72  |ard Addr|
00020550 65 73 73 20 62 75 73 20  |ess bus |
00020558 70 61 72 69 74 79 20 65  |parity e|
00020560 72 72 6f 72 20 20 20 20  |rror    |
00020568 20 20 52 65 66 72 65 73  |  Refres|
00020570 68 20 4d 61 63 68 69 6e  |h Machin|
00020578 65 20 43 68 65 63 6b 20  |e Check |
00020580 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020590 20 20 46 49 55 20 62 6f  |  FIU bo|		.XXX[0x268]
00020598 61 72 64 20 57 43 53 20  |ard WCS |
000205a0 70 61 72 69 74 79 20 65  |parity e|
000205a8 72 72 6f 72 20 20 20 20  |rror    |
000205b0 20 20 20 20 20 20 20 20  |        |
000205b8 20 20 46 49 55 20 62 6f  |  FIU bo|
000205c0 61 72 64 20 4d 69 63 72  |ard Micr|
000205c8 6f 61 64 64 72 65 73 73  |oaddress|
000205d0 20 62 75 73 20 70 61 72  | bus par|
000205d8 69 74 79 20 65 72 72 6f  |ity erro|
000205e0 72 20 46 49 55 20 62 6f  |r FIU bo|
000205e8 61 72 64 20 53 63 61 76  |ard Scav|
000205f0 65 6e 67 65 72 20 52 41  |enger RA|
000205f8 4d 20 70 61 72 69 74 79  |M parity|
00020600 20 65 72 72 6f 72 20 20  | error  |
00020608 20 20 4d 65 6d 6f 72 79  |  Memory|
00020610 20 62 6f 61 72 64 20 30  | board 0|
00020618 20 54 61 67 73 74 6f 72  | Tagstor|
00020620 65 20 30 20 70 61 72 69  |e 0 pari|
00020628 74 79 20 65 72 72 6f 72  |ty error|
00020630 20 20 4d 65 6d 6f 72 79  |  Memory|
00020638 20 62 6f 61 72 64 20 30  | board 0|
00020640 20 54 61 67 73 74 6f 72  | Tagstor|
00020648 65 20 31 20 70 61 72 69  |e 1 pari|
00020650 74 79 20 65 72 72 6f 72  |ty error|
00020658 20 20 4d 65 6d 6f 72 79  |  Memory|
00020660 20 62 6f 61 72 64 20 30  | board 0|
00020668 20 41 64 64 72 65 73 73  | Address|
00020670 20 62 75 73 20 70 61 72  | bus par|
00020678 69 74 79 20 65 72 72 6f  |ity erro|
00020680 72 20 4d 65 6d 6f 72 79  |r Memory|
00020688 20 62 6f 61 72 64 20 31  | board 1|
00020690 20 54 61 67 73 74 6f 72  | Tagstor|
00020698 65 20 30 20 70 61 72 69  |e 0 pari|
000206a0 74 79 20 65 72 72 6f 72  |ty error|
000206a8 20 20 4d 65 6d 6f 72 79  |  Memory|
000206b0 20 62 6f 61 72 64 20 31  | board 1|
000206b8 20 54 61 67 73 74 6f 72  | Tagstor|
000206c0 65 20 31 20 70 61 72 69  |e 1 pari|
000206c8 74 79 20 65 72 72 6f 72  |ty error|
000206d0 20 20 4d 65 6d 6f 72 79  |  Memory|
000206d8 20 62 6f 61 72 64 20 31  | board 1|
000206e0 20 41 64 64 72 65 73 73  | Address|
000206e8 20 62 75 73 20 70 61 72  | bus par|
000206f0 69 74 79 20 65 72 72 6f  |ity erro|
000206f8 72 20 4d 65 6d 6f 72 79  |r Memory|
00020700 20 62 6f 61 72 64 20 32  | board 2|
00020708 20 54 61 67 73 74 6f 72  | Tagstor|
00020710 65 20 30 20 70 61 72 69  |e 0 pari|
00020718 74 79 20 65 72 72 6f 72  |ty error|
00020720 20 20 4d 65 6d 6f 72 79  |  Memory|
00020728 20 62 6f 61 72 64 20 32  | board 2|
00020730 20 54 61 67 73 74 6f 72  | Tagstor|
00020738 65 20 31 20 70 61 72 69  |e 1 pari|
00020740 74 79 20 65 72 72 6f 72  |ty error|
00020748 20 20 4d 65 6d 6f 72 79  |  Memory|
00020750 20 62 6f 61 72 64 20 32  | board 2|
00020758 20 41 64 64 72 65 73 73  | Address|
00020760 20 62 75 73 20 70 61 72  | bus par|
00020768 69 74 79 20 65 72 72 6f  |ity erro|
00020770 72 20 4d 65 6d 6f 72 79  |r Memory|
00020778 20 62 6f 61 72 64 20 33  | board 3|
00020780 20 54 61 67 73 74 6f 72  | Tagstor|
00020788 65 20 30 20 70 61 72 69  |e 0 pari|
00020790 74 79 20 65 72 72 6f 72  |ty error|
00020798 20 20 4d 65 6d 6f 72 79  |  Memory|
000207a0 20 62 6f 61 72 64 20 33  | board 3|
000207a8 20 54 61 67 73 74 6f 72  | Tagstor|
000207b0 65 20 31 20 70 61 72 69  |e 1 pari|
000207b8 74 79 20 65 72 72 6f 72  |ty error|
000207c0 20 20 4d 65 6d 6f 72 79  |  Memory|
000207c8 20 62 6f 61 72 64 20 33  | board 3|
000207d0 20 41 64 64 72 65 73 73  | Address|
000207d8 20 62 75 73 20 70 61 72  | bus par|
000207e0 69 74 79 20 65 72 72 6f  |ity erro|
000207e8 72 20 55 6e 6b 6e 6f 77  |r Unknow|
000207f0 6e 20 65 72 72 6f 72 20  |n error |
000207f8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020808 48 61 6c 74 20 20 20 20  |Halt    |		.XXX[0x8]
00020810 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020820 20 20 20 20 20 20 52 65  |      Re|		.XXX[0x130]
00020828 66 72 65 73 68 20 6d 61  |fresh ma|
00020830 63 68 69 6e 65 20 63 68  |chine ch|
00020838 65 63 6b 20 20 20 20 20  |eck     |
00020840 20 20 20 20 4d 69 63 72  |    Micr|
00020848 6f 61 64 64 72 65 73 73  |oaddress|
00020850 20 62 75 73 20 70 61 72  | bus par|
00020858 69 74 79 20 20 20 20 20  |ity     |
00020860 20 20 57 43 53 20 52 41  |  WCS RA|
00020868 4d 20 70 61 72 69 74 79  |M parity|
00020870 20 65 72 72 6f 72 20 20  | error  |
00020878 20 20 20 20 20 20 20 20  |        |
00020880 44 65 63 6f 64 65 20 52  |Decode R|
00020888 41 4d 20 70 61 72 69 74  |AM parit|
00020890 79 20 65 72 72 6f 72 20  |y error |
00020898 20 20 20 20 20 20 53 63  |      Sc|
000208a0 61 76 65 6e 67 65 72 20  |avenger |
000208a8 52 41 4d 20 70 61 72 69  |RAM pari|
000208b0 74 79 20 65 72 72 6f 72  |ty error|
000208b8 20 20 20 20 54 61 67 73  |    Tags|
000208c0 74 6f 72 65 20 52 41 4d  |tore RAM|
000208c8 20 70 61 72 69 74 79 20  | parity |
000208d0 65 72 72 6f 72 20 20 20  |error   |
000208d8 20 20 52 65 67 69 73 74  |  Regist|
000208e0 65 72 20 46 69 6c 65 20  |er File |
000208e8 52 41 4d 20 70 61 72 69  |RAM pari|
000208f0 74 79 20 65 72 72 6f 72  |ty error|
000208f8 41 64 64 72 65 73 73 20  |Address |
00020900 62 75 73 20 70 61 72 69  |bus pari|
00020908 74 79 20 65 72 72 6f 72  |ty error|
00020910 20 20 20 20 20 20 46 6f  |      Fo|
00020918 72 65 70 6c 61 6e 65 20  |replane |
00020920 62 75 73 20 70 61 72 69  |bus pari|
00020928 74 79 20 65 72 72 6f 72  |ty error|
00020930 20 20 20 20 57 44 52 2f  |    WDR/|
00020938 46 6f 72 65 70 6c 61 6e  |Foreplan|
00020940 65 5f 62 75 73 20 65 72  |e_bus er|
00020948 72 6f 72 20 20 20 20 20  |ror     |
00020950 20 20                    |        |		.XXX[0x2]
00020952 54 6f 6f 20 6d 61 6e 79  |Too many|		.TXT	'Too many boards failed. '
0002096a 45 4d                    |EM      |		.TXT	'EM'
0002096c 57 43                    |WC      |		.TXT	'WC'
0002096e 53 50                    |SP      |		.TXT	'SP'
00020970 45 4d                    |EM      |		.TXT	'EM'
00020972 42 41                    |BA      |		.TXT	'BA'
00020974 4c 4d                    |LM      |		.TXT	'LM'
00020976 75 61 64 64              |uadd    |		.TXT	'uadd'
0002097a 72 20 74 72              |r tr    |		.TXT	'r tr'
0002097e 61 63 65 3a              |ace:    |		.TXT	'ace:'
00020982 20 5f                    | _      |		.TXT	' _'
00020984 3d 20                    |=       |		.TXT	'= '
00020986 23 20                    |#       |		.TXT	'# '
00020988 43 55 52 52 45 4e 54 2e  |CURRENT.|		.TXT	'CURRENT.M200_CONFIG '
0002099c 2e 20                    |.       |		.TXT	'. '
0002099e 20 20 2d 2d 75 63 6f 64  |  --ucod|		.TXT	'  --ucode_'
000209a8 20 20 2a 2a 20 75 63 6f  |  ** uco|		.TXT	'  ** ucode version ?? '
000209be 49 4f                    |IO      |		.XXX[0x2]
000209c0 43 20 62 6f 61 72 64 20  |C board |		.XXX[0x3d8]
000209c8 4d 69 63 72 6f 61 64 64  |Microadd|
000209d0 72 65 73 73 20 62 75 73  |ress bus|
000209d8 20 70 61 72 69 74 79 20  | parity |
000209e0 65 72 72 6f 72 20 04 03  |error   |
000209e8 49 4f 43 20 62 6f 61 72  |IOC boar|
000209f0 64 20 57 43 53 20 70 61  |d WCS pa|
000209f8 72 69 74 79 20 65 72 72  |rity err|
00020a00 6f 72 20 20 20 20 20 20  |or      |
00020a08 20 20 20 20 20 20 20 20  |        |
00020a10 04 04 49 4f 43 20 62 6f  |  IOC bo|
00020a18 61 72 64 20 54 59 50 20  |ard TYP |
00020a20 62 75 73 20 70 61 72 69  |bus pari|
00020a28 74 79 20 65 72 72 6f 72  |ty error|
00020a30 20 20 20 20 20 20 20 20  |        |
00020a38 20 20 04 0a 49 4f 43 20  |    IOC |
00020a40 62 6f 61 72 64 20 56 41  |board VA|
00020a48 4c 20 62 75 73 20 70 61  |L bus pa|
00020a50 72 69 74 79 20 65 72 72  |rity err|
00020a58 6f 72 20 20 20 20 20 20  |or      |
00020a60 20 20 20 20 04 0a 56 41  |      VA|
00020a68 4c 20 62 6f 61 72 64 20  |L board |
00020a70 4d 69 63 72 6f 61 64 64  |Microadd|
00020a78 72 65 73 73 20 62 75 73  |ress bus|
00020a80 20 70 61 72 69 74 79 20  | parity |
00020a88 65 72 72 6f 72 20 07 03  |error   |
00020a90 56 41 4c 20 62 6f 61 72  |VAL boar|
00020a98 64 20 57 43 53 20 70 61  |d WCS pa|
00020aa0 72 69 74 79 20 65 72 72  |rity err|
00020aa8 6f 72 20 20 20 20 20 20  |or      |
00020ab0 20 20 20 20 20 20 20 20  |        |
00020ab8 07 04 56 41 4c 20 62 6f  |  VAL bo|
00020ac0 61 72 64 20 41 52 46 20  |ard ARF |
00020ac8 52 41 4d 20 70 61 72 69  |RAM pari|
00020ad0 74 79 20 65 72 72 6f 72  |ty error|
00020ad8 20 20 20 20 20 20 20 20  |        |
00020ae0 20 20 07 08 56 41 4c 20  |    VAL |
00020ae8 62 6f 61 72 64 20 42 52  |board BR|
00020af0 46 20 52 41 4d 20 70 61  |F RAM pa|
00020af8 72 69 74 79 20 65 72 72  |rity err|
00020b00 6f 72 20 20 20 20 20 20  |or      |
00020b08 20 20 20 20 07 08 56 41  |      VA|
00020b10 4c 20 62 6f 61 72 64 20  |L board |
00020b18 56 41 4c 20 62 75 73 20  |VAL bus |
00020b20 70 61 72 69 74 79 20 65  |parity e|
00020b28 72 72 6f 72 20 20 20 20  |rror    |
00020b30 20 20 20 20 20 20 07 0a  |        |
00020b38 56 41 4c 20 62 6f 61 72  |VAL boar|
00020b40 64 20 46 49 55 20 62 75  |d FIU bu|
00020b48 73 20 70 61 72 69 74 79  |s parity|
00020b50 20 65 72 72 6f 72 20 20  | error  |
00020b58 20 20 20 20 20 20 20 20  |        |
00020b60 07 0a 56 41 4c 20 62 6f  |  VAL bo|
00020b68 61 72 64 20 57 44 52 20  |ard WDR |
00020b70 70 61 72 69 74 79 20 65  |parity e|
00020b78 72 72 6f 72 20 20 20 20  |rror    |
00020b80 20 20 20 20 20 20 20 20  |        |
00020b88 20 20 07 0b 54 59 50 20  |    TYP |
00020b90 62 6f 61 72 64 20 4d 69  |board Mi|
00020b98 63 72 6f 61 64 64 72 65  |croaddre|
00020ba0 73 73 20 62 75 73 20 70  |ss bus p|
00020ba8 61 72 69 74 79 20 65 72  |arity er|
00020bb0 72 6f 72 20 06 03 54 59  |ror   TY|
00020bb8 50 20 62 6f 61 72 64 20  |P board |
00020bc0 57 43 53 20 70 61 72 69  |WCS pari|
00020bc8 74 79 20 65 72 72 6f 72  |ty error|
00020bd0 20 20 20 20 20 20 20 20  |        |
00020bd8 20 20 20 20 20 20 06 04  |        |
00020be0 54 59 50 20 62 6f 61 72  |TYP boar|
00020be8 64 20 41 52 46 20 52 41  |d ARF RA|
00020bf0 4d 20 70 61 72 69 74 79  |M parity|
00020bf8 20 65 72 72 6f 72 20 20  | error  |
00020c00 20 20 20 20 20 20 20 20  |        |
00020c08 06 08 54 59 50 20 62 6f  |  TYP bo|
00020c10 61 72 64 20 42 52 46 20  |ard BRF |
00020c18 52 41 4d 20 70 61 72 69  |RAM pari|
00020c20 74 79 20 65 72 72 6f 72  |ty error|
00020c28 20 20 20 20 20 20 20 20  |        |
00020c30 20 20 06 08 54 59 50 20  |    TYP |
00020c38 62 6f 61 72 64 20 54 59  |board TY|
00020c40 50 20 62 75 73 20 70 61  |P bus pa|
00020c48 72 69 74 79 20 65 72 72  |rity err|
00020c50 6f 72 20 20 20 20 20 20  |or      |
00020c58 20 20 20 20 06 0a 54 59  |      TY|
00020c60 50 20 62 6f 61 72 64 20  |P board |
00020c68 46 49 55 20 62 75 73 20  |FIU bus |
00020c70 70 61 72 69 74 79 20 65  |parity e|
00020c78 72 72 6f 72 20 20 20 20  |rror    |
00020c80 20 20 20 20 20 20 06 0a  |        |
00020c88 54 59 50 20 62 6f 61 72  |TYP boar|
00020c90 64 20 57 44 52 20 70 61  |d WDR pa|
00020c98 72 69 74 79 20 65 72 72  |rity err|
00020ca0 6f 72 20 20 20 20 20 20  |or      |
00020ca8 20 20 20 20 20 20 20 20  |        |
00020cb0 06 0b 53 45 51 20 62 6f  |  SEQ bo|
00020cb8 61 72 64 20 46 49 55 20  |ard FIU |
00020cc0 62 75 73 20 70 61 72 69  |bus pari|
00020cc8 74 79 20 65 72 72 6f 72  |ty error|
00020cd0 20 20 20 20 20 20 20 20  |        |
00020cd8 20 20 02 0a 53 45 51 20  |    SEQ |
00020ce0 62 6f 61 72 64 20 56 41  |board VA|
00020ce8 4c 20 62 75 73 20 70 61  |L bus pa|
00020cf0 72 69 74 79 20 65 72 72  |rity err|
00020cf8 6f 72 20 20 20 20 20 20  |or      |
00020d00 20 20 20 20 02 0a 53 45  |      SE|
00020d08 51 20 62 6f 61 72 64 20  |Q board |
00020d10 54 59 50 20 62 75 73 20  |TYP bus |
00020d18 70 61 72 69 74 79 20 65  |parity e|
00020d20 72 72 6f 72 20 20 20 20  |rror    |
00020d28 20 20 20 20 20 20 02 0a  |        |
00020d30 53 45 51 20 62 6f 61 72  |SEQ boar|
00020d38 64 20 57 43 53 20 70 61  |d WCS pa|
00020d40 72 69 74 79 20 65 72 72  |rity err|
00020d48 6f 72 20 20 20 20 20 20  |or      |
00020d50 20 20 20 20 20 20 20 20  |        |
00020d58 02 04 53 45 51 20 62 6f  |  SEQ bo|
00020d60 61 72 64 20 44 65 63 6f  |ard Deco|
00020d68 64 65 20 52 41 4d 20 70  |de RAM p|
00020d70 61 72 69 74 79 20 65 72  |arity er|
00020d78 72 6f 72 20 20 20 20 20  |ror     |
00020d80 20 20 02 05 4d 69 63 72  |    Micr|
00020d88 6f 63 6f 64 65 20 48 41  |ocode HA|
00020d90 4c 54 20 20 20 20 20 20  |LT      |
00020d98 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020da8 20 20 20 20 02 01 46 49  |      FI|		.XXX[0xd0]
00020db0 55 20 62 6f 61 72 64 20  |U board |
00020db8 46 49 55 20 62 75 73 20  |FIU bus |
00020dc0 70 61 72 69 74 79 20 65  |parity e|
00020dc8 72 72 6f 72 20 20 20 20  |rror    |
00020dd0 20 20 20 20 20 20 03 0a  |        |
00020dd8 46 49 55 20 62 6f 61 72  |FIU boar|
00020de0 64 20 56 41 4c 20 62 75  |d VAL bu|
00020de8 73 20 70 61 72 69 74 79  |s parity|
00020df0 20 65 72 72 6f 72 20 20  | error  |
00020df8 20 20 20 20 20 20 20 20  |        |
00020e00 03 0a 46 49 55 20 62 6f  |  FIU bo|
00020e08 61 72 64 20 54 59 50 20  |ard TYP |
00020e10 62 75 73 20 70 61 72 69  |bus pari|
00020e18 74 79 20 65 72 72 6f 72  |ty error|
00020e20 20 20 20 20 20 20 20 20  |        |
00020e28 20 20 03 0a 46 49 55 20  |    FIU |
00020e30 62 6f 61 72 64 20 41 64  |board Ad|
00020e38 64 72 65 73 73 20 62 75  |dress bu|
00020e40 73 20 70 61 72 69 74 79  |s parity|
00020e48 20 65 72 72 6f 72 20 20  | error  |
00020e50 20 20 20 20 03 09 52 65  |      Re|
00020e58 66 72 65 73 68 20 4d 61  |fresh Ma|
00020e60 63 68 69 6e 65 20 43 68  |chine Ch|
00020e68 65 63 6b 20 20 20 20 20  |eck     |
00020e70 20 20 20 20 20 20 20 20  |        |
00020e78 20 20 20 20 20 20        |        |		.XXX[0x6]
00020e7e 03 02                    |        |		.XXX[0x2]
00020e80 46 49 55 20 62 6f 61 72  |FIU boar|		.XXX[0x2a0]
00020e88 64 20 57 43 53 20 70 61  |d WCS pa|
00020e90 72 69 74 79 20 65 72 72  |rity err|
00020e98 6f 72 20 20 20 20 20 20  |or      |
00020ea0 20 20 20 20 20 20 20 20  |        |
00020ea8 03 04 46 49 55 20 62 6f  |  FIU bo|
00020eb0 61 72 64 20 4d 69 63 72  |ard Micr|
00020eb8 6f 61 64 64 72 65 73 73  |oaddress|
00020ec0 20 62 75 73 20 70 61 72  | bus par|
00020ec8 69 74 79 20 65 72 72 6f  |ity erro|
00020ed0 72 20 03 03 46 49 55 20  |r   FIU |
00020ed8 62 6f 61 72 64 20 53 63  |board Sc|
00020ee0 61 76 65 6e 67 65 72 20  |avenger |
00020ee8 52 41 4d 20 70 61 72 69  |RAM pari|
00020ef0 74 79 20 65 72 72 6f 72  |ty error|
00020ef8 20 20 20 20 03 06 4d 65  |      Me|
00020f00 6d 6f 72 79 20 62 6f 61  |mory boa|
00020f08 72 64 20 30 20 54 61 67  |rd 0 Tag|
00020f10 73 74 6f 72 65 20 30 20  |store 0 |
00020f18 70 61 72 69 74 79 20 65  |parity e|
00020f20 72 72 6f 72 20 20 0c 07  |rror    |
00020f28 4d 65 6d 6f 72 79 20 62  |Memory b|
00020f30 6f 61 72 64 20 30 20 54  |oard 0 T|
00020f38 61 67 73 74 6f 72 65 20  |agstore |
00020f40 31 20 70 61 72 69 74 79  |1 parity|
00020f48 20 65 72 72 6f 72 20 20  | error  |
00020f50 0c 07 4d 65 6d 6f 72 79  |  Memory|
00020f58 20 62 6f 61 72 64 20 30  | board 0|
00020f60 20 41 64 64 72 65 73 73  | Address|
00020f68 20 62 75 73 20 70 61 72  | bus par|
00020f70 69 74 79 20 65 72 72 6f  |ity erro|
00020f78 72 20 0c 09 4d 65 6d 6f  |r   Memo|
00020f80 72 79 20 62 6f 61 72 64  |ry board|
00020f88 20 31 20 54 61 67 73 74  | 1 Tagst|
00020f90 6f 72 65 20 30 20 70 61  |ore 0 pa|
00020f98 72 69 74 79 20 65 72 72  |rity err|
00020fa0 6f 72 20 20 0d 07 4d 65  |or    Me|
00020fa8 6d 6f 72 79 20 62 6f 61  |mory boa|
00020fb0 72 64 20 31 20 54 61 67  |rd 1 Tag|
00020fb8 73 74 6f 72 65 20 31 20  |store 1 |
00020fc0 70 61 72 69 74 79 20 65  |parity e|
00020fc8 72 72 6f 72 20 20 0d 07  |rror    |
00020fd0 4d 65 6d 6f 72 79 20 62  |Memory b|
00020fd8 6f 61 72 64 20 31 20 41  |oard 1 A|
00020fe0 64 64 72 65 73 73 20 62  |ddress b|
00020fe8 75 73 20 70 61 72 69 74  |us parit|
00020ff0 79 20 65 72 72 6f 72 20  |y error |
00020ff8 0d 09 4d 65 6d 6f 72 79  |  Memory|
00021000 20 62 6f 61 72 64 20 32  | board 2|
00021008 20 54 61 67 73 74 6f 72  | Tagstor|
00021010 65 20 30 20 70 61 72 69  |e 0 pari|
00021018 74 79 20 65 72 72 6f 72  |ty error|
00021020 20 20 0e 07 4d 65 6d 6f  |    Memo|
00021028 72 79 20 62 6f 61 72 64  |ry board|
00021030 20 32 20 54 61 67 73 74  | 2 Tagst|
00021038 6f 72 65 20 31 20 70 61  |ore 1 pa|
00021040 72 69 74 79 20 65 72 72  |rity err|
00021048 6f 72 20 20 0e 07 4d 65  |or    Me|
00021050 6d 6f 72 79 20 62 6f 61  |mory boa|
00021058 72 64 20 32 20 41 64 64  |rd 2 Add|
00021060 72 65 73 73 20 62 75 73  |ress bus|
00021068 20 70 61 72 69 74 79 20  | parity |
00021070 65 72 72 6f 72 20 0e 09  |error   |
00021078 4d 65 6d 6f 72 79 20 62  |Memory b|
00021080 6f 61 72 64 20 33 20 54  |oard 3 T|
00021088 61 67 73 74 6f 72 65 20  |agstore |
00021090 30 20 70 61 72 69 74 79  |0 parity|
00021098 20 65 72 72 6f 72 20 20  | error  |
000210a0 0f 07 4d 65 6d 6f 72 79  |  Memory|
000210a8 20 62 6f 61 72 64 20 33  | board 3|
000210b0 20 54 61 67 73 74 6f 72  | Tagstor|
000210b8 65 20 31 20 70 61 72 69  |e 1 pari|
000210c0 74 79 20 65 72 72 6f 72  |ty error|
000210c8 20 20 0f 07 4d 65 6d 6f  |    Memo|
000210d0 72 79 20 62 6f 61 72 64  |ry board|
000210d8 20 33 20 41 64 64 72 65  | 3 Addre|
000210e0 73 73 20 62 75 73 20 70  |ss bus p|
000210e8 61 72 69 74 79 20 65 72  |arity er|
000210f0 72 6f 72 20 0f 09 00 80  |ror     |
000210f8 00 40 00 20 00 10 00 08  | @      |
00021100 00 04 00 02 00 01 55 6e  |      Un|
00021108 6b 6e 6f 77 6e 20 65 72  |known er|
00021110 72 6f 72 20 20 20 20 20  |ror     |
00021118 20 20 20 20 20 20 20 20  |        |
00021120 20 20 20 20              |        |		.XXX[0x4]
00021124 48 61 6c 74              |Halt    |		.XXX[0x4]
00021128 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
00021140 20 20                    |        |		.BLANK	20[0x2]
00021142 52 65 66 72 65 73        |Refres  |		.XXX[0x6]
00021148 68 20 6d 61 63 68 69 6e  |h machin|		.XXX[0x120]
00021150 65 20 63 68 65 63 6b 20  |e check |
00021158 20 20 20 20 20 20 20 20  |        |
00021160 4d 69 63 72 6f 61 64 64  |Microadd|
00021168 72 65 73 73 20 62 75 73  |ress bus|
00021170 20 70 61 72 69 74 79 20  | parity |
00021178 20 20 20 20 20 20 57 43  |      WC|
00021180 53 20 52 41 4d 20 70 61  |S RAM pa|
00021188 72 69 74 79 20 65 72 72  |rity err|
00021190 6f 72 20 20 20 20 20 20  |or      |
00021198 20 20 20 20 44 65 63 6f  |    Deco|
000211a0 64 65 20 52 41 4d 20 70  |de RAM p|
000211a8 61 72 69 74 79 20 65 72  |arity er|
000211b0 72 6f 72 20 20 20 20 20  |ror     |
000211b8 20 20 53 63 61 76 65 6e  |  Scaven|
000211c0 67 65 72 20 52 41 4d 20  |ger RAM |
000211c8 70 61 72 69 74 79 20 65  |parity e|
000211d0 72 72 6f 72 20 20 20 20  |rror    |
000211d8 54 61 67 73 74 6f 72 65  |Tagstore|
000211e0 20 52 41 4d 20 70 61 72  | RAM par|
000211e8 69 74 79 20 65 72 72 6f  |ity erro|
000211f0 72 20 20 20 20 20 52 65  |r     Re|
000211f8 67 69 73 74 65 72 20 46  |gister F|
00021200 69 6c 65 20 52 41 4d 20  |ile RAM |
00021208 70 61 72 69 74 79 20 65  |parity e|
00021210 72 72 6f 72 41 64 64 72  |rrorAddr|
00021218 65 73 73 20 62 75 73 20  |ess bus |
00021220 70 61 72 69 74 79 20 65  |parity e|
00021228 72 72 6f 72 20 20 20 20  |rror    |
00021230 20 20 46 6f 72 65 70 6c  |  Forepl|
00021238 61 6e 65 20 62 75 73 20  |ane bus |
00021240 70 61 72 69 74 79 20 65  |parity e|
00021248 72 72 6f 72 20 20 20 20  |rror    |
00021250 57 44 52 2f 46 6f 72 65  |WDR/Fore|
00021258 70 6c 61 6e 65 5f 62 75  |plane_bu|
00021260 73 20 65 72 72 6f 72 20  |s error |
00021268 20 20 20 20 20 20        |        |		.XXX[0x6]
0002126e ; --------------------------------------------------------------------------------------
0002126e ; OMSI PASCAL Function
0002126e ;    <LVAR -0x003 1(w)>
0002126e ;    <LVAR -0x004 1(w) 2(r)>
0002126e ;    <LVAR -0x005 1(r)>
0002126e ;    <LVAR -0x006 @ 1(r) 2(r)>
0002126e ;    <LVAR -0x010 @>
0002126e ;    <LVAR -0x018 @>
0002126e ;    <LVAR -0x020 @>
0002126e ;    <LVAR -0x028 @>
0002126e ;    <LVAR -0x030 @>
0002126e ;    <LVAR -0x038 @>
0002126e ;    <LVAR -0x040 @>
0002126e ;    <LVAR -0x048 @>
0002126e ;    <LVAR -0x050 @>
0002126e ;    <LVAR -0x058 @>
0002126e ;    <LVAR -0x060 @>
0002126e ;    <LVAR -0x068 @>
0002126e ;    <LVAR -0x070 @>
0002126e ;    <LVAR -0x078 @>
0002126e ;    <LVAR -0x080 @>
0002126e ;    <LVAR -0x088 @>
0002126e ;    <LVAR -0x090 @>
0002126e ; --------------------------------------------------------------------------------------
0002126e 4e 56 ff 00              |NV      |		LINK.W	A6,#0xff00
00021272 bf d5                    |        |		CMPA.L	(A5),A7
00021274 62 06                    |b       |		BHI	0x2127c
00021276 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002127a 4e 76                    |Nv      |		TRAPV
0002127c de fc 00 70              |   p    |		ADDA.W	#0x70,A7
00021280 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021284 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021288 78 40                    |x@      |		MOVEQ.L	#0x40,D4
0002128a 42 27                    |B'      |		CLR.B	-(A7)
0002128c 48 52                    |HR      |		PEA.L	(A2)
0002128e 4e b9 00 02 22 0c        |N   "   |		JSR	exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2)
00021294 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021296 42 80                    |B       |		CLR.L	D0
00021298 10 12                    |        |		MOVE.B	(A2),D0
0002129a e1 40                    | @      |		ASL.W	#0x8,D0
0002129c 42 81                    |B       |		CLR.L	D1
0002129e 12 2e ff fb              | .      |		MOVE.B	(A6-0x5),D1
000212a2 d2 40                    | @      |		ADD.W	D0,D1
000212a4 3a 01                    |:       |		MOVE.W	D1,D5
000212a6 42 80                    |B       |		CLR.L	D0
000212a8 30 05                    |0       |		MOVE.W	D5,D0
000212aa 90 84                    |        |		SUB.L	D4,D0
000212ac 55 80                    |U       |		SUBQ.L	#0x2,D0
000212ae 02 80 00 00 07 ff        |        |		ANDI.L	#0x000007ff,D0
000212b4 3a 00                    |:       |		MOVE.W	D0,D5
000212b6 30 05                    |0       |		MOVE.W	D5,D0
000212b8 e0 48                    | H      |		LSR.W	#0x8,D0
000212ba 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
000212be 30 05                    |0       |		MOVE.W	D5,D0
000212c0 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000212c4 1d 40 ff fd              | @      |		MOVE.B	D0,(A6-0x3)
000212c8 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
000212cc 42 27                    |B'      |		CLR.B	-(A7)
000212ce 4e b9 00 02 22 50        |N   "P  |		JSR	exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
000212d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212d6 48 6e ff 78              |Hn x    |		PEA.L	(A6-0x88)
000212da 48 6e ff 80              |Hn      |		PEA.L	(A6-0x80)
000212de 48 6e ff 88              |Hn      |		PEA.L	(A6-0x78)
000212e2 48 6e ff 90              |Hn      |		PEA.L	(A6-0x70)
000212e6 48 6e ff 98              |Hn      |		PEA.L	(A6-0x68)
000212ea 48 6e ff a0              |Hn      |		PEA.L	(A6-0x60)
000212ee 48 6e ff a8              |Hn      |		PEA.L	(A6-0x58)
000212f2 48 6e ff b0              |Hn      |		PEA.L	(A6-0x50)
000212f6 48 6e ff b8              |Hn      |		PEA.L	(A6-0x48)
000212fa 48 6e ff c0              |Hn      |		PEA.L	(A6-0x40)
000212fe 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
00021302 48 6e ff d0              |Hn      |		PEA.L	(A6-0x30)
00021306 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
0002130a 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
0002130e 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021312 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00021316 4e b9 00 02 21 da        |N   !   |		JSR	exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
0002131c de c4                    |        |		ADDA.W	D4,A7
0002131e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021320 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021322 20 06                    |        |		MOVE.L	D6,D0
00021324 e5 80                    |        |		ASL.L	#0x2,D0
00021326 44 80                    |D       |		NEG.L	D0
00021328 06 80 00 00 00 3f        |     ?  |		ADDI.L	#0x0000003f,D0
0002132e 90 87                    |        |		SUB.L	D7,D0
00021330 0c 80 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D0
00021336 63 02                    |c       |		BLS	0x2133a
00021338 4e 4f                    |NO      |		TRAP	#15
0002133a e3 80                    |        |		ASL.L	#0x1,D0
0002133c 41 f9 00 02 24 7c        |A   $|  |		LEA.L	0x2247c,A0
00021342 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
00021348 63 02                    |c       |		BLS	0x2134c
0002134a 4e 4f                    |NO      |		TRAP	#15
0002134c 22 06                    |"       |		MOVE.L	D6,D1
0002134e e7 81                    |        |		ASL.L	#0x3,D1
00021350 43 ee ff 70              |C  p    |		LEA.L	(A6-0x90),A1
00021354 24 07                    |$       |		MOVE.L	D7,D2
00021356 e3 82                    |        |		ASL.L	#0x1,D2
00021358 0c 82 00 00 00 07        |        |		CMPI.L	#0x00000007,D2
0002135e 63 02                    |c       |		BLS	0x21362
00021360 4e 4f                    |NO      |		TRAP	#15
00021362 43 f1 18 00              |C       |		LEA.L	(A1+D1.L),A1
00021366 42 81                    |B       |		CLR.L	D1
00021368 12 31 28 08              | 1(     |		MOVE.B	(A1+D2.L+#0x8),D1
0002136c e1 41                    | A      |		ASL.W	#0x8,D1
0002136e 52 82                    |R       |		ADDQ.L	#0x1,D2
00021370 0c 82 00 00 00 07        |        |		CMPI.L	#0x00000007,D2
00021376 63 02                    |c       |		BLS	0x2137a
00021378 4e 4f                    |NO      |		TRAP	#15
0002137a 42 83                    |B       |		CLR.L	D3
0002137c 16 31 28 08              | 1(     |		MOVE.B	(A1+D2.L+#0x8),D3
00021380 d6 41                    | A      |		ADD.W	D1,D3
00021382 31 83 08 08              |1       |		MOVE.W	D3,(A0+D0.L+#0x8)
00021386 52 87                    |R       |		ADDQ.L	#0x1,D7
00021388 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
0002138e 6f 92                    |o       |		BLE	0x21322
00021390 52 86                    |R       |		ADDQ.L	#0x1,D6
00021392 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
00021398 6f 86                    |o       |		BLE	0x21320
0002139a 3f 12                    |?       |		MOVE.W	(A2),-(A7)
0002139c 42 27                    |B'      |		CLR.B	-(A7)
0002139e 4e b9 00 02 22 50        |N   "P  |		JSR	exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
000213a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213a6 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
000213aa 4e 5e                    |N^      |		UNLK	A6
000213ac 4e 75                    |Nu      |		RTS
000213ae ; --------------------------------------------------------------------------------------
000213ae ; OMSI PASCAL Function
000213ae ;    <LVAR  0x010 1(r)>
000213ae ;    <LVAR  0x00c 4(r)>
000213ae ;    <LVAR  0x00a 1(r)>
000213ae ;    <LVAR  0x008 1(r)>
000213ae ; --------------------------------------------------------------------------------------
000213ae 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0		; Spelunked
000213b2 bf d5                    |        |		CMPA.L	(A5),A7
000213b4 62 06                    |b       |		BHI	0x213bc
000213b6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213ba 4e 76                    |Nv      |		TRAPV
000213bc de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
000213c0 48 e7 f0 80              |H       |		MOVEM.L	A0+D3+D2+D1+D0,-(A7)
000213c4 76 01                    |v       |		MOVEQ.L	#0x01,D3
000213c6 70 00                    |p       |		MOVEQ.L	#0x00,D0
000213c8 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
000213cc 0c 81 00 00 00 07        |        |		CMPI.L	#0x00000007,D1
000213d2 63 02                    |c       |		BLS	0x213d6
000213d4 4e 4f                    |NO      |		TRAP	#15
000213d6 e3 81                    |        |		ASL.L	#0x1,D1
000213d8 41 fa fd 1c              |A       |		LEA.L	0x210f6,A0
000213dc 42 82                    |B       |		CLR.L	D2
000213de 14 2e 00 10              | .      |		MOVE.B	(A6+0x10),D2
000213e2 c4 70 18 00              | p      |		AND.W	(A0+D1.L),D2
000213e6 67 02                    |g       |		BEQ	0x213ea
000213e8 52 00                    |R       |		ADDQ.B	#0x1,D0
000213ea b0 2e 00 0a              | .      |		CMP.B	(A6+0xa),D0
000213ee 66 4c                    |fL      |		BNE	0x2143c
000213f0 20 6c 00 2c              | l ,    |		MOVEA.L	(A4+0x2c),A0
000213f4 52 90                    |R       |		ADDQ.L	#0x1,(A0)
000213f6 20 6c 00 30              | l 0    |		MOVEA.L	(A4+0x30),A0
000213fa 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000213fe 48 80                    |H       |		EXTB.W	D0
00021400 11 83 00 00              |        |		MOVE.B	D3,(A0+D0.W)
00021404 20 6c 00 28              | l (    |		MOVEA.L	(A4+0x28),A0
00021408 10 80                    |        |		MOVE.B	D0,(A0)
0002140a c1 fc 00 2a              |   *    |		MULS.W	#0x2a,D0
0002140e 41 fa f5 ae              |A       |		LEA.L	0x209be,A0
00021412 41 f0 00 28              |A  (    |		LEA.L	(A0+D0.W+#0x28),A0
00021416 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021418 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002141a 51 c8 ff fc              |Q       |		DBF	D0,0x21418
0002141e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021420 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021424 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021426 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
0002142a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021430 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021432 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021438 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002143c 4c df 01 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0
00021440 4e 5e                    |N^      |		UNLK	A6
00021442 4e 75                    |Nu      |		RTS
00021444 ; --------------------------------------------------------------------------------------
00021444 ; OMSI PASCAL Function
00021444 ;    <LVAR  0x00c 4(r)>
00021444 ;    <LVAR -0x002 @ 1(r)>
00021444 ;    <LVAR -0x003 @>
00021444 ;    <LVAR -0x005 @ 1(r)>
00021444 ;    <LVAR -0x006 @ 1(r)>
00021444 ;    <LVAR -0x007 @ 1(r)>
00021444 ;    <LVAR -0x008 @ 1(rw)>
00021444 ;    <LVAR -0x00a 1(r)>
00021444 ;    <LVAR -0x00e @>
00021444 ;    <LVAR -0x013 1(r)>
00021444 ;    <LVAR -0x014 @ 1(r)>
00021444 ;    <LVAR -0x015 1(r)>
00021444 ;    <LVAR -0x019 @>
00021444 ;    <LVAR -0x01d 1(r)>
00021444 ;    <LVAR -0x01e @ 1(r)>
00021444 ;    <LVAR -0x01f 1(w)>
00021444 ;    <LVAR -0x020 @ 1(w) 2(r)>
00021444 ; --------------------------------------------------------------------------------------
00021444 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00021448 bf d5                    |        |		CMPA.L	(A5),A7
0002144a 62 06                    |b       |		BHI	0x21452
0002144c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021450 4e 76                    |Nv      |		TRAPV
00021452 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021456 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002145a 43 ee ff e0              |C       |		LEA.L	(A6-0x20),A1
0002145e 45 fa ff 4e              |E  N    |		LEA.L	0x213ae,A2
00021462 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00021466 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021468 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0002146a 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002146c 7a 02                    |z       |		MOVEQ.L	#0x02,D5
0002146e 7c 03                    ||       |		MOVEQ.L	#0x03,D6
00021470 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021474 42 90                    |B       |		CLR.L	(A0)
00021476 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021478 30 39 00 02 24 84        |09  $   |		MOVE.W	0x22484,D0
0002147e 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00021482 67 02                    |g       |		BEQ	0x21486
00021484 52 07                    |R       |		ADDQ.B	#0x1,D7
00021486 30 39 00 02 24 86        |09  $   |		MOVE.W	0x22486,D0
0002148c 02 40 3f 00              | @?     |		ANDI.W	#0x3f00,D0
00021490 e0 48                    | H      |		LSR.W	#0x8,D0
00021492 12 80                    |        |		MOVE.B	D0,(A1)
00021494 30 39 00 02 24 86        |09  $   |		MOVE.W	0x22486,D0
0002149a 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002149e 1d 40 ff e1              | @      |		MOVE.B	D0,(A6-0x1f)
000214a2 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000214a4 42 27                    |B'      |		CLR.B	-(A7)
000214a6 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000214aa 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000214ae 4e b9 00 02 20 78        |N    x  |		JSR	exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
000214b4 de c3                    |        |		ADDA.W	D3,A7
000214b6 3e 91                    |>       |		MOVE.W	(A1),(A7)
000214b8 42 27                    |B'      |		CLR.B	-(A7)
000214ba 48 6e ff e2              |Hn      |		PEA.L	(A6-0x1e)
000214be 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000214c2 4e b9 00 02 20 b4        |N       |		JSR	exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
000214c8 de c4                    |        |		ADDA.W	D4,A7
000214ca 30 39 00 02 24 88        |09  $   |		MOVE.W	0x22488,D0
000214d0 02 40 3f 00              | @?     |		ANDI.W	#0x3f00,D0
000214d4 e0 48                    | H      |		LSR.W	#0x8,D0
000214d6 12 80                    |        |		MOVE.B	D0,(A1)
000214d8 30 39 00 02 24 88        |09  $   |		MOVE.W	0x22488,D0
000214de 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000214e2 1d 40 ff e1              | @      |		MOVE.B	D0,(A6-0x1f)
000214e6 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000214e8 42 27                    |B'      |		CLR.B	-(A7)
000214ea 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000214ee 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000214f2 4e b9 00 02 20 78        |N    x  |		JSR	exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
000214f8 de c3                    |        |		ADDA.W	D3,A7
000214fa 3e 91                    |>       |		MOVE.W	(A1),(A7)
000214fc 42 27                    |B'      |		CLR.B	-(A7)
000214fe 48 6e ff e7              |Hn      |		PEA.L	(A6-0x19)
00021502 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021506 4e b9 00 02 20 b4        |N       |		JSR	exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
0002150c de c3                    |        |		ADDA.W	D3,A7
0002150e 42 17                    |B       |		CLR.B	(A7)
00021510 48 53                    |HS      |		PEA.L	(A3)
00021512 4e b9 00 02 22 32        |N   "2  |		JSR	exp_READ_PAREG.IOC(Sw_1, &Sr_1)
00021518 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002151a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002151c 48 78 00 04              |Hx      |		PEA.L	0x4
00021520 42 27                    |B'      |		CLR.B	-(A7)
00021522 1f 05                    |        |		MOVE.B	D5,-(A7)
00021524 28 49                    |(I      |		MOVEA.L	A1,A4
00021526 4e 92                    |N       |		JSR	(A2)
00021528 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002152a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002152c 48 78 00 05              |Hx      |		PEA.L	0x5
00021530 42 27                    |B'      |		CLR.B	-(A7)
00021532 1f 06                    |        |		MOVE.B	D6,-(A7)
00021534 28 49                    |(I      |		MOVEA.L	A1,A4
00021536 4e 92                    |N       |		JSR	(A2)
00021538 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002153a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002153c 48 78 00 06              |Hx      |		PEA.L	0x6
00021540 42 27                    |B'      |		CLR.B	-(A7)
00021542 1f 02                    |        |		MOVE.B	D2,-(A7)
00021544 28 49                    |(I      |		MOVEA.L	A1,A4
00021546 4e 92                    |N       |		JSR	(A2)
00021548 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002154a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002154c 48 78 00 07              |Hx      |		PEA.L	0x7
00021550 42 27                    |B'      |		CLR.B	-(A7)
00021552 42 27                    |B'      |		CLR.B	-(A7)
00021554 28 49                    |(I      |		MOVEA.L	A1,A4
00021556 4e 92                    |N       |		JSR	(A2)
00021558 de c3                    |        |		ADDA.W	D3,A7
0002155a 48 53                    |HS      |		PEA.L	(A3)
0002155c 4e b9 00 02 20 d2        |N       |		JSR	exp_READ_PARITY.VAL(&Sr_1)
00021562 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021564 1e 93                    |        |		MOVE.B	(A3),(A7)
00021566 48 78 00 00              |Hx      |		PEA.L	0x0
0002156a 42 27                    |B'      |		CLR.B	-(A7)
0002156c 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00021570 28 49                    |(I      |		MOVEA.L	A1,A4
00021572 4e 92                    |N       |		JSR	(A2)
00021574 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021576 1e 93                    |        |		MOVE.B	(A3),(A7)
00021578 48 78 00 01              |Hx      |		PEA.L	0x1
0002157c 42 27                    |B'      |		CLR.B	-(A7)
0002157e 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00021582 28 49                    |(I      |		MOVEA.L	A1,A4
00021584 4e 92                    |N       |		JSR	(A2)
00021586 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021588 1e 93                    |        |		MOVE.B	(A3),(A7)
0002158a 48 78 00 03              |Hx      |		PEA.L	0x3
0002158e 42 27                    |B'      |		CLR.B	-(A7)
00021590 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00021594 28 49                    |(I      |		MOVEA.L	A1,A4
00021596 4e 92                    |N       |		JSR	(A2)
00021598 de c3                    |        |		ADDA.W	D3,A7
0002159a 42 80                    |B       |		CLR.L	D0
0002159c 10 2e ff e2              | .      |		MOVE.B	(A6-0x1e),D0
000215a0 c0 46                    | F      |		AND.W	D6,D0
000215a2 b0 42                    | B      |		CMP.W	D2,D0
000215a4 66 22                    |f"      |		BNE	0x215c8
000215a6 42 80                    |B       |		CLR.L	D0
000215a8 10 2e ff e3              | .      |		MOVE.B	(A6-0x1d),D0
000215ac 02 40 00 f0              | @      |		ANDI.W	#0x00f0,D0
000215b0 0c 40 00 60              | @ `    |		CMPI.W	#0x0060,D0
000215b4 66 12                    |f       |		BNE	0x215c8
000215b6 4a 07                    |J       |		TST.B	D7
000215b8 66 0e                    |f       |		BNE	0x215c8
000215ba 1f 13                    |        |		MOVE.B	(A3),-(A7)
000215bc 48 78 00 02              |Hx      |		PEA.L	0x2
000215c0 42 27                    |B'      |		CLR.B	-(A7)
000215c2 1f 3c 00 08              | <      |		MOVE.B	#0x08,-(A7)
000215c6 60 0c                    |`       |		BRA	0x215d4
000215c8 1f 13                    |        |		MOVE.B	(A3),-(A7)
000215ca 48 78 00 02              |Hx      |		PEA.L	0x2
000215ce 42 27                    |B'      |		CLR.B	-(A7)
000215d0 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
000215d4 28 49                    |(I      |		MOVEA.L	A1,A4
000215d6 4e 92                    |N       |		JSR	(A2)
000215d8 de c3                    |        |		ADDA.W	D3,A7
000215da 42 80                    |B       |		CLR.L	D0
000215dc 10 13                    |        |		MOVE.B	(A3),D0
000215de 32 00                    |2       |		MOVE.W	D0,D1
000215e0 02 41 00 04              | A      |		ANDI.W	#0x0004,D1
000215e4 67 28                    |g(      |		BEQ	0x2160e
000215e6 42 81                    |B       |		CLR.L	D1
000215e8 12 2e ff eb              | .      |		MOVE.B	(A6-0x15),D1
000215ec c2 45                    | E      |		AND.W	D5,D1
000215ee 66 0e                    |f       |		BNE	0x215fe
000215f0 1f 00                    |        |		MOVE.B	D0,-(A7)
000215f2 48 78 00 04              |Hx      |		PEA.L	0x4
000215f6 1f 02                    |        |		MOVE.B	D2,-(A7)
000215f8 1f 3c 00 09              | <      |		MOVE.B	#0x09,-(A7)
000215fc 60 0a                    |`       |		BRA	0x21608
000215fe 1f 00                    |        |		MOVE.B	D0,-(A7)
00021600 48 78 00 04              |Hx      |		PEA.L	0x4
00021604 1f 02                    |        |		MOVE.B	D2,-(A7)
00021606 1f 03                    |        |		MOVE.B	D3,-(A7)
00021608 28 49                    |(I      |		MOVEA.L	A1,A4
0002160a 4e 92                    |N       |		JSR	(A2)
0002160c de c3                    |        |		ADDA.W	D3,A7
0002160e 48 53                    |HS      |		PEA.L	(A3)
00021610 4e b9 00 02 20 96        |N       |		JSR	exp_READ_PARITY.TYP(&Sr_1)
00021616 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021618 1e 93                    |        |		MOVE.B	(A3),(A7)
0002161a 48 78 00 00              |Hx      |		PEA.L	0x0
0002161e 42 27                    |B'      |		CLR.B	-(A7)
00021620 1f 3c 00 0b              | <      |		MOVE.B	#0x0b,-(A7)
00021624 28 49                    |(I      |		MOVEA.L	A1,A4
00021626 4e 92                    |N       |		JSR	(A2)
00021628 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002162a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002162c 48 78 00 01              |Hx      |		PEA.L	0x1
00021630 42 27                    |B'      |		CLR.B	-(A7)
00021632 1f 04                    |        |		MOVE.B	D4,-(A7)
00021634 28 49                    |(I      |		MOVEA.L	A1,A4
00021636 4e 92                    |N       |		JSR	(A2)
00021638 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002163a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002163c 48 78 00 03              |Hx      |		PEA.L	0x3
00021640 42 27                    |B'      |		CLR.B	-(A7)
00021642 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00021646 28 49                    |(I      |		MOVEA.L	A1,A4
00021648 4e 92                    |N       |		JSR	(A2)
0002164a de c3                    |        |		ADDA.W	D3,A7
0002164c 42 80                    |B       |		CLR.L	D0
0002164e 10 2e ff ec              | .      |		MOVE.B	(A6-0x14),D0
00021652 c0 46                    | F      |		AND.W	D6,D0
00021654 b0 42                    | B      |		CMP.W	D2,D0
00021656 66 22                    |f"      |		BNE	0x2167a
00021658 42 80                    |B       |		CLR.L	D0
0002165a 10 2e ff ed              | .      |		MOVE.B	(A6-0x13),D0
0002165e 02 40 00 f0              | @      |		ANDI.W	#0x00f0,D0
00021662 0c 40 00 60              | @ `    |		CMPI.W	#0x0060,D0
00021666 66 12                    |f       |		BNE	0x2167a
00021668 4a 07                    |J       |		TST.B	D7
0002166a 66 0e                    |f       |		BNE	0x2167a
0002166c 1f 13                    |        |		MOVE.B	(A3),-(A7)
0002166e 48 78 00 02              |Hx      |		PEA.L	0x2
00021672 42 27                    |B'      |		CLR.B	-(A7)
00021674 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
00021678 60 0c                    |`       |		BRA	0x21686
0002167a 1f 13                    |        |		MOVE.B	(A3),-(A7)
0002167c 48 78 00 02              |Hx      |		PEA.L	0x2
00021680 42 27                    |B'      |		CLR.B	-(A7)
00021682 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021686 28 49                    |(I      |		MOVEA.L	A1,A4
00021688 4e 92                    |N       |		JSR	(A2)
0002168a de c3                    |        |		ADDA.W	D3,A7
0002168c 42 80                    |B       |		CLR.L	D0
0002168e 10 13                    |        |		MOVE.B	(A3),D0
00021690 32 00                    |2       |		MOVE.W	D0,D1
00021692 c2 45                    | E      |		AND.W	D5,D1
00021694 67 2a                    |g*      |		BEQ	0x216c0
00021696 42 81                    |B       |		CLR.L	D1
00021698 12 2e ff f6              | .      |		MOVE.B	(A6-0xa),D1
0002169c c2 42                    | B      |		AND.W	D2,D1
0002169e 66 0e                    |f       |		BNE	0x216ae
000216a0 1f 00                    |        |		MOVE.B	D0,-(A7)
000216a2 48 78 00 05              |Hx      |		PEA.L	0x5
000216a6 1f 02                    |        |		MOVE.B	D2,-(A7)
000216a8 1f 3c 00 10              | <      |		MOVE.B	#0x10,-(A7)
000216ac 60 0c                    |`       |		BRA	0x216ba
000216ae 1f 00                    |        |		MOVE.B	D0,-(A7)
000216b0 48 78 00 05              |Hx      |		PEA.L	0x5
000216b4 1f 02                    |        |		MOVE.B	D2,-(A7)
000216b6 1f 3c 00 11              | <      |		MOVE.B	#0x11,-(A7)
000216ba 28 49                    |(I      |		MOVEA.L	A1,A4
000216bc 4e 92                    |N       |		JSR	(A2)
000216be de c3                    |        |		ADDA.W	D3,A7
000216c0 48 53                    |HS      |		PEA.L	(A3)
000216c2 4e b9 00 02 20 56        |N    V  |		JSR	exp_GET_MISC_ERRORS.SEQ(&Sr_1)
000216c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216ca 1e 93                    |        |		MOVE.B	(A3),(A7)
000216cc 48 78 00 03              |Hx      |		PEA.L	0x3
000216d0 42 27                    |B'      |		CLR.B	-(A7)
000216d2 1f 3c 00 12              | <      |		MOVE.B	#0x12,-(A7)
000216d6 28 49                    |(I      |		MOVEA.L	A1,A4
000216d8 4e 92                    |N       |		JSR	(A2)
000216da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216dc 1e 93                    |        |		MOVE.B	(A3),(A7)
000216de 48 78 00 04              |Hx      |		PEA.L	0x4
000216e2 42 27                    |B'      |		CLR.B	-(A7)
000216e4 1f 3c 00 13              | <      |		MOVE.B	#0x13,-(A7)
000216e8 28 49                    |(I      |		MOVEA.L	A1,A4
000216ea 4e 92                    |N       |		JSR	(A2)
000216ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216ee 1e 93                    |        |		MOVE.B	(A3),(A7)
000216f0 48 78 00 05              |Hx      |		PEA.L	0x5
000216f4 42 27                    |B'      |		CLR.B	-(A7)
000216f6 1f 3c 00 14              | <      |		MOVE.B	#0x14,-(A7)
000216fa 28 49                    |(I      |		MOVEA.L	A1,A4
000216fc 4e 92                    |N       |		JSR	(A2)
000216fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021700 1e 93                    |        |		MOVE.B	(A3),(A7)
00021702 48 78 00 06              |Hx      |		PEA.L	0x6
00021706 42 27                    |B'      |		CLR.B	-(A7)
00021708 1f 3c 00 15              | <      |		MOVE.B	#0x15,-(A7)
0002170c 28 49                    |(I      |		MOVEA.L	A1,A4
0002170e 4e 92                    |N       |		JSR	(A2)
00021710 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021712 1e 93                    |        |		MOVE.B	(A3),(A7)
00021714 48 78 00 07              |Hx      |		PEA.L	0x7
00021718 42 27                    |B'      |		CLR.B	-(A7)
0002171a 1f 3c 00 16              | <      |		MOVE.B	#0x16,-(A7)
0002171e 28 49                    |(I      |		MOVEA.L	A1,A4
00021720 4e 92                    |N       |		JSR	(A2)
00021722 de c3                    |        |		ADDA.W	D3,A7
00021724 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021728 4e b9 00 02 20 40        |N    @  |		JSR	exp_HALT.SEQ(&Fr)
0002172e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021730 16 ae ff fe              |        |		MOVE.B	(A6-0x2),(A3)
00021734 1f 13                    |        |		MOVE.B	(A3),-(A7)
00021736 48 78 00 07              |Hx      |		PEA.L	0x7
0002173a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002173c 1f 3c 00 17              | <      |		MOVE.B	#0x17,-(A7)
00021740 28 49                    |(I      |		MOVEA.L	A1,A4
00021742 4e 92                    |N       |		JSR	(A2)
00021744 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021746 42 17                    |B       |		CLR.B	(A7)
00021748 48 53                    |HS      |		PEA.L	(A3)
0002174a 4e b9 00 02 20 22        |N    "  |		JSR	exp_READ_PAREG.FIU(Sw_1, &Sr_1)
00021750 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021752 1e 93                    |        |		MOVE.B	(A3),(A7)
00021754 48 78 00 00              |Hx      |		PEA.L	0x0
00021758 42 27                    |B'      |		CLR.B	-(A7)
0002175a 1f 3c 00 18              | <      |		MOVE.B	#0x18,-(A7)
0002175e 28 49                    |(I      |		MOVEA.L	A1,A4
00021760 4e 92                    |N       |		JSR	(A2)
00021762 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021764 1e 93                    |        |		MOVE.B	(A3),(A7)
00021766 48 78 00 01              |Hx      |		PEA.L	0x1
0002176a 42 27                    |B'      |		CLR.B	-(A7)
0002176c 1f 3c 00 19              | <      |		MOVE.B	#0x19,-(A7)
00021770 28 49                    |(I      |		MOVEA.L	A1,A4
00021772 4e 92                    |N       |		JSR	(A2)
00021774 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021776 1e 93                    |        |		MOVE.B	(A3),(A7)
00021778 48 78 00 02              |Hx      |		PEA.L	0x2
0002177c 42 27                    |B'      |		CLR.B	-(A7)
0002177e 1f 3c 00 1a              | <      |		MOVE.B	#0x1a,-(A7)
00021782 28 49                    |(I      |		MOVEA.L	A1,A4
00021784 4e 92                    |N       |		JSR	(A2)
00021786 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021788 1e 93                    |        |		MOVE.B	(A3),(A7)
0002178a 48 78 00 03              |Hx      |		PEA.L	0x3
0002178e 42 27                    |B'      |		CLR.B	-(A7)
00021790 1f 3c 00 1b              | <      |		MOVE.B	#0x1b,-(A7)
00021794 28 49                    |(I      |		MOVEA.L	A1,A4
00021796 4e 92                    |N       |		JSR	(A2)
00021798 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002179a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002179c 48 78 00 04              |Hx      |		PEA.L	0x4
000217a0 42 27                    |B'      |		CLR.B	-(A7)
000217a2 1f 3c 00 1c              | <      |		MOVE.B	#0x1c,-(A7)
000217a6 28 49                    |(I      |		MOVEA.L	A1,A4
000217a8 4e 92                    |N       |		JSR	(A2)
000217aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217ac 1e 93                    |        |		MOVE.B	(A3),(A7)
000217ae 48 78 00 05              |Hx      |		PEA.L	0x5
000217b2 42 27                    |B'      |		CLR.B	-(A7)
000217b4 1f 3c 00 1d              | <      |		MOVE.B	#0x1d,-(A7)
000217b8 28 49                    |(I      |		MOVEA.L	A1,A4
000217ba 4e 92                    |N       |		JSR	(A2)
000217bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217be 1e 93                    |        |		MOVE.B	(A3),(A7)
000217c0 48 78 00 06              |Hx      |		PEA.L	0x6
000217c4 42 27                    |B'      |		CLR.B	-(A7)
000217c6 1f 3c 00 1e              | <      |		MOVE.B	#0x1e,-(A7)
000217ca 28 49                    |(I      |		MOVEA.L	A1,A4
000217cc 4e 92                    |N       |		JSR	(A2)
000217ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217d0 1e 93                    |        |		MOVE.B	(A3),(A7)
000217d2 48 78 00 07              |Hx      |		PEA.L	0x7
000217d6 42 27                    |B'      |		CLR.B	-(A7)
000217d8 1f 3c 00 1f              | <      |		MOVE.B	#0x1f,-(A7)
000217dc 28 49                    |(I      |		MOVEA.L	A1,A4
000217de 4e 92                    |N       |		JSR	(A2)
000217e0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217e2 1e 84                    |        |		MOVE.B	D4,(A7)
000217e4 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000217ea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217ec 4a 1f                    |J       |		TST.B	(A7)+
000217ee 67 52                    |gR      |		BEQ	0x21842
000217f0 1f 04                    |        |		MOVE.B	D4,-(A7)
000217f2 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000217f6 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000217fa 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000217fe 4e b9 00 02 21 10        |N   !   |		JSR	0x22110
00021804 de c4                    |        |		ADDA.W	D4,A7
00021806 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
0002180a 48 78 00 07              |Hx      |		PEA.L	0x7
0002180e 1f 02                    |        |		MOVE.B	D2,-(A7)
00021810 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
00021814 28 49                    |(I      |		MOVEA.L	A1,A4
00021816 4e 92                    |N       |		JSR	(A2)
00021818 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002181a 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
0002181e 48 78 00 07              |Hx      |		PEA.L	0x7
00021822 1f 02                    |        |		MOVE.B	D2,-(A7)
00021824 1f 3c 00 21              | < !    |		MOVE.B	#0x21,-(A7)
00021828 28 49                    |(I      |		MOVEA.L	A1,A4
0002182a 4e 92                    |N       |		JSR	(A2)
0002182c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002182e 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021832 48 78 00 07              |Hx      |		PEA.L	0x7
00021836 1f 02                    |        |		MOVE.B	D2,-(A7)
00021838 1f 3c 00 22              | < "    |		MOVE.B	#0x22,-(A7)
0002183c 28 49                    |(I      |		MOVEA.L	A1,A4
0002183e 4e 92                    |N       |		JSR	(A2)
00021840 de c3                    |        |		ADDA.W	D3,A7
00021842 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021844 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00021848 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002184e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021850 4a 1f                    |J       |		TST.B	(A7)+
00021852 67 54                    |gT      |		BEQ	0x218a8
00021854 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00021858 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
0002185c 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021860 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021864 4e b9 00 02 21 10        |N   !   |		JSR	0x22110
0002186a de c4                    |        |		ADDA.W	D4,A7
0002186c 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
00021870 48 78 00 07              |Hx      |		PEA.L	0x7
00021874 1f 02                    |        |		MOVE.B	D2,-(A7)
00021876 1f 3c 00 23              | < #    |		MOVE.B	#0x23,-(A7)
0002187a 28 49                    |(I      |		MOVEA.L	A1,A4
0002187c 4e 92                    |N       |		JSR	(A2)
0002187e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021880 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00021884 48 78 00 07              |Hx      |		PEA.L	0x7
00021888 1f 02                    |        |		MOVE.B	D2,-(A7)
0002188a 1f 3c 00 24              | < $    |		MOVE.B	#0x24,-(A7)
0002188e 28 49                    |(I      |		MOVEA.L	A1,A4
00021890 4e 92                    |N       |		JSR	(A2)
00021892 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021894 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021898 48 78 00 07              |Hx      |		PEA.L	0x7
0002189c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002189e 1f 3c 00 25              | < %    |		MOVE.B	#0x25,-(A7)
000218a2 28 49                    |(I      |		MOVEA.L	A1,A4
000218a4 4e 92                    |N       |		JSR	(A2)
000218a6 de c3                    |        |		ADDA.W	D3,A7
000218a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000218aa 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000218ae 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000218b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218b6 4a 1f                    |J       |		TST.B	(A7)+
000218b8 67 54                    |gT      |		BEQ	0x2190e
000218ba 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000218be 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000218c2 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000218c6 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000218ca 4e b9 00 02 21 10        |N   !   |		JSR	0x22110
000218d0 de c4                    |        |		ADDA.W	D4,A7
000218d2 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
000218d6 48 78 00 07              |Hx      |		PEA.L	0x7
000218da 1f 02                    |        |		MOVE.B	D2,-(A7)
000218dc 1f 3c 00 26              | < &    |		MOVE.B	#0x26,-(A7)
000218e0 28 49                    |(I      |		MOVEA.L	A1,A4
000218e2 4e 92                    |N       |		JSR	(A2)
000218e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218e6 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
000218ea 48 78 00 07              |Hx      |		PEA.L	0x7
000218ee 1f 02                    |        |		MOVE.B	D2,-(A7)
000218f0 1f 3c 00 27              | < '    |		MOVE.B	#0x27,-(A7)
000218f4 28 49                    |(I      |		MOVEA.L	A1,A4
000218f6 4e 92                    |N       |		JSR	(A2)
000218f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218fa 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
000218fe 48 78 00 07              |Hx      |		PEA.L	0x7
00021902 1f 02                    |        |		MOVE.B	D2,-(A7)
00021904 1f 3c 00 28              | < (    |		MOVE.B	#0x28,-(A7)
00021908 28 49                    |(I      |		MOVEA.L	A1,A4
0002190a 4e 92                    |N       |		JSR	(A2)
0002190c de c3                    |        |		ADDA.W	D3,A7
0002190e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021910 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
00021914 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002191a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002191c 4a 1f                    |J       |		TST.B	(A7)+
0002191e 67 54                    |gT      |		BEQ	0x21974
00021920 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
00021924 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00021928 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002192c 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021930 4e b9 00 02 21 10        |N   !   |		JSR	0x22110
00021936 de c4                    |        |		ADDA.W	D4,A7
00021938 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
0002193c 48 78 00 07              |Hx      |		PEA.L	0x7
00021940 1f 02                    |        |		MOVE.B	D2,-(A7)
00021942 1f 3c 00 29              | < )    |		MOVE.B	#0x29,-(A7)
00021946 28 49                    |(I      |		MOVEA.L	A1,A4
00021948 4e 92                    |N       |		JSR	(A2)
0002194a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002194c 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00021950 48 78 00 07              |Hx      |		PEA.L	0x7
00021954 1f 02                    |        |		MOVE.B	D2,-(A7)
00021956 1f 3c 00 2a              | < *    |		MOVE.B	#0x2a,-(A7)
0002195a 28 49                    |(I      |		MOVEA.L	A1,A4
0002195c 4e 92                    |N       |		JSR	(A2)
0002195e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021960 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021964 48 78 00 07              |Hx      |		PEA.L	0x7
00021968 1f 02                    |        |		MOVE.B	D2,-(A7)
0002196a 1f 3c 00 2b              | < +    |		MOVE.B	#0x2b,-(A7)
0002196e 28 49                    |(I      |		MOVEA.L	A1,A4
00021970 4e 92                    |N       |		JSR	(A2)
00021972 de c3                    |        |		ADDA.W	D3,A7
00021974 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021978 4e 5e                    |N^      |		UNLK	A6
0002197a 4e 75                    |Nu      |		RTS
0002197c ; --------------------------------------------------------------------------------------
0002197c ; OMSI PASCAL Function
0002197c ;    <LVAR  0x012 1(rw)>
0002197c ;    <LVAR  0x00e 4(r)>
0002197c ;    <LVAR  0x00a 4(r)>
0002197c ;    <LVAR  0x008 1(r)>
0002197c ; --------------------------------------------------------------------------------------
0002197c 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00021980 bf d5                    |        |		CMPA.L	(A5),A7
00021982 62 06                    |b       |		BHI	0x2198a
00021984 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021988 4e 76                    |Nv      |		TRAPV
0002198a de fc 00 36              |   6    |		ADDA.W	#0x36,A7
0002198e 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021992 43 ee 00 12              |C       |		LEA.L	(A6+0x12),A1
00021996 45 fa f0 26              |E  &    |		LEA.L	0x209be,A2
0002199a 76 0b                    |v       |		MOVEQ.L	#0x0b,D3
0002199c 78 01                    |x       |		MOVEQ.L	#0x01,D4
0002199e 7a 2a                    |z*      |		MOVEQ.L	#0x2a,D5
000219a0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000219a2 10 07                    |        |		MOVE.B	D7,D0
000219a4 48 80                    |H       |		EXTB.W	D0
000219a6 42 36 00 f4              |B6      |		CLR.B	(A6+D0.W-#0xc)
000219aa 52 07                    |R       |		ADDQ.B	#0x1,D7
000219ac be 03                    |        |		CMP.B	D3,D7
000219ae 6f f2                    |o       |		BLE	0x219a2
000219b0 4a ae 00 0a              |J       |		TST.L	(A6+0xa)
000219b4 66 04                    |f       |		BNE	0x219ba
000219b6 42 11                    |B       |		CLR.B	(A1)
000219b8 60 66                    |`f      |		BRA	0x21a20
000219ba 20 2e 00 0a              | .      |		MOVE.L	(A6+0xa),D0
000219be b0 84                    |        |		CMP.L	D4,D0
000219c0 66 10                    |f       |		BNE	0x219d2
000219c2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000219c6 48 80                    |H       |		EXTB.W	D0
000219c8 c1 c5                    |        |		MULS.W	D5,D0
000219ca 20 4a                    | J      |		MOVEA.L	A2,A0
000219cc 12 b0 00 29              |   )    |		MOVE.B	(A0+D0.W+#0x29),(A1)
000219d0 60 4e                    |`N      |		BRA	0x21a20
000219d2 7c 04                    ||       |		MOVEQ.L	#0x04,D6
000219d4 10 06                    |        |		MOVE.B	D6,D0
000219d6 48 80                    |H       |		EXTB.W	D0
000219d8 c1 c5                    |        |		MULS.W	D5,D0
000219da 20 4a                    | J      |		MOVEA.L	A2,A0
000219dc 12 30 00 29              | 0 )    |		MOVE.B	(A0+D0.W+#0x29),D1
000219e0 48 81                    |H       |		EXTB.W	D1
000219e2 20 4a                    | J      |		MOVEA.L	A2,A0
000219e4 14 30 00 29              | 0 )    |		MOVE.B	(A0+D0.W+#0x29),D2
000219e8 48 82                    |H       |		EXTB.W	D2
000219ea 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
000219ee 10 06                    |        |		MOVE.B	D6,D0
000219f0 48 80                    |H       |		EXTB.W	D0
000219f2 14 36 20 f4              | 6      |		MOVE.B	(A6+D2.W-#0xc),D2
000219f6 84 30 00 00              | 0      |		OR.B	(A0+D0.W),D2
000219fa 48 82                    |H       |		EXTB.W	D2
000219fc 45 84                    |E       |		CHK.W	D4,D2
000219fe 1d 82 10 f4              |        |		MOVE.B	D2,(A6+D1.W-#0xc)
00021a02 52 06                    |R       |		ADDQ.B	#0x1,D6
00021a04 0c 06 00 2b              |   +    |		CMPI.B	#0x2b,D6
00021a08 6f ca                    |o       |		BLE	0x219d4
00021a0a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021a0c 10 07                    |        |		MOVE.B	D7,D0
00021a0e 48 80                    |H       |		EXTB.W	D0
00021a10 4a 36 00 f4              |J6      |		TST.B	(A6+D0.W-#0xc)
00021a14 67 04                    |g       |		BEQ	0x21a1a
00021a16 12 87                    |        |		MOVE.B	D7,(A1)
00021a18 60 06                    |`       |		BRA	0x21a20
00021a1a 52 07                    |R       |		ADDQ.B	#0x1,D7
00021a1c be 03                    |        |		CMP.B	D3,D7
00021a1e 6f ec                    |o       |		BLE	0x21a0c
00021a20 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00021a24 4e 5e                    |N^      |		UNLK	A6
00021a26 4e 75                    |Nu      |		RTS
00021a28 ; --------------------------------------------------------------------------------------
00021a28 ; OMSI PASCAL Function
00021a28 ;    <LVAR  0x00a 4(w)>
00021a28 ;    <LVAR  0x008 1(r)>
00021a28 ; --------------------------------------------------------------------------------------
00021a28 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00021a2c bf d5                    |        |		CMPA.L	(A5),A7
00021a2e 62 06                    |b       |		BHI	0x21a36
00021a30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a34 4e 76                    |Nv      |		TRAPV
00021a36 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00021a3a 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00021a3e 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00021a40 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021a44 48 80                    |H       |		EXTB.W	D0
00021a46 c1 c1                    |        |		MULS.W	D1,D0
00021a48 41 fa f6 bc              |A       |		LEA.L	0x21106,A0
00021a4c 41 f0 00 1e              |A       |		LEA.L	(A0+D0.W+#0x1e),A0
00021a50 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021a52 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a54 51 c8 ff fc              |Q       |		DBF	D0,0x21a52
00021a58 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a5a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a5e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021a62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a64 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a6c 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
00021a70 de c1                    |        |		ADDA.W	D1,A7
00021a72 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00021a76 4e 5e                    |N^      |		UNLK	A6
00021a78 4e 75                    |Nu      |		RTS
00021a7a ; --------------------------------------------------------------------------------------
00021a7a ; OMSI PASCAL Function
00021a7a ;    <LVAR  0x03a 4(w)>
00021a7a ;    <LVAR  0x036 4(w)>
00021a7a ;    <LVAR  0x008 1(r)>
00021a7a ;    <LVAR -0x00a 4(r)>
00021a7a ;    <LVAR -0x00e 4(r)>
00021a7a ; --------------------------------------------------------------------------------------
00021a7a 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00021a7e bf d5                    |        |		CMPA.L	(A5),A7
00021a80 62 06                    |b       |		BHI	0x21a88
00021a82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a86 4e 76                    |Nv      |		TRAPV
00021a88 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00021a8c 48 e7 e7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00021a90 45 fa ef 2c              |E  ,    |		LEA.L	0x209be,A2
00021a94 74 07                    |t       |		MOVEQ.L	#0x07,D2
00021a96 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a98 be 82                    |        |		CMP.L	D2,D7
00021a9a 63 02                    |c       |		BLS	0x21a9e
00021a9c 4e 4f                    |NO      |		TRAP	#15
00021a9e 42 36 78 f2              |B6x     |		CLR.B	(A6+D7.L-#0xe)
00021aa2 52 87                    |R       |		ADDQ.L	#0x1,D7
00021aa4 be 82                    |        |		CMP.L	D2,D7
00021aa6 6f f0                    |o       |		BLE	0x21a98
00021aa8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021aaa 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00021aac 7a 04                    |z       |		MOVEQ.L	#0x04,D5
00021aae 10 05                    |        |		MOVE.B	D5,D0
00021ab0 48 80                    |H       |		EXTB.W	D0
00021ab2 4a 36 00 0a              |J6      |		TST.B	(A6+D0.W+#0xa)
00021ab6 67 6c                    |gl      |		BEQ	0x21b24
00021ab8 10 05                    |        |		MOVE.B	D5,D0
00021aba 48 80                    |H       |		EXTB.W	D0
00021abc c1 fc 00 2a              |   *    |		MULS.W	#0x2a,D0
00021ac0 20 4a                    | J      |		MOVEA.L	A2,A0
00021ac2 12 2e 00 08              | .      |		MOVE.B	(A6+0x8),D1
00021ac6 b2 30 00 29              | 0 )    |		CMP.B	(A0+D0.W+#0x29),D1
00021aca 66 58                    |fX      |		BNE	0x21b24
00021acc 20 4a                    | J      |		MOVEA.L	A2,A0
00021ace bc 30 00 28              | 0 (    |		CMP.B	(A0+D0.W+#0x28),D6
00021ad2 67 50                    |gP      |		BEQ	0x21b24
00021ad4 be 82                    |        |		CMP.L	D2,D7
00021ad6 6f 36                    |o6      |		BLE	0x21b0e
00021ad8 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021adc 20 4f                    | O      |		MOVEA.L	A7,A0
00021ade 43 fa ee 72              |C  r    |		LEA.L	0x20952,A1
00021ae2 72 16                    |r       |		MOVEQ.L	#0x16,D1
00021ae4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ae6 51 c9 ff fc              |Q       |		DBF	D1,0x21ae4
00021aea 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021aee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021af4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021af8 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021afc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b02 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b04 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021b0a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021b0e be 82                    |        |		CMP.L	D2,D7
00021b10 63 02                    |c       |		BLS	0x21b14
00021b12 4e 4f                    |NO      |		TRAP	#15
00021b14 20 4a                    | J      |		MOVEA.L	A2,A0
00021b16 1d b0 00 28 78 f2        |   (x   |		MOVE.B	(A0+D0.W+#0x28),(A6+D7.L-#0xe)
00021b1c 20 4a                    | J      |		MOVEA.L	A2,A0
00021b1e 1c 30 00 28              | 0 (    |		MOVE.B	(A0+D0.W+#0x28),D6
00021b22 52 87                    |R       |		ADDQ.L	#0x1,D7
00021b24 52 05                    |R       |		ADDQ.B	#0x1,D5
00021b26 0c 05 00 2b              |   +    |		CMPI.B	#0x2b,D5
00021b2a 6f 82                    |o       |		BLE	0x21aae
00021b2c 2d 6e ff f2 00 36        |-n   6  |		MOVE.L	(A6-0xe),(A6+0x36)
00021b32 2d 6e ff f6 00 3a        |-n   :  |		MOVE.L	(A6-0xa),(A6+0x3a)
00021b38 4c df 07 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2
00021b3c 4e 5e                    |N^      |		UNLK	A6
00021b3e 4e 75                    |Nu      |		RTS
00021b40 ; --------------------------------------------------------------------------------------
00021b40 ; OMSI PASCAL Function
00021b40 ;    <LVAR  0x024 1(r)>
00021b40 ;    <LVAR  0x020 4(r)>
00021b40 ;    <LVAR  0x01c 4(r)>
00021b40 ;    <LVAR  0x018 4(r)>
00021b40 ;    <LVAR  0x014 4(r)>
00021b40 ;    <LVAR  0x010 4(r)>
00021b40 ;    <LVAR  0x00c 4(r)>
00021b40 ;    <LVAR  0x008 4(r)>
00021b40 ;    <LVAR -0x004 @ 1(r)>
00021b40 ; --------------------------------------------------------------------------------------
00021b40 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00021b44 bf d5                    |        |		CMPA.L	(A5),A7
00021b46 62 06                    |b       |		BHI	0x21b4e
00021b48 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b4c 4e 76                    |Nv      |		TRAPV
00021b4e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00021b52 48 e7 f1 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D3+D2+D1+D0,-(A7)
00021b56 43 f8 00 00              |C       |		LEA.L	0x0,A1
00021b5a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021b5c 74 06                    |t       |		MOVEQ.L	#0x06,D2
00021b5e 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00021b60 10 2e 00 24              | . $    |		MOVE.B	(A6+0x24),D0
00021b64 0c 00 00 03              |        |		CMPI.B	#0x03,D0
00021b68 67 0c                    |g       |		BEQ	0x21b76
00021b6a 0c 00 00 04              |        |		CMPI.B	#0x04,D0
00021b6e 67 06                    |g       |		BEQ	0x21b76
00021b70 0c 00 00 05              |        |		CMPI.B	#0x05,D0
00021b74 66 24                    |f$      |		BNE	0x21b9a
00021b76 3f 3a ed f6              |?:      |		MOVE.W	0x2096e,-(A7)
00021b7a 3f 3a ed f0              |?:      |		MOVE.W	0x2096c,-(A7)
00021b7e 3f 3a ed ea              |?:      |		MOVE.W	0x2096a,-(A7)
00021b82 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b84 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b88 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b8a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b8c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b94 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b96 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021b98 60 02                    |`       |		BRA	0x21b9c
00021b9a 38 41                    |8A      |		MOVEA.W	D1,A4
00021b9c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021b9e b8 c1                    |        |		CMPA.W	D1,A4
00021ba0 67 02                    |g       |		BEQ	0x21ba4
00021ba2 52 07                    |R       |		ADDQ.B	#0x1,D7
00021ba4 4a 07                    |J       |		TST.B	D7
00021ba6 67 00 00 be              |g       |		BEQ	0x21c66
00021baa 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021bb0 48 80                    |H       |		EXTB.W	D0
00021bb2 48 c0                    |H       |		EXTW.L	D0
00021bb4 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021bb6 4e b9 00 01 05 0e        |N       |		JSR	IPC_PutLong(a : L)
00021bbc 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
00021bc0 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
00021bc4 48 57                    |HW      |		PEA.L	(A7)
00021bc6 48 51                    |HQ      |		PEA.L	(A1)
00021bc8 48 78 00 07              |Hx      |		PEA.L	0x7
00021bcc 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00021bd2 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021bd6 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021bdc 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021bde 48 78 00 01              |Hx      |		PEA.L	0x1
00021be2 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021be6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021bea 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021bf0 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021bf4 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021bf8 67 0e                    |g       |		BEQ	0x21c08
00021bfa 1f 02                    |        |		MOVE.B	D2,-(A7)
00021bfc 48 78 00 01              |Hx      |		PEA.L	0x1
00021c00 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021c06 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021c08 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021c0e 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00021c12 48 50                    |HP      |		PEA.L	(A0)
00021c14 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00021c1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c1c 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00021c20 48 50                    |HP      |		PEA.L	(A0)
00021c22 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00021c28 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c2a 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021c2e 48 50                    |HP      |		PEA.L	(A0)
00021c30 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00021c36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c38 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021c3c 48 50                    |HP      |		PEA.L	(A0)
00021c3e 48 51                    |HQ      |		PEA.L	(A1)
00021c40 48 51                    |HQ      |		PEA.L	(A1)
00021c42 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00021c48 de c3                    |        |		ADDA.W	D3,A7
00021c4a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021c4e 48 50                    |HP      |		PEA.L	(A0)
00021c50 48 51                    |HQ      |		PEA.L	(A1)
00021c52 48 78 00 07              |Hx      |		PEA.L	0x7
00021c56 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00021c5c de c3                    |        |		ADDA.W	D3,A7
00021c5e 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00021c64 60 58                    |`X      |		BRA	0x21cbe
00021c66 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00021c6a 10 81                    |        |		MOVE.B	D1,(A0)
00021c6c 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00021c70 3f 3a ed 02              |?:      |		MOVE.W	0x20974,-(A7)
00021c74 3f 3a ec fc              |?:      |		MOVE.W	0x20972,-(A7)
00021c78 3f 3a ec f6              |?:      |		MOVE.W	0x20970,-(A7)
00021c7c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c7e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c82 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c84 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021c86 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c8e 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021c90 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021c92 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021c96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c98 1f 00                    |        |		MOVE.B	D0,-(A7)
00021c9a 4e ba fd 8c              |N       |		JSR	0x21a28
00021c9e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ca0 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021ca2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021ca4 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
00021ca8 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00021cae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021cb0 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021cb4 10 81                    |        |		MOVE.B	D1,(A0)
00021cb6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021cba 10 bc 00 27              |   '    |		MOVE.B	#0x27,(A0)
00021cbe 4c df 13 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A4
00021cc2 4e 5e                    |N^      |		UNLK	A6
00021cc4 4e 75                    |Nu      |		RTS
00021cc6 ; --------------------------------------------------------------------------------------
00021cc6 ; OMSI PASCAL Function
00021cc6 ; --------------------------------------------------------------------------------------
00021cc6					START:
00021cc6 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021cca 4e f9 00 01 02 80        |N       |		JMP	?start_program
00021cd0					MAIN:
00021cd0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021cd6 47 f9 00 02 24 7c        |G   $|  |		LEA.L	0x2247c,A3
00021cdc 49 f9 00 01 03 d8        |I       |		LEA.L	WriteConsoleString(str : String),A4
00021ce2 76 01                    |v       |		MOVEQ.L	#0x01,D3
00021ce4 78 02                    |x       |		MOVEQ.L	#0x02,D4
00021ce6 7a 1e                    |z       |		MOVEQ.L	#0x1e,D5
00021ce8 7c 0a                    ||       |		MOVEQ.L	#0x0a,D6
00021cea 7e 07                    |~       |		MOVEQ.L	#0x07,D7
00021cec 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021cf2 48 79 00 02 25 0a        |Hy  %   |		PEA.L	0x2250a
00021cf8 48 79 00 02 25 0b        |Hy  %   |		PEA.L	0x2250b
00021cfe 4e b9 00 01 05 44        |N    D  |		JSR	IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00021d04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d06 48 78 00 00              |Hx      |		PEA.L	0x0
00021d0a 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021d10 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021d12 1e b9 00 02 25 0b        |    %   |		MOVE.B	0x2250b,(A7)
00021d18 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00021d1e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021d20 4e b9 00 01 05 c8        |N       |		JSR	And_fc0c_7f(void)
00021d26 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021d28 13 c0 00 02 25 10        |    %   |		MOVE.B	D0,0x22510
00021d2e 12 00                    |        |		MOVE.B	D0,D1
00021d30 48 81                    |H       |		EXTB.W	D1
00021d32 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d34 20 4b                    | K      |		MOVEA.L	A3,A0
00021d36 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
00021d3a 42 28 00 a7              |B(      |		CLR.B	(A0+0xa7)
00021d3e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021d40 52 40                    |R@      |		ADDQ.W	#0x1,D0
00021d42 0c 40 00 2b              | @ +    |		CMPI.W	#0x002b,D0
00021d46 6f e0                    |o       |		BLE	0x21d28
00021d48 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021d4a 23 c0 00 02 25 06        |#   %   |		MOVE.L	D0,0x22506
00021d50 b0 87                    |        |		CMP.L	D7,D0
00021d52 63 02                    |c       |		BLS	0x21d56
00021d54 4e 4f                    |NO      |		TRAP	#15
00021d56 20 4b                    | K      |		MOVEA.L	A3,A0
00021d58 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00021d5c 42 28 00 9f              |B(      |		CLR.B	(A0+0x9f)
00021d60 52 80                    |R       |		ADDQ.L	#0x1,D0
00021d62 b0 87                    |        |		CMP.L	D7,D0
00021d64 6f e4                    |o       |		BLE	0x21d4a
00021d66 4e ba f5 06              |N       |		JSR	0x2126e
00021d6a 2f 3a ec 12              |/:      |		MOVE.L	0x2097e,-(A7)
00021d6e 2f 3a ec 0a              |/:      |		MOVE.L	0x2097a,-(A7)
00021d72 2f 3a ec 02              |/:      |		MOVE.L	0x20976,-(A7)
00021d76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d78 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d7c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021d7e 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00021d82 4e 92                    |N       |		JSR	(A2)
00021d84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d86 4e 94                    |N       |		JSR	(A4)
00021d88 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021d8c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021d8e 23 c0 00 02 25 06        |#   %   |		MOVE.L	D0,0x22506
00021d94 3f 3a eb ec              |?:      |		MOVE.W	0x20982,-(A7)
00021d98 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021d9a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021d9e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021da0 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021da2 4e 92                    |N       |		JSR	(A2)
00021da4 2e 80                    |.       |		MOVE.L	D0,(A7)
00021da6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021dac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dae 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021db4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021db6 4e 94                    |N       |		JSR	(A4)
00021db8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021dba 22 00                    |"       |		MOVE.L	D0,D1
00021dbc 53 81                    |S       |		SUBQ.L	#0x1,D1
00021dbe 0c 81 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D1
00021dc4 63 02                    |c       |		BLS	0x21dc8
00021dc6 4e 4f                    |NO      |		TRAP	#15
00021dc8 e3 81                    |        |		ASL.L	#0x1,D1
00021dca 20 4b                    | K      |		MOVEA.L	A3,A0
00021dcc 32 30 18 08              |20      |		MOVE.W	(A0+D1.L+#0x8),D1
00021dd0 02 41 80 00              | A      |		ANDI.W	#0x8000,D1
00021dd4 66 06                    |f       |		BNE	0x21ddc
00021dd6 3f 3a eb ac              |?:      |		MOVE.W	0x20984,-(A7)
00021dda 60 04                    |`       |		BRA	0x21de0
00021ddc 3f 3a eb a8              |?:      |		MOVE.W	0x20986,-(A7)
00021de0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021de2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021de6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021de8 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021dea 4e 92                    |N       |		JSR	(A2)
00021dec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021dee 4e 94                    |N       |		JSR	(A4)
00021df0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021df2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021df4 0c 80 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D0
00021dfa 63 02                    |c       |		BLS	0x21dfe
00021dfc 4e 4f                    |NO      |		TRAP	#15
00021dfe 22 00                    |"       |		MOVE.L	D0,D1
00021e00 e3 81                    |        |		ASL.L	#0x1,D1
00021e02 20 4b                    | K      |		MOVEA.L	A3,A0
00021e04 32 30 18 08              |20      |		MOVE.W	(A0+D1.L+#0x8),D1
00021e08 02 41 3f ff              | A?     |		ANDI.W	#0x3fff,D1
00021e0c 42 82                    |B       |		CLR.L	D2
00021e0e 34 01                    |4       |		MOVE.W	D1,D2
00021e10 2f 02                    |/       |		MOVE.L	D2,-(A7)
00021e12 48 78 00 04              |Hx      |		PEA.L	0x4
00021e16 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021e1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e1e 4e 94                    |N       |		JSR	(A4)
00021e20 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e22 53 80                    |S       |		SUBQ.L	#0x1,D0
00021e24 b0 83                    |        |		CMP.L	D3,D0
00021e26 6c 00 ff 66              |l  f    |		BGE	0x21d8e
00021e2a 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00021e2e 20 4f                    | O      |		MOVEA.L	A7,A0
00021e30 43 fa eb 56              |C  V    |		LEA.L	0x20988,A1
00021e34 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021e36 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e38 51 c8 ff fc              |Q       |		DBF	D0,0x21e36
00021e3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e42 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021e44 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021e48 4e 92                    |N       |		JSR	(A2)
00021e4a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e4c 48 78 00 03              |Hx      |		PEA.L	0x3
00021e50 48 79 00 02 25 5c        |Hy  %\  |		PEA.L	0x2255c
00021e56 48 79 00 02 25 04        |Hy  %   |		PEA.L	0x22504
00021e5c 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00021e62 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021e66 4a 39 00 02 25 04        |J9  %   |		TST.B	0x22504
00021e6c 67 00 00 a2              |g       |		BEQ	0x21f10
00021e70 9e c5                    |        |		SUBA.W	D5,A7
00021e72 20 4f                    | O      |		MOVEA.L	A7,A0
00021e74 43 f9 00 02 25 8f        |C   %   |		LEA.L	0x2258f,A1
00021e7a 70 1d                    |p       |		MOVEQ.L	#0x1d,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 03                    |?       |		MOVE.W	D3,-(A7)
00021e8a 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021e8c 4e 92                    |N       |		JSR	(A2)
00021e8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e90 23 df 00 02 26 ee        |#   &   |		MOVE.L	(A7)+,0x226ee
00021e96 de c5                    |        |		ADDA.W	D5,A7
00021e98 20 79 00 02 26 ee        | y  &   |		MOVEA.L	0x226ee,A0
00021e9e 3f 3a ea fc              |?:      |		MOVE.W	0x2099c,-(A7)
00021ea2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ea4 2f 39 00 02 26 ee        |/9  &   |		MOVE.L	0x226ee,-(A7)
00021eaa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021eac 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021eb0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021eb2 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021eb4 4e 92                    |N       |		JSR	(A2)
00021eb6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021eb8 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00021ebe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ec0 20 1f                    |        |		MOVE.L	(A7)+,D0
00021ec2 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
00021ec8 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021ece 63 02                    |c       |		BLS	0x21ed2
00021ed0 4e 4f                    |NO      |		TRAP	#15
00021ed2 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
00021ed8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021eda 30 80                    |0       |		MOVE.W	D0,(A0)
00021edc 41 fa ea ca              |A       |		LEA.L	0x209a8,A0
00021ee0 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021ee2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021ee4 51 c8 ff fc              |Q       |		DBF	D0,0x21ee2
00021ee8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021eea 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021eee 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021ef0 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021ef2 4e 92                    |N       |		JSR	(A2)
00021ef4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ef6 2e b9 00 02 26 ee        |.   &   |		MOVE.L	0x226ee,(A7)
00021efc 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021f02 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f04 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021f0a de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021f0e 60 2c                    |`,      |		BRA	0x21f3c
00021f10 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00021f14 20 4f                    | O      |		MOVEA.L	A7,A0
00021f16 43 fa ea 90              |C       |		LEA.L	0x209a8,A1
00021f1a 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021f1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f1e 51 c8 ff fc              |Q       |		DBF	D0,0x21f1c
00021f22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f24 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f28 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021f2a 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00021f2e 4e 92                    |N       |		JSR	(A2)
00021f30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f32 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021f38 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021f3c 48 79 00 02 25 23        |Hy  %#  |		PEA.L	0x22523
00021f42 48 79 00 02 25 0c        |Hy  %   |		PEA.L	0x2250c
00021f48 48 79 00 02 25 50        |Hy  %P  |		PEA.L	0x22550
00021f4e 4e ba f4 f4              |N       |		JSR	0x21444
00021f52 de c6                    |        |		ADDA.W	D6,A7
00021f54 48 79 00 02 25 23        |Hy  %#  |		PEA.L	0x22523
00021f5a 2f 39 00 02 25 0c        |/9  %   |		MOVE.L	0x2250c,-(A7)
00021f60 1f 39 00 02 25 50        | 9  %P  |		MOVE.B	0x22550,-(A7)
00021f66 4e ba fa 14              |N       |		JSR	0x2197c
00021f6a de c6                    |        |		ADDA.W	D6,A7
00021f6c 10 1f                    |        |		MOVE.B	(A7)+,D0
00021f6e 48 80                    |H       |		EXTB.W	D0
00021f70 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
00021f74 13 c0 00 02 25 4f        |    %O  |		MOVE.B	D0,0x2254f
00021f7a 9e fc 00 34              |   4    |		SUBA.W	#0x34,A7
00021f7e 20 4f                    | O      |		MOVEA.L	A7,A0
00021f80 43 f9 00 02 25 23        |C   %#  |		LEA.L	0x22523,A1
00021f86 72 2b                    |r+      |		MOVEQ.L	#0x2b,D1
00021f88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f8a 51 c9 ff fc              |Q       |		DBF	D1,0x21f88
00021f8e 1f 00                    |        |		MOVE.B	D0,-(A7)
00021f90 4e ba fa e8              |N       |		JSR	0x21a7a
00021f94 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021f98 41 f9 00 02 25 51        |A   %Q  |		LEA.L	0x22551,A0
00021f9e 22 4f                    |"O      |		MOVEA.L	A7,A1
00021fa0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021fa2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021fa4 51 c8 ff fc              |Q       |		DBF	D0,0x21fa2
00021fa8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021faa 1e b9 00 02 25 4f        |    %O  |		MOVE.B	0x2254f,(A7)
00021fb0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021fb2 20 4f                    | O      |		MOVEA.L	A7,A0
00021fb4 43 f9 00 02 25 51        |C   %Q  |		LEA.L	0x22551,A1
00021fba 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021fbc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021fbe 51 c8 ff fc              |Q       |		DBF	D0,0x21fbc
00021fc2 48 79 00 02 25 11        |Hy  %   |		PEA.L	0x22511
00021fc8 48 79 00 02 25 12        |Hy  %   |		PEA.L	0x22512
00021fce 48 79 00 02 25 16        |Hy  %   |		PEA.L	0x22516
00021fd4 48 79 00 02 25 1a        |Hy  %   |		PEA.L	0x2251a
00021fda 48 79 00 02 25 1b        |Hy  %   |		PEA.L	0x2251b
00021fe0 4e ba fb 5e              |N  ^    |		JSR	0x21b40
00021fe4 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021fe8 1e b9 00 02 25 11        |    %   |		MOVE.B	0x22511,(A7)
00021fee 2f 39 00 02 25 12        |/9  %   |		MOVE.L	0x22512,-(A7)
00021ff4 2f 39 00 02 25 16        |/9  %   |		MOVE.L	0x22516,-(A7)
00021ffa 1f 39 00 02 25 1a        | 9  %   |		MOVE.B	0x2251a,-(A7)
00022000 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022002 20 4f                    | O      |		MOVEA.L	A7,A0
00022004 43 f9 00 02 25 1b        |C   %   |		LEA.L	0x2251b,A1
0002200a 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002200c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002200e 51 c8 ff fc              |Q       |		DBF	D0,0x2200c
00022012 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00022018 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002201c 4e b9 00 01 02 84        |N       |		JSR	?exit
00022022					exp_READ_PAREG.FIU(Sw_1, &Sr_1):
00022022 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022028 00 0e                    |        |		.CONST	0x000e			; Stack-delta
0002202a 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.FIU'
00022039 00                       |        |		.CONST	0x0
0002203a 03                       |        |		.CONST	0x3			; DIPROC address
0002203b 01                       |        |		.CONST	0x1			; Output Parameters
0002203c 01                       |        |		.CONST	0x1			; Input Parameters
0002203d 00                       |        |		.CONST	0x0			; In arg [1]
0002203e 00                       |        |		.CONST	0x0			; Out arg [1]
0002203f 00                       |        |		.PAD	0x0
00022040					exp_HALT.SEQ(&Fr):
00022040 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022046 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022048 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
00022051 00                       |        |		.CONST	0x0
00022052 02                       |        |		.CONST	0x2			; DIPROC address
00022053 01                       |        |		.CONST	0x1			; Output Parameters
00022054 00                       |        |		.CONST	0x0			; Input Parameters
00022055 08                       |        |		.CONST	0x8			; Out arg flag
00022056					exp_GET_MISC_ERRORS.SEQ(&Sr_1):
00022056 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002205c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002205e 13 47 45 54 5f 4d 49 53  | GET_MIS|		.TXT	19,'GET_MISC_ERRORS.SEQ'
00022072 00                       |        |		.CONST	0x0
00022073 02                       |        |		.CONST	0x2			; DIPROC address
00022074 01                       |        |		.CONST	0x1			; Output Parameters
00022075 00                       |        |		.CONST	0x0			; Input Parameters
00022076 00                       |        |		.CONST	0x0			; Out arg [1]
00022077 00                       |        |		.PAD	0x0
00022078					exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr):
00022078 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002207e 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022080 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.TYP'
0002208d 00                       |        |		.CONST	0x0
0002208e 06                       |        |		.CONST	0x6			; DIPROC address
0002208f 02                       |        |		.CONST	0x2			; Output Parameters
00022090 02                       |        |		.CONST	0x2			; Input Parameters
00022091 01                       |        |		.CONST	0x1			; In arg [2]
00022092 00                       |        |		.CONST	0x0			; In arg [1]
00022093 05                       |        |		.CONST	0x5			; Out arg [6]
00022094 08                       |        |		.CONST	0x8			; Out arg flag
00022095 00                       |        |		.PAD	0x0
00022096					exp_READ_PARITY.TYP(&Sr_1):
00022096 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002209c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002209e 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.TYP'
000220ae 00                       |        |		.CONST	0x0
000220af 06                       |        |		.CONST	0x6			; DIPROC address
000220b0 01                       |        |		.CONST	0x1			; Output Parameters
000220b1 00                       |        |		.CONST	0x0			; Input Parameters
000220b2 00                       |        |		.CONST	0x0			; Out arg [1]
000220b3 00                       |        |		.PAD	0x0
000220b4					exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr):
000220b4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000220ba 00 14                    |        |		.CONST	0x0014			; Stack-delta
000220bc 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.VAL'
000220c9 00                       |        |		.CONST	0x0
000220ca 07                       |        |		.CONST	0x7			; DIPROC address
000220cb 02                       |        |		.CONST	0x2			; Output Parameters
000220cc 02                       |        |		.CONST	0x2			; Input Parameters
000220cd 01                       |        |		.CONST	0x1			; In arg [2]
000220ce 00                       |        |		.CONST	0x0			; In arg [1]
000220cf 04                       |        |		.CONST	0x4			; Out arg [5]
000220d0 08                       |        |		.CONST	0x8			; Out arg flag
000220d1 00                       |        |		.PAD	0x0
000220d2					exp_READ_PARITY.VAL(&Sr_1):
000220d2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000220d8 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000220da 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.VAL'
000220ea 00                       |        |		.CONST	0x0
000220eb 07                       |        |		.CONST	0x7			; DIPROC address
000220ec 01                       |        |		.CONST	0x1			; Output Parameters
000220ed 00                       |        |		.CONST	0x0			; Input Parameters
000220ee 00                       |        |		.CONST	0x0			; Out arg [1]
000220ef 00                       |        |		.PAD	0x0
000220f0 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PARITY.MEM '
00022100 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PARITY.M32 '
00022110 ; --------------------------------------------------------------------------------------
00022110 ; OMSI PASCAL Function
00022110 ;    <LVAR  0x014 1(r)>
00022110 ;    <LVAR  0x010 4(r)>
00022110 ;    <LVAR  0x00c 4(r)>
00022110 ;    <LVAR  0x008 4(r)>
00022110 ;    <LVAR -0x006 @ 4(r)>
00022110 ; --------------------------------------------------------------------------------------
00022110 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00022114 bf d5                    |        |		CMPA.L	(A5),A7
00022116 62 06                    |b       |		BHI	0x2211e
00022118 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002211c 4e 76                    |Nv      |		TRAPV
0002211e de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022122 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00022126 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002212a 47 f8 00 00              |G       |		LEA.L	0x0,A3
0002212e 49 f9 00 01 04 72        |I    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A4
00022134 72 10                    |r       |		MOVEQ.L	#0x10,D1
00022136 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022138 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002213a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022140 4a 1f                    |J       |		TST.B	(A7)+
00022142 67 12                    |g       |		BEQ	0x22156
00022144 9e c1                    |        |		SUBA.W	D1,A7
00022146 20 4f                    | O      |		MOVEA.L	A7,A0
00022148 43 fa ff a6              |C       |		LEA.L	0x220f0,A1
0002214c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002214e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022150 51 c8 ff fc              |Q       |		DBF	D0,0x2214e
00022154 60 10                    |`       |		BRA	0x22166
00022156 9e c1                    |        |		SUBA.W	D1,A7
00022158 20 4f                    | O      |		MOVEA.L	A7,A0
0002215a 43 fa ff a4              |C       |		LEA.L	0x22100,A1
0002215e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022160 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022162 51 c8 ff fc              |Q       |		DBF	D0,0x22160
00022166 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022168 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002216c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022170 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022174 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002217a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002217c 48 52                    |HR      |		PEA.L	(A2)
0002217e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022184 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022188 42 27                    |B'      |		CLR.B	-(A7)
0002218a 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
0002218e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022190 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022196 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022198 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002219a 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0002219e 48 50                    |HP      |		PEA.L	(A0)
000221a0 48 53                    |HS      |		PEA.L	(A3)
000221a2 48 53                    |HS      |		PEA.L	(A3)
000221a4 4e 94                    |N       |		JSR	(A4)
000221a6 de c2                    |        |		ADDA.W	D2,A7
000221a8 2e 92                    |.       |		MOVE.L	(A2),(A7)
000221aa 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000221ae 48 50                    |HP      |		PEA.L	(A0)
000221b0 48 53                    |HS      |		PEA.L	(A3)
000221b2 48 53                    |HS      |		PEA.L	(A3)
000221b4 4e 94                    |N       |		JSR	(A4)
000221b6 de c2                    |        |		ADDA.W	D2,A7
000221b8 2e 92                    |.       |		MOVE.L	(A2),(A7)
000221ba 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000221be 48 50                    |HP      |		PEA.L	(A0)
000221c0 48 53                    |HS      |		PEA.L	(A3)
000221c2 48 53                    |HS      |		PEA.L	(A3)
000221c4 4e 94                    |N       |		JSR	(A4)
000221c6 de c1                    |        |		ADDA.W	D1,A7
000221c8 48 52                    |HR      |		PEA.L	(A2)
000221ca 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000221d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221d2 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
000221d6 4e 5e                    |N^      |		UNLK	A6
000221d8 4e 75                    |Nu      |		RTS
000221da					exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8):
000221da 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221e0 00 48                    | H      |		.CONST	0x0048			; Stack-delta
000221e2 14 52 45 41 44 5f 54 52  | READ_TR|		.TXT	20,'READ_TRACE_BLOCK.IOC'
000221f7 00                       |        |		.CONST	0x0
000221f8 04                       |        |		.CONST	0x4			; DIPROC address
000221f9 10                       |        |		.CONST	0x10			; Output Parameters
000221fa 00                       |        |		.CONST	0x0			; Input Parameters
000221fb 07                       |        |		.CONST	0x7			; Out arg [8]
000221fc 07                       |        |		.CONST	0x7			; Out arg [8]
000221fd 07                       |        |		.CONST	0x7			; Out arg [8]
000221fe 07                       |        |		.CONST	0x7			; Out arg [8]
000221ff 07                       |        |		.CONST	0x7			; Out arg [8]
00022200 07                       |        |		.CONST	0x7			; Out arg [8]
00022201 07                       |        |		.CONST	0x7			; Out arg [8]
00022202 07                       |        |		.CONST	0x7			; Out arg [8]
00022203 07                       |        |		.CONST	0x7			; Out arg [8]
00022204 07                       |        |		.CONST	0x7			; Out arg [8]
00022205 07                       |        |		.CONST	0x7			; Out arg [8]
00022206 07                       |        |		.CONST	0x7			; Out arg [8]
00022207 07                       |        |		.CONST	0x7			; Out arg [8]
00022208 07                       |        |		.CONST	0x7			; Out arg [8]
00022209 07                       |        |		.CONST	0x7			; Out arg [8]
0002220a 07                       |        |		.CONST	0x7			; Out arg [8]
0002220b 00                       |        |		.PAD	0x0
0002220c					exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2):
0002220c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022212 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022214 16 52 45 41 44 5f 54 52  | READ_TR|		.TXT	22,'READ_TRACE_ADDRESS.IOC'
0002222b 00                       |        |		.CONST	0x0
0002222c 04                       |        |		.CONST	0x4			; DIPROC address
0002222d 01                       |        |		.CONST	0x1			; Output Parameters
0002222e 01                       |        |		.CONST	0x1			; Input Parameters
0002222f 00                       |        |		.CONST	0x0			; In arg [1]
00022230 01                       |        |		.CONST	0x1			; Out arg [2]
00022231 00                       |        |		.PAD	0x0
00022232					exp_READ_PAREG.IOC(Sw_1, &Sr_1):
00022232 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022238 00 0e                    |        |		.CONST	0x000e			; Stack-delta
0002223a 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.IOC'
00022249 00                       |        |		.CONST	0x0
0002224a 04                       |        |		.CONST	0x4			; DIPROC address
0002224b 01                       |        |		.CONST	0x1			; Output Parameters
0002224c 01                       |        |		.CONST	0x1			; Input Parameters
0002224d 00                       |        |		.CONST	0x0			; In arg [1]
0002224e 00                       |        |		.CONST	0x0			; Out arg [1]
0002224f 00                       |        |		.PAD	0x0
00022250					exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1):
00022250 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022256 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022258 16 4c 4f 41 44 5f 54 52  | LOAD_TR|		.TXT	22,'LOAD_TRACE_ADDRESS.IOC'
0002226f 00                       |        |		.CONST	0x0
00022270 04                       |        |		.CONST	0x4			; DIPROC address
00022271 00                       |        |		.CONST	0x0			; Output Parameters
00022272 02                       |        |		.CONST	0x2			; Input Parameters
00022273 01                       |        |		.CONST	0x1			; In arg [2]
00022274 00                       |        |		.CONST	0x0			; In arg [1]
00022275 00                       |        |		.PAD	0x0
00022276 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022284 ; --------------------------------------------------------------------------------------
00022284 ; OMSI PASCAL Function
00022284 ;    <LVAR  0x008 1(r)>
00022284 ; --------------------------------------------------------------------------------------
00022284					PROG_FAIL:
00022284 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00022288 bf d5                    |        |		CMPA.L	(A5),A7
0002228a 62 06                    |b       |		BHI	0x22292
0002228c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022290 4e 76                    |Nv      |		TRAPV
00022292 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022296 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002229a 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
0002229e 70 06                    |p       |		MOVEQ.L	#0x06,D0
000222a0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000222a2 51 c8 ff fc              |Q       |		DBF	D0,0x222a0
000222a6 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000222aa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000222ac 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000222b0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000222b4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000222b8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000222be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222c0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000222c4 48 80                    |H       |		EXTB.W	D0
000222c6 48 c0                    |H       |		EXTW.L	D0
000222c8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000222ca 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000222d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222d2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000222d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222da 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000222e0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000222e4 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000222e8 4e 5e                    |N^      |		UNLK	A6
000222ea 4e 75                    |Nu      |		RTS
000222ec 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000222fa 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00022308 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00022316 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00022328 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00022340 ; --------------------------------------------------------------------------------------
00022340 ; OMSI PASCAL Function
00022340 ;    <LVAR  0x00e 1(r)>
00022340 ;    <LVAR  0x00a 4(r)>
00022340 ;    <LVAR  0x008 1(r)>
00022340 ; --------------------------------------------------------------------------------------
00022340					EXP_FAIL:
00022340 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00022344 bf d5                    |        |		CMPA.L	(A5),A7
00022346 62 06                    |b       |		BHI	0x2234e
00022348 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002234c 4e 76                    |Nv      |		TRAPV
0002234e de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00022352 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00022356 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002235c 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00022362 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022364 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00022366 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00022368 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002236a 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002236c 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022372 41 fa ff b4              |A       |		LEA.L	0x22328,A0
00022376 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022378 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002237a 51 c8 ff fc              |Q       |		DBF	D0,0x22378
0002237e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022380 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022384 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022386 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022388 4e 93                    |N       |		JSR	(A3)
0002238a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002238c 4e 94                    |N       |		JSR	(A4)
0002238e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022390 20 4f                    | O      |		MOVEA.L	A7,A0
00022392 43 fa ff 58              |C  X    |		LEA.L	0x222ec,A1
00022396 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022398 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002239a 51 c8 ff fc              |Q       |		DBF	D0,0x22398
0002239e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000223a0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000223a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223a6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000223a8 4e 93                    |N       |		JSR	(A3)
000223aa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000223ac 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000223b0 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000223b6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000223b8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000223be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223c0 4e 94                    |N       |		JSR	(A4)
000223c2 de c4                    |        |		ADDA.W	D4,A7
000223c4 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000223c8 b0 c1                    |        |		CMPA.W	D1,A0
000223ca 67 48                    |gH      |		BEQ	0x22414
000223cc 9e c5                    |        |		SUBA.W	D5,A7
000223ce 22 4f                    |"O      |		MOVEA.L	A7,A1
000223d0 45 fa ff 28              |E  (    |		LEA.L	0x222fa,A2
000223d4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000223d6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000223d8 51 c8 ff fc              |Q       |		DBF	D0,0x223d6
000223dc 9e c3                    |        |		SUBA.W	D3,A7
000223de 22 4f                    |"O      |		MOVEA.L	A7,A1
000223e0 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000223e4 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000223e6 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000223e8 51 c8 ff fc              |Q       |		DBF	D0,0x223e6
000223ec 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000223ee 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000223f2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223f4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000223f6 4e 93                    |N       |		JSR	(A3)
000223f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223fa 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000223fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022400 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022402 4e 93                    |N       |		JSR	(A3)
00022404 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022406 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002240c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002240e 4e 94                    |N       |		JSR	(A4)
00022410 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022414 9e c5                    |        |		SUBA.W	D5,A7
00022416 20 4f                    | O      |		MOVEA.L	A7,A0
00022418 43 fa fe ee              |C       |		LEA.L	0x22308,A1
0002241c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002241e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022420 51 c8 ff fc              |Q       |		DBF	D0,0x2241e
00022424 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022426 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002242a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002242c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002242e 4e 93                    |N       |		JSR	(A3)
00022430 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022432 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00022436 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002243c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002243e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022444 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022446 4e 94                    |N       |		JSR	(A4)
00022448 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002244a 20 4f                    | O      |		MOVEA.L	A7,A0
0002244c 43 fa fe da              |C       |		LEA.L	0x22328,A1
00022450 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022452 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022454 51 c8 ff fc              |Q       |		DBF	D0,0x22452
00022458 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002245c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002245e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022462 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022464 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00022468 4e 93                    |N       |		JSR	(A3)
0002246a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002246c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022472 de c3                    |        |		ADDA.W	D3,A7
00022474 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00022478 4e 5e                    |N^      |		UNLK	A6
0002247a 4e 75                    |Nu      |		RTS