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

⟦5b5e23e83⟧ M200

    Length: 7168 (0x1c00)
    Types: M200
    Notes: @(#)P3UCODE,2.0,89/10/03,17:18:19, M200_PROGRAM
    Names: »P3UCODE.M200«

Derivation

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

Disassembly

0x2047c


@ 2047c
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 2047c-205b8 Body>                                              
        <POP 2047c-20492 Prologue>                           Σ0         ↓
        <POP 20492-204a8 RegCacheLoad>                       Σ0         ↓
        <POP 204a8-20508 Naked>                              Σ0         ↓ →0x20550
            <Call 0x204a8 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x204ae [18] @>                            Δ-18               {[«18""»]}
            <POP 204ba-204bc StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x204bc 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x204c8 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 204ca-204cb StackAdj>                       Δ+22       ↓       {}
            <Blob 0x204cb [14] @>                            Δ-14               {[«14""»]}
            <POP 204da-204dc StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x204dc 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 204e6-204e8 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 204e8  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x204ec 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 204f2-204f4 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x204f4 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 204fa-204fc StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x204fc 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 204fe-20500 StackAdj>                       Δ+18               {}
            <MI 20500  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20504  CMPA.W  #0x01,A0>                                        {}
            <MI 20506  BEQ     0x20550>                                         {}
        <POP 20508-20550 Naked>                              Σ0         ↓
            <Blob 0x20508 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20518 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20528-2052a StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2052a 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20534-20536 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x20536>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x20536 12>                      Δ-4        
                <Const 0x2053a 0x1.2>                        Δ-2        
                <Const 0x2053c 0x1e.2>                       Δ-2        
                <Call 0x2053e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20540-20542 StackAdj>                   Δ+8        
            <Call 0x20542 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20548-2054a StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2054a 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2054c-20550 StackAdj>                       Δ+48               {}
        <POP 20550-205b0 Naked>                              Σ0         ↓ ←0x204a8
            <Blob 0x20550 [14] @>                            Δ-14               {[«14""»]}
            <POP 20560-20562 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20562 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 2056c-2056e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 2056e  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x20572 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 20578-2057a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2057a 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20580-20582 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20582 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20584-20585 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x20585 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x20594 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 20598-2059a StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2059a 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x205a8 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 205ae-205b0 StackAdj>                       Δ+30               {}
        <POP 205b0-205b8 Epilogue>                           Σ0         

0x205b8


@ 205b8
        <LVAR  0x016 1(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 205b8-20680 Body>                                   Δ+10       
        <POP 205b8-205ce Prologue>                           Σ0         ↓
        <POP 205ce-205d6 RegCacheLoad>                       Σ0         ↓
        <POP 205d6-205f6 Naked>                              Σ0         ↓ →0x20604
            <Call 0x205d6 0x10538>                                              {}
                IPC_Init(void)
            <MI 205dc  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x205e0 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 205e6-205e8 StackAdj>                       Δ+2                {[-2-]}
            <MI 205e8  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x205ec 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 205ee-205f0 StackAdj>                       Δ+2                {}
            <MI 205f0  TST.B   (A6+0x16)>                                       {}
            <MI 205f4  BNE     0x20604>                                         {}
        <POP 205f6-20604 Naked>                              Σ0         ↓
            <MI 205f6  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x205fa 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 205fc  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x20600 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20602-20604 StackAdj>                       Δ+2                {}
        <POP 20604-20610 Naked>                              Σ0         ↓ →0x20622 ←0x205d6
            <Call 0x20604 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 2060a  TST.B   (A6+0x16)>                                       {}
            <MI 2060e  BEQ     0x20622>                                         {}
        <POP 20610-20622 Naked>                              Σ0 Δ-10    →0x20632
            <Blob 0x20610 [10] @>                            Δ-10               {[«10""»]}
            <MI 20620  BRA     0x20632>                                         {[«10""»]}
        <POP 20622-20632 Naked>                              Σ0 Δ-10    ↓ ←0x20604
            <Blob 0x20622 [10] @>                            Δ-10               {[«10""»]}
        <POP 20632-20678 Naked>                              Σ-10 Δ+10  ↓ ←0x20610
            <POP 20632-20634 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x20634>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x20634 4>                       Δ-4        
                <Const 0x20638 0x1.2>                        Δ-2        
                <Const 0x2063c 0x9.2>                        Δ-2        
                <Call 0x20640 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20646-20648 StackAdj>                   Δ+8        
            <Const 0x20648 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x2064c 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x20650 <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x20654 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2065a-2065e StackAdj>                       Δ+24               {}
            <Call 0x2065e 0x10538>                                              {}
                IPC_Init(void)
            <MI 20664  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20668  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2066a 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20670-20672 StackAdj>                       Δ+4                {}
            <Call 0x20672 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20678-20680 Epilogue>                           Σ0         

0x20680


@ 20680
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 20680-2070e Body>                                              
        <POP 20680-20696 Prologue>                           Σ0         ↓
        <POP 20696-20706 Naked>                              Σ0         ↓
            <Call 0x20696 0x10538>                                              {}
                IPC_Init(void)
            <MI 2069c  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x206a0 0x10502>                                              {[2, '(A6+0xc)']}
                IPC_PutBool(a : Bool)
            <POP 206a6-206a8 StackAdj>                       Δ+2                {}
            <Call 0x206a8 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x206ae [10] @>                            Δ-10               {[«10""»]}
            <POP 206c0-206c2 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x206c2 9>                                                     {[«10""»]|[$$INITSTATE]}
            <Const 0x206d6 0x1.4>                            Δ-4                {[«10""»]|[$$INITSTATE]|[##1]}
            <Const 0x206da 0x2.2>                            Δ-2                {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
            <Pointer.fp 0x206de <LVAR -0x002 @>>             Δ-4                {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
            <Call 0x206e2 0x103b0>                                              {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 206e8-206ec StackAdj>                       Δ+24               {}
            <Call 0x206ec 0x10538>                                              {}
                IPC_Init(void)
            <MI 206f2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 206f6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x206f8 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 206fe-20700 StackAdj>                       Δ+4                {}
            <Call 0x20700 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20706-2070e Epilogue>                           Σ0         

0x2070e


@ 2070e
        <LVAR  0x008 4(r)>
    <POP 2070e-20746 Body>                                              
        <POP 2070e-20724 Prologue>                           Σ0         ↓
        <POP 20724-2073e Naked>                              Σ0         ↓
            <Call 0x20724 0x10538>                                              {}
                IPC_Init(void)
            <MI 2072a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2072e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20730 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20736-20738 StackAdj>                       Δ+4                {}
            <Call 0x20738 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 2073e-20746 Epilogue>                           Σ0         

0x20746


@ 20746
        <LVAR  0x008 1(r)>
    <POP 20746-20782 Body>                                              
        <POP 20746-20758 Prologue>                           Σ0         ↓
        <POP 20758-2077e Naked>                              Σ0         ↓
            <Call 0x20758 0x10538>                                              {}
                IPC_Init(void)
            <MI 2075e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20762 0x10502>                                              {[2, '(A6+0x8)']}
                IPC_PutBool(a : Bool)
            <POP 20768-2076a StackAdj>                       Δ+2                {}
            <Call 0x2076a 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20770  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20772 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20776 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2077c-2077e StackAdj>                       Δ+6                {}
        <POP 2077e-20782 Epilogue>                           Σ0         

0x20782


@ 20782
        <LVAR -0x004 1(rw)>
    <POP 20782-20862 Body>                                              
        <POP 20782-20798 Prologue>                           Σ0         ↓
        <POP 20798-207a0 RegCacheLoad>                       Σ0         ↓
        <POP 207a0-207ac Naked>                              Σ0         ↓ →0x207b4
            <POP 207a0-207a2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x207a2 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 207a8  TST.B   (A7)+>                        Δ+2                {}
            <MI 207aa  BEQ     0x207b4>                                         {}
        <POP 207ac-207b4 Naked>                              Σ0         →0x207ba
            <Call 0x207ac 0x2114c>                                              {}
                exp_LOAD_HRAM_8_0.FIU()
            <MI 207b2  BRA     0x207ba>                                         {}
        <POP 207b4-207ba Naked>                              Σ0         ↓ ←0x207a0
            <Call 0x207b4 0x2116a>                                              {}
                exp_LOAD_HRAM_32_0.FIU()
        <POP 207ba-207d0 Naked>                              Σ0         ↓ ←0x207ac
            <Call 0x207ba 0x211fa>                                              {}
                exp_LOAD_HRAM_1.FIU()
            <Call 0x207c0 0x21438>                                              {}
                exp_ALIGN_CSA.VAL()
            <Call 0x207c6 0x213b6>                                              {}
                exp_ALIGN_CSA.TYP()
            <MI 207cc  CLR.B   (A6-0x4)>                                        {}
            <MI 207ce  MOVEQ.L #0x0c,D7>                                        {}
        <POP 207d0-207e0 Naked>                              Σ0         ↓ →0x207ec ←0x207ec
            <POP 207d0-207d2 StackAdj>                       Δ-2                {[-2-]}
            <MI 207d2  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x207d4 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207da-207dc StackAdj>                       Δ+2                {[-2-]}
            <MI 207dc  TST.B   (A7)+>                        Δ+2                {}
            <MI 207de  BEQ     0x207ec>                                         {}
        <POP 207e0-207ec Naked>                              Σ0         ↓
            <MI 207e0  CLR.L   D0>                                              {}
            <MI 207e2  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 207e4  ADDQ.W  #0x1,D0>                                         {}
            <POP 0x207e6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 207ea  MOVE.B  D0,(A6-0x4)>                                     {}
        <POP 207ec-207f2 Naked>                              Σ0         ↓ →0x207d0 ←0x207d0
            <MI 207ec  ADDQ.B  #0x1,D7>                                         {}
            <MI 207ee  CMP.B   #0x0f,D7>                                        {}
            <MI 207f0  BLE     0x207d0>                                         {}
        <POP 207f2-207f4 Naked>                              Σ0         ↓
            <MI 207f2  MOVEQ.L #0x0c,D7>                                        {}
        <POP 207f4-20804 Naked>                              Σ0         ↓ →0x2083e ←0x2083e
            <POP 207f4-207f6 StackAdj>                       Δ-2                {[-2-]}
            <MI 207f6  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x207f8 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207fe-20800 StackAdj>                       Δ+2                {[-2-]}
            <MI 20800  TST.B   (A7)+>                        Δ+2                {}
            <MI 20802  BEQ     0x2083e>                                         {}
        <POP 20804-2083e Naked>                              Σ0         ↓
            <MI 20804  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <POP 20806-20808 StackAdj>                       Δ-2                {[2, 'D7']|[-2-]}
            <MI 20808  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']|[-2-]|[2, 'D7']}
            <Call 0x2080a 0x104c6>                                              {[2, 'D7']|[-2-]|[2, 'D7']}
                EQ_1c218(a : Byte) : Bool
            <POP 20810-20812 StackAdj>                       Δ+2                {[2, 'D7']|[-2-]}
            <MI 20812  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-2-]}
            <MI 20814  EXTB.W  D0>                                              {[2, 'D7']|[-2-]}
            <POP 0x20816 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-2-]}
            <MI 20818  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-2-]}
            <POP 2081a-2081c StackAdj>                       Δ-2                {[2, 'D7']|[-4-]}
            <Call 0x2081c 0x104cc>                                              {[2, 'D7']|[-4-]}
                MemOnly2MB() : Bool
            <MI 20822  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-4-]}
            <MI 20824  EXTB.W  D0>                                              {[2, 'D7']|[-4-]}
            <POP 0x20826 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-4-]}
            <MI 20828  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-4-]}
            <MI 2082a  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <Call 0x2082c 0x21680>                                              {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <POP 20832-20834 StackAdj>                       Δ+6                {[2, 'D7']}
            <MI 20834  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Call 0x20836 0x21768>                                              {[-2-]}
            <POP 2083c-2083e StackAdj>                       Δ+2                {}
        <POP 2083e-20844 Naked>                              Σ0         ↓ →0x207f4 ←0x207f4
            <MI 2083e  ADDQ.B  #0x1,D7>                                         {}
            <MI 20840  CMP.B   #0x0f,D7>                                        {}
            <MI 20842  BLE     0x207f4>                                         {}
        <POP 20844-2085a Naked>                              Σ0         ↓
            <Call 0x20844 0x105b0>                                              {}
                FifoInit(void)
            <Const 0x2084a 0xffff.2>                         Δ-2                {[#65535]}
            <Const 0x2084e 0xffff.2>                         Δ-2                {[#65535]|[#65535]}
            <Call 0x20852 0x211d6>                                              {[#65535]|[#65535]}
                exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
            <POP 20858-2085a StackAdj>                       Δ+4                {}
        <POP 2085a-20862 Epilogue>                           Σ0         

0x20862


@ 20862
        <LVAR  0x008 2(r)>
        <LVAR -0x002 1(rw)>
    <POP 20862-209dc Body>                                              
        <POP 20862-20878 Prologue>                           Σ0         ↓
        <POP 20878-2089a RegCacheLoad>                       Σ0         ↓
        <POP 2089a-208ac Naked>                              Σ0         ↓ →0x208b0
            <Call 0x2089a 0x21394>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <POP 208a0-208a2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x208a2 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 208a8  TST.B   (A7)+>                        Δ+2                {}
            <MI 208aa  BEQ     0x208b0>                                         {}
        <POP 208ac-208b0 Naked>                              Σ0         →0x208b4
            <MI 208ac  CLR.B   (A6-0x2)>                                        {}
            <MI 208ae  BRA     0x208b4>                                         {}
        <POP 208b0-208b4 Naked>                              Σ0         ↓ ←0x2089a
            <MI 208b0  MOVE.B  #0xff,(A6-0x2)>                                  {}
        <POP 208b4-208c0 Naked>                              Σ0         ↓ →0x208c8 ←0x208ac
            <POP 208b4-208b6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208b6 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x208b8 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208ba-208bc StackAdj>                       Δ+2                {[-2-]}
            <MI 208bc  TST.B   (A7)+>                        Δ+2                {}
            <MI 208be  BEQ     0x208c8>                                         {}
        <POP 208c0-208c8 Naked>                              Σ0         ↓
            <Const 0x208c0 0xc.2>                            Δ-2                {[#12]}
            <MI 208c2  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#12]|[2, '(A6-0x2)']}
            <Call 0x208c4 0x2146a>                                              {[#12]|[2, '(A6-0x2)']}
            <POP 208c6-208c8 StackAdj>                       Δ+4                {}
        <POP 208c8-208d4 Naked>                              Σ0         ↓ →0x208dc ←0x208b4
            <POP 208c8-208ca StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208ca 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x208cc 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208ce-208d0 StackAdj>                       Δ+2                {[-2-]}
            <MI 208d0  TST.B   (A7)+>                        Δ+2                {}
            <MI 208d2  BEQ     0x208dc>                                         {}
        <POP 208d4-208dc Naked>                              Σ0         ↓
            <Const 0x208d4 0xd.2>                            Δ-2                {[#13]}
            <MI 208d6  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#13]|[2, '(A6-0x2)']}
            <Call 0x208d8 0x2146a>                                              {[#13]|[2, '(A6-0x2)']}
            <POP 208da-208dc StackAdj>                       Δ+4                {}
        <POP 208dc-208e8 Naked>                              Σ0         ↓ →0x208f0 ←0x208c8
            <POP 208dc-208de StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208de 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x208e0 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208e2-208e4 StackAdj>                       Δ+2                {[-2-]}
            <MI 208e4  TST.B   (A7)+>                        Δ+2                {}
            <MI 208e6  BEQ     0x208f0>                                         {}
        <POP 208e8-208f0 Naked>                              Σ0         ↓
            <Const 0x208e8 0xe.2>                            Δ-2                {[#14]}
            <MI 208ea  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#14]|[2, '(A6-0x2)']}
            <Call 0x208ec 0x2146a>                                              {[#14]|[2, '(A6-0x2)']}
            <POP 208ee-208f0 StackAdj>                       Δ+4                {}
        <POP 208f0-208fc Naked>                              Σ0         ↓ →0x20904 ←0x208dc
            <POP 208f0-208f2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208f2 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x208f4 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208f6-208f8 StackAdj>                       Δ+2                {[-2-]}
            <MI 208f8  TST.B   (A7)+>                        Δ+2                {}
            <MI 208fa  BEQ     0x20904>                                         {}
        <POP 208fc-20904 Naked>                              Σ0         ↓
            <Const 0x208fc 0xf.2>                            Δ-2                {[#15]}
            <MI 208fe  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#15]|[2, '(A6-0x2)']}
            <Call 0x20900 0x2146a>                                              {[#15]|[2, '(A6-0x2)']}
            <POP 20902-20904 StackAdj>                       Δ+4                {}
        <POP 20904-20916 Naked>                              Σ0         ↓ →0x2091c ←0x208f0
            <Call 0x20904 0x21216>                                              {}
                exp_INIT_MRU.FIU()
            <POP 2090a-2090c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2090c 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x2090e 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20910-20912 StackAdj>                       Δ+2                {[-2-]}
            <MI 20912  TST.B   (A7)+>                        Δ+2                {}
            <MI 20914  BEQ     0x2091c>                                         {}
        <POP 20916-2091c Naked>                              Σ0         ↓
            <Const 0x20916 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20918 0x218c6>                                              {[#12]}
            <POP 2091a-2091c StackAdj>                       Δ+2                {}
        <POP 2091c-20928 Naked>                              Σ0         ↓ →0x2092e ←0x20904
            <POP 2091c-2091e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2091e 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20920 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20922-20924 StackAdj>                       Δ+2                {[-2-]}
            <MI 20924  TST.B   (A7)+>                        Δ+2                {}
            <MI 20926  BEQ     0x2092e>                                         {}
        <POP 20928-2092e Naked>                              Σ0         ↓
            <Const 0x20928 0xd.2>                            Δ-2                {[#13]}
            <Call 0x2092a 0x218c6>                                              {[#13]}
            <POP 2092c-2092e StackAdj>                       Δ+2                {}
        <POP 2092e-2093a Naked>                              Σ0         ↓ →0x20940 ←0x2091c
            <POP 2092e-20930 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20930 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20932 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20934-20936 StackAdj>                       Δ+2                {[-2-]}
            <MI 20936  TST.B   (A7)+>                        Δ+2                {}
            <MI 20938  BEQ     0x20940>                                         {}
        <POP 2093a-20940 Naked>                              Σ0         ↓
            <Const 0x2093a 0xe.2>                            Δ-2                {[#14]}
            <Call 0x2093c 0x218c6>                                              {[#14]}
            <POP 2093e-20940 StackAdj>                       Δ+2                {}
        <POP 20940-2094c Naked>                              Σ0         ↓ →0x20952 ←0x2092e
            <POP 20940-20942 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20942 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20944 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20946-20948 StackAdj>                       Δ+2                {[-2-]}
            <MI 20948  TST.B   (A7)+>                        Δ+2                {}
            <MI 2094a  BEQ     0x20952>                                         {}
        <POP 2094c-20952 Naked>                              Σ0         ↓
            <Const 0x2094c 0xf.2>                            Δ-2                {[#15]}
            <Call 0x2094e 0x218c6>                                              {[#15]}
            <POP 20950-20952 StackAdj>                       Δ+2                {}
        <POP 20952-20988 Naked>                              Σ0         ↓ →0x20992 ←0x20940
            <MI 20952  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20954 0x21340>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.TYP(Sw_2)
            <MI 2095a  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x2095c 0x21402>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.VAL(Sw_2)
            <POP 20962-20964 StackAdj>                       Δ+2                {}
            <MI 20964  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20966 0x21998>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.IOC(Sw_2)
            <POP 2096c-2096e StackAdj>                       Δ+2                {}
            <MI 2096e  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20970 0x2127e>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.SEQ(Sw_2)
            <MI 20976  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x20978 0x211bc>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.FIU(Sw_2)
            <Const 0x2097e 0xc.2>                            Δ-2                {[2, '(A6+0x8)']|[#12]}
            <Call 0x20980 0x104c0>                                              {[2, '(A6+0x8)']|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20982-20984 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 20984  TST.B   (A7)+>                        Δ+2                {}
            <MI 20986  BEQ     0x20992>                                         {}
        <POP 20988-20992 Naked>                              Σ0         ↓
            <Const 0x20988 0xc.2>                            Δ-2                {[#12]}
            <Call 0x2098a 0x2181c>                                              {[#12]}
            <POP 20990-20992 StackAdj>                       Δ+2                {}
        <POP 20992-2099e Naked>                              Σ0         ↓ →0x209a8 ←0x20952
            <POP 20992-20994 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20994 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20996 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20998-2099a StackAdj>                       Δ+2                {[-2-]}
            <MI 2099a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2099c  BEQ     0x209a8>                                         {}
        <POP 2099e-209a8 Naked>                              Σ0         ↓
            <Const 0x2099e 0xd.2>                            Δ-2                {[#13]}
            <Call 0x209a0 0x2181c>                                              {[#13]}
            <POP 209a6-209a8 StackAdj>                       Δ+2                {}
        <POP 209a8-209b4 Naked>                              Σ0         ↓ →0x209be ←0x20992
            <POP 209a8-209aa StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209aa 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x209ac 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 209ae-209b0 StackAdj>                       Δ+2                {[-2-]}
            <MI 209b0  TST.B   (A7)+>                        Δ+2                {}
            <MI 209b2  BEQ     0x209be>                                         {}
        <POP 209b4-209be Naked>                              Σ0         ↓
            <Const 0x209b4 0xe.2>                            Δ-2                {[#14]}
            <Call 0x209b6 0x2181c>                                              {[#14]}
            <POP 209bc-209be StackAdj>                       Δ+2                {}
        <POP 209be-209ca Naked>                              Σ0         ↓ →0x209d4 ←0x209a8
            <POP 209be-209c0 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209c0 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x209c2 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 209c4-209c6 StackAdj>                       Δ+2                {[-2-]}
            <MI 209c6  TST.B   (A7)+>                        Δ+2                {}
            <MI 209c8  BEQ     0x209d4>                                         {}
        <POP 209ca-209d4 Naked>                              Σ0         ↓
            <Const 0x209ca 0xf.2>                            Δ-2                {[#15]}
            <Call 0x209cc 0x2181c>                                              {[#15]}
            <POP 209d2-209d4 StackAdj>                       Δ+2                {}
        <POP 209d4-209dc Epilogue>                           Σ0         ←0x209be

0x209dc


@ 209dc
    <POP 209dc-20a7a Body>                                              
        <POP 209dc-209f2 Prologue>                           Σ0         ↓
        <POP 209f2-20a06 RegCacheLoad>                       Σ0         ↓
        <POP 20a06-20a30 Naked>                              Σ0         ↓ →0x20a36
            <Call 0x20a06 0x21230>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x20a0c 0x212f0>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x20a12 0x213d0>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x20a18 0x21264>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x20a1e 0x2197e>                                              {}
                exp_RUN_CHECK.IOC()
            <POP 20a24-20a26 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a26 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20a28 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20a2a-20a2c StackAdj>                       Δ+2                {[-2-]}
            <MI 20a2c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a2e  BEQ     0x20a36>                                         {}
        <POP 20a30-20a36 Naked>                              Σ0         ↓
            <Const 0x20a30 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20a32 0x215d2>                                              {[#12]}
            <POP 20a34-20a36 StackAdj>                       Δ+2                {}
        <POP 20a36-20a42 Naked>                              Σ0         ↓ →0x20a48 ←0x20a06
            <POP 20a36-20a38 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a38 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20a3a 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20a3c-20a3e StackAdj>                       Δ+2                {[-2-]}
            <MI 20a3e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a40  BEQ     0x20a48>                                         {}
        <POP 20a42-20a48 Naked>                              Σ0         ↓
            <Const 0x20a42 0xd.2>                            Δ-2                {[#13]}
            <Call 0x20a44 0x215d2>                                              {[#13]}
            <POP 20a46-20a48 StackAdj>                       Δ+2                {}
        <POP 20a48-20a54 Naked>                              Σ0         ↓ →0x20a5a ←0x20a36
            <POP 20a48-20a4a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a4a 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20a4c 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20a4e-20a50 StackAdj>                       Δ+2                {[-2-]}
            <MI 20a50  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a52  BEQ     0x20a5a>                                         {}
        <POP 20a54-20a5a Naked>                              Σ0         ↓
            <Const 0x20a54 0xe.2>                            Δ-2                {[#14]}
            <Call 0x20a56 0x215d2>                                              {[#14]}
            <POP 20a58-20a5a StackAdj>                       Δ+2                {}
        <POP 20a5a-20a66 Naked>                              Σ0         ↓ →0x20a6c ←0x20a48
            <POP 20a5a-20a5c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a5c 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20a5e 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20a60-20a62 StackAdj>                       Δ+2                {[-2-]}
            <MI 20a62  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a64  BEQ     0x20a6c>                                         {}
        <POP 20a66-20a6c Naked>                              Σ0         ↓
            <Const 0x20a66 0xf.2>                            Δ-2                {[#15]}
            <Call 0x20a68 0x215d2>                                              {[#15]}
            <POP 20a6a-20a6c StackAdj>                       Δ+2                {}
        <POP 20a6c-20a72 Naked>                              Σ0         ↓ ←0x20a5a
            <Call 0x20a6c 0x2118a>                                              {}
                exp_RUN_NORMAL.FIU()
        <POP 20a72-20a7a Epilogue>                           Σ0         

0x20a7a


@ 20a7a
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x005 @ 1(rw)>
        <LVAR -0x006 @>
        <LVAR -0x007 @ 1(r)>
    <POP 20a7a-20baa Body>                                              
        <POP 20a7a-20a90 Prologue>                           Σ0         ↓
        <POP 20a90-20aaa RegCacheLoad>                       Σ0         ↓
        <POP 20aaa-20ad4 Naked>                              Σ0         ↓ →0x20ada
            <Call 0x20aaa 0x21230>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x20ab0 0x21968>                                              {}
                exp_RESET.IOC()
            <Call 0x20ab6 0x213ec>                                              {}
                exp_RESET.VAL()
            <Call 0x20abc 0x2130c>                                              {}
                exp_RESET.TYP()
            <Call 0x20ac2 0x2124e>                                              {}
                exp_RESET.SEQ()
            <POP 20ac8-20aca StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20aca 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20acc 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ace-20ad0 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ad0  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ad2  BEQ     0x20ada>                                         {}
        <POP 20ad4-20ada Naked>                              Σ0         ↓
            <Const 0x20ad4 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20ad6 0x21528>                                              {[#12]}
            <POP 20ad8-20ada StackAdj>                       Δ+2                {}
        <POP 20ada-20ae6 Naked>                              Σ0         ↓ →0x20aec ←0x20aaa
            <POP 20ada-20adc StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20adc 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20ade 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ae0-20ae2 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ae2  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ae4  BEQ     0x20aec>                                         {}
        <POP 20ae6-20aec Naked>                              Σ0         ↓
            <Const 0x20ae6 0xd.2>                            Δ-2                {[#13]}
            <Call 0x20ae8 0x21528>                                              {[#13]}
            <POP 20aea-20aec StackAdj>                       Δ+2                {}
        <POP 20aec-20af8 Naked>                              Σ0         ↓ →0x20afe ←0x20ada
            <POP 20aec-20aee StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20aee 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20af0 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20af2-20af4 StackAdj>                       Δ+2                {[-2-]}
            <MI 20af4  TST.B   (A7)+>                        Δ+2                {}
            <MI 20af6  BEQ     0x20afe>                                         {}
        <POP 20af8-20afe Naked>                              Σ0         ↓
            <Const 0x20af8 0xe.2>                            Δ-2                {[#14]}
            <Call 0x20afa 0x21528>                                              {[#14]}
            <POP 20afc-20afe StackAdj>                       Δ+2                {}
        <POP 20afe-20b0a Naked>                              Σ0         ↓ →0x20b10 ←0x20aec
            <POP 20afe-20b00 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b00 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20b02 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20b04-20b06 StackAdj>                       Δ+2                {[-2-]}
            <MI 20b06  TST.B   (A7)+>                        Δ+2                {}
            <MI 20b08  BEQ     0x20b10>                                         {}
        <POP 20b0a-20b10 Naked>                              Σ0         ↓
            <Const 0x20b0a 0xf.2>                            Δ-2                {[#15]}
            <Call 0x20b0c 0x21528>                                              {[#15]}
            <POP 20b0e-20b10 StackAdj>                       Δ+2                {}
        <POP 20b10-20b3a Naked>                              Σ0         ↓ ←0x20afe
            <Call 0x20b10 0x211a6>                                              {}
                exp_RESET.FIU()
            <MI 20b16  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20b1a  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20b1c 0x21298>                                              {[4, '^(A0)']}
                exp_HALT.SEQ(&Fr)
            <POP 20b22-20b24 StackAdj>                       Δ+4                {}
            <MI 20b24  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20b28  CLR.B   (A0)>                                            {}
            <MI 20b2a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20b2e  CLR.B   (A0)>                                            {}
            <MI 20b30  CLR.B   (A0+0xb)>                                        {}
            <MI 20b34  CLR.B   (A0+0x1)>                                        {}
            <MI 20b38  MOVEQ.L #0x02,D7>                                        {}
        <POP 20b3a-20b40 Naked>                              Σ0         ↓ →0x20b60 ←0x20b98
            <MI 20b3a  CMPI.B  #0x05,D7>                                        {}
            <MI 20b3e  BEQ     0x20b60>                                         {}
        <POP 20b40-20b60 Naked>                              Σ0         →0x20b7a
            <MI 20b40  MOVE.B  D7,D0>                                           {}
            <MI 20b42  EXTB.W  D0>                                              {}
            <MI 20b44  LEA.L   0x20470,A0>                                      {}
            <MI 20b48  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Pointer.fp 0x20b4c <LVAR -0x006 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]}
            <Pointer.fp 0x20b50 <LVAR -0x005 @ 1(rw)>>       Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]}
            <Pointer.fp 0x20b52 <LVAR -0x004 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
            <Call 0x20b56 0x10484>                                              {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20b5c-20b5e StackAdj>                       Δ+14               {}
            <MI 20b5e  BRA     0x20b7a>                                         {}
        <POP 20b60-20b78 Naked>                              Σ0         ↓ →0x20b7a ←0x20b3a
            <Pointer.fp 0x20b60 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Call 0x20b64 0x212ae>                                              {[@@-7]}
                exp_GET_MISC_ERRORS.SEQ(&Sr_1)
            <POP 20b6a-20b6c StackAdj>                       Δ+4                {}
            <MI 20b6c  CLR.L   D0>                                              {}
            <MI 20b6e  MOVE.B  (A6-0x7),D0>                                     {}
            <MI 20b72  CMPI.W  #0x001f,D0>                                      {}
            <MI 20b76  BEQ     0x20b7a>                                         {}
        <POP 20b78-20b7a Naked>                              Σ0         ↓
            <MI 20b78  MOVE.B  #0x01,(A6-0x5)>                                  {}
        <POP 20b7a-20b92 Naked>                              Σ0 Δ-2     ↓ →0x20b98 ←0x20b40 ←0x20b60
            <MI 20b7a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20b7e  MOVE.B  D7,D0>                                           {}
            <MI 20b80  EXTB.W  D0>                                              {}
            <MI 20b82  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 20b84  MOVE.B  (A6-0x5),D1>                                     {[2, 'D0']}
            <MI 20b86  EXTB.W  D1>                                              {[2, 'D0']}
            <POP 0x20b88 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[2, 'D0']}
            <MI 20b8a  MOVE.B  D1,(A0+D0.W)>                                    {[2, 'D0']}
            <MI 20b8e  TST.W   D1>                                              {[2, 'D0']}
            <MI 20b90  BEQ     0x20b98>                                         {[2, 'D0']}
        <POP 20b92-20b98 Naked>                              Σ-2        ↓
            <MI 20b92  MOVEA.L (A6+0xc),A0>                                     {[-2-]}
            <MI 20b96  MOVE.B  #0x01,(A0)>                                      {[-2-]}
        <POP 20b98-20ba2 Naked>                              Σ-2 Δ+2    ↓ →0x20b3a ←0x20b7a
            <MI 20b98  MOVE.W  (A7)+,D7>                     Δ+2                {}
            <MI 20b9a  ADDQ.W  #0x1,D7>                                         {}
            <MI 20b9c  CMPI.W  #0x000a,D7>                                      {}
            <MI 20ba0  BLE     0x20b3a>                                         {}
        <POP 20ba2-20baa Epilogue>                           Σ0         

0x20baa


@ 20baa
        <LVAR  0x008 2(r)>
    <POP 20baa-20c60 Body>                                              
        <POP 20baa-20bc0 Prologue>                           Σ0         ↓
        <POP 20bc0-20bd0 RegCacheLoad>                       Σ0         ↓
        <POP 20bd0-20c1a Naked>                              Σ0         ↓ →0x20c58
            <Const 0x20bd0 0x21a3a.4>                        Δ-4                {[##137786]}
            <Call 0x20bd2 0x102bc>                                              {[##137786]}
                FreeString(VAR a : String)
            <POP 20bd8-20bda StackAdj>                       Δ+4                {}
            <MI 20bda  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x20bde LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 20be2  MULS.W  #0x0a,D0>                                        {}
            <MI 20be4  LEA.L   0x20328,A0>                                      {}
            <Blob 0x20be8 [10] (A0+D0.W+#0xa)>               Δ-10               {[«10»]}
            <POP 20bf4-20bf6 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x20bf6>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x20bf6 4>                       Δ-4        
                <Const 0x20bfa 0x1.2>                        Δ-2        
                <Const 0x20bfc 0xa.2>                        Δ-2        
                <Call 0x20bfe 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20c04-20c06 StackAdj>                   Δ+8        
            <MI 20c06  MOVE.L  (A7)+,0x21a3a>                Δ+4                {[«10»]}
            <POP 20c08-20c0a StackAdj>                       Δ+2                {[-8-]}
            <POP 20c0a-20c0b StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20c0b [4] 0x21a3a>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x20c0c 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 20c12-20c14 StackAdj>                       Δ+4                {[-4-]}
            <MI 20c14  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 20c16  TST.B   0x21a34>                                         {}
            <MI 20c18  BEQ     0x20c58>                                         {}
        <POP 20c1a-20c58 Naked>                              Σ0         ↓
            <MI 20c1a  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <MI 20c1c  MOVE.B  0x21a34,D0>                                      {[4, 'A4']}
            <MI 20c1e  EXTB.W  D0>                                              {[4, 'A4']}
            <POP 0x20c20 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']}
            <MI 20c22  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']}
            <MI 20c24  MOVE.B  0x21a35,D0>                                      {[4, 'A4']|[2, 'D0']}
            <MI 20c2a  EXTB.W  D0>                                              {[4, 'A4']|[2, 'D0']}
            <POP 0x20c2c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']|[2, 'D0']}
            <MI 20c2e  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']|[2, 'D0']}
            <Const 0x20c30 0x21a36.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]}
            <Const 0x20c36 0x21a3e.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]|[##137790]}
            <Const 0x20c3c 0x21a42.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]|[##137790]|[##137794]}
            <Const 0x20c42 0x21a46.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]|[##137790]|[##137794]|[##137798]}
            <Const 0x20c48 0x21a47.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]|[##137790]|[##137794]|[##137798]|[##137799]}
            <Call 0x20c4e 0x1053e>                                              {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##137782]|[##137790]|[##137794]|[##137798]|[##137799]}
                FSCALL_1053e
            <POP 20c54-20c58 StackAdj>                       Δ+28               {}
        <POP 20c58-20c60 Epilogue>                           Σ0         ←0x20bd0

0x20c60


@ 20c60
        <LVAR  0x008 1(r)>
    <POP 20c60-20cc4 Body>                                              
        <POP 20c60-20c76 Prologue>                           Σ0         ↓
        <POP 20c76-20c82 RegCacheLoad>                       Σ0         ↓
        <POP 20c82-20c90 Naked>                              Σ0         ↓ →0x20c94
            <MI 20c82  MOVE.B  (A6+0x8),0x21a46>                                {}
            <MI 20c86  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20c8a  CMPI.B  #0x02,D0>                                        {}
            <MI 20c8e  BEQ     0x20c94>                                         {}
        <POP 20c90-20c94 Naked>                              Σ0         ↓
            <MI 20c90  MOVE.B  #0x29,0x21a47>                                   {}
        <POP 20c94-20cbc Naked>                              Σ0         ↓ ←0x20c82
            <MI 20c94  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Blob 0x20c96 [4] 0x21a3e>                       Δ-4                {[#0]|[«4»]}
            <Blob 0x20c9c [4] 0x21a42>                       Δ-4                {[#0]|[«4»]|[«4»]}
            <Blob 0x20ca2 [2] 0x21a46>                       Δ-2                {[#0]|[«4»]|[«4»]|[«2»]}
            <Blob 0x20ca4 [8] 0x21a47>                       Δ-8                {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x20cb2 0x1054a>                                              {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20cb8-20cbc StackAdj>                       Δ+20               {}
        <POP 20cbc-20cc4 Epilogue>                           Σ0         

0x20cc4


@ 20cc4
        <LVAR -0x005 1(r)>
        <LVAR -0x006 @ 1(r) 2(r)>
        <LVAR -0x012 @>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 20cc4-20dd8 Body>                                   Δ-6        
        <POP 20cc4-20cda Prologue>                           Σ0         ↓
        <POP 20cda-20cec RegCacheLoad>                       Σ0         ↓
        <POP 20cec-20d10 Naked>                              Σ0 Δ-4     ↓ →0x20d46
            <Pointer.fp 0x20cec <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x20cee <LVAR -0x013 @ 1(r)>>        Δ-4                {[@@-20]|[@@-19]}
            <Pointer.fp 0x20cf0 <LVAR -0x012 @>>             Δ-4                {[@@-20]|[@@-19]|[@@-18]}
            <Call 0x20cf4 0x20a7a>                                              {[@@-20]|[@@-19]|[@@-18]}
            <POP 20cf8-20cfc StackAdj>                       Δ+12               {}
            <Pointer.fp 0x20cfc <LVAR -0x006 @ 1(r) 2(r)>>   Δ-4                {[@@-6]}
            <Call 0x20cfe 0x2194a>                                              {[@@-6]}
                exp_READ_LAST_PC.IOC(&Sr_2)
            <POP 20d04-20d06 StackAdj>                       Δ+4                {}
            <MI 20d06  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x6)']}
            <Const 0x20d08 0x200.2>                          Δ-2                {[2, '(A6-0x6)']|[#512]}
            <MI 20d0c  TST.B   (A6-0x14)>                                       {[2, '(A6-0x6)']|[#512]}
            <MI 20d0e  BEQ     0x20d46>                                         {[2, '(A6-0x6)']|[#512]}
        <POP 20d10-20d14 Naked>                              Σ-4        ↓ →0x20d46
            <MI 20d10  TST.B   (A6-0x13)>                                       {[-4-]}
            <MI 20d12  BNE     0x20d46>                                         {[-4-]}
        <POP 20d14-20d3c Naked>                              Σ-4        ↓ →0x20d46
            <POP 20d14-20d16 StackAdj>                       Δ-2                {[-6-]}
            <Pointer.sp 0x20d16 4>                           Δ-4                {[-6-]|[^^4]}
            <Const 0x20d1a 0x0.4>                            Δ-4                {[-6-]|[^^4]|[##0]}
            <Const 0x20d1e 0x1.4>                            Δ-4                {[-6-]|[^^4]|[##0]|[##1]}
            <Pointer.sp 0x20d22 14>                          Δ-4                {[-6-]|[^^4]|[##0]|[##1]|[^^14]}
            <Const 0x20d26 0x0.4>                            Δ-4                {[-6-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
            <Const 0x20d2a 0x1.4>                            Δ-4                {[-6-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
            <Call 0x20d2e 0x104a8>                                              {[-6-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 20d34-20d38 StackAdj>                       Δ+24               {[-6-]}
            <MI 20d38  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 20d3a  BEQ     0x20d46>                                         {[-4-]}
        <POP 20d3c-20d42 Naked>                              Σ-4 Δ+4    →0x20dd0
            <POP 20d3c-20d3e StackAdj>                       Δ+4                {}
            <MI 20d3e  BRA     0x20dd0>                                         {}
        <POP 20d46-20d4a Naked>                              Σ-4        ↓ →0x20d4e ←0x20cec ←0x20d10 ←0x20d14
            <MI 20d46  TST.B   (A6-0x13)>                                       {[-4-]}
            <MI 20d48  BNE     0x20d4e>                                         {[-4-]}
        <POP 20d4a-20d4e Naked>                              Σ-4        ↓ →0x20dc4
            <MI 20d4a  TST.B   (A6-0x14)>                                       {[-4-]}
            <MI 20d4c  BEQ     0x20dc4>                                         {[-4-]}
        <POP 20d4e-20d50 Naked>                              Σ-4        ↓ ←0x20d46
            <MI 20d4e  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 20d50-20d6c Naked>                              Σ-4        ↓ →0x20db8 ←0x20db8
            <POP 0x20d50 LimitCheck 0x0 ≤ D7 ≤ 0x1f>                            {[-4-]}
            <MI 20d52  MOVE.W  D7,D0>                                           {[-4-]}
            <MI 20d54  ASL.W   #0x3,D0>                                         {[-4-]}
            <MI 20d56  LEA.L   0x21a28,A0>                                      {[-4-]}
            <MI 20d5c  CLR.L   D1>                                              {[-4-]}
            <MI 20d5e  MOVE.B  (A0+D0.W+#0x32),D1>                              {[-4-]}
            <MI 20d62  AND.W   #0xff,D1>                                        {[-4-]}
            <MI 20d64  MOVE.B  D1,(A0+D0.W+#0x32)>                              {[-4-]}
            <MI 20d68  TST.B   D1>                                              {[-4-]}
            <MI 20d6a  BEQ     0x20db8>                                         {[-4-]}
        <POP 20d6c-20d98 Naked>                              Σ-4        ↓ →0x20db8
            <MI 20d6c  CLR.L   D1>                                              {[-4-]}
            <MI 20d6e  MOVE.B  (A0+D0.W+#0x30),D1>                              {[-4-]}
            <MI 20d72  AND.W   #0xff,D1>                                        {[-4-]}
            <MI 20d74  MOVE.B  D1,(A0+D0.W+#0x30)>                              {[-4-]}
            <MI 20d78  CLR.L   D1>                                              {[-4-]}
            <MI 20d7a  MOVE.B  (A0+D0.W+#0x31),D1>                              {[-4-]}
            <MI 20d7e  AND.W   #0xff,D1>                                        {[-4-]}
            <MI 20d80  MOVE.B  D1,(A0+D0.W+#0x31)>                              {[-4-]}
            <MI 20d84  CLR.L   D1>                                              {[-4-]}
            <MI 20d86  MOVE.B  (A0+D0.W+#0x33),D1>                              {[-4-]}
            <MI 20d8a  AND.W   #0xff,D1>                                        {[-4-]}
            <MI 20d8c  MOVE.B  D1,(A0+D0.W+#0x33)>                              {[-4-]}
            <MI 20d90  MOVE.B  (A6-0x6),D2>                                     {[-4-]}
            <MI 20d92  CMP.B   (A0+D0.W+#0x32),D2>                              {[-4-]}
            <MI 20d96  BCS     0x20db8>                                         {[-4-]}
        <POP 20d98-20d9e Naked>                              Σ-4        ↓ →0x20db8
            <MI 20d98  CMP.B   (A6-0x5),D1>                                     {[-4-]}
            <MI 20d9c  BHI     0x20db8>                                         {[-4-]}
        <POP 20d9e-20da4 Naked>                              Σ-4        ↓ →0x20db8
            <MI 20d9e  CMP.B   (A0+D0.W+#0x30),D2>                              {[-4-]}
            <MI 20da2  BHI     0x20db8>                                         {[-4-]}
        <POP 20da4-20dae Naked>                              Σ-4        ↓ →0x20db8
            <MI 20da4  MOVE.B  (A6-0x5),D1>                                     {[-4-]}
            <MI 20da8  CMP.B   (A0+D0.W+#0x31),D1>                              {[-4-]}
            <MI 20dac  BHI     0x20db8>                                         {[-4-]}
        <POP 20dae-20db8 Naked>                              Σ-4 Δ+4    →0x20dd0
            <MI 20dae  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[2, 'D7']}
            <Call 0x20db0 0x20baa>                                              {[-4-]|[2, 'D7']}
            <POP 20db4-20db6 StackAdj>                       Δ+6                {}
            <MI 20db6  BRA     0x20dd0>                                         {}
        <POP 20db8-20dbe Naked>                              Σ-4        ↓ →0x20d50 ←0x20d50 ←0x20d6c ←0x20d98 ←0x20d9e ←0x20da4
            <MI 20db8  ADDQ.W  #0x1,D7>                                         {[-4-]}
            <MI 20dba  CMP.W   #0x1f,D7>                                        {[-4-]}
            <MI 20dbc  BLE     0x20d50>                                         {[-4-]}
        <POP 20dbe-20dc4 Naked>                              Σ-4 Δ-2    →0x20dc8
            <Const 0x20dbe 0x1.2>                            Δ-2                {[-4-]|[#1]}
            <MI 20dc2  BRA     0x20dc8>                                         {[-4-]|[#1]}
        <POP 20dc4-20dc8 Naked>                              Σ-4 Δ-2    ↓ ←0x20d4a
            <Const 0x20dc4 0x2.2>                            Δ-2                {[-4-]|[#2]}
        <POP 20dc8-20dd0 Naked>                              Σ-6 Δ+6    ↓ ←0x20dbe
            <Call 0x20dc8 0x20c60>                                              {[-6-]}
            <POP 20dcc-20dce StackAdj>                       Δ+2                {[-4-]}
            <POP 20dce-20dd0 StackAdj>                       Δ+4                {}
        <POP 20dd0-20dd8 Epilogue>                           Σ0         ←0x20d3c ←0x20dae

0x20dd8


@ 20dd8
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @>
        <LVAR -0x008 @>
    <POP 20dd8-20eca Body>                                              
        <POP 20dd8-20dee Prologue>                           Σ0         ↓
        <POP 20dee-20e04 RegCacheLoad>                       Σ0         ↓
        <POP 20e04-20e06 Naked>                              Σ0         ↓
            <MI 20e04  MOVEQ.L #0x00,D7>                                        {}
        <POP 20e06-20e8e Naked>                              Σ0         ↓ ←0x20ebc
            <Const 0x20e06 0x9896.4>                         Δ-4                {[##39062]}
            <Call 0x20e0c 0x10224>                                              {[##39062]}
                KC12_Sleep(dur: Long)
            <POP 20e12-20e14 StackAdj>                       Δ+2                {[-2-]}
            <POP 20e14-20e15 StackAdj>                       Δ+2                {}
            <Const 0x20e15 0x4.2>                            Δ-2                {[#4]}
            <Pointer.fp 0x20e18 <LVAR -0x008 @>>             Δ-4                {[#4]|[@@-8]}
            <Pointer.fp 0x20e1a <LVAR -0x006 @ 1(r)>>        Δ-4                {[#4]|[@@-8]|[@@-6]}
            <Pointer.fp 0x20e1c <LVAR -0x007 @>>             Δ-4                {[#4]|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20e1e 0x10484>                                              {[#4]|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20e20-20e22 StackAdj>                       Δ+14               {}
            <MI 20e22  MOVE.B  D7,D0>                                           {}
            <MI 20e24  OR.B    (A6-0x6),D0>                                     {}
            <MI 20e26  EXTB.W  D0>                                              {}
            <POP 0x20e28 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e2a  MOVE.B  D0,D7>                                           {}
            <Const 0x20e2c 0x7.2>                            Δ-2                {[#7]}
            <Pointer.fp 0x20e30 <LVAR -0x008 @>>             Δ-4                {[#7]|[@@-8]}
            <Pointer.fp 0x20e32 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#7]|[@@-8]|[@@-6]}
            <Pointer.fp 0x20e34 <LVAR -0x007 @>>             Δ-4                {[#7]|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20e36 0x10484>                                              {[#7]|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20e38-20e3a StackAdj>                       Δ+14               {}
            <MI 20e3a  MOVE.B  D7,D0>                                           {}
            <MI 20e3c  OR.B    (A6-0x6),D0>                                     {}
            <MI 20e3e  EXTB.W  D0>                                              {}
            <POP 0x20e40 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e42  MOVE.B  D0,D7>                                           {}
            <Const 0x20e44 0x6.2>                            Δ-2                {[#6]}
            <Pointer.fp 0x20e48 <LVAR -0x008 @>>             Δ-4                {[#6]|[@@-8]}
            <Pointer.fp 0x20e4a <LVAR -0x006 @ 1(r)>>        Δ-4                {[#6]|[@@-8]|[@@-6]}
            <Pointer.fp 0x20e4c <LVAR -0x007 @>>             Δ-4                {[#6]|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20e4e 0x10484>                                              {[#6]|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20e50-20e52 StackAdj>                       Δ+14               {}
            <MI 20e52  MOVE.B  D7,D0>                                           {}
            <MI 20e54  OR.B    (A6-0x6),D0>                                     {}
            <MI 20e56  EXTB.W  D0>                                              {}
            <POP 0x20e58 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e5a  MOVE.B  D0,D7>                                           {}
            <Const 0x20e5c 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x20e60 <LVAR -0x008 @>>             Δ-4                {[#2]|[@@-8]}
            <Pointer.fp 0x20e62 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#2]|[@@-8]|[@@-6]}
            <Pointer.fp 0x20e64 <LVAR -0x007 @>>             Δ-4                {[#2]|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20e66 0x10484>                                              {[#2]|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20e68-20e6a StackAdj>                       Δ+14               {}
            <MI 20e6a  MOVE.B  D7,D0>                                           {}
            <MI 20e6c  OR.B    (A6-0x6),D0>                                     {}
            <MI 20e6e  EXTB.W  D0>                                              {}
            <POP 0x20e70 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e72  MOVE.B  D0,D7>                                           {}
            <Const 0x20e74 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x20e78 <LVAR -0x008 @>>             Δ-4                {[#3]|[@@-8]}
            <Pointer.fp 0x20e7a <LVAR -0x006 @ 1(r)>>        Δ-4                {[#3]|[@@-8]|[@@-6]}
            <Pointer.fp 0x20e7c <LVAR -0x007 @>>             Δ-4                {[#3]|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20e7e 0x10484>                                              {[#3]|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20e80-20e82 StackAdj>                       Δ+14               {}
            <MI 20e82  MOVE.B  D7,D0>                                           {}
            <MI 20e84  OR.B    (A6-0x6),D0>                                     {}
            <MI 20e86  EXTB.W  D0>                                              {}
            <POP 0x20e88 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e8a  MOVE.B  D0,D7>                                           {}
            <MI 20e8c  MOVEQ.L #0x0c,D6>                                        {}
        <POP 20e8e-20e9e Naked>                              Σ0         ↓ →0x20eb4 ←0x20eb4
            <POP 20e8e-20e90 StackAdj>                       Δ-2                {[-2-]}
            <MI 20e90  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x20e92 0x104c0>                                              {[-2-]|[2, 'D6']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20e98-20e9a StackAdj>                       Δ+2                {[-2-]}
            <MI 20e9a  TST.B   (A7)+>                        Δ+2                {}
            <MI 20e9c  BEQ     0x20eb4>                                         {}
        <POP 20e9e-20eb4 Naked>                              Σ0         ↓
            <MI 20e9e  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x20ea0 <LVAR -0x008 @>>             Δ-4                {[2, 'D6']|[@@-8]}
            <Pointer.fp 0x20ea2 <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-8]|[@@-6]}
            <Pointer.fp 0x20ea4 <LVAR -0x007 @>>             Δ-4                {[2, 'D6']|[@@-8]|[@@-6]|[@@-7]}
            <Call 0x20ea6 0x10484>                                              {[2, 'D6']|[@@-8]|[@@-6]|[@@-7]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20ea8-20eaa StackAdj>                       Δ+14               {}
            <MI 20eaa  MOVE.B  D7,D0>                                           {}
            <MI 20eac  OR.B    (A6-0x6),D0>                                     {}
            <MI 20eae  EXTB.W  D0>                                              {}
            <POP 0x20eb0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20eb2  MOVE.B  D0,D7>                                           {}
        <POP 20eb4-20ebc Naked>                              Σ0         ↓ →0x20e8e ←0x20e8e
            <MI 20eb4  ADDQ.B  #0x1,D6>                                         {}
            <MI 20eb6  CMPI.B  #0x0f,D6>                                        {}
            <MI 20eba  BLE     0x20e8e>                                         {}
        <POP 20ebc-20ec2 Naked>                              Σ0         ↓ →0x20e06
            <MI 20ebc  TST.B   D7>                                              {}
            <MI 20ebe  BEQ     0x20e06>                                         {}
        <POP 20ec2-20eca Epilogue>                           Σ0         

0x20eca


@ 20eca
        <LVAR -0x006 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 1(rw)>
    <POP 20eca-20f44 Body>                                              
        <POP 20eca-20ee0 Prologue>                           Σ0         ↓
        <POP 20ee0-20ee2 RegCacheLoad>                       Σ0         ↓
        <POP 20ee2-20ee4 Naked>                              Σ0         ↓
            <MI 20ee2  MOVEQ.L #0x00,D7>                                        {}
        <POP 20ee4-20f3c Naked>                              Σ0         ↓ →0x20ee4 ←0x20ee4
            <POP 0x20ee4 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {}
            <MI 20eee  MOVE.B  D7,(A6-0x8)>                                     {}
            <Const 0x20ef2 0x6.2>                            Δ-2                {[#6]}
            <MI 20ef6  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[#6]|[2, '(A6-0x8)']}
            <Pointer.fp 0x20efa <LVAR -0x007 @ 1(r)>>        Δ-4                {[#6]|[2, '(A6-0x8)']|[@@-7]}
            <Call 0x20efe 0x212d0>                                              {[#6]|[2, '(A6-0x8)']|[@@-7]}
                exp_REG_TO_LOOP.TYP(Sw_1, Sw_1, &Sr_2)
            <POP 20f04-20f06 StackAdj>                       Δ+8                {}
            <Call 0x20f06 0x2135a>                                              {}
                exp_PREP_READ_REG.TYP()
            <POP 20f0c-20f0e StackAdj>                       Δ-2                {[-2-]}
            <MI 20f0e  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <MI 20f12  MOVE.B  (A6-0x6),(A7+0x1)>                               {[-2-]}
            <MI 20f18  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <POP 0x20f1a LimitCheck 0x0 ≤ D7 ≤ 0x1f>                            {[-2-]|[#0]}
            <MI 20f20  MOVE.L  D7,D0>                                           {[-2-]|[#0]}
            <MI 20f22  ASL.L   #0x3,D0>                                         {[-2-]|[#0]}
            <MI 20f24  LEA.L   0x21a28,A0>                                      {[-2-]|[#0]}
            <MI 20f2a  PEA.L   (A0+D0.L+#0x2c)>              Δ-4                {[-2-]|[#0]|[4, '^(A0+D0.L+#0x2c)']}
            <Call 0x20f2e 0x21322>                                              {[-2-]|[#0]|[4, '^(A0+D0.L+#0x2c)']}
                exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8)
            <POP 20f34-20f36 StackAdj>                       Δ+8                {}
            <MI 20f36  ADDQ.L  #0x1,D7>                                         {}
            <MI 20f38  CMP.L   #0x1f,D7>                                        {}
            <MI 20f3a  BLE     0x20ee4>                                         {}
        <POP 20f3c-20f44 Epilogue>                           Σ0         

0x20f44


@ 20f44
        <LVAR -0x004 @>
    <POP 20f44-20f98 Body>                                              
        <POP 20f44-20f5a Prologue>                           Σ0         ↓
        <POP 20f5a-20f5c RegCacheLoad>                       Σ0         ↓
        <POP 20f5c-20f90 Naked>                              Σ0         ↓
            <Blob 0x20f5c [18] @>                            Δ-18               {[«18""»]}
            <MI 20f68  CLR.B   -(A7)>                        Δ-2                {[«18""»]|[#0]}
            <POP 20f6a-20f6c StackAdj>                       Δ-4                {[«18""»]|[#0]|[-4-]}
            <Lit 0x20f6c 18>                                                    {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]}
            <POP 20f7c-20f7e StackAdj>                       Δ-2                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[-2-]}
            <POP 20f7e-20f7f StackAdj>                       Δ+2                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]}
            <Const 0x20f7f 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[#1]}
            <Const 0x20f80 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[#1]|[#1]}
            <Const 0x20f82 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[#1]|[#1]|[#1]}
            <Pointer.fp 0x20f84 <LVAR -0x004 @>>             Δ-4                {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
            <Call 0x20f88 0x205b8>                                              {[«18""»]|[#0]|[$$P3UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
            <POP 20f8c-20f90 StackAdj>                       Δ+34               {}
        <POP 20f90-20f98 Epilogue>                           Σ0         

0x20f98


@ 20f98
START
    <POP 20f98--0001 Body>                                              
        <POP 20f98-20fa2 Prologue>                           Σ0         
        <POP 20fa2-20fb8 RegCacheLoad>                       Σ0         ↓
        <POP 20fb8-2103c Naked>                              Σ0         ↓
            <Call 0x20fb8 0x10398>                                              {}
                FSCALL_10398
            <Const 0x20fbe 0x3.4>                            Δ-4                {[##3]}
            <Call 0x20fc2 0x104d8>                                              {[##3]}
                ExpInit(a : Long)
            <POP 20fc8-20fca StackAdj>                       Δ+4                {}
            <Const 0x20fca 0x21a32.4>                        Δ-4                {[##137778]}
            <Const 0x20fcc 0x21a34.4>                        Δ-4                {[##137778]|[##137780]}
            <Const 0x20fd2 0x21a35.4>                        Δ-4                {[##137778]|[##137780]|[##137781]}
            <Const 0x20fd4 0x21a37.4>                        Δ-4                {[##137778]|[##137780]|[##137781]|[##137783]}
            <Const 0x20fd6 0x21a38.4>                        Δ-4                {[##137778]|[##137780]|[##137781]|[##137783]|[##137784]}
            <Call 0x20fdc 0x10562>                                              {[##137778]|[##137780]|[##137781]|[##137783]|[##137784]}
                ?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
            <POP 20fe2-20fe6 StackAdj>                       Δ+18               {[-2-]}
            <POP 20fe6-20fe7 StackAdj>                       Δ+2                {}
            <Blob 0x20fe7 [2] 0x21a35>                       Δ-2                {[«2»]}
            <Call 0x20fe8 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 20fee-20fef StackAdj>                       Δ+2        ↓       {}
            <Blob 0x20fef [8] @>                             Δ-8                {[«8""»]}
            <POP 20ffe-21000 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x21000 7>                                                     {[«8""»]|[$$P3UCODE]}
            <MI 21010  MOVE.L  (A7)+,0x21a3e>                Δ+4                {[«8""»]}
            <POP 21016-21018 StackAdj>                       Δ+8                {}
            <Const 0x21018 0x21a42.4>                        Δ-4                {[##137794]}
            <Call 0x2101e 0x102b8>                                              {[##137794]}
                NewString(VAR a : String)
            <POP 21024-21026 StackAdj>                       Δ+4                {}
            <Const 0x21026 0x21a3a.4>                        Δ-4                {[##137786]}
            <Call 0x2102c 0x102b8>                                              {[##137786]}
                NewString(VAR a : String)
            <POP 21032-21034 StackAdj>                       Δ+4                {}
            <MI 21034  CLR.B   0x21a46>                                         {}
            <MI 2103a  MOVEQ.L #0x00,D0>                                        {}
        <POP 2103c-21058 Naked>                              Σ0         ↓ →0x2103c ←0x2103c
            <MI 2103c  MOVE.L  D0,0x21a50>                                      {}
            <POP 0x21042 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 21048  LEA.L   0x21a28,A0>                                      {}
            <MI 2104e  CLR.B   (A0+D0.L+#0x1f)>                                 {}
            <MI 21052  ADDQ.L  #0x1,D0>                                         {}
            <MI 21054  CMP.L   #0x07,D0>                                        {}
            <MI 21056  BLE     0x2103c>                                         {}
        <POP 21058-21068 Naked>                              Σ0         ↓ →0x21096
            <MI 21058  MOVE.B  #0x01,0x21a36>                                   {}
            <MI 2105e  CLR.L   D0>                                              {}
            <MI 21060  MOVE.B  0x21a32,D0>                                      {}
            <MI 21062  CMPI.W  #0x0020,D0>                                      {}
            <MI 21066  BLS     0x21096>                                         {}
        <POP 21068-21096 Naked>                              Σ0         ↓
            <Blob 0x21068 [30] @>                            Δ-30               {[«30""»]}
            <Const 0x21074 0xe.2>                            Δ-2                {[«30""»]|[#14]}
            <POP 21078-2107a StackAdj>                       Δ-4                {[«30""»]|[#14]|[-4-]}
            <Lit 0x2107a 30>                                                    {[«30""»]|[#14]|[$$Illegal test name for P3UCODE.]}
            <Call 0x2108c 0x103b8>                                              {[«30""»]|[#14]|[$$Illegal test name for P3UCODE.]}
                PopProgram(status : Byte; msg : String)
            <POP 21092-21096 StackAdj>                       Δ+36               {}
        <POP 21096-2109e Naked>                              Σ0         ↓ →0x210a2 ←0x21058
            <MI 21096  TST.B   0x21a38>                                         {}
            <MI 2109c  BEQ     0x210a2>                                         {}
        <POP 2109e-210a2 Naked>                              Σ0         ↓
            <Call 0x2109e 0x20782>                                              {}
        <POP 210a2-210a6 Naked>                              Σ0         ↓ →0x210d0 ←0x21096
            <MI 210a2  TST.B   0x21a37>                                         {}
            <MI 210a4  BEQ     0x210d0>                                         {}
        <POP 210a6-210d0 Naked>                              Σ0         ↓
            <Call 0x210a6 0x20f44>                                              {}
            <Blob 0x210aa [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x210ae [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 210b2  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x210b4 0x2141c>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.VAL(Sw_8, Sw_1)
            <POP 210ba-210bc StackAdj>                       Δ+6                {[«4""»]}
            <POP 210bc-210bd StackAdj>                       Δ+4                {}
            <Blob 0x210bd [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x210c0 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 210c4  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x210c6 0x21378>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.TYP(Sw_8, Sw_1)
            <POP 210cc-210d0 StackAdj>                       Δ+10               {}
        <POP 210d0-21146 Naked>                              Σ0         ↓ ←0x210a2
            <Call 0x210d0 0x20eca>                                              {}
            <MI 210d4  MOVE.B  #0x02,0x21a30>                                   {}
            <MI 210dc  CLR.L   D0>                                              {}
            <MI 210de  MOVE.B  0x21a32,D0>                                      {}
            <MI 210e0  ADDQ.W  #0x2,D0>                                         {}
            <POP 0x210e2 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 210e6  MOVE.B  D0,0x21a31>                                      {}
            <Blob 0x210ec [2] 0x21a30>                       Δ-2                {[«2»]}
            <Call 0x210f2 0x20862>                                              {[«2»]}
            <POP 210f6-210f8 StackAdj>                       Δ+2                {}
            <Call 0x210f8 0x209dc>                                              {}
            <Call 0x210fc 0x20dd8>                                              {}
            <Call 0x21100 0x20cc4>                                              {}
            <Blob 0x21104 [2] 0x21a35>                       Δ-2                {[«2»]}
            <Const 0x21106 0x21a39.4>                        Δ-4                {[«2»]|[##137785]}
            <Call 0x2110c 0x20680>                                              {[«2»]|[##137785]}
            <POP 21110-21112 StackAdj>                       Δ+4                {[«2»]}
            <POP 21112-21113 StackAdj>                       Δ+2                {}
            <Blob 0x21113 [2] 0x21a36>                       Δ-2                {[«2»]}
            <Blob 0x21118 [4] 0x21a3e>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x2111e [4] 0x21a42>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x21124 [2] 0x21a46>                       Δ-2                {[«2»]|[«4»]|[«4»]|[«2»]}
            <Blob 0x2112a [8] 0x21a47>                       Δ-8                {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x2113c 0x1054a>                                              {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 21142-21146 StackAdj>                       Δ+20               {}
        <POP 21146-2114c Naked>                              Σ0         
            <Call 0x21146 0x10284>                                              {}
                ?exit

0x2146a


@ 2146a
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 2146a-21514 Body>                                   Δ+12       
        <POP 2146a-21480 Prologue>                           Σ0         ↓
        <POP 21480-21486 RegCacheLoad>                       Σ0         ↓
        <POP 21486-21492 Naked>                              Σ0         ↓ →0x214a4
            <POP 21486-21488 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21488 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2148e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21490  BEQ     0x214a4>                                         {}
        <POP 21492-214a4 Naked>                              Σ0 Δ-12    →0x214b4
            <Blob 0x21492 [12] @>                            Δ-12               {[«12""»]}
            <MI 214a2  BRA     0x214b4>                                         {[«12""»]}
        <POP 214a4-214b4 Naked>                              Σ0 Δ-12    ↓ ←0x21486
            <Blob 0x214a4 [12] @>                            Δ-12               {[«12""»]}
        <POP 214b4-2150c Naked>                              Σ-12 Δ+12  ↓ ←0x21492
            <POP 214b4-214b6 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x214b6>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x214b6 4>                       Δ-4        
                <Const 0x214ba 0x1.2>                        Δ-2        
                <Const 0x214be 0xb.2>                        Δ-2        
                <Call 0x214c2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 214c8-214ca StackAdj>                   Δ+8        
            <Pointer.fp 0x214ca <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x214cc 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 214d2-214d6 StackAdj>                       Δ+20               {}
            <MI 214d6  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 214da  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x214dc 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x214e0 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x214e4 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x214e8 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 214ee-214f2 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 214f2  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 214f4  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 214f8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x214fa 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21500-21502 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21502 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21504 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2150a-2150c StackAdj>                       Δ+4                {}
        <POP 2150c-21514 Epilogue>                           Σ0         

0x21528


@ 21528
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21528-215b6 Body>                                   Δ+10       
        <POP 21528-2153e Prologue>                           Σ0         ↓
        <POP 2153e-21544 RegCacheLoad>                       Σ0         ↓
        <POP 21544-21550 Naked>                              Σ0         ↓ →0x21562
            <POP 21544-21546 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21546 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2154c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2154e  BEQ     0x21562>                                         {}
        <POP 21550-21562 Naked>                              Σ0 Δ-10    →0x21572
            <Blob 0x21550 [10] @>                            Δ-10               {[«10""»]}
            <MI 21560  BRA     0x21572>                                         {[«10""»]}
        <POP 21562-21572 Naked>                              Σ0 Δ-10    ↓ ←0x21544
            <Blob 0x21562 [10] @>                            Δ-10               {[«10""»]}
        <POP 21572-215ae Naked>                              Σ-10 Δ+10  ↓ ←0x21550
            <POP 21572-21574 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x21574>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x21574 4>                       Δ-4        
                <Const 0x21578 0x1.2>                        Δ-2        
                <Const 0x2157c 0x9.2>                        Δ-2        
                <Call 0x21580 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21586-21588 StackAdj>                   Δ+8        
            <Pointer.fp 0x21588 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-10-]|[$$…]|[@@-6]}
            <Call 0x2158a 0x10460>                                              {[-10-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21590-21594 StackAdj>                       Δ+18               {}
            <MI 21594  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21596  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2159a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2159c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 215a2-215a4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x215a4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x215a6 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 215ac-215ae StackAdj>                       Δ+4                {}
        <POP 215ae-215b6 Epilogue>                           Σ0         

0x215d2


@ 215d2
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 215d2-21660 Body>                                   Δ+14       
        <POP 215d2-215e8 Prologue>                           Σ0         ↓
        <POP 215e8-215ee RegCacheLoad>                       Σ0         ↓
        <POP 215ee-215fa Naked>                              Σ0         ↓ →0x2160c
            <POP 215ee-215f0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x215f0 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 215f6  TST.B   (A7)+>                        Δ+2                {}
            <MI 215f8  BEQ     0x2160c>                                         {}
        <POP 215fa-2160c Naked>                              Σ0 Δ-14    →0x2161c
            <Blob 0x215fa [14] @>                            Δ-14               {[«14""»]}
            <MI 2160a  BRA     0x2161c>                                         {[«14""»]}
        <POP 2160c-2161c Naked>                              Σ0 Δ-14    ↓ ←0x215ee
            <Blob 0x2160c [14] @>                            Δ-14               {[«14""»]}
        <POP 2161c-21658 Naked>                              Σ-14 Δ+14  ↓ ←0x215fa
            <POP 2161c-2161e StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x2161e>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x2161e 4>                       Δ-4        
                <Const 0x21622 0x1.2>                        Δ-2        
                <Const 0x21626 0xd.2>                        Δ-2        
                <Call 0x2162a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21630-21632 StackAdj>                   Δ+8        
            <Pointer.fp 0x21632 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x21634 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2163a-2163e StackAdj>                       Δ+22               {}
            <MI 2163e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21640  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21644  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21646 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2164c-2164e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2164e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21650 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21656-21658 StackAdj>                       Δ+4                {}
        <POP 21658-21660 Epilogue>                           Σ0         

0x21680


@ 21680
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21680-21744 Body>                                   Δ+16       
        <POP 21680-21696 Prologue>                           Σ0         ↓
        <POP 21696-2169c RegCacheLoad>                       Σ0         ↓
        <POP 2169c-216a8 Naked>                              Σ0         ↓ →0x216ba
            <POP 2169c-2169e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2169e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 216a4  TST.B   (A7)+>                        Δ+2                {}
            <MI 216a6  BEQ     0x216ba>                                         {}
        <POP 216a8-216ba Naked>                              Σ0 Δ-16    →0x216ca
            <Blob 0x216a8 [16] @>                            Δ-16               {[«16""»]}
            <MI 216b8  BRA     0x216ca>                                         {[«16""»]}
        <POP 216ba-216ca Naked>                              Σ0 Δ-16    ↓ ←0x2169c
            <Blob 0x216ba [16] @>                            Δ-16               {[«16""»]}
        <POP 216ca-2173c Naked>                              Σ-16 Δ+16  ↓ ←0x216a8
            <POP 216ca-216cc StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x216cc>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x216cc 4>                       Δ-4        
                <Const 0x216d0 0x1.2>                        Δ-2        
                <Const 0x216d4 0xf.2>                        Δ-2        
                <Call 0x216d8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 216de-216e0 StackAdj>                   Δ+8        
            <Pointer.fp 0x216e0 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x216e2 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 216e8-216ec StackAdj>                       Δ+24               {}
            <MI 216ec  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 216ee  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
            <Call 0x216f2 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 216f8-216fa StackAdj>                       Δ+2                {[4, '(A6-0x4)']}
            <MI 216fa  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 216fc  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
            <Call 0x21700 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 21706-21708 StackAdj>                       Δ+4                {[-2-]}
            <MI 21708  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 2170c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x2170e 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21712 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21716 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2171a 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21720-21722 StackAdj>                       Δ+16               {[-2-]}
            <MI 21722  CLR.B   (A7)>                                            {[-2-]}
            <MI 21724  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0xe)']}
            <MI 21728  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Call 0x2172a 0x104ba>                                              {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21730-21732 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21732 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21734 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2173a-2173c StackAdj>                       Δ+4                {}
        <POP 2173c-21744 Epilogue>                           Σ0         

0x21768


@ 21768
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21768-217ec Body>                                   Δ+18       
        <POP 21768-2177e Prologue>                           Σ0         ↓
        <POP 2177e-21782 RegCacheLoad>                       Σ0         ↓
        <POP 21782-2178e Naked>                              Σ0         ↓ →0x2179c
            <POP 21782-21784 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21784 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2178a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2178c  BEQ     0x2179c>                                         {}
        <POP 2178e-2179c Naked>                              Σ0 Δ-18    →0x217a8
            <Blob 0x2178e [18] @>                            Δ-18               {[«18""»]}
            <MI 2179a  BRA     0x217a8>                                         {[«18""»]}
        <POP 2179c-217a8 Naked>                              Σ0 Δ-18    ↓ ←0x21782
            <Blob 0x2179c [18] @>                            Δ-18               {[«18""»]}
        <POP 217a8-217e4 Naked>                              Σ-18 Δ+18  ↓ ←0x2178e
            <POP 217a8-217aa StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x217aa>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x217aa 4>                       Δ-4        
                <Const 0x217ae 0x1.2>                        Δ-2        
                <Const 0x217b2 0x12.2>                       Δ-2        
                <Call 0x217b6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 217bc-217be StackAdj>                   Δ+8        
            <Pointer.fp 0x217be <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x217c0 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 217c6-217ca StackAdj>                       Δ+26               {}
            <MI 217ca  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 217cc  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 217d0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x217d2 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 217d8-217da StackAdj>                       Δ+8                {}
            <Pointer.fp 0x217da <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x217dc 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 217e2-217e4 StackAdj>                       Δ+4                {}
        <POP 217e4-217ec Epilogue>                           Σ0         

0x2181c


@ 2181c
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2181c-218aa Body>                                   Δ+24       
        <POP 2181c-21832 Prologue>                           Σ0         ↓
        <POP 21832-21838 RegCacheLoad>                       Σ0         ↓
        <POP 21838-21844 Naked>                              Σ0         ↓ →0x21856
            <POP 21838-2183a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2183a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21840  TST.B   (A7)+>                        Δ+2                {}
            <MI 21842  BEQ     0x21856>                                         {}
        <POP 21844-21856 Naked>                              Σ0 Δ-24    →0x21866
            <Blob 0x21844 [24] @>                            Δ-24               {[«24""»]}
            <MI 21854  BRA     0x21866>                                         {[«24""»]}
        <POP 21856-21866 Naked>                              Σ0 Δ-24    ↓ ←0x21838
            <Blob 0x21856 [24] @>                            Δ-24               {[«24""»]}
        <POP 21866-218a2 Naked>                              Σ-24 Δ+24  ↓ ←0x21844
            <POP 21866-21868 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x21868>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x21868 4>                       Δ-4        
                <Const 0x2186c 0x1.2>                        Δ-2        
                <Const 0x21870 0x17.2>                       Δ-2        
                <Call 0x21874 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2187a-2187c StackAdj>                   Δ+8        
            <Pointer.fp 0x2187c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x2187e 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21884-21888 StackAdj>                       Δ+32               {}
            <MI 21888  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2188a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2188e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21890 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21896-21898 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21898 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2189a 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 218a0-218a2 StackAdj>                       Δ+4                {}
        <POP 218a2-218aa Epilogue>                           Σ0         

0x218c6


@ 218c6
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 218c6-2194a Body>                                   Δ+14       
        <POP 218c6-218dc Prologue>                           Σ0         ↓
        <POP 218dc-218e0 RegCacheLoad>                       Σ0         ↓
        <POP 218e0-218ec Naked>                              Σ0         ↓ →0x218fa
            <POP 218e0-218e2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x218e2 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 218e8  TST.B   (A7)+>                        Δ+2                {}
            <MI 218ea  BEQ     0x218fa>                                         {}
        <POP 218ec-218fa Naked>                              Σ0 Δ-14    →0x21906
            <Blob 0x218ec [14] @>                            Δ-14               {[«14""»]}
            <MI 218f8  BRA     0x21906>                                         {[«14""»]}
        <POP 218fa-21906 Naked>                              Σ0 Δ-14    ↓ ←0x218e0
            <Blob 0x218fa [14] @>                            Δ-14               {[«14""»]}
        <POP 21906-21942 Naked>                              Σ-14 Δ+14  ↓ ←0x218ec
            <POP 21906-21908 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x21908>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x21908 4>                       Δ-4        
                <Const 0x2190c 0x1.2>                        Δ-2        
                <Const 0x21910 0xe.2>                        Δ-2        
                <Call 0x21914 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2191a-2191c StackAdj>                   Δ+8        
            <Pointer.fp 0x2191c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x2191e 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21924-21928 StackAdj>                       Δ+22               {}
            <MI 21928  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2192a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2192e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21930 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21936-21938 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21938 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2193a 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21940-21942 StackAdj>                       Δ+4                {}
        <POP 21942-2194a Epilogue>                           Σ0         

0x219c0


@ 219c0
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 219c0-21a28 Body>                                              
        <POP 219c0-219d6 Prologue>                           Σ0         ↓
        <POP 219d6-21a20 Naked>                              Σ0         ↓
            <Blob 0x219d6 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x219e2 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 219e6-219e8 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x219e8 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 219fa-219fc StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 219fc  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a00  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a02  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a04  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x21a06 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21a0c-21a0e StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x21a0e 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21a14-21a16 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x21a16 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21a1c-21a20 StackAdj>                       Δ+20               {}
        <POP 21a20-21a28 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.924d5e60203f42dc
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0f 98              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 1b 94              |        |		.PTR	0x21b94
00020010					code.end:
00020010 00 02 1a 28              |   (    |		.PTR	0x21a28
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 19 c0              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 04 7c              |   |    |		.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 53 42 55 53 55 4c 4f 41  |SBUSULOA|		.TXT	'SBUSULOAD '
00020168 44 42 55 53 55 4c 4f 41  |DBUSULOA|		.TXT	'DBUSULOAD '
00020172 49 4e 49 54 53 54 41 54  |INITSTAT|		.TXT	'INITSTATE '
0002017c 40 28 23 29              |@(#)    |		.XXX[0x4]
00020180 50 33 55 43 4f 44 45 2c  |P3UCODE,|		.XXX[0x170]
00020188 32 2e 30 2c 38 39 2f 31  |2.0,89/1|
00020190 30 2f 30 33 2c 31 37 3a  |0/03,17:|
00020198 31 38 3a 31 39 5c 50 33  |18:19\P3|
000201a0 55 41 4c 4c 20 20 20 20  |UALL    |
000201a8 50 33 55 43 4f 4e 44 20  |P3UCOND |
000201b0 20 20 50 33 55 53 59 53  |  P3USYS|
000201b8 20 20 20 20 50 33 55 56  |    P3UV|
000201c0 41 4c 20 20 20 20 50 33  |AL    P3|
000201c8 55 54 59 50 20 20 20 20  |UTYP    |
000201d0 50 33 55 53 45 51 20 20  |P3USEQ  |
000201d8 20 20 50 33 55 46 49 55  |  P3UFIU|
000201e0 20 20 20 20 50 33 55 4d  |    P3UM|
000201e8 45 4d 20 20 20 20 50 33  |EM    P3|
000201f0 55 43 53 41 20 20 20 20  |UCSA    |
000201f8 50 33 55 4d 4d 20 20 20  |P3UMM   |
00020200 20 20 50 33 55 50 52 49  |  P3UPRI|
00020208 56 20 20 20 50 33 55 43  |V   P3UC|
00020210 4c 41 53 53 20 20 50 33  |LASS  P3|
00020218 55 57 43 53 20 20 20 20  |UWCS    |
00020220 50 33 55 53 57 43 53 20  |P3USWCS |
00020228 20 20 50 33 55 56 57 43  |  P3UVWC|
00020230 53 20 20 20 50 33 55 54  |S   P3UT|
00020238 57 43 53 20 20 20 50 33  |WCS   P3|
00020240 55 51 57 43 53 20 20 20  |UQWCS   |
00020248 50 33 55 46 57 43 53 20  |P3UFWCS |
00020250 20 20 50 33 55 54 41 47  |  P3UTAG|
00020258 53 20 20 20 50 33 55 44  |S   P3UD|
00020260 52 41 4d 20 20 20 50 33  |RAM   P3|
00020268 55 52 46 20 20 20 20 20  |URF     |
00020270 50 33 55 52 46 20 20 20  |P3URF   |
00020278 20 20 50 33 55 53 42 55  |  P3USBU|
00020280 46 46 20 20 50 33 55 44  |FF  P3UD|
00020288 49 53 50 20 20 20 50 33  |ISP   P3|
00020290 55 45 43 43 20 20 20 20  |UECC    |
00020298 50 33 55 54 49 4d 45 52  |P3UTIMER|
000202a0 53 20 50 33 55 50 41 54  |S P3UPAT|
000202a8 48 53 20 20 50 33 55 53  |HS  P3US|
000202b0 50 41 52 45 30 20 50 33  |PARE0 P3|
000202b8 55 53 50 41 52 45 31 20  |USPARE1 |
000202c0 50 33 55 53 50 41 52 45  |P3USPARE|
000202c8 32 20 50 33 55 53 50 41  |2 P3USPA|
000202d0 52 45 33 20 50 33 55 53  |RE3 P3US|
000202d8 50 41 52 45 34 20 50 33  |PARE4 P3|
000202e0 55 43 4f 44 45 2e 4d 31  |UCODE.M1|
000202e8 30 30 5f 55 43 4f 44 45  |00_UCODE|
000202f0 50 33 55 43 4f 44 45 2e  |P3UCODE.|		.TXT	'P3UCODE.M200_UCODE'
00020302 50 33 55 43 4f 44 45 20  |P3UCODE |		.TXT	'P3UCODE '
0002030a 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal test name for P3UCODE.'
00020328 50 33 55 41 4c 4c 20 20  |P3UALL  |		.XXX[0x140]
00020330 20 20 50 33 55 43 4f 4e  |  P3UCON|
00020338 44 20 20 20 50 33 55 53  |D   P3US|
00020340 59 53 20 20 20 20 50 33  |YS    P3|
00020348 55 56 41 4c 20 20 20 20  |UVAL    |
00020350 50 33 55 54 59 50 20 20  |P3UTYP  |
00020358 20 20 50 33 55 53 45 51  |  P3USEQ|
00020360 20 20 20 20 50 33 55 46  |    P3UF|
00020368 49 55 20 20 20 20 50 33  |IU    P3|
00020370 55 4d 45 4d 20 20 20 20  |UMEM    |
00020378 50 33 55 43 53 41 20 20  |P3UCSA  |
00020380 20 20 50 33 55 4d 4d 20  |  P3UMM |
00020388 20 20 20 20 50 33 55 50  |    P3UP|
00020390 52 49 56 20 20 20 50 33  |RIV   P3|
00020398 55 43 4c 41 53 53 20 20  |UCLASS  |
000203a0 50 33 55 57 43 53 20 20  |P3UWCS  |
000203a8 20 20 50 33 55 53 57 43  |  P3USWC|
000203b0 53 20 20 20 50 33 55 56  |S   P3UV|
000203b8 57 43 53 20 20 20 50 33  |WCS   P3|
000203c0 55 54 57 43 53 20 20 20  |UTWCS   |
000203c8 50 33 55 51 57 43 53 20  |P3UQWCS |
000203d0 20 20 50 33 55 46 57 43  |  P3UFWC|
000203d8 53 20 20 20 50 33 55 54  |S   P3UT|
000203e0 41 47 53 20 20 20 50 33  |AGS   P3|
000203e8 55 44 52 41 4d 20 20 20  |UDRAM   |
000203f0 50 33 55 52 46 20 20 20  |P3URF   |
000203f8 20 20 50 33 55 52 46 20  |  P3URF |
00020400 20 20 20 20 50 33 55 53  |    P3US|
00020408 42 55 46 46 20 20 50 33  |BUFF  P3|
00020410 55 44 49 53 50 20 20 20  |UDISP   |
00020418 50 33 55 45 43 43 20 20  |P3UECC  |
00020420 20 20 50 33 55 54 49 4d  |  P3UTIM|
00020428 45 52 53 20 50 33 55 50  |ERS P3UP|
00020430 41 54 48 53 20 20 50 33  |ATHS  P3|
00020438 55 53 50 41 52 45 30 20  |USPARE0 |
00020440 50 33 55 53 50 41 52 45  |P3USPARE|
00020448 31 20 50 33 55 53 50 41  |1 P3USPA|
00020450 52 45 32 20 50 33 55 53  |RE2 P3US|
00020458 50 41 52 45 33 20 50 33  |PARE3 P3|
00020460 55 53 50 41 52 45 34 20  |USPARE4 |
00020468 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002046c 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020470 05 01 04 07 06 02 03 0c  |        |		.XXX[0x8]
00020478 0d 0e 0f 01              |        |		.XXX[0x4]
0002047c ; --------------------------------------------------------------------------------------
0002047c ; OMSI PASCAL Function
0002047c ;    <LVAR  0x00e 1(r)>
0002047c ;    <LVAR  0x00a 4(r)>
0002047c ;    <LVAR  0x008 1(r)>
0002047c ; --------------------------------------------------------------------------------------
0002047c					EXP_FAIL:
0002047c 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020480 bf d5                    |        |		CMPA.L	(A5),A7
00020482 62 06                    |b       |		BHI	0x2048a
00020484 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020488 4e 76                    |Nv      |		TRAPV
0002048a de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002048e 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020492 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020498 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
0002049e 72 01                    |r       |		MOVEQ.L	#0x01,D1
000204a0 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000204a2 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000204a4 78 12                    |x       |		MOVEQ.L	#0x12,D4
000204a6 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000204a8 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000204ae 41 fa fc 96              |A       |		LEA.L	0x20146,A0
000204b2 70 08                    |p       |		MOVEQ.L	#0x08,D0
000204b4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204b6 51 c8 ff fc              |Q       |		DBF	D0,0x204b4
000204ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204bc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204c0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000204c2 3f 04                    |?       |		MOVE.W	D4,-(A7)
000204c4 4e 93                    |N       |		JSR	(A3)
000204c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204c8 4e 94                    |N       |		JSR	(A4)
000204ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204cc 20 4f                    | O      |		MOVEA.L	A7,A0
000204ce 43 fa fc 3a              |C  :    |		LEA.L	0x2010a,A1
000204d2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000204d4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000204d6 51 c8 ff fc              |Q       |		DBF	D0,0x204d4
000204da 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000204dc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000204e0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000204e2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000204e4 4e 93                    |N       |		JSR	(A3)
000204e6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000204e8 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000204ec 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000204f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000204f4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000204fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204fc 4e 94                    |N       |		JSR	(A4)
000204fe de c4                    |        |		ADDA.W	D4,A7
00020500 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020504 b0 c1                    |        |		CMPA.W	D1,A0
00020506 67 48                    |gH      |		BEQ	0x20550
00020508 9e c5                    |        |		SUBA.W	D5,A7
0002050a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002050c 45 fa fc 0a              |E       |		LEA.L	0x20118,A2
00020510 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020512 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020514 51 c8 ff fc              |Q       |		DBF	D0,0x20512
00020518 9e c3                    |        |		SUBA.W	D3,A7
0002051a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002051c 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020520 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020522 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020524 51 c8 ff fc              |Q       |		DBF	D0,0x20522
00020528 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002052a 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
0002052e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020530 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020532 4e 93                    |N       |		JSR	(A3)
00020534 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020536 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002053a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002053c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002053e 4e 93                    |N       |		JSR	(A3)
00020540 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020542 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020548 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002054a 4e 94                    |N       |		JSR	(A4)
0002054c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020550 9e c5                    |        |		SUBA.W	D5,A7
00020552 20 4f                    | O      |		MOVEA.L	A7,A0
00020554 43 fa fb d0              |C       |		LEA.L	0x20126,A1
00020558 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002055a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002055c 51 c8 ff fc              |Q       |		DBF	D0,0x2055a
00020560 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020562 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020566 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020568 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002056a 4e 93                    |N       |		JSR	(A3)
0002056c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002056e 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020572 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00020578 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002057a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020580 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020582 4e 94                    |N       |		JSR	(A4)
00020584 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020586 20 4f                    | O      |		MOVEA.L	A7,A0
00020588 43 fa fb bc              |C       |		LEA.L	0x20146,A1
0002058c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002058e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020590 51 c8 ff fc              |Q       |		DBF	D0,0x2058e
00020594 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020598 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002059a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002059e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000205a0 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000205a4 4e 93                    |N       |		JSR	(A3)
000205a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205a8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000205ae de c3                    |        |		ADDA.W	D3,A7
000205b0 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000205b4 4e 5e                    |N^      |		UNLK	A6
000205b6 4e 75                    |Nu      |		RTS
000205b8 ; --------------------------------------------------------------------------------------
000205b8 ; OMSI PASCAL Function
000205b8 ;    <LVAR  0x016 1(r)>
000205b8 ;    <LVAR  0x012 4(r)>
000205b8 ;    <LVAR  0x010 1(r)>
000205b8 ;    <LVAR  0x00e 1(r)>
000205b8 ;    <LVAR  0x00c 1(r)>
000205b8 ;    <LVAR  0x008 4(r)>
000205b8 ;    <LVAR -0x004 @>
000205b8 ; --------------------------------------------------------------------------------------
000205b8 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000205bc bf d5                    |        |		CMPA.L	(A5),A7
000205be 62 06                    |b       |		BHI	0x205c6
000205c0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205c4 4e 76                    |Nv      |		TRAPV
000205c6 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000205ca 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000205ce 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
000205d4 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000205d6 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000205dc 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000205e0 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
000205e6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205e8 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
000205ec 4e 92                    |N       |		JSR	(A2)
000205ee 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205f0 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
000205f4 66 0e                    |f       |		BNE	0x20604
000205f6 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
000205fa 4e 92                    |N       |		JSR	(A2)
000205fc 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
00020600 4e 92                    |N       |		JSR	(A2)
00020602 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020604 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002060a 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
0002060e 67 12                    |g       |		BEQ	0x20622
00020610 9e c1                    |        |		SUBA.W	D1,A7
00020612 20 4f                    | O      |		MOVEA.L	A7,A0
00020614 43 fa fb 48              |C  H    |		LEA.L	0x2015e,A1
00020618 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002061a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002061c 51 c8 ff fc              |Q       |		DBF	D0,0x2061a
00020620 60 10                    |`       |		BRA	0x20632
00020622 9e c1                    |        |		SUBA.W	D1,A7
00020624 20 4f                    | O      |		MOVEA.L	A7,A0
00020626 43 fa fb 40              |C  @    |		LEA.L	0x20168,A1
0002062a 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002062c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002062e 51 c8 ff fc              |Q       |		DBF	D0,0x2062c
00020632 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020634 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020638 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002063c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020640 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020646 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020648 48 78 00 01              |Hx      |		PEA.L	0x1
0002064c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020650 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020654 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002065a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002065e 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020664 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020668 48 50                    |HP      |		PEA.L	(A0)
0002066a 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020670 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020672 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020678 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002067c 4e 5e                    |N^      |		UNLK	A6
0002067e 4e 75                    |Nu      |		RTS
00020680 ; --------------------------------------------------------------------------------------
00020680 ; OMSI PASCAL Function
00020680 ;    <LVAR  0x00c 1(r)>
00020680 ;    <LVAR  0x008 4(r)>
00020680 ;    <LVAR -0x002 @>
00020680 ; --------------------------------------------------------------------------------------
00020680 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00020684 bf d5                    |        |		CMPA.L	(A5),A7
00020686 62 06                    |b       |		BHI	0x2068e
00020688 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002068c 4e 76                    |Nv      |		TRAPV
0002068e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020692 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020696 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002069c 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
000206a0 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000206a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206a8 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000206ae 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000206b2 20 4f                    | O      |		MOVEA.L	A7,A0
000206b4 43 fa fa bc              |C       |		LEA.L	0x20172,A1
000206b8 70 08                    |p       |		MOVEQ.L	#0x08,D0
000206ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206bc 51 c8 ff fc              |Q       |		DBF	D0,0x206ba
000206c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000206c6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000206ca 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000206ce 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000206d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206d6 48 78 00 01              |Hx      |		PEA.L	0x1
000206da 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000206de 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000206e2 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000206e8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000206ec 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000206f2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000206f6 48 50                    |HP      |		PEA.L	(A0)
000206f8 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000206fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020700 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020706 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002070a 4e 5e                    |N^      |		UNLK	A6
0002070c 4e 75                    |Nu      |		RTS
0002070e ; --------------------------------------------------------------------------------------
0002070e ; OMSI PASCAL Function
0002070e ;    <LVAR  0x008 4(r)>
0002070e ; --------------------------------------------------------------------------------------
0002070e 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; Spelunked
00020712 bf d5                    |        |		CMPA.L	(A5),A7
00020714 62 06                    |b       |		BHI	0x2071c
00020716 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002071a 4e 76                    |Nv      |		TRAPV
0002071c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020720 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020724 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002072a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002072e 48 50                    |HP      |		PEA.L	(A0)
00020730 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020736 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020738 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
0002073e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020742 4e 5e                    |N^      |		UNLK	A6
00020744 4e 75                    |Nu      |		RTS
00020746 ; --------------------------------------------------------------------------------------
00020746 ; OMSI PASCAL Function
00020746 ;    <LVAR  0x008 1(r)>
00020746 ; --------------------------------------------------------------------------------------
00020746 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; Spelunked
0002074a bf d5                    |        |		CMPA.L	(A5),A7
0002074c 62 06                    |b       |		BHI	0x20754
0002074e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020752 4e 76                    |Nv      |		TRAPV
00020754 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020758 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002075e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020762 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020768 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002076a 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020770 42 27                    |B'      |		CLR.B	-(A7)
00020772 48 78 00 01              |Hx      |		PEA.L	0x1
00020776 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002077c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002077e 4e 5e                    |N^      |		UNLK	A6
00020780 4e 75                    |Nu      |		RTS
00020782 ; --------------------------------------------------------------------------------------
00020782 ; OMSI PASCAL Function
00020782 ;    <LVAR -0x004 1(rw)>
00020782 ; --------------------------------------------------------------------------------------
00020782 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00020786 bf d5                    |        |		CMPA.L	(A5),A7
00020788 62 06                    |b       |		BHI	0x20790
0002078a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002078e 4e 76                    |Nv      |		TRAPV
00020790 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020794 48 e7 e1 80              |H       |		MOVEM.L	A0+D7+D2+D1+D0,-(A7)
00020798 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0002079c 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
0002079e 74 01                    |t       |		MOVEQ.L	#0x01,D2
000207a0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207a2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000207a8 4a 1f                    |J       |		TST.B	(A7)+
000207aa 67 08                    |g       |		BEQ	0x207b4
000207ac 4e b9 00 02 11 4c        |N    L  |		JSR	exp_LOAD_HRAM_8_0.FIU()
000207b2 60 06                    |`       |		BRA	0x207ba
000207b4 4e b9 00 02 11 6a        |N    j  |		JSR	exp_LOAD_HRAM_32_0.FIU()
000207ba 4e b9 00 02 11 fa        |N       |		JSR	exp_LOAD_HRAM_1.FIU()
000207c0 4e b9 00 02 14 38        |N    8  |		JSR	exp_ALIGN_CSA.VAL()
000207c6 4e b9 00 02 13 b6        |N       |		JSR	exp_ALIGN_CSA.TYP()
000207cc 42 10                    |B       |		CLR.B	(A0)
000207ce 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000207d0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207d2 1f 07                    |        |		MOVE.B	D7,-(A7)
000207d4 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000207da 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207dc 4a 1f                    |J       |		TST.B	(A7)+
000207de 67 0c                    |g       |		BEQ	0x207ec
000207e0 42 80                    |B       |		CLR.L	D0
000207e2 10 10                    |        |		MOVE.B	(A0),D0
000207e4 52 40                    |R@      |		ADDQ.W	#0x1,D0
000207e6 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000207ea 10 80                    |        |		MOVE.B	D0,(A0)
000207ec 52 07                    |R       |		ADDQ.B	#0x1,D7
000207ee be 01                    |        |		CMP.B	D1,D7
000207f0 6f de                    |o       |		BLE	0x207d0
000207f2 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000207f4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207f6 1f 07                    |        |		MOVE.B	D7,-(A7)
000207f8 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000207fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020800 4a 1f                    |J       |		TST.B	(A7)+
00020802 67 3a                    |g:      |		BEQ	0x2083e
00020804 1f 07                    |        |		MOVE.B	D7,-(A7)
00020806 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020808 1f 07                    |        |		MOVE.B	D7,-(A7)
0002080a 4e b9 00 01 04 c6        |N       |		JSR	EQ_1c218(a : Byte) : Bool
00020810 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020812 10 17                    |        |		MOVE.B	(A7),D0
00020814 48 80                    |H       |		EXTB.W	D0
00020816 41 82                    |A       |		CHK.W	D2,D0
00020818 1e 80                    |        |		MOVE.B	D0,(A7)
0002081a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002081c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020822 10 17                    |        |		MOVE.B	(A7),D0
00020824 48 80                    |H       |		EXTB.W	D0
00020826 41 82                    |A       |		CHK.W	D2,D0
00020828 1e 80                    |        |		MOVE.B	D0,(A7)
0002082a 1f 10                    |        |		MOVE.B	(A0),-(A7)
0002082c 4e b9 00 02 16 80        |N       |		JSR	0x21680
00020832 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020834 1e 87                    |        |		MOVE.B	D7,(A7)
00020836 4e b9 00 02 17 68        |N    h  |		JSR	0x21768
0002083c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002083e 52 07                    |R       |		ADDQ.B	#0x1,D7
00020840 be 01                    |        |		CMP.B	D1,D7
00020842 6f b0                    |o       |		BLE	0x207f4
00020844 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
0002084a 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
0002084e 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
00020852 4e b9 00 02 11 d6        |N       |		JSR	exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
00020858 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002085a 4c df 01 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0
0002085e 4e 5e                    |N^      |		UNLK	A6
00020860 4e 75                    |Nu      |		RTS
00020862 ; --------------------------------------------------------------------------------------
00020862 ; OMSI PASCAL Function
00020862 ;    <LVAR  0x008 2(r)>
00020862 ;    <LVAR -0x002 1(rw)>
00020862 ; --------------------------------------------------------------------------------------
00020862 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020866 bf d5                    |        |		CMPA.L	(A5),A7
00020868 62 06                    |b       |		BHI	0x20870
0002086a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002086e 4e 76                    |Nv      |		TRAPV
00020870 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020874 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00020878 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
0002087e 43 ee ff fe              |C       |		LEA.L	(A6-0x2),A1
00020882 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00020886 47 f9 00 02 14 6a        |G    j  |		LEA.L	0x2146a,A3
0002088c 49 f9 00 02 18 c6        |I       |		LEA.L	0x218c6,A4
00020892 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020894 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
00020896 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020898 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
0002089a 4e b9 00 02 13 94        |N       |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
000208a0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208a2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000208a8 4a 1f                    |J       |		TST.B	(A7)+
000208aa 67 04                    |g       |		BEQ	0x208b0
000208ac 42 11                    |B       |		CLR.B	(A1)
000208ae 60 04                    |`       |		BRA	0x208b4
000208b0 12 bc 00 ff              |        |		MOVE.B	#0xff,(A1)
000208b4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208b6 1f 00                    |        |		MOVE.B	D0,-(A7)
000208b8 4e 90                    |N       |		JSR	(A0)
000208ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208bc 4a 1f                    |J       |		TST.B	(A7)+
000208be 67 08                    |g       |		BEQ	0x208c8
000208c0 1f 00                    |        |		MOVE.B	D0,-(A7)
000208c2 1f 11                    |        |		MOVE.B	(A1),-(A7)
000208c4 4e 93                    |N       |		JSR	(A3)
000208c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208c8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208ca 1f 01                    |        |		MOVE.B	D1,-(A7)
000208cc 4e 90                    |N       |		JSR	(A0)
000208ce 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208d0 4a 1f                    |J       |		TST.B	(A7)+
000208d2 67 08                    |g       |		BEQ	0x208dc
000208d4 1f 01                    |        |		MOVE.B	D1,-(A7)
000208d6 1f 11                    |        |		MOVE.B	(A1),-(A7)
000208d8 4e 93                    |N       |		JSR	(A3)
000208da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208dc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208de 1f 02                    |        |		MOVE.B	D2,-(A7)
000208e0 4e 90                    |N       |		JSR	(A0)
000208e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208e4 4a 1f                    |J       |		TST.B	(A7)+
000208e6 67 08                    |g       |		BEQ	0x208f0
000208e8 1f 02                    |        |		MOVE.B	D2,-(A7)
000208ea 1f 11                    |        |		MOVE.B	(A1),-(A7)
000208ec 4e 93                    |N       |		JSR	(A3)
000208ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208f0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208f2 1f 03                    |        |		MOVE.B	D3,-(A7)
000208f4 4e 90                    |N       |		JSR	(A0)
000208f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208f8 4a 1f                    |J       |		TST.B	(A7)+
000208fa 67 08                    |g       |		BEQ	0x20904
000208fc 1f 03                    |        |		MOVE.B	D3,-(A7)
000208fe 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020900 4e 93                    |N       |		JSR	(A3)
00020902 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020904 4e b9 00 02 12 16        |N       |		JSR	exp_INIT_MRU.FIU()
0002090a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002090c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002090e 4e 90                    |N       |		JSR	(A0)
00020910 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020912 4a 1f                    |J       |		TST.B	(A7)+
00020914 67 06                    |g       |		BEQ	0x2091c
00020916 1f 00                    |        |		MOVE.B	D0,-(A7)
00020918 4e 94                    |N       |		JSR	(A4)
0002091a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002091c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002091e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020920 4e 90                    |N       |		JSR	(A0)
00020922 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020924 4a 1f                    |J       |		TST.B	(A7)+
00020926 67 06                    |g       |		BEQ	0x2092e
00020928 1f 01                    |        |		MOVE.B	D1,-(A7)
0002092a 4e 94                    |N       |		JSR	(A4)
0002092c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002092e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020930 1f 02                    |        |		MOVE.B	D2,-(A7)
00020932 4e 90                    |N       |		JSR	(A0)
00020934 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020936 4a 1f                    |J       |		TST.B	(A7)+
00020938 67 06                    |g       |		BEQ	0x20940
0002093a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002093c 4e 94                    |N       |		JSR	(A4)
0002093e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020940 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020942 1f 03                    |        |		MOVE.B	D3,-(A7)
00020944 4e 90                    |N       |		JSR	(A0)
00020946 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020948 4a 1f                    |J       |		TST.B	(A7)+
0002094a 67 06                    |g       |		BEQ	0x20952
0002094c 1f 03                    |        |		MOVE.B	D3,-(A7)
0002094e 4e 94                    |N       |		JSR	(A4)
00020950 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020952 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00020954 4e b9 00 02 13 40        |N    @  |		JSR	exp_PREP_RUN.TYP(Sw_2)
0002095a 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002095c 4e b9 00 02 14 02        |N       |		JSR	exp_PREP_RUN.VAL(Sw_2)
00020962 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020964 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00020966 4e b9 00 02 19 98        |N       |		JSR	exp_PREP_RUN.IOC(Sw_2)
0002096c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002096e 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00020970 4e b9 00 02 12 7e        |N    ~  |		JSR	exp_PREP_RUN.SEQ(Sw_2)
00020976 3e 92                    |>       |		MOVE.W	(A2),(A7)
00020978 4e b9 00 02 11 bc        |N       |		JSR	exp_PREP_RUN.FIU(Sw_2)
0002097e 1f 00                    |        |		MOVE.B	D0,-(A7)
00020980 4e 90                    |N       |		JSR	(A0)
00020982 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020984 4a 1f                    |J       |		TST.B	(A7)+
00020986 67 0a                    |g       |		BEQ	0x20992
00020988 1f 00                    |        |		MOVE.B	D0,-(A7)
0002098a 4e b9 00 02 18 1c        |N       |		JSR	0x2181c
00020990 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020992 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020994 1f 01                    |        |		MOVE.B	D1,-(A7)
00020996 4e 90                    |N       |		JSR	(A0)
00020998 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002099a 4a 1f                    |J       |		TST.B	(A7)+
0002099c 67 0a                    |g       |		BEQ	0x209a8
0002099e 1f 01                    |        |		MOVE.B	D1,-(A7)
000209a0 4e b9 00 02 18 1c        |N       |		JSR	0x2181c
000209a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209aa 1f 02                    |        |		MOVE.B	D2,-(A7)
000209ac 4e 90                    |N       |		JSR	(A0)
000209ae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209b0 4a 1f                    |J       |		TST.B	(A7)+
000209b2 67 0a                    |g       |		BEQ	0x209be
000209b4 1f 02                    |        |		MOVE.B	D2,-(A7)
000209b6 4e b9 00 02 18 1c        |N       |		JSR	0x2181c
000209bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209c0 1f 03                    |        |		MOVE.B	D3,-(A7)
000209c2 4e 90                    |N       |		JSR	(A0)
000209c4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209c6 4a 1f                    |J       |		TST.B	(A7)+
000209c8 67 0a                    |g       |		BEQ	0x209d4
000209ca 1f 03                    |        |		MOVE.B	D3,-(A7)
000209cc 4e b9 00 02 18 1c        |N       |		JSR	0x2181c
000209d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209d4 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
000209d8 4e 5e                    |N^      |		UNLK	A6
000209da 4e 75                    |Nu      |		RTS
000209dc ; --------------------------------------------------------------------------------------
000209dc ; OMSI PASCAL Function
000209dc ; --------------------------------------------------------------------------------------
000209dc 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000209e0 bf d5                    |        |		CMPA.L	(A5),A7
000209e2 62 06                    |b       |		BHI	0x209ea
000209e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209e8 4e 76                    |Nv      |		TRAPV
000209ea de fc 00 20              |        |		ADDA.W	#0x20,A7
000209ee 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
000209f2 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
000209f8 43 f9 00 02 15 d2        |C       |		LEA.L	0x215d2,A1
000209fe 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020a00 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
00020a02 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020a04 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00020a06 4e b9 00 02 12 30        |N    0  |		JSR	exp_FREEZE_WORLD.FIU()
00020a0c 4e b9 00 02 12 f0        |N       |		JSR	exp_RUN_NORMAL.TYP()
00020a12 4e b9 00 02 13 d0        |N       |		JSR	exp_RUN_NORMAL.VAL()
00020a18 4e b9 00 02 12 64        |N    d  |		JSR	exp_RUN_CHECK.SEQ()
00020a1e 4e b9 00 02 19 7e        |N    ~  |		JSR	exp_RUN_CHECK.IOC()
00020a24 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a26 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a28 4e 90                    |N       |		JSR	(A0)
00020a2a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a2c 4a 1f                    |J       |		TST.B	(A7)+
00020a2e 67 06                    |g       |		BEQ	0x20a36
00020a30 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a32 4e 91                    |N       |		JSR	(A1)
00020a34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a38 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a3a 4e 90                    |N       |		JSR	(A0)
00020a3c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a3e 4a 1f                    |J       |		TST.B	(A7)+
00020a40 67 06                    |g       |		BEQ	0x20a48
00020a42 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a44 4e 91                    |N       |		JSR	(A1)
00020a46 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a48 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a4a 1f 02                    |        |		MOVE.B	D2,-(A7)
00020a4c 4e 90                    |N       |		JSR	(A0)
00020a4e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a50 4a 1f                    |J       |		TST.B	(A7)+
00020a52 67 06                    |g       |		BEQ	0x20a5a
00020a54 1f 02                    |        |		MOVE.B	D2,-(A7)
00020a56 4e 91                    |N       |		JSR	(A1)
00020a58 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a5a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a5c 1f 03                    |        |		MOVE.B	D3,-(A7)
00020a5e 4e 90                    |N       |		JSR	(A0)
00020a60 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a62 4a 1f                    |J       |		TST.B	(A7)+
00020a64 67 06                    |g       |		BEQ	0x20a6c
00020a66 1f 03                    |        |		MOVE.B	D3,-(A7)
00020a68 4e 91                    |N       |		JSR	(A1)
00020a6a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a6c 4e b9 00 02 11 8a        |N       |		JSR	exp_RUN_NORMAL.FIU()
00020a72 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
00020a76 4e 5e                    |N^      |		UNLK	A6
00020a78 4e 75                    |Nu      |		RTS
00020a7a ; --------------------------------------------------------------------------------------
00020a7a ; OMSI PASCAL Function
00020a7a ;    <LVAR  0x010 4(r)>
00020a7a ;    <LVAR  0x00c 4(r)>
00020a7a ;    <LVAR  0x008 4(r)>
00020a7a ;    <LVAR -0x004 @>
00020a7a ;    <LVAR -0x005 @ 1(rw)>
00020a7a ;    <LVAR -0x006 @>
00020a7a ;    <LVAR -0x007 @ 1(r)>
00020a7a ; --------------------------------------------------------------------------------------
00020a7a 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020a7e bf d5                    |        |		CMPA.L	(A5),A7
00020a80 62 06                    |b       |		BHI	0x20a88
00020a82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a86 4e 76                    |Nv      |		TRAPV
00020a88 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00020a8c 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020a90 43 f9 00 01 04 c0        |C       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A1
00020a96 45 f9 00 02 15 28        |E    (  |		LEA.L	0x21528,A2
00020a9c 47 ee ff fb              |G       |		LEA.L	(A6-0x5),A3
00020aa0 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020aa2 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020aa4 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00020aa6 7a 0d                    |z       |		MOVEQ.L	#0x0d,D5
00020aa8 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00020aaa 4e b9 00 02 12 30        |N    0  |		JSR	exp_FREEZE_WORLD.FIU()
00020ab0 4e b9 00 02 19 68        |N    h  |		JSR	exp_RESET.IOC()
00020ab6 4e b9 00 02 13 ec        |N       |		JSR	exp_RESET.VAL()
00020abc 4e b9 00 02 13 0c        |N       |		JSR	exp_RESET.TYP()
00020ac2 4e b9 00 02 12 4e        |N    N  |		JSR	exp_RESET.SEQ()
00020ac8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020aca 1f 04                    |        |		MOVE.B	D4,-(A7)
00020acc 4e 91                    |N       |		JSR	(A1)
00020ace 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ad0 4a 1f                    |J       |		TST.B	(A7)+
00020ad2 67 06                    |g       |		BEQ	0x20ada
00020ad4 1f 04                    |        |		MOVE.B	D4,-(A7)
00020ad6 4e 92                    |N       |		JSR	(A2)
00020ad8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ada 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020adc 1f 05                    |        |		MOVE.B	D5,-(A7)
00020ade 4e 91                    |N       |		JSR	(A1)
00020ae0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ae2 4a 1f                    |J       |		TST.B	(A7)+
00020ae4 67 06                    |g       |		BEQ	0x20aec
00020ae6 1f 05                    |        |		MOVE.B	D5,-(A7)
00020ae8 4e 92                    |N       |		JSR	(A2)
00020aea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020aec 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020aee 1f 02                    |        |		MOVE.B	D2,-(A7)
00020af0 4e 91                    |N       |		JSR	(A1)
00020af2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020af4 4a 1f                    |J       |		TST.B	(A7)+
00020af6 67 06                    |g       |		BEQ	0x20afe
00020af8 1f 02                    |        |		MOVE.B	D2,-(A7)
00020afa 4e 92                    |N       |		JSR	(A2)
00020afc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020afe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b00 1f 06                    |        |		MOVE.B	D6,-(A7)
00020b02 4e 91                    |N       |		JSR	(A1)
00020b04 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b06 4a 1f                    |J       |		TST.B	(A7)+
00020b08 67 06                    |g       |		BEQ	0x20b10
00020b0a 1f 06                    |        |		MOVE.B	D6,-(A7)
00020b0c 4e 92                    |N       |		JSR	(A2)
00020b0e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b10 4e b9 00 02 11 a6        |N       |		JSR	exp_RESET.FIU()
00020b16 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020b1a 48 50                    |HP      |		PEA.L	(A0)
00020b1c 4e b9 00 02 12 98        |N       |		JSR	exp_HALT.SEQ(&Fr)
00020b22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b24 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020b28 42 10                    |B       |		CLR.B	(A0)
00020b2a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020b2e 42 10                    |B       |		CLR.B	(A0)
00020b30 42 28 00 0b              |B(      |		CLR.B	(A0+0xb)
00020b34 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
00020b38 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00020b3a 0c 07 00 05              |        |		CMPI.B	#0x05,D7
00020b3e 67 20                    |g       |		BEQ	0x20b60
00020b40 10 07                    |        |		MOVE.B	D7,D0
00020b42 48 80                    |H       |		EXTB.W	D0
00020b44 41 fa f9 2a              |A  *    |		LEA.L	0x20470,A0
00020b48 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00020b4c 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020b50 48 53                    |HS      |		PEA.L	(A3)
00020b52 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020b56 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00020b5c de c2                    |        |		ADDA.W	D2,A7
00020b5e 60 1a                    |`       |		BRA	0x20b7a
00020b60 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020b64 4e b9 00 02 12 ae        |N       |		JSR	exp_GET_MISC_ERRORS.SEQ(&Sr_1)
00020b6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b6c 42 80                    |B       |		CLR.L	D0
00020b6e 10 2e ff f9              | .      |		MOVE.B	(A6-0x7),D0
00020b72 0c 40 00 1f              | @      |		CMPI.W	#0x001f,D0
00020b76 67 02                    |g       |		BEQ	0x20b7a
00020b78 16 83                    |        |		MOVE.B	D3,(A3)
00020b7a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020b7e 10 07                    |        |		MOVE.B	D7,D0
00020b80 48 80                    |H       |		EXTB.W	D0
00020b82 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020b84 12 13                    |        |		MOVE.B	(A3),D1
00020b86 48 81                    |H       |		EXTB.W	D1
00020b88 43 83                    |C       |		CHK.W	D3,D1
00020b8a 11 81 00 00              |        |		MOVE.B	D1,(A0+D0.W)
00020b8e 4a 41                    |JA      |		TST.W	D1
00020b90 67 06                    |g       |		BEQ	0x20b98
00020b92 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020b96 10 83                    |        |		MOVE.B	D3,(A0)
00020b98 3e 1f                    |>       |		MOVE.W	(A7)+,D7
00020b9a 52 47                    |RG      |		ADDQ.W	#0x1,D7
00020b9c 0c 47 00 0a              | G      |		CMPI.W	#0x000a,D7
00020ba0 6f 98                    |o       |		BLE	0x20b3a
00020ba2 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00020ba6 4e 5e                    |N^      |		UNLK	A6
00020ba8 4e 75                    |Nu      |		RTS
00020baa ; --------------------------------------------------------------------------------------
00020baa ; OMSI PASCAL Function
00020baa ;    <LVAR  0x008 2(r)>
00020baa ; --------------------------------------------------------------------------------------
00020baa 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00020bae bf d5                    |        |		CMPA.L	(A5),A7
00020bb0 62 06                    |b       |		BHI	0x20bb8
00020bb2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bb6 4e 76                    |Nv      |		TRAPV
00020bb8 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020bbc 48 e7 e0 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D2+D1+D0,-(A7)
00020bc0 43 f9 00 02 1a 3a        |C    :  |		LEA.L	0x21a3a,A1
00020bc6 45 f9 00 02 1a 34        |E    4  |		LEA.L	0x21a34,A2
00020bcc 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020bce 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020bd0 48 51                    |HQ      |		PEA.L	(A1)
00020bd2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020bd8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bda 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020bde 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
00020be2 c1 c2                    |        |		MULS.W	D2,D0
00020be4 41 fa f7 42              |A  B    |		LEA.L	0x20328,A0
00020be8 41 f0 00 0a              |A       |		LEA.L	(A0+D0.W+#0xa),A0
00020bec 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020bee 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bf0 51 c8 ff fc              |Q       |		DBF	D0,0x20bee
00020bf4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bf6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020bfa 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020bfc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020bfe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c06 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00020c08 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c0a 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020c0c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020c12 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c14 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020c16 4a 12                    |J       |		TST.B	(A2)
00020c18 67 3e                    |g>      |		BEQ	0x20c58
00020c1a 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020c1c 10 12                    |        |		MOVE.B	(A2),D0
00020c1e 48 80                    |H       |		EXTB.W	D0
00020c20 41 81                    |A       |		CHK.W	D1,D0
00020c22 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c24 10 39 00 02 1a 35        | 9   5  |		MOVE.B	0x21a35,D0
00020c2a 48 80                    |H       |		EXTB.W	D0
00020c2c 41 81                    |A       |		CHK.W	D1,D0
00020c2e 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c30 48 79 00 02 1a 36        |Hy   6  |		PEA.L	0x21a36
00020c36 48 79 00 02 1a 3e        |Hy   >  |		PEA.L	0x21a3e
00020c3c 48 79 00 02 1a 42        |Hy   B  |		PEA.L	0x21a42
00020c42 48 79 00 02 1a 46        |Hy   F  |		PEA.L	0x21a46
00020c48 48 79 00 02 1a 47        |Hy   G  |		PEA.L	0x21a47
00020c4e 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
00020c54 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020c58 4c df 17 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A4
00020c5c 4e 5e                    |N^      |		UNLK	A6
00020c5e 4e 75                    |Nu      |		RTS
00020c60 ; --------------------------------------------------------------------------------------
00020c60 ; OMSI PASCAL Function
00020c60 ;    <LVAR  0x008 1(r)>
00020c60 ; --------------------------------------------------------------------------------------
00020c60 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020c64 bf d5                    |        |		CMPA.L	(A5),A7
00020c66 62 06                    |b       |		BHI	0x20c6e
00020c68 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c6c 4e 76                    |Nv      |		TRAPV
00020c6e de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020c72 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00020c76 45 f9 00 02 1a 46        |E    F  |		LEA.L	0x21a46,A2
00020c7c 47 f9 00 02 1a 47        |G    G  |		LEA.L	0x21a47,A3
00020c82 14 ae 00 08              |        |		MOVE.B	(A6+0x8),(A2)
00020c86 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020c8a 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00020c8e 67 04                    |g       |		BEQ	0x20c94
00020c90 16 bc 00 29              |   )    |		MOVE.B	#0x29,(A3)
00020c94 42 27                    |B'      |		CLR.B	-(A7)
00020c96 2f 39 00 02 1a 3e        |/9   >  |		MOVE.L	0x21a3e,-(A7)
00020c9c 2f 39 00 02 1a 42        |/9   B  |		MOVE.L	0x21a42,-(A7)
00020ca2 1f 12                    |        |		MOVE.B	(A2),-(A7)
00020ca4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ca6 20 4f                    | O      |		MOVEA.L	A7,A0
00020ca8 22 4b                    |"K      |		MOVEA.L	A3,A1
00020caa 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020cac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020cae 51 c8 ff fc              |Q       |		DBF	D0,0x20cac
00020cb2 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020cb8 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cbc 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00020cc0 4e 5e                    |N^      |		UNLK	A6
00020cc2 4e 75                    |Nu      |		RTS
00020cc4 ; --------------------------------------------------------------------------------------
00020cc4 ; OMSI PASCAL Function
00020cc4 ;    <LVAR -0x005 1(r)>
00020cc4 ;    <LVAR -0x006 @ 1(r) 2(r)>
00020cc4 ;    <LVAR -0x012 @>
00020cc4 ;    <LVAR -0x013 @ 1(r)>
00020cc4 ;    <LVAR -0x014 @ 1(r)>
00020cc4 ; --------------------------------------------------------------------------------------
00020cc4 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00020cc8 bf d5                    |        |		CMPA.L	(A5),A7
00020cca 62 06                    |b       |		BHI	0x20cd2
00020ccc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cd0 4e 76                    |Nv      |		TRAPV
00020cd2 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020cd6 48 e7 f9 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00020cda 43 ee ff ec              |C       |		LEA.L	(A6-0x14),A1
00020cde 45 ee ff ed              |E       |		LEA.L	(A6-0x13),A2
00020ce2 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00020ce6 36 3c 00 ff              |6<      |		MOVE.W	#0xff,D3
00020cea 78 1f                    |x       |		MOVEQ.L	#0x1f,D4
00020cec 48 51                    |HQ      |		PEA.L	(A1)
00020cee 48 52                    |HR      |		PEA.L	(A2)
00020cf0 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020cf4 4e ba fd 84              |N       |		JSR	0x20a7a
00020cf8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020cfc 48 53                    |HS      |		PEA.L	(A3)
00020cfe 4e b9 00 02 19 4a        |N    J  |		JSR	exp_READ_LAST_PC.IOC(&Sr_2)
00020d04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d06 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00020d08 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020d0c 4a 11                    |J       |		TST.B	(A1)
00020d0e 67 36                    |g6      |		BEQ	0x20d46
00020d10 4a 12                    |J       |		TST.B	(A2)
00020d12 66 32                    |f2      |		BNE	0x20d46
00020d14 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020d1a 48 78 00 00              |Hx      |		PEA.L	0x0
00020d1e 48 78 00 01              |Hx      |		PEA.L	0x1
00020d22 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020d26 48 78 00 00              |Hx      |		PEA.L	0x0
00020d2a 48 78 00 01              |Hx      |		PEA.L	0x1
00020d2e 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
00020d34 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020d38 4a 1f                    |J       |		TST.B	(A7)+
00020d3a 67 0a                    |g       |		BEQ	0x20d46
00020d3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d3e 60 00 00 90              |`       |		BRA	0x20dd0
00020d42 60 00 00 8a              |`       |		.XXX[0x4]
00020d46 4a 12                    |J       |		TST.B	(A2)
00020d48 66 04                    |f       |		BNE	0x20d4e
00020d4a 4a 11                    |J       |		TST.B	(A1)
00020d4c 67 76                    |gv      |		BEQ	0x20dc4
00020d4e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d50 4f 84                    |O       |		CHK.W	D4,D7
00020d52 30 07                    |0       |		MOVE.W	D7,D0
00020d54 e7 40                    | @      |		ASL.W	#0x3,D0
00020d56 41 f9 00 02 1a 28        |A    (  |		LEA.L	0x21a28,A0
00020d5c 42 81                    |B       |		CLR.L	D1
00020d5e 12 30 00 32              | 0 2    |		MOVE.B	(A0+D0.W+#0x32),D1
00020d62 c2 43                    | C      |		AND.W	D3,D1
00020d64 11 81 00 32              |   2    |		MOVE.B	D1,(A0+D0.W+#0x32)
00020d68 4a 01                    |J       |		TST.B	D1
00020d6a 67 4c                    |gL      |		BEQ	0x20db8
00020d6c 42 81                    |B       |		CLR.L	D1
00020d6e 12 30 00 30              | 0 0    |		MOVE.B	(A0+D0.W+#0x30),D1
00020d72 c2 43                    | C      |		AND.W	D3,D1
00020d74 11 81 00 30              |   0    |		MOVE.B	D1,(A0+D0.W+#0x30)
00020d78 42 81                    |B       |		CLR.L	D1
00020d7a 12 30 00 31              | 0 1    |		MOVE.B	(A0+D0.W+#0x31),D1
00020d7e c2 43                    | C      |		AND.W	D3,D1
00020d80 11 81 00 31              |   1    |		MOVE.B	D1,(A0+D0.W+#0x31)
00020d84 42 81                    |B       |		CLR.L	D1
00020d86 12 30 00 33              | 0 3    |		MOVE.B	(A0+D0.W+#0x33),D1
00020d8a c2 43                    | C      |		AND.W	D3,D1
00020d8c 11 81 00 33              |   3    |		MOVE.B	D1,(A0+D0.W+#0x33)
00020d90 14 13                    |        |		MOVE.B	(A3),D2
00020d92 b4 30 00 32              | 0 2    |		CMP.B	(A0+D0.W+#0x32),D2
00020d96 65 20                    |e       |		BCS	0x20db8
00020d98 b2 2e ff fb              | .      |		CMP.B	(A6-0x5),D1
00020d9c 62 1a                    |b       |		BHI	0x20db8
00020d9e b4 30 00 30              | 0 0    |		CMP.B	(A0+D0.W+#0x30),D2
00020da2 62 14                    |b       |		BHI	0x20db8
00020da4 12 2e ff fb              | .      |		MOVE.B	(A6-0x5),D1
00020da8 b2 30 00 31              | 0 1    |		CMP.B	(A0+D0.W+#0x31),D1
00020dac 62 0a                    |b       |		BHI	0x20db8
00020dae 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020db0 4e ba fd f8              |N       |		JSR	0x20baa
00020db4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020db6 60 18                    |`       |		BRA	0x20dd0
00020db8 52 47                    |RG      |		ADDQ.W	#0x1,D7
00020dba be 44                    | D      |		CMP.W	D4,D7
00020dbc 6f 92                    |o       |		BLE	0x20d50
00020dbe 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00020dc2 60 04                    |`       |		BRA	0x20dc8
00020dc4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020dc8 4e ba fe 96              |N       |		JSR	0x20c60
00020dcc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020dce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dd0 4c df 0f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3
00020dd4 4e 5e                    |N^      |		UNLK	A6
00020dd6 4e 75                    |Nu      |		RTS
00020dd8 ; --------------------------------------------------------------------------------------
00020dd8 ; OMSI PASCAL Function
00020dd8 ;    <LVAR -0x006 @ 1(r)>
00020dd8 ;    <LVAR -0x007 @>
00020dd8 ;    <LVAR -0x008 @>
00020dd8 ; --------------------------------------------------------------------------------------
00020dd8 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00020ddc bf d5                    |        |		CMPA.L	(A5),A7
00020dde 62 06                    |b       |		BHI	0x20de6
00020de0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020de4 4e 76                    |Nv      |		TRAPV
00020de6 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00020dea 48 e7 e3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00020dee 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
00020df2 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00020df6 45 ee ff f9              |E       |		LEA.L	(A6-0x7),A2
00020dfa 47 f9 00 01 04 84        |G       |		LEA.L	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool),A3
00020e00 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00020e02 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020e04 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e06 2f 3c 00 00 98 96        |/<      |		MOVE.L	#0x9896,-(A7)
00020e0c 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020e12 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e14 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
00020e18 48 51                    |HQ      |		PEA.L	(A1)
00020e1a 48 50                    |HP      |		PEA.L	(A0)
00020e1c 48 52                    |HR      |		PEA.L	(A2)
00020e1e 4e 93                    |N       |		JSR	(A3)
00020e20 de c1                    |        |		ADDA.W	D1,A7
00020e22 10 07                    |        |		MOVE.B	D7,D0
00020e24 80 10                    |        |		OR.B	(A0),D0
00020e26 48 80                    |H       |		EXTB.W	D0
00020e28 41 82                    |A       |		CHK.W	D2,D0
00020e2a 1e 00                    |        |		MOVE.B	D0,D7
00020e2c 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00020e30 48 51                    |HQ      |		PEA.L	(A1)
00020e32 48 50                    |HP      |		PEA.L	(A0)
00020e34 48 52                    |HR      |		PEA.L	(A2)
00020e36 4e 93                    |N       |		JSR	(A3)
00020e38 de c1                    |        |		ADDA.W	D1,A7
00020e3a 10 07                    |        |		MOVE.B	D7,D0
00020e3c 80 10                    |        |		OR.B	(A0),D0
00020e3e 48 80                    |H       |		EXTB.W	D0
00020e40 41 82                    |A       |		CHK.W	D2,D0
00020e42 1e 00                    |        |		MOVE.B	D0,D7
00020e44 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020e48 48 51                    |HQ      |		PEA.L	(A1)
00020e4a 48 50                    |HP      |		PEA.L	(A0)
00020e4c 48 52                    |HR      |		PEA.L	(A2)
00020e4e 4e 93                    |N       |		JSR	(A3)
00020e50 de c1                    |        |		ADDA.W	D1,A7
00020e52 10 07                    |        |		MOVE.B	D7,D0
00020e54 80 10                    |        |		OR.B	(A0),D0
00020e56 48 80                    |H       |		EXTB.W	D0
00020e58 41 82                    |A       |		CHK.W	D2,D0
00020e5a 1e 00                    |        |		MOVE.B	D0,D7
00020e5c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020e60 48 51                    |HQ      |		PEA.L	(A1)
00020e62 48 50                    |HP      |		PEA.L	(A0)
00020e64 48 52                    |HR      |		PEA.L	(A2)
00020e66 4e 93                    |N       |		JSR	(A3)
00020e68 de c1                    |        |		ADDA.W	D1,A7
00020e6a 10 07                    |        |		MOVE.B	D7,D0
00020e6c 80 10                    |        |		OR.B	(A0),D0
00020e6e 48 80                    |H       |		EXTB.W	D0
00020e70 41 82                    |A       |		CHK.W	D2,D0
00020e72 1e 00                    |        |		MOVE.B	D0,D7
00020e74 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020e78 48 51                    |HQ      |		PEA.L	(A1)
00020e7a 48 50                    |HP      |		PEA.L	(A0)
00020e7c 48 52                    |HR      |		PEA.L	(A2)
00020e7e 4e 93                    |N       |		JSR	(A3)
00020e80 de c1                    |        |		ADDA.W	D1,A7
00020e82 10 07                    |        |		MOVE.B	D7,D0
00020e84 80 10                    |        |		OR.B	(A0),D0
00020e86 48 80                    |H       |		EXTB.W	D0
00020e88 41 82                    |A       |		CHK.W	D2,D0
00020e8a 1e 00                    |        |		MOVE.B	D0,D7
00020e8c 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00020e8e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e90 1f 06                    |        |		MOVE.B	D6,-(A7)
00020e92 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020e98 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e9a 4a 1f                    |J       |		TST.B	(A7)+
00020e9c 67 16                    |g       |		BEQ	0x20eb4
00020e9e 1f 06                    |        |		MOVE.B	D6,-(A7)
00020ea0 48 51                    |HQ      |		PEA.L	(A1)
00020ea2 48 50                    |HP      |		PEA.L	(A0)
00020ea4 48 52                    |HR      |		PEA.L	(A2)
00020ea6 4e 93                    |N       |		JSR	(A3)
00020ea8 de c1                    |        |		ADDA.W	D1,A7
00020eaa 10 07                    |        |		MOVE.B	D7,D0
00020eac 80 10                    |        |		OR.B	(A0),D0
00020eae 48 80                    |H       |		EXTB.W	D0
00020eb0 41 82                    |A       |		CHK.W	D2,D0
00020eb2 1e 00                    |        |		MOVE.B	D0,D7
00020eb4 52 06                    |R       |		ADDQ.B	#0x1,D6
00020eb6 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
00020eba 6f d2                    |o       |		BLE	0x20e8e
00020ebc 4a 07                    |J       |		TST.B	D7
00020ebe 67 00 ff 46              |g  F    |		BEQ	0x20e06
00020ec2 4c df 0f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3
00020ec6 4e 5e                    |N^      |		UNLK	A6
00020ec8 4e 75                    |Nu      |		RTS
00020eca ; --------------------------------------------------------------------------------------
00020eca ; OMSI PASCAL Function
00020eca ;    <LVAR -0x006 1(r)>
00020eca ;    <LVAR -0x007 @ 1(r)>
00020eca ;    <LVAR -0x008 1(rw)>
00020eca ; --------------------------------------------------------------------------------------
00020eca 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00020ece bf d5                    |        |		CMPA.L	(A5),A7
00020ed0 62 06                    |b       |		BHI	0x20ed8
00020ed2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ed6 4e 76                    |Nv      |		TRAPV
00020ed8 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020edc 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
00020ee0 72 1f                    |r       |		MOVEQ.L	#0x1f,D1
00020ee2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020ee4 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00020eea 63 02                    |c       |		BLS	0x20eee
00020eec 4e 4f                    |NO      |		TRAP	#15
00020eee 1d 47 ff f8              | G      |		MOVE.B	D7,(A6-0x8)
00020ef2 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020ef6 1f 2e ff f8              | .      |		MOVE.B	(A6-0x8),-(A7)
00020efa 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020efe 4e b9 00 02 12 d0        |N       |		JSR	exp_REG_TO_LOOP.TYP(Sw_1, Sw_1, &Sr_2)
00020f04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f06 4e b9 00 02 13 5a        |N    Z  |		JSR	exp_PREP_READ_REG.TYP()
00020f0c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020f0e 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
00020f12 1f 6e ff fa 00 01        | n      |		MOVE.B	(A6-0x6),(A7+0x1)
00020f18 42 27                    |B'      |		CLR.B	-(A7)
00020f1a be 81                    |        |		CMP.L	D1,D7
00020f1c 63 02                    |c       |		BLS	0x20f20
00020f1e 4e 4f                    |NO      |		TRAP	#15
00020f20 20 07                    |        |		MOVE.L	D7,D0
00020f22 e7 80                    |        |		ASL.L	#0x3,D0
00020f24 41 f9 00 02 1a 28        |A    (  |		LEA.L	0x21a28,A0
00020f2a 48 70 08 2c              |Hp ,    |		PEA.L	(A0+D0.L+#0x2c)
00020f2e 4e b9 00 02 13 22        |N    "  |		JSR	exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8)
00020f34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f36 52 87                    |R       |		ADDQ.L	#0x1,D7
00020f38 be 81                    |        |		CMP.L	D1,D7
00020f3a 6f a8                    |o       |		BLE	0x20ee4
00020f3c 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
00020f40 4e 5e                    |N^      |		UNLK	A6
00020f42 4e 75                    |Nu      |		RTS
00020f44 ; --------------------------------------------------------------------------------------
00020f44 ; OMSI PASCAL Function
00020f44 ;    <LVAR -0x004 @>
00020f44 ; --------------------------------------------------------------------------------------
00020f44 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00020f48 bf d5                    |        |		CMPA.L	(A5),A7
00020f4a 62 06                    |b       |		BHI	0x20f52
00020f4c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f50 4e 76                    |Nv      |		TRAPV
00020f52 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020f56 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00020f5a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020f5c 41 fa f3 a4              |A       |		LEA.L	0x20302,A0
00020f60 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020f62 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020f64 51 c8 ff fc              |Q       |		DBF	D0,0x20f62
00020f68 42 27                    |B'      |		CLR.B	-(A7)
00020f6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f6c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020f70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f72 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020f76 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f7c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f7e 1e 81                    |        |		MOVE.B	D1,(A7)
00020f80 1f 01                    |        |		MOVE.B	D1,-(A7)
00020f82 1f 01                    |        |		MOVE.B	D1,-(A7)
00020f84 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020f88 4e ba f6 2e              |N  .    |		JSR	0x205b8
00020f8c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020f90 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020f94 4e 5e                    |N^      |		UNLK	A6
00020f96 4e 75                    |Nu      |		RTS
00020f98 ; --------------------------------------------------------------------------------------
00020f98 ; OMSI PASCAL Function
00020f98 ; --------------------------------------------------------------------------------------
00020f98					START:
00020f98 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020f9c 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020fa2					MAIN:
00020fa2 45 f9 00 02 1a 32        |E    2  |		LEA.L	0x21a32,A2
00020fa8 47 f9 00 02 1a 35        |G    5  |		LEA.L	0x21a35,A3
00020fae 49 f9 00 02 1a 37        |I    7  |		LEA.L	0x21a37,A4
00020fb4 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020fb6 74 07                    |t       |		MOVEQ.L	#0x07,D2
00020fb8 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020fbe 48 78 00 03              |Hx      |		PEA.L	0x3
00020fc2 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020fc8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fca 48 52                    |HR      |		PEA.L	(A2)
00020fcc 48 79 00 02 1a 34        |Hy   4  |		PEA.L	0x21a34
00020fd2 48 53                    |HS      |		PEA.L	(A3)
00020fd4 48 54                    |HT      |		PEA.L	(A4)
00020fd6 48 79 00 02 1a 38        |Hy   8  |		PEA.L	0x21a38
00020fdc 4e b9 00 01 05 62        |N    b  |		JSR	?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
00020fe2 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020fe6 1e 93                    |        |		MOVE.B	(A3),(A7)
00020fe8 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020fee 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020ff0 20 4f                    | O      |		MOVEA.L	A7,A0
00020ff2 43 fa f3 0e              |C       |		LEA.L	0x20302,A1
00020ff6 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020ff8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ffa 51 c8 ff fc              |Q       |		DBF	D0,0x20ff8
00020ffe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021000 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021004 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021006 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021008 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002100e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021010 23 df 00 02 1a 3e        |#    >  |		MOVE.L	(A7)+,0x21a3e
00021016 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021018 48 79 00 02 1a 42        |Hy   B  |		PEA.L	0x21a42
0002101e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021024 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021026 48 79 00 02 1a 3a        |Hy   :  |		PEA.L	0x21a3a
0002102c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021032 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021034 42 39 00 02 1a 46        |B9   F  |		CLR.B	0x21a46
0002103a 70 00                    |p       |		MOVEQ.L	#0x00,D0
0002103c 23 c0 00 02 1a 50        |#    P  |		MOVE.L	D0,0x21a50
00021042 b0 82                    |        |		CMP.L	D2,D0
00021044 63 02                    |c       |		BLS	0x21048
00021046 4e 4f                    |NO      |		TRAP	#15
00021048 41 f9 00 02 1a 28        |A    (  |		LEA.L	0x21a28,A0
0002104e 42 30 08 1f              |B0      |		CLR.B	(A0+D0.L+#0x1f)
00021052 52 80                    |R       |		ADDQ.L	#0x1,D0
00021054 b0 82                    |        |		CMP.L	D2,D0
00021056 6f e4                    |o       |		BLE	0x2103c
00021058 13 c1 00 02 1a 36        |     6  |		MOVE.B	D1,0x21a36
0002105e 42 80                    |B       |		CLR.L	D0
00021060 10 12                    |        |		MOVE.B	(A2),D0
00021062 0c 40 00 20              | @      |		CMPI.W	#0x0020,D0
00021066 63 2e                    |c.      |		BLS	0x21096
00021068 41 fa f2 be              |A       |		LEA.L	0x20328,A0
0002106c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002106e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021070 51 c8 ff fc              |Q       |		DBF	D0,0x2106e
00021074 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021078 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002107a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002107e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021080 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021084 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002108a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002108c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021092 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021096 4a 39 00 02 1a 38        |J9   8  |		TST.B	0x21a38
0002109c 67 04                    |g       |		BEQ	0x210a2
0002109e 4e ba f6 e2              |N       |		JSR	0x20782
000210a2 4a 14                    |J       |		TST.B	(A4)
000210a4 67 2a                    |g*      |		BEQ	0x210d0
000210a6 4e ba fe 9c              |N       |		JSR	0x20f44
000210aa 2f 3a f3 c0              |/:      |		MOVE.L	0x2046c,-(A7)
000210ae 2f 3a f3 b8              |/:      |		MOVE.L	0x20468,-(A7)
000210b2 42 27                    |B'      |		CLR.B	-(A7)
000210b4 4e b9 00 02 14 1c        |N       |		JSR	exp_LOAD_WDR.VAL(Sw_8, Sw_1)
000210ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210bc 2e ba f3 ae              |.       |		MOVE.L	0x2046c,(A7)
000210c0 2f 3a f3 a6              |/:      |		MOVE.L	0x20468,-(A7)
000210c4 42 27                    |B'      |		CLR.B	-(A7)
000210c6 4e b9 00 02 13 78        |N    x  |		JSR	exp_LOAD_WDR.TYP(Sw_8, Sw_1)
000210cc de fc 00 0a              |        |		ADDA.W	#0xa,A7
000210d0 4e ba fd f8              |N       |		JSR	0x20eca
000210d4 13 fc 00 02 00 02 1a 30  |       0|		MOVE.B	#0x02,0x21a30
000210dc 42 80                    |B       |		CLR.L	D0
000210de 10 12                    |        |		MOVE.B	(A2),D0
000210e0 54 40                    |T@      |		ADDQ.W	#0x2,D0
000210e2 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000210e6 13 c0 00 02 1a 31        |     1  |		MOVE.B	D0,0x21a31
000210ec 3f 39 00 02 1a 30        |?9   0  |		MOVE.W	0x21a30,-(A7)
000210f2 4e ba f7 6e              |N  n    |		JSR	0x20862
000210f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210f8 4e ba f8 e2              |N       |		JSR	0x209dc
000210fc 4e ba fc da              |N       |		JSR	0x20dd8
00021100 4e ba fb c2              |N       |		JSR	0x20cc4
00021104 1f 13                    |        |		MOVE.B	(A3),-(A7)
00021106 48 79 00 02 1a 39        |Hy   9  |		PEA.L	0x21a39
0002110c 4e ba f5 72              |N  r    |		JSR	0x20680
00021110 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021112 1e b9 00 02 1a 36        |     6  |		MOVE.B	0x21a36,(A7)
00021118 2f 39 00 02 1a 3e        |/9   >  |		MOVE.L	0x21a3e,-(A7)
0002111e 2f 39 00 02 1a 42        |/9   B  |		MOVE.L	0x21a42,-(A7)
00021124 1f 39 00 02 1a 46        | 9   F  |		MOVE.B	0x21a46,-(A7)
0002112a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002112c 20 4f                    | O      |		MOVEA.L	A7,A0
0002112e 43 f9 00 02 1a 47        |C    G  |		LEA.L	0x21a47,A1
00021134 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021136 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021138 51 c8 ff fc              |Q       |		DBF	D0,0x21136
0002113c 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00021142 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021146 4e b9 00 01 02 84        |N       |		JSR	?exit
0002114c					exp_LOAD_HRAM_8_0.FIU():
0002114c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021152 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021154 11 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	17,'LOAD_HRAM_8_0.FIU'
00021166 00                       |        |		.CONST	0x0
00021167 03                       |        |		.CONST	0x3			; DIPROC address
00021168 00                       |        |		.CONST	0x0			; Output Parameters
00021169 00                       |        |		.CONST	0x0			; Input Parameters
0002116a					exp_LOAD_HRAM_32_0.FIU():
0002116a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021170 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021172 12 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	18,'LOAD_HRAM_32_0.FIU'
00021185 00                       |        |		.CONST	0x0
00021186 03                       |        |		.CONST	0x3			; DIPROC address
00021187 00                       |        |		.CONST	0x0			; Output Parameters
00021188 00                       |        |		.CONST	0x0			; Input Parameters
00021189 00                       |        |		.PAD	0x0
0002118a					exp_RUN_NORMAL.FIU():
0002118a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021190 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021192 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
000211a1 00                       |        |		.CONST	0x0
000211a2 03                       |        |		.CONST	0x3			; DIPROC address
000211a3 00                       |        |		.CONST	0x0			; Output Parameters
000211a4 00                       |        |		.CONST	0x0			; Input Parameters
000211a5 00                       |        |		.PAD	0x0
000211a6					exp_RESET.FIU():
000211a6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211ac 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211ae 09 52 45 53 45 54 2e 46  | RESET.F|		.TXT	9,'RESET.FIU'
000211b8 00                       |        |		.CONST	0x0
000211b9 03                       |        |		.CONST	0x3			; DIPROC address
000211ba 00                       |        |		.CONST	0x0			; Output Parameters
000211bb 00                       |        |		.CONST	0x0			; Input Parameters
000211bc					exp_PREP_RUN.FIU(Sw_2):
000211bc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211c2 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000211c4 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
000211d1 00                       |        |		.CONST	0x0
000211d2 03                       |        |		.CONST	0x3			; DIPROC address
000211d3 00                       |        |		.CONST	0x0			; Output Parameters
000211d4 01                       |        |		.CONST	0x1			; Input Parameters
000211d5 01                       |        |		.CONST	0x1			; In arg [2]
000211d6					exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2):
000211d6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211dc 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000211de 15 4c 4f 41 44 5f 52 45  | LOAD_RE|		.TXT	21,'LOAD_REFRESH_REGS.FIU'
000211f4 00                       |        |		.CONST	0x0
000211f5 03                       |        |		.CONST	0x3			; DIPROC address
000211f6 00                       |        |		.CONST	0x0			; Output Parameters
000211f7 02                       |        |		.CONST	0x2			; Input Parameters
000211f8 01                       |        |		.CONST	0x1			; In arg [2]
000211f9 01                       |        |		.CONST	0x1			; In arg [2]
000211fa					exp_LOAD_HRAM_1.FIU():
000211fa 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021200 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021202 0f 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	15,'LOAD_HRAM_1.FIU'
00021212 00                       |        |		.CONST	0x0
00021213 03                       |        |		.CONST	0x3			; DIPROC address
00021214 00                       |        |		.CONST	0x0			; Output Parameters
00021215 00                       |        |		.CONST	0x0			; Input Parameters
00021216					exp_INIT_MRU.FIU():
00021216 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002121c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002121e 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
0002122b 00                       |        |		.CONST	0x0
0002122c 03                       |        |		.CONST	0x3			; DIPROC address
0002122d 00                       |        |		.CONST	0x0			; Output Parameters
0002122e 00                       |        |		.CONST	0x0			; Input Parameters
0002122f 00                       |        |		.PAD	0x0
00021230					exp_FREEZE_WORLD.FIU():
00021230 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021236 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021238 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
00021249 00                       |        |		.CONST	0x0
0002124a 03                       |        |		.CONST	0x3			; DIPROC address
0002124b 00                       |        |		.CONST	0x0			; Output Parameters
0002124c 00                       |        |		.CONST	0x0			; Input Parameters
0002124d 00                       |        |		.PAD	0x0
0002124e					exp_RESET.SEQ():
0002124e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021254 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021256 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
00021260 00                       |        |		.CONST	0x0
00021261 02                       |        |		.CONST	0x2			; DIPROC address
00021262 00                       |        |		.CONST	0x0			; Output Parameters
00021263 00                       |        |		.CONST	0x0			; Input Parameters
00021264					exp_RUN_CHECK.SEQ():
00021264 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002126a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002126c 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
0002127a 00                       |        |		.CONST	0x0
0002127b 02                       |        |		.CONST	0x2			; DIPROC address
0002127c 00                       |        |		.CONST	0x0			; Output Parameters
0002127d 00                       |        |		.CONST	0x0			; Input Parameters
0002127e					exp_PREP_RUN.SEQ(Sw_2):
0002127e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021284 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021286 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
00021293 00                       |        |		.CONST	0x0
00021294 02                       |        |		.CONST	0x2			; DIPROC address
00021295 00                       |        |		.CONST	0x0			; Output Parameters
00021296 01                       |        |		.CONST	0x1			; Input Parameters
00021297 01                       |        |		.CONST	0x1			; In arg [2]
00021298					exp_HALT.SEQ(&Fr):
00021298 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002129e 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000212a0 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
000212a9 00                       |        |		.CONST	0x0
000212aa 02                       |        |		.CONST	0x2			; DIPROC address
000212ab 01                       |        |		.CONST	0x1			; Output Parameters
000212ac 00                       |        |		.CONST	0x0			; Input Parameters
000212ad 08                       |        |		.CONST	0x8			; Out arg flag
000212ae					exp_GET_MISC_ERRORS.SEQ(&Sr_1):
000212ae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212b4 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000212b6 13 47 45 54 5f 4d 49 53  | GET_MIS|		.TXT	19,'GET_MISC_ERRORS.SEQ'
000212ca 00                       |        |		.CONST	0x0
000212cb 02                       |        |		.CONST	0x2			; DIPROC address
000212cc 01                       |        |		.CONST	0x1			; Output Parameters
000212cd 00                       |        |		.CONST	0x0			; Input Parameters
000212ce 00                       |        |		.CONST	0x0			; Out arg [1]
000212cf 00                       |        |		.PAD	0x0
000212d0					exp_REG_TO_LOOP.TYP(Sw_1, Sw_1, &Sr_2):
000212d0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212d6 00 10                    |        |		.CONST	0x0010			; Stack-delta
000212d8 0f 52 45 47 5f 54 4f 5f  | REG_TO_|		.TXT	15,'REG_TO_LOOP.TYP'
000212e8 00                       |        |		.CONST	0x0
000212e9 06                       |        |		.CONST	0x6			; DIPROC address
000212ea 01                       |        |		.CONST	0x1			; Output Parameters
000212eb 02                       |        |		.CONST	0x2			; Input Parameters
000212ec 00                       |        |		.CONST	0x0			; In arg [1]
000212ed 00                       |        |		.CONST	0x0			; In arg [1]
000212ee 01                       |        |		.CONST	0x1			; Out arg [2]
000212ef 00                       |        |		.PAD	0x0
000212f0					exp_RUN_NORMAL.TYP():
000212f0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212f6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000212f8 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
00021307 00                       |        |		.CONST	0x0
00021308 06                       |        |		.CONST	0x6			; DIPROC address
00021309 00                       |        |		.CONST	0x0			; Output Parameters
0002130a 00                       |        |		.CONST	0x0			; Input Parameters
0002130b 00                       |        |		.PAD	0x0
0002130c					exp_RESET.TYP():
0002130c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021312 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021314 09 52 45 53 45 54 2e 54  | RESET.T|		.TXT	9,'RESET.TYP'
0002131e 00                       |        |		.CONST	0x0
0002131f 06                       |        |		.CONST	0x6			; DIPROC address
00021320 00                       |        |		.CONST	0x0			; Output Parameters
00021321 00                       |        |		.CONST	0x0			; Input Parameters
00021322					exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8):
00021322 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021328 00 10                    |        |		.CONST	0x0010			; Stack-delta
0002132a 0e 52 45 41 44 5f 42 5f  | READ_B_|		.TXT	14,'READ_B_REG.TYP'
00021339 00                       |        |		.CONST	0x0
0002133a 06                       |        |		.CONST	0x6			; DIPROC address
0002133b 01                       |        |		.CONST	0x1			; Output Parameters
0002133c 02                       |        |		.CONST	0x2			; Input Parameters
0002133d 01                       |        |		.CONST	0x1			; In arg [2]
0002133e 00                       |        |		.CONST	0x0			; In arg [1]
0002133f 07                       |        |		.CONST	0x7			; Out arg [8]
00021340					exp_PREP_RUN.TYP(Sw_2):
00021340 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021346 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021348 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
00021355 00                       |        |		.CONST	0x0
00021356 06                       |        |		.CONST	0x6			; DIPROC address
00021357 00                       |        |		.CONST	0x0			; Output Parameters
00021358 01                       |        |		.CONST	0x1			; Input Parameters
00021359 01                       |        |		.CONST	0x1			; In arg [2]
0002135a					exp_PREP_READ_REG.TYP():
0002135a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021360 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021362 11 50 52 45 50 5f 52 45  | PREP_RE|		.TXT	17,'PREP_READ_REG.TYP'
00021374 00                       |        |		.CONST	0x0
00021375 06                       |        |		.CONST	0x6			; DIPROC address
00021376 00                       |        |		.CONST	0x0			; Output Parameters
00021377 00                       |        |		.CONST	0x0			; Input Parameters
00021378					exp_LOAD_WDR.TYP(Sw_8, Sw_1):
00021378 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002137e 00 12                    |        |		.CONST	0x0012			; Stack-delta
00021380 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.TYP'
0002138d 00                       |        |		.CONST	0x0
0002138e 06                       |        |		.CONST	0x6			; DIPROC address
0002138f 00                       |        |		.CONST	0x0			; Output Parameters
00021390 02                       |        |		.CONST	0x2			; Input Parameters
00021391 07                       |        |		.CONST	0x7			; In arg [8]
00021392 00                       |        |		.CONST	0x0			; In arg [1]
00021393 00                       |        |		.PAD	0x0
00021394					exp_LOAD_BENIGN_UWORD.TYP():
00021394 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002139a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002139c 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
000213b2 00                       |        |		.CONST	0x0
000213b3 06                       |        |		.CONST	0x6			; DIPROC address
000213b4 00                       |        |		.CONST	0x0			; Output Parameters
000213b5 00                       |        |		.CONST	0x0			; Input Parameters
000213b6					exp_ALIGN_CSA.TYP():
000213b6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213bc 00 08                    |        |		.CONST	0x0008			; Stack-delta
000213be 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.TYP'
000213cc 00                       |        |		.CONST	0x0
000213cd 06                       |        |		.CONST	0x6			; DIPROC address
000213ce 00                       |        |		.CONST	0x0			; Output Parameters
000213cf 00                       |        |		.CONST	0x0			; Input Parameters
000213d0					exp_RUN_NORMAL.VAL():
000213d0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213d6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000213d8 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
000213e7 00                       |        |		.CONST	0x0
000213e8 07                       |        |		.CONST	0x7			; DIPROC address
000213e9 00                       |        |		.CONST	0x0			; Output Parameters
000213ea 00                       |        |		.CONST	0x0			; Input Parameters
000213eb 00                       |        |		.PAD	0x0
000213ec					exp_RESET.VAL():
000213ec 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213f2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000213f4 09 52 45 53 45 54 2e 56  | RESET.V|		.TXT	9,'RESET.VAL'
000213fe 00                       |        |		.CONST	0x0
000213ff 07                       |        |		.CONST	0x7			; DIPROC address
00021400 00                       |        |		.CONST	0x0			; Output Parameters
00021401 00                       |        |		.CONST	0x0			; Input Parameters
00021402					exp_PREP_RUN.VAL(Sw_2):
00021402 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021408 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002140a 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
00021417 00                       |        |		.CONST	0x0
00021418 07                       |        |		.CONST	0x7			; DIPROC address
00021419 00                       |        |		.CONST	0x0			; Output Parameters
0002141a 01                       |        |		.CONST	0x1			; Input Parameters
0002141b 01                       |        |		.CONST	0x1			; In arg [2]
0002141c					exp_LOAD_WDR.VAL(Sw_8, Sw_1):
0002141c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021422 00 12                    |        |		.CONST	0x0012			; Stack-delta
00021424 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.VAL'
00021431 00                       |        |		.CONST	0x0
00021432 07                       |        |		.CONST	0x7			; DIPROC address
00021433 00                       |        |		.CONST	0x0			; Output Parameters
00021434 02                       |        |		.CONST	0x2			; Input Parameters
00021435 07                       |        |		.CONST	0x7			; In arg [8]
00021436 00                       |        |		.CONST	0x0			; In arg [1]
00021437 00                       |        |		.PAD	0x0
00021438					exp_ALIGN_CSA.VAL():
00021438 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002143e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021440 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.VAL'
0002144e 00                       |        |		.CONST	0x0
0002144f 07                       |        |		.CONST	0x7			; DIPROC address
00021450 00                       |        |		.CONST	0x0			; Output Parameters
00021451 00                       |        |		.CONST	0x0			; Input Parameters
00021452 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
0002145e 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
0002146a ; --------------------------------------------------------------------------------------
0002146a ; OMSI PASCAL Function
0002146a ;    <LVAR  0x00a 1(r)>
0002146a ;    <LVAR  0x008 1(r)>
0002146a ;    <LVAR -0x004 @ 4(r)>
0002146a ; --------------------------------------------------------------------------------------
0002146a 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0002146e bf d5                    |        |		CMPA.L	(A5),A7
00021470 62 06                    |b       |		BHI	0x21478
00021472 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021476 4e 76                    |Nv      |		TRAPV
00021478 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002147c 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021480 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021484 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00021486 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021488 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002148e 4a 1f                    |J       |		TST.B	(A7)+
00021490 67 12                    |g       |		BEQ	0x214a4
00021492 9e c1                    |        |		SUBA.W	D1,A7
00021494 20 4f                    | O      |		MOVEA.L	A7,A0
00021496 43 fa ff ba              |C       |		LEA.L	0x21452,A1
0002149a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002149c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002149e 51 c8 ff fc              |Q       |		DBF	D0,0x2149c
000214a2 60 10                    |`       |		BRA	0x214b4
000214a4 9e c1                    |        |		SUBA.W	D1,A7
000214a6 20 4f                    | O      |		MOVEA.L	A7,A0
000214a8 43 fa ff b4              |C       |		LEA.L	0x2145e,A1
000214ac 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000214ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214b0 51 c8 ff fc              |Q       |		DBF	D0,0x214ae
000214b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214ba 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000214be 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000214c2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000214c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214ca 48 52                    |HR      |		PEA.L	(A2)
000214cc 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000214d2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000214d6 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000214da 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000214dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214e0 48 78 00 00              |Hx      |		PEA.L	0x0
000214e4 48 78 00 00              |Hx      |		PEA.L	0x0
000214e8 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000214ee de fc 00 10              |        |		ADDA.W	#0x10,A7
000214f2 42 17                    |B       |		CLR.B	(A7)
000214f4 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
000214f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000214fa 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021500 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021502 48 52                    |HR      |		PEA.L	(A2)
00021504 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002150a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002150c 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021510 4e 5e                    |N^      |		UNLK	A6
00021512 4e 75                    |Nu      |		RTS
00021514 52 45 53 45 54 2e 4d 45  |RESET.ME|		.TXT	'RESET.MEM '
0002151e 52 45 53 45 54 2e 4d 33  |RESET.M3|		.TXT	'RESET.M32 '
00021528 ; --------------------------------------------------------------------------------------
00021528 ; OMSI PASCAL Function
00021528 ;    <LVAR  0x008 1(r)>
00021528 ;    <LVAR -0x006 @ 4(r)>
00021528 ; --------------------------------------------------------------------------------------
00021528 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0002152c bf d5                    |        |		CMPA.L	(A5),A7
0002152e 62 06                    |b       |		BHI	0x21536
00021530 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021534 4e 76                    |Nv      |		TRAPV
00021536 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0002153a 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002153e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021542 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00021544 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021546 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002154c 4a 1f                    |J       |		TST.B	(A7)+
0002154e 67 12                    |g       |		BEQ	0x21562
00021550 9e c1                    |        |		SUBA.W	D1,A7
00021552 20 4f                    | O      |		MOVEA.L	A7,A0
00021554 43 fa ff be              |C       |		LEA.L	0x21514,A1
00021558 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002155a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002155c 51 c8 ff fc              |Q       |		DBF	D0,0x2155a
00021560 60 10                    |`       |		BRA	0x21572
00021562 9e c1                    |        |		SUBA.W	D1,A7
00021564 20 4f                    | O      |		MOVEA.L	A7,A0
00021566 43 fa ff b6              |C       |		LEA.L	0x2151e,A1
0002156a 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002156c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002156e 51 c8 ff fc              |Q       |		DBF	D0,0x2156c
00021572 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021574 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021578 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002157c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021580 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021586 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021588 48 52                    |HR      |		PEA.L	(A2)
0002158a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021590 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021594 42 27                    |B'      |		CLR.B	-(A7)
00021596 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002159a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002159c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000215a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215a4 48 52                    |HR      |		PEA.L	(A2)
000215a6 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000215ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215ae 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000215b2 4e 5e                    |N^      |		UNLK	A6
000215b4 4e 75                    |Nu      |		RTS
000215b6 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
000215c4 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
000215d2 ; --------------------------------------------------------------------------------------
000215d2 ; OMSI PASCAL Function
000215d2 ;    <LVAR  0x008 1(r)>
000215d2 ;    <LVAR -0x006 @ 4(r)>
000215d2 ; --------------------------------------------------------------------------------------
000215d2 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000215d6 bf d5                    |        |		CMPA.L	(A5),A7
000215d8 62 06                    |b       |		BHI	0x215e0
000215da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000215de 4e 76                    |Nv      |		TRAPV
000215e0 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000215e4 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000215e8 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000215ec 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000215ee 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000215f0 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000215f6 4a 1f                    |J       |		TST.B	(A7)+
000215f8 67 12                    |g       |		BEQ	0x2160c
000215fa 9e c1                    |        |		SUBA.W	D1,A7
000215fc 20 4f                    | O      |		MOVEA.L	A7,A0
000215fe 43 fa ff b6              |C       |		LEA.L	0x215b6,A1
00021602 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021604 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021606 51 c8 ff fc              |Q       |		DBF	D0,0x21604
0002160a 60 10                    |`       |		BRA	0x2161c
0002160c 9e c1                    |        |		SUBA.W	D1,A7
0002160e 20 4f                    | O      |		MOVEA.L	A7,A0
00021610 43 fa ff b2              |C       |		LEA.L	0x215c4,A1
00021614 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021616 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021618 51 c8 ff fc              |Q       |		DBF	D0,0x21616
0002161c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002161e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021622 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021626 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002162a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021630 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021632 48 52                    |HR      |		PEA.L	(A2)
00021634 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002163a de fc 00 16              |        |		ADDA.W	#0x16,A7
0002163e 42 27                    |B'      |		CLR.B	-(A7)
00021640 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021644 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021646 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002164c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002164e 48 52                    |HR      |		PEA.L	(A2)
00021650 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021656 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021658 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002165c 4e 5e                    |N^      |		UNLK	A6
0002165e 4e 75                    |Nu      |		RTS
00021660 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.MEM '
00021670 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.M32 '
00021680 ; --------------------------------------------------------------------------------------
00021680 ; OMSI PASCAL Function
00021680 ;    <LVAR  0x00e 1(r)>
00021680 ;    <LVAR  0x00c 1(r)>
00021680 ;    <LVAR  0x00a 1(r)>
00021680 ;    <LVAR  0x008 1(r)>
00021680 ;    <LVAR -0x004 @ 4(r)>
00021680 ; --------------------------------------------------------------------------------------
00021680 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021684 bf d5                    |        |		CMPA.L	(A5),A7
00021686 62 06                    |b       |		BHI	0x2168e
00021688 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002168c 4e 76                    |Nv      |		TRAPV
0002168e de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021692 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021696 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002169a 72 10                    |r       |		MOVEQ.L	#0x10,D1
0002169c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002169e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000216a4 4a 1f                    |J       |		TST.B	(A7)+
000216a6 67 12                    |g       |		BEQ	0x216ba
000216a8 9e c1                    |        |		SUBA.W	D1,A7
000216aa 20 4f                    | O      |		MOVEA.L	A7,A0
000216ac 43 fa ff b2              |C       |		LEA.L	0x21660,A1
000216b0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000216b2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216b4 51 c8 ff fc              |Q       |		DBF	D0,0x216b2
000216b8 60 10                    |`       |		BRA	0x216ca
000216ba 9e c1                    |        |		SUBA.W	D1,A7
000216bc 20 4f                    | O      |		MOVEA.L	A7,A0
000216be 43 fa ff b0              |C       |		LEA.L	0x21670,A1
000216c2 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000216c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216c6 51 c8 ff fc              |Q       |		DBF	D0,0x216c4
000216ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000216d4 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000216d8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000216de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216e0 48 52                    |HR      |		PEA.L	(A2)
000216e2 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000216e8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000216ec 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216ee 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
000216f2 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000216f8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216fa 2e 92                    |.       |		MOVE.L	(A2),(A7)
000216fc 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
00021700 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00021706 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021708 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
0002170c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002170e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021712 48 78 00 00              |Hx      |		PEA.L	0x0
00021716 48 78 00 00              |Hx      |		PEA.L	0x0
0002171a 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021720 de c1                    |        |		ADDA.W	D1,A7
00021722 42 17                    |B       |		CLR.B	(A7)
00021724 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00021728 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002172a 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021730 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021732 48 52                    |HR      |		PEA.L	(A2)
00021734 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002173a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002173c 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021740 4e 5e                    |N^      |		UNLK	A6
00021742 4e 75                    |Nu      |		RTS
00021744 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.MEM'
00021756 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.M32'
00021768 ; --------------------------------------------------------------------------------------
00021768 ; OMSI PASCAL Function
00021768 ;    <LVAR  0x008 1(r)>
00021768 ;    <LVAR -0x006 @ 4(r)>
00021768 ; --------------------------------------------------------------------------------------
00021768 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0002176c bf d5                    |        |		CMPA.L	(A5),A7
0002176e 62 06                    |b       |		BHI	0x21776
00021770 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021774 4e 76                    |Nv      |		TRAPV
00021776 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0002177a 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002177e 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00021782 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021784 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002178a 4a 1f                    |J       |		TST.B	(A7)+
0002178c 67 0e                    |g       |		BEQ	0x2179c
0002178e 41 fa ff c6              |A       |		LEA.L	0x21756,A0
00021792 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021794 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021796 51 c8 ff fc              |Q       |		DBF	D0,0x21794
0002179a 60 0c                    |`       |		BRA	0x217a8
0002179c 41 fa ff ca              |A       |		LEA.L	0x21768,A0
000217a0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000217a2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217a4 51 c8 ff fc              |Q       |		DBF	D0,0x217a2
000217a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217ae 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000217b2 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000217b6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217be 48 51                    |HQ      |		PEA.L	(A1)
000217c0 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000217c6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000217ca 42 27                    |B'      |		CLR.B	-(A7)
000217cc 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000217d0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000217d2 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000217d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217da 48 51                    |HQ      |		PEA.L	(A1)
000217dc 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000217e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217e4 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000217e8 4e 5e                    |N^      |		UNLK	A6
000217ea 4e 75                    |Nu      |		RTS
000217ec 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
00021804 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
0002181c ; --------------------------------------------------------------------------------------
0002181c ; OMSI PASCAL Function
0002181c ;    <LVAR  0x008 1(r)>
0002181c ;    <LVAR -0x006 @ 4(r)>
0002181c ; --------------------------------------------------------------------------------------
0002181c 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00021820 bf d5                    |        |		CMPA.L	(A5),A7
00021822 62 06                    |b       |		BHI	0x2182a
00021824 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021828 4e 76                    |Nv      |		TRAPV
0002182a de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002182e 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021832 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021836 72 18                    |r       |		MOVEQ.L	#0x18,D1
00021838 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002183a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021840 4a 1f                    |J       |		TST.B	(A7)+
00021842 67 12                    |g       |		BEQ	0x21856
00021844 9e c1                    |        |		SUBA.W	D1,A7
00021846 20 4f                    | O      |		MOVEA.L	A7,A0
00021848 43 fa ff a2              |C       |		LEA.L	0x217ec,A1
0002184c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002184e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021850 51 c8 ff fc              |Q       |		DBF	D0,0x2184e
00021854 60 10                    |`       |		BRA	0x21866
00021856 9e c1                    |        |		SUBA.W	D1,A7
00021858 20 4f                    | O      |		MOVEA.L	A7,A0
0002185a 43 fa ff a8              |C       |		LEA.L	0x21804,A1
0002185e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021860 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021862 51 c8 ff fc              |Q       |		DBF	D0,0x21860
00021866 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021868 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002186c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021870 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021874 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002187a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002187c 48 52                    |HR      |		PEA.L	(A2)
0002187e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021884 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021888 42 27                    |B'      |		CLR.B	-(A7)
0002188a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002188e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021890 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021896 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021898 48 52                    |HR      |		PEA.L	(A2)
0002189a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000218a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218a2 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000218a6 4e 5e                    |N^      |		UNLK	A6
000218a8 4e 75                    |Nu      |		RTS
000218aa 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
000218b8 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
000218c6 ; --------------------------------------------------------------------------------------
000218c6 ; OMSI PASCAL Function
000218c6 ;    <LVAR  0x008 1(r)>
000218c6 ;    <LVAR -0x006 @ 4(r)>
000218c6 ; --------------------------------------------------------------------------------------
000218c6 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000218ca bf d5                    |        |		CMPA.L	(A5),A7
000218cc 62 06                    |b       |		BHI	0x218d4
000218ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000218d2 4e 76                    |Nv      |		TRAPV
000218d4 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000218d8 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000218dc 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
000218e0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000218e2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000218e8 4a 1f                    |J       |		TST.B	(A7)+
000218ea 67 0e                    |g       |		BEQ	0x218fa
000218ec 41 fa ff ca              |A       |		LEA.L	0x218b8,A0
000218f0 70 06                    |p       |		MOVEQ.L	#0x06,D0
000218f2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218f4 51 c8 ff fc              |Q       |		DBF	D0,0x218f2
000218f8 60 0c                    |`       |		BRA	0x21906
000218fa 41 fa ff ca              |A       |		LEA.L	0x218c6,A0
000218fe 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021900 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021902 51 c8 ff fc              |Q       |		DBF	D0,0x21900
00021906 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021908 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002190c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021910 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021914 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002191a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002191c 48 51                    |HQ      |		PEA.L	(A1)
0002191e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021924 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021928 42 27                    |B'      |		CLR.B	-(A7)
0002192a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002192e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021930 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021936 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021938 48 51                    |HQ      |		PEA.L	(A1)
0002193a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021940 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021942 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021946 4e 5e                    |N^      |		UNLK	A6
00021948 4e 75                    |Nu      |		RTS
0002194a					exp_READ_LAST_PC.IOC(&Sr_2):
0002194a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021950 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021952 10 52 45 41 44 5f 4c 41  | READ_LA|		.TXT	16,'READ_LAST_PC.IOC'
00021963 00                       |        |		.CONST	0x0
00021964 04                       |        |		.CONST	0x4			; DIPROC address
00021965 01                       |        |		.CONST	0x1			; Output Parameters
00021966 00                       |        |		.CONST	0x0			; Input Parameters
00021967 01                       |        |		.CONST	0x1			; Out arg [2]
00021968					exp_RESET.IOC():
00021968 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002196e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021970 09 52 45 53 45 54 2e 49  | RESET.I|		.TXT	9,'RESET.IOC'
0002197a 00                       |        |		.CONST	0x0
0002197b 04                       |        |		.CONST	0x4			; DIPROC address
0002197c 00                       |        |		.CONST	0x0			; Output Parameters
0002197d 00                       |        |		.CONST	0x0			; Input Parameters
0002197e					exp_RUN_CHECK.IOC():
0002197e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021984 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021986 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
00021994 00                       |        |		.CONST	0x0
00021995 04                       |        |		.CONST	0x4			; DIPROC address
00021996 00                       |        |		.CONST	0x0			; Output Parameters
00021997 00                       |        |		.CONST	0x0			; Input Parameters
00021998					exp_PREP_RUN.IOC(Sw_2):
00021998 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002199e 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000219a0 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
000219ad 00                       |        |		.CONST	0x0
000219ae 04                       |        |		.CONST	0x4			; DIPROC address
000219af 00                       |        |		.CONST	0x0			; Output Parameters
000219b0 01                       |        |		.CONST	0x1			; Input Parameters
000219b1 01                       |        |		.CONST	0x1			; In arg [2]
000219b2 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000219c0 ; --------------------------------------------------------------------------------------
000219c0 ; OMSI PASCAL Function
000219c0 ;    <LVAR  0x008 1(r)>
000219c0 ; --------------------------------------------------------------------------------------
000219c0					PROG_FAIL:
000219c0 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000219c4 bf d5                    |        |		CMPA.L	(A5),A7
000219c6 62 06                    |b       |		BHI	0x219ce
000219c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219cc 4e 76                    |Nv      |		TRAPV
000219ce de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000219d2 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000219d6 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000219da 70 06                    |p       |		MOVEQ.L	#0x06,D0
000219dc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000219de 51 c8 ff fc              |Q       |		DBF	D0,0x219dc
000219e2 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000219e6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000219e8 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000219ec 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000219f0 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000219f4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219fc 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021a00 48 80                    |H       |		EXTB.W	D0
00021a02 48 c0                    |H       |		EXTW.L	D0
00021a04 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021a06 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021a0c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a0e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021a14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a16 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021a1c de fc 00 14              |        |		ADDA.W	#0x14,A7
00021a20 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021a24 4e 5e                    |N^      |		UNLK	A6
00021a26 4e 75                    |Nu      |		RTS