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

⟦0e7b8bafe⟧ M200

    Length: 9216 (0x2400)
    Types: M200
    Notes: @(#)P1SF,2.0,89/10/02,17:18:19, M200_PROGRAM
    Names: »P1SF.M200«

Derivation

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

Disassembly

0x201e8


@ 201e8
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 201e8-20324 Body>                                              
        <POP 201e8-201fe Prologue>                           Σ0         ↓
        <POP 201fe-20214 RegCacheLoad>                       Σ0         ↓
        <POP 20214-20274 Naked>                              Σ0         ↓ →0x202bc
            <Call 0x20214 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x2021a [18] @>                            Δ-18               {[«18""»]}
            <POP 20226-20228 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20228 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x20234 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 20236-20237 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x20237 [14] @>                            Δ-14               {[«14""»]}
            <POP 20246-20248 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20248 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 20252-20254 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 20254  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x20258 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 2025e-20260 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x20260 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20266-20268 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20268 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2026a-2026c StackAdj>                       Δ+18               {}
            <MI 2026c  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20270  CMPA.W  #0x01,A0>                                        {}
            <MI 20272  BEQ     0x202bc>                                         {}
        <POP 20274-202bc Naked>                              Σ0         ↓
            <Blob 0x20274 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20284 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20294-20296 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x20296 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 202a0-202a2 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x202a2>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x202a2 12>                      Δ-4        
                <Const 0x202a6 0x1.2>                        Δ-2        
                <Const 0x202a8 0x1e.2>                       Δ-2        
                <Call 0x202aa 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 202ac-202ae StackAdj>                   Δ+8        
            <Call 0x202ae 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 202b4-202b6 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x202b6 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 202b8-202bc StackAdj>                       Δ+48               {}
        <POP 202bc-2031c Naked>                              Σ0         ↓ ←0x20214
            <Blob 0x202bc [14] @>                            Δ-14               {[«14""»]}
            <POP 202cc-202ce StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x202ce 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 202d8-202da StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 202da  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x202de 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 202e4-202e6 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x202e6 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 202ec-202ee StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x202ee 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 202f0-202f1 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x202f1 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x20300 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 20304-20306 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x20306 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x20314 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2031a-2031c StackAdj>                       Δ+30               {}
        <POP 2031c-20324 Epilogue>                           Σ0         

0x20324


@ 20324
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 1(r)>
    <POP 20324-20360 Body>                                              
        <POP 20324-2033a Prologue>                           Σ0         ↓
        <POP 2033a-20340 Naked>                              Σ0         ↓ →0x20348
            <MI 2033a  TST.B   (A6+0x8)>                                        {}
            <MI 2033e  BNE     0x20348>                                         {}
        <POP 20340-20348 Naked>                              Σ0         →0x20358
            <MI 20340  MOVE.B  #0x2b,(A6+0xa)>                                  {}
            <MI 20346  BRA     0x20358>                                         {}
        <POP 20348-20358 Naked>                              Σ0         ↓ ←0x2033a
            <MI 20348  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2034c  EXTB.W  D0>                                              {}
            <MI 2034e  LEA.L   0x201df,A0>                                      {}
            <MI 20352  MOVE.B  (A0+D0.W),(A6+0xa)>                              {}
        <POP 20358-20360 Epilogue>                           Σ0         ←0x20340

0x20360


@ 20360
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 20360-20410 Body>                                   Δ+20       
        <POP 20360-20376 Prologue>                           Σ0         ↓
        <POP 20376-2037a RegCacheLoad>                       Σ0         ↓
        <POP 2037a-20392 Naked>                              Σ0         →0x203a4 →0x203c2 →0x203c8 →0x203ce →0x203d4 →0x203da →0x203da →0x203da →0x203da
            <MI 2037a  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2037e  EXTB.W  D0>                                              {}
            <POP 0x20380 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 20388  ADD.W   D0,D0>                                           {}
            <MI 2038a  SWITCH  D0.W>                                            {}
        <POP 203a4-203c2 Naked>                              Σ0         →0x20408 ←0x2037a
            <Blob 0x203a4 [4] @>                             Δ-4                {[«4""»]}
            <POP 203a8-203aa StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x203aa 4>                                                     {[«4""»]|[$$.IOC]}
            <MI 203ba  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«4""»]}
            <POP 203be-203c0 StackAdj>                       Δ+4                {}
            <MI 203c0  BRA     0x20408>                                         {}
        <POP 203c2-203c8 Naked>                              Σ0 Δ-4     →0x203f0 ←0x2037a
            <Blob 0x203c2 [4] @>                             Δ-4                {[«4""»]}
            <MI 203c6  BRA     0x203f0>                                         {[«4""»]}
        <POP 203c8-203ce Naked>                              Σ0 Δ-4     →0x203f0 ←0x2037a
            <Blob 0x203c8 [4] @>                             Δ-4                {[«4""»]}
            <MI 203cc  BRA     0x203f0>                                         {[«4""»]}
        <POP 203ce-203d4 Naked>                              Σ0 Δ-4     →0x203f0 ←0x2037a
            <Blob 0x203ce [4] @>                             Δ-4                {[«4""»]}
            <MI 203d2  BRA     0x203f0>                                         {[«4""»]}
        <POP 203d4-203da Naked>                              Σ0 Δ-4     →0x203f0 ←0x2037a
            <Blob 0x203d4 [4] @>                             Δ-4                {[«4""»]}
            <MI 203d8  BRA     0x203f0>                                         {[«4""»]}
        <POP 203da-203e6 Naked>                              Σ0         ↓ →0x203ec ←0x2037a ←0x2037a ←0x2037a ←0x2037a
            <POP 203da-203dc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x203dc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 203e2  TST.B   (A7)+>                        Δ+2                {}
            <MI 203e4  BEQ     0x203ec>                                         {}
        <POP 203e6-203ec Naked>                              Σ0 Δ-4     →0x203f0
            <Blob 0x203e6 [4] @>                             Δ-4                {[«4""»]}
            <MI 203ea  BRA     0x203f0>                                         {[«4""»]}
        <POP 203ec-203f0 Naked>                              Σ0 Δ-4     ↓ ←0x203da
            <Blob 0x203ec [4] @>                             Δ-4                {[«4""»]}
        <POP 203f0-20408 Naked>                              Σ-4 Δ+4    ↓ ←0x203c2 ←0x203c8 ←0x203ce ←0x203d4 ←0x203e6
            <POP 203f0-203f2 StackAdj>                       Δ-4                {[-8-]}
            <Lit 0x203f2>                                                       {[-4-]|[$$…]}
                <Pointer.sp 0x203f2 4>                       Δ-4        
                <Const 0x203f6 0x1.2>                        Δ-2        
                <Const 0x203f8 0x4.2>                        Δ-2        
                <Call 0x203fa 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20400-20402 StackAdj>                   Δ+8        
            <MI 20402  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[-4-]}
            <POP 20406-20408 StackAdj>                       Δ+4                {}
        <POP 20408-20410 Epilogue>                           Σ0         ←0x203a4

0x20410


@ 20410
        <LVAR  0x008 1(r)>
    <POP 20410-204a4 Body>                                              
        <POP 20410-20426 Prologue>                           Σ0         ↓
        <POP 20426-2042e RegCacheLoad>                       Σ0         ↓
        <POP 2042e-20446 Naked>                              Σ0         ↓
            <MI 2042e  MOVE.B  0x220aa,D0>                                      {}
            <MI 20434  EXTB.W  D0>                                              {}
            <MI 20436  EXTW.L  D0>                                              {}
            <POP 0x20438 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20442  MOVE.B  D0,0x220b6>                                      {}
            <MI 20444  MOVEQ.L #0x00,D7>                                        {}
        <POP 20446-2046e Naked>                              Σ0         ↓ →0x20446 ←0x20446
            <POP 0x20446 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 2044c  LEA.L   0x2208e,A0>                                      {}
            <MI 20452  MOVE.B  (A0+D7.L+#0x14),D0>                              {}
            <MI 20456  EXTB.W  D0>                                              {}
            <MI 20458  EXTW.L  D0>                                              {}
            <POP 0x2045a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20464  MOVE.B  D0,(A0+D7.L+#0x29)>                              {}
            <MI 20468  ADDQ.L  #0x1,D7>                                         {}
            <MI 2046a  CMP.L   #0x07,D7>                                        {}
            <MI 2046c  BLE     0x20446>                                         {}
        <POP 2046e-2049c Naked>                              Σ0         ↓
            <MI 2046e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Blob 0x20472 [4] 0x220ac>                       Δ-4                {[2, '(A6+0x8)']|[«4»]}
            <Blob 0x20478 [4] 0x220b0>                       Δ-4                {[2, '(A6+0x8)']|[«4»]|[«4»]}
            <Blob 0x2047e [2] 0x220b6>                       Δ-2                {[2, '(A6+0x8)']|[«4»]|[«4»]|[«2»]}
            <Blob 0x20480 [8] 0x220b7>                       Δ-8                {[2, '(A6+0x8)']|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x20492 0x1054a>                                              {[2, '(A6+0x8)']|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20498-2049c StackAdj>                       Δ+20               {}
        <POP 2049c-204a4 Epilogue>                           Σ0         

0x204a4


@ 204a4
        <LVAR  0x010 1(r)>
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x005 @>
        <LVAR -0x006 @>
    <POP 204a4-2050c Body>                                              
        <POP 204a4-204ba Prologue>                           Σ0         ↓
        <POP 204ba-204dc Naked>                              Σ0         ↓
            <MI 204ba  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 204be  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x204c2 0x1047e>                                              {[2, '(A6+0x10)']|[4, '(A6+0xc)']}
                ExpXmit(adr : Byte; b : Pointer)
            <POP 204c8-204ca StackAdj>                       Δ+6                {}
            <Pointer.fp 0x204ca <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x204ce 0x10496>                                              {[@@12]}
                ExpClose(exp : Pointer)
            <POP 204d4-204d6 StackAdj>                       Δ+4                {}
            <MI 204d6  MOVE.L  #0xffffff06,D7>                                  {}
        <POP 204dc-204fc Naked>                              Σ0         ↓ →0x20504 ←0x204fc
            <MI 204dc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 204e0  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 204e4  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0x10)']|[4, '^(A0)']}
            <Pointer.fp 0x204e6 <LVAR -0x006 @>>             Δ-4                {[2, '(A6+0x10)']|[4, '^(A0)']|[@@-6]}
            <Pointer.fp 0x204ea <LVAR -0x005 @>>             Δ-4                {[2, '(A6+0x10)']|[4, '^(A0)']|[@@-6]|[@@-5]}
            <Call 0x204ee 0x10484>                                              {[2, '(A6+0x10)']|[4, '^(A0)']|[@@-6]|[@@-5]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 204f4-204f8 StackAdj>                       Δ+14               {}
            <MI 204f8  ADDQ.L  #0x1,D7>                                         {}
            <MI 204fa  BEQ     0x20504>                                         {}
        <POP 204fc-20504 Naked>                              Σ0         ↓ →0x204dc
            <MI 204fc  MOVE.B  (A0),D0>                                         {}
            <MI 204fe  CMPI.B  #0x01,D0>                                        {}
            <MI 20502  BNE     0x204dc>                                         {}
        <POP 20504-2050c Epilogue>                           Σ0         ←0x204dc

0x2050c


@ 2050c
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 1(r)>
    <POP 2050c-2054a Body>                                              
        <POP 2050c-20522 Prologue>                           Σ0         ↓
        <POP 20522-20524 Naked>                              Σ0         ↓
            <MI 20522  MOVEQ.L #0x00,D7>                                        {}
        <POP 20524-20536 Naked>                              Σ0         ↓ →0x2053e ←0x20536
            <MI 20524  MOVE.B  D7,D0>                                           {}
            <MI 20526  EXTB.W  D0>                                              {}
            <MI 20528  LEA.L   0x201d6,A0>                                      {}
            <MI 2052c  MOVE.B  (A0+D0.W),D1>                                    {}
            <MI 20530  CMP.B   (A6+0x8),D1>                                     {}
            <MI 20534  BEQ     0x2053e>                                         {}
        <POP 20536-2053e Naked>                              Σ0         →0x20524
            <MI 20536  MOVE.W  D0,D1>                                           {}
            <MI 20538  ADDQ.W  #0x1,D1>                                         {}
            <MI 2053a  MOVE.B  D1,D7>                                           {}
            <MI 2053c  BRA     0x20524>                                         {}
        <POP 2053e-20542 Naked>                              Σ0         ↓ ←0x20524
            <MI 2053e  MOVE.B  D0,(A6+0xa)>                                     {}
        <POP 20542-2054a Epilogue>                           Σ0         

0x2054a


@ 2054a
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x00a @ 4(r)>
    <POP 2054a-206c4 Body>                                              
        <POP 2054a-20560 Prologue>                           Σ0         ↓
        <POP 20560-2056e RegCacheLoad>                       Σ0         ↓
        <POP 2056e-205f4 Naked>                              Σ0         ↓ →0x2060e
            <POP 2056e-20570 StackAdj>                       Δ-2                {[-2-]}
            <MI 20570  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0x8)']}
            <Call 0x20572 0x2050c>                                              {[-2-]|[2, '(A6+0x8)']}
            <POP 20576-20578 StackAdj>                       Δ+2                {[-2-]}
            <MI 20578  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2057a  EXTB.W  D0>                                              {}
            <POP 0x2057c LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 20580  MOVE.B  D0,D6>                                           {}
            <MI 20582  MOVEQ.L #0x00,D7>                                        {}
            <Blob 0x20584 [12] @>                            Δ-12               {[«12""»]}
            <POP 20594-20596 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <Lit 0x20596 11>                                                    {[«12""»]|[-4-]|[$$TEST_FREEZE]}
            <POP 205a4-205a6 StackAdj>                       Δ-6                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <MI 205a6  MOVE.B  D6,(A7)>                                         {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <Call 0x205a8 0x20360>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <POP 205ac-205ae StackAdj>                       Δ+2                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
            <Call 0x205ae 0x102d0>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 205b4-205b6 StackAdj>                       Δ+8                {[«12""»]|[-4-]}
            <Pointer.fp 0x205b6 <LVAR -0x00a @ 4(r)>>        Δ-4                {[«12""»]|[-4-]|[@@-10]}
            <Call 0x205b8 0x10460>                                              {[«12""»]|[-4-]|[@@-10]}
                ExpLoad(a : String; b: Pointer)
            <POP 205be-205c2 StackAdj>                       Δ+16               {[-4-]}
            <MI 205c2  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <MI 205c4  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6-0xa)']|[2, 'D7']}
            <Call 0x205c6 0x1046c>                                              {[4, '(A6-0xa)']|[2, 'D7']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 205cc-205ce StackAdj>                       Δ+2                {[4, '(A6-0xa)']}
            <MI 205ce  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <Const 0x205d0 0x1.2>                            Δ-2                {[4, '(A6-0xa)']|[#1]}
            <Call 0x205d2 0x1046c>                                              {[4, '(A6-0xa)']|[#1]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 205d8-205da StackAdj>                       Δ+4                {[-2-]}
            <MI 205da  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 205dc  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <Pointer.fp 0x205de <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[4, '(A6-0xa)']|[@@-6]}
            <Call 0x205e2 0x204a4>                                              {[-2-]|[4, '(A6-0xa)']|[@@-6]}
            <POP 205e6-205ea StackAdj>                       Δ+10               {}
            <MI 205ea  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 205ee  CMPI.B  #0x06,D0>                                        {}
            <MI 205f2  BEQ     0x2060e>                                         {}
        <POP 205f4-2060e Naked>                              Σ0         →0x206ae
            <MI 205f4  CLR.B   0x220b5>                                         {}
            <MI 205fa  MOVE.B  D6,D0>                                           {}
            <MI 205fc  EXTB.W  D0>                                              {}
            <MI 205fe  ASL.W   #0x1,D0>                                         {}
            <MI 20600  LEA.L   0x2208e,A0>                                      {}
            <MI 20606  CLR.B   (A0+D0.W+#0x31)>                                 {}
            <MI 2060a  BRA     0x206ae>                                         {}
        <POP 2060e-2069e Naked>                              Σ0         ↓ →0x206a4 ←0x2056e
            <MI 2060e  MOVE.B  D6,D0>                                           {}
            <MI 20610  EXTB.W  D0>                                              {}
            <MI 20612  MOVE.W  D0,D1>                                           {}
            <MI 20614  ASL.W   #0x1,D1>                                         {}
            <MI 20616  LEA.L   0x2208e,A0>                                      {}
            <MI 2061c  MOVE.B  #0x01,(A0+D1.W+#0x31)>                           {}
            <MI 20620  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Const 0x20622 0x2.2>                            Δ-2                {[2, '(A6+0x8)']|[#2]}
            <Call 0x20626 0x1048a>                                              {[2, '(A6+0x8)']|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 2062c-2062e StackAdj>                       Δ+4                {}
            <MI 2062e  MOVEQ.L #0x01,D7>                                        {}
            <Blob 0x20630 [12] @>                            Δ-12               {[«12""»]}
            <POP 20640-20642 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <Lit 0x20642 11>                                                    {[«12""»]|[-4-]|[$$TEST_FREEZE]}
            <POP 20650-20652 StackAdj>                       Δ-6                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <MI 20652  MOVE.B  D0,(A7)>                                         {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <Call 0x20654 0x20360>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <POP 20658-2065a StackAdj>                       Δ+2                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
            <Call 0x2065a 0x102d0>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20660-20662 StackAdj>                       Δ+8                {[«12""»]|[-4-]}
            <Pointer.fp 0x20662 <LVAR -0x00a @ 4(r)>>        Δ-4                {[«12""»]|[-4-]|[@@-10]}
            <Call 0x20664 0x10460>                                              {[«12""»]|[-4-]|[@@-10]}
                ExpLoad(a : String; b: Pointer)
            <POP 2066a-2066e StackAdj>                       Δ+16               {[-4-]}
            <MI 2066e  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <MI 20670  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6-0xa)']|[2, 'D7']}
            <Call 0x20672 0x1046c>                                              {[4, '(A6-0xa)']|[2, 'D7']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20678-2067a StackAdj>                       Δ+2                {[4, '(A6-0xa)']}
            <MI 2067a  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <Const 0x2067c 0x1.2>                            Δ-2                {[4, '(A6-0xa)']|[#1]}
            <Call 0x2067e 0x1046c>                                              {[4, '(A6-0xa)']|[#1]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20684-20686 StackAdj>                       Δ+4                {[-2-]}
            <MI 20686  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 20688  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0xa)']}
            <Pointer.fp 0x2068a <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[4, '(A6-0xa)']|[@@-6]}
            <Call 0x2068e 0x204a4>                                              {[-2-]|[4, '(A6-0xa)']|[@@-6]}
            <POP 20692-20696 StackAdj>                       Δ+10               {}
            <MI 20696  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 2069a  CMP.B   #0x01,D0>                                        {}
            <MI 2069c  BNE     0x206a4>                                         {}
        <POP 2069e-206a4 Naked>                              Σ0         →0x206ae
            <MI 2069e  MOVE.B  #0x01,(A0+D1.W+#0x32)>                           {}
            <MI 206a2  BRA     0x206ae>                                         {}
        <POP 206a4-206ae Naked>                              Σ0         ↓ ←0x2060e
            <MI 206a4  CLR.B   0x220b5>                                         {}
            <MI 206aa  CLR.B   (A0+D1.W+#0x32)>                                 {}
        <POP 206ae-206bc Naked>                              Σ0         ↓ ←0x205f4 ←0x2069e
            <MI 206ae  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Const 0x206b0 0x2.2>                            Δ-2                {[2, '(A6+0x8)']|[#2]}
            <Call 0x206b4 0x1048a>                                              {[2, '(A6+0x8)']|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 206ba-206bc StackAdj>                       Δ+4                {}
        <POP 206bc-206c4 Epilogue>                           Σ0         

0x206c4


@ 206c4
        <LVAR  0x008 1(r)>
    <POP 206c4-2073c Body>                                              
        <POP 206c4-206da Prologue>                           Σ0         ↓
        <POP 206da-206e4 Naked>                              Σ0         ↓ →0x2071c
            <MI 206da  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 206de  CMPI.B  #0x05,D0>                                        {}
            <MI 206e2  BNE     0x2071c>                                         {}
        <POP 206e4-206e6 Naked>                              Σ0         ↓
            <MI 206e4  MOVEQ.L #0x00,D7>                                        {}
        <POP 206e6-20700 Naked>                              Σ0         ↓ →0x20712 ←0x20712
            <POP 206e6-206e8 StackAdj>                       Δ-2                {[-2-]}
            <MI 206e8  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 206ea  EXTB.W  D0>                                              {[-2-]}
            <MI 206ec  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 206f0  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x206f4 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206fa-206fc StackAdj>                       Δ+2                {[-2-]}
            <MI 206fc  TST.B   (A7)+>                        Δ+2                {}
            <MI 206fe  BEQ     0x20712>                                         {}
        <POP 20700-20712 Naked>                              Σ0         ↓
            <MI 20700  MOVE.B  D7,D0>                                           {}
            <MI 20702  EXTB.W  D0>                                              {}
            <MI 20704  LEA.L   0x201d6,A0>                                      {}
            <MI 20708  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Call 0x2070c 0x2054a>                                              {[2, '(A0+D0.W)']}
            <POP 20710-20712 StackAdj>                       Δ+2                {}
        <POP 20712-2071a Naked>                              Σ0         ↓ →0x206e6 ←0x206e6
            <MI 20712  ADDQ.B  #0x1,D7>                                         {}
            <MI 20714  CMPI.B  #0x08,D7>                                        {}
            <MI 20718  BLE     0x206e6>                                         {}
        <POP 2071a-2071c Naked>                              Σ0         →0x20734
            <MI 2071a  BRA     0x20734>                                         {}
        <POP 2071c-2072c Naked>                              Σ0         ↓ →0x20734 ←0x206da
            <POP 2071c-2071e StackAdj>                       Δ-2                {[-2-]}
            <MI 2071e  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20720 0x104c0>                                              {[-2-]|[2, 'D0']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20726-20728 StackAdj>                       Δ+2                {[-2-]}
            <MI 20728  TST.B   (A7)+>                        Δ+2                {}
            <MI 2072a  BEQ     0x20734>                                         {}
        <POP 2072c-20734 Naked>                              Σ0         ↓
            <MI 2072c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2072e 0x2054a>                                              {[2, 'D0']}
            <POP 20732-20734 StackAdj>                       Δ+2                {}
        <POP 20734-2073c Epilogue>                           Σ0         ←0x2071a ←0x2071c

0x2073c


@ 2073c
        <LVAR  0x008 1(r)>
    <POP 2073c-207a0 Body>                                              
        <POP 2073c-20752 Prologue>                           Σ0         ↓
        <POP 20752-2075c Naked>                              Σ0         ↓ →0x20798
            <MI 20752  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20756  CMPI.B  #0x05,D0>                                        {}
            <MI 2075a  BEQ     0x20798>                                         {}
        <POP 2075c-2075e Naked>                              Σ0         ↓
            <MI 2075c  MOVEQ.L #0x00,D7>                                        {}
        <POP 2075e-20782 Naked>                              Σ0         ↓ →0x20790 ←0x20790
            <MI 2075e  MOVE.B  D7,D0>                                           {}
            <MI 20760  EXTB.W  D0>                                              {}
            <MI 20762  LEA.L   0x201d6,A0>                                      {}
            <MI 20766  MOVE.B  (A0+D0.W),D6>                                    {}
            <MI 2076a  MOVE.B  D6,D0>                                           {}
            <MI 2076c  EXTB.W  D0>                                              {}
            <POP 0x2076e LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <POP 20772-20774 StackAdj>                       Δ-2                {[-2-]}
            <MI 20774  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20776 0x104c0>                                              {[-2-]|[2, 'D0']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2077c-2077e StackAdj>                       Δ+2                {[-2-]}
            <MI 2077e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20780  BEQ     0x20790>                                         {}
        <POP 20782-20788 Naked>                              Σ0         ↓ →0x20790
            <MI 20782  CMP.B   (A6+0x8),D0>                                     {}
            <MI 20786  BEQ     0x20790>                                         {}
        <POP 20788-20790 Naked>                              Σ0         ↓
            <MI 20788  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2078a 0x2054a>                                              {[2, 'D0']}
            <POP 2078e-20790 StackAdj>                       Δ+2                {}
        <POP 20790-20798 Naked>                              Σ0         ↓ →0x2075e ←0x2075e ←0x20782
            <MI 20790  ADDQ.B  #0x1,D7>                                         {}
            <MI 20792  CMPI.B  #0x08,D7>                                        {}
            <MI 20796  BLE     0x2075e>                                         {}
        <POP 20798-207a0 Epilogue>                           Σ0         ←0x20752

0x207a0


@ 207a0
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 207a0-20800 Body>                                              
        <POP 207a0-207b6 Prologue>                           Σ0         ↓
        <POP 207b6-207b8 RegCacheLoad>                       Σ0         ↓
        <POP 207b8-207bc Naked>                              Σ0         ↓
            <MI 207b8  MOVEQ.L #0x00,D7>                                        {}
            <MI 207ba  MOVEQ.L #0x00,D6>                                        {}
        <POP 207bc-207c8 Naked>                              Σ0         ↓ →0x207d0 ←0x207d0
            <MI 207bc  MOVE.B  D6,D0>                                           {}
            <MI 207be  EXTB.W  D0>                                              {}
            <MI 207c0  ASL.W   #0x1,D0>                                         {}
            <MI 207c2  TST.B   (A6+D0.W+#0x10)>                                 {}
            <MI 207c6  BNE     0x207d0>                                         {}
        <POP 207c8-207d0 Naked>                              Σ0         ↓
            <MI 207c8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 207cc  MOVE.B  D6,(A0)>                                         {}
            <MI 207ce  ADDQ.L  #0x1,D7>                                         {}
        <POP 207d0-207d8 Naked>                              Σ0         ↓ →0x207bc ←0x207bc
            <MI 207d0  ADDQ.B  #0x1,D6>                                         {}
            <MI 207d2  CMPI.B  #0x08,D6>                                        {}
            <MI 207d6  BLE     0x207bc>                                         {}
        <POP 207d8-207e4 Naked>                              Σ0         ↓ →0x207e6
            <MI 207d8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 207dc  MOVE.B  #0x02,(A0)>                                      {}
            <MI 207e0  TST.L   D7>                                              {}
            <MI 207e2  BNE     0x207e6>                                         {}
        <POP 207e4-207e6 Naked>                              Σ0         ↓
            <MI 207e4  CLR.B   (A0)>                                            {}
        <POP 207e6-207ea Naked>                              Σ0         ↓ →0x207ec ←0x207d8
            <MI 207e6  CMP.L   #0x01,D7>                                        {}
            <MI 207e8  BNE     0x207ec>                                         {}
        <POP 207ea-207ec Naked>                              Σ0         ↓
            <MI 207ea  MOVE.B  #0x01,(A0)>                                      {}
        <POP 207ec-207f4 Naked>                              Σ0         ↓ →0x207f8 ←0x207e6
            <MI 207ec  CMP.L   0x22096,D7>                                      {}
            <MI 207f2  BNE     0x207f8>                                         {}
        <POP 207f4-207f8 Naked>                              Σ0         ↓
            <MI 207f4  MOVE.B  #0x03,(A0)>                                      {}
        <POP 207f8-20800 Epilogue>                           Σ0         ←0x207ec

0x20800


@ 20800
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20800-20860 Body>                                              
        <POP 20800-20816 Prologue>                           Σ0         ↓
        <POP 20816-20818 RegCacheLoad>                       Σ0         ↓
        <POP 20818-2081c Naked>                              Σ0         ↓
            <MI 20818  MOVEQ.L #0x00,D7>                                        {}
            <MI 2081a  MOVEQ.L #0x00,D6>                                        {}
        <POP 2081c-20828 Naked>                              Σ0         ↓ →0x20830 ←0x20830
            <MI 2081c  MOVE.B  D6,D0>                                           {}
            <MI 2081e  EXTB.W  D0>                                              {}
            <MI 20820  ASL.W   #0x1,D0>                                         {}
            <MI 20822  TST.B   (A6+D0.W+#0x11)>                                 {}
            <MI 20826  BNE     0x20830>                                         {}
        <POP 20828-20830 Naked>                              Σ0         ↓
            <MI 20828  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2082c  MOVE.B  D6,(A0)>                                         {}
            <MI 2082e  ADDQ.L  #0x1,D7>                                         {}
        <POP 20830-20838 Naked>                              Σ0         ↓ →0x2081c ←0x2081c
            <MI 20830  ADDQ.B  #0x1,D6>                                         {}
            <MI 20832  CMPI.B  #0x08,D6>                                        {}
            <MI 20836  BLE     0x2081c>                                         {}
        <POP 20838-20844 Naked>                              Σ0         ↓ →0x20846
            <MI 20838  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2083c  MOVE.B  #0x02,(A0)>                                      {}
            <MI 20840  TST.L   D7>                                              {}
            <MI 20842  BNE     0x20846>                                         {}
        <POP 20844-20846 Naked>                              Σ0         ↓
            <MI 20844  CLR.B   (A0)>                                            {}
        <POP 20846-2084a Naked>                              Σ0         ↓ →0x2084c ←0x20838
            <MI 20846  CMP.L   #0x01,D7>                                        {}
            <MI 20848  BNE     0x2084c>                                         {}
        <POP 2084a-2084c Naked>                              Σ0         ↓
            <MI 2084a  MOVE.B  #0x01,(A0)>                                      {}
        <POP 2084c-20854 Naked>                              Σ0         ↓ →0x20858 ←0x20846
            <MI 2084c  CMP.L   0x22096,D7>                                      {}
            <MI 20852  BNE     0x20858>                                         {}
        <POP 20854-20858 Naked>                              Σ0         ↓
            <MI 20854  MOVE.B  #0x03,(A0)>                                      {}
        <POP 20858-20860 Epilogue>                           Σ0         ←0x2084c

0x20860


@ 20860
        <LVAR  0x008 1(r)>
    <POP 20860-20910 Body>                                              
        <POP 20860-20876 Prologue>                           Σ0         ↓
        <POP 20876-2087e RegCacheLoad>                       Σ0         ↓
        <POP 2087e-208cc Naked>                              Σ0         ↓ →0x208d8
            <POP 2087e-20880 StackAdj>                       Δ-2                {[-2-]}
            <MI 20880  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0x8)']}
            <Call 0x20884 0x2050c>                                              {[-2-]|[2, '(A6+0x8)']}
            <POP 20888-2088a StackAdj>                       Δ+2                {[-2-]}
            <MI 2088a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2088c  EXTB.W  D0>                                              {}
            <POP 0x2088e LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 20890  MOVE.B  D0,D7>                                           {}
            <POP 20892-20894 StackAdj>                       Δ-4                {[-4-]}
            <MI 20894  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0x8)']}
            <Call 0x20898 0x2050c>                                              {[-4-]|[2, '(A6+0x8)']}
            <POP 2089c-2089e StackAdj>                       Δ+2                {[-4-]}
            <MI 2089e  MOVE.B  (A7),D0>                                         {[-4-]}
            <MI 208a0  EXTB.W  D0>                                              {[-4-]}
            <POP 0x208a2 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {[-4-]}
            <MI 208a4  MOVE.B  D0,(A7)>                                         {[-4-]}
            <Call 0x208a6 0x20324>                                              {[-4-]}
            <POP 208aa-208ac StackAdj>                       Δ+2                {[-2-]}
            <MI 208ac  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 208ae  EXTB.W  D0>                                              {}
            <POP 0x208b0 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 208b4  MOVE.B  D0,0x220a2>                                      {}
            <MI 208ba  MOVE.B  D7,D0>                                           {}
            <MI 208bc  EXTB.W  D0>                                              {}
            <MI 208be  ASL.W   #0x1,D0>                                         {}
            <MI 208c0  LEA.L   0x2208e,A0>                                      {}
            <MI 208c6  TST.B   (A0+D0.W+#0x31)>                                 {}
            <MI 208ca  BNE     0x208d8>                                         {}
        <POP 208cc-208d2 Naked>                              Σ0         ↓ →0x208d8
            <MI 208cc  TST.B   (A0+D0.W+#0x32)>                                 {}
            <MI 208d0  BNE     0x208d8>                                         {}
        <POP 208d2-208d8 Naked>                              Σ0         →0x20900
            <MI 208d2  MOVE.B  #0x09,0x220aa>                                   {}
            <MI 208d6  BRA     0x20900>                                         {}
        <POP 208d8-208de Naked>                              Σ0         ↓ →0x208ea ←0x2087e ←0x208cc
            <MI 208d8  TST.B   (A0+D0.W+#0x31)>                                 {}
            <MI 208dc  BEQ     0x208ea>                                         {}
        <POP 208de-208e4 Naked>                              Σ0         ↓ →0x208ea
            <MI 208de  TST.B   (A0+D0.W+#0x32)>                                 {}
            <MI 208e2  BNE     0x208ea>                                         {}
        <POP 208e4-208ea Naked>                              Σ0         →0x20900
            <MI 208e4  MOVE.B  #0x0a,0x220aa>                                   {}
            <MI 208e8  BRA     0x20900>                                         {}
        <POP 208ea-208f0 Naked>                              Σ0         ↓ →0x208fc ←0x208d8 ←0x208de
            <MI 208ea  TST.B   (A0+D0.W+#0x31)>                                 {}
            <MI 208ee  BNE     0x208fc>                                         {}
        <POP 208f0-208f6 Naked>                              Σ0         ↓ →0x208fc
            <MI 208f0  TST.B   (A0+D0.W+#0x32)>                                 {}
            <MI 208f4  BEQ     0x208fc>                                         {}
        <POP 208f6-208fc Naked>                              Σ0         →0x20900
            <MI 208f6  MOVE.B  #0x0b,0x220aa>                                   {}
            <MI 208fa  BRA     0x20900>                                         {}
        <POP 208fc-20900 Naked>                              Σ0         ↓ ←0x208ea ←0x208f0
            <MI 208fc  MOVE.B  #0x02,0x220aa>                                   {}
        <POP 20900-20908 Naked>                              Σ0         ↓ ←0x208d2 ←0x208e4 ←0x208f6
            <MI 20900  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x20902 0x20410>                                              {[#0]}
            <POP 20906-20908 StackAdj>                       Δ+2                {}
        <POP 20908-20910 Epilogue>                           Σ0         

0x20910


@ 20910
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 1(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 20910-209bc Body>                                              
        <POP 20910-20926 Prologue>                           Σ0         ↓
        <POP 20926-2092c RegCacheLoad>                       Σ0         ↓
        <POP 2092c-209b0 Naked>                              Σ0         ↓ →0x209b4
            <Blob 0x2092c [12] @>                            Δ-12               {[«12""»]}
            <POP 2093e-20940 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <Lit 0x20940 11>                                                    {[«12""»]|[-4-]|[$$TEST_FREEZE]}
            <POP 20950-20952 StackAdj>                       Δ-6                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <MI 20952  MOVE.B  (A6+0x8),(A7)>                                   {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <Call 0x20956 0x20360>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-6-]}
            <POP 2095a-2095c StackAdj>                       Δ+2                {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
            <Call 0x2095c 0x102d0>                                              {[«12""»]|[-4-]|[$$TEST_FREEZE]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20962-20964 StackAdj>                       Δ+8                {[«12""»]|[-4-]}
            <Pointer.fp 0x20964 <LVAR -0x006 @ 4(r)>>        Δ-4                {[«12""»]|[-4-]|[@@-6]}
            <Call 0x20966 0x10460>                                              {[«12""»]|[-4-]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2096c-20970 StackAdj>                       Δ+16               {[-4-]}
            <MI 20970  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 20972  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#0]}
            <Call 0x20974 0x1046c>                                              {[4, '(A6-0x6)']|[#0]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 2097a-2097c StackAdj>                       Δ+2                {[4, '(A6-0x6)']}
            <MI 2097c  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x2097e 0x1.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]}
            <Call 0x20980 0x1046c>                                              {[4, '(A6-0x6)']|[#1]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20986-20988 StackAdj>                       Δ+6                {}
            <MI 20988  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2098c  EXTB.W  D0>                                              {}
            <MI 2098e  LEA.L   0x201d6,A0>                                      {}
            <MI 20992  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <MI 20996  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[2, '(A0+D0.W)']|[4, '(A6-0x6)']}
            <Pointer.fp 0x20998 <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, '(A0+D0.W)']|[4, '(A6-0x6)']|[@@-2]}
            <Call 0x2099c 0x204a4>                                              {[2, '(A0+D0.W)']|[4, '(A6-0x6)']|[@@-2]}
            <POP 209a0-209a4 StackAdj>                       Δ+10               {}
            <MI 209a4  CLR.B   (A6+0xa)>                                        {}
            <MI 209a8  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 209ac  CMP.B   #0x01,D0>                                        {}
            <MI 209ae  BNE     0x209b4>                                         {}
        <POP 209b0-209b4 Naked>                              Σ0         ↓
            <MI 209b0  ADDQ.B  #0x1,(A6+0xa)>                                   {}
        <POP 209b4-209bc Epilogue>                           Σ0         ←0x2092c

0x209bc


@ 209bc
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 209bc-20b26 Body>                                              
        <POP 209bc-209d2 Prologue>                           Σ0         ↓
        <POP 209d2-209ec RegCacheLoad>                       Σ0         ↓
        <POP 209ec-20a54 Naked>                              Σ0         ↓ →0x20a62
            <Blob 0x209ec [16] @>                            Δ-16               {[«16""»]}
            <POP 209fe-20a00 StackAdj>                       Δ-4                {[«16""»]|[-4-]}
            <Lit 0x20a00 15>                                                    {[«16""»]|[$$TEST_FREEZE.FIU]}
            <Pointer.fp 0x20a10 <LVAR -0x00c @ 4(r)>>        Δ-4                {[«16""»]|[$$TEST_FREEZE.FIU]|[@@-12]}
            <Call 0x20a14 0x10460>                                              {[«16""»]|[$$TEST_FREEZE.FIU]|[@@-12]}
                ExpLoad(a : String; b: Pointer)
            <POP 20a1a-20a1e StackAdj>                       Δ+20               {[-4-]}
            <MI 20a1e  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Const 0x20a22 0x1.2>                            Δ-2                {[4, '(A6-0xc)']|[#1]}
            <Call 0x20a24 0x1046c>                                              {[4, '(A6-0xc)']|[#1]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20a2a-20a2c StackAdj>                       Δ+2                {[4, '(A6-0xc)']}
            <MI 20a2c  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 20a30  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xc)']|[#0]}
            <Call 0x20a32 0x1046c>                                              {[4, '(A6-0xc)']|[#0]}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20a38-20a3a StackAdj>                       Δ+4                {[-2-]}
            <POP 20a3a-20a3b StackAdj>                       Δ+2                {}
            <Const 0x20a3b 0x3.2>                            Δ-2                {[#3]}
            <MI 20a3c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[#3]|[4, '(A6-0xc)']}
            <Pointer.fp 0x20a40 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#3]|[4, '(A6-0xc)']|[@@-8]}
            <Call 0x20a44 0x204a4>                                              {[#3]|[4, '(A6-0xc)']|[@@-8]}
            <POP 20a48-20a4c StackAdj>                       Δ+10               {}
            <MI 20a4c  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 20a50  CMP.B   #0x01,D0>                                        {}
            <MI 20a52  BEQ     0x20a62>                                         {}
        <POP 20a54-20a62 Naked>                              Σ0         ↓
            <MI 20a54  MOVE.B  #0x06,0x220a2>                                   {}
            <MI 20a56  MOVE.B  #0x0c,0x220aa>                                   {}
            <MI 20a5a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x20a5c 0x20410>                                              {[#0]}
            <POP 20a60-20a62 StackAdj>                       Δ+2                {}
        <POP 20a62-20a66 Naked>                              Σ0         ↓ ←0x209ec
            <MI 20a62  MOVEQ.L #0x00,D7>                                        {}
            <MI 20a64  MOVEQ.L #0x00,D6>                                        {}
        <POP 20a66-20a6c Naked>                              Σ0         ↓ →0x20ab0 ←0x20ab0
            <MI 20a66  CMPI.B  #0x04,D6>                                        {}
            <MI 20a6a  BEQ     0x20ab0>                                         {}
        <POP 20a6c-20a86 Naked>                              Σ0         ↓ →0x20ab0
            <POP 20a6c-20a6e StackAdj>                       Δ-2                {[-2-]}
            <MI 20a6e  MOVE.B  D6,D0>                                           {[-2-]}
            <MI 20a70  EXTB.W  D0>                                              {[-2-]}
            <MI 20a72  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 20a76  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x20a7a 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20a80-20a82 StackAdj>                       Δ+2                {[-2-]}
            <MI 20a82  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a84  BEQ     0x20ab0>                                         {}
        <POP 20a86-20a94 Naked>                              Σ0         ↓ →0x20ab0
            <POP 20a86-20a88 StackAdj>                       Δ-2                {[-2-]}
            <MI 20a88  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x20a8a 0x20910>                                              {[-2-]|[2, 'D6']}
            <POP 20a8e-20a90 StackAdj>                       Δ+2                {[-2-]}
            <MI 20a90  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a92  BNE     0x20ab0>                                         {}
        <POP 20a94-20ab0 Naked>                              Σ0         ↓
            <MI 20a94  ADDQ.L  #0x1,D7>                                         {}
            <MI 20a96  MOVE.B  D6,D5>                                           {}
            <MI 20a98  MOVE.B  D6,D0>                                           {}
            <MI 20a9a  EXTB.W  D0>                                              {}
            <MI 20a9c  LEA.L   0x201d6,A0>                                      {}
            <MI 20aa0  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Const 0x20aa4 0x2.2>                            Δ-2                {[2, '(A0+D0.W)']|[#2]}
            <Call 0x20aa8 0x1048a>                                              {[2, '(A0+D0.W)']|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20aae-20ab0 StackAdj>                       Δ+4                {}
        <POP 20ab0-20ab8 Naked>                              Σ0         ↓ →0x20a66 ←0x20a66 ←0x20a6c ←0x20a86
            <MI 20ab0  ADDQ.B  #0x1,D6>                                         {}
            <MI 20ab2  CMPI.B  #0x08,D6>                                        {}
            <MI 20ab6  BLE     0x20a66>                                         {}
        <POP 20ab8-20aca Naked>                              Σ0         ↓ →0x20b1e
            <Const 0x20ab8 0x3.2>                            Δ-2                {[#3]}
            <Const 0x20aba 0x2.2>                            Δ-2                {[#3]|[#2]}
            <Call 0x20abe 0x1048a>                                              {[#3]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20ac4-20ac6 StackAdj>                       Δ+4                {}
            <MI 20ac6  TST.L   D7>                                              {}
            <MI 20ac8  BEQ     0x20b1e>                                         {}
        <POP 20aca-20ace Naked>                              Σ0         ↓ →0x20af4
            <MI 20aca  CMP.L   #0x01,D7>                                        {}
            <MI 20acc  BNE     0x20af4>                                         {}
        <POP 20ace-20af4 Naked>                              Σ0         →0x20b16
            <POP 20ace-20ad0 StackAdj>                       Δ-2                {[-2-]}
            <MI 20ad0  MOVE.B  D5,D0>                                           {[-2-]}
            <MI 20ad2  EXTB.W  D0>                                              {[-2-]}
            <POP 0x20ad4 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {[-2-]}
            <MI 20ad8  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20ada 0x20324>                                              {[-2-]|[2, 'D0']}
            <POP 20ade-20ae0 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ae0  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20ae2  EXTB.W  D0>                                              {}
            <POP 0x20ae4 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 20ae8  MOVE.B  D0,0x220a2>                                      {}
            <MI 20aea  MOVE.B  #0x2a,0x220a3>                                   {}
            <MI 20aee  MOVE.B  #0x0d,0x220aa>                                   {}
            <MI 20af2  BRA     0x20b16>                                         {}
        <POP 20af4-20b00 Naked>                              Σ0         ↓ →0x20b0c ←0x20aca
            <MI 20af4  MOVE.L  0x22096,D0>                                      {}
            <MI 20afa  SUBQ.L  #0x1,D0>                                         {}
            <MI 20afc  CMP.L   D0,D7>                                           {}
            <MI 20afe  BNE     0x20b0c>                                         {}
        <POP 20b00-20b0c Naked>                              Σ0         →0x20b16
            <MI 20b00  MOVE.B  #0x06,0x220a2>                                   {}
            <MI 20b02  MOVE.B  #0x2a,0x220a3>                                   {}
            <MI 20b06  MOVE.B  #0x0e,0x220aa>                                   {}
            <MI 20b0a  BRA     0x20b16>                                         {}
        <POP 20b0c-20b16 Naked>                              Σ0         ↓ ←0x20af4
            <MI 20b0c  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 20b10  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 20b14  MOVE.B  #0x0f,0x220aa>                                   {}
        <POP 20b16-20b1e Naked>                              Σ0         ↓ ←0x20ace ←0x20b00
            <MI 20b16  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x20b18 0x20410>                                              {[#0]}
            <POP 20b1c-20b1e StackAdj>                       Δ+2                {}
        <POP 20b1e-20b26 Epilogue>                           Σ0         ←0x20ab8

0x20b26


@ 20b26
        <LVAR  0x00a 2(rw)>
        <LVAR  0x008 2(r)>
    <POP 20b26-20b52 Body>                                              
        <POP 20b26-20b3c Prologue>                           Σ0         ↓
        <POP 20b3c-20b40 RegCacheLoad>                       Σ0         ↓
        <POP 20b40-20b4a Naked>                              Σ0         ↓
            <MI 20b40  MOVE.W  (A6+0x8),(A6+0xa)>                               {}
            <MI 20b44  NOT.W   (A6+0xa)>                                        {}
            <MI 20b46  ANDI.W  #0x00ff,(A6+0xa)>                                {}
        <POP 20b4a-20b52 Epilogue>                           Σ0         

0x20b52


@ 20b52
    <POP 20b52-20b9a Body>                                              
        <POP 20b52-20b68 Prologue>                           Σ0         ↓
        <POP 20b68-20b6e RegCacheLoad>                       Σ0         ↓
        <POP 20b6e-20b76 Naked>                              Σ0         ↓ →0x20b92
            <MI 20b6e  TST.B   0x220e4>                                         {}
            <MI 20b74  BEQ     0x20b92>                                         {}
        <POP 20b76-20b7e Naked>                              Σ0         ↓ →0x20b84
            <MI 20b76  MOVE.B  0x220e5,D0>                                      {}
            <MI 20b78  CMPI.B  #0x03,D0>                                        {}
            <MI 20b7c  BNE     0x20b84>                                         {}
        <POP 20b7e-20b84 Naked>                              Σ0         ↓
            <Call 0x20b7e 0x21c60>                                              {}
                exp_FORCE_SYNC.FIU()
        <POP 20b84-20b8c Naked>                              Σ0         ↓ →0x20b92 ←0x20b76
            <MI 20b84  MOVE.B  0x220e5,D0>                                      {}
            <MI 20b86  CMPI.B  #0x02,D0>                                        {}
            <MI 20b8a  BNE     0x20b92>                                         {}
        <POP 20b8c-20b92 Naked>                              Σ0         ↓
            <Call 0x20b8c 0x21d0e>                                              {}
                exp_FORCE_SYNC.SEQ()
        <POP 20b92-20b9a Epilogue>                           Σ0         ←0x20b6e ←0x20b84

0x20b9a


@ 20b9a
    <POP 20b9a-20bd2 Body>                                              
        <POP 20b9a-20bb0 Prologue>                           Σ0         ↓
        <POP 20bb0-20bca Naked>                              Σ0         ↓
            <MI 20bb0  MOVE.B  0x220e5,D0>                                      {}
            <MI 20bb6  EXTB.W  D0>                                              {}
            <POP 0x20bb8 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 20bbc  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x20bbe 0x2.2>                            Δ-2                {[2, 'D0']|[#2]}
            <Call 0x20bc2 0x1048a>                                              {[2, 'D0']|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20bc8-20bca StackAdj>                       Δ+4                {}
        <POP 20bca-20bd2 Epilogue>                           Σ0         

0x20bd2


@ 20bd2
        <LVAR  0x008 1(w)>
        <LVAR -0x004 @ 2(r)>
        <LVAR -0x006 2(r)>
        <LVAR -0x00c @ 2(r)>
    <POP 20bd2-20c84 Body>                                              
        <POP 20bd2-20be8 Prologue>                           Σ0         ↓
        <POP 20be8-20bea RegCacheLoad>                       Σ0         ↓
        <POP 20bea-20bfa Naked>                              Σ0         ↓
            <MI 20bea  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20bec <LVAR -0x00c @ 2(r)>>        Δ-4                {[#0]|[@@-12]}
            <Call 0x20bf0 0x21fe0>                                              {[#0]|[@@-12]}
                exp_READ_UIR.IOC(Sw_1, &Sr_2)
            <POP 20bf6-20bf8 StackAdj>                       Δ+6                {}
            <MI 20bf8  MOVEQ.L #0x00,D7>                                        {}
        <POP 20bfa-20c20 Naked>                              Σ0         ↓ →0x20bfa ←0x20bfa
            <POP 0x20bfa LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {}
            <POP 20c00-20c02 StackAdj>                       Δ-2                {[-2-]}
            <MI 20c02  CLR.L   D0>                                              {[-2-]}
            <MI 20c04  MOVE.B  (A6+D7.L-#0xc),D0>                               {[-2-]}
            <MI 20c08  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20c0a 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20c0e-20c10 StackAdj>                       Δ+2                {[-2-]}
            <MI 20c10  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20c12 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20c16  MOVE.B  D0,(A6+D7.L-#0x6)>                               {}
            <MI 20c1a  ADDQ.L  #0x1,D7>                                         {}
            <MI 20c1c  CMP.L   #0x01,D7>                                        {}
            <MI 20c1e  BLE     0x20bfa>                                         {}
        <POP 20c20-20c7c Naked>                              Σ0         ↓
            <Call 0x20c20 0x20b52>                                              {}
            <MI 20c24  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x6)']}
            <MI 20c28  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x6)']|[#0]}
            <Call 0x20c2a 0x21ffc>                                              {[2, '(A6-0x6)']|[#0]}
                exp_LOAD_UIR.IOC(Sw_2, Sw_1)
            <POP 20c30-20c32 StackAdj>                       Δ+4                {}
            <Call 0x20c32 0x20b9a>                                              {}
            <MI 20c36  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20c38 <LVAR -0x004 @ 2(r)>>        Δ-4                {[#0]|[@@-4]}
            <Call 0x20c3c 0x21fe0>                                              {[#0]|[@@-4]}
                exp_READ_UIR.IOC(Sw_1, &Sr_2)
            <POP 20c42-20c44 StackAdj>                       Δ+4                {[#0]}
            <MI 20c44  MOVE.W  (A6-0xc),(A7)>                                   {[2, '(A6-0xc)']}
            <MI 20c48  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0x4)']}
            <POP 20c4c-20c4e StackAdj>                       Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]}
            <Pointer.sp 0x20c4e 4>                           Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]}
            <Const 0x20c52 0x0.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]}
            <Const 0x20c56 0x1.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]|[##1]}
            <Pointer.sp 0x20c5a 14>                          Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]|[##1]|[^^14]}
            <Const 0x20c5e 0x0.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
            <Const 0x20c62 0x1.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
            <Call 0x20c66 0x104a8>                                              {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20c6c-20c70 StackAdj>                       Δ+24               {[2, '(A6-0xc)']|[2, '(A6-0x4)']|[-2-]}
            <MI 20c70  MOVE.B  (A7)+,D0>                     Δ+2                {[2, '(A6-0xc)']|[2, '(A6-0x4)']}
            <MI 20c72  EXTB.W  D0>                                              {[2, '(A6-0xc)']|[2, '(A6-0x4)']}
            <POP 0x20c74 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0xc)']|[2, '(A6-0x4)']}
            <POP 20c76-20c78 StackAdj>                       Δ+4                {}
            <MI 20c78  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 20c7c-20c84 Epilogue>                           Σ0         

0x20c84


@ 20c84
    <POP 20c84-20c9a Body>                                              
        <POP 20c84-20c96 Prologue>                           Σ0         ↓
        <POP 20c96-20c9a Epilogue>                           Σ0         

0x20c9a


@ 20c9a
        <LVAR  0x008 1(w)>
        <LVAR -0x005 @>
        <LVAR -0x014 @>
    <POP 20c9a-20d70 Body>                                              
        <POP 20c9a-20cb0 Prologue>                           Σ0         ↓
        <POP 20cb0-20cb2 RegCacheLoad>                       Σ0         ↓
        <POP 20cb2-20cc2 Naked>                              Σ0         ↓
            <MI 20cb2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20cb4 <LVAR -0x014 @>>             Δ-4                {[#0]|[@@-20]}
            <Call 0x20cb8 0x21d62>                                              {[#0]|[@@-20]}
                exp_READ_UIR.VAL(Sw_1, &Sr_5)
            <POP 20cbe-20cc0 StackAdj>                       Δ+6                {}
            <MI 20cc0  MOVEQ.L #0x00,D7>                                        {}
        <POP 20cc2-20ce8 Naked>                              Σ0         ↓ →0x20cc2 ←0x20cc2
            <POP 0x20cc2 LimitCheck 0x0 ≤ D7 ≤ 0x4>                             {}
            <POP 20cc8-20cca StackAdj>                       Δ-2                {[-2-]}
            <MI 20cca  CLR.L   D0>                                              {[-2-]}
            <MI 20ccc  MOVE.B  (A6+D7.L-#0x14),D0>                              {[-2-]}
            <MI 20cd0  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20cd2 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20cd6-20cd8 StackAdj>                       Δ+2                {[-2-]}
            <MI 20cd8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20cda LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20cde  MOVE.B  D0,(A6+D7.L-#0xa)>                               {}
            <MI 20ce2  ADDQ.L  #0x1,D7>                                         {}
            <MI 20ce4  CMP.L   #0x04,D7>                                        {}
            <MI 20ce6  BLE     0x20cc2>                                         {}
        <POP 20ce8-20d68 Naked>                              Σ0         ↓
            <Call 0x20ce8 0x20b52>                                              {}
            <Blob 0x20cec [6] (A6-0xa)>                      Δ-6                {[«6»]}
            <MI 20cfc  CLR.B   -(A7)>                        Δ-2                {[«6»]|[#0]}
            <Call 0x20cfe 0x21d7e>                                              {[«6»]|[#0]}
                exp_LOAD_UIR.VAL(Sw_5, Sw_1)
            <POP 20d04-20d06 StackAdj>                       Δ+8                {}
            <Call 0x20d06 0x20b9a>                                              {}
            <MI 20d0a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20d0c <LVAR -0x005 @>>             Δ-4                {[#0]|[@@-5]}
            <Call 0x20d10 0x21d62>                                              {[#0]|[@@-5]}
                exp_READ_UIR.VAL(Sw_1, &Sr_5)
            <MI 20d16  MOVEA.L A7,A0>                                           {[#0]|[@@-5]}
            <MI 20d18  LEA.L   (A6-0x14),A1>                                    {[#0]|[@@-5]}
            <BlockMove 5,A1,A0>                                                 {[#0]|[@@-5]}
            <Blob 0x20d24 [6] (A6-0x5)>                      Δ-6                {[#0]|[@@-5]|[«6»]}
            <POP 20d34-20d36 StackAdj>                       Δ-2                {[#0]|[@@-5]|[«6»]|[-2-]}
            <Pointer.sp 0x20d36 8>                           Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]}
            <Const 0x20d3a 0x0.4>                            Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]}
            <Const 0x20d3e 0x4.4>                            Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]|[##4]}
            <Pointer.sp 0x20d42 14>                          Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]|[##4]|[^^14]}
            <Const 0x20d46 0x0.4>                            Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]|[##4]|[^^14]|[##0]}
            <Const 0x20d4a 0x4.4>                            Δ-4                {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]|[##4]|[^^14]|[##0]|[##4]}
            <Call 0x20d4e 0x104a8>                                              {[#0]|[@@-5]|[«6»]|[-2-]|[^^8]|[##0]|[##4]|[^^14]|[##0]|[##4]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20d54-20d58 StackAdj>                       Δ+24               {[#0]|[@@-5]|[«6»]|[-2-]}
            <MI 20d58  MOVE.B  (A7)+,D0>                     Δ+2                {[#0]|[@@-5]|[«6»]}
            <MI 20d5a  EXTB.W  D0>                                              {[#0]|[@@-5]|[«6»]}
            <POP 0x20d5c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[#0]|[@@-5]|[«6»]}
            <POP 20d60-20d64 StackAdj>                       Δ+12               {}
            <MI 20d64  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 20d68-20d70 Epilogue>                           Σ0         

0x20d70


@ 20d70
        <LVAR  0x008 1(w)>
        <LVAR -0x004 2(r)>
        <LVAR -0x006 2(r)>
        <LVAR -0x008 @ 2(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x014 2(r)>
        <LVAR -0x016 2(r)>
        <LVAR -0x018 @ 2(r)>
    <POP 20d70-20e3e Body>                                              
        <POP 20d70-20d86 Prologue>                           Σ0         ↓
        <POP 20d86-20d88 RegCacheLoad>                       Σ0         ↓
        <POP 20d88-20d98 Naked>                              Σ0         ↓
            <MI 20d88  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20d8a <LVAR -0x018 @ 2(r)>>        Δ-4                {[#0]|[@@-24]}
            <Call 0x20d8e 0x21d2a>                                              {[#0]|[@@-24]}
                exp_READ_UIR.TYP(Sw_1, &Sr_6)
            <POP 20d94-20d96 StackAdj>                       Δ+6                {}
            <MI 20d96  MOVEQ.L #0x00,D7>                                        {}
        <POP 20d98-20dbe Naked>                              Σ0         ↓ →0x20d98 ←0x20d98
            <POP 0x20d98 LimitCheck 0x0 ≤ D7 ≤ 0x5>                             {}
            <POP 20d9e-20da0 StackAdj>                       Δ-2                {[-2-]}
            <MI 20da0  CLR.L   D0>                                              {[-2-]}
            <MI 20da2  MOVE.B  (A6+D7.L-#0x18),D0>                              {[-2-]}
            <MI 20da6  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20da8 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20dac-20dae StackAdj>                       Δ+2                {[-2-]}
            <MI 20dae  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20db0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20db4  MOVE.B  D0,(A6+D7.L-#0xe)>                               {}
            <MI 20db8  ADDQ.L  #0x1,D7>                                         {}
            <MI 20dba  CMP.L   #0x05,D7>                                        {}
            <MI 20dbc  BLE     0x20d98>                                         {}
        <POP 20dbe-20e36 Naked>                              Σ0         ↓
            <Call 0x20dbe 0x20b52>                                              {}
            <MI 20dc2  MOVE.W  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <MI 20dc6  MOVE.W  (A6-0xc),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']}
            <MI 20dca  MOVE.W  (A6-0xe),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']}
            <MI 20dce  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']|[#0]}
            <Call 0x20dd0 0x21d46>                                              {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']|[#0]}
                exp_LOAD_UIR.TYP(Sw_6, Sw_1)
            <POP 20dd6-20dd8 StackAdj>                       Δ+8                {}
            <Call 0x20dd8 0x20b9a>                                              {}
            <MI 20ddc  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20dde <LVAR -0x008 @ 2(r)>>        Δ-4                {[#0]|[@@-8]}
            <Call 0x20de2 0x21d2a>                                              {[#0]|[@@-8]}
                exp_READ_UIR.TYP(Sw_1, &Sr_6)
            <POP 20de8-20dea StackAdj>                       Δ+4                {[#0]}
            <MI 20dea  MOVE.W  (A6-0x14),(A7)>                                  {[2, '(A6-0x14)']}
            <MI 20dee  MOVE.W  (A6-0x16),-(A7)>              Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']}
            <MI 20df2  MOVE.W  (A6-0x18),-(A7)>              Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']}
            <MI 20df6  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']}
            <MI 20dfa  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']}
            <MI 20dfe  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 20e02-20e04 StackAdj>                       Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]}
            <Pointer.sp 0x20e04 8>                           Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]}
            <Const 0x20e08 0x0.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]}
            <Const 0x20e0c 0x5.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]}
            <Pointer.sp 0x20e10 14>                          Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]}
            <Const 0x20e14 0x0.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]}
            <Const 0x20e18 0x5.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
            <Call 0x20e1c 0x104a8>                                              {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20e22-20e26 StackAdj>                       Δ+24               {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]}
            <MI 20e26  MOVE.B  (A7)+,D0>                     Δ+2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <MI 20e28  EXTB.W  D0>                                              {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 0x20e2a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 20e2e-20e32 StackAdj>                       Δ+12               {}
            <MI 20e32  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 20e36-20e3e Epilogue>                           Σ0         

0x20e3e


@ 20e3e
        <LVAR  0x008 1(w)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a 4(r)>
        <LVAR -0x00e 4(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x016 4(r)>
        <LVAR -0x01a 4(r)>
        <LVAR -0x01e 4(r)>
        <LVAR -0x022 4(r)>
        <LVAR -0x026 4(r)>
        <LVAR -0x02a 4(r)>
        <LVAR -0x02e 4(r)>
        <LVAR -0x032 @ 4(r)>
        <LVAR -0x034 2(r)>
        <LVAR -0x036 2(r)>
        <LVAR -0x038 @ 2(r)>
        <LVAR -0x03a 2(r)>
        <LVAR -0x03c 2(r)>
        <LVAR -0x03e 2(r)>
        <LVAR -0x044 2(r)>
        <LVAR -0x046 2(r)>
        <LVAR -0x048 @ 2(r)>
    <POP 20e3e-20ffa Body>                                              
        <POP 20e3e-20e54 Prologue>                           Σ0         ↓
        <POP 20e54-20e6e RegCacheLoad>                       Σ0         ↓
        <POP 20e6e-20e7c Naked>                              Σ0         ↓
            <Pointer.fp 0x20e6e <LVAR -0x048 @ 2(r)>>        Δ-4                {[@@-72]}
            <Call 0x20e72 0x21c98>                                              {[@@-72]}
                exp_READ_UIR.SEQ(&Sr_6)
            <POP 20e78-20e7a StackAdj>                       Δ+4                {}
            <MI 20e7a  MOVEQ.L #0x00,D7>                                        {}
        <POP 20e7c-20e9e Naked>                              Σ0         ↓ →0x20e7c ←0x20e7c
            <POP 0x20e7c LimitCheck 0x0 ≤ D7 ≤ 0x5>                             {}
            <POP 20e82-20e84 StackAdj>                       Δ-2                {[-2-]}
            <MI 20e84  CLR.L   D0>                                              {[-2-]}
            <MI 20e86  MOVE.B  (A6+D7.L-#0x48),D0>                              {[-2-]}
            <MI 20e8a  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20e8c 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20e8e-20e90 StackAdj>                       Δ+2                {[-2-]}
            <MI 20e90  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20e92 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20e94  MOVE.B  D0,(A6+D7.L-#0x3e)>                              {}
            <MI 20e98  ADDQ.L  #0x1,D7>                                         {}
            <MI 20e9a  CMP.L   #0x05,D7>                                        {}
            <MI 20e9c  BLE     0x20e7c>                                         {}
        <POP 20e9e-20f08 Naked>                              Σ0         ↓ →0x20fee
            <Call 0x20e9e 0x20b52>                                              {}
            <MI 20ea2  MOVE.W  (A6-0x3a),-(A7)>              Δ-2                {[2, '(A6-0x3a)']}
            <MI 20ea6  MOVE.W  (A6-0x3c),-(A7)>              Δ-2                {[2, '(A6-0x3a)']|[2, '(A6-0x3c)']}
            <MI 20eaa  MOVE.W  (A6-0x3e),-(A7)>              Δ-2                {[2, '(A6-0x3a)']|[2, '(A6-0x3c)']|[2, '(A6-0x3e)']}
            <Call 0x20eae 0x21cf4>                                              {[2, '(A6-0x3a)']|[2, '(A6-0x3c)']|[2, '(A6-0x3e)']}
                exp_LOAD_UIR.SEQ(Sw_6)
            <POP 20eb4-20eb6 StackAdj>                       Δ+6                {}
            <Call 0x20eb6 0x20b9a>                                              {}
            <Pointer.fp 0x20eba <LVAR -0x038 @ 2(r)>>        Δ-4                {[@@-56]}
            <Call 0x20ebe 0x21c98>                                              {[@@-56]}
                exp_READ_UIR.SEQ(&Sr_6)
            <POP 20ec4-20ec6 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ec6  MOVE.W  (A6-0x44),(A7)>                                  {[2, '(A6-0x44)']}
            <MI 20eca  MOVE.W  (A6-0x46),-(A7)>              Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']}
            <MI 20ece  MOVE.W  (A6-0x48),-(A7)>              Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']}
            <MI 20ed2  MOVE.W  (A6-0x34),-(A7)>              Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']}
            <MI 20ed6  MOVE.W  (A6-0x36),-(A7)>              Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']}
            <MI 20eda  MOVE.W  (A6-0x38),-(A7)>              Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']}
            <POP 20ede-20ee0 StackAdj>                       Δ-2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]}
            <Pointer.sp 0x20ee0 8>                           Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]}
            <Const 0x20ee4 0x0.4>                            Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]}
            <Const 0x20ee6 0x5.4>                            Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]|[##5]}
            <Pointer.sp 0x20eea 14>                          Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]}
            <Const 0x20eee 0x0.4>                            Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]}
            <Const 0x20ef0 0x5.4>                            Δ-4                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
            <Call 0x20ef4 0x104a8>                                              {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20ef6-20ef8 StackAdj>                       Δ+24               {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']|[-2-]}
            <MI 20ef8  MOVE.B  (A7)+,D0>                     Δ+2                {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']}
            <MI 20efa  EXTB.W  D0>                                              {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']}
            <POP 0x20efc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x44)']|[2, '(A6-0x46)']|[2, '(A6-0x48)']|[2, '(A6-0x34)']|[2, '(A6-0x36)']|[2, '(A6-0x38)']}
            <POP 20efe-20f02 StackAdj>                       Δ+12               {}
            <MI 20f02  MOVE.B  D0,D6>                                           {}
            <MI 20f04  BEQ     0x20fee>                                         {}
        <POP 20f08-20f16 Naked>                              Σ0         ↓
            <Pointer.fp 0x20f08 <LVAR -0x032 @ 4(r)>>        Δ-4                {[@@-50]}
            <Call 0x20f0c 0x21cb2>                                              {[@@-50]}
                exp_READ_SEQ.SEQ(&Sr_8_8)
            <POP 20f12-20f14 StackAdj>                       Δ+4                {}
            <MI 20f14  MOVEQ.L #0x00,D7>                                        {}
        <POP 20f16-20f38 Naked>                              Σ0         ↓ →0x20f16 ←0x20f16
            <POP 0x20f16 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <POP 20f1c-20f1e StackAdj>                       Δ-2                {[-2-]}
            <MI 20f1e  CLR.L   D0>                                              {[-2-]}
            <MI 20f20  MOVE.B  (A6+D7.L-#0x32),D0>                              {[-2-]}
            <MI 20f24  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20f26 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20f28-20f2a StackAdj>                       Δ+2                {[-2-]}
            <MI 20f2a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20f2c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20f2e  MOVE.B  D0,(A6+D7.L-#0x22)>                              {}
            <MI 20f32  ADDQ.L  #0x1,D7>                                         {}
            <MI 20f34  CMP.L   #0x07,D7>                                        {}
            <MI 20f36  BLE     0x20f16>                                         {}
        <POP 20f38-20f3a Naked>                              Σ0         ↓
            <MI 20f38  MOVEQ.L #0x00,D7>                                        {}
        <POP 20f3a-20f5c Naked>                              Σ0         ↓ →0x20f3a ←0x20f3a
            <POP 0x20f3a LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <POP 20f40-20f42 StackAdj>                       Δ-2                {[-2-]}
            <MI 20f42  CLR.L   D0>                                              {[-2-]}
            <MI 20f44  MOVE.B  (A6+D7.L-#0x2a),D0>                              {[-2-]}
            <MI 20f48  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20f4a 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 20f4c-20f4e StackAdj>                       Δ+2                {[-2-]}
            <MI 20f4e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20f50 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20f52  MOVE.B  D0,(A6+D7.L-#0x1a)>                              {}
            <MI 20f56  ADDQ.L  #0x1,D7>                                         {}
            <MI 20f58  CMP.L   #0x07,D7>                                        {}
            <MI 20f5a  BLE     0x20f3a>                                         {}
        <POP 20f5c-20fee Naked>                              Σ0         ↓
            <Call 0x20f5c 0x20b52>                                              {}
            <MI 20f60  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[4, '(A6-0x16)']}
            <MI 20f64  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[4, '(A6-0x16)']|[4, '(A6-0x1a)']}
            <MI 20f68  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <MI 20f6c  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <Call 0x20f70 0x21c7c>                                              {[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
                exp_WRITE_SEQ.SEQ(Sw_8_8)
            <POP 20f76-20f7a StackAdj>                       Δ+16               {}
            <Call 0x20f7a 0x20b9a>                                              {}
            <Pointer.fp 0x20f7e <LVAR -0x012 @ 4(r)>>        Δ-4                {[@@-18]}
            <Call 0x20f82 0x21cb2>                                              {[@@-18]}
                exp_READ_SEQ.SEQ(&Sr_8_8)
            <MI 20f88  MOVE.L  (A6-0x2e),(A7)>                                  {[4, '(A6-0x2e)']}
            <MI 20f8c  MOVE.L  (A6-0x32),-(A7)>              Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']}
            <MI 20f90  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']}
            <MI 20f94  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <POP 20f98-20f9a StackAdj>                       Δ-2                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]}
            <Pointer.sp 0x20f9a 10>                          Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]}
            <Const 0x20f9e 0x0.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]}
            <Const 0x20fa0 0x7.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]|[##7]}
            <Pointer.sp 0x20fa4 14>                          Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]}
            <Const 0x20fa8 0x0.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]}
            <Const 0x20faa 0x7.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
            <Call 0x20fae 0x104a8>                                              {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20fb0-20fb4 StackAdj>                       Δ+20               {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[^^10]}
            <MI 20fb4  MOVE.L  (A6-0x26),(A7)>                                  {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']}
            <MI 20fb8  MOVE.L  (A6-0x2a),-(A7)>              Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']}
            <MI 20fbc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']}
            <MI 20fc0  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 20fc4-20fc6 StackAdj>                       Δ-2                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]}
            <Pointer.sp 0x20fc6 10>                          Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]}
            <Const 0x20fca 0x0.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]}
            <Const 0x20fcc 0x7.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]|[##7]}
            <Pointer.sp 0x20fd0 14>                          Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]}
            <Const 0x20fd4 0x0.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]}
            <Const 0x20fd6 0x7.4>                            Δ-4                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
            <Call 0x20fda 0x104a8>                                              {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20fdc-20fde StackAdj>                       Δ+24               {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]}
            <MI 20fde  MOVE.B  (A7+0x12),D0>                                    {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[-2-]}
            <MI 20fe2  AND.B   (A7)+,D0>                     Δ+2                {[4, '(A6-0x2e)']|[4, '(A6-0x32)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-2-]|[4, '(A6-0x26)']|[4, '(A6-0x2a)']|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <POP 20fe4-20fe8 StackAdj>                       Δ+34               {}
            <MI 20fe8  EXTB.W  D0>                                              {}
            <POP 0x20fea LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20fec  MOVE.B  D0,D6>                                           {}
        <POP 20fee-20ff2 Naked>                              Σ0         ↓ ←0x20e9e
            <MI 20fee  MOVE.B  D6,(A6+0x8)>                                     {}
        <POP 20ff2-20ffa Epilogue>                           Σ0         

0x20ffa


@ 20ffa
        <LVAR  0x008 1(w)>
        <LVAR -0x004 2(r)>
        <LVAR -0x006 2(r)>
        <LVAR -0x008 @ 2(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x014 2(r)>
        <LVAR -0x016 2(r)>
        <LVAR -0x018 @ 2(r)>
    <POP 20ffa-210c8 Body>                                              
        <POP 20ffa-21010 Prologue>                           Σ0         ↓
        <POP 21010-21012 RegCacheLoad>                       Σ0         ↓
        <POP 21012-21022 Naked>                              Σ0         ↓
            <MI 21012  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x21014 <LVAR -0x018 @ 2(r)>>        Δ-4                {[#0]|[@@-24]}
            <Call 0x21018 0x21c28>                                              {[#0]|[@@-24]}
                exp_READ_UIR.FIU(Sw_1, &Sr_6)
            <POP 2101e-21020 StackAdj>                       Δ+6                {}
            <MI 21020  MOVEQ.L #0x00,D7>                                        {}
        <POP 21022-21048 Naked>                              Σ0         ↓ →0x21022 ←0x21022
            <POP 0x21022 LimitCheck 0x0 ≤ D7 ≤ 0x5>                             {}
            <POP 21028-2102a StackAdj>                       Δ-2                {[-2-]}
            <MI 2102a  CLR.L   D0>                                              {[-2-]}
            <MI 2102c  MOVE.B  (A6+D7.L-#0x18),D0>                              {[-2-]}
            <MI 21030  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21032 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 21036-21038 StackAdj>                       Δ+2                {[-2-]}
            <MI 21038  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2103a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2103e  MOVE.B  D0,(A6+D7.L-#0xe)>                               {}
            <MI 21042  ADDQ.L  #0x1,D7>                                         {}
            <MI 21044  CMP.L   #0x05,D7>                                        {}
            <MI 21046  BLE     0x21022>                                         {}
        <POP 21048-210c0 Naked>                              Σ0         ↓
            <Call 0x21048 0x20b52>                                              {}
            <MI 2104c  MOVE.W  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <MI 21050  MOVE.W  (A6-0xc),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']}
            <MI 21054  MOVE.W  (A6-0xe),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']}
            <MI 21058  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']|[#0]}
            <Call 0x2105a 0x21c44>                                              {[2, '(A6-0xa)']|[2, '(A6-0xc)']|[2, '(A6-0xe)']|[#0]}
                exp_LOAD_UIR.FIU(Sw_6, Sw_1)
            <POP 21060-21062 StackAdj>                       Δ+8                {}
            <Call 0x21062 0x20b9a>                                              {}
            <MI 21066  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x21068 <LVAR -0x008 @ 2(r)>>        Δ-4                {[#0]|[@@-8]}
            <Call 0x2106c 0x21c28>                                              {[#0]|[@@-8]}
                exp_READ_UIR.FIU(Sw_1, &Sr_6)
            <POP 21072-21074 StackAdj>                       Δ+4                {[#0]}
            <MI 21074  MOVE.W  (A6-0x14),(A7)>                                  {[2, '(A6-0x14)']}
            <MI 21078  MOVE.W  (A6-0x16),-(A7)>              Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']}
            <MI 2107c  MOVE.W  (A6-0x18),-(A7)>              Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']}
            <MI 21080  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']}
            <MI 21084  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']}
            <MI 21088  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 2108c-2108e StackAdj>                       Δ-2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]}
            <Pointer.sp 0x2108e 8>                           Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]}
            <Const 0x21092 0x0.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]}
            <Const 0x21096 0x5.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]}
            <Pointer.sp 0x2109a 14>                          Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]}
            <Const 0x2109e 0x0.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]}
            <Const 0x210a2 0x5.4>                            Δ-4                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
            <Call 0x210a6 0x104a8>                                              {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]|[^^8]|[##0]|[##5]|[^^14]|[##0]|[##5]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 210ac-210b0 StackAdj>                       Δ+24               {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']|[-2-]}
            <MI 210b0  MOVE.B  (A7)+,D0>                     Δ+2                {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <MI 210b2  EXTB.W  D0>                                              {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 0x210b4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x14)']|[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x4)']|[2, '(A6-0x6)']|[2, '(A6-0x8)']}
            <POP 210b8-210bc StackAdj>                       Δ+12               {}
            <MI 210bc  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 210c0-210c8 Epilogue>                           Σ0         

0x210c8


@ 210c8
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 1(w)>
        <LVAR -0x009 1(w)>
        <LVAR -0x00a 1(w)>
        <LVAR -0x00b 1(w)>
        <LVAR -0x00c 1(w)>
        <LVAR -0x00d 1(w)>
        <LVAR -0x00e 1(w)>
        <LVAR -0x00f 1(w)>
        <LVAR -0x010 1(w)>
        <LVAR -0x011 1(r)>
        <LVAR -0x012 1(r)>
        <LVAR -0x013 1(r)>
        <LVAR -0x014 1(r)>
        <LVAR -0x018 4(r)>
        <LVAR -0x019 @ 1(r)>
        <LVAR -0x01a 1(r)>
        <LVAR -0x01b 1(r)>
        <LVAR -0x01c 1(r)>
        <LVAR -0x01d 1(r)>
        <LVAR -0x01e 1(r)>
        <LVAR -0x01f 1(r)>
        <LVAR -0x020 1(r)>
        <LVAR -0x021 1(r)>
        <LVAR -0x022 @ 1(r)>
    <POP 210c8-212fc Body>                                              
        <POP 210c8-210de Prologue>                           Σ0         ↓
        <POP 210de-210f2 RegCacheLoad>                       Σ0         ↓
        <POP 210f2-212f4 Naked>                              Σ0         ↓
            <MI 210f2  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 210f4  CLR.B   -(A7)>                        Δ-2                {[2, '(A6+0x8)']|[#0]}
            <Pointer.fp 0x210f6 <LVAR -0x022 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[#0]|[@@-34]}
            <Pointer.fp 0x210f8 <LVAR -0x007 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[#0]|[@@-34]|[@@-7]}
            <Call 0x210fc 0x21db2>                                              {[2, '(A6+0x8)']|[#0]|[@@-34]|[@@-7]}
            <POP 21102-21104 StackAdj>                       Δ+10               {[2, '(A6+0x8)']}
            <MI 21104  CLR.L   D0>                                              {[2, '(A6+0x8)']}
            <MI 21106  MOVE.B  (A6-0x22),D0>                                    {[2, '(A6+0x8)']}
            <MI 21108  MOVE.W  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x2110a 0x20b26>                                              {[2, '(A6+0x8)']|[2, 'D0']}
            <POP 2110c-2110e StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 2110e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21110 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21112  MOVE.B  D0,(A6-0x10)>                                    {}
            <POP 21116-21118 StackAdj>                       Δ-2                {[-2-]}
            <MI 21118  CLR.L   D0>                                              {[-2-]}
            <MI 2111a  MOVE.B  (A6-0x21),D0>                                    {[-2-]}
            <MI 2111e  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21120 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 21122-21124 StackAdj>                       Δ+2                {[-2-]}
            <MI 21124  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21126 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21128  MOVE.B  D0,(A6-0xf)>                                     {}
            <POP 2112c-2112e StackAdj>                       Δ-2                {[-2-]}
            <MI 2112e  CLR.L   D0>                                              {[-2-]}
            <MI 21130  MOVE.B  (A6-0x20),D0>                                    {[-2-]}
            <MI 21134  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21136 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 21138-2113a StackAdj>                       Δ+2                {[-2-]}
            <MI 2113a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2113c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2113e  MOVE.B  D0,(A6-0xe)>                                     {}
            <POP 21142-21144 StackAdj>                       Δ-2                {[-2-]}
            <MI 21144  CLR.L   D0>                                              {[-2-]}
            <MI 21146  MOVE.B  (A6-0x1f),D0>                                    {[-2-]}
            <MI 2114a  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x2114c 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 2114e-21150 StackAdj>                       Δ+2                {[-2-]}
            <MI 21150  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21152 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21154  MOVE.B  D0,(A6-0xd)>                                     {}
            <POP 21158-2115a StackAdj>                       Δ-2                {[-2-]}
            <MI 2115a  CLR.L   D0>                                              {[-2-]}
            <MI 2115c  MOVE.B  (A6-0x1e),D0>                                    {[-2-]}
            <MI 21160  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21162 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 21164-21166 StackAdj>                       Δ+2                {[-2-]}
            <MI 21166  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21168 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2116a  MOVE.B  D0,(A6-0xc)>                                     {}
            <POP 2116e-21170 StackAdj>                       Δ-2                {[-2-]}
            <MI 21170  CLR.L   D0>                                              {[-2-]}
            <MI 21172  MOVE.B  (A6-0x1d),D0>                                    {[-2-]}
            <MI 21176  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21178 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 2117a-2117c StackAdj>                       Δ+2                {[-2-]}
            <MI 2117c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2117e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21180  MOVE.B  D0,(A6-0xb)>                                     {}
            <POP 21184-21186 StackAdj>                       Δ-2                {[-2-]}
            <MI 21186  CLR.L   D0>                                              {[-2-]}
            <MI 21188  MOVE.B  (A6-0x1c),D0>                                    {[-2-]}
            <MI 2118c  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x2118e 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 21190-21192 StackAdj>                       Δ+2                {[-2-]}
            <MI 21192  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21194 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21196  MOVE.B  D0,(A6-0xa)>                                     {}
            <POP 2119a-2119c StackAdj>                       Δ-2                {[-2-]}
            <MI 2119c  CLR.L   D0>                                              {[-2-]}
            <MI 2119e  MOVE.B  (A6-0x1b),D0>                                    {[-2-]}
            <MI 211a2  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x211a4 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 211a6-211a8 StackAdj>                       Δ+2                {[-2-]}
            <MI 211a8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x211aa LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 211ac  MOVE.B  D0,(A6-0x9)>                                     {}
            <POP 211b0-211b2 StackAdj>                       Δ-2                {[-2-]}
            <MI 211b2  CLR.L   D0>                                              {[-2-]}
            <MI 211b4  MOVE.B  (A6-0x1a),D0>                                    {[-2-]}
            <MI 211b8  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x211ba 0x20b26>                                              {[-2-]|[2, 'D0']}
            <POP 211bc-211be StackAdj>                       Δ+2                {[-2-]}
            <MI 211be  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x211c0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 211c2  MOVE.B  D0,(A6-0x8)>                                     {}
            <Call 0x211c6 0x20b52>                                              {}
            <MI 211ca  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Blob 0x211cc [10] (A6-0x10)>                    Δ-10               {[2, '(A6+0x8)']|[«10»]}
            <MI 211dc  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[«10»]|[2, '(A6-0x7)']}
            <MI 211e0  CLR.B   -(A7)>                        Δ-2                {[2, '(A6+0x8)']|[«10»]|[2, '(A6-0x7)']|[#0]}
            <Call 0x211e2 0x21ebe>                                              {[2, '(A6+0x8)']|[«10»]|[2, '(A6-0x7)']|[#0]}
            <POP 211e8-211ec StackAdj>                       Δ+16               {}
            <Call 0x211ec 0x20b9a>                                              {}
            <MI 211f0  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 211f2  CLR.B   -(A7)>                        Δ-2                {[2, '(A6+0x8)']|[#0]}
            <Pointer.fp 0x211f4 <LVAR -0x019 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[#0]|[@@-25]}
            <Pointer.fp 0x211f8 <LVAR -0x007 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[#0]|[@@-25]|[@@-7]}
            <Call 0x211fc 0x21db2>                                              {[2, '(A6+0x8)']|[#0]|[@@-25]|[@@-7]}
            <POP 21202-21204 StackAdj>                       Δ+10               {[2, '(A6+0x8)']}
            <MI 21204  MOVE.B  (A6-0x22),(A7)>                                  {[-2-]}
            <MI 21206  MOVE.B  (A6-0x19),-(A7)>              Δ-2                {[-2-]|[2, '(A6-0x19)']}
            <POP 2120a-2120c StackAdj>                       Δ-2                {[-2-]|[2, '(A6-0x19)']|[-2-]}
            <Pointer.sp 0x2120c 4>                           Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]}
            <Const 0x21210 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]}
            <Const 0x21214 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]|[##0]}
            <Pointer.sp 0x21218 14>                          Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]}
            <Const 0x2121c 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]}
            <Const 0x21220 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]|[##0]}
            <Call 0x21224 0x104a8>                                              {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]|[##0]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 2122a-2122e StackAdj>                       Δ+20               {[-2-]|[2, '(A6-0x19)']|[-2-]|[^^4]}
            <MI 2122e  MOVE.B  (A6-0x21),(A7)>                                  {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]}
            <MI 21232  MOVE.B  (A6-0x20),(A7+0x1)>                              {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]}
            <MI 21238  MOVE.B  (A6-0x1f),(A7+0x2)>                              {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]}
            <MI 2123e  MOVE.B  (A6-0x1e),(A7+0x3)>                              {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]}
            <MI 21244  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']}
            <POP 21248-2124a StackAdj>                       Δ-2                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]}
            <Pointer.sp 0x2124a 6>                           Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]}
            <Const 0x2124e 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]}
            <Const 0x21252 0x3.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]|[##3]}
            <Pointer.sp 0x21256 14>                          Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]|[##3]|[^^14]}
            <Const 0x2125a 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]|[##3]|[^^14]|[##0]}
            <Const 0x2125e 0x3.4>                            Δ-4                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]|[##3]|[^^14]|[##0]|[##3]}
            <Call 0x21262 0x104a8>                                              {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]|[^^6]|[##0]|[##3]|[^^14]|[##0]|[##3]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 21268-2126a StackAdj>                       Δ+24               {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]}
            <MI 2126a  MOVE.B  (A7+0xa),D0>                                     {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']|[-2-]}
            <MI 2126e  AND.B   (A7)+,D0>                     Δ+2                {[-2-]|[2, '(A6-0x19)']|[-2-]|[-4-]|[4, '(A6-0x18)']}
            <POP 21270-21272 StackAdj>                       Δ+10               {[-2-]|[2, '(A6-0x19)']}
            <MI 21272  MOVE.B  (A6-0x1d),(A7)>                                  {[-4-]}
            <MI 21276  MOVE.B  (A6-0x1c),(A7+0x1)>                              {[-4-]}
            <MI 2127c  MOVE.B  (A6-0x1b),(A7+0x2)>                              {[-4-]}
            <POP 21282-21284 StackAdj>                       Δ-4                {[-8-]}
            <MI 21284  MOVE.B  (A6-0x14),(A7)>                                  {[-8-]}
            <MI 21288  MOVE.B  (A6-0x13),(A7+0x1)>                              {[-8-]}
            <MI 2128e  MOVE.B  (A6-0x12),(A7+0x2)>                              {[-8-]}
            <POP 21294-21296 StackAdj>                       Δ-2                {[-10-]}
            <Pointer.sp 0x21296 6>                           Δ-4                {[-10-]|[^^6]}
            <Const 0x2129a 0x0.4>                            Δ-4                {[-10-]|[^^6]|[##0]}
            <Const 0x2129e 0x2.4>                            Δ-4                {[-10-]|[^^6]|[##0]|[##2]}
            <Pointer.sp 0x212a2 14>                          Δ-4                {[-10-]|[^^6]|[##0]|[##2]|[^^14]}
            <Const 0x212a6 0x0.4>                            Δ-4                {[-10-]|[^^6]|[##0]|[##2]|[^^14]|[##0]}
            <Const 0x212aa 0x2.4>                            Δ-4                {[-10-]|[^^6]|[##0]|[##2]|[^^14]|[##0]|[##2]}
            <Call 0x212ae 0x104a8>                                              {[-10-]|[^^6]|[##0]|[##2]|[^^14]|[##0]|[##2]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 212b4-212b6 StackAdj>                       Δ+24               {[-10-]}
            <MI 212b6  AND.B   (A7)+,D0>                     Δ+2                {[-8-]}
            <POP 212b8-212ba StackAdj>                       Δ+6                {[-2-]}
            <MI 212ba  MOVE.B  (A6-0x1a),(A7)>                                  {[-2-]}
            <MI 212be  MOVE.B  (A6-0x11),-(A7)>              Δ-2                {[-2-]|[2, '(A6-0x11)']}
            <POP 212c2-212c4 StackAdj>                       Δ-2                {[-2-]|[2, '(A6-0x11)']|[-2-]}
            <Pointer.sp 0x212c4 4>                           Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]}
            <Const 0x212c8 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]}
            <Const 0x212cc 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]|[##0]}
            <Pointer.sp 0x212d0 14>                          Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]}
            <Const 0x212d4 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]}
            <Const 0x212d8 0x0.4>                            Δ-4                {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]|[##0]}
            <Call 0x212dc 0x104a8>                                              {[-2-]|[2, '(A6-0x11)']|[-2-]|[^^4]|[##0]|[##0]|[^^14]|[##0]|[##0]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 212e2-212e4 StackAdj>                       Δ+24               {[-2-]|[2, '(A6-0x11)']|[-2-]}
            <MI 212e4  AND.B   (A7)+,D0>                     Δ+2                {[-2-]|[2, '(A6-0x11)']}
            <POP 212e6-212e8 StackAdj>                       Δ+4                {}
            <MI 212e8  EXTB.W  D0>                                              {}
            <POP 0x212ea LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 212ee  MOVE.B  D0,D7>                                           {}
            <MI 212f0  MOVE.B  D7,(A6+0xa)>                                     {}
        <POP 212f4-212fc Epilogue>                           Σ0         

0x212fc


@ 212fc
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 1(r)>
    <POP 212fc-213e0 Body>                                              
        <POP 212fc-21312 Prologue>                           Σ0         ↓
        <POP 21312-21318 RegCacheLoad>                       Σ0         ↓
        <POP 21318-21330 Naked>                              Σ0         →0x21342 →0x21356 →0x21364 →0x21372 →0x21380 →0x2138e →0x213a0 →0x213b2 →0x213c4
            <MI 21318  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2131c  EXTB.W  D0>                                              {}
            <POP 0x2131e LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 21326  ADD.W   D0,D0>                                           {}
            <MI 21328  SWITCH  D0.W>                                            {}
        <POP 21342-21356 Naked>                              Σ0         →0x213d8 ←0x21318
            <POP 21342-21344 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21344 0x20bd2>                                              {[-2-]}
            <MI 21348  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2134a  EXTB.W  D0>                                              {}
            <POP 0x2134c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2134e  MOVE.B  D0,(A6+0xa)>                                     {}
            <MI 21352  BRA     0x213d8>                                         {}
        <POP 21356-21364 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 21356-21358 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21358 0x20c9a>                                              {[-2-]}
            <MI 2135c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2135e  EXTB.W  D0>                                              {}
            <POP 0x21360 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21362  BRA     0x213d4>                                         {}
        <POP 21364-21372 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 21364-21366 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21366 0x20d70>                                              {[-2-]}
            <MI 2136a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2136c  EXTB.W  D0>                                              {}
            <POP 0x2136e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21370  BRA     0x213d4>                                         {}
        <POP 21372-21380 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 21372-21374 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21374 0x20e3e>                                              {[-2-]}
            <MI 21378  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2137a  EXTB.W  D0>                                              {}
            <POP 0x2137c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2137e  BRA     0x213d4>                                         {}
        <POP 21380-2138e Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 21380-21382 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21382 0x20ffa>                                              {[-2-]}
            <MI 21386  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21388  EXTB.W  D0>                                              {}
            <POP 0x2138a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2138c  BRA     0x213d4>                                         {}
        <POP 2138e-213a0 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 2138e-21390 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21390 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x21394 0x210c8>                                              {[-2-]|[#12]}
            <POP 21396-21398 StackAdj>                       Δ+2                {[-2-]}
            <MI 21398  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2139a  EXTB.W  D0>                                              {}
            <POP 0x2139c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2139e  BRA     0x213d4>                                         {}
        <POP 213a0-213b2 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 213a0-213a2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x213a2 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x213a6 0x210c8>                                              {[-2-]|[#13]}
            <POP 213a8-213aa StackAdj>                       Δ+2                {[-2-]}
            <MI 213aa  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 213ac  EXTB.W  D0>                                              {}
            <POP 0x213ae LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 213b0  BRA     0x213d4>                                         {}
        <POP 213b2-213c4 Naked>                              Σ0         →0x213d4 ←0x21318
            <POP 213b2-213b4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x213b4 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x213b8 0x210c8>                                              {[-2-]|[#14]}
            <POP 213ba-213bc StackAdj>                       Δ+2                {[-2-]}
            <MI 213bc  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 213be  EXTB.W  D0>                                              {}
            <POP 0x213c0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 213c2  BRA     0x213d4>                                         {}
        <POP 213c4-213d4 Naked>                              Σ0         ↓ ←0x21318
            <POP 213c4-213c6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x213c6 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x213ca 0x210c8>                                              {[-2-]|[#15]}
            <POP 213cc-213ce StackAdj>                       Δ+2                {[-2-]}
            <MI 213ce  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 213d0  EXTB.W  D0>                                              {}
            <POP 0x213d2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
        <POP 213d4-213d8 Naked>                              Σ0         ↓ ←0x21356 ←0x21364 ←0x21372 ←0x21380 ←0x2138e ←0x213a0 ←0x213b2
            <MI 213d4  MOVE.B  D0,(A6+0xa)>                                     {}
        <POP 213d8-213e0 Epilogue>                           Σ0         ←0x21342

0x213e0


@ 213e0
        <LVAR  0x008 1(r)>
    <POP 213e0-214bc Body>                                              
        <POP 213e0-213f6 Prologue>                           Σ0         ↓
        <POP 213f6-21406 RegCacheLoad>                       Σ0         ↓
        <POP 21406-21410 Naked>                              Σ0         ↓ →0x2145e
            <MI 21406  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2140a  CMPI.B  #0x05,D0>                                        {}
            <MI 2140e  BNE     0x2145e>                                         {}
        <POP 21410-21412 Naked>                              Σ0         ↓
            <MI 21410  MOVEQ.L #0x00,D7>                                        {}
        <POP 21412-2142c Naked>                              Σ0         ↓ →0x21456 ←0x21456
            <POP 21412-21414 StackAdj>                       Δ-2                {[-2-]}
            <MI 21414  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 21416  EXTB.W  D0>                                              {[-2-]}
            <MI 21418  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 2141c  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x21420 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21426-21428 StackAdj>                       Δ+2                {[-2-]}
            <MI 21428  TST.B   (A7)+>                        Δ+2                {}
            <MI 2142a  BEQ     0x21456>                                         {}
        <POP 2142c-2143a Naked>                              Σ0         ↓ →0x21448
            <POP 2142c-2142e StackAdj>                       Δ-2                {[-2-]}
            <MI 2142e  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21430 0x212fc>                                              {[-2-]|[2, 'D7']}
            <POP 21434-21436 StackAdj>                       Δ+2                {[-2-]}
            <MI 21436  TST.B   (A7)+>                        Δ+2                {}
            <MI 21438  BNE     0x21448>                                         {}
        <POP 2143a-21448 Naked>                              Σ0         →0x21456
            <MI 2143a  MOVE.B  D7,D0>                                           {}
            <MI 2143c  EXTB.W  D0>                                              {}
            <MI 2143e  ASL.W   #0x1,D0>                                         {}
            <MI 21440  LEA.L   0x2208e,A0>                                      {}
            <MI 21442  MOVE.B  #0x01,(A0+D0.W+#0x43)>                           {}
            <MI 21446  BRA     0x21456>                                         {}
        <POP 21448-21456 Naked>                              Σ0         ↓ ←0x2142c
            <MI 21448  MOVE.B  D7,D0>                                           {}
            <MI 2144a  EXTB.W  D0>                                              {}
            <MI 2144c  ASL.W   #0x1,D0>                                         {}
            <MI 2144e  LEA.L   0x2208e,A0>                                      {}
            <MI 21450  CLR.B   (A0+D0.W+#0x43)>                                 {}
            <MI 21454  CLR.B   0x220b5>                                         {}
        <POP 21456-2145c Naked>                              Σ0         ↓ →0x21412 ←0x21412 ←0x2143a
            <MI 21456  ADDQ.B  #0x1,D7>                                         {}
            <MI 21458  CMP.B   #0x08,D7>                                        {}
            <MI 2145a  BLE     0x21412>                                         {}
        <POP 2145c-2145e Naked>                              Σ0         →0x214b4
            <MI 2145c  BRA     0x214b4>                                         {}
        <POP 2145e-21480 Naked>                              Σ0         ↓ →0x214b4 ←0x21406
            <POP 2145e-21460 StackAdj>                       Δ-2                {[-2-]}
            <MI 21460  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21462 0x2050c>                                              {[-2-]|[2, 'D0']}
            <POP 21466-21468 StackAdj>                       Δ+2                {[-2-]}
            <MI 21468  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <MI 2146a  EXTB.W  D1>                                              {}
            <POP 0x2146c LimitCheck 0x0 ≤ D1 ≤ 0x8>                             {}
            <MI 2146e  MOVE.B  D1,D7>                                           {}
            <POP 21470-21472 StackAdj>                       Δ-2                {[-2-]}
            <MI 21472  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21474 0x104c0>                                              {[-2-]|[2, 'D0']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2147a-2147c StackAdj>                       Δ+2                {[-2-]}
            <MI 2147c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2147e  BEQ     0x214b4>                                         {}
        <POP 21480-21494 Naked>                              Σ0         ↓ →0x214a4
            <POP 21480-21482 StackAdj>                       Δ-2                {[-2-]}
            <MI 21482  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 21484  EXTB.W  D0>                                              {[-2-]}
            <POP 0x21486 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {[-2-]}
            <MI 21488  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x2148a 0x212fc>                                              {[-2-]|[2, 'D0']}
            <POP 2148e-21490 StackAdj>                       Δ+2                {[-2-]}
            <MI 21490  TST.B   (A7)+>                        Δ+2                {}
            <MI 21492  BNE     0x214a4>                                         {}
        <POP 21494-214a4 Naked>                              Σ0         →0x214b4
            <MI 21494  MOVE.B  D7,D0>                                           {}
            <MI 21496  EXTB.W  D0>                                              {}
            <POP 0x21498 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 2149a  ASL.W   #0x1,D0>                                         {}
            <MI 2149c  LEA.L   0x2208e,A0>                                      {}
            <MI 2149e  MOVE.B  #0x01,(A0+D0.W+#0x43)>                           {}
            <MI 214a2  BRA     0x214b4>                                         {}
        <POP 214a4-214b4 Naked>                              Σ0         ↓ ←0x21480
            <MI 214a4  MOVE.B  D7,D0>                                           {}
            <MI 214a6  EXTB.W  D0>                                              {}
            <POP 0x214a8 LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 214aa  ASL.W   #0x1,D0>                                         {}
            <MI 214ac  LEA.L   0x2208e,A0>                                      {}
            <MI 214ae  CLR.B   (A0+D0.W+#0x43)>                                 {}
            <MI 214b2  CLR.B   0x220b5>                                         {}
        <POP 214b4-214bc Epilogue>                           Σ0         ←0x2145c ←0x2145e ←0x21494

0x214bc


@ 214bc
        <LVAR  0x008 1(r)>
    <POP 214bc-21550 Body>                                              
        <POP 214bc-214d2 Prologue>                           Σ0         ↓
        <POP 214d2-214d8 RegCacheLoad>                       Σ0         ↓
        <POP 214d8-214e2 Naked>                              Σ0         ↓ →0x21548
            <MI 214d8  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 214dc  CMPI.B  #0x05,D0>                                        {}
            <MI 214e0  BEQ     0x21548>                                         {}
        <POP 214e2-214e4 Naked>                              Σ0         ↓
            <MI 214e2  MOVEQ.L #0x00,D7>                                        {}
        <POP 214e4-214fe Naked>                              Σ0         ↓ →0x21540 ←0x21540
            <POP 214e4-214e6 StackAdj>                       Δ-2                {[-2-]}
            <MI 214e6  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 214e8  EXTB.W  D0>                                              {[-2-]}
            <MI 214ea  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 214ee  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x214f2 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 214f8-214fa StackAdj>                       Δ+2                {[-2-]}
            <MI 214fa  TST.B   (A7)+>                        Δ+2                {}
            <MI 214fc  BEQ     0x21540>                                         {}
        <POP 214fe-21510 Naked>                              Σ0         ↓ →0x21540
            <MI 214fe  MOVE.B  D7,D0>                                           {}
            <MI 21500  EXTB.W  D0>                                              {}
            <MI 21502  LEA.L   0x201d6,A0>                                      {}
            <MI 21506  MOVE.B  (A0+D0.W),D0>                                    {}
            <MI 2150a  CMP.B   (A6+0x8),D0>                                     {}
            <MI 2150e  BEQ     0x21540>                                         {}
        <POP 21510-2151e Naked>                              Σ0         ↓ →0x2152e
            <POP 21510-21512 StackAdj>                       Δ-2                {[-2-]}
            <MI 21512  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21514 0x212fc>                                              {[-2-]|[2, 'D7']}
            <POP 21518-2151a StackAdj>                       Δ+2                {[-2-]}
            <MI 2151a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2151c  BEQ     0x2152e>                                         {}
        <POP 2151e-2152e Naked>                              Σ0         →0x21540
            <MI 2151e  MOVE.B  D7,D0>                                           {}
            <MI 21520  EXTB.W  D0>                                              {}
            <MI 21522  ASL.W   #0x1,D0>                                         {}
            <MI 21524  LEA.L   0x2208e,A0>                                      {}
            <MI 21526  MOVE.B  #0x01,(A0+D0.W+#0x43)>                           {}
            <MI 2152c  BRA     0x21540>                                         {}
        <POP 2152e-21540 Naked>                              Σ0         ↓ ←0x21510
            <MI 2152e  MOVE.B  D7,D0>                                           {}
            <MI 21530  EXTB.W  D0>                                              {}
            <MI 21532  ASL.W   #0x1,D0>                                         {}
            <MI 21534  LEA.L   0x2208e,A0>                                      {}
            <MI 21536  CLR.B   (A0+D0.W+#0x43)>                                 {}
            <MI 2153a  CLR.B   0x220b5>                                         {}
        <POP 21540-21548 Naked>                              Σ0         ↓ →0x214e4 ←0x214e4 ←0x214fe ←0x2151e
            <MI 21540  ADDQ.B  #0x1,D7>                                         {}
            <MI 21542  CMPI.B  #0x08,D7>                                        {}
            <MI 21546  BLE     0x214e4>                                         {}
        <POP 21548-21550 Epilogue>                           Σ0         ←0x214d8

0x21550


@ 21550
        <LVAR  0x008 1(w)>
    <POP 21550-215a8 Body>                                              
        <POP 21550-21566 Prologue>                           Σ0         ↓
        <POP 21566-2156a Naked>                              Σ0         ↓
            <MI 21566  MOVEQ.L #0x01,D7>                                        {}
            <MI 21568  MOVEQ.L #0x00,D6>                                        {}
        <POP 2156a-21584 Naked>                              Σ0         ↓ →0x21594 ←0x21594
            <POP 2156a-2156c StackAdj>                       Δ-2                {[-2-]}
            <MI 2156c  MOVE.B  D6,D0>                                           {[-2-]}
            <MI 2156e  EXTB.W  D0>                                              {[-2-]}
            <MI 21570  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 21574  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x21578 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2157e-21580 StackAdj>                       Δ+2                {[-2-]}
            <MI 21580  TST.B   (A7)+>                        Δ+2                {}
            <MI 21582  BEQ     0x21594>                                         {}
        <POP 21584-21592 Naked>                              Σ0         ↓ →0x21594
            <POP 21584-21586 StackAdj>                       Δ-2                {[-2-]}
            <MI 21586  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x21588 0x212fc>                                              {[-2-]|[2, 'D6']}
            <POP 2158c-2158e StackAdj>                       Δ+2                {[-2-]}
            <MI 2158e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21590  BNE     0x21594>                                         {}
        <POP 21592-21594 Naked>                              Σ0         ↓
            <MI 21592  MOVEQ.L #0x00,D7>                                        {}
        <POP 21594-2159c Naked>                              Σ0         ↓ →0x2156a ←0x2156a ←0x21584
            <MI 21594  ADDQ.B  #0x1,D6>                                         {}
            <MI 21596  CMPI.B  #0x08,D6>                                        {}
            <MI 2159a  BLE     0x2156a>                                         {}
        <POP 2159c-215a0 Naked>                              Σ0         ↓
            <MI 2159c  MOVE.B  D7,(A6+0x8)>                                     {}
        <POP 215a0-215a8 Epilogue>                           Σ0         

0x215a8


@ 215a8
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @ 1(r)>
    <POP 215a8-21704 Body>                                              
        <POP 215a8-215be Prologue>                           Σ0         ↓
        <POP 215be-215dc RegCacheLoad>                       Σ0         ↓
        <POP 215dc-21614 Naked>                              Σ0         →0x2161c →0x21620 →0x21650 →0x2165a
            <MI 215dc  MOVEQ.L #0x00,D7>                                        {}
            <Blob 0x215de [18] 0x220bf>                      Δ-18               {[«18»]}
            <Pointer.fp 0x215f0 <LVAR -0x003 @ 1(r)>>        Δ-4                {[«18»]|[@@-3]}
            <Pointer.fp 0x215f4 <LVAR -0x002 @ 1(r)>>        Δ-4                {[«18»]|[@@-3]|[@@-2]}
            <Call 0x215f8 0x207a0>                                              {[«18»]|[@@-3]|[@@-2]}
            <POP 215fc-215fe StackAdj>                       Δ+26               {}
            <MI 215fe  MOVE.B  (A6-0x3),D0>                                     {}
            <MI 21602  EXTB.W  D0>                                              {}
            <POP 0x21604 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2160a  ADD.W   D0,D0>                                           {}
            <MI 2160c  SWITCH  D0.W>                                            {}
        <POP 2161c-21620 Naked>                              Σ0         →0x21660 ←0x215dc
            <MI 2161c  MOVEQ.L #0x01,D7>                                        {}
            <MI 2161e  BRA     0x21660>                                         {}
        <POP 21620-2163c Naked>                              Σ0         ↓ →0x2164e ←0x215dc
            <POP 21620-21622 StackAdj>                       Δ-2                {[-2-]}
            <MI 21622  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[-2-]|[2, '(A6-0x2)']}
            <Call 0x21626 0x20324>                                              {[-2-]|[2, '(A6-0x2)']}
            <POP 2162a-2162c StackAdj>                       Δ+2                {[-2-]}
            <MI 2162c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2162e  EXTB.W  D0>                                              {}
            <POP 0x21630 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 21634  MOVE.B  D0,0x220a2>                                      {}
            <MI 21636  MOVE.B  #0x03,0x220aa>                                   {}
            <MI 21638  CMP.B   #0x05,D0>                                        {}
            <MI 2163a  BNE     0x2164e>                                         {}
        <POP 2163c-21646 Naked>                              Σ0         ↓ →0x2164e
            <POP 2163c-2163e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2163e 0x21550>                                              {[-2-]}
            <MI 21642  TST.B   (A7)+>                        Δ+2                {}
            <MI 21644  BEQ     0x2164e>                                         {}
        <POP 21646-2164e Naked>                              Σ0         ↓
            <MI 21646  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 21648  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 2164a  MOVE.B  #0x19,0x220aa>                                   {}
        <POP 2164e-21650 Naked>                              Σ0         →0x21660 ←0x21620 ←0x2163c
            <MI 2164e  BRA     0x21660>                                         {}
        <POP 21650-2165a Naked>                              Σ0         →0x21660 ←0x215dc
            <MI 21650  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 21652  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 21654  MOVE.B  #0x04,0x220aa>                                   {}
            <MI 21658  BRA     0x21660>                                         {}
        <POP 2165a-21660 Naked>                              Σ0         ↓ ←0x215dc
            <MI 2165a  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 2165c  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 2165e  MOVE.B  #0x05,0x220aa>                                   {}
        <POP 21660-21664 Naked>                              Σ0         ↓ →0x2166c ←0x2161c ←0x2164e ←0x21650
            <MI 21660  TST.B   D7>                                              {}
            <MI 21662  BNE     0x2166c>                                         {}
        <POP 21664-2166c Naked>                              Σ0         ↓
            <MI 21664  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x21666 0x20410>                                              {[#0]}
            <POP 2166a-2166c StackAdj>                       Δ+2                {}
        <POP 2166c-216a2 Naked>                              Σ0         →0x216aa →0x216b0 →0x216e2 →0x216ec ←0x21660
            <Blob 0x2166c [18] 0x220bf>                      Δ-18               {[«18»]}
            <Pointer.fp 0x2167e <LVAR -0x003 @ 1(r)>>        Δ-4                {[«18»]|[@@-3]}
            <Pointer.fp 0x21682 <LVAR -0x002 @ 1(r)>>        Δ-4                {[«18»]|[@@-3]|[@@-2]}
            <Call 0x21686 0x20800>                                              {[«18»]|[@@-3]|[@@-2]}
            <POP 2168a-2168c StackAdj>                       Δ+26               {}
            <MI 2168c  MOVE.B  (A6-0x3),D0>                                     {}
            <MI 21690  EXTB.W  D0>                                              {}
            <POP 0x21692 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21698  ADD.W   D0,D0>                                           {}
            <MI 2169a  SWITCH  D0.W>                                            {}
        <POP 216aa-216b0 Naked>                              Σ0         →0x216f4 ←0x2166c
            <MI 216aa  MOVE.B  #0x02,0x220aa>                                   {}
            <MI 216ae  BRA     0x216f4>                                         {}
        <POP 216b0-216ce Naked>                              Σ0         ↓ →0x216e0 ←0x2166c
            <POP 216b0-216b2 StackAdj>                       Δ-2                {[-2-]}
            <MI 216b2  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[-2-]|[2, '(A6-0x2)']}
            <Call 0x216b6 0x20324>                                              {[-2-]|[2, '(A6-0x2)']}
            <POP 216ba-216bc StackAdj>                       Δ+2                {[-2-]}
            <MI 216bc  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 216be  EXTB.W  D0>                                              {}
            <POP 0x216c0 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 216c4  MOVE.B  D0,0x220a2>                                      {}
            <MI 216c6  MOVE.B  #0x06,0x220aa>                                   {}
            <MI 216ca  CMP.B   #0x05,D0>                                        {}
            <MI 216cc  BNE     0x216e0>                                         {}
        <POP 216ce-216d8 Naked>                              Σ0         ↓ →0x216e0
            <POP 216ce-216d0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x216d0 0x21550>                                              {[-2-]}
            <MI 216d4  TST.B   (A7)+>                        Δ+2                {}
            <MI 216d6  BEQ     0x216e0>                                         {}
        <POP 216d8-216e0 Naked>                              Σ0         ↓
            <MI 216d8  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 216da  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 216dc  MOVE.B  #0x19,0x220aa>                                   {}
        <POP 216e0-216e2 Naked>                              Σ0         →0x216f4 ←0x216b0 ←0x216ce
            <MI 216e0  BRA     0x216f4>                                         {}
        <POP 216e2-216ec Naked>                              Σ0         →0x216f4 ←0x2166c
            <MI 216e2  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 216e4  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 216e6  MOVE.B  #0x07,0x220aa>                                   {}
            <MI 216ea  BRA     0x216f4>                                         {}
        <POP 216ec-216f4 Naked>                              Σ0         ↓ ←0x2166c
            <MI 216ec  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 216ee  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 216f0  MOVE.B  #0x08,0x220aa>                                   {}
        <POP 216f4-216fc Naked>                              Σ0         ↓ ←0x216aa ←0x216e0 ←0x216e2
            <MI 216f4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x216f6 0x20410>                                              {[#0]}
            <POP 216fa-216fc StackAdj>                       Δ+2                {}
        <POP 216fc-21704 Epilogue>                           Σ0         

0x21704


@ 21704
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 21704-217b6 Body>                                              
        <POP 21704-2171a Prologue>                           Σ0         ↓
        <POP 2171a-21732 RegCacheLoad>                       Σ0         ↓
        <POP 21732-2176c Naked>                              Σ0         →0x21774 →0x2177a →0x21796 →0x217a0
            <Blob 0x21732 [18] 0x220d1>                      Δ-18               {[«18»]}
            <Pointer.fp 0x21744 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«18»]|[@@-4]}
            <Pointer.fp 0x21748 <LVAR -0x003 @ 1(r)>>        Δ-4                {[«18»]|[@@-4]|[@@-3]}
            <Call 0x2174c 0x207a0>                                              {[«18»]|[@@-4]|[@@-3]}
            <POP 21750-21754 StackAdj>                       Δ+26               {}
            <MI 21754  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21758  EXTB.W  D0>                                              {}
            <POP 0x2175a LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21762  ADD.W   D0,D0>                                           {}
            <MI 21764  SWITCH  D0.W>                                            {}
        <POP 21774-2177a Naked>                              Σ0         →0x217a6 ←0x21732
            <MI 21774  MOVE.B  #0x02,0x220aa>                                   {}
            <MI 21778  BRA     0x217a6>                                         {}
        <POP 2177a-21796 Naked>                              Σ0         →0x217a6 ←0x21732
            <POP 2177a-2177c StackAdj>                       Δ-2                {[-2-]}
            <MI 2177c  MOVE.B  (A6-0x3),-(A7)>               Δ-2                {[-2-]|[2, '(A6-0x3)']}
            <Call 0x21780 0x20324>                                              {[-2-]|[2, '(A6-0x3)']}
            <POP 21784-21786 StackAdj>                       Δ+2                {[-2-]}
            <MI 21786  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21788  EXTB.W  D0>                                              {}
            <POP 0x2178a LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 2178e  MOVE.B  D0,0x220a2>                                      {}
            <MI 21790  MOVE.B  #0x10,0x220aa>                                   {}
            <MI 21794  BRA     0x217a6>                                         {}
        <POP 21796-217a0 Naked>                              Σ0         →0x217a6 ←0x21732
            <MI 21796  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 21798  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 2179a  MOVE.B  #0x11,0x220aa>                                   {}
            <MI 2179e  BRA     0x217a6>                                         {}
        <POP 217a0-217a6 Naked>                              Σ0         ↓ ←0x21732
            <MI 217a0  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 217a2  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 217a4  MOVE.B  #0x12,0x220aa>                                   {}
        <POP 217a6-217ae Naked>                              Σ0         ↓ ←0x21774 ←0x2177a ←0x21796
            <MI 217a6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x217a8 0x20410>                                              {[#0]}
            <POP 217ac-217ae StackAdj>                       Δ+2                {}
        <POP 217ae-217b6 Epilogue>                           Σ0         

0x217b6


@ 217b6
        <LVAR  0x008 1(rw)>
        <LVAR -0x001 @>
        <LVAR -0x003 @>
        <LVAR -0x004 @>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x007 @>
        <LVAR -0x008 @>
    <POP 217b6-2180a Body>                                              
        <POP 217b6-217cc Prologue>                           Σ0         ↓
        <POP 217cc-217fe Naked>                              Σ0         ↓ →0x21802
            <Pointer.fp 0x217cc <LVAR -0x008 @>>             Δ-4                {[@@-8]}
            <Pointer.fp 0x217d0 <LVAR -0x007 @>>             Δ-4                {[@@-8]|[@@-7]}
            <Pointer.fp 0x217d4 <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-8]|[@@-7]|[@@-5]}
            <Pointer.fp 0x217d8 <LVAR -0x004 @>>             Δ-4                {[@@-8]|[@@-7]|[@@-5]|[@@-4]}
            <Pointer.fp 0x217dc <LVAR -0x003 @>>             Δ-4                {[@@-8]|[@@-7]|[@@-5]|[@@-4]|[@@-3]}
            <Pointer.fp 0x217e0 <LVAR -0x001 @>>             Δ-4                {[@@-8]|[@@-7]|[@@-5]|[@@-4]|[@@-3]|[@@-1]}
            <Call 0x217e4 0x21ccc>                                              {[@@-8]|[@@-7]|[@@-5]|[@@-4]|[@@-3]|[@@-1]}
                exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <POP 217ea-217ee StackAdj>                       Δ+24               {}
            <MI 217ee  CLR.B   (A6+0x8)>                                        {}
            <MI 217f2  CLR.L   D0>                                              {}
            <MI 217f4  MOVE.B  (A6-0x5),D0>                                     {}
            <MI 217f8  CMPI.W  #0x0001,D0>                                      {}
            <MI 217fc  BNE     0x21802>                                         {}
        <POP 217fe-21802 Naked>                              Σ0         ↓
            <MI 217fe  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 21802-2180a Epilogue>                           Σ0         ←0x217cc

0x2180a


@ 2180a
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 2180a-21986 Body>                                              
        <POP 2180a-21820 Prologue>                           Σ0         ↓
        <POP 21820-2183a RegCacheLoad>                       Σ0         ↓
        <POP 2183a-21844 Naked>                              Σ0         ↓
            <MI 2183a  MOVE.B  #0x01,0x220e4>                                   {}
            <MI 21840  MOVE.B  #0x03,0x220e5>                                   {}
            <MI 21842  MOVEQ.L #0x00,D7>                                        {}
        <POP 21844-2185e Naked>                              Σ0         ↓ →0x21884 ←0x21884
            <POP 21844-21846 StackAdj>                       Δ-2                {[-2-]}
            <MI 21846  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 21848  EXTB.W  D0>                                              {[-2-]}
            <MI 2184a  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 2184e  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D0.W)']}
            <Call 0x21852 0x104c0>                                              {[-2-]|[2, '(A0+D0.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21858-2185a StackAdj>                       Δ+2                {[-2-]}
            <MI 2185a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2185c  BEQ     0x21884>                                         {}
        <POP 2185e-21862 Naked>                              Σ0         ↓ →0x21884
            <MI 2185e  CMP.B   #0x04,D7>                                        {}
            <MI 21860  BEQ     0x21884>                                         {}
        <POP 21862-21884 Naked>                              Σ0         ↓
            <MI 21862  MOVE.B  D7,D0>                                           {}
            <MI 21864  EXTB.W  D0>                                              {}
            <MI 21866  MOVE.W  D0,D1>                                           {}
            <MI 21868  ASL.W   #0x1,D1>                                         {}
            <MI 2186a  LEA.L   0x2208e,A0>                                      {}
            <POP 21870-21872 StackAdj>                       Δ-2                {[-2-]}
            <MI 21872  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x21874 0x212fc>                                              {[-2-]|[2, 'D0']}
            <POP 21878-2187a StackAdj>                       Δ+2                {[-2-]}
            <MI 2187a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2187c  EXTB.W  D0>                                              {}
            <POP 0x2187e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21880  MOVE.B  D0,(A0+D1.W+#0x44)>                              {}
        <POP 21884-2188c Naked>                              Σ0         ↓ →0x21844 ←0x21844 ←0x2185e
            <MI 21884  ADDQ.B  #0x1,D7>                                         {}
            <MI 21886  CMPI.B  #0x08,D7>                                        {}
            <MI 2188a  BLE     0x21844>                                         {}
        <POP 2188c-218a0 Naked>                              Σ0         ↓ →0x218b8
            <Const 0x2188c 0x3.2>                            Δ-2                {[#3]}
            <Const 0x2188e 0x2.2>                            Δ-2                {[#3]|[#2]}
            <Call 0x21890 0x1048a>                                              {[#3]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21896-21898 StackAdj>                       Δ+2                {[#3]}
            <Call 0x21898 0x217b6>                                              {[#3]}
            <MI 2189c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2189e  BNE     0x218b8>                                         {}
        <POP 218a0-218b8 Naked>                              Σ0         ↓
            <MI 218a0  MOVE.B  #0x02,0x220e5>                                   {}
            <POP 218a2-218a4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x218a4 0x4.2>                            Δ-2                {[-2-]|[#4]}
            <Call 0x218a6 0x212fc>                                              {[-2-]|[#4]}
            <POP 218aa-218ac StackAdj>                       Δ+2                {[-2-]}
            <MI 218ac  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 218ae  EXTB.W  D0>                                              {}
            <POP 0x218b0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 218b2  MOVE.B  D0,0x220da>                                      {}
        <POP 218b8-218f4 Naked>                              Σ0         →0x218fc →0x21900 →0x21944 →0x21956 ←0x2188c
            <Blob 0x218b8 [18] 0x220d1>                      Δ-18               {[«18»]}
            <Pointer.fp 0x218cc <LVAR -0x002 @ 1(r)>>        Δ-4                {[«18»]|[@@-2]}
            <Pointer.fp 0x218d0 <LVAR -0x001 @ 1(r)>>        Δ-4                {[«18»]|[@@-2]|[@@-1]}
            <Call 0x218d4 0x20800>                                              {[«18»]|[@@-2]|[@@-1]}
            <POP 218d8-218dc StackAdj>                       Δ+26               {}
            <MI 218dc  MOVEQ.L #0x00,D6>                                        {}
            <MI 218de  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 218e2  EXTB.W  D0>                                              {}
            <POP 0x218e4 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 218ea  ADD.W   D0,D0>                                           {}
            <MI 218ec  SWITCH  D0.W>                                            {}
        <POP 218fc-21900 Naked>                              Σ0         →0x21966 ←0x218b8
            <MI 218fc  MOVEQ.L #0x01,D6>                                        {}
            <MI 218fe  BRA     0x21966>                                         {}
        <POP 21900-21908 Naked>                              Σ0         ↓ →0x2192a ←0x218b8
            <MI 21900  MOVE.B  (A6-0x1),D0>                                     {}
            <MI 21904  CMP.B   #0x04,D0>                                        {}
            <MI 21906  BNE     0x2192a>                                         {}
        <POP 21908-21916 Naked>                              Σ0         ↓ →0x21920
            <POP 21908-2190a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2190a 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Call 0x2190c 0x212fc>                                              {[-2-]|[#2]}
            <POP 21910-21912 StackAdj>                       Δ+2                {[-2-]}
            <MI 21912  TST.B   (A7)+>                        Δ+2                {}
            <MI 21914  BEQ     0x21920>                                         {}
        <POP 21916-21920 Naked>                              Σ0         →0x21928
            <MI 21916  MOVE.B  #0x06,0x220a2>                                   {}
            <MI 2191a  MOVE.B  #0x13,0x220aa>                                   {}
            <MI 2191e  BRA     0x21928>                                         {}
        <POP 21920-21928 Naked>                              Σ0         ↓ ←0x21908
            <MI 21920  MOVE.B  #0x05,0x220a2>                                   {}
            <MI 21924  MOVE.B  #0x14,0x220aa>                                   {}
        <POP 21928-2192a Naked>                              Σ0         →0x21942 ←0x21916
            <MI 21928  BRA     0x21942>                                         {}
        <POP 2192a-21942 Naked>                              Σ0         ↓ ←0x21900
            <POP 2192a-2192c StackAdj>                       Δ-2                {[-2-]}
            <MI 2192c  MOVE.B  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x2192e 0x20324>                                              {[-2-]|[2, 'D0']}
            <POP 21932-21934 StackAdj>                       Δ+2                {[-2-]}
            <MI 21934  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21936  EXTB.W  D0>                                              {}
            <POP 0x21938 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 2193c  MOVE.B  D0,0x220a2>                                      {}
            <MI 2193e  MOVE.B  #0x15,0x220aa>                                   {}
        <POP 21942-21944 Naked>                              Σ0         →0x21966 ←0x21928
            <MI 21942  BRA     0x21966>                                         {}
        <POP 21944-21956 Naked>                              Σ0         →0x21966 ←0x218b8
            <MI 21944  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 21948  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 21950  MOVE.B  #0x16,0x220aa>                                   {}
            <MI 21954  BRA     0x21966>                                         {}
        <POP 21956-21966 Naked>                              Σ0         ↓ ←0x218b8
            <MI 21956  MOVE.B  #0x29,0x220a2>                                   {}
            <MI 2195a  MOVE.B  #0x28,0x220a3>                                   {}
            <MI 21962  MOVE.B  #0x17,0x220aa>                                   {}
        <POP 21966-21976 Naked>                              Σ0         ↓ →0x2197e ←0x218fc ←0x21942 ←0x21944
            <Const 0x21966 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21968 0x2.2>                            Δ-2                {[#2]|[#2]}
            <Call 0x2196a 0x1048a>                                              {[#2]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21970-21972 StackAdj>                       Δ+4                {}
            <MI 21972  TST.B   D6>                                              {}
            <MI 21974  BNE     0x2197e>                                         {}
        <POP 21976-2197e Naked>                              Σ0         ↓
            <MI 21976  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x21978 0x20410>                                              {[#0]}
            <POP 2197c-2197e StackAdj>                       Δ+2                {}
        <POP 2197e-21986 Epilogue>                           Σ0         ←0x21966

0x21986


@ 21986
        <LVAR  0x008 1(r)>
    <POP 21986-219e2 Body>                                              
        <POP 21986-2199c Prologue>                           Σ0         ↓
        <POP 2199c-219da Naked>                              Σ0         ↓
            <POP 2199c-2199e StackAdj>                       Δ-2                {[-2-]}
            <MI 2199e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0x8)']}
            <Call 0x219a2 0x2050c>                                              {[-2-]|[2, '(A6+0x8)']}
            <POP 219a6-219a8 StackAdj>                       Δ+2                {[-2-]}
            <MI 219a8  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 219aa  EXTB.W  D0>                                              {}
            <POP 0x219ac LimitCheck 0x0 ≤ D0 ≤ 0x8>                             {}
            <MI 219b0  MOVE.B  D0,D7>                                           {}
            <POP 219b2-219b4 StackAdj>                       Δ-2                {[-2-]}
            <MI 219b4  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x219b6 0x20324>                                              {[-2-]|[2, 'D7']}
            <POP 219ba-219bc StackAdj>                       Δ+2                {[-2-]}
            <MI 219bc  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 219be  EXTB.W  D0>                                              {}
            <POP 0x219c0 LimitCheck 0x0 ≤ D0 ≤ 0x4f>                            {}
            <MI 219c4  MOVE.B  D0,0x220a2>                                      {}
            <MI 219ca  MOVE.B  #0x18,0x220aa>                                   {}
            <MI 219d2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x219d4 0x20410>                                              {[#0]}
            <POP 219d8-219da StackAdj>                       Δ+2                {}
        <POP 219da-219e2 Epilogue>                           Σ0         

0x219e2


@ 219e2
    <POP 219e2-21a08 Body>                                              
        <POP 219e2-219f4 Prologue>                           Σ0         ↓
        <POP 219f4-21a04 Naked>                              Σ0         ↓
            <Const 0x219f4 0x5.2>                            Δ-2                {[#5]}
            <Const 0x219f8 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x219fc 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21a02-21a04 StackAdj>                       Δ+4                {}
        <POP 21a04-21a08 Epilogue>                           Σ0         

0x21a08


@ 21a08
    <POP 21a08-21a4e Body>                                              
        <POP 21a08-21a1e Prologue>                           Σ0         ↓
        <POP 21a1e-21a20 RegCacheLoad>                       Σ0         ↓
        <POP 21a20-21a22 Naked>                              Σ0         ↓
            <MI 21a20  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a22-21a46 Naked>                              Σ0         ↓ →0x21a22 ←0x21a22
            <MI 21a22  MOVE.B  D7,D0>                                           {}
            <MI 21a24  EXTB.W  D0>                                              {}
            <MI 21a26  ASL.W   #0x1,D0>                                         {}
            <MI 21a28  LEA.L   0x2208e,A0>                                      {}
            <MI 21a2e  MOVE.B  #0x01,(A0+D0.W+#0x31)>                           {}
            <MI 21a32  MOVE.B  #0x01,(A0+D0.W+#0x32)>                           {}
            <MI 21a36  MOVE.B  #0x01,(A0+D0.W+#0x43)>                           {}
            <MI 21a3a  MOVE.B  #0x01,(A0+D0.W+#0x44)>                           {}
            <MI 21a3e  ADDQ.B  #0x1,D7>                                         {}
            <MI 21a40  CMPI.B  #0x08,D7>                                        {}
            <MI 21a44  BLE     0x21a22>                                         {}
        <POP 21a46-21a4e Epilogue>                           Σ0         

0x21a4e


@ 21a4e
START
    <POP 21a4e--0001 Body>                                              
        <POP 21a4e-21a58 Prologue>                           Σ0         
        <POP 21a58-21a76 RegCacheLoad>                       Σ0         ↓
        <POP 21a76-21aa4 Naked>                              Σ0         ↓
            <Call 0x21a76 0x10398>                                              {}
                FSCALL_10398
            <Const 0x21a7c 0xf.4>                            Δ-4                {[##15]}
            <Call 0x21a80 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 21a86-21a88 StackAdj>                       Δ+4                {}
            <Const 0x21a88 0x2209a.4>                        Δ-4                {[##139418]}
            <Const 0x21a8a 0x2209b.4>                        Δ-4                {[##139418]|[##139419]}
            <Const 0x21a8c 0x2209c.4>                        Δ-4                {[##139418]|[##139419]|[##139420]}
            <Call 0x21a8e 0x10556>                                              {[##139418]|[##139419]|[##139420]}
                ?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
            <POP 21a94-21a98 StackAdj>                       Δ+10               {[-2-]}
            <POP 21a98-21a99 StackAdj>                       Δ+2                {}
            <Blob 0x21a99 [2] 0x2209c>                       Δ-2                {[«2»]}
            <Call 0x21a9a 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 21aa0-21aa2 StackAdj>                       Δ+2                {}
            <MI 21aa2  MOVEQ.L #0x00,D0>                                        {}
        <POP 21aa4-21ac0 Naked>                              Σ0         ↓ →0x21aa4 ←0x21aa4
            <MI 21aa4  MOVE.L  D0,0x2209e>                                      {}
            <POP 0x21aaa LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 21ab0  LEA.L   0x2208e,A0>                                      {}
            <MI 21ab6  CLR.B   (A0+D0.L+#0x14)>                                 {}
            <MI 21aba  ADDQ.L  #0x1,D0>                                         {}
            <MI 21abc  CMP.L   #0x07,D0>                                        {}
            <MI 21abe  BLE     0x21aa4>                                         {}
        <POP 21ac0-21b14 Naked>                              Σ0         ↓ →0x21b3c
            <Const 0x21ac0 0x220b0.4>                        Δ-4                {[##139440]}
            <Call 0x21ac6 0x102b8>                                              {[##139440]}
                NewString(VAR a : String)
            <POP 21acc-21ace StackAdj>                       Δ+4                {}
            <MI 21ace  CLR.B   0x220aa>                                         {}
            <Blob 0x21ad4 [4] @>                             Δ-4                {[«4""»]}
            <POP 21ad8-21ada StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x21ada 4>                                                     {[«4""»]|[$$P1SF]}
            <MI 21aec  MOVE.L  (A7)+,0x220ac>                Δ+4                {[«4""»]}
            <POP 21af2-21af4 StackAdj>                       Δ+4                {}
            <MI 21af4  CLR.L   D0>                                              {}
            <MI 21af6  MOVE.B  0x2209a,D0>                                      {}
            <MI 21af8  MOVE.L  D0,0x2209e>                                      {}
            <MI 21afe  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 21b00  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21b02  EXTB.W  D0>                                              {}
            <POP 0x21b04 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 21b08  MOVE.B  D0,0x220b4>                                      {}
            <MI 21b0a  EXTB.W  D0>                                              {}
            <MI 21b0c  SUBQ.W  #0x2,D0>                                         {}
            <MI 21b0e  CMPI.W  #0x000d,D0>                                      {}
            <MI 21b12  BHI     0x21b3c>                                         {}
        <POP 21b14-21b1e Naked>                              Σ0         →0x21b3a →0x21b3a →0x21b3a →0x21b3a →0x21b3a →0x21b3a →0x21b3c →0x21b3c →0x21b3c →0x21b3c →0x21b3a →0x21b3a →0x21b3a →0x21b3a
            <MI 21b14  ADD.W   D0,D0>                                           {}
            <MI 21b16  SWITCH  D0.W>                                            {}
        <POP 21b3a-21b3c Naked>                              Σ0         →0x21b4a ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14
            <MI 21b3a  BRA     0x21b4a>                                         {}
        <POP 21b3c-21b4a Naked>                              Σ0         ↓ ←0x21ac0 ←0x21b14 ←0x21b14 ←0x21b14 ←0x21b14
            <MI 21b3c  MOVE.B  #0x01,0x220aa>                                   {}
            <MI 21b42  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x21b44 0x20410>                                              {[#0]}
            <POP 21b48-21b4a StackAdj>                       Δ+2                {}
        <POP 21b4a-21b52 Naked>                              Σ0         ↓ ←0x21b3a
            <MI 21b4a  CLR.L   0x22096>                                         {}
            <MI 21b50  MOVEQ.L #0x00,D0>                                        {}
        <POP 21b52-21b72 Naked>                              Σ0         ↓ →0x21b78 ←0x21b78
            <MI 21b52  MOVE.B  D0,0x220e3>                                      {}
            <POP 21b58-21b5a StackAdj>                       Δ-2                {[-2-]}
            <MI 21b5a  MOVE.B  D0,D1>                                           {[-2-]}
            <MI 21b5c  EXTB.W  D1>                                              {[-2-]}
            <MI 21b5e  LEA.L   0x201d6,A0>                                      {[-2-]}
            <MI 21b62  MOVE.B  (A0+D1.W),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D1.W)']}
            <Call 0x21b66 0x104c0>                                              {[-2-]|[2, '(A0+D1.W)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21b6c-21b6e StackAdj>                       Δ+2                {[-2-]}
            <MI 21b6e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b70  BEQ     0x21b78>                                         {}
        <POP 21b72-21b78 Naked>                              Σ0         ↓
            <MI 21b72  ADDQ.L  #0x1,0x22096>                                    {}
        <POP 21b78-21b80 Naked>                              Σ0         ↓ →0x21b52 ←0x21b52
            <MI 21b78  ADDQ.B  #0x1,D0>                                         {}
            <MI 21b7a  CMPI.B  #0x08,D0>                                        {}
            <MI 21b7e  BLE     0x21b52>                                         {}
        <POP 21b80-21ba8 Naked>                              Σ0         ↓ →0x21bca
            <Const 0x21b80 0x5.2>                            Δ-2                {[#5]}
            <Const 0x21b82 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x21b86 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21b8c-21b8e StackAdj>                       Δ+4                {}
            <Call 0x21b8e 0x21a08>                                              {}
            <MI 21b92  MOVE.B  #0x01,0x220b5>                                   {}
            <Blob 0x21b98 [2] 0x220b4>                       Δ-2                {[«2»]}
            <Call 0x21b9a 0x206c4>                                              {[«2»]}
            <POP 21b9e-21ba0 StackAdj>                       Δ+2                {}
            <MI 21ba0  TST.B   0x220b5>                                         {}
            <MI 21ba6  BNE     0x21bca>                                         {}
        <POP 21ba8-21bac Naked>                              Σ0         ↓ →0x21bba
            <MI 21ba8  TST.B   0x2209b>                                         {}
            <MI 21baa  BEQ     0x21bba>                                         {}
        <POP 21bac-21bb4 Naked>                              Σ0         ↓
            <Blob 0x21bac [2] 0x220b4>                       Δ-2                {[«2»]}
            <Call 0x21bae 0x2073c>                                              {[«2»]}
            <POP 21bb2-21bb4 StackAdj>                       Δ+2                {}
        <POP 21bb4-21bba Naked>                              Σ0         →0x21bca ←0x21bc0
            <Call 0x21bb4 0x215a8>                                              {}
            <MI 21bb8  BRA     0x21bca>                                         {}
        <POP 21bba-21bc0 Naked>                              Σ0         ↓ →0x21bc2 ←0x21ba8
            <MI 21bba  MOVE.B  0x220b4,D0>                                      {}
            <MI 21bbc  CMP.B   #0x05,D0>                                        {}
            <MI 21bbe  BNE     0x21bc2>                                         {}
        <POP 21bc0-21bc2 Naked>                              Σ0         →0x21bb4
            <MI 21bc0  BRA     0x21bb4>                                         {}
        <POP 21bc2-21bca Naked>                              Σ0         ↓ ←0x21bba
            <MI 21bc2  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x21bc4 0x20860>                                              {[2, 'D0']}
            <POP 21bc8-21bca StackAdj>                       Δ+2                {}
        <POP 21bca-21be6 Naked>                              Σ0         ↓ →0x21c08 ←0x21b80 ←0x21bb4
            <MI 21bca  MOVE.B  #0x01,0x220b5>                                   {}
            <MI 21bd0  CLR.B   0x220e4>                                         {}
            <Blob 0x21bd6 [2] 0x220b4>                       Δ-2                {[«2»]}
            <Call 0x21bd8 0x213e0>                                              {[«2»]}
            <POP 21bdc-21bde StackAdj>                       Δ+2                {}
            <MI 21bde  TST.B   0x220b5>                                         {}
            <MI 21be4  BNE     0x21c08>                                         {}
        <POP 21be6-21bea Naked>                              Σ0         ↓ →0x21bf8
            <MI 21be6  TST.B   0x2209b>                                         {}
            <MI 21be8  BEQ     0x21bf8>                                         {}
        <POP 21bea-21bf2 Naked>                              Σ0         ↓
            <Blob 0x21bea [2] 0x220b4>                       Δ-2                {[«2»]}
            <Call 0x21bec 0x214bc>                                              {[«2»]}
            <POP 21bf0-21bf2 StackAdj>                       Δ+2                {}
        <POP 21bf2-21bf8 Naked>                              Σ0         →0x21c08 ←0x21bfe
            <Call 0x21bf2 0x21704>                                              {}
            <MI 21bf6  BRA     0x21c08>                                         {}
        <POP 21bf8-21bfe Naked>                              Σ0         ↓ →0x21c00 ←0x21be6
            <MI 21bf8  MOVE.B  0x220b4,D0>                                      {}
            <MI 21bfa  CMP.B   #0x05,D0>                                        {}
            <MI 21bfc  BNE     0x21c00>                                         {}
        <POP 21bfe-21c00 Naked>                              Σ0         →0x21bf2
            <MI 21bfe  BRA     0x21bf2>                                         {}
        <POP 21c00-21c08 Naked>                              Σ0         ↓ ←0x21bf8
            <MI 21c00  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x21c02 0x21986>                                              {[2, 'D0']}
            <POP 21c06-21c08 StackAdj>                       Δ+2                {}
        <POP 21c08-21c0e Naked>                              Σ0         ↓ →0x21c16 ←0x21bca ←0x21bf2
            <MI 21c08  MOVE.B  0x220b4,D0>                                      {}
            <MI 21c0a  CMP.B   #0x05,D0>                                        {}
            <MI 21c0c  BNE     0x21c16>                                         {}
        <POP 21c0e-21c16 Naked>                              Σ0         ↓
            <Call 0x21c0e 0x209bc>                                              {}
            <Call 0x21c12 0x2180a>                                              {}
        <POP 21c16-21c22 Naked>                              Σ0         ↓ ←0x21c08
            <Call 0x21c16 0x219e2>                                              {}
            <Const 0x21c1a 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21c1c 0x20410>                                              {[#1]}
            <POP 21c20-21c22 StackAdj>                       Δ+2                {}
        <POP 21c22-21c28 Naked>                              Σ0         
            <Call 0x21c22 0x10284>                                              {}
                ?exit

0x21db2


@ 21db2
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21db2-21ea6 Body>                                   Δ+12       
        <POP 21db2-21dc8 Prologue>                           Σ0         ↓
        <POP 21dc8-21dda RegCacheLoad>                       Σ0         ↓
        <POP 21dda-21de6 Naked>                              Σ0         ↓ →0x21df4
            <POP 21dda-21ddc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ddc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21de2  TST.B   (A7)+>                        Δ+2                {}
            <MI 21de4  BEQ     0x21df4>                                         {}
        <POP 21de6-21df4 Naked>                              Σ0 Δ-12    →0x21e00
            <Blob 0x21de6 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21dea [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21dee [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 21df2  BRA     0x21e00>                                         {[«4""»]|[«4""»]|[«4""»]}
        <POP 21df4-21e00 Naked>                              Σ0 Δ-12    ↓ ←0x21dda
            <Blob 0x21df4 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21df8 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21dfc [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
        <POP 21e00-21e9e Naked>                              Σ-12 Δ+12  ↓ ←0x21de6
            <POP 21e00-21e02 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x21e02>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x21e02 4>                       Δ-4        
                <Const 0x21e06 0x1.2>                        Δ-2        
                <Const 0x21e0a 0xc.2>                        Δ-2        
                <Call 0x21e0c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21e12-21e14 StackAdj>                   Δ+8        
            <Pointer.fp 0x21e14 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x21e16 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 21e1c-21e20 StackAdj>                       Δ+20               {}
            <MI 21e20  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 21e24  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x21e26 4>                           Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21e2a 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21e2c 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x21e2e 0x10466>                                              {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21e34-21e36 StackAdj>                       Δ+16               {[2, '(A6+0x10)']}
            <MI 21e36  CLR.B   (A7)>                                            {[2, '(A6+0x10)']}
            <MI 21e38  MOVE.B  (A6+0x12),-(A7)>              Δ-2                {[2, '(A6+0x10)']|[2, '(A6+0x12)']}
            <MI 21e3c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
            <Call 0x21e3e 0x104ba>                                              {[2, '(A6+0x10)']|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21e44-21e46 StackAdj>                       Δ+8                {}
            <MI 21e46  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21e4a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 21e4c  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Const 0x21e4e 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]}
            <Const 0x21e50 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x21e52 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 21e54-21e56 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 21e56  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 21e58  PEA.L   (A0+0x1)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x1)']}
            <Const 0x21e5c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x1)']|[##0]}
            <Const 0x21e5e 0x3.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x1)']|[##0]|[##3]}
            <Call 0x21e62 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x1)']|[##0]|[##3]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 21e64-21e66 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 21e66  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 21e68  PEA.L   (A0+0x5)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x5)']}
            <Const 0x21e6c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x5)']|[##0]}
            <Const 0x21e6e 0x2.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x5)']|[##0]|[##2]}
            <Call 0x21e72 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x5)']|[##0]|[##2]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 21e74-21e76 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 21e76  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 21e78  PEA.L   (A0+0x8)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']}
            <Const 0x21e7c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]}
            <Const 0x21e7e 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##0]}
            <Call 0x21e80 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x8)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 21e82-21e84 StackAdj>                       Δ+12               {[4, '(A6-0x4)']}
            <MI 21e84  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 21e86  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x4)']}
            <MI 21e8a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <Const 0x21e8c 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]}
            <Const 0x21e8e 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x21e90 0x10472>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 21e92-21e94 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x21e94 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21e96 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 21e9c-21e9e StackAdj>                       Δ+4                {}
        <POP 21e9e-21ea6 Epilogue>                           Σ0         

0x21ebe


@ 21ebe
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x013 1(r)>
        <LVAR  0x012 1(r)>
        <LVAR  0x011 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00f 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00d 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21ebe-21fe0 Body>                                   Δ+12       
        <POP 21ebe-21ed4 Prologue>                           Σ0         ↓
        <POP 21ed4-21ee4 RegCacheLoad>                       Σ0         ↓
        <POP 21ee4-21ef0 Naked>                              Σ0         ↓ →0x21efe
            <POP 21ee4-21ee6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ee6 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21eec  TST.B   (A7)+>                        Δ+2                {}
            <MI 21eee  BEQ     0x21efe>                                         {}
        <POP 21ef0-21efe Naked>                              Σ0 Δ-12    →0x21f0a
            <Blob 0x21ef0 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21ef4 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21ef8 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 21efc  BRA     0x21f0a>                                         {[«4""»]|[«4""»]|[«4""»]}
        <POP 21efe-21f0a Naked>                              Σ0 Δ-12    ↓ ←0x21ee4
            <Blob 0x21efe [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21f02 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21f06 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
        <POP 21f0a-21fd8 Naked>                              Σ-12 Δ+12  ↓ ←0x21ef0
            <POP 21f0a-21f0c StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x21f0c>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x21f0c 4>                       Δ-4        
                <Const 0x21f10 0x1.2>                        Δ-2        
                <Const 0x21f14 0xc.2>                        Δ-2        
                <Call 0x21f18 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21f1e-21f20 StackAdj>                   Δ+8        
            <Pointer.fp 0x21f20 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x21f22 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 21f28-21f2c StackAdj>                       Δ+20               {}
            <MI 21f2c  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 21f30  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x21f32 4>                           Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21f36 0x0.4>                            Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21f38 0x0.4>                            Δ-4                {[2, '(A6+0xc)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x21f3a 0x10466>                                              {[2, '(A6+0xc)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21f3c-21f40 StackAdj>                       Δ+14               {[2, '(A6+0xc)']|[-2-]}
            <MI 21f40  MOVE.B  (A6+0xd),(A7)>                                   {[2, '(A6+0xc)']|[-2-]}
            <MI 21f44  MOVE.B  (A6+0xe),(A7+0x1)>                               {[2, '(A6+0xc)']|[-2-]}
            <MI 21f4a  MOVE.B  (A6+0xf),(A7+0x2)>                               {[2, '(A6+0xc)']|[-2-]}
            <MI 21f50  MOVE.B  (A6+0x10),(A7+0x3)>                              {[2, '(A6+0xc)']|[-2-]}
            <MI 21f56  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21f58 4>                           Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21f5c 0x0.4>                            Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21f5e 0x3.4>                            Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
            <Call 0x21f62 0x10466>                                              {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21f64-21f66 StackAdj>                       Δ+16               {[2, '(A6+0xc)']|[-2-]}
            <MI 21f66  MOVE.B  (A6+0x11),(A7)>                                  {[2, '(A6+0xc)']|[-2-]}
            <MI 21f6a  MOVE.B  (A6+0x12),(A7+0x1)>                              {[2, '(A6+0xc)']|[-2-]}
            <MI 21f70  MOVE.B  (A6+0x13),(A7+0x2)>                              {[2, '(A6+0xc)']|[-2-]}
            <MI 21f76  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21f78 4>                           Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21f7c 0x0.4>                            Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21f7e 0x2.4>                            Δ-4                {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##2]}
            <Call 0x21f82 0x10466>                                              {[2, '(A6+0xc)']|[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##2]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21f84-21f88 StackAdj>                       Δ+18               {[2, '(A6+0xc)']}
            <MI 21f88  MOVE.B  (A6+0x14),(A7)>                                  {[-2-]}
            <MI 21f8c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21f8e 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21f92 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21f94 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x21f96 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21f98-21f9a StackAdj>                       Δ+16               {[-2-]}
            <MI 21f9a  MOVE.B  (A6+0xa),(A7)>                                   {[-2-]}
            <MI 21f9e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21fa0 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21fa4 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21fa6 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x21fa8 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21faa-21fac StackAdj>                       Δ+16               {[-2-]}
            <MI 21fac  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 21fb0  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21fb2 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21fb6 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21fb8 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x21fba 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21fbc-21fbe StackAdj>                       Δ+16               {[-2-]}
            <MI 21fbe  CLR.B   (A7)>                                            {[-2-]}
            <MI 21fc0  MOVE.B  (A6+0x16),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x16)']}
            <MI 21fc4  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x16)']|[4, '(A6-0x4)']}
            <Call 0x21fc6 0x104ba>                                              {[-2-]|[2, '(A6+0x16)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21fcc-21fce StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21fce <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21fd0 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 21fd6-21fd8 StackAdj>                       Δ+4                {}
        <POP 21fd8-21fe0 Epilogue>                           Σ0         

0x22026


@ 22026
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22026-2208e Body>                                              
        <POP 22026-2203c Prologue>                           Σ0         ↓
        <POP 2203c-22086 Naked>                              Σ0         ↓
            <Blob 0x2203c [14] @>                            Δ-14               {[«14""»]}
            <Const 0x22048 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 2204c-2204e StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2204e 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 22060-22062 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22062  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22066  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22068  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2206a  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x2206c 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 22072-22074 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x22074 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2207a-2207c StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x2207c 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22082-22086 StackAdj>                       Δ+20               {}
        <POP 22086-2208e Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.a9c3e3ae8ed3ac97
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 1a 4e              |   N    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 20 fe              |        |		.PTR	0x220fe
00020010					code.end:
00020010 00 02 20 8e              |        |		.PTR	0x2208e
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 20 26              |   &    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 01 e8              |        |		.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 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020118 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020126 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020134 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020146 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002015e 40 28                    |@(      |		.XXX[0x2]
00020160 23 29 50 31 53 46 2c 32  |#)P1SF,2|		.XXX[0x20]
00020168 2e 30 2c 38 39 2f 31 30  |.0,89/10|
00020170 2f 30 32 2c 31 37 3a 31  |/02,17:1|
00020178 38 3a 31 39 5c 20 2e 53  |8:19\ .S|
00020180 59 53                    |YS      |		.XXX[0x2]
00020182 2e 49 4f 43              |.IOC    |		.TXT	'.IOC'
00020186 2e 56 41 4c              |.VAL    |		.TXT	'.VAL'
0002018a 2e 54 59 50              |.TYP    |		.TXT	'.TYP'
0002018e 2e 53 45 51              |.SEQ    |		.TXT	'.SEQ'
00020192 2e 46 49 55              |.FIU    |		.TXT	'.FIU'
00020196 2e 4d 45 4d              |.MEM    |		.TXT	'.MEM'
0002019a 2e 4d 33 32              |.M32    |		.TXT	'.M32'
0002019e 54 45 53 54 5f 46 52 45  |TEST_FRE|		.TXT	'TEST_FREEZE '
000201aa 54 45 53 54 5f 46 52 45  |TEST_FRE|		.TXT	'TEST_FREEZE '
000201b6 54 45 53 54 5f 46 52 45  |TEST_FRE|		.TXT	'TEST_FREEZE '
000201c2 54 45 53 54 5f 46 52 45  |TEST_FRE|		.TXT	'TEST_FREEZE.FIU '
000201d2 50 31 53 46              |P1SF    |		.TXT	'P1SF'
000201d6 04 07                    |        |		.XXX[0x2]
000201d8 06 02 03 0c 0d 0e 0f 02  |        |		.XXX[0x10]
000201e0 04 03 05 06 07 08 09 0a  |        |
000201e8 ; --------------------------------------------------------------------------------------
000201e8 ; OMSI PASCAL Function
000201e8 ;    <LVAR  0x00e 1(r)>
000201e8 ;    <LVAR  0x00a 4(r)>
000201e8 ;    <LVAR  0x008 1(r)>
000201e8 ; --------------------------------------------------------------------------------------
000201e8					EXP_FAIL:
000201e8 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000201ec bf d5                    |        |		CMPA.L	(A5),A7
000201ee 62 06                    |b       |		BHI	0x201f6
000201f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000201f4 4e 76                    |Nv      |		TRAPV
000201f6 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000201fa 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000201fe 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020204 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
0002020a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002020c 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0002020e 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020210 78 12                    |x       |		MOVEQ.L	#0x12,D4
00020212 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020214 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002021a 41 fa ff 2a              |A  *    |		LEA.L	0x20146,A0
0002021e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020220 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020222 51 c8 ff fc              |Q       |		DBF	D0,0x20220
00020226 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020228 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002022c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002022e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020230 4e 93                    |N       |		JSR	(A3)
00020232 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020234 4e 94                    |N       |		JSR	(A4)
00020236 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020238 20 4f                    | O      |		MOVEA.L	A7,A0
0002023a 43 fa fe ce              |C       |		LEA.L	0x2010a,A1
0002023e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020240 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020242 51 c8 ff fc              |Q       |		DBF	D0,0x20240
00020246 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020248 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002024c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002024e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020250 4e 93                    |N       |		JSR	(A3)
00020252 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020254 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00020258 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
0002025e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020260 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020266 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020268 4e 94                    |N       |		JSR	(A4)
0002026a de c4                    |        |		ADDA.W	D4,A7
0002026c 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020270 b0 c1                    |        |		CMPA.W	D1,A0
00020272 67 48                    |gH      |		BEQ	0x202bc
00020274 9e c5                    |        |		SUBA.W	D5,A7
00020276 22 4f                    |"O      |		MOVEA.L	A7,A1
00020278 45 fa fe 9e              |E       |		LEA.L	0x20118,A2
0002027c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002027e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020280 51 c8 ff fc              |Q       |		DBF	D0,0x2027e
00020284 9e c3                    |        |		SUBA.W	D3,A7
00020286 22 4f                    |"O      |		MOVEA.L	A7,A1
00020288 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
0002028c 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002028e 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020290 51 c8 ff fc              |Q       |		DBF	D0,0x2028e
00020294 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020296 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
0002029a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002029c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002029e 4e 93                    |N       |		JSR	(A3)
000202a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000202a2 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000202a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000202a8 3f 03                    |?       |		MOVE.W	D3,-(A7)
000202aa 4e 93                    |N       |		JSR	(A3)
000202ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202ae 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000202b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202b6 4e 94                    |N       |		JSR	(A4)
000202b8 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000202bc 9e c5                    |        |		SUBA.W	D5,A7
000202be 20 4f                    | O      |		MOVEA.L	A7,A0
000202c0 43 fa fe 64              |C  d    |		LEA.L	0x20126,A1
000202c4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000202c6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000202c8 51 c8 ff fc              |Q       |		DBF	D0,0x202c6
000202cc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000202ce 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000202d2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000202d4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000202d6 4e 93                    |N       |		JSR	(A3)
000202d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202da 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000202de 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000202e4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202e6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000202ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202ee 4e 94                    |N       |		JSR	(A4)
000202f0 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000202f2 20 4f                    | O      |		MOVEA.L	A7,A0
000202f4 43 fa fe 50              |C  P    |		LEA.L	0x20146,A1
000202f8 70 16                    |p       |		MOVEQ.L	#0x16,D0
000202fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000202fc 51 c8 ff fc              |Q       |		DBF	D0,0x202fa
00020300 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020304 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020306 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002030a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002030c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020310 4e 93                    |N       |		JSR	(A3)
00020312 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020314 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002031a de c3                    |        |		ADDA.W	D3,A7
0002031c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020320 4e 5e                    |N^      |		UNLK	A6
00020322 4e 75                    |Nu      |		RTS
00020324 ; --------------------------------------------------------------------------------------
00020324 ; OMSI PASCAL Function
00020324 ;    <LVAR  0x00a 1(w)>
00020324 ;    <LVAR  0x008 1(r)>
00020324 ; --------------------------------------------------------------------------------------
00020324 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020328 bf d5                    |        |		CMPA.L	(A5),A7
0002032a 62 06                    |b       |		BHI	0x20332
0002032c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020330 4e 76                    |Nv      |		TRAPV
00020332 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020336 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002033a 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002033e 66 08                    |f       |		BNE	0x20348
00020340 1d 7c 00 2b 00 0a        | | +    |		MOVE.B	#0x2b,(A6+0xa)
00020346 60 10                    |`       |		BRA	0x20358
00020348 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002034c 48 80                    |H       |		EXTB.W	D0
0002034e 41 fa fe 8f              |A       |		LEA.L	0x201df,A0
00020352 1d 70 00 00 00 0a        | p      |		MOVE.B	(A0+D0.W),(A6+0xa)
00020358 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002035c 4e 5e                    |N^      |		UNLK	A6
0002035e 4e 75                    |Nu      |		RTS
00020360 ; --------------------------------------------------------------------------------------
00020360 ; OMSI PASCAL Function
00020360 ;    <LVAR  0x00a 4(w)>
00020360 ;    <LVAR  0x008 1(r)>
00020360 ; --------------------------------------------------------------------------------------
00020360 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00020364 bf d5                    |        |		CMPA.L	(A5),A7
00020366 62 06                    |b       |		BHI	0x2036e
00020368 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002036c 4e 76                    |Nv      |		TRAPV
0002036e de fc 00 20              |        |		ADDA.W	#0x20,A7
00020372 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00020376 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020378 74 04                    |t       |		MOVEQ.L	#0x04,D2
0002037a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002037e 48 80                    |H       |		EXTB.W	D0
00020380 0c 40 00 08              | @      |		CMPI.W	#0x0008,D0
00020384 63 02                    |c       |		BLS	0x20388
00020386 4e 4e                    |NN      |		TRAP	#14
00020388 d0 40                    | @      |		ADD.W	D0,D0
0002038a 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00020392 00 12                    |        |		.CONST	0x12			; [0x0] -> 0x203a4
00020394 00 30                    | 0      |		.CONST	0x30			; [0x1] -> 0x203c2
00020396 00 36                    | 6      |		.CONST	0x36			; [0x2] -> 0x203c8
00020398 00 3c                    | <      |		.CONST	0x3c			; [0x3] -> 0x203ce
0002039a 00 42                    | B      |		.CONST	0x42			; [0x4] -> 0x203d4
0002039c 00 48                    | H      |		.CONST	0x48			; [0x5] -> 0x203da
0002039e 00 48                    | H      |		.CONST	0x48			; [0x6] -> 0x203da
000203a0 00 48                    | H      |		.CONST	0x48			; [0x7] -> 0x203da
000203a2 00 48                    | H      |		.CONST	0x48			; [0x8] -> 0x203da
000203a4					switch@0x2038a[0x0]:
000203a4 2f 3a fd dc              |/:      |		MOVE.L	0x20182,-(A7)
000203a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000203ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000203b0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000203b2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000203b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000203ba 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
000203be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203c0 60 46                    |`F      |		BRA	0x20408
000203c2					switch@0x2038a[0x1]:
000203c2 2f 3a fd c2              |/:      |		MOVE.L	0x20186,-(A7)
000203c6 60 28                    |`(      |		BRA	0x203f0
000203c8					switch@0x2038a[0x2]:
000203c8 2f 3a fd c0              |/:      |		MOVE.L	0x2018a,-(A7)
000203cc 60 22                    |`"      |		BRA	0x203f0
000203ce					switch@0x2038a[0x3]:
000203ce 2f 3a fd be              |/:      |		MOVE.L	0x2018e,-(A7)
000203d2 60 1c                    |`       |		BRA	0x203f0
000203d4					switch@0x2038a[0x4]:
000203d4 2f 3a fd bc              |/:      |		MOVE.L	0x20192,-(A7)
000203d8 60 16                    |`       |		BRA	0x203f0
000203da					switch@0x2038a[0x5]:
000203da					switch@0x2038a[0x6]:
000203da					switch@0x2038a[0x7]:
000203da					switch@0x2038a[0x8]:
000203da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000203dc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000203e2 4a 1f                    |J       |		TST.B	(A7)+
000203e4 67 06                    |g       |		BEQ	0x203ec
000203e6 2f 3a fd ae              |/:      |		MOVE.L	0x20196,-(A7)
000203ea 60 04                    |`       |		BRA	0x203f0
000203ec 2f 3a fd ac              |/:      |		MOVE.L	0x2019a,-(A7)
000203f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203f2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000203f6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000203f8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000203fa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020400 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020402 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
00020406 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020408 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
0002040c 4e 5e                    |N^      |		UNLK	A6
0002040e 4e 75                    |Nu      |		RTS
00020410 ; --------------------------------------------------------------------------------------
00020410 ; OMSI PASCAL Function
00020410 ;    <LVAR  0x008 1(r)>
00020410 ; --------------------------------------------------------------------------------------
00020410 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00020414 bf d5                    |        |		CMPA.L	(A5),A7
00020416 62 06                    |b       |		BHI	0x2041e
00020418 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002041c 4e 76                    |Nv      |		TRAPV
0002041e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020422 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00020426 45 f9 00 02 20 b6        |E       |		LEA.L	0x220b6,A2
0002042c 72 07                    |r       |		MOVEQ.L	#0x07,D1
0002042e 10 39 00 02 20 aa        | 9      |		MOVE.B	0x220aa,D0
00020434 48 80                    |H       |		EXTB.W	D0
00020436 48 c0                    |H       |		EXTW.L	D0
00020438 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
0002043e 63 02                    |c       |		BLS	0x20442
00020440 4e 4f                    |NO      |		TRAP	#15
00020442 14 80                    |        |		MOVE.B	D0,(A2)
00020444 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020446 be 81                    |        |		CMP.L	D1,D7
00020448 63 02                    |c       |		BLS	0x2044c
0002044a 4e 4f                    |NO      |		TRAP	#15
0002044c 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
00020452 10 30 78 14              | 0x     |		MOVE.B	(A0+D7.L+#0x14),D0
00020456 48 80                    |H       |		EXTB.W	D0
00020458 48 c0                    |H       |		EXTW.L	D0
0002045a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020460 63 02                    |c       |		BLS	0x20464
00020462 4e 4f                    |NO      |		TRAP	#15
00020464 11 80 78 29              |  x)    |		MOVE.B	D0,(A0+D7.L+#0x29)
00020468 52 87                    |R       |		ADDQ.L	#0x1,D7
0002046a be 81                    |        |		CMP.L	D1,D7
0002046c 6f d8                    |o       |		BLE	0x20446
0002046e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020472 2f 39 00 02 20 ac        |/9      |		MOVE.L	0x220ac,-(A7)
00020478 2f 39 00 02 20 b0        |/9      |		MOVE.L	0x220b0,-(A7)
0002047e 1f 12                    |        |		MOVE.B	(A2),-(A7)
00020480 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020482 20 4f                    | O      |		MOVEA.L	A7,A0
00020484 43 f9 00 02 20 b7        |C       |		LEA.L	0x220b7,A1
0002048a 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002048c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002048e 51 c8 ff fc              |Q       |		DBF	D0,0x2048c
00020492 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020498 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002049c 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
000204a0 4e 5e                    |N^      |		UNLK	A6
000204a2 4e 75                    |Nu      |		RTS
000204a4 ; --------------------------------------------------------------------------------------
000204a4 ; OMSI PASCAL Function
000204a4 ;    <LVAR  0x010 1(r)>
000204a4 ;    <LVAR  0x00c @ 4(r)>
000204a4 ;    <LVAR  0x008 4(r)>
000204a4 ;    <LVAR -0x005 @>
000204a4 ;    <LVAR -0x006 @>
000204a4 ; --------------------------------------------------------------------------------------
000204a4 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000204a8 bf d5                    |        |		CMPA.L	(A5),A7
000204aa 62 06                    |b       |		BHI	0x204b2
000204ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204b0 4e 76                    |Nv      |		TRAPV
000204b2 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000204b6 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000204ba 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
000204be 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000204c2 4e b9 00 01 04 7e        |N    ~  |		JSR	ExpXmit(adr : Byte; b : Pointer)
000204c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000204ca 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
000204ce 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000204d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204d6 2e 3c ff ff ff 06        |.<      |		MOVE.L	#0xffffff06,D7
000204dc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000204e0 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
000204e4 48 50                    |HP      |		PEA.L	(A0)
000204e6 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000204ea 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000204ee 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000204f4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000204f8 52 87                    |R       |		ADDQ.L	#0x1,D7
000204fa 67 08                    |g       |		BEQ	0x20504
000204fc 10 10                    |        |		MOVE.B	(A0),D0
000204fe 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00020502 66 d8                    |f       |		BNE	0x204dc
00020504 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00020508 4e 5e                    |N^      |		UNLK	A6
0002050a 4e 75                    |Nu      |		RTS
0002050c ; --------------------------------------------------------------------------------------
0002050c ; OMSI PASCAL Function
0002050c ;    <LVAR  0x00a 1(w)>
0002050c ;    <LVAR  0x008 1(r)>
0002050c ; --------------------------------------------------------------------------------------
0002050c 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00020510 bf d5                    |        |		CMPA.L	(A5),A7
00020512 62 06                    |b       |		BHI	0x2051a
00020514 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020518 4e 76                    |Nv      |		TRAPV
0002051a de fc 00 16              |        |		ADDA.W	#0x16,A7
0002051e 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
00020522 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020524 10 07                    |        |		MOVE.B	D7,D0
00020526 48 80                    |H       |		EXTB.W	D0
00020528 41 fa fc ac              |A       |		LEA.L	0x201d6,A0
0002052c 12 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D1
00020530 b2 2e 00 08              | .      |		CMP.B	(A6+0x8),D1
00020534 67 08                    |g       |		BEQ	0x2053e
00020536 32 00                    |2       |		MOVE.W	D0,D1
00020538 52 41                    |RA      |		ADDQ.W	#0x1,D1
0002053a 1e 01                    |        |		MOVE.B	D1,D7
0002053c 60 e6                    |`       |		BRA	0x20524
0002053e 1d 40 00 0a              | @      |		MOVE.B	D0,(A6+0xa)
00020542 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
00020546 4e 5e                    |N^      |		UNLK	A6
00020548 4e 75                    |Nu      |		RTS
0002054a ; --------------------------------------------------------------------------------------
0002054a ; OMSI PASCAL Function
0002054a ;    <LVAR  0x008 1(r)>
0002054a ;    <LVAR -0x006 @ 1(r)>
0002054a ;    <LVAR -0x00a @ 4(r)>
0002054a ; --------------------------------------------------------------------------------------
0002054a 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
0002054e bf d5                    |        |		CMPA.L	(A5),A7
00020550 62 06                    |b       |		BHI	0x20558
00020552 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020556 4e 76                    |Nv      |		TRAPV
00020558 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
0002055c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020560 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00020564 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00020568 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002056a 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002056c 7a 0b                    |z       |		MOVEQ.L	#0x0b,D5
0002056e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020570 1f 14                    |        |		MOVE.B	(A4),-(A7)
00020572 4e ba ff 98              |N       |		JSR	0x2050c
00020576 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020578 10 1f                    |        |		MOVE.B	(A7)+,D0
0002057a 48 80                    |H       |		EXTB.W	D0
0002057c 41 bc 00 08              |A       |		CHK.W	#0x8,D0
00020580 1c 00                    |        |		MOVE.B	D0,D6
00020582 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020584 9e c4                    |        |		SUBA.W	D4,A7
00020586 20 4f                    | O      |		MOVEA.L	A7,A0
00020588 43 fa fc 14              |C       |		LEA.L	0x2019e,A1
0002058c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002058e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020590 51 c8 ff fc              |Q       |		DBF	D0,0x2058e
00020594 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020596 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002059a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002059c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002059e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205a6 1e 86                    |        |		MOVE.B	D6,(A7)
000205a8 4e ba fd b6              |N       |		JSR	0x20360
000205ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205ae 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000205b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205b6 48 53                    |HS      |		PEA.L	(A3)
000205b8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000205be de fc 00 10              |        |		ADDA.W	#0x10,A7
000205c2 2e 93                    |.       |		MOVE.L	(A3),(A7)
000205c4 1f 07                    |        |		MOVE.B	D7,-(A7)
000205c6 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000205cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205ce 2e 93                    |.       |		MOVE.L	(A3),(A7)
000205d0 1f 03                    |        |		MOVE.B	D3,-(A7)
000205d2 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000205d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205da 1e 94                    |        |		MOVE.B	(A4),(A7)
000205dc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000205de 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000205e2 4e ba fe c0              |N       |		JSR	0x204a4
000205e6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000205ea 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
000205ee 0c 00 00 06              |        |		CMPI.B	#0x06,D0
000205f2 67 1a                    |g       |		BEQ	0x2060e
000205f4 42 39 00 02 20 b5        |B9      |		CLR.B	0x220b5
000205fa 10 06                    |        |		MOVE.B	D6,D0
000205fc 48 80                    |H       |		EXTB.W	D0
000205fe e3 40                    | @      |		ASL.W	#0x1,D0
00020600 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
00020606 42 30 00 31              |B0 1    |		CLR.B	(A0+D0.W+#0x31)
0002060a 60 00 00 a2              |`       |		BRA	0x206ae
0002060e 10 06                    |        |		MOVE.B	D6,D0
00020610 48 80                    |H       |		EXTB.W	D0
00020612 32 00                    |2       |		MOVE.W	D0,D1
00020614 e3 41                    | A      |		ASL.W	#0x1,D1
00020616 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
0002061c 11 83 10 31              |   1    |		MOVE.B	D3,(A0+D1.W+#0x31)
00020620 1f 14                    |        |		MOVE.B	(A4),-(A7)
00020622 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020626 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
0002062c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002062e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00020630 9e c4                    |        |		SUBA.W	D4,A7
00020632 22 4f                    |"O      |		MOVEA.L	A7,A1
00020634 45 fa fb 74              |E  t    |		LEA.L	0x201aa,A2
00020638 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
0002063a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002063c 51 ca ff fc              |Q       |		DBF	D2,0x2063a
00020640 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020642 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020646 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020648 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002064a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020650 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020652 1e 80                    |        |		MOVE.B	D0,(A7)
00020654 4e ba fd 0a              |N       |		JSR	0x20360
00020658 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002065a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020660 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020662 48 53                    |HS      |		PEA.L	(A3)
00020664 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002066a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002066e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020670 1f 07                    |        |		MOVE.B	D7,-(A7)
00020672 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020678 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002067a 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002067c 1f 03                    |        |		MOVE.B	D3,-(A7)
0002067e 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020684 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020686 1e 94                    |        |		MOVE.B	(A4),(A7)
00020688 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002068a 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002068e 4e ba fe 14              |N       |		JSR	0x204a4
00020692 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020696 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
0002069a b0 03                    |        |		CMP.B	D3,D0
0002069c 66 06                    |f       |		BNE	0x206a4
0002069e 11 83 10 32              |   2    |		MOVE.B	D3,(A0+D1.W+#0x32)
000206a2 60 0a                    |`       |		BRA	0x206ae
000206a4 42 39 00 02 20 b5        |B9      |		CLR.B	0x220b5
000206aa 42 30 10 32              |B0 2    |		CLR.B	(A0+D1.W+#0x32)
000206ae 1f 14                    |        |		MOVE.B	(A4),-(A7)
000206b0 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000206b4 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
000206ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206bc 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000206c0 4e 5e                    |N^      |		UNLK	A6
000206c2 4e 75                    |Nu      |		RTS
000206c4 ; --------------------------------------------------------------------------------------
000206c4 ; OMSI PASCAL Function
000206c4 ;    <LVAR  0x008 1(r)>
000206c4 ; --------------------------------------------------------------------------------------
000206c4 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
000206c8 bf d5                    |        |		CMPA.L	(A5),A7
000206ca 62 06                    |b       |		BHI	0x206d2
000206cc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206d0 4e 76                    |Nv      |		TRAPV
000206d2 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000206d6 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000206da 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000206de 0c 00 00 05              |        |		CMPI.B	#0x05,D0
000206e2 66 38                    |f8      |		BNE	0x2071c
000206e4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000206e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206e8 10 07                    |        |		MOVE.B	D7,D0
000206ea 48 80                    |H       |		EXTB.W	D0
000206ec 41 fa fa e8              |A       |		LEA.L	0x201d6,A0
000206f0 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000206f4 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000206fa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206fc 4a 1f                    |J       |		TST.B	(A7)+
000206fe 67 12                    |g       |		BEQ	0x20712
00020700 10 07                    |        |		MOVE.B	D7,D0
00020702 48 80                    |H       |		EXTB.W	D0
00020704 41 fa fa d0              |A       |		LEA.L	0x201d6,A0
00020708 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
0002070c 4e ba fe 3c              |N  <    |		JSR	0x2054a
00020710 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020712 52 07                    |R       |		ADDQ.B	#0x1,D7
00020714 0c 07 00 08              |        |		CMPI.B	#0x08,D7
00020718 6f cc                    |o       |		BLE	0x206e6
0002071a 60 18                    |`       |		BRA	0x20734
0002071c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002071e 1f 00                    |        |		MOVE.B	D0,-(A7)
00020720 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020726 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020728 4a 1f                    |J       |		TST.B	(A7)+
0002072a 67 08                    |g       |		BEQ	0x20734
0002072c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002072e 4e ba fe 1a              |N       |		JSR	0x2054a
00020732 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020734 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00020738 4e 5e                    |N^      |		UNLK	A6
0002073a 4e 75                    |Nu      |		RTS
0002073c ; --------------------------------------------------------------------------------------
0002073c ; OMSI PASCAL Function
0002073c ;    <LVAR  0x008 1(r)>
0002073c ; --------------------------------------------------------------------------------------
0002073c 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020740 bf d5                    |        |		CMPA.L	(A5),A7
00020742 62 06                    |b       |		BHI	0x2074a
00020744 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020748 4e 76                    |Nv      |		TRAPV
0002074a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002074e 48 e7 83 80              |H       |		MOVEM.L	A0+D7+D6+D0,-(A7)
00020752 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020756 0c 00 00 05              |        |		CMPI.B	#0x05,D0
0002075a 67 3c                    |g<      |		BEQ	0x20798
0002075c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002075e 10 07                    |        |		MOVE.B	D7,D0
00020760 48 80                    |H       |		EXTB.W	D0
00020762 41 fa fa 72              |A  r    |		LEA.L	0x201d6,A0
00020766 1c 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D6
0002076a 10 06                    |        |		MOVE.B	D6,D0
0002076c 48 80                    |H       |		EXTB.W	D0
0002076e 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00020772 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020774 1f 00                    |        |		MOVE.B	D0,-(A7)
00020776 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002077c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002077e 4a 1f                    |J       |		TST.B	(A7)+
00020780 67 0e                    |g       |		BEQ	0x20790
00020782 b0 2e 00 08              | .      |		CMP.B	(A6+0x8),D0
00020786 67 08                    |g       |		BEQ	0x20790
00020788 1f 00                    |        |		MOVE.B	D0,-(A7)
0002078a 4e ba fd be              |N       |		JSR	0x2054a
0002078e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020790 52 07                    |R       |		ADDQ.B	#0x1,D7
00020792 0c 07 00 08              |        |		CMPI.B	#0x08,D7
00020796 6f c6                    |o       |		BLE	0x2075e
00020798 4c df 01 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0
0002079c 4e 5e                    |N^      |		UNLK	A6
0002079e 4e 75                    |Nu      |		RTS
000207a0 ; --------------------------------------------------------------------------------------
000207a0 ; OMSI PASCAL Function
000207a0 ;    <LVAR  0x00c 4(r)>
000207a0 ;    <LVAR  0x008 4(r)>
000207a0 ; --------------------------------------------------------------------------------------
000207a0 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
000207a4 bf d5                    |        |		CMPA.L	(A5),A7
000207a6 62 06                    |b       |		BHI	0x207ae
000207a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207ac 4e 76                    |Nv      |		TRAPV
000207ae de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000207b2 48 e7 c3 80              |H       |		MOVEM.L	A0+D7+D6+D1+D0,-(A7)
000207b6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000207b8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000207ba 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000207bc 10 06                    |        |		MOVE.B	D6,D0
000207be 48 80                    |H       |		EXTB.W	D0
000207c0 e3 40                    | @      |		ASL.W	#0x1,D0
000207c2 4a 36 00 10              |J6      |		TST.B	(A6+D0.W+#0x10)
000207c6 66 08                    |f       |		BNE	0x207d0
000207c8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000207cc 10 86                    |        |		MOVE.B	D6,(A0)
000207ce 52 87                    |R       |		ADDQ.L	#0x1,D7
000207d0 52 06                    |R       |		ADDQ.B	#0x1,D6
000207d2 0c 06 00 08              |        |		CMPI.B	#0x08,D6
000207d6 6f e4                    |o       |		BLE	0x207bc
000207d8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000207dc 10 bc 00 02              |        |		MOVE.B	#0x02,(A0)
000207e0 4a 87                    |J       |		TST.L	D7
000207e2 66 02                    |f       |		BNE	0x207e6
000207e4 42 10                    |B       |		CLR.B	(A0)
000207e6 be 81                    |        |		CMP.L	D1,D7
000207e8 66 02                    |f       |		BNE	0x207ec
000207ea 10 81                    |        |		MOVE.B	D1,(A0)
000207ec be b9 00 02 20 96        |        |		CMP.L	0x22096,D7
000207f2 66 04                    |f       |		BNE	0x207f8
000207f4 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
000207f8 4c df 01 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0
000207fc 4e 5e                    |N^      |		UNLK	A6
000207fe 4e 75                    |Nu      |		RTS
00020800 ; --------------------------------------------------------------------------------------
00020800 ; OMSI PASCAL Function
00020800 ;    <LVAR  0x00c 4(r)>
00020800 ;    <LVAR  0x008 4(r)>
00020800 ; --------------------------------------------------------------------------------------
00020800 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00020804 bf d5                    |        |		CMPA.L	(A5),A7
00020806 62 06                    |b       |		BHI	0x2080e
00020808 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002080c 4e 76                    |Nv      |		TRAPV
0002080e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020812 48 e7 c3 80              |H       |		MOVEM.L	A0+D7+D6+D1+D0,-(A7)
00020816 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020818 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002081a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002081c 10 06                    |        |		MOVE.B	D6,D0
0002081e 48 80                    |H       |		EXTB.W	D0
00020820 e3 40                    | @      |		ASL.W	#0x1,D0
00020822 4a 36 00 11              |J6      |		TST.B	(A6+D0.W+#0x11)
00020826 66 08                    |f       |		BNE	0x20830
00020828 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002082c 10 86                    |        |		MOVE.B	D6,(A0)
0002082e 52 87                    |R       |		ADDQ.L	#0x1,D7
00020830 52 06                    |R       |		ADDQ.B	#0x1,D6
00020832 0c 06 00 08              |        |		CMPI.B	#0x08,D6
00020836 6f e4                    |o       |		BLE	0x2081c
00020838 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002083c 10 bc 00 02              |        |		MOVE.B	#0x02,(A0)
00020840 4a 87                    |J       |		TST.L	D7
00020842 66 02                    |f       |		BNE	0x20846
00020844 42 10                    |B       |		CLR.B	(A0)
00020846 be 81                    |        |		CMP.L	D1,D7
00020848 66 02                    |f       |		BNE	0x2084c
0002084a 10 81                    |        |		MOVE.B	D1,(A0)
0002084c be b9 00 02 20 96        |        |		CMP.L	0x22096,D7
00020852 66 04                    |f       |		BNE	0x20858
00020854 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00020858 4c df 01 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0
0002085c 4e 5e                    |N^      |		UNLK	A6
0002085e 4e 75                    |Nu      |		RTS
00020860 ; --------------------------------------------------------------------------------------
00020860 ; OMSI PASCAL Function
00020860 ;    <LVAR  0x008 1(r)>
00020860 ; --------------------------------------------------------------------------------------
00020860 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020864 bf d5                    |        |		CMPA.L	(A5),A7
00020866 62 06                    |b       |		BHI	0x2086e
00020868 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002086c 4e 76                    |Nv      |		TRAPV
0002086e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020872 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00020876 43 f9 00 02 20 aa        |C       |		LEA.L	0x220aa,A1
0002087c 72 08                    |r       |		MOVEQ.L	#0x08,D1
0002087e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020880 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020884 4e ba fc 86              |N       |		JSR	0x2050c
00020888 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002088a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002088c 48 80                    |H       |		EXTB.W	D0
0002088e 41 81                    |A       |		CHK.W	D1,D0
00020890 1e 00                    |        |		MOVE.B	D0,D7
00020892 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020894 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020898 4e ba fc 72              |N  r    |		JSR	0x2050c
0002089c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002089e 10 17                    |        |		MOVE.B	(A7),D0
000208a0 48 80                    |H       |		EXTB.W	D0
000208a2 41 81                    |A       |		CHK.W	D1,D0
000208a4 1e 80                    |        |		MOVE.B	D0,(A7)
000208a6 4e ba fa 7c              |N  |    |		JSR	0x20324
000208aa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208ac 10 1f                    |        |		MOVE.B	(A7)+,D0
000208ae 48 80                    |H       |		EXTB.W	D0
000208b0 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
000208b4 13 c0 00 02 20 a2        |        |		MOVE.B	D0,0x220a2
000208ba 10 07                    |        |		MOVE.B	D7,D0
000208bc 48 80                    |H       |		EXTB.W	D0
000208be e3 40                    | @      |		ASL.W	#0x1,D0
000208c0 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
000208c6 4a 30 00 31              |J0 1    |		TST.B	(A0+D0.W+#0x31)
000208ca 66 0c                    |f       |		BNE	0x208d8
000208cc 4a 30 00 32              |J0 2    |		TST.B	(A0+D0.W+#0x32)
000208d0 66 06                    |f       |		BNE	0x208d8
000208d2 12 bc 00 09              |        |		MOVE.B	#0x09,(A1)
000208d6 60 28                    |`(      |		BRA	0x20900
000208d8 4a 30 00 31              |J0 1    |		TST.B	(A0+D0.W+#0x31)
000208dc 67 0c                    |g       |		BEQ	0x208ea
000208de 4a 30 00 32              |J0 2    |		TST.B	(A0+D0.W+#0x32)
000208e2 66 06                    |f       |		BNE	0x208ea
000208e4 12 bc 00 0a              |        |		MOVE.B	#0x0a,(A1)
000208e8 60 16                    |`       |		BRA	0x20900
000208ea 4a 30 00 31              |J0 1    |		TST.B	(A0+D0.W+#0x31)
000208ee 66 0c                    |f       |		BNE	0x208fc
000208f0 4a 30 00 32              |J0 2    |		TST.B	(A0+D0.W+#0x32)
000208f4 67 06                    |g       |		BEQ	0x208fc
000208f6 12 bc 00 0b              |        |		MOVE.B	#0x0b,(A1)
000208fa 60 04                    |`       |		BRA	0x20900
000208fc 12 bc 00 02              |        |		MOVE.B	#0x02,(A1)
00020900 42 27                    |B'      |		CLR.B	-(A7)
00020902 4e ba fb 0c              |N       |		JSR	0x20410
00020906 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020908 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
0002090c 4e 5e                    |N^      |		UNLK	A6
0002090e 4e 75                    |Nu      |		RTS
00020910 ; --------------------------------------------------------------------------------------
00020910 ; OMSI PASCAL Function
00020910 ;    <LVAR  0x00a 1(rw)>
00020910 ;    <LVAR  0x008 1(r)>
00020910 ;    <LVAR -0x002 @ 1(r)>
00020910 ;    <LVAR -0x006 @ 4(r)>
00020910 ; --------------------------------------------------------------------------------------
00020910 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00020914 bf d5                    |        |		CMPA.L	(A5),A7
00020916 62 06                    |b       |		BHI	0x2091e
00020918 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002091c 4e 76                    |Nv      |		TRAPV
0002091e de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00020922 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020926 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002092a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002092c 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020930 20 4f                    | O      |		MOVEA.L	A7,A0
00020932 43 fa f8 82              |C       |		LEA.L	0x201b6,A1
00020936 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020938 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002093a 51 c8 ff fc              |Q       |		DBF	D0,0x20938
0002093e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020940 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020944 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020946 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0002094a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020950 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020952 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020956 4e ba fa 08              |N       |		JSR	0x20360
0002095a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002095c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020962 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020964 48 52                    |HR      |		PEA.L	(A2)
00020966 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002096c de fc 00 10              |        |		ADDA.W	#0x10,A7
00020970 2e 92                    |.       |		MOVE.L	(A2),(A7)
00020972 42 27                    |B'      |		CLR.B	-(A7)
00020974 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
0002097a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002097c 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002097e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020980 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020986 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020988 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002098c 48 80                    |H       |		EXTB.W	D0
0002098e 41 fa f8 46              |A  F    |		LEA.L	0x201d6,A0
00020992 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00020996 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020998 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0002099c 4e ba fb 06              |N       |		JSR	0x204a4
000209a0 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000209a4 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
000209a8 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
000209ac b0 01                    |        |		CMP.B	D1,D0
000209ae 66 04                    |f       |		BNE	0x209b4
000209b0 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
000209b4 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000209b8 4e 5e                    |N^      |		UNLK	A6
000209ba 4e 75                    |Nu      |		RTS
000209bc ; --------------------------------------------------------------------------------------
000209bc ; OMSI PASCAL Function
000209bc ;    <LVAR -0x008 @ 1(r)>
000209bc ;    <LVAR -0x00c @ 4(r)>
000209bc ; --------------------------------------------------------------------------------------
000209bc 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
000209c0 bf d5                    |        |		CMPA.L	(A5),A7
000209c2 62 06                    |b       |		BHI	0x209ca
000209c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209c8 4e 76                    |Nv      |		TRAPV
000209ca de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000209ce 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000209d2 45 f9 00 02 20 a2        |E       |		LEA.L	0x220a2,A2
000209d8 47 f9 00 02 20 aa        |G       |		LEA.L	0x220aa,A3
000209de 49 f9 00 02 20 a3        |I       |		LEA.L	0x220a3,A4
000209e4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000209e6 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
000209e8 76 03                    |v       |		MOVEQ.L	#0x03,D3
000209ea 78 06                    |x       |		MOVEQ.L	#0x06,D4
000209ec 9e fc 00 10              |        |		SUBA.W	#0x10,A7
000209f0 20 4f                    | O      |		MOVEA.L	A7,A0
000209f2 43 fa f7 ce              |C       |		LEA.L	0x201c2,A1
000209f6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000209f8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209fa 51 c8 ff fc              |Q       |		DBF	D0,0x209f8
000209fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a06 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a08 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a10 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020a14 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00020a1a de fc 00 14              |        |		ADDA.W	#0x14,A7
00020a1e 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00020a22 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a24 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020a2a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a2c 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00020a30 42 27                    |B'      |		CLR.B	-(A7)
00020a32 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020a38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a3a 1e 83                    |        |		MOVE.B	D3,(A7)
00020a3c 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00020a40 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020a44 4e ba fa 5e              |N  ^    |		JSR	0x204a4
00020a48 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020a4c 10 2e ff f8              | .      |		MOVE.B	(A6-0x8),D0
00020a50 b0 01                    |        |		CMP.B	D1,D0
00020a52 67 0e                    |g       |		BEQ	0x20a62
00020a54 14 84                    |        |		MOVE.B	D4,(A2)
00020a56 16 bc 00 0c              |        |		MOVE.B	#0x0c,(A3)
00020a5a 42 27                    |B'      |		CLR.B	-(A7)
00020a5c 4e ba f9 b2              |N       |		JSR	0x20410
00020a60 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a62 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020a64 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020a66 0c 06 00 04              |        |		CMPI.B	#0x04,D6
00020a6a 67 44                    |gD      |		BEQ	0x20ab0
00020a6c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a6e 10 06                    |        |		MOVE.B	D6,D0
00020a70 48 80                    |H       |		EXTB.W	D0
00020a72 41 fa f7 62              |A  b    |		LEA.L	0x201d6,A0
00020a76 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00020a7a 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020a80 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a82 4a 1f                    |J       |		TST.B	(A7)+
00020a84 67 2a                    |g*      |		BEQ	0x20ab0
00020a86 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a88 1f 06                    |        |		MOVE.B	D6,-(A7)
00020a8a 4e ba fe 84              |N       |		JSR	0x20910
00020a8e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a90 4a 1f                    |J       |		TST.B	(A7)+
00020a92 66 1c                    |f       |		BNE	0x20ab0
00020a94 52 87                    |R       |		ADDQ.L	#0x1,D7
00020a96 1a 06                    |        |		MOVE.B	D6,D5
00020a98 10 06                    |        |		MOVE.B	D6,D0
00020a9a 48 80                    |H       |		EXTB.W	D0
00020a9c 41 fa f7 38              |A  8    |		LEA.L	0x201d6,A0
00020aa0 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00020aa4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020aa8 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020aae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ab0 52 06                    |R       |		ADDQ.B	#0x1,D6
00020ab2 0c 06 00 08              |        |		CMPI.B	#0x08,D6
00020ab6 6f ae                    |o       |		BLE	0x20a66
00020ab8 1f 03                    |        |		MOVE.B	D3,-(A7)
00020aba 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020abe 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020ac4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ac6 4a 87                    |J       |		TST.L	D7
00020ac8 67 54                    |gT      |		BEQ	0x20b1e
00020aca be 81                    |        |		CMP.L	D1,D7
00020acc 66 26                    |f&      |		BNE	0x20af4
00020ace 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ad0 10 05                    |        |		MOVE.B	D5,D0
00020ad2 48 80                    |H       |		EXTB.W	D0
00020ad4 41 bc 00 08              |A       |		CHK.W	#0x8,D0
00020ad8 1f 00                    |        |		MOVE.B	D0,-(A7)
00020ada 4e ba f8 48              |N  H    |		JSR	0x20324
00020ade 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ae0 10 1f                    |        |		MOVE.B	(A7)+,D0
00020ae2 48 80                    |H       |		EXTB.W	D0
00020ae4 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
00020ae8 14 80                    |        |		MOVE.B	D0,(A2)
00020aea 18 bc 00 2a              |   *    |		MOVE.B	#0x2a,(A4)
00020aee 16 bc 00 0d              |        |		MOVE.B	#0x0d,(A3)
00020af2 60 22                    |`"      |		BRA	0x20b16
00020af4 20 39 00 02 20 96        | 9      |		MOVE.L	0x22096,D0
00020afa 53 80                    |S       |		SUBQ.L	#0x1,D0
00020afc be 80                    |        |		CMP.L	D0,D7
00020afe 66 0c                    |f       |		BNE	0x20b0c
00020b00 14 84                    |        |		MOVE.B	D4,(A2)
00020b02 18 bc 00 2a              |   *    |		MOVE.B	#0x2a,(A4)
00020b06 16 bc 00 0e              |        |		MOVE.B	#0x0e,(A3)
00020b0a 60 0a                    |`       |		BRA	0x20b16
00020b0c 14 bc 00 29              |   )    |		MOVE.B	#0x29,(A2)
00020b10 18 bc 00 28              |   (    |		MOVE.B	#0x28,(A4)
00020b14 16 82                    |        |		MOVE.B	D2,(A3)
00020b16 42 27                    |B'      |		CLR.B	-(A7)
00020b18 4e ba f8 f6              |N       |		JSR	0x20410
00020b1c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b1e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020b22 4e 5e                    |N^      |		UNLK	A6
00020b24 4e 75                    |Nu      |		RTS
00020b26 ; --------------------------------------------------------------------------------------
00020b26 ; OMSI PASCAL Function
00020b26 ;    <LVAR  0x00a 2(rw)>
00020b26 ;    <LVAR  0x008 2(r)>
00020b26 ; --------------------------------------------------------------------------------------
00020b26 4e 56 ff f6              |NV      |		LINK.W	A6,#0xfff6
00020b2a bf d5                    |        |		CMPA.L	(A5),A7
00020b2c 62 06                    |b       |		BHI	0x20b34
00020b2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b32 4e 76                    |Nv      |		TRAPV
00020b34 de fc 00 08              |        |		ADDA.W	#0x8,A7
00020b38 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020b3c 41 ee 00 0a              |A       |		LEA.L	(A6+0xa),A0
00020b40 30 ae 00 08              |0       |		MOVE.W	(A6+0x8),(A0)
00020b44 46 50                    |FP      |		NOT.W	(A0)
00020b46 02 50 00 ff              | P      |		ANDI.W	#0x00ff,(A0)
00020b4a 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020b4e 4e 5e                    |N^      |		UNLK	A6
00020b50 4e 75                    |Nu      |		RTS
00020b52 ; --------------------------------------------------------------------------------------
00020b52 ; OMSI PASCAL Function
00020b52 ; --------------------------------------------------------------------------------------
00020b52 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00020b56 bf d5                    |        |		CMPA.L	(A5),A7
00020b58 62 06                    |b       |		BHI	0x20b60
00020b5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b5e 4e 76                    |Nv      |		TRAPV
00020b60 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020b64 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020b68 41 f9 00 02 20 e5        |A       |		LEA.L	0x220e5,A0
00020b6e 4a 39 00 02 20 e4        |J9      |		TST.B	0x220e4
00020b74 67 1c                    |g       |		BEQ	0x20b92
00020b76 10 10                    |        |		MOVE.B	(A0),D0
00020b78 0c 00 00 03              |        |		CMPI.B	#0x03,D0
00020b7c 66 06                    |f       |		BNE	0x20b84
00020b7e 4e b9 00 02 1c 60        |N    `  |		JSR	exp_FORCE_SYNC.FIU()
00020b84 10 10                    |        |		MOVE.B	(A0),D0
00020b86 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00020b8a 66 06                    |f       |		BNE	0x20b92
00020b8c 4e b9 00 02 1d 0e        |N       |		JSR	exp_FORCE_SYNC.SEQ()
00020b92 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020b96 4e 5e                    |N^      |		UNLK	A6
00020b98 4e 75                    |Nu      |		RTS
00020b9a ; --------------------------------------------------------------------------------------
00020b9a ; OMSI PASCAL Function
00020b9a ; --------------------------------------------------------------------------------------
00020b9a 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00020b9e bf d5                    |        |		CMPA.L	(A5),A7
00020ba0 62 06                    |b       |		BHI	0x20ba8
00020ba2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ba6 4e 76                    |Nv      |		TRAPV
00020ba8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020bac 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00020bb0 10 39 00 02 20 e5        | 9      |		MOVE.B	0x220e5,D0
00020bb6 48 80                    |H       |		EXTB.W	D0
00020bb8 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00020bbc 1f 00                    |        |		MOVE.B	D0,-(A7)
00020bbe 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020bc2 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020bc8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bca 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00020bce 4e 5e                    |N^      |		UNLK	A6
00020bd0 4e 75                    |Nu      |		RTS
00020bd2 ; --------------------------------------------------------------------------------------
00020bd2 ; OMSI PASCAL Function
00020bd2 ;    <LVAR  0x008 1(w)>
00020bd2 ;    <LVAR -0x004 @ 2(r)>
00020bd2 ;    <LVAR -0x006 2(r)>
00020bd2 ;    <LVAR -0x00c @ 2(r)>
00020bd2 ; --------------------------------------------------------------------------------------
00020bd2 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00020bd6 bf d5                    |        |		CMPA.L	(A5),A7
00020bd8 62 06                    |b       |		BHI	0x20be0
00020bda 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bde 4e 76                    |Nv      |		TRAPV
00020be0 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00020be4 48 e7 c1 00              |H       |		MOVEM.L	D7+D1+D0,-(A7)
00020be8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020bea 42 27                    |B'      |		CLR.B	-(A7)
00020bec 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020bf0 4e b9 00 02 1f e0        |N       |		JSR	exp_READ_UIR.IOC(Sw_1, &Sr_2)
00020bf6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020bf8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020bfa be 81                    |        |		CMP.L	D1,D7
00020bfc 63 02                    |c       |		BLS	0x20c00
00020bfe 4e 4f                    |NO      |		TRAP	#15
00020c00 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c02 42 80                    |B       |		CLR.L	D0
00020c04 10 36 78 f4              | 6x     |		MOVE.B	(A6+D7.L-#0xc),D0
00020c08 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020c0a 4e ba ff 1a              |N       |		JSR	0x20b26
00020c0e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c10 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020c12 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020c16 1d 80 78 fa              |  x     |		MOVE.B	D0,(A6+D7.L-#0x6)
00020c1a 52 87                    |R       |		ADDQ.L	#0x1,D7
00020c1c be 81                    |        |		CMP.L	D1,D7
00020c1e 6f da                    |o       |		BLE	0x20bfa
00020c20 4e ba ff 30              |N  0    |		JSR	0x20b52
00020c24 3f 2e ff fa              |?.      |		MOVE.W	(A6-0x6),-(A7)
00020c28 42 27                    |B'      |		CLR.B	-(A7)
00020c2a 4e b9 00 02 1f fc        |N       |		JSR	exp_LOAD_UIR.IOC(Sw_2, Sw_1)
00020c30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c32 4e ba ff 66              |N  f    |		JSR	0x20b9a
00020c36 42 27                    |B'      |		CLR.B	-(A7)
00020c38 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020c3c 4e b9 00 02 1f e0        |N       |		JSR	exp_READ_UIR.IOC(Sw_1, &Sr_2)
00020c42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c44 3e ae ff f4              |>       |		MOVE.W	(A6-0xc),(A7)
00020c48 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
00020c4c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c4e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c52 48 78 00 00              |Hx      |		PEA.L	0x0
00020c56 48 78 00 01              |Hx      |		PEA.L	0x1
00020c5a 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020c5e 48 78 00 00              |Hx      |		PEA.L	0x0
00020c62 48 78 00 01              |Hx      |		PEA.L	0x1
00020c66 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
00020c6c de fc 00 18              |        |		ADDA.W	#0x18,A7
00020c70 10 1f                    |        |		MOVE.B	(A7)+,D0
00020c72 48 80                    |H       |		EXTB.W	D0
00020c74 41 81                    |A       |		CHK.W	D1,D0
00020c76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c78 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
00020c7c 4c df 00 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7
00020c80 4e 5e                    |N^      |		UNLK	A6
00020c82 4e 75                    |Nu      |		RTS
00020c84 ; --------------------------------------------------------------------------------------
00020c84 ; OMSI PASCAL Function
00020c84 ; --------------------------------------------------------------------------------------
00020c84 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec		; Spelunked
00020c88 bf d5                    |        |		CMPA.L	(A5),A7
00020c8a 62 06                    |b       |		BHI	0x20c92
00020c8c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c90 4e 76                    |Nv      |		TRAPV
00020c92 de fc 00 04              |        |		ADDA.W	#0x4,A7
00020c96 4e 5e                    |N^      |		UNLK	A6
00020c98 4e 75                    |Nu      |		RTS
00020c9a ; --------------------------------------------------------------------------------------
00020c9a ; OMSI PASCAL Function
00020c9a ;    <LVAR  0x008 1(w)>
00020c9a ;    <LVAR -0x005 @>
00020c9a ;    <LVAR -0x014 @>
00020c9a ; --------------------------------------------------------------------------------------
00020c9a 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00020c9e bf d5                    |        |		CMPA.L	(A5),A7
00020ca0 62 06                    |b       |		BHI	0x20ca8
00020ca2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ca6 4e 76                    |Nv      |		TRAPV
00020ca8 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00020cac 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00020cb0 72 04                    |r       |		MOVEQ.L	#0x04,D1
00020cb2 42 27                    |B'      |		CLR.B	-(A7)
00020cb4 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00020cb8 4e b9 00 02 1d 62        |N    b  |		JSR	exp_READ_UIR.VAL(Sw_1, &Sr_5)
00020cbe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cc0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020cc2 be 81                    |        |		CMP.L	D1,D7
00020cc4 63 02                    |c       |		BLS	0x20cc8
00020cc6 4e 4f                    |NO      |		TRAP	#15
00020cc8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020cca 42 80                    |B       |		CLR.L	D0
00020ccc 10 36 78 ec              | 6x     |		MOVE.B	(A6+D7.L-#0x14),D0
00020cd0 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cd2 4e ba fe 52              |N  R    |		JSR	0x20b26
00020cd6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cd8 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020cda 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020cde 1d 80 78 f6              |  x     |		MOVE.B	D0,(A6+D7.L-#0xa)
00020ce2 52 87                    |R       |		ADDQ.L	#0x1,D7
00020ce4 be 81                    |        |		CMP.L	D1,D7
00020ce6 6f da                    |o       |		BLE	0x20cc2
00020ce8 4e ba fe 68              |N  h    |		JSR	0x20b52
00020cec 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020cee 20 4f                    | O      |		MOVEA.L	A7,A0
00020cf0 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00020cf4 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020cf6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020cf8 51 c8 ff fc              |Q       |		DBF	D0,0x20cf6
00020cfc 42 27                    |B'      |		CLR.B	-(A7)
00020cfe 4e b9 00 02 1d 7e        |N    ~  |		JSR	exp_LOAD_UIR.VAL(Sw_5, Sw_1)
00020d04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d06 4e ba fe 92              |N       |		JSR	0x20b9a
00020d0a 42 27                    |B'      |		CLR.B	-(A7)
00020d0c 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00020d10 4e b9 00 02 1d 62        |N    b  |		JSR	exp_READ_UIR.VAL(Sw_1, &Sr_5)
00020d16 20 4f                    | O      |		MOVEA.L	A7,A0
00020d18 43 ee ff ec              |C       |		LEA.L	(A6-0x14),A1
00020d1c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020d1e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d20 51 c8 ff fc              |Q       |		DBF	D0,0x20d1e
00020d24 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d26 20 4f                    | O      |		MOVEA.L	A7,A0
00020d28 43 ee ff fb              |C       |		LEA.L	(A6-0x5),A1
00020d2c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020d2e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d30 51 c8 ff fc              |Q       |		DBF	D0,0x20d2e
00020d34 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d36 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020d3a 48 78 00 00              |Hx      |		PEA.L	0x0
00020d3e 48 78 00 04              |Hx      |		PEA.L	0x4
00020d42 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020d46 48 78 00 00              |Hx      |		PEA.L	0x0
00020d4a 48 78 00 04              |Hx      |		PEA.L	0x4
00020d4e 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
00020d54 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020d58 10 1f                    |        |		MOVE.B	(A7)+,D0
00020d5a 48 80                    |H       |		EXTB.W	D0
00020d5c 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00020d60 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020d64 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
00020d68 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00020d6c 4e 5e                    |N^      |		UNLK	A6
00020d6e 4e 75                    |Nu      |		RTS
00020d70 ; --------------------------------------------------------------------------------------
00020d70 ; OMSI PASCAL Function
00020d70 ;    <LVAR  0x008 1(w)>
00020d70 ;    <LVAR -0x004 2(r)>
00020d70 ;    <LVAR -0x006 2(r)>
00020d70 ;    <LVAR -0x008 @ 2(r)>
00020d70 ;    <LVAR -0x00a 2(r)>
00020d70 ;    <LVAR -0x00c 2(r)>
00020d70 ;    <LVAR -0x00e 2(r)>
00020d70 ;    <LVAR -0x014 2(r)>
00020d70 ;    <LVAR -0x016 2(r)>
00020d70 ;    <LVAR -0x018 @ 2(r)>
00020d70 ; --------------------------------------------------------------------------------------
00020d70 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020d74 bf d5                    |        |		CMPA.L	(A5),A7
00020d76 62 06                    |b       |		BHI	0x20d7e
00020d78 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d7c 4e 76                    |Nv      |		TRAPV
00020d7e de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00020d82 48 e7 c1 00              |H       |		MOVEM.L	D7+D1+D0,-(A7)
00020d86 72 05                    |r       |		MOVEQ.L	#0x05,D1
00020d88 42 27                    |B'      |		CLR.B	-(A7)
00020d8a 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020d8e 4e b9 00 02 1d 2a        |N    *  |		JSR	exp_READ_UIR.TYP(Sw_1, &Sr_6)
00020d94 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d96 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d98 be 81                    |        |		CMP.L	D1,D7
00020d9a 63 02                    |c       |		BLS	0x20d9e
00020d9c 4e 4f                    |NO      |		TRAP	#15
00020d9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020da0 42 80                    |B       |		CLR.L	D0
00020da2 10 36 78 e8              | 6x     |		MOVE.B	(A6+D7.L-#0x18),D0
00020da6 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020da8 4e ba fd 7c              |N  |    |		JSR	0x20b26
00020dac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020dae 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020db0 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020db4 1d 80 78 f2              |  x     |		MOVE.B	D0,(A6+D7.L-#0xe)
00020db8 52 87                    |R       |		ADDQ.L	#0x1,D7
00020dba be 81                    |        |		CMP.L	D1,D7
00020dbc 6f da                    |o       |		BLE	0x20d98
00020dbe 4e ba fd 92              |N       |		JSR	0x20b52
00020dc2 3f 2e ff f6              |?.      |		MOVE.W	(A6-0xa),-(A7)
00020dc6 3f 2e ff f4              |?.      |		MOVE.W	(A6-0xc),-(A7)
00020dca 3f 2e ff f2              |?.      |		MOVE.W	(A6-0xe),-(A7)
00020dce 42 27                    |B'      |		CLR.B	-(A7)
00020dd0 4e b9 00 02 1d 46        |N    F  |		JSR	exp_LOAD_UIR.TYP(Sw_6, Sw_1)
00020dd6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020dd8 4e ba fd c0              |N       |		JSR	0x20b9a
00020ddc 42 27                    |B'      |		CLR.B	-(A7)
00020dde 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020de2 4e b9 00 02 1d 2a        |N    *  |		JSR	exp_READ_UIR.TYP(Sw_1, &Sr_6)
00020de8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dea 3e ae ff ec              |>       |		MOVE.W	(A6-0x14),(A7)
00020dee 3f 2e ff ea              |?.      |		MOVE.W	(A6-0x16),-(A7)
00020df2 3f 2e ff e8              |?.      |		MOVE.W	(A6-0x18),-(A7)
00020df6 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
00020dfa 3f 2e ff fa              |?.      |		MOVE.W	(A6-0x6),-(A7)
00020dfe 3f 2e ff f8              |?.      |		MOVE.W	(A6-0x8),-(A7)
00020e02 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e04 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020e08 48 78 00 00              |Hx      |		PEA.L	0x0
00020e0c 48 78 00 05              |Hx      |		PEA.L	0x5
00020e10 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020e14 48 78 00 00              |Hx      |		PEA.L	0x0
00020e18 48 78 00 05              |Hx      |		PEA.L	0x5
00020e1c 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
00020e22 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020e26 10 1f                    |        |		MOVE.B	(A7)+,D0
00020e28 48 80                    |H       |		EXTB.W	D0
00020e2a 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00020e2e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020e32 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
00020e36 4c df 00 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7
00020e3a 4e 5e                    |N^      |		UNLK	A6
00020e3c 4e 75                    |Nu      |		RTS
00020e3e ; --------------------------------------------------------------------------------------
00020e3e ; OMSI PASCAL Function
00020e3e ;    <LVAR  0x008 1(w)>
00020e3e ;    <LVAR -0x006 4(r)>
00020e3e ;    <LVAR -0x00a 4(r)>
00020e3e ;    <LVAR -0x00e 4(r)>
00020e3e ;    <LVAR -0x012 @ 4(r)>
00020e3e ;    <LVAR -0x016 4(r)>
00020e3e ;    <LVAR -0x01a 4(r)>
00020e3e ;    <LVAR -0x01e 4(r)>
00020e3e ;    <LVAR -0x022 4(r)>
00020e3e ;    <LVAR -0x026 4(r)>
00020e3e ;    <LVAR -0x02a 4(r)>
00020e3e ;    <LVAR -0x02e 4(r)>
00020e3e ;    <LVAR -0x032 @ 4(r)>
00020e3e ;    <LVAR -0x034 2(r)>
00020e3e ;    <LVAR -0x036 2(r)>
00020e3e ;    <LVAR -0x038 @ 2(r)>
00020e3e ;    <LVAR -0x03a 2(r)>
00020e3e ;    <LVAR -0x03c 2(r)>
00020e3e ;    <LVAR -0x03e 2(r)>
00020e3e ;    <LVAR -0x044 2(r)>
00020e3e ;    <LVAR -0x046 2(r)>
00020e3e ;    <LVAR -0x048 @ 2(r)>
00020e3e ; --------------------------------------------------------------------------------------
00020e3e 4e 56 ff 4c              |NV L    |		LINK.W	A6,#0xff4c
00020e42 bf d5                    |        |		CMPA.L	(A5),A7
00020e44 62 06                    |b       |		BHI	0x20e4c
00020e46 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e4a 4e 76                    |Nv      |		TRAPV
00020e4c de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00020e50 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020e54 41 f8 00 00              |A       |		LEA.L	0x0,A0
00020e58 43 fa fc cc              |C       |		LEA.L	0x20b26,A1
00020e5c 45 f9 00 01 04 a8        |E       |		LEA.L	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool,A2
00020e62 72 07                    |r       |		MOVEQ.L	#0x07,D1
00020e64 74 05                    |t       |		MOVEQ.L	#0x05,D2
00020e66 36 3c 00 ff              |6<      |		MOVE.W	#0xff,D3
00020e6a 78 18                    |x       |		MOVEQ.L	#0x18,D4
00020e6c 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00020e6e 48 6e ff b8              |Hn      |		PEA.L	(A6-0x48)
00020e72 4e b9 00 02 1c 98        |N       |		JSR	exp_READ_UIR.SEQ(&Sr_6)
00020e78 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e7a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e7c be 82                    |        |		CMP.L	D2,D7
00020e7e 63 02                    |c       |		BLS	0x20e82
00020e80 4e 4f                    |NO      |		TRAP	#15
00020e82 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e84 42 80                    |B       |		CLR.L	D0
00020e86 10 36 78 b8              | 6x     |		MOVE.B	(A6+D7.L-#0x48),D0
00020e8a 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020e8c 4e 91                    |N       |		JSR	(A1)
00020e8e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e90 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020e92 41 83                    |A       |		CHK.W	D3,D0
00020e94 1d 80 78 c2              |  x     |		MOVE.B	D0,(A6+D7.L-#0x3e)
00020e98 52 87                    |R       |		ADDQ.L	#0x1,D7
00020e9a be 82                    |        |		CMP.L	D2,D7
00020e9c 6f de                    |o       |		BLE	0x20e7c
00020e9e 4e ba fc b2              |N       |		JSR	0x20b52
00020ea2 3f 2e ff c6              |?.      |		MOVE.W	(A6-0x3a),-(A7)
00020ea6 3f 2e ff c4              |?.      |		MOVE.W	(A6-0x3c),-(A7)
00020eaa 3f 2e ff c2              |?.      |		MOVE.W	(A6-0x3e),-(A7)
00020eae 4e b9 00 02 1c f4        |N       |		JSR	exp_LOAD_UIR.SEQ(Sw_6)
00020eb4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020eb6 4e ba fc e2              |N       |		JSR	0x20b9a
00020eba 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
00020ebe 4e b9 00 02 1c 98        |N       |		JSR	exp_READ_UIR.SEQ(&Sr_6)
00020ec4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ec6 3e ae ff bc              |>       |		MOVE.W	(A6-0x44),(A7)
00020eca 3f 2e ff ba              |?.      |		MOVE.W	(A6-0x46),-(A7)
00020ece 3f 2e ff b8              |?.      |		MOVE.W	(A6-0x48),-(A7)
00020ed2 3f 2e ff cc              |?.      |		MOVE.W	(A6-0x34),-(A7)
00020ed6 3f 2e ff ca              |?.      |		MOVE.W	(A6-0x36),-(A7)
00020eda 3f 2e ff c8              |?.      |		MOVE.W	(A6-0x38),-(A7)
00020ede 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ee0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020ee4 48 50                    |HP      |		PEA.L	(A0)
00020ee6 48 78 00 05              |Hx      |		PEA.L	0x5
00020eea 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020eee 48 50                    |HP      |		PEA.L	(A0)
00020ef0 48 78 00 05              |Hx      |		PEA.L	0x5
00020ef4 4e 92                    |N       |		JSR	(A2)
00020ef6 de c4                    |        |		ADDA.W	D4,A7
00020ef8 10 1f                    |        |		MOVE.B	(A7)+,D0
00020efa 48 80                    |H       |		EXTB.W	D0
00020efc 41 85                    |A       |		CHK.W	D5,D0
00020efe de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020f02 1c 00                    |        |		MOVE.B	D0,D6
00020f04 67 00 00 e8              |g       |		BEQ	0x20fee
00020f08 48 6e ff ce              |Hn      |		PEA.L	(A6-0x32)
00020f0c 4e b9 00 02 1c b2        |N       |		JSR	exp_READ_SEQ.SEQ(&Sr_8_8)
00020f12 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f14 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f16 be 81                    |        |		CMP.L	D1,D7
00020f18 63 02                    |c       |		BLS	0x20f1c
00020f1a 4e 4f                    |NO      |		TRAP	#15
00020f1c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020f1e 42 80                    |B       |		CLR.L	D0
00020f20 10 36 78 ce              | 6x     |		MOVE.B	(A6+D7.L-#0x32),D0
00020f24 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020f26 4e 91                    |N       |		JSR	(A1)
00020f28 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f2a 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020f2c 41 83                    |A       |		CHK.W	D3,D0
00020f2e 1d 80 78 de              |  x     |		MOVE.B	D0,(A6+D7.L-#0x22)
00020f32 52 87                    |R       |		ADDQ.L	#0x1,D7
00020f34 be 81                    |        |		CMP.L	D1,D7
00020f36 6f de                    |o       |		BLE	0x20f16
00020f38 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f3a be 81                    |        |		CMP.L	D1,D7
00020f3c 63 02                    |c       |		BLS	0x20f40
00020f3e 4e 4f                    |NO      |		TRAP	#15
00020f40 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020f42 42 80                    |B       |		CLR.L	D0
00020f44 10 36 78 d6              | 6x     |		MOVE.B	(A6+D7.L-#0x2a),D0
00020f48 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020f4a 4e 91                    |N       |		JSR	(A1)
00020f4c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f4e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020f50 41 83                    |A       |		CHK.W	D3,D0
00020f52 1d 80 78 e6              |  x     |		MOVE.B	D0,(A6+D7.L-#0x1a)
00020f56 52 87                    |R       |		ADDQ.L	#0x1,D7
00020f58 be 81                    |        |		CMP.L	D1,D7
00020f5a 6f de                    |o       |		BLE	0x20f3a
00020f5c 4e ba fb f4              |N       |		JSR	0x20b52
00020f60 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00020f64 2f 2e ff e6              |/.      |		MOVE.L	(A6-0x1a),-(A7)
00020f68 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
00020f6c 2f 2e ff de              |/.      |		MOVE.L	(A6-0x22),-(A7)
00020f70 4e b9 00 02 1c 7c        |N    |  |		JSR	exp_WRITE_SEQ.SEQ(Sw_8_8)
00020f76 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020f7a 4e ba fc 1e              |N       |		JSR	0x20b9a
00020f7e 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020f82 4e b9 00 02 1c b2        |N       |		JSR	exp_READ_SEQ.SEQ(&Sr_8_8)
00020f88 2e ae ff d2              |.       |		MOVE.L	(A6-0x2e),(A7)
00020f8c 2f 2e ff ce              |/.      |		MOVE.L	(A6-0x32),-(A7)
00020f90 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020f94 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00020f98 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020f9a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020f9e 48 50                    |HP      |		PEA.L	(A0)
00020fa0 48 78 00 07              |Hx      |		PEA.L	0x7
00020fa4 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020fa8 48 50                    |HP      |		PEA.L	(A0)
00020faa 48 78 00 07              |Hx      |		PEA.L	0x7
00020fae 4e 92                    |N       |		JSR	(A2)
00020fb0 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020fb4 2e ae ff da              |.       |		MOVE.L	(A6-0x26),(A7)
00020fb8 2f 2e ff d6              |/.      |		MOVE.L	(A6-0x2a),-(A7)
00020fbc 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020fc0 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020fc4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020fc6 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020fca 48 50                    |HP      |		PEA.L	(A0)
00020fcc 48 78 00 07              |Hx      |		PEA.L	0x7
00020fd0 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020fd4 48 50                    |HP      |		PEA.L	(A0)
00020fd6 48 78 00 07              |Hx      |		PEA.L	0x7
00020fda 4e 92                    |N       |		JSR	(A2)
00020fdc de c4                    |        |		ADDA.W	D4,A7
00020fde 10 2f 00 12              | /      |		MOVE.B	(A7+0x12),D0
00020fe2 c0 1f                    |        |		AND.B	(A7)+,D0
00020fe4 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020fe8 48 80                    |H       |		EXTB.W	D0
00020fea 41 85                    |A       |		CHK.W	D5,D0
00020fec 1c 00                    |        |		MOVE.B	D0,D6
00020fee 1d 46 00 08              | F      |		MOVE.B	D6,(A6+0x8)
00020ff2 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00020ff6 4e 5e                    |N^      |		UNLK	A6
00020ff8 4e 75                    |Nu      |		RTS
00020ffa ; --------------------------------------------------------------------------------------
00020ffa ; OMSI PASCAL Function
00020ffa ;    <LVAR  0x008 1(w)>
00020ffa ;    <LVAR -0x004 2(r)>
00020ffa ;    <LVAR -0x006 2(r)>
00020ffa ;    <LVAR -0x008 @ 2(r)>
00020ffa ;    <LVAR -0x00a 2(r)>
00020ffa ;    <LVAR -0x00c 2(r)>
00020ffa ;    <LVAR -0x00e 2(r)>
00020ffa ;    <LVAR -0x014 2(r)>
00020ffa ;    <LVAR -0x016 2(r)>
00020ffa ;    <LVAR -0x018 @ 2(r)>
00020ffa ; --------------------------------------------------------------------------------------
00020ffa 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020ffe bf d5                    |        |		CMPA.L	(A5),A7
00021000 62 06                    |b       |		BHI	0x21008
00021002 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021006 4e 76                    |Nv      |		TRAPV
00021008 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
0002100c 48 e7 c1 00              |H       |		MOVEM.L	D7+D1+D0,-(A7)
00021010 72 05                    |r       |		MOVEQ.L	#0x05,D1
00021012 42 27                    |B'      |		CLR.B	-(A7)
00021014 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021018 4e b9 00 02 1c 28        |N    (  |		JSR	exp_READ_UIR.FIU(Sw_1, &Sr_6)
0002101e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021020 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021022 be 81                    |        |		CMP.L	D1,D7
00021024 63 02                    |c       |		BLS	0x21028
00021026 4e 4f                    |NO      |		TRAP	#15
00021028 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002102a 42 80                    |B       |		CLR.L	D0
0002102c 10 36 78 e8              | 6x     |		MOVE.B	(A6+D7.L-#0x18),D0
00021030 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021032 4e ba fa f2              |N       |		JSR	0x20b26
00021036 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021038 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002103a 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002103e 1d 80 78 f2              |  x     |		MOVE.B	D0,(A6+D7.L-#0xe)
00021042 52 87                    |R       |		ADDQ.L	#0x1,D7
00021044 be 81                    |        |		CMP.L	D1,D7
00021046 6f da                    |o       |		BLE	0x21022
00021048 4e ba fb 08              |N       |		JSR	0x20b52
0002104c 3f 2e ff f6              |?.      |		MOVE.W	(A6-0xa),-(A7)
00021050 3f 2e ff f4              |?.      |		MOVE.W	(A6-0xc),-(A7)
00021054 3f 2e ff f2              |?.      |		MOVE.W	(A6-0xe),-(A7)
00021058 42 27                    |B'      |		CLR.B	-(A7)
0002105a 4e b9 00 02 1c 44        |N    D  |		JSR	exp_LOAD_UIR.FIU(Sw_6, Sw_1)
00021060 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021062 4e ba fb 36              |N  6    |		JSR	0x20b9a
00021066 42 27                    |B'      |		CLR.B	-(A7)
00021068 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002106c 4e b9 00 02 1c 28        |N    (  |		JSR	exp_READ_UIR.FIU(Sw_1, &Sr_6)
00021072 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021074 3e ae ff ec              |>       |		MOVE.W	(A6-0x14),(A7)
00021078 3f 2e ff ea              |?.      |		MOVE.W	(A6-0x16),-(A7)
0002107c 3f 2e ff e8              |?.      |		MOVE.W	(A6-0x18),-(A7)
00021080 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
00021084 3f 2e ff fa              |?.      |		MOVE.W	(A6-0x6),-(A7)
00021088 3f 2e ff f8              |?.      |		MOVE.W	(A6-0x8),-(A7)
0002108c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002108e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021092 48 78 00 00              |Hx      |		PEA.L	0x0
00021096 48 78 00 05              |Hx      |		PEA.L	0x5
0002109a 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
0002109e 48 78 00 00              |Hx      |		PEA.L	0x0
000210a2 48 78 00 05              |Hx      |		PEA.L	0x5
000210a6 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000210ac de fc 00 18              |        |		ADDA.W	#0x18,A7
000210b0 10 1f                    |        |		MOVE.B	(A7)+,D0
000210b2 48 80                    |H       |		EXTB.W	D0
000210b4 41 bc 00 01              |A       |		CHK.W	#0x1,D0
000210b8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000210bc 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
000210c0 4c df 00 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7
000210c4 4e 5e                    |N^      |		UNLK	A6
000210c6 4e 75                    |Nu      |		RTS
000210c8 ; --------------------------------------------------------------------------------------
000210c8 ; OMSI PASCAL Function
000210c8 ;    <LVAR  0x00a 1(w)>
000210c8 ;    <LVAR  0x008 1(r)>
000210c8 ;    <LVAR -0x007 @ 1(r)>
000210c8 ;    <LVAR -0x008 1(w)>
000210c8 ;    <LVAR -0x009 1(w)>
000210c8 ;    <LVAR -0x00a 1(w)>
000210c8 ;    <LVAR -0x00b 1(w)>
000210c8 ;    <LVAR -0x00c 1(w)>
000210c8 ;    <LVAR -0x00d 1(w)>
000210c8 ;    <LVAR -0x00e 1(w)>
000210c8 ;    <LVAR -0x00f 1(w)>
000210c8 ;    <LVAR -0x010 1(w)>
000210c8 ;    <LVAR -0x011 1(r)>
000210c8 ;    <LVAR -0x012 1(r)>
000210c8 ;    <LVAR -0x013 1(r)>
000210c8 ;    <LVAR -0x014 1(r)>
000210c8 ;    <LVAR -0x018 4(r)>
000210c8 ;    <LVAR -0x019 @ 1(r)>
000210c8 ;    <LVAR -0x01a 1(r)>
000210c8 ;    <LVAR -0x01b 1(r)>
000210c8 ;    <LVAR -0x01c 1(r)>
000210c8 ;    <LVAR -0x01d 1(r)>
000210c8 ;    <LVAR -0x01e 1(r)>
000210c8 ;    <LVAR -0x01f 1(r)>
000210c8 ;    <LVAR -0x020 1(r)>
000210c8 ;    <LVAR -0x021 1(r)>
000210c8 ;    <LVAR -0x022 @ 1(r)>
000210c8 ; --------------------------------------------------------------------------------------
000210c8 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a		; Spelunked
000210cc bf d5                    |        |		CMPA.L	(A5),A7
000210ce 62 06                    |b       |		BHI	0x210d6
000210d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000210d4 4e 76                    |Nv      |		TRAPV
000210d6 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000210da 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000210de 45 fa fa 46              |E  F    |		LEA.L	0x20b26,A2
000210e2 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000210e6 49 ee ff de              |I       |		LEA.L	(A6-0x22),A4
000210ea 32 3c 00 ff              |2<      |		MOVE.W	#0xff,D1
000210ee 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
000210f0 76 18                    |v       |		MOVEQ.L	#0x18,D3
000210f2 1f 13                    |        |		MOVE.B	(A3),-(A7)
000210f4 42 27                    |B'      |		CLR.B	-(A7)
000210f6 48 54                    |HT      |		PEA.L	(A4)
000210f8 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000210fc 4e b9 00 02 1d b2        |N       |		JSR	0x21db2
00021102 de c2                    |        |		ADDA.W	D2,A7
00021104 42 80                    |B       |		CLR.L	D0
00021106 10 14                    |        |		MOVE.B	(A4),D0
00021108 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002110a 4e 92                    |N       |		JSR	(A2)
0002110c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002110e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021110 41 81                    |A       |		CHK.W	D1,D0
00021112 1d 40 ff f0              | @      |		MOVE.B	D0,(A6-0x10)
00021116 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021118 42 80                    |B       |		CLR.L	D0
0002111a 10 2e ff df              | .      |		MOVE.B	(A6-0x21),D0
0002111e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021120 4e 92                    |N       |		JSR	(A2)
00021122 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021124 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021126 41 81                    |A       |		CHK.W	D1,D0
00021128 1d 40 ff f1              | @      |		MOVE.B	D0,(A6-0xf)
0002112c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002112e 42 80                    |B       |		CLR.L	D0
00021130 10 2e ff e0              | .      |		MOVE.B	(A6-0x20),D0
00021134 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021136 4e 92                    |N       |		JSR	(A2)
00021138 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002113a 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002113c 41 81                    |A       |		CHK.W	D1,D0
0002113e 1d 40 ff f2              | @      |		MOVE.B	D0,(A6-0xe)
00021142 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021144 42 80                    |B       |		CLR.L	D0
00021146 10 2e ff e1              | .      |		MOVE.B	(A6-0x1f),D0
0002114a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002114c 4e 92                    |N       |		JSR	(A2)
0002114e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021150 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021152 41 81                    |A       |		CHK.W	D1,D0
00021154 1d 40 ff f3              | @      |		MOVE.B	D0,(A6-0xd)
00021158 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002115a 42 80                    |B       |		CLR.L	D0
0002115c 10 2e ff e2              | .      |		MOVE.B	(A6-0x1e),D0
00021160 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021162 4e 92                    |N       |		JSR	(A2)
00021164 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021166 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021168 41 81                    |A       |		CHK.W	D1,D0
0002116a 1d 40 ff f4              | @      |		MOVE.B	D0,(A6-0xc)
0002116e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021170 42 80                    |B       |		CLR.L	D0
00021172 10 2e ff e3              | .      |		MOVE.B	(A6-0x1d),D0
00021176 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021178 4e 92                    |N       |		JSR	(A2)
0002117a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002117c 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002117e 41 81                    |A       |		CHK.W	D1,D0
00021180 1d 40 ff f5              | @      |		MOVE.B	D0,(A6-0xb)
00021184 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021186 42 80                    |B       |		CLR.L	D0
00021188 10 2e ff e4              | .      |		MOVE.B	(A6-0x1c),D0
0002118c 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002118e 4e 92                    |N       |		JSR	(A2)
00021190 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021192 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021194 41 81                    |A       |		CHK.W	D1,D0
00021196 1d 40 ff f6              | @      |		MOVE.B	D0,(A6-0xa)
0002119a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002119c 42 80                    |B       |		CLR.L	D0
0002119e 10 2e ff e5              | .      |		MOVE.B	(A6-0x1b),D0
000211a2 3f 00                    |?       |		MOVE.W	D0,-(A7)
000211a4 4e 92                    |N       |		JSR	(A2)
000211a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211a8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000211aa 41 81                    |A       |		CHK.W	D1,D0
000211ac 1d 40 ff f7              | @      |		MOVE.B	D0,(A6-0x9)
000211b0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211b2 42 80                    |B       |		CLR.L	D0
000211b4 10 2e ff e6              | .      |		MOVE.B	(A6-0x1a),D0
000211b8 3f 00                    |?       |		MOVE.W	D0,-(A7)
000211ba 4e 92                    |N       |		JSR	(A2)
000211bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211be 30 1f                    |0       |		MOVE.W	(A7)+,D0
000211c0 41 81                    |A       |		CHK.W	D1,D0
000211c2 1d 40 ff f8              | @      |		MOVE.B	D0,(A6-0x8)
000211c6 4e ba f9 8a              |N       |		JSR	0x20b52
000211ca 1f 13                    |        |		MOVE.B	(A3),-(A7)
000211cc 9e c2                    |        |		SUBA.W	D2,A7
000211ce 20 4f                    | O      |		MOVEA.L	A7,A0
000211d0 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
000211d4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000211d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211d8 51 c8 ff fc              |Q       |		DBF	D0,0x211d6
000211dc 1f 2e ff f9              | .      |		MOVE.B	(A6-0x7),-(A7)
000211e0 42 27                    |B'      |		CLR.B	-(A7)
000211e2 4e b9 00 02 1e be        |N       |		JSR	0x21ebe
000211e8 de fc 00 10              |        |		ADDA.W	#0x10,A7
000211ec 4e ba f9 ac              |N       |		JSR	0x20b9a
000211f0 1f 13                    |        |		MOVE.B	(A3),-(A7)
000211f2 42 27                    |B'      |		CLR.B	-(A7)
000211f4 48 6e ff e7              |Hn      |		PEA.L	(A6-0x19)
000211f8 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000211fc 4e b9 00 02 1d b2        |N       |		JSR	0x21db2
00021202 de c2                    |        |		ADDA.W	D2,A7
00021204 1e 94                    |        |		MOVE.B	(A4),(A7)
00021206 1f 2e ff e7              | .      |		MOVE.B	(A6-0x19),-(A7)
0002120a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002120c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021210 48 78 00 00              |Hx      |		PEA.L	0x0
00021214 48 78 00 00              |Hx      |		PEA.L	0x0
00021218 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
0002121c 48 78 00 00              |Hx      |		PEA.L	0x0
00021220 48 78 00 00              |Hx      |		PEA.L	0x0
00021224 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
0002122a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002122e 1e ae ff df              |        |		MOVE.B	(A6-0x21),(A7)
00021232 1f 6e ff e0 00 01        | n      |		MOVE.B	(A6-0x20),(A7+0x1)
00021238 1f 6e ff e1 00 02        | n      |		MOVE.B	(A6-0x1f),(A7+0x2)
0002123e 1f 6e ff e2 00 03        | n      |		MOVE.B	(A6-0x1e),(A7+0x3)
00021244 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00021248 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002124a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002124e 48 78 00 00              |Hx      |		PEA.L	0x0
00021252 48 78 00 03              |Hx      |		PEA.L	0x3
00021256 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
0002125a 48 78 00 00              |Hx      |		PEA.L	0x0
0002125e 48 78 00 03              |Hx      |		PEA.L	0x3
00021262 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
00021268 de c3                    |        |		ADDA.W	D3,A7
0002126a 10 2f 00 0a              | /      |		MOVE.B	(A7+0xa),D0
0002126e c0 1f                    |        |		AND.B	(A7)+,D0
00021270 de c2                    |        |		ADDA.W	D2,A7
00021272 1e ae ff e3              |        |		MOVE.B	(A6-0x1d),(A7)
00021276 1f 6e ff e4 00 01        | n      |		MOVE.B	(A6-0x1c),(A7+0x1)
0002127c 1f 6e ff e5 00 02        | n      |		MOVE.B	(A6-0x1b),(A7+0x2)
00021282 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021284 1e ae ff ec              |        |		MOVE.B	(A6-0x14),(A7)
00021288 1f 6e ff ed 00 01        | n      |		MOVE.B	(A6-0x13),(A7+0x1)
0002128e 1f 6e ff ee 00 02        | n      |		MOVE.B	(A6-0x12),(A7+0x2)
00021294 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021296 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002129a 48 78 00 00              |Hx      |		PEA.L	0x0
0002129e 48 78 00 02              |Hx      |		PEA.L	0x2
000212a2 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000212a6 48 78 00 00              |Hx      |		PEA.L	0x0
000212aa 48 78 00 02              |Hx      |		PEA.L	0x2
000212ae 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000212b4 de c3                    |        |		ADDA.W	D3,A7
000212b6 c0 1f                    |        |		AND.B	(A7)+,D0
000212b8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212ba 1e ae ff e6              |        |		MOVE.B	(A6-0x1a),(A7)
000212be 1f 2e ff ef              | .      |		MOVE.B	(A6-0x11),-(A7)
000212c2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000212c4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212c8 48 78 00 00              |Hx      |		PEA.L	0x0
000212cc 48 78 00 00              |Hx      |		PEA.L	0x0
000212d0 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000212d4 48 78 00 00              |Hx      |		PEA.L	0x0
000212d8 48 78 00 00              |Hx      |		PEA.L	0x0
000212dc 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000212e2 de c3                    |        |		ADDA.W	D3,A7
000212e4 c0 1f                    |        |		AND.B	(A7)+,D0
000212e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212e8 48 80                    |H       |		EXTB.W	D0
000212ea 41 bc 00 01              |A       |		CHK.W	#0x1,D0
000212ee 1e 00                    |        |		MOVE.B	D0,D7
000212f0 1d 47 00 0a              | G      |		MOVE.B	D7,(A6+0xa)
000212f4 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
000212f8 4e 5e                    |N^      |		UNLK	A6
000212fa 4e 75                    |Nu      |		RTS
000212fc ; --------------------------------------------------------------------------------------
000212fc ; OMSI PASCAL Function
000212fc ;    <LVAR  0x00a 1(w)>
000212fc ;    <LVAR  0x008 1(r)>
000212fc ; --------------------------------------------------------------------------------------
000212fc 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00021300 bf d5                    |        |		CMPA.L	(A5),A7
00021302 62 06                    |b       |		BHI	0x2130a
00021304 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021308 4e 76                    |Nv      |		TRAPV
0002130a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002130e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00021312 41 fa fd b4              |A       |		LEA.L	0x210c8,A0
00021316 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021318 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002131c 48 80                    |H       |		EXTB.W	D0
0002131e 0c 40 00 08              | @      |		CMPI.W	#0x0008,D0
00021322 63 02                    |c       |		BLS	0x21326
00021324 4e 4e                    |NN      |		TRAP	#14
00021326 d0 40                    | @      |		ADD.W	D0,D0
00021328 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021330 00 12                    |        |		.CONST	0x12			; [0x0] -> 0x21342
00021332 00 26                    | &      |		.CONST	0x26			; [0x1] -> 0x21356
00021334 00 34                    | 4      |		.CONST	0x34			; [0x2] -> 0x21364
00021336 00 42                    | B      |		.CONST	0x42			; [0x3] -> 0x21372
00021338 00 50                    | P      |		.CONST	0x50			; [0x4] -> 0x21380
0002133a 00 5e                    | ^      |		.CONST	0x5e			; [0x5] -> 0x2138e
0002133c 00 70                    | p      |		.CONST	0x70			; [0x6] -> 0x213a0
0002133e 00 82                    |        |		.CONST	0x82			; [0x7] -> 0x213b2
00021340 00 94                    |        |		.CONST	0x94			; [0x8] -> 0x213c4
00021342					switch@0x21328[0x0]:
00021342 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021344 4e ba f8 8c              |N       |		JSR	0x20bd2
00021348 10 1f                    |        |		MOVE.B	(A7)+,D0
0002134a 48 80                    |H       |		EXTB.W	D0
0002134c 41 81                    |A       |		CHK.W	D1,D0
0002134e 1d 40 00 0a              | @      |		MOVE.B	D0,(A6+0xa)
00021352 60 00 00 84              |`       |		BRA	0x213d8
00021356					switch@0x21328[0x1]:
00021356 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021358 4e ba f9 40              |N  @    |		JSR	0x20c9a
0002135c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002135e 48 80                    |H       |		EXTB.W	D0
00021360 41 81                    |A       |		CHK.W	D1,D0
00021362 60 70                    |`p      |		BRA	0x213d4
00021364					switch@0x21328[0x2]:
00021364 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021366 4e ba fa 08              |N       |		JSR	0x20d70
0002136a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002136c 48 80                    |H       |		EXTB.W	D0
0002136e 41 81                    |A       |		CHK.W	D1,D0
00021370 60 62                    |`b      |		BRA	0x213d4
00021372					switch@0x21328[0x3]:
00021372 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021374 4e ba fa c8              |N       |		JSR	0x20e3e
00021378 10 1f                    |        |		MOVE.B	(A7)+,D0
0002137a 48 80                    |H       |		EXTB.W	D0
0002137c 41 81                    |A       |		CHK.W	D1,D0
0002137e 60 54                    |`T      |		BRA	0x213d4
00021380					switch@0x21328[0x4]:
00021380 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021382 4e ba fc 76              |N  v    |		JSR	0x20ffa
00021386 10 1f                    |        |		MOVE.B	(A7)+,D0
00021388 48 80                    |H       |		EXTB.W	D0
0002138a 41 81                    |A       |		CHK.W	D1,D0
0002138c 60 46                    |`F      |		BRA	0x213d4
0002138e					switch@0x21328[0x5]:
0002138e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021390 1f 3c 00 0c              | <      |		MOVE.B	#0x0c,-(A7)
00021394 4e 90                    |N       |		JSR	(A0)
00021396 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021398 10 1f                    |        |		MOVE.B	(A7)+,D0
0002139a 48 80                    |H       |		EXTB.W	D0
0002139c 41 81                    |A       |		CHK.W	D1,D0
0002139e 60 34                    |`4      |		BRA	0x213d4
000213a0					switch@0x21328[0x6]:
000213a0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000213a2 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
000213a6 4e 90                    |N       |		JSR	(A0)
000213a8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213aa 10 1f                    |        |		MOVE.B	(A7)+,D0
000213ac 48 80                    |H       |		EXTB.W	D0
000213ae 41 81                    |A       |		CHK.W	D1,D0
000213b0 60 22                    |`"      |		BRA	0x213d4
000213b2					switch@0x21328[0x7]:
000213b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000213b4 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000213b8 4e 90                    |N       |		JSR	(A0)
000213ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213bc 10 1f                    |        |		MOVE.B	(A7)+,D0
000213be 48 80                    |H       |		EXTB.W	D0
000213c0 41 81                    |A       |		CHK.W	D1,D0
000213c2 60 10                    |`       |		BRA	0x213d4
000213c4					switch@0x21328[0x8]:
000213c4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000213c6 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
000213ca 4e 90                    |N       |		JSR	(A0)
000213cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213ce 10 1f                    |        |		MOVE.B	(A7)+,D0
000213d0 48 80                    |H       |		EXTB.W	D0
000213d2 41 81                    |A       |		CHK.W	D1,D0
000213d4 1d 40 00 0a              | @      |		MOVE.B	D0,(A6+0xa)
000213d8 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000213dc 4e 5e                    |N^      |		UNLK	A6
000213de 4e 75                    |Nu      |		RTS
000213e0 ; --------------------------------------------------------------------------------------
000213e0 ; OMSI PASCAL Function
000213e0 ;    <LVAR  0x008 1(r)>
000213e0 ; --------------------------------------------------------------------------------------
000213e0 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000213e4 bf d5                    |        |		CMPA.L	(A5),A7
000213e6 62 06                    |b       |		BHI	0x213ee
000213e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213ec 4e 76                    |Nv      |		TRAPV
000213ee de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000213f2 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000213f6 43 f9 00 02 20 8e        |C       |		LEA.L	0x2208e,A1
000213fc 45 f9 00 02 20 b5        |E       |		LEA.L	0x220b5,A2
00021402 74 08                    |t       |		MOVEQ.L	#0x08,D2
00021404 76 01                    |v       |		MOVEQ.L	#0x01,D3
00021406 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002140a 0c 00 00 05              |        |		CMPI.B	#0x05,D0
0002140e 66 4e                    |fN      |		BNE	0x2145e
00021410 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021412 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021414 10 07                    |        |		MOVE.B	D7,D0
00021416 48 80                    |H       |		EXTB.W	D0
00021418 41 fa ed bc              |A       |		LEA.L	0x201d6,A0
0002141c 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00021420 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021426 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021428 4a 1f                    |J       |		TST.B	(A7)+
0002142a 67 2a                    |g*      |		BEQ	0x21456
0002142c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002142e 1f 07                    |        |		MOVE.B	D7,-(A7)
00021430 4e ba fe ca              |N       |		JSR	0x212fc
00021434 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021436 4a 1f                    |J       |		TST.B	(A7)+
00021438 66 0e                    |f       |		BNE	0x21448
0002143a 10 07                    |        |		MOVE.B	D7,D0
0002143c 48 80                    |H       |		EXTB.W	D0
0002143e e3 40                    | @      |		ASL.W	#0x1,D0
00021440 20 49                    | I      |		MOVEA.L	A1,A0
00021442 11 83 00 43              |   C    |		MOVE.B	D3,(A0+D0.W+#0x43)
00021446 60 0e                    |`       |		BRA	0x21456
00021448 10 07                    |        |		MOVE.B	D7,D0
0002144a 48 80                    |H       |		EXTB.W	D0
0002144c e3 40                    | @      |		ASL.W	#0x1,D0
0002144e 20 49                    | I      |		MOVEA.L	A1,A0
00021450 42 30 00 43              |B0 C    |		CLR.B	(A0+D0.W+#0x43)
00021454 42 12                    |B       |		CLR.B	(A2)
00021456 52 07                    |R       |		ADDQ.B	#0x1,D7
00021458 be 02                    |        |		CMP.B	D2,D7
0002145a 6f b6                    |o       |		BLE	0x21412
0002145c 60 56                    |`V      |		BRA	0x214b4
0002145e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021460 1f 00                    |        |		MOVE.B	D0,-(A7)
00021462 4e ba f0 a8              |N       |		JSR	0x2050c
00021466 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021468 12 1f                    |        |		MOVE.B	(A7)+,D1
0002146a 48 81                    |H       |		EXTB.W	D1
0002146c 43 82                    |C       |		CHK.W	D2,D1
0002146e 1e 01                    |        |		MOVE.B	D1,D7
00021470 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021472 1f 00                    |        |		MOVE.B	D0,-(A7)
00021474 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002147a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002147c 4a 1f                    |J       |		TST.B	(A7)+
0002147e 67 34                    |g4      |		BEQ	0x214b4
00021480 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021482 10 07                    |        |		MOVE.B	D7,D0
00021484 48 80                    |H       |		EXTB.W	D0
00021486 41 82                    |A       |		CHK.W	D2,D0
00021488 1f 00                    |        |		MOVE.B	D0,-(A7)
0002148a 4e ba fe 70              |N  p    |		JSR	0x212fc
0002148e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021490 4a 1f                    |J       |		TST.B	(A7)+
00021492 66 10                    |f       |		BNE	0x214a4
00021494 10 07                    |        |		MOVE.B	D7,D0
00021496 48 80                    |H       |		EXTB.W	D0
00021498 41 82                    |A       |		CHK.W	D2,D0
0002149a e3 40                    | @      |		ASL.W	#0x1,D0
0002149c 20 49                    | I      |		MOVEA.L	A1,A0
0002149e 11 83 00 43              |   C    |		MOVE.B	D3,(A0+D0.W+#0x43)
000214a2 60 10                    |`       |		BRA	0x214b4
000214a4 10 07                    |        |		MOVE.B	D7,D0
000214a6 48 80                    |H       |		EXTB.W	D0
000214a8 41 82                    |A       |		CHK.W	D2,D0
000214aa e3 40                    | @      |		ASL.W	#0x1,D0
000214ac 20 49                    | I      |		MOVEA.L	A1,A0
000214ae 42 30 00 43              |B0 C    |		CLR.B	(A0+D0.W+#0x43)
000214b2 42 12                    |B       |		CLR.B	(A2)
000214b4 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
000214b8 4e 5e                    |N^      |		UNLK	A6
000214ba 4e 75                    |Nu      |		RTS
000214bc ; --------------------------------------------------------------------------------------
000214bc ; OMSI PASCAL Function
000214bc ;    <LVAR  0x008 1(r)>
000214bc ; --------------------------------------------------------------------------------------
000214bc 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000214c0 bf d5                    |        |		CMPA.L	(A5),A7
000214c2 62 06                    |b       |		BHI	0x214ca
000214c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214c8 4e 76                    |Nv      |		TRAPV
000214ca de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000214ce 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
000214d2 43 f9 00 02 20 8e        |C       |		LEA.L	0x2208e,A1
000214d8 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000214dc 0c 00 00 05              |        |		CMPI.B	#0x05,D0
000214e0 67 66                    |gf      |		BEQ	0x21548
000214e2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000214e4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000214e6 10 07                    |        |		MOVE.B	D7,D0
000214e8 48 80                    |H       |		EXTB.W	D0
000214ea 41 fa ec ea              |A       |		LEA.L	0x201d6,A0
000214ee 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000214f2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000214f8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000214fa 4a 1f                    |J       |		TST.B	(A7)+
000214fc 67 42                    |gB      |		BEQ	0x21540
000214fe 10 07                    |        |		MOVE.B	D7,D0
00021500 48 80                    |H       |		EXTB.W	D0
00021502 41 fa ec d2              |A       |		LEA.L	0x201d6,A0
00021506 10 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D0
0002150a b0 2e 00 08              | .      |		CMP.B	(A6+0x8),D0
0002150e 67 30                    |g0      |		BEQ	0x21540
00021510 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021512 1f 07                    |        |		MOVE.B	D7,-(A7)
00021514 4e ba fd e6              |N       |		JSR	0x212fc
00021518 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002151a 4a 1f                    |J       |		TST.B	(A7)+
0002151c 67 10                    |g       |		BEQ	0x2152e
0002151e 10 07                    |        |		MOVE.B	D7,D0
00021520 48 80                    |H       |		EXTB.W	D0
00021522 e3 40                    | @      |		ASL.W	#0x1,D0
00021524 20 49                    | I      |		MOVEA.L	A1,A0
00021526 11 bc 00 01 00 43        |     C  |		MOVE.B	#0x01,(A0+D0.W+#0x43)
0002152c 60 12                    |`       |		BRA	0x21540
0002152e 10 07                    |        |		MOVE.B	D7,D0
00021530 48 80                    |H       |		EXTB.W	D0
00021532 e3 40                    | @      |		ASL.W	#0x1,D0
00021534 20 49                    | I      |		MOVEA.L	A1,A0
00021536 42 30 00 43              |B0 C    |		CLR.B	(A0+D0.W+#0x43)
0002153a 42 39 00 02 20 b5        |B9      |		CLR.B	0x220b5
00021540 52 07                    |R       |		ADDQ.B	#0x1,D7
00021542 0c 07 00 08              |        |		CMPI.B	#0x08,D7
00021546 6f 9c                    |o       |		BLE	0x214e4
00021548 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
0002154c 4e 5e                    |N^      |		UNLK	A6
0002154e 4e 75                    |Nu      |		RTS
00021550 ; --------------------------------------------------------------------------------------
00021550 ; OMSI PASCAL Function
00021550 ;    <LVAR  0x008 1(w)>
00021550 ; --------------------------------------------------------------------------------------
00021550 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00021554 bf d5                    |        |		CMPA.L	(A5),A7
00021556 62 06                    |b       |		BHI	0x2155e
00021558 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002155c 4e 76                    |Nv      |		TRAPV
0002155e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021562 48 e7 83 80              |H       |		MOVEM.L	A0+D7+D6+D0,-(A7)
00021566 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021568 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002156a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002156c 10 06                    |        |		MOVE.B	D6,D0
0002156e 48 80                    |H       |		EXTB.W	D0
00021570 41 fa ec 64              |A  d    |		LEA.L	0x201d6,A0
00021574 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00021578 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002157e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021580 4a 1f                    |J       |		TST.B	(A7)+
00021582 67 10                    |g       |		BEQ	0x21594
00021584 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021586 1f 06                    |        |		MOVE.B	D6,-(A7)
00021588 4e ba fd 72              |N  r    |		JSR	0x212fc
0002158c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002158e 4a 1f                    |J       |		TST.B	(A7)+
00021590 66 02                    |f       |		BNE	0x21594
00021592 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021594 52 06                    |R       |		ADDQ.B	#0x1,D6
00021596 0c 06 00 08              |        |		CMPI.B	#0x08,D6
0002159a 6f ce                    |o       |		BLE	0x2156a
0002159c 1d 47 00 08              | G      |		MOVE.B	D7,(A6+0x8)
000215a0 4c df 01 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0
000215a4 4e 5e                    |N^      |		UNLK	A6
000215a6 4e 75                    |Nu      |		RTS
000215a8 ; --------------------------------------------------------------------------------------
000215a8 ; OMSI PASCAL Function
000215a8 ;    <LVAR -0x002 @ 1(r)>
000215a8 ;    <LVAR -0x003 @ 1(r)>
000215a8 ; --------------------------------------------------------------------------------------
000215a8 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
000215ac bf d5                    |        |		CMPA.L	(A5),A7
000215ae 62 06                    |b       |		BHI	0x215b6
000215b0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000215b4 4e 76                    |Nv      |		TRAPV
000215b6 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
000215ba 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000215be 45 f9 00 02 20 aa        |E       |		LEA.L	0x220aa,A2
000215c4 47 f9 00 02 20 a2        |G       |		LEA.L	0x220a2,A3
000215ca 49 f9 00 02 20 a3        |I       |		LEA.L	0x220a3,A4
000215d0 72 29                    |r)      |		MOVEQ.L	#0x29,D1
000215d2 74 28                    |t(      |		MOVEQ.L	#0x28,D2
000215d4 76 03                    |v       |		MOVEQ.L	#0x03,D3
000215d6 78 05                    |x       |		MOVEQ.L	#0x05,D4
000215d8 7a 12                    |z       |		MOVEQ.L	#0x12,D5
000215da 7c 1a                    ||       |		MOVEQ.L	#0x1a,D6
000215dc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000215de 9e c5                    |        |		SUBA.W	D5,A7
000215e0 20 4f                    | O      |		MOVEA.L	A7,A0
000215e2 43 f9 00 02 20 bf        |C       |		LEA.L	0x220bf,A1
000215e8 70 11                    |p       |		MOVEQ.L	#0x11,D0
000215ea 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215ec 51 c8 ff fc              |Q       |		DBF	D0,0x215ea
000215f0 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000215f4 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000215f8 4e ba f1 a6              |N       |		JSR	0x207a0
000215fc de c6                    |        |		ADDA.W	D6,A7
000215fe 10 2e ff fd              | .      |		MOVE.B	(A6-0x3),D0
00021602 48 80                    |H       |		EXTB.W	D0
00021604 b0 43                    | C      |		CMP.W	D3,D0
00021606 63 02                    |c       |		BLS	0x2160a
00021608 4e 4e                    |NN      |		TRAP	#14
0002160a d0 40                    | @      |		ADD.W	D0,D0
0002160c 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021614 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x2161c
00021616 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x21620
00021618 00 3c                    | <      |		.CONST	0x3c			; [0x2] -> 0x21650
0002161a 00 46                    | F      |		.CONST	0x46			; [0x3] -> 0x2165a
0002161c					switch@0x2160c[0x0]:
0002161c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002161e 60 40                    |`@      |		BRA	0x21660
00021620					switch@0x2160c[0x1]:
00021620 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021622 1f 2e ff fe              | .      |		MOVE.B	(A6-0x2),-(A7)
00021626 4e ba ec fc              |N       |		JSR	0x20324
0002162a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002162c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002162e 48 80                    |H       |		EXTB.W	D0
00021630 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
00021634 16 80                    |        |		MOVE.B	D0,(A3)
00021636 14 83                    |        |		MOVE.B	D3,(A2)
00021638 b0 04                    |        |		CMP.B	D4,D0
0002163a 66 12                    |f       |		BNE	0x2164e
0002163c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002163e 4e ba ff 10              |N       |		JSR	0x21550
00021642 4a 1f                    |J       |		TST.B	(A7)+
00021644 67 08                    |g       |		BEQ	0x2164e
00021646 16 81                    |        |		MOVE.B	D1,(A3)
00021648 18 82                    |        |		MOVE.B	D2,(A4)
0002164a 14 bc 00 19              |        |		MOVE.B	#0x19,(A2)
0002164e 60 10                    |`       |		BRA	0x21660
00021650					switch@0x2160c[0x2]:
00021650 16 81                    |        |		MOVE.B	D1,(A3)
00021652 18 82                    |        |		MOVE.B	D2,(A4)
00021654 14 bc 00 04              |        |		MOVE.B	#0x04,(A2)
00021658 60 06                    |`       |		BRA	0x21660
0002165a					switch@0x2160c[0x3]:
0002165a 16 81                    |        |		MOVE.B	D1,(A3)
0002165c 18 82                    |        |		MOVE.B	D2,(A4)
0002165e 14 84                    |        |		MOVE.B	D4,(A2)
00021660 4a 07                    |J       |		TST.B	D7
00021662 66 08                    |f       |		BNE	0x2166c
00021664 42 27                    |B'      |		CLR.B	-(A7)
00021666 4e ba ed a8              |N       |		JSR	0x20410
0002166a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002166c 9e c5                    |        |		SUBA.W	D5,A7
0002166e 20 4f                    | O      |		MOVEA.L	A7,A0
00021670 43 f9 00 02 20 bf        |C       |		LEA.L	0x220bf,A1
00021676 70 11                    |p       |		MOVEQ.L	#0x11,D0
00021678 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002167a 51 c8 ff fc              |Q       |		DBF	D0,0x21678
0002167e 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021682 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021686 4e ba f1 78              |N  x    |		JSR	0x20800
0002168a de c6                    |        |		ADDA.W	D6,A7
0002168c 10 2e ff fd              | .      |		MOVE.B	(A6-0x3),D0
00021690 48 80                    |H       |		EXTB.W	D0
00021692 b0 43                    | C      |		CMP.W	D3,D0
00021694 63 02                    |c       |		BLS	0x21698
00021696 4e 4e                    |NN      |		TRAP	#14
00021698 d0 40                    | @      |		ADD.W	D0,D0
0002169a 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000216a2 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x216aa
000216a4 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x216b0
000216a6 00 40                    | @      |		.CONST	0x40			; [0x2] -> 0x216e2
000216a8 00 4a                    | J      |		.CONST	0x4a			; [0x3] -> 0x216ec
000216aa					switch@0x2169a[0x0]:
000216aa 14 bc 00 02              |        |		MOVE.B	#0x02,(A2)
000216ae 60 44                    |`D      |		BRA	0x216f4
000216b0					switch@0x2169a[0x1]:
000216b0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216b2 1f 2e ff fe              | .      |		MOVE.B	(A6-0x2),-(A7)
000216b6 4e ba ec 6c              |N  l    |		JSR	0x20324
000216ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216bc 10 1f                    |        |		MOVE.B	(A7)+,D0
000216be 48 80                    |H       |		EXTB.W	D0
000216c0 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
000216c4 16 80                    |        |		MOVE.B	D0,(A3)
000216c6 14 bc 00 06              |        |		MOVE.B	#0x06,(A2)
000216ca b0 04                    |        |		CMP.B	D4,D0
000216cc 66 12                    |f       |		BNE	0x216e0
000216ce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216d0 4e ba fe 7e              |N  ~    |		JSR	0x21550
000216d4 4a 1f                    |J       |		TST.B	(A7)+
000216d6 67 08                    |g       |		BEQ	0x216e0
000216d8 16 81                    |        |		MOVE.B	D1,(A3)
000216da 18 82                    |        |		MOVE.B	D2,(A4)
000216dc 14 bc 00 19              |        |		MOVE.B	#0x19,(A2)
000216e0 60 12                    |`       |		BRA	0x216f4
000216e2					switch@0x2169a[0x2]:
000216e2 16 81                    |        |		MOVE.B	D1,(A3)
000216e4 18 82                    |        |		MOVE.B	D2,(A4)
000216e6 14 bc 00 07              |        |		MOVE.B	#0x07,(A2)
000216ea 60 08                    |`       |		BRA	0x216f4
000216ec					switch@0x2169a[0x3]:
000216ec 16 81                    |        |		MOVE.B	D1,(A3)
000216ee 18 82                    |        |		MOVE.B	D2,(A4)
000216f0 14 bc 00 08              |        |		MOVE.B	#0x08,(A2)
000216f4 42 27                    |B'      |		CLR.B	-(A7)
000216f6 4e ba ed 18              |N       |		JSR	0x20410
000216fa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216fc 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021700 4e 5e                    |N^      |		UNLK	A6
00021702 4e 75                    |Nu      |		RTS
00021704 ; --------------------------------------------------------------------------------------
00021704 ; OMSI PASCAL Function
00021704 ;    <LVAR -0x003 @ 1(r)>
00021704 ;    <LVAR -0x004 @ 1(r)>
00021704 ; --------------------------------------------------------------------------------------
00021704 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00021708 bf d5                    |        |		CMPA.L	(A5),A7
0002170a 62 06                    |b       |		BHI	0x21712
0002170c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021710 4e 76                    |Nv      |		TRAPV
00021712 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00021716 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0002171a 45 f9 00 02 20 aa        |E       |		LEA.L	0x220aa,A2
00021720 47 f9 00 02 20 a2        |G       |		LEA.L	0x220a2,A3
00021726 49 f9 00 02 20 a3        |I       |		LEA.L	0x220a3,A4
0002172c 72 12                    |r       |		MOVEQ.L	#0x12,D1
0002172e 74 29                    |t)      |		MOVEQ.L	#0x29,D2
00021730 76 28                    |v(      |		MOVEQ.L	#0x28,D3
00021732 9e c1                    |        |		SUBA.W	D1,A7
00021734 20 4f                    | O      |		MOVEA.L	A7,A0
00021736 43 f9 00 02 20 d1        |C       |		LEA.L	0x220d1,A1
0002173c 70 11                    |p       |		MOVEQ.L	#0x11,D0
0002173e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021740 51 c8 ff fc              |Q       |		DBF	D0,0x2173e
00021744 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021748 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002174c 4e ba f0 52              |N  R    |		JSR	0x207a0
00021750 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021754 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00021758 48 80                    |H       |		EXTB.W	D0
0002175a 0c 40 00 03              | @      |		CMPI.W	#0x0003,D0
0002175e 63 02                    |c       |		BLS	0x21762
00021760 4e 4e                    |NN      |		TRAP	#14
00021762 d0 40                    | @      |		ADD.W	D0,D0
00021764 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002176c 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x21774
0002176e 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x2177a
00021770 00 2a                    | *      |		.CONST	0x2a			; [0x2] -> 0x21796
00021772 00 34                    | 4      |		.CONST	0x34			; [0x3] -> 0x217a0
00021774					switch@0x21764[0x0]:
00021774 14 bc 00 02              |        |		MOVE.B	#0x02,(A2)
00021778 60 2c                    |`,      |		BRA	0x217a6
0002177a					switch@0x21764[0x1]:
0002177a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002177c 1f 2e ff fd              | .      |		MOVE.B	(A6-0x3),-(A7)
00021780 4e ba eb a2              |N       |		JSR	0x20324
00021784 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021786 10 1f                    |        |		MOVE.B	(A7)+,D0
00021788 48 80                    |H       |		EXTB.W	D0
0002178a 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
0002178e 16 80                    |        |		MOVE.B	D0,(A3)
00021790 14 bc 00 10              |        |		MOVE.B	#0x10,(A2)
00021794 60 10                    |`       |		BRA	0x217a6
00021796					switch@0x21764[0x2]:
00021796 16 82                    |        |		MOVE.B	D2,(A3)
00021798 18 83                    |        |		MOVE.B	D3,(A4)
0002179a 14 bc 00 11              |        |		MOVE.B	#0x11,(A2)
0002179e 60 06                    |`       |		BRA	0x217a6
000217a0					switch@0x21764[0x3]:
000217a0 16 82                    |        |		MOVE.B	D2,(A3)
000217a2 18 83                    |        |		MOVE.B	D3,(A4)
000217a4 14 81                    |        |		MOVE.B	D1,(A2)
000217a6 42 27                    |B'      |		CLR.B	-(A7)
000217a8 4e ba ec 66              |N  f    |		JSR	0x20410
000217ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217ae 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
000217b2 4e 5e                    |N^      |		UNLK	A6
000217b4 4e 75                    |Nu      |		RTS
000217b6 ; --------------------------------------------------------------------------------------
000217b6 ; OMSI PASCAL Function
000217b6 ;    <LVAR  0x008 1(rw)>
000217b6 ;    <LVAR -0x001 @>
000217b6 ;    <LVAR -0x003 @>
000217b6 ;    <LVAR -0x004 @>
000217b6 ;    <LVAR -0x005 @ 1(r)>
000217b6 ;    <LVAR -0x007 @>
000217b6 ;    <LVAR -0x008 @>
000217b6 ; --------------------------------------------------------------------------------------
000217b6 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000217ba bf d5                    |        |		CMPA.L	(A5),A7
000217bc 62 06                    |b       |		BHI	0x217c4
000217be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217c2 4e 76                    |Nv      |		TRAPV
000217c4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000217c8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000217cc 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000217d0 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000217d4 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000217d8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000217dc 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000217e0 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
000217e4 4e b9 00 02 1c cc        |N       |		JSR	exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
000217ea de fc 00 18              |        |		ADDA.W	#0x18,A7
000217ee 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
000217f2 42 80                    |B       |		CLR.L	D0
000217f4 10 2e ff fb              | .      |		MOVE.B	(A6-0x5),D0
000217f8 0c 40 00 01              | @      |		CMPI.W	#0x0001,D0
000217fc 66 04                    |f       |		BNE	0x21802
000217fe 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
00021802 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00021806 4e 5e                    |N^      |		UNLK	A6
00021808 4e 75                    |Nu      |		RTS
0002180a ; --------------------------------------------------------------------------------------
0002180a ; OMSI PASCAL Function
0002180a ;    <LVAR -0x001 @ 1(r)>
0002180a ;    <LVAR -0x002 @ 1(r)>
0002180a ; --------------------------------------------------------------------------------------
0002180a 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
0002180e bf d5                    |        |		CMPA.L	(A5),A7
00021810 62 06                    |b       |		BHI	0x21818
00021812 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021816 4e 76                    |Nv      |		TRAPV
00021818 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
0002181c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021820 45 f9 00 02 20 a2        |E       |		LEA.L	0x220a2,A2
00021826 47 f9 00 02 20 aa        |G       |		LEA.L	0x220aa,A3
0002182c 49 f9 00 02 20 e5        |I       |		LEA.L	0x220e5,A4
00021832 74 02                    |t       |		MOVEQ.L	#0x02,D2
00021834 76 01                    |v       |		MOVEQ.L	#0x01,D3
00021836 78 03                    |x       |		MOVEQ.L	#0x03,D4
00021838 7a 04                    |z       |		MOVEQ.L	#0x04,D5
0002183a 13 c3 00 02 20 e4        |        |		MOVE.B	D3,0x220e4
00021840 18 84                    |        |		MOVE.B	D4,(A4)
00021842 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021844 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021846 10 07                    |        |		MOVE.B	D7,D0
00021848 48 80                    |H       |		EXTB.W	D0
0002184a 41 fa e9 8a              |A       |		LEA.L	0x201d6,A0
0002184e 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00021852 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021858 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002185a 4a 1f                    |J       |		TST.B	(A7)+
0002185c 67 26                    |g&      |		BEQ	0x21884
0002185e be 05                    |        |		CMP.B	D5,D7
00021860 67 22                    |g"      |		BEQ	0x21884
00021862 10 07                    |        |		MOVE.B	D7,D0
00021864 48 80                    |H       |		EXTB.W	D0
00021866 32 00                    |2       |		MOVE.W	D0,D1
00021868 e3 41                    | A      |		ASL.W	#0x1,D1
0002186a 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
00021870 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021872 1f 00                    |        |		MOVE.B	D0,-(A7)
00021874 4e ba fa 86              |N       |		JSR	0x212fc
00021878 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002187a 10 1f                    |        |		MOVE.B	(A7)+,D0
0002187c 48 80                    |H       |		EXTB.W	D0
0002187e 41 83                    |A       |		CHK.W	D3,D0
00021880 11 80 10 44              |   D    |		MOVE.B	D0,(A0+D1.W+#0x44)
00021884 52 07                    |R       |		ADDQ.B	#0x1,D7
00021886 0c 07 00 08              |        |		CMPI.B	#0x08,D7
0002188a 6f b8                    |o       |		BLE	0x21844
0002188c 1f 04                    |        |		MOVE.B	D4,-(A7)
0002188e 1f 02                    |        |		MOVE.B	D2,-(A7)
00021890 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021896 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021898 4e ba ff 1c              |N       |		JSR	0x217b6
0002189c 4a 1f                    |J       |		TST.B	(A7)+
0002189e 66 18                    |f       |		BNE	0x218b8
000218a0 18 82                    |        |		MOVE.B	D2,(A4)
000218a2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000218a4 1f 05                    |        |		MOVE.B	D5,-(A7)
000218a6 4e ba fa 54              |N  T    |		JSR	0x212fc
000218aa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218ac 10 1f                    |        |		MOVE.B	(A7)+,D0
000218ae 48 80                    |H       |		EXTB.W	D0
000218b0 41 83                    |A       |		CHK.W	D3,D0
000218b2 13 c0 00 02 20 da        |        |		MOVE.B	D0,0x220da
000218b8 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000218bc 20 4f                    | O      |		MOVEA.L	A7,A0
000218be 43 f9 00 02 20 d1        |C       |		LEA.L	0x220d1,A1
000218c4 70 11                    |p       |		MOVEQ.L	#0x11,D0
000218c6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000218c8 51 c8 ff fc              |Q       |		DBF	D0,0x218c6
000218cc 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000218d0 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
000218d4 4e ba ef 2a              |N  *    |		JSR	0x20800
000218d8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000218dc 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000218de 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
000218e2 48 80                    |H       |		EXTB.W	D0
000218e4 b0 44                    | D      |		CMP.W	D4,D0
000218e6 63 02                    |c       |		BLS	0x218ea
000218e8 4e 4e                    |NN      |		TRAP	#14
000218ea d0 40                    | @      |		ADD.W	D0,D0
000218ec 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000218f4 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x218fc
000218f6 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x21900
000218f8 00 50                    | P      |		.CONST	0x50			; [0x2] -> 0x21944
000218fa 00 62                    | b      |		.CONST	0x62			; [0x3] -> 0x21956
000218fc					switch@0x218ec[0x0]:
000218fc 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000218fe 60 66                    |`f      |		BRA	0x21966
00021900					switch@0x218ec[0x1]:
00021900 10 2e ff ff              | .      |		MOVE.B	(A6-0x1),D0
00021904 b0 05                    |        |		CMP.B	D5,D0
00021906 66 22                    |f"      |		BNE	0x2192a
00021908 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002190a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002190c 4e ba f9 ee              |N       |		JSR	0x212fc
00021910 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021912 4a 1f                    |J       |		TST.B	(A7)+
00021914 67 0a                    |g       |		BEQ	0x21920
00021916 14 bc 00 06              |        |		MOVE.B	#0x06,(A2)
0002191a 16 bc 00 13              |        |		MOVE.B	#0x13,(A3)
0002191e 60 08                    |`       |		BRA	0x21928
00021920 14 bc 00 05              |        |		MOVE.B	#0x05,(A2)
00021924 16 bc 00 14              |        |		MOVE.B	#0x14,(A3)
00021928 60 18                    |`       |		BRA	0x21942
0002192a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002192c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002192e 4e ba e9 f4              |N       |		JSR	0x20324
00021932 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021934 10 1f                    |        |		MOVE.B	(A7)+,D0
00021936 48 80                    |H       |		EXTB.W	D0
00021938 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
0002193c 14 80                    |        |		MOVE.B	D0,(A2)
0002193e 16 bc 00 15              |        |		MOVE.B	#0x15,(A3)
00021942 60 22                    |`"      |		BRA	0x21966
00021944					switch@0x218ec[0x2]:
00021944 14 bc 00 29              |   )    |		MOVE.B	#0x29,(A2)
00021948 13 fc 00 28 00 02 20 a3  |   (    |		MOVE.B	#0x28,0x220a3
00021950 16 bc 00 16              |        |		MOVE.B	#0x16,(A3)
00021954 60 10                    |`       |		BRA	0x21966
00021956					switch@0x218ec[0x3]:
00021956 14 bc 00 29              |   )    |		MOVE.B	#0x29,(A2)
0002195a 13 fc 00 28 00 02 20 a3  |   (    |		MOVE.B	#0x28,0x220a3
00021962 16 bc 00 17              |        |		MOVE.B	#0x17,(A3)
00021966 1f 02                    |        |		MOVE.B	D2,-(A7)
00021968 1f 02                    |        |		MOVE.B	D2,-(A7)
0002196a 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021970 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021972 4a 06                    |J       |		TST.B	D6
00021974 66 08                    |f       |		BNE	0x2197e
00021976 42 27                    |B'      |		CLR.B	-(A7)
00021978 4e ba ea 96              |N       |		JSR	0x20410
0002197c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002197e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021982 4e 5e                    |N^      |		UNLK	A6
00021984 4e 75                    |Nu      |		RTS
00021986 ; --------------------------------------------------------------------------------------
00021986 ; OMSI PASCAL Function
00021986 ;    <LVAR  0x008 1(r)>
00021986 ; --------------------------------------------------------------------------------------
00021986 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0002198a bf d5                    |        |		CMPA.L	(A5),A7
0002198c 62 06                    |b       |		BHI	0x21994
0002198e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021992 4e 76                    |Nv      |		TRAPV
00021994 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021998 48 e7 81 00              |H       |		MOVEM.L	D7+D0,-(A7)
0002199c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002199e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000219a2 4e ba eb 68              |N  h    |		JSR	0x2050c
000219a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219a8 10 1f                    |        |		MOVE.B	(A7)+,D0
000219aa 48 80                    |H       |		EXTB.W	D0
000219ac 41 bc 00 08              |A       |		CHK.W	#0x8,D0
000219b0 1e 00                    |        |		MOVE.B	D0,D7
000219b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000219b4 1f 07                    |        |		MOVE.B	D7,-(A7)
000219b6 4e ba e9 6c              |N  l    |		JSR	0x20324
000219ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219bc 10 1f                    |        |		MOVE.B	(A7)+,D0
000219be 48 80                    |H       |		EXTB.W	D0
000219c0 41 bc 00 4f              |A  O    |		CHK.W	#0x4f,D0
000219c4 13 c0 00 02 20 a2        |        |		MOVE.B	D0,0x220a2
000219ca 13 fc 00 18 00 02 20 aa  |        |		MOVE.B	#0x18,0x220aa
000219d2 42 27                    |B'      |		CLR.B	-(A7)
000219d4 4e ba ea 3a              |N  :    |		JSR	0x20410
000219d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219da 4c df 00 81              |L       |		MOVEM.L	(A7)+,D0+D7
000219de 4e 5e                    |N^      |		UNLK	A6
000219e0 4e 75                    |Nu      |		RTS
000219e2 ; --------------------------------------------------------------------------------------
000219e2 ; OMSI PASCAL Function
000219e2 ; --------------------------------------------------------------------------------------
000219e2 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
000219e6 bf d5                    |        |		CMPA.L	(A5),A7
000219e8 62 06                    |b       |		BHI	0x219f0
000219ea 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219ee 4e 76                    |Nv      |		TRAPV
000219f0 de fc 00 08              |        |		ADDA.W	#0x8,A7
000219f4 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
000219f8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000219fc 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021a02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a04 4e 5e                    |N^      |		UNLK	A6
00021a06 4e 75                    |Nu      |		RTS
00021a08 ; --------------------------------------------------------------------------------------
00021a08 ; OMSI PASCAL Function
00021a08 ; --------------------------------------------------------------------------------------
00021a08 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00021a0c bf d5                    |        |		CMPA.L	(A5),A7
00021a0e 62 06                    |b       |		BHI	0x21a16
00021a10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a14 4e 76                    |Nv      |		TRAPV
00021a16 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021a1a 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
00021a1e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a20 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a22 10 07                    |        |		MOVE.B	D7,D0
00021a24 48 80                    |H       |		EXTB.W	D0
00021a26 e3 40                    | @      |		ASL.W	#0x1,D0
00021a28 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
00021a2e 11 81 00 31              |   1    |		MOVE.B	D1,(A0+D0.W+#0x31)
00021a32 11 81 00 32              |   2    |		MOVE.B	D1,(A0+D0.W+#0x32)
00021a36 11 81 00 43              |   C    |		MOVE.B	D1,(A0+D0.W+#0x43)
00021a3a 11 81 00 44              |   D    |		MOVE.B	D1,(A0+D0.W+#0x44)
00021a3e 52 07                    |R       |		ADDQ.B	#0x1,D7
00021a40 0c 07 00 08              |        |		CMPI.B	#0x08,D7
00021a44 6f dc                    |o       |		BLE	0x21a22
00021a46 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
00021a4a 4e 5e                    |N^      |		UNLK	A6
00021a4c 4e 75                    |Nu      |		RTS
00021a4e ; --------------------------------------------------------------------------------------
00021a4e ; OMSI PASCAL Function
00021a4e ; --------------------------------------------------------------------------------------
00021a4e					START:
00021a4e 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021a52 4e f9 00 01 02 80        |N       |		JMP	?start_program
00021a58					MAIN:
00021a58 43 f9 00 02 20 b4        |C       |		LEA.L	0x220b4,A1
00021a5e 45 f9 00 02 20 9b        |E       |		LEA.L	0x2209b,A2
00021a64 47 f9 00 02 20 9a        |G       |		LEA.L	0x2209a,A3
00021a6a 49 f9 00 02 20 9c        |I       |		LEA.L	0x2209c,A4
00021a70 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021a72 76 05                    |v       |		MOVEQ.L	#0x05,D3
00021a74 78 07                    |x       |		MOVEQ.L	#0x07,D4
00021a76 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021a7c 48 78 00 0f              |Hx      |		PEA.L	0xf
00021a80 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021a86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a88 48 53                    |HS      |		PEA.L	(A3)
00021a8a 48 52                    |HR      |		PEA.L	(A2)
00021a8c 48 54                    |HT      |		PEA.L	(A4)
00021a8e 4e b9 00 01 05 56        |N    V  |		JSR	?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
00021a94 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021a98 1e 94                    |        |		MOVE.B	(A4),(A7)
00021a9a 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00021aa0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021aa2 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021aa4 23 c0 00 02 20 9e        |#       |		MOVE.L	D0,0x2209e
00021aaa b0 84                    |        |		CMP.L	D4,D0
00021aac 63 02                    |c       |		BLS	0x21ab0
00021aae 4e 4f                    |NO      |		TRAP	#15
00021ab0 41 f9 00 02 20 8e        |A       |		LEA.L	0x2208e,A0
00021ab6 42 30 08 14              |B0      |		CLR.B	(A0+D0.L+#0x14)
00021aba 52 80                    |R       |		ADDQ.L	#0x1,D0
00021abc b0 84                    |        |		CMP.L	D4,D0
00021abe 6f e4                    |o       |		BLE	0x21aa4
00021ac0 48 79 00 02 20 b0        |Hy      |		PEA.L	0x220b0
00021ac6 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021acc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ace 42 39 00 02 20 aa        |B9      |		CLR.B	0x220aa
00021ad4 2f 3a e6 fc              |/:      |		MOVE.L	0x201d2,-(A7)
00021ad8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ada 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ade 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021ae0 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021ae4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021aea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021aec 23 df 00 02 20 ac        |#       |		MOVE.L	(A7)+,0x220ac
00021af2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021af4 42 80                    |B       |		CLR.L	D0
00021af6 10 13                    |        |		MOVE.B	(A3),D0
00021af8 23 c0 00 02 20 9e        |#       |		MOVE.L	D0,0x2209e
00021afe 1f 00                    |        |		MOVE.B	D0,-(A7)
00021b00 10 1f                    |        |		MOVE.B	(A7)+,D0
00021b02 48 80                    |H       |		EXTB.W	D0
00021b04 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00021b08 12 80                    |        |		MOVE.B	D0,(A1)
00021b0a 48 80                    |H       |		EXTB.W	D0
00021b0c 55 40                    |U@      |		SUBQ.W	#0x2,D0
00021b0e 0c 40 00 0d              | @      |		CMPI.W	#0x000d,D0
00021b12 62 28                    |b(      |		BHI	switch@0x21b16[0x6]
00021b14 d0 40                    | @      |		ADD.W	D0,D0
00021b16 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021b1e 00 1c                    |        |		.CONST	0x1c			; [0x0] -> 0x21b3a
00021b20 00 1c                    |        |		.CONST	0x1c			; [0x1] -> 0x21b3a
00021b22 00 1c                    |        |		.CONST	0x1c			; [0x2] -> 0x21b3a
00021b24 00 1c                    |        |		.CONST	0x1c			; [0x3] -> 0x21b3a
00021b26 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x21b3a
00021b28 00 1c                    |        |		.CONST	0x1c			; [0x5] -> 0x21b3a
00021b2a 00 1e                    |        |		.CONST	0x1e			; [0x6] -> 0x21b3c
00021b2c 00 1e                    |        |		.CONST	0x1e			; [0x7] -> 0x21b3c
00021b2e 00 1e                    |        |		.CONST	0x1e			; [0x8] -> 0x21b3c
00021b30 00 1e                    |        |		.CONST	0x1e			; [0x9] -> 0x21b3c
00021b32 00 1c                    |        |		.CONST	0x1c			; [0xa] -> 0x21b3a
00021b34 00 1c                    |        |		.CONST	0x1c			; [0xb] -> 0x21b3a
00021b36 00 1c                    |        |		.CONST	0x1c			; [0xc] -> 0x21b3a
00021b38 00 1c                    |        |		.CONST	0x1c			; [0xd] -> 0x21b3a
00021b3a					switch@0x21b16[0x0]:
00021b3a					switch@0x21b16[0x1]:
00021b3a					switch@0x21b16[0x2]:
00021b3a					switch@0x21b16[0x3]:
00021b3a					switch@0x21b16[0x4]:
00021b3a					switch@0x21b16[0x5]:
00021b3a					switch@0x21b16[0xa]:
00021b3a					switch@0x21b16[0xb]:
00021b3a					switch@0x21b16[0xc]:
00021b3a					switch@0x21b16[0xd]:
00021b3a 60 0e                    |`       |		BRA	0x21b4a
00021b3c					switch@0x21b16[0x6]:
00021b3c					switch@0x21b16[0x7]:
00021b3c					switch@0x21b16[0x8]:
00021b3c					switch@0x21b16[0x9]:
00021b3c 13 c2 00 02 20 aa        |        |		MOVE.B	D2,0x220aa
00021b42 42 27                    |B'      |		CLR.B	-(A7)
00021b44 4e ba e8 ca              |N       |		JSR	0x20410
00021b48 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b4a 42 b9 00 02 20 96        |B       |		CLR.L	0x22096
00021b50 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021b52 13 c0 00 02 20 e3        |        |		MOVE.B	D0,0x220e3
00021b58 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b5a 12 00                    |        |		MOVE.B	D0,D1
00021b5c 48 81                    |H       |		EXTB.W	D1
00021b5e 41 fa e6 76              |A  v    |		LEA.L	0x201d6,A0
00021b62 1f 30 10 00              | 0      |		MOVE.B	(A0+D1.W),-(A7)
00021b66 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021b6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b6e 4a 1f                    |J       |		TST.B	(A7)+
00021b70 67 06                    |g       |		BEQ	0x21b78
00021b72 52 b9 00 02 20 96        |R       |		ADDQ.L	#0x1,0x22096
00021b78 52 00                    |R       |		ADDQ.B	#0x1,D0
00021b7a 0c 00 00 08              |        |		CMPI.B	#0x08,D0
00021b7e 6f d2                    |o       |		BLE	0x21b52
00021b80 1f 03                    |        |		MOVE.B	D3,-(A7)
00021b82 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021b86 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021b8c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b8e 4e ba fe 78              |N  x    |		JSR	0x21a08
00021b92 13 c2 00 02 20 b5        |        |		MOVE.B	D2,0x220b5
00021b98 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021b9a 4e ba eb 28              |N  (    |		JSR	0x206c4
00021b9e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ba0 4a 39 00 02 20 b5        |J9      |		TST.B	0x220b5
00021ba6 66 22                    |f"      |		BNE	0x21bca
00021ba8 4a 12                    |J       |		TST.B	(A2)
00021baa 67 0e                    |g       |		BEQ	0x21bba
00021bac 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021bae 4e ba eb 8c              |N       |		JSR	0x2073c
00021bb2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bb4 4e ba f9 f2              |N       |		JSR	0x215a8
00021bb8 60 10                    |`       |		BRA	0x21bca
00021bba 10 11                    |        |		MOVE.B	(A1),D0
00021bbc b0 03                    |        |		CMP.B	D3,D0
00021bbe 66 02                    |f       |		BNE	0x21bc2
00021bc0 60 f2                    |`       |		BRA	0x21bb4
00021bc2 1f 00                    |        |		MOVE.B	D0,-(A7)
00021bc4 4e ba ec 9a              |N       |		JSR	0x20860
00021bc8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bca 13 c2 00 02 20 b5        |        |		MOVE.B	D2,0x220b5
00021bd0 42 39 00 02 20 e4        |B9      |		CLR.B	0x220e4
00021bd6 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021bd8 4e ba f8 06              |N       |		JSR	0x213e0
00021bdc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bde 4a 39 00 02 20 b5        |J9      |		TST.B	0x220b5
00021be4 66 22                    |f"      |		BNE	0x21c08
00021be6 4a 12                    |J       |		TST.B	(A2)
00021be8 67 0e                    |g       |		BEQ	0x21bf8
00021bea 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021bec 4e ba f8 ce              |N       |		JSR	0x214bc
00021bf0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bf2 4e ba fb 10              |N       |		JSR	0x21704
00021bf6 60 10                    |`       |		BRA	0x21c08
00021bf8 10 11                    |        |		MOVE.B	(A1),D0
00021bfa b0 03                    |        |		CMP.B	D3,D0
00021bfc 66 02                    |f       |		BNE	0x21c00
00021bfe 60 f2                    |`       |		BRA	0x21bf2
00021c00 1f 00                    |        |		MOVE.B	D0,-(A7)
00021c02 4e ba fd 82              |N       |		JSR	0x21986
00021c06 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021c08 10 11                    |        |		MOVE.B	(A1),D0
00021c0a b0 03                    |        |		CMP.B	D3,D0
00021c0c 66 08                    |f       |		BNE	0x21c16
00021c0e 4e ba ed ac              |N       |		JSR	0x209bc
00021c12 4e ba fb f6              |N       |		JSR	0x2180a
00021c16 4e ba fd ca              |N       |		JSR	0x219e2
00021c1a 1f 02                    |        |		MOVE.B	D2,-(A7)
00021c1c 4e ba e7 f2              |N       |		JSR	0x20410
00021c20 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021c22 4e b9 00 01 02 84        |N       |		JSR	?exit
00021c28					exp_READ_UIR.FIU(Sw_1, &Sr_6):
00021c28 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021c2e 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021c30 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.FIU'
00021c3d 00                       |        |		.CONST	0x0
00021c3e 03                       |        |		.CONST	0x3			; DIPROC address
00021c3f 01                       |        |		.CONST	0x1			; Output Parameters
00021c40 01                       |        |		.CONST	0x1			; Input Parameters
00021c41 00                       |        |		.CONST	0x0			; In arg [1]
00021c42 05                       |        |		.CONST	0x5			; Out arg [6]
00021c43 00                       |        |		.PAD	0x0
00021c44					exp_LOAD_UIR.FIU(Sw_6, Sw_1):
00021c44 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021c4a 00 10                    |        |		.CONST	0x0010			; Stack-delta
00021c4c 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.FIU'
00021c59 00                       |        |		.CONST	0x0
00021c5a 03                       |        |		.CONST	0x3			; DIPROC address
00021c5b 00                       |        |		.CONST	0x0			; Output Parameters
00021c5c 02                       |        |		.CONST	0x2			; Input Parameters
00021c5d 05                       |        |		.CONST	0x5			; In arg [6]
00021c5e 00                       |        |		.CONST	0x0			; In arg [1]
00021c5f 00                       |        |		.PAD	0x0
00021c60					exp_FORCE_SYNC.FIU():
00021c60 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021c66 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021c68 0e 46 4f 52 43 45 5f 53  | FORCE_S|		.TXT	14,'FORCE_SYNC.FIU'
00021c77 00                       |        |		.CONST	0x0
00021c78 03                       |        |		.CONST	0x3			; DIPROC address
00021c79 00                       |        |		.CONST	0x0			; Output Parameters
00021c7a 00                       |        |		.CONST	0x0			; Input Parameters
00021c7b 00                       |        |		.PAD	0x0
00021c7c					exp_WRITE_SEQ.SEQ(Sw_8_8):
00021c7c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021c82 00 18                    |        |		.CONST	0x0018			; Stack-delta
00021c84 0d 57 52 49 54 45 5f 53  | WRITE_S|		.TXT	13,'WRITE_SEQ.SEQ'
00021c92 00                       |        |		.CONST	0x0
00021c93 02                       |        |		.CONST	0x2			; DIPROC address
00021c94 00                       |        |		.CONST	0x0			; Output Parameters
00021c95 01                       |        |		.CONST	0x1			; Input Parameters
00021c96 09                       |        |		.CONST	0x9			; In arg [8, 8]
00021c97 00                       |        |		.PAD	0x0
00021c98					exp_READ_UIR.SEQ(&Sr_6):
00021c98 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021c9e 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021ca0 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.SEQ'
00021cad 00                       |        |		.CONST	0x0
00021cae 02                       |        |		.CONST	0x2			; DIPROC address
00021caf 01                       |        |		.CONST	0x1			; Output Parameters
00021cb0 00                       |        |		.CONST	0x0			; Input Parameters
00021cb1 05                       |        |		.CONST	0x5			; Out arg [6]
00021cb2					exp_READ_SEQ.SEQ(&Sr_8_8):
00021cb2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021cb8 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021cba 0c 52 45 41 44 5f 53 45  | READ_SE|		.TXT	12,'READ_SEQ.SEQ'
00021cc7 00                       |        |		.CONST	0x0
00021cc8 02                       |        |		.CONST	0x2			; DIPROC address
00021cc9 01                       |        |		.CONST	0x1			; Output Parameters
00021cca 00                       |        |		.CONST	0x0			; Input Parameters
00021ccb 09                       |        |		.CONST	0x9			; Out arg [8, 8]
00021ccc					exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
00021ccc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021cd2 00 20                    |        |		.CONST	0x0020			; Stack-delta
00021cd4 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.SEQ'
00021ce9 00                       |        |		.CONST	0x0
00021cea 02                       |        |		.CONST	0x2			; DIPROC address
00021ceb 06                       |        |		.CONST	0x6			; Output Parameters
00021cec 00                       |        |		.CONST	0x0			; Input Parameters
00021ced 00                       |        |		.CONST	0x0			; Out arg [1]
00021cee 01                       |        |		.CONST	0x1			; Out arg [2]
00021cef 00                       |        |		.CONST	0x0			; Out arg [1]
00021cf0 00                       |        |		.CONST	0x0			; Out arg [1]
00021cf1 01                       |        |		.CONST	0x1			; Out arg [2]
00021cf2 08                       |        |		.CONST	0x8			; Out arg flag
00021cf3 00                       |        |		.PAD	0x0
00021cf4					exp_LOAD_UIR.SEQ(Sw_6):
00021cf4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021cfa 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021cfc 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.SEQ'
00021d09 00                       |        |		.CONST	0x0
00021d0a 02                       |        |		.CONST	0x2			; DIPROC address
00021d0b 00                       |        |		.CONST	0x0			; Output Parameters
00021d0c 01                       |        |		.CONST	0x1			; Input Parameters
00021d0d 05                       |        |		.CONST	0x5			; In arg [6]
00021d0e					exp_FORCE_SYNC.SEQ():
00021d0e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021d14 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021d16 0e 46 4f 52 43 45 5f 53  | FORCE_S|		.TXT	14,'FORCE_SYNC.SEQ'
00021d25 00                       |        |		.CONST	0x0
00021d26 02                       |        |		.CONST	0x2			; DIPROC address
00021d27 00                       |        |		.CONST	0x0			; Output Parameters
00021d28 00                       |        |		.CONST	0x0			; Input Parameters
00021d29 00                       |        |		.PAD	0x0
00021d2a					exp_READ_UIR.TYP(Sw_1, &Sr_6):
00021d2a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021d30 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021d32 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.TYP'
00021d3f 00                       |        |		.CONST	0x0
00021d40 06                       |        |		.CONST	0x6			; DIPROC address
00021d41 01                       |        |		.CONST	0x1			; Output Parameters
00021d42 01                       |        |		.CONST	0x1			; Input Parameters
00021d43 00                       |        |		.CONST	0x0			; In arg [1]
00021d44 05                       |        |		.CONST	0x5			; Out arg [6]
00021d45 00                       |        |		.PAD	0x0
00021d46					exp_LOAD_UIR.TYP(Sw_6, Sw_1):
00021d46 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021d4c 00 10                    |        |		.CONST	0x0010			; Stack-delta
00021d4e 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.TYP'
00021d5b 00                       |        |		.CONST	0x0
00021d5c 06                       |        |		.CONST	0x6			; DIPROC address
00021d5d 00                       |        |		.CONST	0x0			; Output Parameters
00021d5e 02                       |        |		.CONST	0x2			; Input Parameters
00021d5f 05                       |        |		.CONST	0x5			; In arg [6]
00021d60 00                       |        |		.CONST	0x0			; In arg [1]
00021d61 00                       |        |		.PAD	0x0
00021d62					exp_READ_UIR.VAL(Sw_1, &Sr_5):
00021d62 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021d68 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021d6a 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.VAL'
00021d77 00                       |        |		.CONST	0x0
00021d78 07                       |        |		.CONST	0x7			; DIPROC address
00021d79 01                       |        |		.CONST	0x1			; Output Parameters
00021d7a 01                       |        |		.CONST	0x1			; Input Parameters
00021d7b 00                       |        |		.CONST	0x0			; In arg [1]
00021d7c 04                       |        |		.CONST	0x4			; Out arg [5]
00021d7d 00                       |        |		.PAD	0x0
00021d7e					exp_LOAD_UIR.VAL(Sw_5, Sw_1):
00021d7e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021d84 00 10                    |        |		.CONST	0x0010			; Stack-delta
00021d86 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.VAL'
00021d93 00                       |        |		.CONST	0x0
00021d94 07                       |        |		.CONST	0x7			; DIPROC address
00021d95 00                       |        |		.CONST	0x0			; Output Parameters
00021d96 02                       |        |		.CONST	0x2			; Input Parameters
00021d97 04                       |        |		.CONST	0x4			; In arg [5]
00021d98 00                       |        |		.CONST	0x0			; In arg [1]
00021d99 00                       |        |		.PAD	0x0
00021d9a 52 45 41 44              |READ    |		.TXT	'READ'
00021d9e 5f 4d 41 52              |_MAR    |		.TXT	'_MAR'
00021da2 2e 4d 45 4d              |.MEM    |		.TXT	'.MEM'
00021da6 52 45 41 44              |READ    |		.TXT	'READ'
00021daa 5f 4d 41 52              |_MAR    |		.TXT	'_MAR'
00021dae 2e 4d 33 32              |.M32    |		.TXT	'.M32'
00021db2 ; --------------------------------------------------------------------------------------
00021db2 ; OMSI PASCAL Function
00021db2 ;    <LVAR  0x012 1(r)>
00021db2 ;    <LVAR  0x010 1(r)>
00021db2 ;    <LVAR  0x00c 4(r)>
00021db2 ;    <LVAR  0x008 4(r)>
00021db2 ;    <LVAR -0x004 @ 4(r)>
00021db2 ; --------------------------------------------------------------------------------------
00021db2 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021db6 bf d5                    |        |		CMPA.L	(A5),A7
00021db8 62 06                    |b       |		BHI	0x21dc0
00021dba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021dbe 4e 76                    |Nv      |		TRAPV
00021dc0 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021dc4 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00021dc8 43 f8 00 00              |C       |		LEA.L	0x0,A1
00021dcc 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021dd0 47 f9 00 01 04 72        |G    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A3
00021dd6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021dd8 72 10                    |r       |		MOVEQ.L	#0x10,D1
00021dda 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ddc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021de2 4a 1f                    |J       |		TST.B	(A7)+
00021de4 67 0e                    |g       |		BEQ	0x21df4
00021de6 2f 3a ff ba              |/:      |		MOVE.L	0x21da2,-(A7)
00021dea 2f 3a ff b2              |/:      |		MOVE.L	0x21d9e,-(A7)
00021dee 2f 3a ff aa              |/:      |		MOVE.L	0x21d9a,-(A7)
00021df2 60 0c                    |`       |		BRA	0x21e00
00021df4 2f 3a ff b8              |/:      |		MOVE.L	0x21dae,-(A7)
00021df8 2f 3a ff b0              |/:      |		MOVE.L	0x21daa,-(A7)
00021dfc 2f 3a ff a8              |/:      |		MOVE.L	0x21da6,-(A7)
00021e00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e02 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e06 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021e0a 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021e0c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e12 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e14 48 52                    |HR      |		PEA.L	(A2)
00021e16 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021e1c de fc 00 14              |        |		ADDA.W	#0x14,A7
00021e20 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00021e24 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e26 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e2a 48 51                    |HQ      |		PEA.L	(A1)
00021e2c 48 51                    |HQ      |		PEA.L	(A1)
00021e2e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021e34 de c1                    |        |		ADDA.W	D1,A7
00021e36 42 17                    |B       |		CLR.B	(A7)
00021e38 1f 2e 00 12              | .      |		MOVE.B	(A6+0x12),-(A7)
00021e3c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e3e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021e44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e46 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021e4a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e4c 48 50                    |HP      |		PEA.L	(A0)
00021e4e 48 51                    |HQ      |		PEA.L	(A1)
00021e50 48 51                    |HQ      |		PEA.L	(A1)
00021e52 4e 93                    |N       |		JSR	(A3)
00021e54 de c0                    |        |		ADDA.W	D0,A7
00021e56 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021e58 48 68 00 01              |Hh      |		PEA.L	(A0+0x1)
00021e5c 48 51                    |HQ      |		PEA.L	(A1)
00021e5e 48 78 00 03              |Hx      |		PEA.L	0x3
00021e62 4e 93                    |N       |		JSR	(A3)
00021e64 de c0                    |        |		ADDA.W	D0,A7
00021e66 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021e68 48 68 00 05              |Hh      |		PEA.L	(A0+0x5)
00021e6c 48 51                    |HQ      |		PEA.L	(A1)
00021e6e 48 78 00 02              |Hx      |		PEA.L	0x2
00021e72 4e 93                    |N       |		JSR	(A3)
00021e74 de c0                    |        |		ADDA.W	D0,A7
00021e76 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021e78 48 68 00 08              |Hh      |		PEA.L	(A0+0x8)
00021e7c 48 51                    |HQ      |		PEA.L	(A1)
00021e7e 48 51                    |HQ      |		PEA.L	(A1)
00021e80 4e 93                    |N       |		JSR	(A3)
00021e82 de c0                    |        |		ADDA.W	D0,A7
00021e84 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021e86 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021e8a 48 50                    |HP      |		PEA.L	(A0)
00021e8c 48 51                    |HQ      |		PEA.L	(A1)
00021e8e 48 51                    |HQ      |		PEA.L	(A1)
00021e90 4e 93                    |N       |		JSR	(A3)
00021e92 de c1                    |        |		ADDA.W	D1,A7
00021e94 48 52                    |HR      |		PEA.L	(A2)
00021e96 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021e9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e9e 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00021ea2 4e 5e                    |N^      |		UNLK	A6
00021ea4 4e 75                    |Nu      |		RTS
00021ea6 4c 4f 41 44              |LOAD    |		.TXT	'LOAD'
00021eaa 5f 4d 41 52              |_MAR    |		.TXT	'_MAR'
00021eae 2e 4d 45 4d              |.MEM    |		.TXT	'.MEM'
00021eb2 4c 4f 41 44              |LOAD    |		.TXT	'LOAD'
00021eb6 5f 4d 41 52              |_MAR    |		.TXT	'_MAR'
00021eba 2e 4d 33 32              |.M32    |		.TXT	'.M32'
00021ebe ; --------------------------------------------------------------------------------------
00021ebe ; OMSI PASCAL Function
00021ebe ;    <LVAR  0x016 1(r)>
00021ebe ;    <LVAR  0x014 1(r)>
00021ebe ;    <LVAR  0x013 1(r)>
00021ebe ;    <LVAR  0x012 1(r)>
00021ebe ;    <LVAR  0x011 1(r)>
00021ebe ;    <LVAR  0x010 1(r)>
00021ebe ;    <LVAR  0x00f 1(r)>
00021ebe ;    <LVAR  0x00e 1(r)>
00021ebe ;    <LVAR  0x00d 1(r)>
00021ebe ;    <LVAR  0x00c 1(r)>
00021ebe ;    <LVAR  0x00a 1(r)>
00021ebe ;    <LVAR  0x008 1(r)>
00021ebe ;    <LVAR -0x004 @ 4(r)>
00021ebe ; --------------------------------------------------------------------------------------
00021ebe 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021ec2 bf d5                    |        |		CMPA.L	(A5),A7
00021ec4 62 06                    |b       |		BHI	0x21ecc
00021ec6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021eca 4e 76                    |Nv      |		TRAPV
00021ecc de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021ed0 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00021ed4 41 f8 00 00              |A       |		LEA.L	0x0,A0
00021ed8 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00021edc 45 f9 00 01 04 66        |E    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A2
00021ee2 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021ee4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ee6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021eec 4a 1f                    |J       |		TST.B	(A7)+
00021eee 67 0e                    |g       |		BEQ	0x21efe
00021ef0 2f 3a ff bc              |/:      |		MOVE.L	0x21eae,-(A7)
00021ef4 2f 3a ff b4              |/:      |		MOVE.L	0x21eaa,-(A7)
00021ef8 2f 3a ff ac              |/:      |		MOVE.L	0x21ea6,-(A7)
00021efc 60 0c                    |`       |		BRA	0x21f0a
00021efe 2f 3a ff ba              |/:      |		MOVE.L	0x21eba,-(A7)
00021f02 2f 3a ff b2              |/:      |		MOVE.L	0x21eb6,-(A7)
00021f06 2f 3a ff aa              |/:      |		MOVE.L	0x21eb2,-(A7)
00021f0a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f0c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f10 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021f14 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00021f18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f20 48 51                    |HQ      |		PEA.L	(A1)
00021f22 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021f28 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021f2c 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00021f30 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f32 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f36 48 50                    |HP      |		PEA.L	(A0)
00021f38 48 50                    |HP      |		PEA.L	(A0)
00021f3a 4e 92                    |N       |		JSR	(A2)
00021f3c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021f40 1e ae 00 0d              |        |		MOVE.B	(A6+0xd),(A7)
00021f44 1f 6e 00 0e 00 01        | n      |		MOVE.B	(A6+0xe),(A7+0x1)
00021f4a 1f 6e 00 0f 00 02        | n      |		MOVE.B	(A6+0xf),(A7+0x2)
00021f50 1f 6e 00 10 00 03        | n      |		MOVE.B	(A6+0x10),(A7+0x3)
00021f56 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f58 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f5c 48 50                    |HP      |		PEA.L	(A0)
00021f5e 48 78 00 03              |Hx      |		PEA.L	0x3
00021f62 4e 92                    |N       |		JSR	(A2)
00021f64 de c0                    |        |		ADDA.W	D0,A7
00021f66 1e ae 00 11              |        |		MOVE.B	(A6+0x11),(A7)
00021f6a 1f 6e 00 12 00 01        | n      |		MOVE.B	(A6+0x12),(A7+0x1)
00021f70 1f 6e 00 13 00 02        | n      |		MOVE.B	(A6+0x13),(A7+0x2)
00021f76 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f78 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f7c 48 50                    |HP      |		PEA.L	(A0)
00021f7e 48 78 00 02              |Hx      |		PEA.L	0x2
00021f82 4e 92                    |N       |		JSR	(A2)
00021f84 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021f88 1e ae 00 14              |        |		MOVE.B	(A6+0x14),(A7)
00021f8c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021f8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f92 48 50                    |HP      |		PEA.L	(A0)
00021f94 48 50                    |HP      |		PEA.L	(A0)
00021f96 4e 92                    |N       |		JSR	(A2)
00021f98 de c0                    |        |		ADDA.W	D0,A7
00021f9a 1e ae 00 0a              |        |		MOVE.B	(A6+0xa),(A7)
00021f9e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021fa0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fa4 48 50                    |HP      |		PEA.L	(A0)
00021fa6 48 50                    |HP      |		PEA.L	(A0)
00021fa8 4e 92                    |N       |		JSR	(A2)
00021faa de c0                    |        |		ADDA.W	D0,A7
00021fac 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021fb0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021fb2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fb6 48 50                    |HP      |		PEA.L	(A0)
00021fb8 48 50                    |HP      |		PEA.L	(A0)
00021fba 4e 92                    |N       |		JSR	(A2)
00021fbc de c0                    |        |		ADDA.W	D0,A7
00021fbe 42 17                    |B       |		CLR.B	(A7)
00021fc0 1f 2e 00 16              | .      |		MOVE.B	(A6+0x16),-(A7)
00021fc4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021fc6 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021fcc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fce 48 51                    |HQ      |		PEA.L	(A1)
00021fd0 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021fd6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fd8 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00021fdc 4e 5e                    |N^      |		UNLK	A6
00021fde 4e 75                    |Nu      |		RTS
00021fe0					exp_READ_UIR.IOC(Sw_1, &Sr_2):
00021fe0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021fe6 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021fe8 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.IOC'
00021ff5 00                       |        |		.CONST	0x0
00021ff6 04                       |        |		.CONST	0x4			; DIPROC address
00021ff7 01                       |        |		.CONST	0x1			; Output Parameters
00021ff8 01                       |        |		.CONST	0x1			; Input Parameters
00021ff9 00                       |        |		.CONST	0x0			; In arg [1]
00021ffa 01                       |        |		.CONST	0x1			; Out arg [2]
00021ffb 00                       |        |		.PAD	0x0
00021ffc					exp_LOAD_UIR.IOC(Sw_2, Sw_1):
00021ffc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022002 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022004 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.IOC'
00022011 00                       |        |		.CONST	0x0
00022012 04                       |        |		.CONST	0x4			; DIPROC address
00022013 00                       |        |		.CONST	0x0			; Output Parameters
00022014 02                       |        |		.CONST	0x2			; Input Parameters
00022015 01                       |        |		.CONST	0x1			; In arg [2]
00022016 00                       |        |		.CONST	0x0			; In arg [1]
00022017 00                       |        |		.PAD	0x0
00022018 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022026 ; --------------------------------------------------------------------------------------
00022026 ; OMSI PASCAL Function
00022026 ;    <LVAR  0x008 1(r)>
00022026 ; --------------------------------------------------------------------------------------
00022026					PROG_FAIL:
00022026 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002202a bf d5                    |        |		CMPA.L	(A5),A7
0002202c 62 06                    |b       |		BHI	0x22034
0002202e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022032 4e 76                    |Nv      |		TRAPV
00022034 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022038 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002203c 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00022040 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022042 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022044 51 c8 ff fc              |Q       |		DBF	D0,0x22042
00022048 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002204c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002204e 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022052 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022056 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002205a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022060 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022062 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022066 48 80                    |H       |		EXTB.W	D0
00022068 48 c0                    |H       |		EXTW.L	D0
0002206a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002206c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022072 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022074 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002207a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002207c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022082 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022086 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002208a 4e 5e                    |N^      |		UNLK	A6
0002208c 4e 75                    |Nu      |		RTS