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

⟦5909da1f6⟧ M200

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

Derivation

└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »P2UCODE.M200« 
    └─ ⟦this⟧ »P2UCODE.M200« 

Disassembly

0x20430


@ 20430
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 20430-204be Body>                                              
        <POP 20430-20446 Prologue>                           Σ0         ↓
        <POP 20446-204b6 Naked>                              Σ0         ↓
            <Call 0x20446 0x10538>                                              {}
                IPC_Init(void)
            <MI 2044c  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x20450 0x10502>                                              {[2, '(A6+0xc)']}
                IPC_PutBool(a : Bool)
            <POP 20456-20458 StackAdj>                       Δ+2                {}
            <Call 0x20458 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2045e [10] @>                            Δ-10               {[«10""»]}
            <POP 20470-20472 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20472 9>                                                     {[«10""»]|[$$INITSTATE]}
            <Const 0x20486 0x1.4>                            Δ-4                {[«10""»]|[$$INITSTATE]|[##1]}
            <Const 0x2048a 0x2.2>                            Δ-2                {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
            <Pointer.fp 0x2048e <LVAR -0x002 @>>             Δ-4                {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
            <Call 0x20492 0x103b0>                                              {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20498-2049c StackAdj>                       Δ+24               {}
            <Call 0x2049c 0x10538>                                              {}
                IPC_Init(void)
            <MI 204a2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 204a6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x204a8 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 204ae-204b0 StackAdj>                       Δ+4                {}
            <Call 0x204b0 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 204b6-204be Epilogue>                           Σ0         

0x204be


@ 204be
        <LVAR  0x008 4(r)>
    <POP 204be-204f6 Body>                                              
        <POP 204be-204d4 Prologue>                           Σ0         ↓
        <POP 204d4-204ee Naked>                              Σ0         ↓
            <Call 0x204d4 0x10538>                                              {}
                IPC_Init(void)
            <MI 204da  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 204de  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x204e0 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 204e6-204e8 StackAdj>                       Δ+4                {}
            <Call 0x204e8 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 204ee-204f6 Epilogue>                           Σ0         

0x204f6


@ 204f6
        <LVAR  0x008 1(r)>
    <POP 204f6-20532 Body>                                              
        <POP 204f6-20508 Prologue>                           Σ0         ↓
        <POP 20508-2052e Naked>                              Σ0         ↓
            <Call 0x20508 0x10538>                                              {}
                IPC_Init(void)
            <MI 2050e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20512 0x10502>                                              {[2, '(A6+0x8)']}
                IPC_PutBool(a : Bool)
            <POP 20518-2051a StackAdj>                       Δ+2                {}
            <Call 0x2051a 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20520  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20522 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20526 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2052c-2052e StackAdj>                       Δ+6                {}
        <POP 2052e-20532 Epilogue>                           Σ0         

0x20532


@ 20532
        <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 20532-205fa Body>                                   Δ+10       
        <POP 20532-20548 Prologue>                           Σ0         ↓
        <POP 20548-20550 RegCacheLoad>                       Σ0         ↓
        <POP 20550-20570 Naked>                              Σ0         ↓ →0x2057e
            <Call 0x20550 0x10538>                                              {}
                IPC_Init(void)
            <MI 20556  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x2055a 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 20560-20562 StackAdj>                       Δ+2                {[-2-]}
            <MI 20562  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x20566 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20568-2056a StackAdj>                       Δ+2                {}
            <MI 2056a  TST.B   (A6+0x16)>                                       {}
            <MI 2056e  BNE     0x2057e>                                         {}
        <POP 20570-2057e Naked>                              Σ0         ↓
            <MI 20570  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x20574 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 20576  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x2057a 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 2057c-2057e StackAdj>                       Δ+2                {}
        <POP 2057e-2058a Naked>                              Σ0         ↓ →0x2059c ←0x20550
            <Call 0x2057e 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20584  TST.B   (A6+0x16)>                                       {}
            <MI 20588  BEQ     0x2059c>                                         {}
        <POP 2058a-2059c Naked>                              Σ0 Δ-10    →0x205ac
            <Blob 0x2058a [10] @>                            Δ-10               {[«10""»]}
            <MI 2059a  BRA     0x205ac>                                         {[«10""»]}
        <POP 2059c-205ac Naked>                              Σ0 Δ-10    ↓ ←0x2057e
            <Blob 0x2059c [10] @>                            Δ-10               {[«10""»]}
        <POP 205ac-205f2 Naked>                              Σ-10 Δ+10  ↓ ←0x2058a
            <POP 205ac-205ae StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x205ae>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x205ae 4>                       Δ-4        
                <Const 0x205b2 0x1.2>                        Δ-2        
                <Const 0x205b6 0x9.2>                        Δ-2        
                <Call 0x205ba 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 205c0-205c2 StackAdj>                   Δ+8        
            <Const 0x205c2 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x205c6 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x205ca <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x205ce 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 205d4-205d8 StackAdj>                       Δ+24               {}
            <Call 0x205d8 0x10538>                                              {}
                IPC_Init(void)
            <MI 205de  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 205e2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x205e4 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 205ea-205ec StackAdj>                       Δ+4                {}
            <Call 0x205ec 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 205f2-205fa Epilogue>                           Σ0         

0x205fa


@ 205fa
        <LVAR -0x004 1(rw)>
    <POP 205fa-206da Body>                                              
        <POP 205fa-20610 Prologue>                           Σ0         ↓
        <POP 20610-20618 RegCacheLoad>                       Σ0         ↓
        <POP 20618-20624 Naked>                              Σ0         ↓ →0x2062c
            <POP 20618-2061a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2061a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20620  TST.B   (A7)+>                        Δ+2                {}
            <MI 20622  BEQ     0x2062c>                                         {}
        <POP 20624-2062c Naked>                              Σ0         →0x20632
            <Call 0x20624 0x210f0>                                              {}
                exp_LOAD_HRAM_8_0.FIU()
            <MI 2062a  BRA     0x20632>                                         {}
        <POP 2062c-20632 Naked>                              Σ0         ↓ ←0x20618
            <Call 0x2062c 0x2110e>                                              {}
                exp_LOAD_HRAM_32_0.FIU()
        <POP 20632-20648 Naked>                              Σ0         ↓ ←0x20624
            <Call 0x20632 0x211bc>                                              {}
                exp_LOAD_HRAM_1.FIU()
            <Call 0x20638 0x213bc>                                              {}
                exp_ALIGN_CSA.VAL()
            <Call 0x2063e 0x2131c>                                              {}
                exp_ALIGN_CSA.TYP()
            <MI 20644  CLR.B   (A6-0x4)>                                        {}
            <MI 20646  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20648-20658 Naked>                              Σ0         ↓ →0x20664 ←0x20664
            <POP 20648-2064a StackAdj>                       Δ-2                {[-2-]}
            <MI 2064a  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2064c 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20652-20654 StackAdj>                       Δ+2                {[-2-]}
            <MI 20654  TST.B   (A7)+>                        Δ+2                {}
            <MI 20656  BEQ     0x20664>                                         {}
        <POP 20658-20664 Naked>                              Σ0         ↓
            <MI 20658  CLR.L   D0>                                              {}
            <MI 2065a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2065c  ADDQ.W  #0x1,D0>                                         {}
            <POP 0x2065e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20662  MOVE.B  D0,(A6-0x4)>                                     {}
        <POP 20664-2066a Naked>                              Σ0         ↓ →0x20648 ←0x20648
            <MI 20664  ADDQ.B  #0x1,D7>                                         {}
            <MI 20666  CMP.B   #0x0f,D7>                                        {}
            <MI 20668  BLE     0x20648>                                         {}
        <POP 2066a-2066c Naked>                              Σ0         ↓
            <MI 2066a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2066c-2067c Naked>                              Σ0         ↓ →0x206b6 ←0x206b6
            <POP 2066c-2066e StackAdj>                       Δ-2                {[-2-]}
            <MI 2066e  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20670 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20676-20678 StackAdj>                       Δ+2                {[-2-]}
            <MI 20678  TST.B   (A7)+>                        Δ+2                {}
            <MI 2067a  BEQ     0x206b6>                                         {}
        <POP 2067c-206b6 Naked>                              Σ0         ↓
            <MI 2067c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <POP 2067e-20680 StackAdj>                       Δ-2                {[2, 'D7']|[-2-]}
            <MI 20680  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']|[-2-]|[2, 'D7']}
            <Call 0x20682 0x104c6>                                              {[2, 'D7']|[-2-]|[2, 'D7']}
                EQ_1c218(a : Byte) : Bool
            <POP 20688-2068a StackAdj>                       Δ+2                {[2, 'D7']|[-2-]}
            <MI 2068a  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-2-]}
            <MI 2068c  EXTB.W  D0>                                              {[2, 'D7']|[-2-]}
            <POP 0x2068e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-2-]}
            <MI 20690  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-2-]}
            <POP 20692-20694 StackAdj>                       Δ-2                {[2, 'D7']|[-4-]}
            <Call 0x20694 0x104cc>                                              {[2, 'D7']|[-4-]}
                MemOnly2MB() : Bool
            <MI 2069a  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-4-]}
            <MI 2069c  EXTB.W  D0>                                              {[2, 'D7']|[-4-]}
            <POP 0x2069e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-4-]}
            <MI 206a0  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-4-]}
            <MI 206a2  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <Call 0x206a4 0x21604>                                              {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <POP 206aa-206ac StackAdj>                       Δ+6                {[2, 'D7']}
            <MI 206ac  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Call 0x206ae 0x21804>                                              {[-2-]}
            <POP 206b4-206b6 StackAdj>                       Δ+2                {}
        <POP 206b6-206bc Naked>                              Σ0         ↓ →0x2066c ←0x2066c
            <MI 206b6  ADDQ.B  #0x1,D7>                                         {}
            <MI 206b8  CMP.B   #0x0f,D7>                                        {}
            <MI 206ba  BLE     0x2066c>                                         {}
        <POP 206bc-206d2 Naked>                              Σ0         ↓
            <Call 0x206bc 0x105b0>                                              {}
                FifoInit(void)
            <Const 0x206c2 0xffff.2>                         Δ-2                {[#65535]}
            <Const 0x206c6 0xffff.2>                         Δ-2                {[#65535]|[#65535]}
            <Call 0x206ca 0x21198>                                              {[#65535]|[#65535]}
                exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
            <POP 206d0-206d2 StackAdj>                       Δ+4                {}
        <POP 206d2-206da Epilogue>                           Σ0         

0x206da


@ 206da
        <LVAR  0x008 2(r)>
        <LVAR -0x002 1(rw)>
    <POP 206da-20850 Body>                                              
        <POP 206da-206f0 Prologue>                           Σ0         ↓
        <POP 206f0-20712 RegCacheLoad>                       Σ0         ↓
        <POP 20712-20724 Naked>                              Σ0         ↓ →0x20728
            <Call 0x20712 0x212fa>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <POP 20718-2071a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2071a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20720  TST.B   (A7)+>                        Δ+2                {}
            <MI 20722  BEQ     0x20728>                                         {}
        <POP 20724-20728 Naked>                              Σ0         →0x2072c
            <MI 20724  CLR.B   (A6-0x2)>                                        {}
            <MI 20726  BRA     0x2072c>                                         {}
        <POP 20728-2072c Naked>                              Σ0         ↓ ←0x20712
            <MI 20728  MOVE.B  #0xff,(A6-0x2)>                                  {}
        <POP 2072c-20738 Naked>                              Σ0         ↓ →0x20740 ←0x20724
            <POP 2072c-2072e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2072e 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20730 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20732-20734 StackAdj>                       Δ+2                {[-2-]}
            <MI 20734  TST.B   (A7)+>                        Δ+2                {}
            <MI 20736  BEQ     0x20740>                                         {}
        <POP 20738-20740 Naked>                              Σ0         ↓
            <Const 0x20738 0xc.2>                            Δ-2                {[#12]}
            <MI 2073a  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#12]|[2, '(A6-0x2)']}
            <Call 0x2073c 0x213ee>                                              {[#12]|[2, '(A6-0x2)']}
            <POP 2073e-20740 StackAdj>                       Δ+4                {}
        <POP 20740-2074c Naked>                              Σ0         ↓ →0x20754 ←0x2072c
            <POP 20740-20742 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20742 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20744 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20746-20748 StackAdj>                       Δ+2                {[-2-]}
            <MI 20748  TST.B   (A7)+>                        Δ+2                {}
            <MI 2074a  BEQ     0x20754>                                         {}
        <POP 2074c-20754 Naked>                              Σ0         ↓
            <Const 0x2074c 0xd.2>                            Δ-2                {[#13]}
            <MI 2074e  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#13]|[2, '(A6-0x2)']}
            <Call 0x20750 0x213ee>                                              {[#13]|[2, '(A6-0x2)']}
            <POP 20752-20754 StackAdj>                       Δ+4                {}
        <POP 20754-20760 Naked>                              Σ0         ↓ →0x20768 ←0x20740
            <POP 20754-20756 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20756 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20758 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2075a-2075c StackAdj>                       Δ+2                {[-2-]}
            <MI 2075c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2075e  BEQ     0x20768>                                         {}
        <POP 20760-20768 Naked>                              Σ0         ↓
            <Const 0x20760 0xe.2>                            Δ-2                {[#14]}
            <MI 20762  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#14]|[2, '(A6-0x2)']}
            <Call 0x20764 0x213ee>                                              {[#14]|[2, '(A6-0x2)']}
            <POP 20766-20768 StackAdj>                       Δ+4                {}
        <POP 20768-20774 Naked>                              Σ0         ↓ →0x2077c ←0x20754
            <POP 20768-2076a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2076a 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x2076c 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2076e-20770 StackAdj>                       Δ+2                {[-2-]}
            <MI 20770  TST.B   (A7)+>                        Δ+2                {}
            <MI 20772  BEQ     0x2077c>                                         {}
        <POP 20774-2077c Naked>                              Σ0         ↓
            <Const 0x20774 0xf.2>                            Δ-2                {[#15]}
            <MI 20776  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#15]|[2, '(A6-0x2)']}
            <Call 0x20778 0x213ee>                                              {[#15]|[2, '(A6-0x2)']}
            <POP 2077a-2077c StackAdj>                       Δ+4                {}
        <POP 2077c-2078e Naked>                              Σ0         ↓ →0x20794 ←0x20768
            <Call 0x2077c 0x211d8>                                              {}
                exp_INIT_MRU.FIU()
            <POP 20782-20784 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20784 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20786 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20788-2078a StackAdj>                       Δ+2                {[-2-]}
            <MI 2078a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2078c  BEQ     0x20794>                                         {}
        <POP 2078e-20794 Naked>                              Σ0         ↓
            <Const 0x2078e 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20790 0x21962>                                              {[#12]}
            <POP 20792-20794 StackAdj>                       Δ+2                {}
        <POP 20794-207a0 Naked>                              Σ0         ↓ →0x207a6 ←0x2077c
            <POP 20794-20796 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20796 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20798 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2079a-2079c StackAdj>                       Δ+2                {[-2-]}
            <MI 2079c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2079e  BEQ     0x207a6>                                         {}
        <POP 207a0-207a6 Naked>                              Σ0         ↓
            <Const 0x207a0 0xd.2>                            Δ-2                {[#13]}
            <Call 0x207a2 0x21962>                                              {[#13]}
            <POP 207a4-207a6 StackAdj>                       Δ+2                {}
        <POP 207a6-207b2 Naked>                              Σ0         ↓ →0x207b8 ←0x20794
            <POP 207a6-207a8 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207a8 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x207aa 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207ac-207ae StackAdj>                       Δ+2                {[-2-]}
            <MI 207ae  TST.B   (A7)+>                        Δ+2                {}
            <MI 207b0  BEQ     0x207b8>                                         {}
        <POP 207b2-207b8 Naked>                              Σ0         ↓
            <Const 0x207b2 0xe.2>                            Δ-2                {[#14]}
            <Call 0x207b4 0x21962>                                              {[#14]}
            <POP 207b6-207b8 StackAdj>                       Δ+2                {}
        <POP 207b8-207c4 Naked>                              Σ0         ↓ →0x207ca ←0x207a6
            <POP 207b8-207ba StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207ba 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x207bc 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207be-207c0 StackAdj>                       Δ+2                {[-2-]}
            <MI 207c0  TST.B   (A7)+>                        Δ+2                {}
            <MI 207c2  BEQ     0x207ca>                                         {}
        <POP 207c4-207ca Naked>                              Σ0         ↓
            <Const 0x207c4 0xf.2>                            Δ-2                {[#15]}
            <Call 0x207c6 0x21962>                                              {[#15]}
            <POP 207c8-207ca StackAdj>                       Δ+2                {}
        <POP 207ca-207fc Naked>                              Σ0         ↓ →0x20806 ←0x207b8
            <MI 207ca  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x207cc 0x212c4>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.TYP(Sw_2)
            <MI 207d2  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x207d4 0x21386>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.VAL(Sw_2)
            <MI 207da  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x207dc 0x21a16>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.IOC(Sw_2)
            <MI 207e2  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x207e4 0x21240>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.SEQ(Sw_2)
            <MI 207ea  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x207ec 0x2117e>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.FIU(Sw_2)
            <Const 0x207f2 0xc.2>                            Δ-2                {[2, '(A6+0x8)']|[#12]}
            <Call 0x207f4 0x104c0>                                              {[2, '(A6+0x8)']|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207f6-207f8 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 207f8  TST.B   (A7)+>                        Δ+2                {}
            <MI 207fa  BEQ     0x20806>                                         {}
        <POP 207fc-20806 Naked>                              Σ0         ↓
            <Const 0x207fc 0xc.2>                            Δ-2                {[#12]}
            <Call 0x207fe 0x218b8>                                              {[#12]}
            <POP 20804-20806 StackAdj>                       Δ+2                {}
        <POP 20806-20812 Naked>                              Σ0         ↓ →0x2081c ←0x207ca
            <POP 20806-20808 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20808 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2080a 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2080c-2080e StackAdj>                       Δ+2                {[-2-]}
            <MI 2080e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20810  BEQ     0x2081c>                                         {}
        <POP 20812-2081c Naked>                              Σ0         ↓
            <Const 0x20812 0xd.2>                            Δ-2                {[#13]}
            <Call 0x20814 0x218b8>                                              {[#13]}
            <POP 2081a-2081c StackAdj>                       Δ+2                {}
        <POP 2081c-20828 Naked>                              Σ0         ↓ →0x20832 ←0x20806
            <POP 2081c-2081e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2081e 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20820 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20822-20824 StackAdj>                       Δ+2                {[-2-]}
            <MI 20824  TST.B   (A7)+>                        Δ+2                {}
            <MI 20826  BEQ     0x20832>                                         {}
        <POP 20828-20832 Naked>                              Σ0         ↓
            <Const 0x20828 0xe.2>                            Δ-2                {[#14]}
            <Call 0x2082a 0x218b8>                                              {[#14]}
            <POP 20830-20832 StackAdj>                       Δ+2                {}
        <POP 20832-2083e Naked>                              Σ0         ↓ →0x20848 ←0x2081c
            <POP 20832-20834 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20834 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20836 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20838-2083a StackAdj>                       Δ+2                {[-2-]}
            <MI 2083a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2083c  BEQ     0x20848>                                         {}
        <POP 2083e-20848 Naked>                              Σ0         ↓
            <Const 0x2083e 0xf.2>                            Δ-2                {[#15]}
            <Call 0x20840 0x218b8>                                              {[#15]}
            <POP 20846-20848 StackAdj>                       Δ+2                {}
        <POP 20848-20850 Epilogue>                           Σ0         ←0x20832

0x20850


@ 20850
    <POP 20850-208ee Body>                                              
        <POP 20850-20866 Prologue>                           Σ0         ↓
        <POP 20866-2087a RegCacheLoad>                       Σ0         ↓
        <POP 2087a-208a4 Naked>                              Σ0         ↓ →0x208aa
            <Call 0x2087a 0x211f2>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x20880 0x21292>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x20886 0x21354>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x2088c 0x21226>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x20892 0x219fc>                                              {}
                exp_RUN_CHECK.IOC()
            <POP 20898-2089a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2089a 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x2089c 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2089e-208a0 StackAdj>                       Δ+2                {[-2-]}
            <MI 208a0  TST.B   (A7)+>                        Δ+2                {}
            <MI 208a2  BEQ     0x208aa>                                         {}
        <POP 208a4-208aa Naked>                              Σ0         ↓
            <Const 0x208a4 0xc.2>                            Δ-2                {[#12]}
            <Call 0x208a6 0x21556>                                              {[#12]}
            <POP 208a8-208aa StackAdj>                       Δ+2                {}
        <POP 208aa-208b6 Naked>                              Σ0         ↓ →0x208bc ←0x2087a
            <POP 208aa-208ac StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208ac 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x208ae 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208b0-208b2 StackAdj>                       Δ+2                {[-2-]}
            <MI 208b2  TST.B   (A7)+>                        Δ+2                {}
            <MI 208b4  BEQ     0x208bc>                                         {}
        <POP 208b6-208bc Naked>                              Σ0         ↓
            <Const 0x208b6 0xd.2>                            Δ-2                {[#13]}
            <Call 0x208b8 0x21556>                                              {[#13]}
            <POP 208ba-208bc StackAdj>                       Δ+2                {}
        <POP 208bc-208c8 Naked>                              Σ0         ↓ →0x208ce ←0x208aa
            <POP 208bc-208be StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208be 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x208c0 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208c2-208c4 StackAdj>                       Δ+2                {[-2-]}
            <MI 208c4  TST.B   (A7)+>                        Δ+2                {}
            <MI 208c6  BEQ     0x208ce>                                         {}
        <POP 208c8-208ce Naked>                              Σ0         ↓
            <Const 0x208c8 0xe.2>                            Δ-2                {[#14]}
            <Call 0x208ca 0x21556>                                              {[#14]}
            <POP 208cc-208ce StackAdj>                       Δ+2                {}
        <POP 208ce-208da Naked>                              Σ0         ↓ →0x208e0 ←0x208bc
            <POP 208ce-208d0 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208d0 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x208d2 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208d4-208d6 StackAdj>                       Δ+2                {[-2-]}
            <MI 208d6  TST.B   (A7)+>                        Δ+2                {}
            <MI 208d8  BEQ     0x208e0>                                         {}
        <POP 208da-208e0 Naked>                              Σ0         ↓
            <Const 0x208da 0xf.2>                            Δ-2                {[#15]}
            <Call 0x208dc 0x21556>                                              {[#15]}
            <POP 208de-208e0 StackAdj>                       Δ+2                {}
        <POP 208e0-208e6 Naked>                              Σ0         ↓ ←0x208ce
            <Call 0x208e0 0x2114c>                                              {}
                exp_RUN_NORMAL.FIU()
        <POP 208e6-208ee Epilogue>                           Σ0         

0x208ee


@ 208ee
        <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 208ee-20a1e Body>                                              
        <POP 208ee-20904 Prologue>                           Σ0         ↓
        <POP 20904-2091e RegCacheLoad>                       Σ0         ↓
        <POP 2091e-20948 Naked>                              Σ0         ↓ →0x2094e
            <Call 0x2091e 0x211f2>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x20924 0x219e6>                                              {}
                exp_RESET.IOC()
            <Call 0x2092a 0x21370>                                              {}
                exp_RESET.VAL()
            <Call 0x20930 0x212ae>                                              {}
                exp_RESET.TYP()
            <Call 0x20936 0x21210>                                              {}
                exp_RESET.SEQ()
            <POP 2093c-2093e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2093e 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20940 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20942-20944 StackAdj>                       Δ+2                {[-2-]}
            <MI 20944  TST.B   (A7)+>                        Δ+2                {}
            <MI 20946  BEQ     0x2094e>                                         {}
        <POP 20948-2094e Naked>                              Σ0         ↓
            <Const 0x20948 0xc.2>                            Δ-2                {[#12]}
            <Call 0x2094a 0x214ac>                                              {[#12]}
            <POP 2094c-2094e StackAdj>                       Δ+2                {}
        <POP 2094e-2095a Naked>                              Σ0         ↓ →0x20960 ←0x2091e
            <POP 2094e-20950 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20950 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20952 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20954-20956 StackAdj>                       Δ+2                {[-2-]}
            <MI 20956  TST.B   (A7)+>                        Δ+2                {}
            <MI 20958  BEQ     0x20960>                                         {}
        <POP 2095a-20960 Naked>                              Σ0         ↓
            <Const 0x2095a 0xd.2>                            Δ-2                {[#13]}
            <Call 0x2095c 0x214ac>                                              {[#13]}
            <POP 2095e-20960 StackAdj>                       Δ+2                {}
        <POP 20960-2096c Naked>                              Σ0         ↓ →0x20972 ←0x2094e
            <POP 20960-20962 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20962 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20964 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20966-20968 StackAdj>                       Δ+2                {[-2-]}
            <MI 20968  TST.B   (A7)+>                        Δ+2                {}
            <MI 2096a  BEQ     0x20972>                                         {}
        <POP 2096c-20972 Naked>                              Σ0         ↓
            <Const 0x2096c 0xe.2>                            Δ-2                {[#14]}
            <Call 0x2096e 0x214ac>                                              {[#14]}
            <POP 20970-20972 StackAdj>                       Δ+2                {}
        <POP 20972-2097e Naked>                              Σ0         ↓ →0x20984 ←0x20960
            <POP 20972-20974 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20974 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20976 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20978-2097a StackAdj>                       Δ+2                {[-2-]}
            <MI 2097a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2097c  BEQ     0x20984>                                         {}
        <POP 2097e-20984 Naked>                              Σ0         ↓
            <Const 0x2097e 0xf.2>                            Δ-2                {[#15]}
            <Call 0x20980 0x214ac>                                              {[#15]}
            <POP 20982-20984 StackAdj>                       Δ+2                {}
        <POP 20984-209ae Naked>                              Σ0         ↓ ←0x20972
            <Call 0x20984 0x21168>                                              {}
                exp_RESET.FIU()
            <MI 2098a  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 2098e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20990 0x2125a>                                              {[4, '^(A0)']}
                exp_HALT.SEQ(&Fr)
            <POP 20996-20998 StackAdj>                       Δ+4                {}
            <MI 20998  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2099c  CLR.B   (A0)>                                            {}
            <MI 2099e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 209a2  CLR.B   (A0)>                                            {}
            <MI 209a4  CLR.B   (A0+0xb)>                                        {}
            <MI 209a8  CLR.B   (A0+0x1)>                                        {}
            <MI 209ac  MOVEQ.L #0x02,D7>                                        {}
        <POP 209ae-209b4 Naked>                              Σ0         ↓ →0x209d4 ←0x20a0c
            <MI 209ae  CMPI.B  #0x05,D7>                                        {}
            <MI 209b2  BEQ     0x209d4>                                         {}
        <POP 209b4-209d4 Naked>                              Σ0         →0x209ee
            <MI 209b4  MOVE.B  D7,D0>                                           {}
            <MI 209b6  EXTB.W  D0>                                              {}
            <MI 209b8  LEA.L   0x20410,A0>                                      {}
            <MI 209bc  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Pointer.fp 0x209c0 <LVAR -0x006 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]}
            <Pointer.fp 0x209c4 <LVAR -0x005 @ 1(rw)>>       Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]}
            <Pointer.fp 0x209c6 <LVAR -0x004 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
            <Call 0x209ca 0x10484>                                              {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 209d0-209d2 StackAdj>                       Δ+14               {}
            <MI 209d2  BRA     0x209ee>                                         {}
        <POP 209d4-209ec Naked>                              Σ0         ↓ →0x209ee ←0x209ae
            <Pointer.fp 0x209d4 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Call 0x209d8 0x21270>                                              {[@@-7]}
                exp_GET_MISC_ERRORS.SEQ(&Sr_1)
            <POP 209de-209e0 StackAdj>                       Δ+4                {}
            <MI 209e0  CLR.L   D0>                                              {}
            <MI 209e2  MOVE.B  (A6-0x7),D0>                                     {}
            <MI 209e6  CMPI.W  #0x001f,D0>                                      {}
            <MI 209ea  BEQ     0x209ee>                                         {}
        <POP 209ec-209ee Naked>                              Σ0         ↓
            <MI 209ec  MOVE.B  #0x01,(A6-0x5)>                                  {}
        <POP 209ee-20a06 Naked>                              Σ0 Δ-2     ↓ →0x20a0c ←0x209b4 ←0x209d4
            <MI 209ee  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 209f2  MOVE.B  D7,D0>                                           {}
            <MI 209f4  EXTB.W  D0>                                              {}
            <MI 209f6  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 209f8  MOVE.B  (A6-0x5),D1>                                     {[2, 'D0']}
            <MI 209fa  EXTB.W  D1>                                              {[2, 'D0']}
            <POP 0x209fc LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[2, 'D0']}
            <MI 209fe  MOVE.B  D1,(A0+D0.W)>                                    {[2, 'D0']}
            <MI 20a02  TST.W   D1>                                              {[2, 'D0']}
            <MI 20a04  BEQ     0x20a0c>                                         {[2, 'D0']}
        <POP 20a06-20a0c Naked>                              Σ-2        ↓
            <MI 20a06  MOVEA.L (A6+0xc),A0>                                     {[-2-]}
            <MI 20a0a  MOVE.B  #0x01,(A0)>                                      {[-2-]}
        <POP 20a0c-20a16 Naked>                              Σ-2 Δ+2    ↓ →0x209ae ←0x209ee
            <MI 20a0c  MOVE.W  (A7)+,D7>                     Δ+2                {}
            <MI 20a0e  ADDQ.W  #0x1,D7>                                         {}
            <MI 20a10  CMPI.W  #0x000a,D7>                                      {}
            <MI 20a14  BLE     0x209ae>                                         {}
        <POP 20a16-20a1e Epilogue>                           Σ0         

0x20a1e


@ 20a1e
        <LVAR  0x008 2(r)>
    <POP 20a1e-20ace Body>                                              
        <POP 20a1e-20a34 Prologue>                           Σ0         ↓
        <POP 20a34-20a3e RegCacheLoad>                       Σ0         ↓
        <POP 20a3e-20ac6 Naked>                              Σ0         ↓
            <Const 0x20a3e 0x21c4a.4>                        Δ-4                {[##138314]}
            <Call 0x20a40 0x102bc>                                              {[##138314]}
                FreeString(VAR a : String)
            <POP 20a46-20a48 StackAdj>                       Δ+4                {}
            <MI 20a48  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x20a4c LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {}
            <MI 20a50  MULS.W  #0x0a,D0>                                        {}
            <MI 20a52  LEA.L   0x202c8,A0>                                      {}
            <Blob 0x20a56 [10] (A0+D0.W+#0xa)>               Δ-10               {[«10»]}
            <POP 20a62-20a64 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x20a64>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x20a64 4>                       Δ-4        
                <Const 0x20a68 0x1.2>                        Δ-2        
                <Const 0x20a6a 0xa.2>                        Δ-2        
                <Call 0x20a6c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20a72-20a74 StackAdj>                   Δ+8        
            <MI 20a74  MOVE.L  (A7)+,0x21c4a>                Δ+4                {[«10»]}
            <POP 20a76-20a78 StackAdj>                       Δ+2                {[-8-]}
            <POP 20a78-20a79 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20a79 [4] 0x21c4a>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x20a7a 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 20a80-20a82 StackAdj>                       Δ+4                {[-4-]}
            <MI 20a82  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 20a84  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <MI 20a86  MOVE.B  0x21c44,D0>                                      {[4, 'A4']}
            <MI 20a8c  EXTB.W  D0>                                              {[4, 'A4']}
            <POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']}
            <MI 20a90  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']}
            <MI 20a92  MOVE.B  0x21c45,D0>                                      {[4, 'A4']|[2, 'D0']}
            <MI 20a98  EXTB.W  D0>                                              {[4, 'A4']|[2, 'D0']}
            <POP 0x20a9a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']|[2, 'D0']}
            <MI 20a9c  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']|[2, 'D0']}
            <Const 0x20a9e 0x21c46.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]}
            <Const 0x20aa4 0x21c4e.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]}
            <Const 0x20aaa 0x21c52.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]}
            <Const 0x20ab0 0x21c56.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]}
            <Const 0x20ab6 0x21c57.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]|[##138327]}
            <Call 0x20abc 0x1053e>                                              {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]|[##138327]}
                FSCALL_1053e
            <POP 20ac2-20ac6 StackAdj>                       Δ+28               {}
        <POP 20ac6-20ace Epilogue>                           Σ0         

0x20ace


@ 20ace
        <LVAR  0x008 1(r)>
    <POP 20ace-20b32 Body>                                              
        <POP 20ace-20ae4 Prologue>                           Σ0         ↓
        <POP 20ae4-20af0 RegCacheLoad>                       Σ0         ↓
        <POP 20af0-20afe Naked>                              Σ0         ↓ →0x20b02
            <MI 20af0  MOVE.B  (A6+0x8),0x21c56>                                {}
            <MI 20af4  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20af8  CMPI.B  #0x03,D0>                                        {}
            <MI 20afc  BEQ     0x20b02>                                         {}
        <POP 20afe-20b02 Naked>                              Σ0         ↓
            <MI 20afe  MOVE.B  #0x29,0x21c57>                                   {}
        <POP 20b02-20b2a Naked>                              Σ0         ↓ ←0x20af0
            <MI 20b02  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Blob 0x20b04 [4] 0x21c4e>                       Δ-4                {[#0]|[«4»]}
            <Blob 0x20b0a [4] 0x21c52>                       Δ-4                {[#0]|[«4»]|[«4»]}
            <Blob 0x20b10 [2] 0x21c56>                       Δ-2                {[#0]|[«4»]|[«4»]|[«2»]}
            <Blob 0x20b12 [8] 0x21c57>                       Δ-8                {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x20b20 0x1054a>                                              {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20b26-20b2a StackAdj>                       Δ+20               {}
        <POP 20b2a-20b32 Epilogue>                           Σ0         

0x20b32


@ 20b32
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(rw)>
    <POP 20b32-20b76 Body>                                              
        <POP 20b32-20b48 Prologue>                           Σ0         ↓
        <POP 20b48-20b4c RegCacheLoad>                       Σ0         ↓
        <POP 20b4c-20b6a Naked>                              Σ0         ↓ →0x20b6e
            <MI 20b4c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20b4e <LVAR -0x004 @ 1(rw)>>       Δ-4                {[#0]|[@@-4]}
            <Call 0x20b50 0x2112e>                                              {[#0]|[@@-4]}
                exp_READ_PAREG.FIU(Sw_1, &Sr_1)
            <POP 20b56-20b58 StackAdj>                       Δ+6                {}
            <MI 20b58  CLR.L   D0>                                              {}
            <MI 20b5a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 20b5c  ANDI.W  #0x0008,D0>                                      {}
            <MI 20b60  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 20b62  CLR.B   (A6+0x8)>                                        {}
            <MI 20b66  TST.B   D0>                                              {}
            <MI 20b68  BNE     0x20b6e>                                         {}
        <POP 20b6a-20b6e Naked>                              Σ0         ↓
            <MI 20b6a  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 20b6e-20b76 Epilogue>                           Σ0         ←0x20b4c

0x20b76


@ 20b76
        <LVAR  0x008 1(r)>
        <LVAR -0x00b @>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x014 @ 4(r)>
        <LVAR -0x019 1(r)>
        <LVAR -0x020 @>
        <LVAR -0x02c @>
        <LVAR -0x02d @ 1(r)>
        <LVAR -0x02e @ 1(r)>
    <POP 20b76-20cde Body>                                   Δ+6        
        <POP 20b76-20b8c Prologue>                           Σ0         ↓
        <POP 20b8c-20b9c RegCacheLoad>                       Σ0         ↓
        <POP 20b9c-20bb8 Naked>                              Σ0         ↓ →0x20c8c
            <Pointer.fp 0x20b9c <LVAR -0x02e @ 1(r)>>        Δ-4                {[@@-46]}
            <Pointer.fp 0x20ba0 <LVAR -0x02d @ 1(r)>>        Δ-4                {[@@-46]|[@@-45]}
            <Pointer.fp 0x20ba4 <LVAR -0x02c @>>             Δ-4                {[@@-46]|[@@-45]|[@@-44]}
            <Call 0x20ba8 0x208ee>                                              {[@@-46]|[@@-45]|[@@-44]}
            <POP 20bac-20bb0 StackAdj>                       Δ+12               {}
            <MI 20bb0  TST.B   (A6-0x2d)>                                       {}
            <MI 20bb4  BEQ     0x20c8c>                                         {}
        <POP 20bb8-20bc2 Naked>                              Σ0         ↓ →0x20be4
            <POP 20bb8-20bba StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20bba 0x20b32>                                              {[-2-]}
            <MI 20bbe  TST.B   (A7)+>                        Δ+2                {}
            <MI 20bc0  BEQ     0x20be4>                                         {}
        <POP 20bc2-20bde Naked>                              Σ0         ↓ →0x20be4
            <Const 0x20bc2 0xffcf.2>                         Δ-2                {[#65487]}
            <MI 20bc6  CLR.B   -(A7)>                        Δ-2                {[#65487]|[#0]}
            <Pointer.fp 0x20bc8 <LVAR -0x020 @>>             Δ-4                {[#65487]|[#0]|[@@-32]}
            <Call 0x20bcc 0x21336>                                              {[#65487]|[#0]|[@@-32]}
                exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
            <POP 20bd2-20bd4 StackAdj>                       Δ+8                {}
            <MI 20bd4  CLR.L   D0>                                              {}
            <MI 20bd6  MOVE.B  (A6-0x19),D0>                                    {}
            <MI 20bda  CMP.W   #0x18,D0>                                        {}
            <MI 20bdc  BNE     0x20be4>                                         {}
        <POP 20bde-20be4 Naked>                              Σ0 Δ-2     →0x20cd0
            <Const 0x20bde 0x18.2>                           Δ-2                {[#24]}
            <MI 20be0  BRA     0x20cd0>                                         {[#24]}
        <POP 20be4-20c58 Naked>                              Σ0         ↓ →0x20c82 ←0x20bb8 ←0x20bc2
            <Const 0x20be4 0x21c4a.4>                        Δ-4                {[##138314]}
            <Call 0x20be6 0x102bc>                                              {[##138314]}
                FreeString(VAR a : String)
            <POP 20bec-20bee StackAdj>                       Δ+2                {[-2-]}
            <POP 20bee-20bef StackAdj>                       Δ+2                {}
            <Blob 0x20bef [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x20bf2 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x20bf6 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 20bfa-20bfc StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x20bfc 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <MI 20c0e  MOVE.L  (A7)+,0x21c4a>                Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 20c10-20c12 StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <Blob 0x20c12 [4] 0x21c4a>                       Δ-4                {[«2""»]|[«2""»]|[«4»]}
            <Call 0x20c14 0x102cc>                                              {[«2""»]|[«2""»]|[«4»]}
                StringDup(a : String) : String
            <POP 20c1a-20c1c StackAdj>                       Δ+4                {[«2""»]|[«2""»]}
            <MI 20c1c  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 20c1e  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <MI 20c20  MOVE.B  0x21c44,D0>                                      {[4, 'A4']}
            <MI 20c26  EXTB.W  D0>                                              {[4, 'A4']}
            <POP 0x20c28 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']}
            <MI 20c2a  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']}
            <MI 20c2c  MOVE.B  0x21c45,D0>                                      {[4, 'A4']|[2, 'D0']}
            <MI 20c32  EXTB.W  D0>                                              {[4, 'A4']|[2, 'D0']}
            <POP 0x20c34 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, 'A4']|[2, 'D0']}
            <MI 20c36  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'A4']|[2, 'D0']|[2, 'D0']}
            <Const 0x20c38 0x21c46.4>                        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]}
            <Pointer.fp 0x20c3a <LVAR -0x014 @ 4(r)>>        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]}
            <Pointer.fp 0x20c3e <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]}
            <Pointer.fp 0x20c42 <LVAR -0x00c @ 1(r)>>        Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]}
            <Pointer.fp 0x20c46 <LVAR -0x00b @>>             Δ-4                {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]|[@@-11]}
            <Call 0x20c4a 0x1053e>                                              {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]|[@@-11]}
                FSCALL_1053e
            <POP 20c50-20c54 StackAdj>                       Δ+28               {}
            <MI 20c54  TST.B   0x21c46>                                         {}
            <MI 20c56  BEQ     0x20c82>                                         {}
        <POP 20c58-20c82 Naked>                              Σ0         →0x20c8a
            <MI 20c58  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20c5a  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[#0]|[4, '(A6-0x14)']}
            <MI 20c5e  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']}
            <MI 20c62  MOVE.B  (A6-0xc),-(A7)>               Δ-2                {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']}
            <Blob 0x20c66 [8] (A6-0xb)>                      Δ-8                {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']|[«8»]}
            <Call 0x20c76 0x1054a>                                              {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20c7c-20c80 StackAdj>                       Δ+20               {}
            <MI 20c80  BRA     0x20c8a>                                         {}
        <POP 20c82-20c84 Naked>                              Σ0 Δ-2     ↓ ←0x20be4 ←0x20ccc
            <Const 0x20c82 0x1.2>                            Δ-2                {[#1]}
        <POP 20c84-20c8a Naked>                              Σ-2 Δ+2    ↓ ←0x20c92 ←0x20c9e
            <Call 0x20c84 0x20ace>                                              {[-2-]}
            <POP 20c88-20c8a StackAdj>                       Δ+2                {}
        <POP 20c8a-20c8c Naked>                              Σ0         →0x20cd6 ←0x20c58
            <MI 20c8a  BRA     0x20cd6>                                         {}
        <POP 20c8c-20c92 Naked>                              Σ0         ↓ →0x20c98 ←0x20b9c
            <MI 20c8c  TST.B   (A6+0x8)>                                        {}
            <MI 20c90  BEQ     0x20c98>                                         {}
        <POP 20c92-20c98 Naked>                              Σ0 Δ-2     →0x20c84
            <Const 0x20c92 0x2.2>                            Δ-2                {[#2]}
            <MI 20c96  BRA     0x20c84>                                         {[#2]}
        <POP 20c98-20c9e Naked>                              Σ0         ↓ →0x20ca4 ←0x20c8c
            <MI 20c98  TST.B   (A6-0x2e)>                                       {}
            <MI 20c9c  BNE     0x20ca4>                                         {}
        <POP 20c9e-20ca4 Naked>                              Σ0 Δ-2     →0x20c84
            <Const 0x20c9e 0x3.2>                            Δ-2                {[#3]}
            <MI 20ca2  BRA     0x20c84>                                         {[#3]}
        <POP 20ca4-20cc2 Naked>                              Σ0         ↓ →0x20cd6 ←0x20c98
            <Const 0x20ca4 0xffcf.2>                         Δ-2                {[#65487]}
            <MI 20ca8  CLR.B   -(A7)>                        Δ-2                {[#65487]|[#0]}
            <Pointer.fp 0x20caa <LVAR -0x020 @>>             Δ-4                {[#65487]|[#0]|[@@-32]}
            <Call 0x20cae 0x21336>                                              {[#65487]|[#0]|[@@-32]}
                exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
            <POP 20cb4-20cb6 StackAdj>                       Δ+8                {}
            <MI 20cb6  CLR.L   D0>                                              {}
            <MI 20cb8  MOVE.B  (A6-0x19),D0>                                    {}
            <MI 20cbc  CMPI.W  #0x00ff,D0>                                      {}
            <MI 20cc0  BEQ     0x20cd6>                                         {}
        <POP 20cc2-20cc6 Naked>                              Σ0         ↓ →0x20ccc
            <MI 20cc2  TST.W   D0>                                              {}
            <MI 20cc4  BLT     0x20ccc>                                         {}
        <POP 20cc6-20ccc Naked>                              Σ0         ↓ →0x20cce
            <MI 20cc6  CMPI.W  #0x001f,D0>                                      {}
            <MI 20cca  BLE     0x20cce>                                         {}
        <POP 20ccc-20cce Naked>                              Σ0         →0x20c82 ←0x20cc2
            <MI 20ccc  BRA     0x20c82>                                         {}
        <POP 20cce-20cd0 Naked>                              Σ0 Δ-2     ↓ ←0x20cc6
            <MI 20cce  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
        <POP 20cd0-20cd6 Naked>                              Σ-2 Δ+2    ↓ ←0x20bde
            <Call 0x20cd0 0x20a1e>                                              {[-2-]}
            <POP 20cd4-20cd6 StackAdj>                       Δ+2                {}
        <POP 20cd6-20cde Epilogue>                           Σ0         ←0x20c8a ←0x20ca4

0x20cde


@ 20cde
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b @ 1(r)>
        <LVAR -0x00c @>
    <POP 20cde-20dea Body>                                              
        <POP 20cde-20cf4 Prologue>                           Σ0         ↓
        <POP 20cf4-20d0a RegCacheLoad>                       Σ0         ↓
        <POP 20d0a-20d18 Naked>                              Σ0         ↓
            <MI 20d0a  MOVE.L  #0x258,D5>                                       {}
            <MI 20d10  MOVEQ.L #0x00,D7>                                        {}
            <MI 20d12  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20d16  CLR.B   (A0)>                                            {}
        <POP 20d18-20da0 Naked>                              Σ0         ↓ ←0x20dd2
            <Const 0x20d18 0x9896.4>                         Δ-4                {[##39062]}
            <Call 0x20d1e 0x10224>                                              {[##39062]}
                KC12_Sleep(dur: Long)
            <POP 20d24-20d26 StackAdj>                       Δ+2                {[-2-]}
            <POP 20d26-20d27 StackAdj>                       Δ+2                {}
            <Const 0x20d27 0x4.2>                            Δ-2                {[#4]}
            <Pointer.fp 0x20d2a <LVAR -0x00c @>>             Δ-4                {[#4]|[@@-12]}
            <Pointer.fp 0x20d2c <LVAR -0x00b @ 1(r)>>        Δ-4                {[#4]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20d2e <LVAR -0x00a @>>             Δ-4                {[#4]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20d30 0x10484>                                              {[#4]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20d32-20d34 StackAdj>                       Δ+14               {}
            <MI 20d34  MOVE.B  D7,D0>                                           {}
            <MI 20d36  OR.B    (A6-0xb),D0>                                     {}
            <MI 20d38  EXTB.W  D0>                                              {}
            <POP 0x20d3a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d3c  MOVE.B  D0,D7>                                           {}
            <Const 0x20d3e 0x7.2>                            Δ-2                {[#7]}
            <Pointer.fp 0x20d42 <LVAR -0x00c @>>             Δ-4                {[#7]|[@@-12]}
            <Pointer.fp 0x20d44 <LVAR -0x00b @ 1(r)>>        Δ-4                {[#7]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20d46 <LVAR -0x00a @>>             Δ-4                {[#7]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20d48 0x10484>                                              {[#7]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20d4a-20d4c StackAdj>                       Δ+14               {}
            <MI 20d4c  MOVE.B  D7,D0>                                           {}
            <MI 20d4e  OR.B    (A6-0xb),D0>                                     {}
            <MI 20d50  EXTB.W  D0>                                              {}
            <POP 0x20d52 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d54  MOVE.B  D0,D7>                                           {}
            <Const 0x20d56 0x6.2>                            Δ-2                {[#6]}
            <Pointer.fp 0x20d5a <LVAR -0x00c @>>             Δ-4                {[#6]|[@@-12]}
            <Pointer.fp 0x20d5c <LVAR -0x00b @ 1(r)>>        Δ-4                {[#6]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20d5e <LVAR -0x00a @>>             Δ-4                {[#6]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20d60 0x10484>                                              {[#6]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20d62-20d64 StackAdj>                       Δ+14               {}
            <MI 20d64  MOVE.B  D7,D0>                                           {}
            <MI 20d66  OR.B    (A6-0xb),D0>                                     {}
            <MI 20d68  EXTB.W  D0>                                              {}
            <POP 0x20d6a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d6c  MOVE.B  D0,D7>                                           {}
            <Const 0x20d6e 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x20d72 <LVAR -0x00c @>>             Δ-4                {[#2]|[@@-12]}
            <Pointer.fp 0x20d74 <LVAR -0x00b @ 1(r)>>        Δ-4                {[#2]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20d76 <LVAR -0x00a @>>             Δ-4                {[#2]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20d78 0x10484>                                              {[#2]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20d7a-20d7c StackAdj>                       Δ+14               {}
            <MI 20d7c  MOVE.B  D7,D0>                                           {}
            <MI 20d7e  OR.B    (A6-0xb),D0>                                     {}
            <MI 20d80  EXTB.W  D0>                                              {}
            <POP 0x20d82 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d84  MOVE.B  D0,D7>                                           {}
            <Const 0x20d86 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x20d8a <LVAR -0x00c @>>             Δ-4                {[#3]|[@@-12]}
            <Pointer.fp 0x20d8c <LVAR -0x00b @ 1(r)>>        Δ-4                {[#3]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20d8e <LVAR -0x00a @>>             Δ-4                {[#3]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20d90 0x10484>                                              {[#3]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20d92-20d94 StackAdj>                       Δ+14               {}
            <MI 20d94  MOVE.B  D7,D0>                                           {}
            <MI 20d96  OR.B    (A6-0xb),D0>                                     {}
            <MI 20d98  EXTB.W  D0>                                              {}
            <POP 0x20d9a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d9c  MOVE.B  D0,D7>                                           {}
            <MI 20d9e  MOVEQ.L #0x0c,D6>                                        {}
        <POP 20da0-20db0 Naked>                              Σ0         ↓ →0x20dc6 ←0x20dc6
            <POP 20da0-20da2 StackAdj>                       Δ-2                {[-2-]}
            <MI 20da2  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x20da4 0x104c0>                                              {[-2-]|[2, 'D6']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20daa-20dac StackAdj>                       Δ+2                {[-2-]}
            <MI 20dac  TST.B   (A7)+>                        Δ+2                {}
            <MI 20dae  BEQ     0x20dc6>                                         {}
        <POP 20db0-20dc6 Naked>                              Σ0         ↓
            <MI 20db0  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x20db2 <LVAR -0x00c @>>             Δ-4                {[2, 'D6']|[@@-12]}
            <Pointer.fp 0x20db4 <LVAR -0x00b @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-12]|[@@-11]}
            <Pointer.fp 0x20db6 <LVAR -0x00a @>>             Δ-4                {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20db8 0x10484>                                              {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20dba-20dbc StackAdj>                       Δ+14               {}
            <MI 20dbc  MOVE.B  D7,D0>                                           {}
            <MI 20dbe  OR.B    (A6-0xb),D0>                                     {}
            <MI 20dc0  EXTB.W  D0>                                              {}
            <POP 0x20dc2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20dc4  MOVE.B  D0,D7>                                           {}
        <POP 20dc6-20dce Naked>                              Σ0         ↓ →0x20da0 ←0x20da0
            <MI 20dc6  ADDQ.B  #0x1,D6>                                         {}
            <MI 20dc8  CMPI.B  #0x0f,D6>                                        {}
            <MI 20dcc  BLE     0x20da0>                                         {}
        <POP 20dce-20dd2 Naked>                              Σ0         ↓ →0x20dd8
            <MI 20dce  SUBQ.L  #0x1,D5>                                         {}
            <MI 20dd0  BEQ     0x20dd8>                                         {}
        <POP 20dd2-20dd8 Naked>                              Σ0         ↓ →0x20d18
            <MI 20dd2  TST.B   D7>                                              {}
            <MI 20dd4  BEQ     0x20d18>                                         {}
        <POP 20dd8-20de2 Naked>                              Σ0         ↓ ←0x20dce
            <MI 20dd8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20ddc  MOVE.B  D7,(A0)>                                         {}
            <MI 20dde  NEG.B   (A0)>                                            {}
            <MI 20de0  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 20de2-20dea Epilogue>                           Σ0         

0x20dea


@ 20dea
        <LVAR -0x004 @>
    <POP 20dea-20e3e Body>                                              
        <POP 20dea-20e00 Prologue>                           Σ0         ↓
        <POP 20e00-20e02 RegCacheLoad>                       Σ0         ↓
        <POP 20e02-20e36 Naked>                              Σ0         ↓
            <Blob 0x20e02 [18] @>                            Δ-18               {[«18""»]}
            <MI 20e0e  CLR.B   -(A7)>                        Δ-2                {[«18""»]|[#0]}
            <POP 20e10-20e12 StackAdj>                       Δ-4                {[«18""»]|[#0]|[-4-]}
            <Lit 0x20e12 18>                                                    {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]}
            <POP 20e22-20e24 StackAdj>                       Δ-2                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[-2-]}
            <POP 20e24-20e25 StackAdj>                       Δ+2                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]}
            <Const 0x20e25 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]}
            <Const 0x20e26 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]}
            <Const 0x20e28 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]}
            <Pointer.fp 0x20e2a <LVAR -0x004 @>>             Δ-4                {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
            <Call 0x20e2e 0x20532>                                              {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
            <POP 20e32-20e36 StackAdj>                       Δ+34               {}
        <POP 20e36-20e3e Epilogue>                           Σ0         

0x20e3e


@ 20e3e
    <POP 20e3e-20ef8 Body>                                              
        <POP 20e3e-20e54 Prologue>                           Σ0         ↓
        <POP 20e54-20e70 RegCacheLoad>                       Σ0         ↓
        <POP 20e70-20e7c Naked>                              Σ0         ↓ →0x20e90
            <POP 20e70-20e72 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20e72 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20e74 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20e76-20e78 StackAdj>                       Δ+2                {[-2-]}
            <MI 20e78  TST.B   (A7)+>                        Δ+2                {}
            <MI 20e7a  BEQ     0x20e90>                                         {}
        <POP 20e7c-20e90 Naked>                              Σ0         ↓
            <Const 0x20e7c 0xc.2>                            Δ-2                {[#12]}
            <Blob 0x20e7e [20] @>                            Δ-20               {[#12]|[«20""»]}
            <Call 0x20e8c 0x216e8>                                              {[#12]|[«20""»]}
            <POP 20e8e-20e90 StackAdj>                       Δ+22               {}
        <POP 20e90-20e9c Naked>                              Σ0         ↓ →0x20eb0 ←0x20e70
            <POP 20e90-20e92 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20e92 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20e94 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20e96-20e98 StackAdj>                       Δ+2                {[-2-]}
            <MI 20e98  TST.B   (A7)+>                        Δ+2                {}
            <MI 20e9a  BEQ     0x20eb0>                                         {}
        <POP 20e9c-20eb0 Naked>                              Σ0         ↓
            <Const 0x20e9c 0xd.2>                            Δ-2                {[#13]}
            <Blob 0x20e9e [20] @>                            Δ-20               {[#13]|[«20""»]}
            <Call 0x20eac 0x216e8>                                              {[#13]|[«20""»]}
            <POP 20eae-20eb0 StackAdj>                       Δ+22               {}
        <POP 20eb0-20ebc Naked>                              Σ0         ↓ →0x20ed0 ←0x20e90
            <POP 20eb0-20eb2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20eb2 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20eb4 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20eb6-20eb8 StackAdj>                       Δ+2                {[-2-]}
            <MI 20eb8  TST.B   (A7)+>                        Δ+2                {}
            <MI 20eba  BEQ     0x20ed0>                                         {}
        <POP 20ebc-20ed0 Naked>                              Σ0         ↓
            <Const 0x20ebc 0xe.2>                            Δ-2                {[#14]}
            <Blob 0x20ebe [20] @>                            Δ-20               {[#14]|[«20""»]}
            <Call 0x20ecc 0x216e8>                                              {[#14]|[«20""»]}
            <POP 20ece-20ed0 StackAdj>                       Δ+22               {}
        <POP 20ed0-20edc Naked>                              Σ0         ↓ →0x20ef0 ←0x20eb0
            <POP 20ed0-20ed2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20ed2 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20ed4 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ed6-20ed8 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ed8  TST.B   (A7)+>                        Δ+2                {}
            <MI 20eda  BEQ     0x20ef0>                                         {}
        <POP 20edc-20ef0 Naked>                              Σ0         ↓
            <Const 0x20edc 0xf.2>                            Δ-2                {[#15]}
            <Blob 0x20ede [20] @>                            Δ-20               {[#15]|[«20""»]}
            <Call 0x20eec 0x216e8>                                              {[#15]|[«20""»]}
            <POP 20eee-20ef0 StackAdj>                       Δ+22               {}
        <POP 20ef0-20ef8 Epilogue>                           Σ0         ←0x20ed0

0x20ef8


@ 20ef8
START
    <POP 20ef8--0001 Body>                                              
        <POP 20ef8-20f02 Prologue>                           Σ0         
        <POP 20f02-20f1a RegCacheLoad>                       Σ0         ↓
        <POP 20f1a-20f9e Naked>                              Σ0         ↓
            <Call 0x20f1a 0x10398>                                              {}
                FSCALL_10398
            <Const 0x20f20 0x0.4>                            Δ-4                {[##0]}
            <Call 0x20f24 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 20f2a-20f2c StackAdj>                       Δ+4                {}
            <Const 0x20f2c 0x21c40.4>                        Δ-4                {[##138304]}
            <Const 0x20f2e 0x21c44.4>                        Δ-4                {[##138304]|[##138308]}
            <Const 0x20f34 0x21c45.4>                        Δ-4                {[##138304]|[##138308]|[##138309]}
            <Const 0x20f36 0x21c47.4>                        Δ-4                {[##138304]|[##138308]|[##138309]|[##138311]}
            <Const 0x20f38 0x21c48.4>                        Δ-4                {[##138304]|[##138308]|[##138309]|[##138311]|[##138312]}
            <Call 0x20f3e 0x10562>                                              {[##138304]|[##138308]|[##138309]|[##138311]|[##138312]}
                ?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
            <POP 20f44-20f48 StackAdj>                       Δ+18               {[-2-]}
            <POP 20f48-20f49 StackAdj>                       Δ+2                {}
            <Blob 0x20f49 [2] 0x21c45>                       Δ-2                {[«2»]}
            <Call 0x20f4a 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 20f50-20f51 StackAdj>                       Δ+2        ↓       {}
            <Blob 0x20f51 [8] @>                             Δ-8                {[«8""»]}
            <POP 20f60-20f62 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x20f62 7>                                                     {[«8""»]|[$$P2UCODE]}
            <MI 20f72  MOVE.L  (A7)+,0x21c4e>                Δ+4                {[«8""»]}
            <POP 20f78-20f7a StackAdj>                       Δ+8                {}
            <Const 0x20f7a 0x21c52.4>                        Δ-4                {[##138322]}
            <Call 0x20f80 0x102b8>                                              {[##138322]}
                NewString(VAR a : String)
            <POP 20f86-20f88 StackAdj>                       Δ+4                {}
            <Const 0x20f88 0x21c4a.4>                        Δ-4                {[##138314]}
            <Call 0x20f8e 0x102b8>                                              {[##138314]}
                NewString(VAR a : String)
            <POP 20f94-20f96 StackAdj>                       Δ+4                {}
            <MI 20f96  CLR.B   0x21c56>                                         {}
            <MI 20f9c  MOVEQ.L #0x00,D0>                                        {}
        <POP 20f9e-20fba Naked>                              Σ0         ↓ →0x20f9e ←0x20f9e
            <MI 20f9e  MOVE.L  D0,0x21c60>                                      {}
            <POP 0x20fa4 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 20faa  LEA.L   0x21c36,A0>                                      {}
            <MI 20fb0  CLR.B   (A0+D0.L+#0x21)>                                 {}
            <MI 20fb4  ADDQ.L  #0x1,D0>                                         {}
            <MI 20fb6  CMP.L   #0x07,D0>                                        {}
            <MI 20fb8  BLE     0x20f9e>                                         {}
        <POP 20fba-20fca Naked>                              Σ0         ↓ →0x20ff6
            <MI 20fba  MOVE.B  #0x01,0x21c46>                                   {}
            <MI 20fc0  CLR.L   D0>                                              {}
            <MI 20fc2  MOVE.B  0x21c40,D0>                                      {}
            <MI 20fc4  CMPI.W  #0x0020,D0>                                      {}
            <MI 20fc8  BLS     0x20ff6>                                         {}
        <POP 20fca-20ff6 Naked>                              Σ0         ↓
            <Blob 0x20fca [30] @>                            Δ-30               {[«30""»]}
            <Const 0x20fd6 0xe.2>                            Δ-2                {[«30""»]|[#14]}
            <POP 20fd8-20fda StackAdj>                       Δ-4                {[«30""»]|[#14]|[-4-]}
            <Lit 0x20fda 30>                                                    {[«30""»]|[#14]|[$$Illegal test name for P2UCODE.]}
            <Call 0x20fec 0x103b8>                                              {[«30""»]|[#14]|[$$Illegal test name for P2UCODE.]}
                PopProgram(status : Byte; msg : String)
            <POP 20ff2-20ff6 StackAdj>                       Δ+36               {}
        <POP 20ff6-20ffe Naked>                              Σ0         ↓ →0x21002 ←0x20fba
            <MI 20ff6  TST.B   0x21c48>                                         {}
            <MI 20ffc  BEQ     0x21002>                                         {}
        <POP 20ffe-21002 Naked>                              Σ0         ↓
            <Call 0x20ffe 0x205fa>                                              {}
        <POP 21002-21006 Naked>                              Σ0         ↓ →0x21030 ←0x20ff6
            <MI 21002  TST.B   0x21c47>                                         {}
            <MI 21004  BEQ     0x21030>                                         {}
        <POP 21006-21030 Naked>                              Σ0         ↓
            <Call 0x21006 0x20dea>                                              {}
            <Blob 0x2100a [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2100e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 21012  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x21014 0x213a0>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.VAL(Sw_8, Sw_1)
            <POP 2101a-2101c StackAdj>                       Δ+6                {[«4""»]}
            <POP 2101c-2101d StackAdj>                       Δ+4                {}
            <Blob 0x2101d [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21020 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 21024  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x21026 0x212de>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.TYP(Sw_8, Sw_1)
            <POP 2102c-21030 StackAdj>                       Δ+10               {}
        <POP 21030-21060 Naked>                              Σ0         ↓ →0x21082 ←0x21002
            <Call 0x21030 0x20e3e>                                              {}
            <MI 21034  MOVE.B  #0x0e,0x21c3e>                                   {}
            <MI 2103a  MOVE.B  0x21c40,0x21c3f>                                 {}
            <Blob 0x21040 [2] 0x21c3e>                       Δ-2                {[«2»]}
            <Call 0x21046 0x206da>                                              {[«2»]}
            <POP 2104a-2104c StackAdj>                       Δ+2                {}
            <MI 2104c  CLR.B   0x21c41>                                         {}
            <MI 21052  CLR.B   0x21c42>                                         {}
            <MI 21058  CLR.L   D0>                                              {}
            <MI 2105a  MOVE.B  0x21c40,D0>                                      {}
            <MI 2105c  CMP.W   #0x01,D0>                                        {}
            <MI 2105e  BNE     0x21082>                                         {}
        <POP 21060-21082 Naked>                              Σ0         →0x2108e
            <MI 21060  MOVE.B  #0x01,0x21c41>                                   {}
            <MI 21066  MOVE.B  #0x01,0x21c42>                                   {}
            <MI 2106c  CLR.L   D0>                                              {}
            <MI 2106e  MOVE.B  0x21c3f,D0>                                      {}
            <MI 21074  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x21076 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2107a  MOVE.B  D0,0x21c3f>                                      {}
            <MI 21080  BRA     0x2108e>                                         {}
        <POP 21082-21088 Naked>                              Σ0         ↓ →0x2108e ←0x21030
            <MI 21082  CMPI.W  #0x0002,D0>                                      {}
            <MI 21086  BNE     0x2108e>                                         {}
        <POP 21088-2108e Naked>                              Σ0         ↓
            <MI 21088  MOVE.B  #0x01,0x21c41>                                   {}
        <POP 2108e-210ea Naked>                              Σ0         ↓ ←0x21060 ←0x21082
            <Call 0x2108e 0x20850>                                              {}
            <Const 0x21092 0x21c43.4>                        Δ-4                {[##138307]}
            <Call 0x21098 0x20cde>                                              {[##138307]}
            <POP 2109c-2109e StackAdj>                       Δ+2                {[-2-]}
            <POP 2109e-2109f StackAdj>                       Δ+2                {}
            <Blob 0x2109f [2] 0x21c43>                       Δ-2                {[«2»]}
            <Call 0x210a4 0x20b76>                                              {[«2»]}
            <POP 210a8-210a9 StackAdj>                       Δ+2                {}
            <Blob 0x210a9 [2] 0x21c45>                       Δ-2                {[«2»]}
            <Const 0x210aa 0x21c49.4>                        Δ-4                {[«2»]|[##138313]}
            <Call 0x210b0 0x20430>                                              {[«2»]|[##138313]}
            <POP 210b4-210b6 StackAdj>                       Δ+4                {[«2»]}
            <POP 210b6-210b7 StackAdj>                       Δ+2                {}
            <Blob 0x210b7 [2] 0x21c46>                       Δ-2                {[«2»]}
            <Blob 0x210bc [4] 0x21c4e>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x210c2 [4] 0x21c52>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x210c8 [2] 0x21c56>                       Δ-2                {[«2»]|[«4»]|[«4»]|[«2»]}
            <Blob 0x210ce [8] 0x21c57>                       Δ-8                {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x210e0 0x1054a>                                              {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 210e6-210ea StackAdj>                       Δ+20               {}
        <POP 210ea-210f0 Naked>                              Σ0         
            <Call 0x210ea 0x10284>                                              {}
                ?exit

0x213ee


@ 213ee
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 213ee-21498 Body>                                   Δ+12       
        <POP 213ee-21404 Prologue>                           Σ0         ↓
        <POP 21404-2140a RegCacheLoad>                       Σ0         ↓
        <POP 2140a-21416 Naked>                              Σ0         ↓ →0x21428
            <POP 2140a-2140c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2140c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21412  TST.B   (A7)+>                        Δ+2                {}
            <MI 21414  BEQ     0x21428>                                         {}
        <POP 21416-21428 Naked>                              Σ0 Δ-12    →0x21438
            <Blob 0x21416 [12] @>                            Δ-12               {[«12""»]}
            <MI 21426  BRA     0x21438>                                         {[«12""»]}
        <POP 21428-21438 Naked>                              Σ0 Δ-12    ↓ ←0x2140a
            <Blob 0x21428 [12] @>                            Δ-12               {[«12""»]}
        <POP 21438-21490 Naked>                              Σ-12 Δ+12  ↓ ←0x21416
            <POP 21438-2143a StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x2143a>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x2143a 4>                       Δ-4        
                <Const 0x2143e 0x1.2>                        Δ-2        
                <Const 0x21442 0xb.2>                        Δ-2        
                <Call 0x21446 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2144c-2144e StackAdj>                   Δ+8        
            <Pointer.fp 0x2144e <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x21450 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 21456-2145a StackAdj>                       Δ+20               {}
            <MI 2145a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 2145e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x21460 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21464 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21468 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2146c 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21472-21476 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 21476  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 21478  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 2147c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x2147e 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21484-21486 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21486 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21488 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2148e-21490 StackAdj>                       Δ+4                {}
        <POP 21490-21498 Epilogue>                           Σ0         

0x214ac


@ 214ac
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 214ac-2153a Body>                                   Δ+10       
        <POP 214ac-214c2 Prologue>                           Σ0         ↓
        <POP 214c2-214c8 RegCacheLoad>                       Σ0         ↓
        <POP 214c8-214d4 Naked>                              Σ0         ↓ →0x214e6
            <POP 214c8-214ca StackAdj>                       Δ-2                {[-2-]}
            <Call 0x214ca 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 214d0  TST.B   (A7)+>                        Δ+2                {}
            <MI 214d2  BEQ     0x214e6>                                         {}
        <POP 214d4-214e6 Naked>                              Σ0 Δ-10    →0x214f6
            <Blob 0x214d4 [10] @>                            Δ-10               {[«10""»]}
            <MI 214e4  BRA     0x214f6>                                         {[«10""»]}
        <POP 214e6-214f6 Naked>                              Σ0 Δ-10    ↓ ←0x214c8
            <Blob 0x214e6 [10] @>                            Δ-10               {[«10""»]}
        <POP 214f6-21532 Naked>                              Σ-10 Δ+10  ↓ ←0x214d4
            <POP 214f6-214f8 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x214f8>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x214f8 4>                       Δ-4        
                <Const 0x214fc 0x1.2>                        Δ-2        
                <Const 0x21500 0x9.2>                        Δ-2        
                <Call 0x21504 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2150a-2150c StackAdj>                   Δ+8        
            <Pointer.fp 0x2150c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-10-]|[$$…]|[@@-6]}
            <Call 0x2150e 0x10460>                                              {[-10-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21514-21518 StackAdj>                       Δ+18               {}
            <MI 21518  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2151a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2151e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21520 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21526-21528 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21528 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2152a 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21530-21532 StackAdj>                       Δ+4                {}
        <POP 21532-2153a Epilogue>                           Σ0         

0x21556


@ 21556
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21556-215e4 Body>                                   Δ+14       
        <POP 21556-2156c Prologue>                           Σ0         ↓
        <POP 2156c-21572 RegCacheLoad>                       Σ0         ↓
        <POP 21572-2157e Naked>                              Σ0         ↓ →0x21590
            <POP 21572-21574 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21574 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2157a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2157c  BEQ     0x21590>                                         {}
        <POP 2157e-21590 Naked>                              Σ0 Δ-14    →0x215a0
            <Blob 0x2157e [14] @>                            Δ-14               {[«14""»]}
            <MI 2158e  BRA     0x215a0>                                         {[«14""»]}
        <POP 21590-215a0 Naked>                              Σ0 Δ-14    ↓ ←0x21572
            <Blob 0x21590 [14] @>                            Δ-14               {[«14""»]}
        <POP 215a0-215dc Naked>                              Σ-14 Δ+14  ↓ ←0x2157e
            <POP 215a0-215a2 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x215a2>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x215a2 4>                       Δ-4        
                <Const 0x215a6 0x1.2>                        Δ-2        
                <Const 0x215aa 0xd.2>                        Δ-2        
                <Call 0x215ae 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 215b4-215b6 StackAdj>                   Δ+8        
            <Pointer.fp 0x215b6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x215b8 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 215be-215c2 StackAdj>                       Δ+22               {}
            <MI 215c2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 215c4  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 215c8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x215ca 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 215d0-215d2 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x215d2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x215d4 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 215da-215dc StackAdj>                       Δ+4                {}
        <POP 215dc-215e4 Epilogue>                           Σ0         

0x21604


@ 21604
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21604-216c8 Body>                                   Δ+16       
        <POP 21604-2161a Prologue>                           Σ0         ↓
        <POP 2161a-21620 RegCacheLoad>                       Σ0         ↓
        <POP 21620-2162c Naked>                              Σ0         ↓ →0x2163e
            <POP 21620-21622 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21622 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21628  TST.B   (A7)+>                        Δ+2                {}
            <MI 2162a  BEQ     0x2163e>                                         {}
        <POP 2162c-2163e Naked>                              Σ0 Δ-16    →0x2164e
            <Blob 0x2162c [16] @>                            Δ-16               {[«16""»]}
            <MI 2163c  BRA     0x2164e>                                         {[«16""»]}
        <POP 2163e-2164e Naked>                              Σ0 Δ-16    ↓ ←0x21620
            <Blob 0x2163e [16] @>                            Δ-16               {[«16""»]}
        <POP 2164e-216c0 Naked>                              Σ-16 Δ+16  ↓ ←0x2162c
            <POP 2164e-21650 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x21650>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x21650 4>                       Δ-4        
                <Const 0x21654 0x1.2>                        Δ-2        
                <Const 0x21658 0xf.2>                        Δ-2        
                <Call 0x2165c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21662-21664 StackAdj>                   Δ+8        
            <Pointer.fp 0x21664 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x21666 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 2166c-21670 StackAdj>                       Δ+24               {}
            <MI 21670  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 21672  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
            <Call 0x21676 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 2167c-2167e StackAdj>                       Δ+2                {[4, '(A6-0x4)']}
            <MI 2167e  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 21680  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
            <Call 0x21684 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 2168a-2168c StackAdj>                       Δ+4                {[-2-]}
            <MI 2168c  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 21690  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x21692 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21696 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2169a 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2169e 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 216a4-216a6 StackAdj>                       Δ+16               {[-2-]}
            <MI 216a6  CLR.B   (A7)>                                            {[-2-]}
            <MI 216a8  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0xe)']}
            <MI 216ac  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Call 0x216ae 0x104ba>                                              {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 216b4-216b6 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x216b6 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x216b8 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 216be-216c0 StackAdj>                       Δ+4                {}
        <POP 216c0-216c8 Epilogue>                           Σ0         

0x216e8


@ 216e8
        <LVAR  0x01c 1(r)>
        <LVAR  0x01a 1(r)>
        <LVAR  0x019 1(r)>
        <LVAR  0x018 1(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 216e8-217e0 Body>                                   Δ+16       
        <POP 216e8-216fe Prologue>                           Σ0         ↓
        <POP 216fe-2170e RegCacheLoad>                       Σ0         ↓
        <POP 2170e-2171a Naked>                              Σ0         ↓ →0x2172c
            <POP 2170e-21710 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21710 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21716  TST.B   (A7)+>                        Δ+2                {}
            <MI 21718  BEQ     0x2172c>                                         {}
        <POP 2171a-2172c Naked>                              Σ0 Δ-16    →0x2173c
            <Blob 0x2171a [16] @>                            Δ-16               {[«16""»]}
            <MI 2172a  BRA     0x2173c>                                         {[«16""»]}
        <POP 2172c-2173c Naked>                              Σ0 Δ-16    ↓ ←0x2170e
            <Blob 0x2172c [16] @>                            Δ-16               {[«16""»]}
        <POP 2173c-217d8 Naked>                              Σ-16 Δ+16  ↓ ←0x2171a
            <POP 2173c-2173e StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x2173e>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x2173e 4>                       Δ-4        
                <Const 0x21742 0x1.2>                        Δ-2        
                <Const 0x21746 0xf.2>                        Δ-2        
                <Call 0x2174a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21750-21752 StackAdj>                   Δ+8        
            <Pointer.fp 0x21752 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-6]}
            <Call 0x21754 0x10460>                                              {[-16-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2175a-2175e StackAdj>                       Δ+24               {}
            <MI 2175e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 21762  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 21766  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x21768 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x2176c 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x2176e 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x21772 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21774-21778 StackAdj>                       Δ+20               {[4, '(A6+0xc)']}
            <MI 21778  MOVE.L  (A6+0x14),(A7)>                                  {[4, '(A6+0x14)']}
            <MI 2177c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 21780  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x21782 4>                           Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x21786 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x21788 0x7.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x2178c 0x10466>                                              {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2178e-21792 StackAdj>                       Δ+22               {[-2-]}
            <MI 21792  MOVE.B  (A6+0x18),(A7)>                                  {[-2-]}
            <MI 21796  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x21798 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x2179c 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x2179e 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x217a0 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 217a2-217a4 StackAdj>                       Δ+16               {[-2-]}
            <MI 217a4  MOVE.B  (A6+0x19),(A7)>                                  {[-2-]}
            <MI 217a8  MOVE.B  (A6+0x1a),(A7+0x1)>                              {[-2-]}
            <MI 217ae  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x217b0 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x217b4 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x217b6 0x1.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
            <Call 0x217ba 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 217bc-217be StackAdj>                       Δ+16               {[-2-]}
            <MI 217be  CLR.B   (A7)>                                            {[-2-]}
            <MI 217c0  MOVE.B  (A6+0x1c),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x1c)']}
            <MI 217c4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
            <Call 0x217c6 0x104ba>                                              {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 217cc-217ce StackAdj>                       Δ+8                {}
            <Pointer.fp 0x217ce <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x217d0 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 217d6-217d8 StackAdj>                       Δ+4                {}
        <POP 217d8-217e0 Epilogue>                           Σ0         

0x21804


@ 21804
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21804-21888 Body>                                   Δ+18       
        <POP 21804-2181a Prologue>                           Σ0         ↓
        <POP 2181a-2181e RegCacheLoad>                       Σ0         ↓
        <POP 2181e-2182a Naked>                              Σ0         ↓ →0x21838
            <POP 2181e-21820 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21820 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21826  TST.B   (A7)+>                        Δ+2                {}
            <MI 21828  BEQ     0x21838>                                         {}
        <POP 2182a-21838 Naked>                              Σ0 Δ-18    →0x21844
            <Blob 0x2182a [18] @>                            Δ-18               {[«18""»]}
            <MI 21836  BRA     0x21844>                                         {[«18""»]}
        <POP 21838-21844 Naked>                              Σ0 Δ-18    ↓ ←0x2181e
            <Blob 0x21838 [18] @>                            Δ-18               {[«18""»]}
        <POP 21844-21880 Naked>                              Σ-18 Δ+18  ↓ ←0x2182a
            <POP 21844-21846 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x21846>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x21846 4>                       Δ-4        
                <Const 0x2184a 0x1.2>                        Δ-2        
                <Const 0x2184e 0x12.2>                       Δ-2        
                <Call 0x21852 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21858-2185a StackAdj>                   Δ+8        
            <Pointer.fp 0x2185a <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x2185c 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21862-21866 StackAdj>                       Δ+26               {}
            <MI 21866  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21868  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2186c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2186e 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21874-21876 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21876 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21878 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2187e-21880 StackAdj>                       Δ+4                {}
        <POP 21880-21888 Epilogue>                           Σ0         

0x218b8


@ 218b8
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 218b8-21946 Body>                                   Δ+24       
        <POP 218b8-218ce Prologue>                           Σ0         ↓
        <POP 218ce-218d4 RegCacheLoad>                       Σ0         ↓
        <POP 218d4-218e0 Naked>                              Σ0         ↓ →0x218f2
            <POP 218d4-218d6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x218d6 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 218dc  TST.B   (A7)+>                        Δ+2                {}
            <MI 218de  BEQ     0x218f2>                                         {}
        <POP 218e0-218f2 Naked>                              Σ0 Δ-24    →0x21902
            <Blob 0x218e0 [24] @>                            Δ-24               {[«24""»]}
            <MI 218f0  BRA     0x21902>                                         {[«24""»]}
        <POP 218f2-21902 Naked>                              Σ0 Δ-24    ↓ ←0x218d4
            <Blob 0x218f2 [24] @>                            Δ-24               {[«24""»]}
        <POP 21902-2193e Naked>                              Σ-24 Δ+24  ↓ ←0x218e0
            <POP 21902-21904 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x21904>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x21904 4>                       Δ-4        
                <Const 0x21908 0x1.2>                        Δ-2        
                <Const 0x2190c 0x17.2>                       Δ-2        
                <Call 0x21910 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21916-21918 StackAdj>                   Δ+8        
            <Pointer.fp 0x21918 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x2191a 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21920-21924 StackAdj>                       Δ+32               {}
            <MI 21924  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21926  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2192a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2192c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21932-21934 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21934 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21936 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2193c-2193e StackAdj>                       Δ+4                {}
        <POP 2193e-21946 Epilogue>                           Σ0         

0x21962


@ 21962
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21962-219e6 Body>                                   Δ+14       
        <POP 21962-21978 Prologue>                           Σ0         ↓
        <POP 21978-2197c RegCacheLoad>                       Σ0         ↓
        <POP 2197c-21988 Naked>                              Σ0         ↓ →0x21996
            <POP 2197c-2197e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2197e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21984  TST.B   (A7)+>                        Δ+2                {}
            <MI 21986  BEQ     0x21996>                                         {}
        <POP 21988-21996 Naked>                              Σ0 Δ-14    →0x219a2
            <Blob 0x21988 [14] @>                            Δ-14               {[«14""»]}
            <MI 21994  BRA     0x219a2>                                         {[«14""»]}
        <POP 21996-219a2 Naked>                              Σ0 Δ-14    ↓ ←0x2197c
            <Blob 0x21996 [14] @>                            Δ-14               {[«14""»]}
        <POP 219a2-219de Naked>                              Σ-14 Δ+14  ↓ ←0x21988
            <POP 219a2-219a4 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x219a4>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x219a4 4>                       Δ-4        
                <Const 0x219a8 0x1.2>                        Δ-2        
                <Const 0x219ac 0xe.2>                        Δ-2        
                <Call 0x219b0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 219b6-219b8 StackAdj>                   Δ+8        
            <Pointer.fp 0x219b8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x219ba 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 219c0-219c4 StackAdj>                       Δ+22               {}
            <MI 219c4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 219c6  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 219ca  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x219cc 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 219d2-219d4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x219d4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x219d6 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 219dc-219de StackAdj>                       Δ+4                {}
        <POP 219de-219e6 Epilogue>                           Σ0         

0x21a3e


@ 21a3e
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 21a3e-21aa6 Body>                                              
        <POP 21a3e-21a54 Prologue>                           Σ0         ↓
        <POP 21a54-21a9e Naked>                              Σ0         ↓
            <Blob 0x21a54 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x21a60 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 21a64-21a66 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x21a66 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 21a78-21a7a StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a7a  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a7e  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a80  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21a82  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x21a84 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21a8a-21a8c StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x21a8c 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21a92-21a94 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x21a94 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21a9a-21a9e StackAdj>                       Δ+20               {}
        <POP 21a9e-21aa6 Epilogue>                           Σ0         

0x21afa


@ 21afa
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21afa-21c36 Body>                                              
        <POP 21afa-21b10 Prologue>                           Σ0         ↓
        <POP 21b10-21b26 RegCacheLoad>                       Σ0         ↓
        <POP 21b26-21b86 Naked>                              Σ0         ↓ →0x21bce
            <Call 0x21b26 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21b2c [18] @>                            Δ-18               {[«18""»]}
            <POP 21b38-21b3a StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21b3a 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x21b46 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b48-21b49 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21b49 [14] @>                            Δ-14               {[«14""»]}
            <POP 21b58-21b5a StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21b5a 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21b64-21b66 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 21b66  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x21b6a 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21b70-21b72 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21b72 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21b78-21b7a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21b7a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b7c-21b7e StackAdj>                       Δ+18               {}
            <MI 21b7e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21b82  CMPA.W  #0x01,A0>                                        {}
            <MI 21b84  BEQ     0x21bce>                                         {}
        <POP 21b86-21bce Naked>                              Σ0         ↓
            <Blob 0x21b86 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x21b96 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21ba6-21ba8 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21ba8 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21bb2-21bb4 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21bb4>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21bb4 12>                      Δ-4        
                <Const 0x21bb8 0x1.2>                        Δ-2        
                <Const 0x21bba 0x1e.2>                       Δ-2        
                <Call 0x21bbc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21bbe-21bc0 StackAdj>                   Δ+8        
            <Call 0x21bc0 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21bc6-21bc8 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21bc8 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bca-21bce StackAdj>                       Δ+48               {}
        <POP 21bce-21c2e Naked>                              Σ0         ↓ ←0x21b26
            <Blob 0x21bce [14] @>                            Δ-14               {[«14""»]}
            <POP 21bde-21be0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21be0 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21bea-21bec StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21bec  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21bf0 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 21bf6-21bf8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21bf8 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21bfe-21c00 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21c00 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21c02-21c03 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21c03 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21c12 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 21c16-21c18 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21c18 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x21c26 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21c2c-21c2e StackAdj>                       Δ+30               {}
        <POP 21c2e-21c36 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.3f9bbecd288906d9
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0e f8              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 1c b6              |        |		.PTR	0x21cb6
00020010					code.end:
00020010 00 02 1c 36              |   6    |		.PTR	0x21c36
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 1a 3e              |   >    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 1a fa              |        |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 49 4e 49 54 53 54 41 54  |INITSTAT|		.TXT	'INITSTATE '
00020114 53 42 55 53 55 4c 4f 41  |SBUSULOA|		.TXT	'SBUSULOAD '
0002011e 44 42 55 53 55 4c 4f 41  |DBUSULOA|		.TXT	'DBUSULOAD '
00020128 40 28 23 29 50 32 55 43  |@(#)P2UC|		.XXX[0x160]
00020130 4f 44 45 2c 32 2e 30 2c  |ODE,2.0,|
00020138 38 39 2f 31 30 2f 30 33  |89/10/03|
00020140 2c 31 37 3a 31 38 3a 31  |,17:18:1|
00020148 39 5c 50 32 55 41 4c 4c  |9\P2UALL|
00020150 20 20 20 20 50 32 55 43  |    P2UC|
00020158 4f 4e 44 20 20 20 50 32  |OND   P2|
00020160 55 53 59 53 20 20 20 20  |USYS    |
00020168 50 32 55 56 41 4c 20 20  |P2UVAL  |
00020170 20 20 50 32 55 54 59 50  |  P2UTYP|
00020178 20 20 20 20 50 32 55 53  |    P2US|
00020180 45 51 20 20 20 20 50 32  |EQ    P2|
00020188 55 46 49 55 20 20 20 20  |UFIU    |
00020190 50 32 55 4d 45 4d 20 20  |P2UMEM  |
00020198 20 20 50 32 55 43 53 41  |  P2UCSA|
000201a0 20 20 20 20 50 32 55 4d  |    P2UM|
000201a8 4d 20 20 20 20 20 50 32  |M     P2|
000201b0 55 50 52 49 56 20 20 20  |UPRIV   |
000201b8 50 32 55 43 4c 41 53 53  |P2UCLASS|
000201c0 20 20 50 32 55 57 43 53  |  P2UWCS|
000201c8 20 20 20 20 50 32 55 53  |    P2US|
000201d0 57 43 53 20 20 20 50 32  |WCS   P2|
000201d8 55 56 57 43 53 20 20 20  |UVWCS   |
000201e0 50 32 55 54 57 43 53 20  |P2UTWCS |
000201e8 20 20 50 32 55 51 57 43  |  P2UQWC|
000201f0 53 20 20 20 50 32 55 46  |S   P2UF|
000201f8 57 43 53 20 20 20 50 32  |WCS   P2|
00020200 55 54 41 47 53 20 20 20  |UTAGS   |
00020208 50 32 55 44 52 41 4d 20  |P2UDRAM |
00020210 20 20 50 32 55 56 52 46  |  P2UVRF|
00020218 20 20 20 20 50 32 55 54  |    P2UT|
00020220 52 46 20 20 20 20 50 32  |RF    P2|
00020228 55 53 59 53 42 55 46 46  |USYSBUFF|
00020230 50 32 55 44 49 53 50 20  |P2UDISP |
00020238 20 20 50 32 55 45 43 43  |  P2UECC|
00020240 20 20 20 20 50 32 55 54  |    P2UT|
00020248 49 4d 45 52 53 20 50 32  |IMERS P2|
00020250 55 50 41 54 48 53 20 20  |UPATHS  |
00020258 50 32 55 53 50 41 52 45  |P2USPARE|
00020260 30 20 50 32 55 53 50 41  |0 P2USPA|
00020268 52 45 31 20 50 32 55 53  |RE1 P2US|
00020270 50 41 52 45 32 20 50 32  |PARE2 P2|
00020278 55 53 50 41 52 45 33 20  |USPARE3 |
00020280 50 32 55 53 50 41 52 45  |P2USPARE|
00020288 34 20                    |4       |		.XXX[0x2]
0002028a 45 4d                    |EM      |		.TXT	'EM'
0002028c 42 41                    |BA      |		.TXT	'BA'
0002028e 4c 4d                    |LM      |		.TXT	'LM'
00020290 50 32 55 43 4f 44 45 2e  |P2UCODE.|		.TXT	'P2UCODE.M200_UCODE'
000202a2 50 32 55 43 4f 44 45 20  |P2UCODE |		.TXT	'P2UCODE '
000202aa 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal test name for P2UCODE.'
000202c8 50 32 55 41 4c 4c 20 20  |P2UALL  |		.XXX[0x140]
000202d0 20 20 50 32 55 43 4f 4e  |  P2UCON|
000202d8 44 20 20 20 50 32 55 53  |D   P2US|
000202e0 59 53 20 20 20 20 50 32  |YS    P2|
000202e8 55 56 41 4c 20 20 20 20  |UVAL    |
000202f0 50 32 55 54 59 50 20 20  |P2UTYP  |
000202f8 20 20 50 32 55 53 45 51  |  P2USEQ|
00020300 20 20 20 20 50 32 55 46  |    P2UF|
00020308 49 55 20 20 20 20 50 32  |IU    P2|
00020310 55 4d 45 4d 20 20 20 20  |UMEM    |
00020318 50 32 55 43 53 41 20 20  |P2UCSA  |
00020320 20 20 50 32 55 4d 4d 20  |  P2UMM |
00020328 20 20 20 20 50 32 55 50  |    P2UP|
00020330 52 49 56 20 20 20 50 32  |RIV   P2|
00020338 55 43 4c 41 53 53 20 20  |UCLASS  |
00020340 50 32 55 57 43 53 20 20  |P2UWCS  |
00020348 20 20 50 32 55 53 57 43  |  P2USWC|
00020350 53 20 20 20 50 32 55 56  |S   P2UV|
00020358 57 43 53 20 20 20 50 32  |WCS   P2|
00020360 55 54 57 43 53 20 20 20  |UTWCS   |
00020368 50 32 55 51 57 43 53 20  |P2UQWCS |
00020370 20 20 50 32 55 46 57 43  |  P2UFWC|
00020378 53 20 20 20 50 32 55 54  |S   P2UT|
00020380 41 47 53 20 20 20 50 32  |AGS   P2|
00020388 55 44 52 41 4d 20 20 20  |UDRAM   |
00020390 50 32 55 56 52 46 20 20  |P2UVRF  |
00020398 20 20 50 32 55 54 52 46  |  P2UTRF|
000203a0 20 20 20 20 50 32 55 53  |    P2US|
000203a8 59 53 42 55 46 46 50 32  |YSBUFFP2|
000203b0 55 44 49 53 50 20 20 20  |UDISP   |
000203b8 50 32 55 45 43 43 20 20  |P2UECC  |
000203c0 20 20 50 32 55 54 49 4d  |  P2UTIM|
000203c8 45 52 53 20 50 32 55 50  |ERS P2UP|
000203d0 41 54 48 53 20 20 50 32  |ATHS  P2|
000203d8 55 53 50 41 52 45 30 20  |USPARE0 |
000203e0 50 32 55 53 50 41 52 45  |P2USPARE|
000203e8 31 20 50 32 55 53 50 41  |1 P2USPA|
000203f0 52 45 32 20 50 32 55 53  |RE2 P2US|
000203f8 50 41 52 45 33 20 50 32  |PARE3 P2|
00020400 55 53 50 41 52 45 34 20  |USPARE4 |
00020408 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002040c 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020410 05 01 04 07 06 02 03 0c  |        |		.XXX[0x8]
00020418 0d 0e 0f 01              |        |		.XXX[0x4]
0002041c 00 00 00 00 00 00 00 00  |        |		.CONST	0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x1c,0x0
00020430 ; --------------------------------------------------------------------------------------
00020430 ; OMSI PASCAL Function
00020430 ;    <LVAR  0x00c 1(r)>
00020430 ;    <LVAR  0x008 4(r)>
00020430 ;    <LVAR -0x002 @>
00020430 ; --------------------------------------------------------------------------------------
00020430 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00020434 bf d5                    |        |		CMPA.L	(A5),A7
00020436 62 06                    |b       |		BHI	0x2043e
00020438 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002043c 4e 76                    |Nv      |		TRAPV
0002043e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020442 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020446 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002044c 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00020450 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020456 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020458 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002045e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020462 20 4f                    | O      |		MOVEA.L	A7,A0
00020464 43 fa fc a4              |C       |		LEA.L	0x2010a,A1
00020468 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002046a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002046c 51 c8 ff fc              |Q       |		DBF	D0,0x2046a
00020470 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020472 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020476 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002047a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002047e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020484 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020486 48 78 00 01              |Hx      |		PEA.L	0x1
0002048a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002048e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020492 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020498 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002049c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000204a2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000204a6 48 50                    |HP      |		PEA.L	(A0)
000204a8 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000204ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204b0 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000204b6 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000204ba 4e 5e                    |N^      |		UNLK	A6
000204bc 4e 75                    |Nu      |		RTS
000204be ; --------------------------------------------------------------------------------------
000204be ; OMSI PASCAL Function
000204be ;    <LVAR  0x008 4(r)>
000204be ; --------------------------------------------------------------------------------------
000204be 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; Spelunked
000204c2 bf d5                    |        |		CMPA.L	(A5),A7
000204c4 62 06                    |b       |		BHI	0x204cc
000204c6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204ca 4e 76                    |Nv      |		TRAPV
000204cc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000204d0 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000204d4 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000204da 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000204de 48 50                    |HP      |		PEA.L	(A0)
000204e0 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000204e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204e8 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000204ee 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000204f2 4e 5e                    |N^      |		UNLK	A6
000204f4 4e 75                    |Nu      |		RTS
000204f6 ; --------------------------------------------------------------------------------------
000204f6 ; OMSI PASCAL Function
000204f6 ;    <LVAR  0x008 1(r)>
000204f6 ; --------------------------------------------------------------------------------------
000204f6 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; Spelunked
000204fa bf d5                    |        |		CMPA.L	(A5),A7
000204fc 62 06                    |b       |		BHI	0x20504
000204fe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020502 4e 76                    |Nv      |		TRAPV
00020504 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020508 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002050e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020512 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020518 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002051a 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020520 42 27                    |B'      |		CLR.B	-(A7)
00020522 48 78 00 01              |Hx      |		PEA.L	0x1
00020526 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002052c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002052e 4e 5e                    |N^      |		UNLK	A6
00020530 4e 75                    |Nu      |		RTS
00020532 ; --------------------------------------------------------------------------------------
00020532 ; OMSI PASCAL Function
00020532 ;    <LVAR  0x016 1(r)>
00020532 ;    <LVAR  0x012 4(r)>
00020532 ;    <LVAR  0x010 1(r)>
00020532 ;    <LVAR  0x00e 1(r)>
00020532 ;    <LVAR  0x00c 1(r)>
00020532 ;    <LVAR  0x008 4(r)>
00020532 ;    <LVAR -0x004 @>
00020532 ; --------------------------------------------------------------------------------------
00020532 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020536 bf d5                    |        |		CMPA.L	(A5),A7
00020538 62 06                    |b       |		BHI	0x20540
0002053a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002053e 4e 76                    |Nv      |		TRAPV
00020540 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020544 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020548 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
0002054e 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00020550 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020556 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
0002055a 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
00020560 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020562 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00020566 4e 92                    |N       |		JSR	(A2)
00020568 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002056a 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
0002056e 66 0e                    |f       |		BNE	0x2057e
00020570 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00020574 4e 92                    |N       |		JSR	(A2)
00020576 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
0002057a 4e 92                    |N       |		JSR	(A2)
0002057c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002057e 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020584 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00020588 67 12                    |g       |		BEQ	0x2059c
0002058a 9e c1                    |        |		SUBA.W	D1,A7
0002058c 20 4f                    | O      |		MOVEA.L	A7,A0
0002058e 43 fa fb 84              |C       |		LEA.L	0x20114,A1
00020592 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020594 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020596 51 c8 ff fc              |Q       |		DBF	D0,0x20594
0002059a 60 10                    |`       |		BRA	0x205ac
0002059c 9e c1                    |        |		SUBA.W	D1,A7
0002059e 20 4f                    | O      |		MOVEA.L	A7,A0
000205a0 43 fa fb 7c              |C  |    |		LEA.L	0x2011e,A1
000205a4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000205a6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000205a8 51 c8 ff fc              |Q       |		DBF	D0,0x205a6
000205ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000205b2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000205b6 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000205ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205c2 48 78 00 01              |Hx      |		PEA.L	0x1
000205c6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000205ca 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000205ce 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000205d4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000205d8 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000205de 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000205e2 48 50                    |HP      |		PEA.L	(A0)
000205e4 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000205ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205ec 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000205f2 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000205f6 4e 5e                    |N^      |		UNLK	A6
000205f8 4e 75                    |Nu      |		RTS
000205fa ; --------------------------------------------------------------------------------------
000205fa ; OMSI PASCAL Function
000205fa ;    <LVAR -0x004 1(rw)>
000205fa ; --------------------------------------------------------------------------------------
000205fa 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000205fe bf d5                    |        |		CMPA.L	(A5),A7
00020600 62 06                    |b       |		BHI	0x20608
00020602 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020606 4e 76                    |Nv      |		TRAPV
00020608 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002060c 48 e7 e1 80              |H       |		MOVEM.L	A0+D7+D2+D1+D0,-(A7)
00020610 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00020614 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00020616 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020618 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002061a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020620 4a 1f                    |J       |		TST.B	(A7)+
00020622 67 08                    |g       |		BEQ	0x2062c
00020624 4e b9 00 02 10 f0        |N       |		JSR	exp_LOAD_HRAM_8_0.FIU()
0002062a 60 06                    |`       |		BRA	0x20632
0002062c 4e b9 00 02 11 0e        |N       |		JSR	exp_LOAD_HRAM_32_0.FIU()
00020632 4e b9 00 02 11 bc        |N       |		JSR	exp_LOAD_HRAM_1.FIU()
00020638 4e b9 00 02 13 bc        |N       |		JSR	exp_ALIGN_CSA.VAL()
0002063e 4e b9 00 02 13 1c        |N       |		JSR	exp_ALIGN_CSA.TYP()
00020644 42 10                    |B       |		CLR.B	(A0)
00020646 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020648 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002064a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002064c 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020652 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020654 4a 1f                    |J       |		TST.B	(A7)+
00020656 67 0c                    |g       |		BEQ	0x20664
00020658 42 80                    |B       |		CLR.L	D0
0002065a 10 10                    |        |		MOVE.B	(A0),D0
0002065c 52 40                    |R@      |		ADDQ.W	#0x1,D0
0002065e 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020662 10 80                    |        |		MOVE.B	D0,(A0)
00020664 52 07                    |R       |		ADDQ.B	#0x1,D7
00020666 be 01                    |        |		CMP.B	D1,D7
00020668 6f de                    |o       |		BLE	0x20648
0002066a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002066c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002066e 1f 07                    |        |		MOVE.B	D7,-(A7)
00020670 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020676 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020678 4a 1f                    |J       |		TST.B	(A7)+
0002067a 67 3a                    |g:      |		BEQ	0x206b6
0002067c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002067e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020680 1f 07                    |        |		MOVE.B	D7,-(A7)
00020682 4e b9 00 01 04 c6        |N       |		JSR	EQ_1c218(a : Byte) : Bool
00020688 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002068a 10 17                    |        |		MOVE.B	(A7),D0
0002068c 48 80                    |H       |		EXTB.W	D0
0002068e 41 82                    |A       |		CHK.W	D2,D0
00020690 1e 80                    |        |		MOVE.B	D0,(A7)
00020692 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020694 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002069a 10 17                    |        |		MOVE.B	(A7),D0
0002069c 48 80                    |H       |		EXTB.W	D0
0002069e 41 82                    |A       |		CHK.W	D2,D0
000206a0 1e 80                    |        |		MOVE.B	D0,(A7)
000206a2 1f 10                    |        |		MOVE.B	(A0),-(A7)
000206a4 4e b9 00 02 16 04        |N       |		JSR	0x21604
000206aa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000206ac 1e 87                    |        |		MOVE.B	D7,(A7)
000206ae 4e b9 00 02 18 04        |N       |		JSR	0x21804
000206b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206b6 52 07                    |R       |		ADDQ.B	#0x1,D7
000206b8 be 01                    |        |		CMP.B	D1,D7
000206ba 6f b0                    |o       |		BLE	0x2066c
000206bc 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
000206c2 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
000206c6 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
000206ca 4e b9 00 02 11 98        |N       |		JSR	exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
000206d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206d2 4c df 01 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0
000206d6 4e 5e                    |N^      |		UNLK	A6
000206d8 4e 75                    |Nu      |		RTS
000206da ; --------------------------------------------------------------------------------------
000206da ; OMSI PASCAL Function
000206da ;    <LVAR  0x008 2(r)>
000206da ;    <LVAR -0x002 1(rw)>
000206da ; --------------------------------------------------------------------------------------
000206da 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000206de bf d5                    |        |		CMPA.L	(A5),A7
000206e0 62 06                    |b       |		BHI	0x206e8
000206e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206e6 4e 76                    |Nv      |		TRAPV
000206e8 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000206ec 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
000206f0 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
000206f6 43 ee ff fe              |C       |		LEA.L	(A6-0x2),A1
000206fa 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000206fe 47 f9 00 02 13 ee        |G       |		LEA.L	0x213ee,A3
00020704 49 f9 00 02 19 62        |I    b  |		LEA.L	0x21962,A4
0002070a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002070c 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
0002070e 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020710 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00020712 4e b9 00 02 12 fa        |N       |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
00020718 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002071a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020720 4a 1f                    |J       |		TST.B	(A7)+
00020722 67 04                    |g       |		BEQ	0x20728
00020724 42 11                    |B       |		CLR.B	(A1)
00020726 60 04                    |`       |		BRA	0x2072c
00020728 12 bc 00 ff              |        |		MOVE.B	#0xff,(A1)
0002072c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002072e 1f 00                    |        |		MOVE.B	D0,-(A7)
00020730 4e 90                    |N       |		JSR	(A0)
00020732 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020734 4a 1f                    |J       |		TST.B	(A7)+
00020736 67 08                    |g       |		BEQ	0x20740
00020738 1f 00                    |        |		MOVE.B	D0,-(A7)
0002073a 1f 11                    |        |		MOVE.B	(A1),-(A7)
0002073c 4e 93                    |N       |		JSR	(A3)
0002073e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020740 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020742 1f 01                    |        |		MOVE.B	D1,-(A7)
00020744 4e 90                    |N       |		JSR	(A0)
00020746 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020748 4a 1f                    |J       |		TST.B	(A7)+
0002074a 67 08                    |g       |		BEQ	0x20754
0002074c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002074e 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020750 4e 93                    |N       |		JSR	(A3)
00020752 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020754 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020756 1f 02                    |        |		MOVE.B	D2,-(A7)
00020758 4e 90                    |N       |		JSR	(A0)
0002075a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002075c 4a 1f                    |J       |		TST.B	(A7)+
0002075e 67 08                    |g       |		BEQ	0x20768
00020760 1f 02                    |        |		MOVE.B	D2,-(A7)
00020762 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020764 4e 93                    |N       |		JSR	(A3)
00020766 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020768 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002076a 1f 03                    |        |		MOVE.B	D3,-(A7)
0002076c 4e 90                    |N       |		JSR	(A0)
0002076e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020770 4a 1f                    |J       |		TST.B	(A7)+
00020772 67 08                    |g       |		BEQ	0x2077c
00020774 1f 03                    |        |		MOVE.B	D3,-(A7)
00020776 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020778 4e 93                    |N       |		JSR	(A3)
0002077a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002077c 4e b9 00 02 11 d8        |N       |		JSR	exp_INIT_MRU.FIU()
00020782 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020784 1f 00                    |        |		MOVE.B	D0,-(A7)
00020786 4e 90                    |N       |		JSR	(A0)
00020788 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002078a 4a 1f                    |J       |		TST.B	(A7)+
0002078c 67 06                    |g       |		BEQ	0x20794
0002078e 1f 00                    |        |		MOVE.B	D0,-(A7)
00020790 4e 94                    |N       |		JSR	(A4)
00020792 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020794 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020796 1f 01                    |        |		MOVE.B	D1,-(A7)
00020798 4e 90                    |N       |		JSR	(A0)
0002079a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002079c 4a 1f                    |J       |		TST.B	(A7)+
0002079e 67 06                    |g       |		BEQ	0x207a6
000207a0 1f 01                    |        |		MOVE.B	D1,-(A7)
000207a2 4e 94                    |N       |		JSR	(A4)
000207a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207a8 1f 02                    |        |		MOVE.B	D2,-(A7)
000207aa 4e 90                    |N       |		JSR	(A0)
000207ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207ae 4a 1f                    |J       |		TST.B	(A7)+
000207b0 67 06                    |g       |		BEQ	0x207b8
000207b2 1f 02                    |        |		MOVE.B	D2,-(A7)
000207b4 4e 94                    |N       |		JSR	(A4)
000207b6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207b8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207ba 1f 03                    |        |		MOVE.B	D3,-(A7)
000207bc 4e 90                    |N       |		JSR	(A0)
000207be 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207c0 4a 1f                    |J       |		TST.B	(A7)+
000207c2 67 06                    |g       |		BEQ	0x207ca
000207c4 1f 03                    |        |		MOVE.B	D3,-(A7)
000207c6 4e 94                    |N       |		JSR	(A4)
000207c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207ca 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000207cc 4e b9 00 02 12 c4        |N       |		JSR	exp_PREP_RUN.TYP(Sw_2)
000207d2 3e 92                    |>       |		MOVE.W	(A2),(A7)
000207d4 4e b9 00 02 13 86        |N       |		JSR	exp_PREP_RUN.VAL(Sw_2)
000207da 3e 92                    |>       |		MOVE.W	(A2),(A7)
000207dc 4e b9 00 02 1a 16        |N       |		JSR	exp_PREP_RUN.IOC(Sw_2)
000207e2 3e 92                    |>       |		MOVE.W	(A2),(A7)
000207e4 4e b9 00 02 12 40        |N    @  |		JSR	exp_PREP_RUN.SEQ(Sw_2)
000207ea 3e 92                    |>       |		MOVE.W	(A2),(A7)
000207ec 4e b9 00 02 11 7e        |N    ~  |		JSR	exp_PREP_RUN.FIU(Sw_2)
000207f2 1f 00                    |        |		MOVE.B	D0,-(A7)
000207f4 4e 90                    |N       |		JSR	(A0)
000207f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207f8 4a 1f                    |J       |		TST.B	(A7)+
000207fa 67 0a                    |g       |		BEQ	0x20806
000207fc 1f 00                    |        |		MOVE.B	D0,-(A7)
000207fe 4e b9 00 02 18 b8        |N       |		JSR	0x218b8
00020804 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020806 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020808 1f 01                    |        |		MOVE.B	D1,-(A7)
0002080a 4e 90                    |N       |		JSR	(A0)
0002080c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002080e 4a 1f                    |J       |		TST.B	(A7)+
00020810 67 0a                    |g       |		BEQ	0x2081c
00020812 1f 01                    |        |		MOVE.B	D1,-(A7)
00020814 4e b9 00 02 18 b8        |N       |		JSR	0x218b8
0002081a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002081c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002081e 1f 02                    |        |		MOVE.B	D2,-(A7)
00020820 4e 90                    |N       |		JSR	(A0)
00020822 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020824 4a 1f                    |J       |		TST.B	(A7)+
00020826 67 0a                    |g       |		BEQ	0x20832
00020828 1f 02                    |        |		MOVE.B	D2,-(A7)
0002082a 4e b9 00 02 18 b8        |N       |		JSR	0x218b8
00020830 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020832 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020834 1f 03                    |        |		MOVE.B	D3,-(A7)
00020836 4e 90                    |N       |		JSR	(A0)
00020838 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002083a 4a 1f                    |J       |		TST.B	(A7)+
0002083c 67 0a                    |g       |		BEQ	0x20848
0002083e 1f 03                    |        |		MOVE.B	D3,-(A7)
00020840 4e b9 00 02 18 b8        |N       |		JSR	0x218b8
00020846 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020848 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
0002084c 4e 5e                    |N^      |		UNLK	A6
0002084e 4e 75                    |Nu      |		RTS
00020850 ; --------------------------------------------------------------------------------------
00020850 ; OMSI PASCAL Function
00020850 ; --------------------------------------------------------------------------------------
00020850 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020854 bf d5                    |        |		CMPA.L	(A5),A7
00020856 62 06                    |b       |		BHI	0x2085e
00020858 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002085c 4e 76                    |Nv      |		TRAPV
0002085e de fc 00 20              |        |		ADDA.W	#0x20,A7
00020862 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
00020866 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
0002086c 43 f9 00 02 15 56        |C    V  |		LEA.L	0x21556,A1
00020872 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020874 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
00020876 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020878 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
0002087a 4e b9 00 02 11 f2        |N       |		JSR	exp_FREEZE_WORLD.FIU()
00020880 4e b9 00 02 12 92        |N       |		JSR	exp_RUN_NORMAL.TYP()
00020886 4e b9 00 02 13 54        |N    T  |		JSR	exp_RUN_NORMAL.VAL()
0002088c 4e b9 00 02 12 26        |N    &  |		JSR	exp_RUN_CHECK.SEQ()
00020892 4e b9 00 02 19 fc        |N       |		JSR	exp_RUN_CHECK.IOC()
00020898 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002089a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002089c 4e 90                    |N       |		JSR	(A0)
0002089e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208a0 4a 1f                    |J       |		TST.B	(A7)+
000208a2 67 06                    |g       |		BEQ	0x208aa
000208a4 1f 00                    |        |		MOVE.B	D0,-(A7)
000208a6 4e 91                    |N       |		JSR	(A1)
000208a8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208aa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208ac 1f 01                    |        |		MOVE.B	D1,-(A7)
000208ae 4e 90                    |N       |		JSR	(A0)
000208b0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208b2 4a 1f                    |J       |		TST.B	(A7)+
000208b4 67 06                    |g       |		BEQ	0x208bc
000208b6 1f 01                    |        |		MOVE.B	D1,-(A7)
000208b8 4e 91                    |N       |		JSR	(A1)
000208ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208bc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208be 1f 02                    |        |		MOVE.B	D2,-(A7)
000208c0 4e 90                    |N       |		JSR	(A0)
000208c2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208c4 4a 1f                    |J       |		TST.B	(A7)+
000208c6 67 06                    |g       |		BEQ	0x208ce
000208c8 1f 02                    |        |		MOVE.B	D2,-(A7)
000208ca 4e 91                    |N       |		JSR	(A1)
000208cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208ce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208d0 1f 03                    |        |		MOVE.B	D3,-(A7)
000208d2 4e 90                    |N       |		JSR	(A0)
000208d4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208d6 4a 1f                    |J       |		TST.B	(A7)+
000208d8 67 06                    |g       |		BEQ	0x208e0
000208da 1f 03                    |        |		MOVE.B	D3,-(A7)
000208dc 4e 91                    |N       |		JSR	(A1)
000208de 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208e0 4e b9 00 02 11 4c        |N    L  |		JSR	exp_RUN_NORMAL.FIU()
000208e6 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
000208ea 4e 5e                    |N^      |		UNLK	A6
000208ec 4e 75                    |Nu      |		RTS
000208ee ; --------------------------------------------------------------------------------------
000208ee ; OMSI PASCAL Function
000208ee ;    <LVAR  0x010 4(r)>
000208ee ;    <LVAR  0x00c 4(r)>
000208ee ;    <LVAR  0x008 4(r)>
000208ee ;    <LVAR -0x004 @>
000208ee ;    <LVAR -0x005 @ 1(rw)>
000208ee ;    <LVAR -0x006 @>
000208ee ;    <LVAR -0x007 @ 1(r)>
000208ee ; --------------------------------------------------------------------------------------
000208ee 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
000208f2 bf d5                    |        |		CMPA.L	(A5),A7
000208f4 62 06                    |b       |		BHI	0x208fc
000208f6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208fa 4e 76                    |Nv      |		TRAPV
000208fc de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00020900 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020904 43 f9 00 01 04 c0        |C       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A1
0002090a 45 f9 00 02 14 ac        |E       |		LEA.L	0x214ac,A2
00020910 47 ee ff fb              |G       |		LEA.L	(A6-0x5),A3
00020914 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020916 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020918 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002091a 7a 0d                    |z       |		MOVEQ.L	#0x0d,D5
0002091c 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
0002091e 4e b9 00 02 11 f2        |N       |		JSR	exp_FREEZE_WORLD.FIU()
00020924 4e b9 00 02 19 e6        |N       |		JSR	exp_RESET.IOC()
0002092a 4e b9 00 02 13 70        |N    p  |		JSR	exp_RESET.VAL()
00020930 4e b9 00 02 12 ae        |N       |		JSR	exp_RESET.TYP()
00020936 4e b9 00 02 12 10        |N       |		JSR	exp_RESET.SEQ()
0002093c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002093e 1f 04                    |        |		MOVE.B	D4,-(A7)
00020940 4e 91                    |N       |		JSR	(A1)
00020942 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020944 4a 1f                    |J       |		TST.B	(A7)+
00020946 67 06                    |g       |		BEQ	0x2094e
00020948 1f 04                    |        |		MOVE.B	D4,-(A7)
0002094a 4e 92                    |N       |		JSR	(A2)
0002094c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002094e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020950 1f 05                    |        |		MOVE.B	D5,-(A7)
00020952 4e 91                    |N       |		JSR	(A1)
00020954 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020956 4a 1f                    |J       |		TST.B	(A7)+
00020958 67 06                    |g       |		BEQ	0x20960
0002095a 1f 05                    |        |		MOVE.B	D5,-(A7)
0002095c 4e 92                    |N       |		JSR	(A2)
0002095e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020960 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020962 1f 02                    |        |		MOVE.B	D2,-(A7)
00020964 4e 91                    |N       |		JSR	(A1)
00020966 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020968 4a 1f                    |J       |		TST.B	(A7)+
0002096a 67 06                    |g       |		BEQ	0x20972
0002096c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002096e 4e 92                    |N       |		JSR	(A2)
00020970 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020972 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020974 1f 06                    |        |		MOVE.B	D6,-(A7)
00020976 4e 91                    |N       |		JSR	(A1)
00020978 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002097a 4a 1f                    |J       |		TST.B	(A7)+
0002097c 67 06                    |g       |		BEQ	0x20984
0002097e 1f 06                    |        |		MOVE.B	D6,-(A7)
00020980 4e 92                    |N       |		JSR	(A2)
00020982 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020984 4e b9 00 02 11 68        |N    h  |		JSR	exp_RESET.FIU()
0002098a 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0002098e 48 50                    |HP      |		PEA.L	(A0)
00020990 4e b9 00 02 12 5a        |N    Z  |		JSR	exp_HALT.SEQ(&Fr)
00020996 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020998 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002099c 42 10                    |B       |		CLR.B	(A0)
0002099e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000209a2 42 10                    |B       |		CLR.B	(A0)
000209a4 42 28 00 0b              |B(      |		CLR.B	(A0+0xb)
000209a8 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
000209ac 7e 02                    |~       |		MOVEQ.L	#0x02,D7
000209ae 0c 07 00 05              |        |		CMPI.B	#0x05,D7
000209b2 67 20                    |g       |		BEQ	0x209d4
000209b4 10 07                    |        |		MOVE.B	D7,D0
000209b6 48 80                    |H       |		EXTB.W	D0
000209b8 41 fa fa 56              |A  V    |		LEA.L	0x20410,A0
000209bc 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000209c0 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000209c4 48 53                    |HS      |		PEA.L	(A3)
000209c6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000209ca 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000209d0 de c2                    |        |		ADDA.W	D2,A7
000209d2 60 1a                    |`       |		BRA	0x209ee
000209d4 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000209d8 4e b9 00 02 12 70        |N    p  |		JSR	exp_GET_MISC_ERRORS.SEQ(&Sr_1)
000209de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209e0 42 80                    |B       |		CLR.L	D0
000209e2 10 2e ff f9              | .      |		MOVE.B	(A6-0x7),D0
000209e6 0c 40 00 1f              | @      |		CMPI.W	#0x001f,D0
000209ea 67 02                    |g       |		BEQ	0x209ee
000209ec 16 83                    |        |		MOVE.B	D3,(A3)
000209ee 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000209f2 10 07                    |        |		MOVE.B	D7,D0
000209f4 48 80                    |H       |		EXTB.W	D0
000209f6 3f 00                    |?       |		MOVE.W	D0,-(A7)
000209f8 12 13                    |        |		MOVE.B	(A3),D1
000209fa 48 81                    |H       |		EXTB.W	D1
000209fc 43 83                    |C       |		CHK.W	D3,D1
000209fe 11 81 00 00              |        |		MOVE.B	D1,(A0+D0.W)
00020a02 4a 41                    |JA      |		TST.W	D1
00020a04 67 06                    |g       |		BEQ	0x20a0c
00020a06 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020a0a 10 83                    |        |		MOVE.B	D3,(A0)
00020a0c 3e 1f                    |>       |		MOVE.W	(A7)+,D7
00020a0e 52 47                    |RG      |		ADDQ.W	#0x1,D7
00020a10 0c 47 00 0a              | G      |		CMPI.W	#0x000a,D7
00020a14 6f 98                    |o       |		BLE	0x209ae
00020a16 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00020a1a 4e 5e                    |N^      |		UNLK	A6
00020a1c 4e 75                    |Nu      |		RTS
00020a1e ; --------------------------------------------------------------------------------------
00020a1e ; OMSI PASCAL Function
00020a1e ;    <LVAR  0x008 2(r)>
00020a1e ; --------------------------------------------------------------------------------------
00020a1e 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
00020a22 bf d5                    |        |		CMPA.L	(A5),A7
00020a24 62 06                    |b       |		BHI	0x20a2c
00020a26 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a2a 4e 76                    |Nv      |		TRAPV
00020a2c de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00020a30 48 e7 e0 c8              |H       |		MOVEM.L	A4+A1+A0+D2+D1+D0,-(A7)
00020a34 43 f9 00 02 1c 4a        |C    J  |		LEA.L	0x21c4a,A1
00020a3a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020a3c 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020a3e 48 51                    |HQ      |		PEA.L	(A1)
00020a40 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020a46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a48 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020a4c 41 bc 00 1f              |A       |		CHK.W	#0x1f,D0
00020a50 c1 c2                    |        |		MULS.W	D2,D0
00020a52 41 fa f8 74              |A  t    |		LEA.L	0x202c8,A0
00020a56 41 f0 00 0a              |A       |		LEA.L	(A0+D0.W+#0xa),A0
00020a5a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020a5c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a5e 51 c8 ff fc              |Q       |		DBF	D0,0x20a5c
00020a62 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a64 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a68 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a6a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a6c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a74 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00020a76 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a78 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020a7a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020a80 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a82 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020a84 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020a86 10 39 00 02 1c 44        | 9   D  |		MOVE.B	0x21c44,D0
00020a8c 48 80                    |H       |		EXTB.W	D0
00020a8e 41 81                    |A       |		CHK.W	D1,D0
00020a90 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a92 10 39 00 02 1c 45        | 9   E  |		MOVE.B	0x21c45,D0
00020a98 48 80                    |H       |		EXTB.W	D0
00020a9a 41 81                    |A       |		CHK.W	D1,D0
00020a9c 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a9e 48 79 00 02 1c 46        |Hy   F  |		PEA.L	0x21c46
00020aa4 48 79 00 02 1c 4e        |Hy   N  |		PEA.L	0x21c4e
00020aaa 48 79 00 02 1c 52        |Hy   R  |		PEA.L	0x21c52
00020ab0 48 79 00 02 1c 56        |Hy   V  |		PEA.L	0x21c56
00020ab6 48 79 00 02 1c 57        |Hy   W  |		PEA.L	0x21c57
00020abc 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
00020ac2 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020ac6 4c df 13 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A4
00020aca 4e 5e                    |N^      |		UNLK	A6
00020acc 4e 75                    |Nu      |		RTS
00020ace ; --------------------------------------------------------------------------------------
00020ace ; OMSI PASCAL Function
00020ace ;    <LVAR  0x008 1(r)>
00020ace ; --------------------------------------------------------------------------------------
00020ace 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020ad2 bf d5                    |        |		CMPA.L	(A5),A7
00020ad4 62 06                    |b       |		BHI	0x20adc
00020ad6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ada 4e 76                    |Nv      |		TRAPV
00020adc de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020ae0 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00020ae4 45 f9 00 02 1c 56        |E    V  |		LEA.L	0x21c56,A2
00020aea 47 f9 00 02 1c 57        |G    W  |		LEA.L	0x21c57,A3
00020af0 14 ae 00 08              |        |		MOVE.B	(A6+0x8),(A2)
00020af4 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020af8 0c 00 00 03              |        |		CMPI.B	#0x03,D0
00020afc 67 04                    |g       |		BEQ	0x20b02
00020afe 16 bc 00 29              |   )    |		MOVE.B	#0x29,(A3)
00020b02 42 27                    |B'      |		CLR.B	-(A7)
00020b04 2f 39 00 02 1c 4e        |/9   N  |		MOVE.L	0x21c4e,-(A7)
00020b0a 2f 39 00 02 1c 52        |/9   R  |		MOVE.L	0x21c52,-(A7)
00020b10 1f 12                    |        |		MOVE.B	(A2),-(A7)
00020b12 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b14 20 4f                    | O      |		MOVEA.L	A7,A0
00020b16 22 4b                    |"K      |		MOVEA.L	A3,A1
00020b18 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020b1a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020b1c 51 c8 ff fc              |Q       |		DBF	D0,0x20b1a
00020b20 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020b26 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b2a 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00020b2e 4e 5e                    |N^      |		UNLK	A6
00020b30 4e 75                    |Nu      |		RTS
00020b32 ; --------------------------------------------------------------------------------------
00020b32 ; OMSI PASCAL Function
00020b32 ;    <LVAR  0x008 1(rw)>
00020b32 ;    <LVAR -0x004 @ 1(rw)>
00020b32 ; --------------------------------------------------------------------------------------
00020b32 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00020b36 bf d5                    |        |		CMPA.L	(A5),A7
00020b38 62 06                    |b       |		BHI	0x20b40
00020b3a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b3e 4e 76                    |Nv      |		TRAPV
00020b40 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020b44 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020b48 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00020b4c 42 27                    |B'      |		CLR.B	-(A7)
00020b4e 48 50                    |HP      |		PEA.L	(A0)
00020b50 4e b9 00 02 11 2e        |N    .  |		JSR	exp_READ_PAREG.FIU(Sw_1, &Sr_1)
00020b56 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b58 42 80                    |B       |		CLR.L	D0
00020b5a 10 10                    |        |		MOVE.B	(A0),D0
00020b5c 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00020b60 10 80                    |        |		MOVE.B	D0,(A0)
00020b62 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00020b66 4a 00                    |J       |		TST.B	D0
00020b68 66 04                    |f       |		BNE	0x20b6e
00020b6a 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
00020b6e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020b72 4e 5e                    |N^      |		UNLK	A6
00020b74 4e 75                    |Nu      |		RTS
00020b76 ; --------------------------------------------------------------------------------------
00020b76 ; OMSI PASCAL Function
00020b76 ;    <LVAR  0x008 1(r)>
00020b76 ;    <LVAR -0x00b @>
00020b76 ;    <LVAR -0x00c @ 1(r)>
00020b76 ;    <LVAR -0x010 @ 4(r)>
00020b76 ;    <LVAR -0x014 @ 4(r)>
00020b76 ;    <LVAR -0x019 1(r)>
00020b76 ;    <LVAR -0x020 @>
00020b76 ;    <LVAR -0x02c @>
00020b76 ;    <LVAR -0x02d @ 1(r)>
00020b76 ;    <LVAR -0x02e @ 1(r)>
00020b76 ; --------------------------------------------------------------------------------------
00020b76 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00020b7a bf d5                    |        |		CMPA.L	(A5),A7
00020b7c 62 06                    |b       |		BHI	0x20b84
00020b7e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b82 4e 76                    |Nv      |		TRAPV
00020b84 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020b88 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00020b8c 45 f9 00 02 1c 4a        |E    J  |		LEA.L	0x21c4a,A2
00020b92 47 f9 00 02 1c 46        |G    F  |		LEA.L	0x21c46,A3
00020b98 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020b9a 74 18                    |t       |		MOVEQ.L	#0x18,D2
00020b9c 48 6e ff d2              |Hn      |		PEA.L	(A6-0x2e)
00020ba0 48 6e ff d3              |Hn      |		PEA.L	(A6-0x2d)
00020ba4 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00020ba8 4e ba fd 44              |N  D    |		JSR	0x208ee
00020bac de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020bb0 4a 2e ff d3              |J.      |		TST.B	(A6-0x2d)
00020bb4 67 00 00 d6              |g       |		BEQ	0x20c8c
00020bb8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020bba 4e ba ff 76              |N  v    |		JSR	0x20b32
00020bbe 4a 1f                    |J       |		TST.B	(A7)+
00020bc0 67 22                    |g"      |		BEQ	0x20be4
00020bc2 3f 3c ff cf              |?<      |		MOVE.W	#0xffcf,-(A7)
00020bc6 42 27                    |B'      |		CLR.B	-(A7)
00020bc8 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
00020bcc 4e b9 00 02 13 36        |N    6  |		JSR	exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
00020bd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bd4 42 80                    |B       |		CLR.L	D0
00020bd6 10 2e ff e7              | .      |		MOVE.B	(A6-0x19),D0
00020bda b0 42                    | B      |		CMP.W	D2,D0
00020bdc 66 06                    |f       |		BNE	0x20be4
00020bde 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020be0 60 00 00 ee              |`       |		BRA	0x20cd0
00020be4 48 52                    |HR      |		PEA.L	(A2)
00020be6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020bec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bee 3e ba f6 9e              |>       |		MOVE.W	0x2028e,(A7)
00020bf2 3f 3a f6 98              |?:      |		MOVE.W	0x2028c,-(A7)
00020bf6 3f 3a f6 92              |?:      |		MOVE.W	0x2028a,-(A7)
00020bfa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bfc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c00 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c02 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00020c06 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c0e 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020c10 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c12 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020c14 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020c1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c1c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020c1e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020c20 10 39 00 02 1c 44        | 9   D  |		MOVE.B	0x21c44,D0
00020c26 48 80                    |H       |		EXTB.W	D0
00020c28 41 81                    |A       |		CHK.W	D1,D0
00020c2a 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c2c 10 39 00 02 1c 45        | 9   E  |		MOVE.B	0x21c45,D0
00020c32 48 80                    |H       |		EXTB.W	D0
00020c34 41 81                    |A       |		CHK.W	D1,D0
00020c36 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c38 48 53                    |HS      |		PEA.L	(A3)
00020c3a 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00020c3e 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00020c42 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020c46 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020c4a 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
00020c50 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020c54 4a 13                    |J       |		TST.B	(A3)
00020c56 67 2a                    |g*      |		BEQ	0x20c82
00020c58 42 27                    |B'      |		CLR.B	-(A7)
00020c5a 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00020c5e 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00020c62 1f 2e ff f4              | .      |		MOVE.B	(A6-0xc),-(A7)
00020c66 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c68 20 4f                    | O      |		MOVEA.L	A7,A0
00020c6a 43 ee ff f5              |C       |		LEA.L	(A6-0xb),A1
00020c6e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020c70 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c72 51 c8 ff fc              |Q       |		DBF	D0,0x20c70
00020c76 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020c7c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020c80 60 08                    |`       |		BRA	0x20c8a
00020c82 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c84 4e ba fe 48              |N  H    |		JSR	0x20ace
00020c88 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c8a 60 4a                    |`J      |		BRA	0x20cd6
00020c8c 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00020c90 67 06                    |g       |		BEQ	0x20c98
00020c92 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020c96 60 ec                    |`       |		BRA	0x20c84
00020c98 4a 2e ff d2              |J.      |		TST.B	(A6-0x2e)
00020c9c 66 06                    |f       |		BNE	0x20ca4
00020c9e 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020ca2 60 e0                    |`       |		BRA	0x20c84
00020ca4 3f 3c ff cf              |?<      |		MOVE.W	#0xffcf,-(A7)
00020ca8 42 27                    |B'      |		CLR.B	-(A7)
00020caa 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
00020cae 4e b9 00 02 13 36        |N    6  |		JSR	exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
00020cb4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cb6 42 80                    |B       |		CLR.L	D0
00020cb8 10 2e ff e7              | .      |		MOVE.B	(A6-0x19),D0
00020cbc 0c 40 00 ff              | @      |		CMPI.W	#0x00ff,D0
00020cc0 67 14                    |g       |		BEQ	0x20cd6
00020cc2 4a 40                    |J@      |		TST.W	D0
00020cc4 6d 06                    |m       |		BLT	0x20ccc
00020cc6 0c 40 00 1f              | @      |		CMPI.W	#0x001f,D0
00020cca 6f 02                    |o       |		BLE	0x20cce
00020ccc 60 b4                    |`       |		BRA	0x20c82
00020cce 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cd0 4e ba fd 4c              |N  L    |		JSR	0x20a1e
00020cd4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cd6 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020cda 4e 5e                    |N^      |		UNLK	A6
00020cdc 4e 75                    |Nu      |		RTS
00020cde ; --------------------------------------------------------------------------------------
00020cde ; OMSI PASCAL Function
00020cde ;    <LVAR  0x008 4(r)>
00020cde ;    <LVAR -0x00a @>
00020cde ;    <LVAR -0x00b @ 1(r)>
00020cde ;    <LVAR -0x00c @>
00020cde ; --------------------------------------------------------------------------------------
00020cde 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020ce2 bf d5                    |        |		CMPA.L	(A5),A7
00020ce4 62 06                    |b       |		BHI	0x20cec
00020ce6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cea 4e 76                    |Nv      |		TRAPV
00020cec de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020cf0 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00020cf4 43 ee ff f5              |C       |		LEA.L	(A6-0xb),A1
00020cf8 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00020cfc 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00020d00 49 f9 00 01 04 84        |I       |		LEA.L	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool),A4
00020d06 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00020d08 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020d0a 2a 3c 00 00 02 58        |*<   X  |		MOVE.L	#0x258,D5
00020d10 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d12 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020d16 42 10                    |B       |		CLR.B	(A0)
00020d18 2f 3c 00 00 98 96        |/<      |		MOVE.L	#0x9896,-(A7)
00020d1e 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020d24 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d26 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
00020d2a 48 52                    |HR      |		PEA.L	(A2)
00020d2c 48 51                    |HQ      |		PEA.L	(A1)
00020d2e 48 53                    |HS      |		PEA.L	(A3)
00020d30 4e 94                    |N       |		JSR	(A4)
00020d32 de c1                    |        |		ADDA.W	D1,A7
00020d34 10 07                    |        |		MOVE.B	D7,D0
00020d36 80 11                    |        |		OR.B	(A1),D0
00020d38 48 80                    |H       |		EXTB.W	D0
00020d3a 41 82                    |A       |		CHK.W	D2,D0
00020d3c 1e 00                    |        |		MOVE.B	D0,D7
00020d3e 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00020d42 48 52                    |HR      |		PEA.L	(A2)
00020d44 48 51                    |HQ      |		PEA.L	(A1)
00020d46 48 53                    |HS      |		PEA.L	(A3)
00020d48 4e 94                    |N       |		JSR	(A4)
00020d4a de c1                    |        |		ADDA.W	D1,A7
00020d4c 10 07                    |        |		MOVE.B	D7,D0
00020d4e 80 11                    |        |		OR.B	(A1),D0
00020d50 48 80                    |H       |		EXTB.W	D0
00020d52 41 82                    |A       |		CHK.W	D2,D0
00020d54 1e 00                    |        |		MOVE.B	D0,D7
00020d56 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020d5a 48 52                    |HR      |		PEA.L	(A2)
00020d5c 48 51                    |HQ      |		PEA.L	(A1)
00020d5e 48 53                    |HS      |		PEA.L	(A3)
00020d60 4e 94                    |N       |		JSR	(A4)
00020d62 de c1                    |        |		ADDA.W	D1,A7
00020d64 10 07                    |        |		MOVE.B	D7,D0
00020d66 80 11                    |        |		OR.B	(A1),D0
00020d68 48 80                    |H       |		EXTB.W	D0
00020d6a 41 82                    |A       |		CHK.W	D2,D0
00020d6c 1e 00                    |        |		MOVE.B	D0,D7
00020d6e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020d72 48 52                    |HR      |		PEA.L	(A2)
00020d74 48 51                    |HQ      |		PEA.L	(A1)
00020d76 48 53                    |HS      |		PEA.L	(A3)
00020d78 4e 94                    |N       |		JSR	(A4)
00020d7a de c1                    |        |		ADDA.W	D1,A7
00020d7c 10 07                    |        |		MOVE.B	D7,D0
00020d7e 80 11                    |        |		OR.B	(A1),D0
00020d80 48 80                    |H       |		EXTB.W	D0
00020d82 41 82                    |A       |		CHK.W	D2,D0
00020d84 1e 00                    |        |		MOVE.B	D0,D7
00020d86 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020d8a 48 52                    |HR      |		PEA.L	(A2)
00020d8c 48 51                    |HQ      |		PEA.L	(A1)
00020d8e 48 53                    |HS      |		PEA.L	(A3)
00020d90 4e 94                    |N       |		JSR	(A4)
00020d92 de c1                    |        |		ADDA.W	D1,A7
00020d94 10 07                    |        |		MOVE.B	D7,D0
00020d96 80 11                    |        |		OR.B	(A1),D0
00020d98 48 80                    |H       |		EXTB.W	D0
00020d9a 41 82                    |A       |		CHK.W	D2,D0
00020d9c 1e 00                    |        |		MOVE.B	D0,D7
00020d9e 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00020da0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020da2 1f 06                    |        |		MOVE.B	D6,-(A7)
00020da4 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020daa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020dac 4a 1f                    |J       |		TST.B	(A7)+
00020dae 67 16                    |g       |		BEQ	0x20dc6
00020db0 1f 06                    |        |		MOVE.B	D6,-(A7)
00020db2 48 52                    |HR      |		PEA.L	(A2)
00020db4 48 51                    |HQ      |		PEA.L	(A1)
00020db6 48 53                    |HS      |		PEA.L	(A3)
00020db8 4e 94                    |N       |		JSR	(A4)
00020dba de c1                    |        |		ADDA.W	D1,A7
00020dbc 10 07                    |        |		MOVE.B	D7,D0
00020dbe 80 11                    |        |		OR.B	(A1),D0
00020dc0 48 80                    |H       |		EXTB.W	D0
00020dc2 41 82                    |A       |		CHK.W	D2,D0
00020dc4 1e 00                    |        |		MOVE.B	D0,D7
00020dc6 52 06                    |R       |		ADDQ.B	#0x1,D6
00020dc8 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
00020dcc 6f d2                    |o       |		BLE	0x20da0
00020dce 53 85                    |S       |		SUBQ.L	#0x1,D5
00020dd0 67 06                    |g       |		BEQ	0x20dd8
00020dd2 4a 07                    |J       |		TST.B	D7
00020dd4 67 00 ff 42              |g  B    |		BEQ	0x20d18
00020dd8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020ddc 10 87                    |        |		MOVE.B	D7,(A0)
00020dde 44 10                    |D       |		NEG.B	(A0)
00020de0 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00020de2 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00020de6 4e 5e                    |N^      |		UNLK	A6
00020de8 4e 75                    |Nu      |		RTS
00020dea ; --------------------------------------------------------------------------------------
00020dea ; OMSI PASCAL Function
00020dea ;    <LVAR -0x004 @>
00020dea ; --------------------------------------------------------------------------------------
00020dea 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00020dee bf d5                    |        |		CMPA.L	(A5),A7
00020df0 62 06                    |b       |		BHI	0x20df8
00020df2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020df6 4e 76                    |Nv      |		TRAPV
00020df8 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020dfc 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00020e00 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020e02 41 fa f4 9e              |A       |		LEA.L	0x202a2,A0
00020e06 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020e08 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e0a 51 c8 ff fc              |Q       |		DBF	D0,0x20e08
00020e0e 42 27                    |B'      |		CLR.B	-(A7)
00020e10 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e12 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020e16 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e18 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020e1c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e22 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e24 1e 81                    |        |		MOVE.B	D1,(A7)
00020e26 1f 01                    |        |		MOVE.B	D1,-(A7)
00020e28 1f 01                    |        |		MOVE.B	D1,-(A7)
00020e2a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020e2e 4e ba f7 02              |N       |		JSR	0x20532
00020e32 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020e36 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020e3a 4e 5e                    |N^      |		UNLK	A6
00020e3c 4e 75                    |Nu      |		RTS
00020e3e ; --------------------------------------------------------------------------------------
00020e3e ; OMSI PASCAL Function
00020e3e ; --------------------------------------------------------------------------------------
00020e3e 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
00020e42 bf d5                    |        |		CMPA.L	(A5),A7
00020e44 62 06                    |b       |		BHI	0x20e4c
00020e46 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e4a 4e 76                    |Nv      |		TRAPV
00020e4c de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020e50 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020e54 45 f9 00 01 04 c0        |E       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A2
00020e5a 47 fa f5 c0              |G       |		LEA.L	0x2041c,A3
00020e5e 49 f9 00 02 16 e8        |I       |		LEA.L	0x216e8,A4
00020e64 72 14                    |r       |		MOVEQ.L	#0x14,D1
00020e66 74 16                    |t       |		MOVEQ.L	#0x16,D2
00020e68 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00020e6a 78 0d                    |x       |		MOVEQ.L	#0x0d,D4
00020e6c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020e6e 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00020e70 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e72 1f 03                    |        |		MOVE.B	D3,-(A7)
00020e74 4e 92                    |N       |		JSR	(A2)
00020e76 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e78 4a 1f                    |J       |		TST.B	(A7)+
00020e7a 67 14                    |g       |		BEQ	0x20e90
00020e7c 1f 03                    |        |		MOVE.B	D3,-(A7)
00020e7e 9e c1                    |        |		SUBA.W	D1,A7
00020e80 20 4f                    | O      |		MOVEA.L	A7,A0
00020e82 22 4b                    |"K      |		MOVEA.L	A3,A1
00020e84 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020e86 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e88 51 c8 ff fc              |Q       |		DBF	D0,0x20e86
00020e8c 4e 94                    |N       |		JSR	(A4)
00020e8e de c2                    |        |		ADDA.W	D2,A7
00020e90 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e92 1f 04                    |        |		MOVE.B	D4,-(A7)
00020e94 4e 92                    |N       |		JSR	(A2)
00020e96 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e98 4a 1f                    |J       |		TST.B	(A7)+
00020e9a 67 14                    |g       |		BEQ	0x20eb0
00020e9c 1f 04                    |        |		MOVE.B	D4,-(A7)
00020e9e 9e c1                    |        |		SUBA.W	D1,A7
00020ea0 20 4f                    | O      |		MOVEA.L	A7,A0
00020ea2 22 4b                    |"K      |		MOVEA.L	A3,A1
00020ea4 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020ea6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ea8 51 c8 ff fc              |Q       |		DBF	D0,0x20ea6
00020eac 4e 94                    |N       |		JSR	(A4)
00020eae de c2                    |        |		ADDA.W	D2,A7
00020eb0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020eb2 1f 05                    |        |		MOVE.B	D5,-(A7)
00020eb4 4e 92                    |N       |		JSR	(A2)
00020eb6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020eb8 4a 1f                    |J       |		TST.B	(A7)+
00020eba 67 14                    |g       |		BEQ	0x20ed0
00020ebc 1f 05                    |        |		MOVE.B	D5,-(A7)
00020ebe 9e c1                    |        |		SUBA.W	D1,A7
00020ec0 20 4f                    | O      |		MOVEA.L	A7,A0
00020ec2 22 4b                    |"K      |		MOVEA.L	A3,A1
00020ec4 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020ec6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ec8 51 c8 ff fc              |Q       |		DBF	D0,0x20ec6
00020ecc 4e 94                    |N       |		JSR	(A4)
00020ece de c2                    |        |		ADDA.W	D2,A7
00020ed0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ed2 1f 06                    |        |		MOVE.B	D6,-(A7)
00020ed4 4e 92                    |N       |		JSR	(A2)
00020ed6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ed8 4a 1f                    |J       |		TST.B	(A7)+
00020eda 67 14                    |g       |		BEQ	0x20ef0
00020edc 1f 06                    |        |		MOVE.B	D6,-(A7)
00020ede 9e c1                    |        |		SUBA.W	D1,A7
00020ee0 20 4f                    | O      |		MOVEA.L	A7,A0
00020ee2 22 4b                    |"K      |		MOVEA.L	A3,A1
00020ee4 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020ee6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ee8 51 c8 ff fc              |Q       |		DBF	D0,0x20ee6
00020eec 4e 94                    |N       |		JSR	(A4)
00020eee de c2                    |        |		ADDA.W	D2,A7
00020ef0 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020ef4 4e 5e                    |N^      |		UNLK	A6
00020ef6 4e 75                    |Nu      |		RTS
00020ef8 ; --------------------------------------------------------------------------------------
00020ef8 ; OMSI PASCAL Function
00020ef8 ; --------------------------------------------------------------------------------------
00020ef8					START:
00020ef8 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020efc 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020f02					MAIN:
00020f02 45 f9 00 02 1c 40        |E    @  |		LEA.L	0x21c40,A2
00020f08 47 f9 00 02 1c 45        |G    E  |		LEA.L	0x21c45,A3
00020f0e 49 f9 00 02 1c 47        |I    G  |		LEA.L	0x21c47,A4
00020f14 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020f16 74 07                    |t       |		MOVEQ.L	#0x07,D2
00020f18 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
00020f1a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020f20 48 78 00 00              |Hx      |		PEA.L	0x0
00020f24 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020f2a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f2c 48 52                    |HR      |		PEA.L	(A2)
00020f2e 48 79 00 02 1c 44        |Hy   D  |		PEA.L	0x21c44
00020f34 48 53                    |HS      |		PEA.L	(A3)
00020f36 48 54                    |HT      |		PEA.L	(A4)
00020f38 48 79 00 02 1c 48        |Hy   H  |		PEA.L	0x21c48
00020f3e 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)
00020f44 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020f48 1e 93                    |        |		MOVE.B	(A3),(A7)
00020f4a 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020f50 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020f52 20 4f                    | O      |		MOVEA.L	A7,A0
00020f54 43 fa f3 4c              |C  L    |		LEA.L	0x202a2,A1
00020f58 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020f5a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020f5c 51 c8 ff fc              |Q       |		DBF	D0,0x20f5a
00020f60 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f62 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f68 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020f6a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f72 23 df 00 02 1c 4e        |#    N  |		MOVE.L	(A7)+,0x21c4e
00020f78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f7a 48 79 00 02 1c 52        |Hy   R  |		PEA.L	0x21c52
00020f80 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020f86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f88 48 79 00 02 1c 4a        |Hy   J  |		PEA.L	0x21c4a
00020f8e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020f94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f96 42 39 00 02 1c 56        |B9   V  |		CLR.B	0x21c56
00020f9c 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020f9e 23 c0 00 02 1c 60        |#    `  |		MOVE.L	D0,0x21c60
00020fa4 b0 82                    |        |		CMP.L	D2,D0
00020fa6 63 02                    |c       |		BLS	0x20faa
00020fa8 4e 4f                    |NO      |		TRAP	#15
00020faa 41 f9 00 02 1c 36        |A    6  |		LEA.L	0x21c36,A0
00020fb0 42 30 08 21              |B0 !    |		CLR.B	(A0+D0.L+#0x21)
00020fb4 52 80                    |R       |		ADDQ.L	#0x1,D0
00020fb6 b0 82                    |        |		CMP.L	D2,D0
00020fb8 6f e4                    |o       |		BLE	0x20f9e
00020fba 13 c1 00 02 1c 46        |     F  |		MOVE.B	D1,0x21c46
00020fc0 42 80                    |B       |		CLR.L	D0
00020fc2 10 12                    |        |		MOVE.B	(A2),D0
00020fc4 0c 40 00 20              | @      |		CMPI.W	#0x0020,D0
00020fc8 63 2c                    |c,      |		BLS	0x20ff6
00020fca 41 fa f2 fc              |A       |		LEA.L	0x202c8,A0
00020fce 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020fd0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020fd2 51 c8 ff fc              |Q       |		DBF	D0,0x20fd0
00020fd6 1f 03                    |        |		MOVE.B	D3,-(A7)
00020fd8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fda 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020fde 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020fe0 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00020fe4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020fea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fec 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020ff2 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020ff6 4a 39 00 02 1c 48        |J9   H  |		TST.B	0x21c48
00020ffc 67 04                    |g       |		BEQ	0x21002
00020ffe 4e ba f5 fa              |N       |		JSR	0x205fa
00021002 4a 14                    |J       |		TST.B	(A4)
00021004 67 2a                    |g*      |		BEQ	0x21030
00021006 4e ba fd e2              |N       |		JSR	0x20dea
0002100a 2f 3a f4 00              |/:      |		MOVE.L	0x2040c,-(A7)
0002100e 2f 3a f3 f8              |/:      |		MOVE.L	0x20408,-(A7)
00021012 42 27                    |B'      |		CLR.B	-(A7)
00021014 4e b9 00 02 13 a0        |N       |		JSR	exp_LOAD_WDR.VAL(Sw_8, Sw_1)
0002101a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002101c 2e ba f3 ee              |.       |		MOVE.L	0x2040c,(A7)
00021020 2f 3a f3 e6              |/:      |		MOVE.L	0x20408,-(A7)
00021024 42 27                    |B'      |		CLR.B	-(A7)
00021026 4e b9 00 02 12 de        |N       |		JSR	exp_LOAD_WDR.TYP(Sw_8, Sw_1)
0002102c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021030 4e ba fe 0c              |N       |		JSR	0x20e3e
00021034 13 c3 00 02 1c 3e        |     >  |		MOVE.B	D3,0x21c3e
0002103a 13 d2 00 02 1c 3f        |     ?  |		MOVE.B	(A2),0x21c3f
00021040 3f 39 00 02 1c 3e        |?9   >  |		MOVE.W	0x21c3e,-(A7)
00021046 4e ba f6 92              |N       |		JSR	0x206da
0002104a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002104c 42 39 00 02 1c 41        |B9   A  |		CLR.B	0x21c41
00021052 42 39 00 02 1c 42        |B9   B  |		CLR.B	0x21c42
00021058 42 80                    |B       |		CLR.L	D0
0002105a 10 12                    |        |		MOVE.B	(A2),D0
0002105c b0 41                    | A      |		CMP.W	D1,D0
0002105e 66 22                    |f"      |		BNE	0x21082
00021060 13 c1 00 02 1c 41        |     A  |		MOVE.B	D1,0x21c41
00021066 13 c1 00 02 1c 42        |     B  |		MOVE.B	D1,0x21c42
0002106c 42 80                    |B       |		CLR.L	D0
0002106e 10 39 00 02 1c 3f        | 9   ?  |		MOVE.B	0x21c3f,D0
00021074 53 40                    |S@      |		SUBQ.W	#0x1,D0
00021076 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002107a 13 c0 00 02 1c 3f        |     ?  |		MOVE.B	D0,0x21c3f
00021080 60 0c                    |`       |		BRA	0x2108e
00021082 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00021086 66 06                    |f       |		BNE	0x2108e
00021088 13 c1 00 02 1c 41        |     A  |		MOVE.B	D1,0x21c41
0002108e 4e ba f7 c0              |N       |		JSR	0x20850
00021092 48 79 00 02 1c 43        |Hy   C  |		PEA.L	0x21c43
00021098 4e ba fc 44              |N  D    |		JSR	0x20cde
0002109c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002109e 1e b9 00 02 1c 43        |     C  |		MOVE.B	0x21c43,(A7)
000210a4 4e ba fa d0              |N       |		JSR	0x20b76
000210a8 1e 93                    |        |		MOVE.B	(A3),(A7)
000210aa 48 79 00 02 1c 49        |Hy   I  |		PEA.L	0x21c49
000210b0 4e ba f3 7e              |N  ~    |		JSR	0x20430
000210b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210b6 1e b9 00 02 1c 46        |     F  |		MOVE.B	0x21c46,(A7)
000210bc 2f 39 00 02 1c 4e        |/9   N  |		MOVE.L	0x21c4e,-(A7)
000210c2 2f 39 00 02 1c 52        |/9   R  |		MOVE.L	0x21c52,-(A7)
000210c8 1f 39 00 02 1c 56        | 9   V  |		MOVE.B	0x21c56,-(A7)
000210ce 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000210d0 20 4f                    | O      |		MOVEA.L	A7,A0
000210d2 43 f9 00 02 1c 57        |C    W  |		LEA.L	0x21c57,A1
000210d8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000210da 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210dc 51 c8 ff fc              |Q       |		DBF	D0,0x210da
000210e0 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000210e6 de fc 00 14              |        |		ADDA.W	#0x14,A7
000210ea 4e b9 00 01 02 84        |N       |		JSR	?exit
000210f0					exp_LOAD_HRAM_8_0.FIU():
000210f0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210f6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210f8 11 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	17,'LOAD_HRAM_8_0.FIU'
0002110a 00                       |        |		.CONST	0x0
0002110b 03                       |        |		.CONST	0x3			; DIPROC address
0002110c 00                       |        |		.CONST	0x0			; Output Parameters
0002110d 00                       |        |		.CONST	0x0			; Input Parameters
0002110e					exp_LOAD_HRAM_32_0.FIU():
0002110e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021114 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021116 12 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	18,'LOAD_HRAM_32_0.FIU'
00021129 00                       |        |		.CONST	0x0
0002112a 03                       |        |		.CONST	0x3			; DIPROC address
0002112b 00                       |        |		.CONST	0x0			; Output Parameters
0002112c 00                       |        |		.CONST	0x0			; Input Parameters
0002112d 00                       |        |		.PAD	0x0
0002112e					exp_READ_PAREG.FIU(Sw_1, &Sr_1):
0002112e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021134 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021136 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.FIU'
00021145 00                       |        |		.CONST	0x0
00021146 03                       |        |		.CONST	0x3			; DIPROC address
00021147 01                       |        |		.CONST	0x1			; Output Parameters
00021148 01                       |        |		.CONST	0x1			; Input Parameters
00021149 00                       |        |		.CONST	0x0			; In arg [1]
0002114a 00                       |        |		.CONST	0x0			; Out arg [1]
0002114b 00                       |        |		.PAD	0x0
0002114c					exp_RUN_NORMAL.FIU():
0002114c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021152 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021154 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
00021163 00                       |        |		.CONST	0x0
00021164 03                       |        |		.CONST	0x3			; DIPROC address
00021165 00                       |        |		.CONST	0x0			; Output Parameters
00021166 00                       |        |		.CONST	0x0			; Input Parameters
00021167 00                       |        |		.PAD	0x0
00021168					exp_RESET.FIU():
00021168 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002116e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021170 09 52 45 53 45 54 2e 46  | RESET.F|		.TXT	9,'RESET.FIU'
0002117a 00                       |        |		.CONST	0x0
0002117b 03                       |        |		.CONST	0x3			; DIPROC address
0002117c 00                       |        |		.CONST	0x0			; Output Parameters
0002117d 00                       |        |		.CONST	0x0			; Input Parameters
0002117e					exp_PREP_RUN.FIU(Sw_2):
0002117e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021184 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021186 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
00021193 00                       |        |		.CONST	0x0
00021194 03                       |        |		.CONST	0x3			; DIPROC address
00021195 00                       |        |		.CONST	0x0			; Output Parameters
00021196 01                       |        |		.CONST	0x1			; Input Parameters
00021197 01                       |        |		.CONST	0x1			; In arg [2]
00021198					exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2):
00021198 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002119e 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000211a0 15 4c 4f 41 44 5f 52 45  | LOAD_RE|		.TXT	21,'LOAD_REFRESH_REGS.FIU'
000211b6 00                       |        |		.CONST	0x0
000211b7 03                       |        |		.CONST	0x3			; DIPROC address
000211b8 00                       |        |		.CONST	0x0			; Output Parameters
000211b9 02                       |        |		.CONST	0x2			; Input Parameters
000211ba 01                       |        |		.CONST	0x1			; In arg [2]
000211bb 01                       |        |		.CONST	0x1			; In arg [2]
000211bc					exp_LOAD_HRAM_1.FIU():
000211bc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211c2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211c4 0f 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	15,'LOAD_HRAM_1.FIU'
000211d4 00                       |        |		.CONST	0x0
000211d5 03                       |        |		.CONST	0x3			; DIPROC address
000211d6 00                       |        |		.CONST	0x0			; Output Parameters
000211d7 00                       |        |		.CONST	0x0			; Input Parameters
000211d8					exp_INIT_MRU.FIU():
000211d8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211de 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211e0 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
000211ed 00                       |        |		.CONST	0x0
000211ee 03                       |        |		.CONST	0x3			; DIPROC address
000211ef 00                       |        |		.CONST	0x0			; Output Parameters
000211f0 00                       |        |		.CONST	0x0			; Input Parameters
000211f1 00                       |        |		.PAD	0x0
000211f2					exp_FREEZE_WORLD.FIU():
000211f2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211f8 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211fa 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
0002120b 00                       |        |		.CONST	0x0
0002120c 03                       |        |		.CONST	0x3			; DIPROC address
0002120d 00                       |        |		.CONST	0x0			; Output Parameters
0002120e 00                       |        |		.CONST	0x0			; Input Parameters
0002120f 00                       |        |		.PAD	0x0
00021210					exp_RESET.SEQ():
00021210 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021216 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021218 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
00021222 00                       |        |		.CONST	0x0
00021223 02                       |        |		.CONST	0x2			; DIPROC address
00021224 00                       |        |		.CONST	0x0			; Output Parameters
00021225 00                       |        |		.CONST	0x0			; Input Parameters
00021226					exp_RUN_CHECK.SEQ():
00021226 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002122c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002122e 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
0002123c 00                       |        |		.CONST	0x0
0002123d 02                       |        |		.CONST	0x2			; DIPROC address
0002123e 00                       |        |		.CONST	0x0			; Output Parameters
0002123f 00                       |        |		.CONST	0x0			; Input Parameters
00021240					exp_PREP_RUN.SEQ(Sw_2):
00021240 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021246 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021248 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
00021255 00                       |        |		.CONST	0x0
00021256 02                       |        |		.CONST	0x2			; DIPROC address
00021257 00                       |        |		.CONST	0x0			; Output Parameters
00021258 01                       |        |		.CONST	0x1			; Input Parameters
00021259 01                       |        |		.CONST	0x1			; In arg [2]
0002125a					exp_HALT.SEQ(&Fr):
0002125a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021260 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021262 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
0002126b 00                       |        |		.CONST	0x0
0002126c 02                       |        |		.CONST	0x2			; DIPROC address
0002126d 01                       |        |		.CONST	0x1			; Output Parameters
0002126e 00                       |        |		.CONST	0x0			; Input Parameters
0002126f 08                       |        |		.CONST	0x8			; Out arg flag
00021270					exp_GET_MISC_ERRORS.SEQ(&Sr_1):
00021270 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021276 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021278 13 47 45 54 5f 4d 49 53  | GET_MIS|		.TXT	19,'GET_MISC_ERRORS.SEQ'
0002128c 00                       |        |		.CONST	0x0
0002128d 02                       |        |		.CONST	0x2			; DIPROC address
0002128e 01                       |        |		.CONST	0x1			; Output Parameters
0002128f 00                       |        |		.CONST	0x0			; Input Parameters
00021290 00                       |        |		.CONST	0x0			; Out arg [1]
00021291 00                       |        |		.PAD	0x0
00021292					exp_RUN_NORMAL.TYP():
00021292 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021298 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002129a 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
000212a9 00                       |        |		.CONST	0x0
000212aa 06                       |        |		.CONST	0x6			; DIPROC address
000212ab 00                       |        |		.CONST	0x0			; Output Parameters
000212ac 00                       |        |		.CONST	0x0			; Input Parameters
000212ad 00                       |        |		.PAD	0x0
000212ae					exp_RESET.TYP():
000212ae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212b4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000212b6 09 52 45 53 45 54 2e 54  | RESET.T|		.TXT	9,'RESET.TYP'
000212c0 00                       |        |		.CONST	0x0
000212c1 06                       |        |		.CONST	0x6			; DIPROC address
000212c2 00                       |        |		.CONST	0x0			; Output Parameters
000212c3 00                       |        |		.CONST	0x0			; Input Parameters
000212c4					exp_PREP_RUN.TYP(Sw_2):
000212c4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212ca 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000212cc 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
000212d9 00                       |        |		.CONST	0x0
000212da 06                       |        |		.CONST	0x6			; DIPROC address
000212db 00                       |        |		.CONST	0x0			; Output Parameters
000212dc 01                       |        |		.CONST	0x1			; Input Parameters
000212dd 01                       |        |		.CONST	0x1			; In arg [2]
000212de					exp_LOAD_WDR.TYP(Sw_8, Sw_1):
000212de 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212e4 00 12                    |        |		.CONST	0x0012			; Stack-delta
000212e6 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.TYP'
000212f3 00                       |        |		.CONST	0x0
000212f4 06                       |        |		.CONST	0x6			; DIPROC address
000212f5 00                       |        |		.CONST	0x0			; Output Parameters
000212f6 02                       |        |		.CONST	0x2			; Input Parameters
000212f7 07                       |        |		.CONST	0x7			; In arg [8]
000212f8 00                       |        |		.CONST	0x0			; In arg [1]
000212f9 00                       |        |		.PAD	0x0
000212fa					exp_LOAD_BENIGN_UWORD.TYP():
000212fa 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021300 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021302 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
00021318 00                       |        |		.CONST	0x0
00021319 06                       |        |		.CONST	0x6			; DIPROC address
0002131a 00                       |        |		.CONST	0x0			; Output Parameters
0002131b 00                       |        |		.CONST	0x0			; Input Parameters
0002131c					exp_ALIGN_CSA.TYP():
0002131c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021322 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021324 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.TYP'
00021332 00                       |        |		.CONST	0x0
00021333 06                       |        |		.CONST	0x6			; DIPROC address
00021334 00                       |        |		.CONST	0x0			; Output Parameters
00021335 00                       |        |		.CONST	0x0			; Input Parameters
00021336					exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8):
00021336 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002133c 00 10                    |        |		.CONST	0x0010			; Stack-delta
0002133e 0d 52 45 41 44 5f 52 46  | READ_RF|		.TXT	13,'READ_RF_B.VAL'
0002134c 00                       |        |		.CONST	0x0
0002134d 07                       |        |		.CONST	0x7			; DIPROC address
0002134e 01                       |        |		.CONST	0x1			; Output Parameters
0002134f 02                       |        |		.CONST	0x2			; Input Parameters
00021350 01                       |        |		.CONST	0x1			; In arg [2]
00021351 00                       |        |		.CONST	0x0			; In arg [1]
00021352 07                       |        |		.CONST	0x7			; Out arg [8]
00021353 00                       |        |		.PAD	0x0
00021354					exp_RUN_NORMAL.VAL():
00021354 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002135a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002135c 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
0002136b 00                       |        |		.CONST	0x0
0002136c 07                       |        |		.CONST	0x7			; DIPROC address
0002136d 00                       |        |		.CONST	0x0			; Output Parameters
0002136e 00                       |        |		.CONST	0x0			; Input Parameters
0002136f 00                       |        |		.PAD	0x0
00021370					exp_RESET.VAL():
00021370 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021376 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021378 09 52 45 53 45 54 2e 56  | RESET.V|		.TXT	9,'RESET.VAL'
00021382 00                       |        |		.CONST	0x0
00021383 07                       |        |		.CONST	0x7			; DIPROC address
00021384 00                       |        |		.CONST	0x0			; Output Parameters
00021385 00                       |        |		.CONST	0x0			; Input Parameters
00021386					exp_PREP_RUN.VAL(Sw_2):
00021386 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002138c 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002138e 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
0002139b 00                       |        |		.CONST	0x0
0002139c 07                       |        |		.CONST	0x7			; DIPROC address
0002139d 00                       |        |		.CONST	0x0			; Output Parameters
0002139e 01                       |        |		.CONST	0x1			; Input Parameters
0002139f 01                       |        |		.CONST	0x1			; In arg [2]
000213a0					exp_LOAD_WDR.VAL(Sw_8, Sw_1):
000213a0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213a6 00 12                    |        |		.CONST	0x0012			; Stack-delta
000213a8 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.VAL'
000213b5 00                       |        |		.CONST	0x0
000213b6 07                       |        |		.CONST	0x7			; DIPROC address
000213b7 00                       |        |		.CONST	0x0			; Output Parameters
000213b8 02                       |        |		.CONST	0x2			; Input Parameters
000213b9 07                       |        |		.CONST	0x7			; In arg [8]
000213ba 00                       |        |		.CONST	0x0			; In arg [1]
000213bb 00                       |        |		.PAD	0x0
000213bc					exp_ALIGN_CSA.VAL():
000213bc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213c2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000213c4 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.VAL'
000213d2 00                       |        |		.CONST	0x0
000213d3 07                       |        |		.CONST	0x7			; DIPROC address
000213d4 00                       |        |		.CONST	0x0			; Output Parameters
000213d5 00                       |        |		.CONST	0x0			; Input Parameters
000213d6 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
000213e2 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
000213ee ; --------------------------------------------------------------------------------------
000213ee ; OMSI PASCAL Function
000213ee ;    <LVAR  0x00a 1(r)>
000213ee ;    <LVAR  0x008 1(r)>
000213ee ;    <LVAR -0x004 @ 4(r)>
000213ee ; --------------------------------------------------------------------------------------
000213ee 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000213f2 bf d5                    |        |		CMPA.L	(A5),A7
000213f4 62 06                    |b       |		BHI	0x213fc
000213f6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213fa 4e 76                    |Nv      |		TRAPV
000213fc de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021400 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021404 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021408 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002140a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002140c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021412 4a 1f                    |J       |		TST.B	(A7)+
00021414 67 12                    |g       |		BEQ	0x21428
00021416 9e c1                    |        |		SUBA.W	D1,A7
00021418 20 4f                    | O      |		MOVEA.L	A7,A0
0002141a 43 fa ff ba              |C       |		LEA.L	0x213d6,A1
0002141e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021420 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021422 51 c8 ff fc              |Q       |		DBF	D0,0x21420
00021426 60 10                    |`       |		BRA	0x21438
00021428 9e c1                    |        |		SUBA.W	D1,A7
0002142a 20 4f                    | O      |		MOVEA.L	A7,A0
0002142c 43 fa ff b4              |C       |		LEA.L	0x213e2,A1
00021430 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021432 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021434 51 c8 ff fc              |Q       |		DBF	D0,0x21432
00021438 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002143a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002143e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021442 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021446 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002144c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002144e 48 52                    |HR      |		PEA.L	(A2)
00021450 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021456 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002145a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002145e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021460 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021464 48 78 00 00              |Hx      |		PEA.L	0x0
00021468 48 78 00 00              |Hx      |		PEA.L	0x0
0002146c 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021472 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021476 42 17                    |B       |		CLR.B	(A7)
00021478 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
0002147c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002147e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021484 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021486 48 52                    |HR      |		PEA.L	(A2)
00021488 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002148e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021490 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021494 4e 5e                    |N^      |		UNLK	A6
00021496 4e 75                    |Nu      |		RTS
00021498 52 45 53 45 54 2e 4d 45  |RESET.ME|		.TXT	'RESET.MEM '
000214a2 52 45 53 45 54 2e 4d 33  |RESET.M3|		.TXT	'RESET.M32 '
000214ac ; --------------------------------------------------------------------------------------
000214ac ; OMSI PASCAL Function
000214ac ;    <LVAR  0x008 1(r)>
000214ac ;    <LVAR -0x006 @ 4(r)>
000214ac ; --------------------------------------------------------------------------------------
000214ac 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000214b0 bf d5                    |        |		CMPA.L	(A5),A7
000214b2 62 06                    |b       |		BHI	0x214ba
000214b4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214b8 4e 76                    |Nv      |		TRAPV
000214ba de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000214be 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000214c2 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000214c6 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000214c8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000214ca 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000214d0 4a 1f                    |J       |		TST.B	(A7)+
000214d2 67 12                    |g       |		BEQ	0x214e6
000214d4 9e c1                    |        |		SUBA.W	D1,A7
000214d6 20 4f                    | O      |		MOVEA.L	A7,A0
000214d8 43 fa ff be              |C       |		LEA.L	0x21498,A1
000214dc 70 08                    |p       |		MOVEQ.L	#0x08,D0
000214de 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214e0 51 c8 ff fc              |Q       |		DBF	D0,0x214de
000214e4 60 10                    |`       |		BRA	0x214f6
000214e6 9e c1                    |        |		SUBA.W	D1,A7
000214e8 20 4f                    | O      |		MOVEA.L	A7,A0
000214ea 43 fa ff b6              |C       |		LEA.L	0x214a2,A1
000214ee 70 08                    |p       |		MOVEQ.L	#0x08,D0
000214f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214f2 51 c8 ff fc              |Q       |		DBF	D0,0x214f0
000214f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214f8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214fc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021500 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021504 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002150a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002150c 48 52                    |HR      |		PEA.L	(A2)
0002150e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021514 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021518 42 27                    |B'      |		CLR.B	-(A7)
0002151a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002151e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021520 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021526 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021528 48 52                    |HR      |		PEA.L	(A2)
0002152a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021530 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021532 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021536 4e 5e                    |N^      |		UNLK	A6
00021538 4e 75                    |Nu      |		RTS
0002153a 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
00021548 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
00021556 ; --------------------------------------------------------------------------------------
00021556 ; OMSI PASCAL Function
00021556 ;    <LVAR  0x008 1(r)>
00021556 ;    <LVAR -0x006 @ 4(r)>
00021556 ; --------------------------------------------------------------------------------------
00021556 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002155a bf d5                    |        |		CMPA.L	(A5),A7
0002155c 62 06                    |b       |		BHI	0x21564
0002155e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021562 4e 76                    |Nv      |		TRAPV
00021564 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00021568 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002156c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021570 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00021572 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021574 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002157a 4a 1f                    |J       |		TST.B	(A7)+
0002157c 67 12                    |g       |		BEQ	0x21590
0002157e 9e c1                    |        |		SUBA.W	D1,A7
00021580 20 4f                    | O      |		MOVEA.L	A7,A0
00021582 43 fa ff b6              |C       |		LEA.L	0x2153a,A1
00021586 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021588 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002158a 51 c8 ff fc              |Q       |		DBF	D0,0x21588
0002158e 60 10                    |`       |		BRA	0x215a0
00021590 9e c1                    |        |		SUBA.W	D1,A7
00021592 20 4f                    | O      |		MOVEA.L	A7,A0
00021594 43 fa ff b2              |C       |		LEA.L	0x21548,A1
00021598 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002159a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002159c 51 c8 ff fc              |Q       |		DBF	D0,0x2159a
000215a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000215a6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000215aa 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000215ae 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000215b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215b6 48 52                    |HR      |		PEA.L	(A2)
000215b8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000215be de fc 00 16              |        |		ADDA.W	#0x16,A7
000215c2 42 27                    |B'      |		CLR.B	-(A7)
000215c4 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000215c8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000215ca 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000215d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215d2 48 52                    |HR      |		PEA.L	(A2)
000215d4 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000215da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215dc 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000215e0 4e 5e                    |N^      |		UNLK	A6
000215e2 4e 75                    |Nu      |		RTS
000215e4 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.MEM '
000215f4 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.M32 '
00021604 ; --------------------------------------------------------------------------------------
00021604 ; OMSI PASCAL Function
00021604 ;    <LVAR  0x00e 1(r)>
00021604 ;    <LVAR  0x00c 1(r)>
00021604 ;    <LVAR  0x00a 1(r)>
00021604 ;    <LVAR  0x008 1(r)>
00021604 ;    <LVAR -0x004 @ 4(r)>
00021604 ; --------------------------------------------------------------------------------------
00021604 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021608 bf d5                    |        |		CMPA.L	(A5),A7
0002160a 62 06                    |b       |		BHI	0x21612
0002160c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021610 4e 76                    |Nv      |		TRAPV
00021612 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021616 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002161a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002161e 72 10                    |r       |		MOVEQ.L	#0x10,D1
00021620 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021622 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021628 4a 1f                    |J       |		TST.B	(A7)+
0002162a 67 12                    |g       |		BEQ	0x2163e
0002162c 9e c1                    |        |		SUBA.W	D1,A7
0002162e 20 4f                    | O      |		MOVEA.L	A7,A0
00021630 43 fa ff b2              |C       |		LEA.L	0x215e4,A1
00021634 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021636 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021638 51 c8 ff fc              |Q       |		DBF	D0,0x21636
0002163c 60 10                    |`       |		BRA	0x2164e
0002163e 9e c1                    |        |		SUBA.W	D1,A7
00021640 20 4f                    | O      |		MOVEA.L	A7,A0
00021642 43 fa ff b0              |C       |		LEA.L	0x215f4,A1
00021646 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021648 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002164a 51 c8 ff fc              |Q       |		DBF	D0,0x21648
0002164e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021650 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021654 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021658 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002165c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021662 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021664 48 52                    |HR      |		PEA.L	(A2)
00021666 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002166c de fc 00 18              |        |		ADDA.W	#0x18,A7
00021670 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021672 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00021676 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
0002167c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002167e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021680 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
00021684 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
0002168a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002168c 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021690 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021692 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021696 48 78 00 00              |Hx      |		PEA.L	0x0
0002169a 48 78 00 00              |Hx      |		PEA.L	0x0
0002169e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000216a4 de c1                    |        |		ADDA.W	D1,A7
000216a6 42 17                    |B       |		CLR.B	(A7)
000216a8 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
000216ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216ae 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000216b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216b6 48 52                    |HR      |		PEA.L	(A2)
000216b8 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000216be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216c0 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000216c4 4e 5e                    |N^      |		UNLK	A6
000216c6 4e 75                    |Nu      |		RTS
000216c8 46 49 4c 4c 5f 4d 45 4d  |FILL_MEM|		.TXT	'FILL_MEMORY.MEM '
000216d8 46 49 4c 4c 5f 4d 45 4d  |FILL_MEM|		.TXT	'FILL_MEMORY.M32 '
000216e8 ; --------------------------------------------------------------------------------------
000216e8 ; OMSI PASCAL Function
000216e8 ;    <LVAR  0x01c 1(r)>
000216e8 ;    <LVAR  0x01a 1(r)>
000216e8 ;    <LVAR  0x019 1(r)>
000216e8 ;    <LVAR  0x018 1(r)>
000216e8 ;    <LVAR  0x014 4(r)>
000216e8 ;    <LVAR  0x010 4(r)>
000216e8 ;    <LVAR  0x00c 4(r)>
000216e8 ;    <LVAR  0x008 4(r)>
000216e8 ;    <LVAR -0x006 @ 4(r)>
000216e8 ; --------------------------------------------------------------------------------------
000216e8 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000216ec bf d5                    |        |		CMPA.L	(A5),A7
000216ee 62 06                    |b       |		BHI	0x216f6
000216f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216f4 4e 76                    |Nv      |		TRAPV
000216f6 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000216fa 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000216fe 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021702 47 f8 00 00              |G       |		LEA.L	0x0,A3
00021706 49 f9 00 01 04 66        |I    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A4
0002170c 72 10                    |r       |		MOVEQ.L	#0x10,D1
0002170e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021710 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021716 4a 1f                    |J       |		TST.B	(A7)+
00021718 67 12                    |g       |		BEQ	0x2172c
0002171a 9e c1                    |        |		SUBA.W	D1,A7
0002171c 20 4f                    | O      |		MOVEA.L	A7,A0
0002171e 43 fa ff a8              |C       |		LEA.L	0x216c8,A1
00021722 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021724 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021726 51 c8 ff fc              |Q       |		DBF	D0,0x21724
0002172a 60 10                    |`       |		BRA	0x2173c
0002172c 9e c1                    |        |		SUBA.W	D1,A7
0002172e 20 4f                    | O      |		MOVEA.L	A7,A0
00021730 43 fa ff a6              |C       |		LEA.L	0x216d8,A1
00021734 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021736 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021738 51 c8 ff fc              |Q       |		DBF	D0,0x21736
0002173c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002173e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021742 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021746 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002174a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021750 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021752 48 52                    |HR      |		PEA.L	(A2)
00021754 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002175a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002175e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021762 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021766 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021768 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002176c 48 53                    |HS      |		PEA.L	(A3)
0002176e 48 78 00 07              |Hx      |		PEA.L	0x7
00021772 4e 94                    |N       |		JSR	(A4)
00021774 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021778 2e ae 00 14              |.       |		MOVE.L	(A6+0x14),(A7)
0002177c 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021780 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021782 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021786 48 53                    |HS      |		PEA.L	(A3)
00021788 48 78 00 07              |Hx      |		PEA.L	0x7
0002178c 4e 94                    |N       |		JSR	(A4)
0002178e de fc 00 16              |        |		ADDA.W	#0x16,A7
00021792 1e ae 00 18              |        |		MOVE.B	(A6+0x18),(A7)
00021796 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021798 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002179c 48 53                    |HS      |		PEA.L	(A3)
0002179e 48 53                    |HS      |		PEA.L	(A3)
000217a0 4e 94                    |N       |		JSR	(A4)
000217a2 de c1                    |        |		ADDA.W	D1,A7
000217a4 1e ae 00 19              |        |		MOVE.B	(A6+0x19),(A7)
000217a8 1f 6e 00 1a 00 01        | n      |		MOVE.B	(A6+0x1a),(A7+0x1)
000217ae 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000217b0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217b4 48 53                    |HS      |		PEA.L	(A3)
000217b6 48 78 00 01              |Hx      |		PEA.L	0x1
000217ba 4e 94                    |N       |		JSR	(A4)
000217bc de c1                    |        |		ADDA.W	D1,A7
000217be 42 17                    |B       |		CLR.B	(A7)
000217c0 1f 2e 00 1c              | .      |		MOVE.B	(A6+0x1c),-(A7)
000217c4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000217c6 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000217cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217ce 48 52                    |HR      |		PEA.L	(A2)
000217d0 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000217d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217d8 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000217dc 4e 5e                    |N^      |		UNLK	A6
000217de 4e 75                    |Nu      |		RTS
000217e0 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.MEM'
000217f2 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.M32'
00021804 ; --------------------------------------------------------------------------------------
00021804 ; OMSI PASCAL Function
00021804 ;    <LVAR  0x008 1(r)>
00021804 ;    <LVAR -0x006 @ 4(r)>
00021804 ; --------------------------------------------------------------------------------------
00021804 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00021808 bf d5                    |        |		CMPA.L	(A5),A7
0002180a 62 06                    |b       |		BHI	0x21812
0002180c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021810 4e 76                    |Nv      |		TRAPV
00021812 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021816 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002181a 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002181e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021820 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021826 4a 1f                    |J       |		TST.B	(A7)+
00021828 67 0e                    |g       |		BEQ	0x21838
0002182a 41 fa ff c6              |A       |		LEA.L	0x217f2,A0
0002182e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021830 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021832 51 c8 ff fc              |Q       |		DBF	D0,0x21830
00021836 60 0c                    |`       |		BRA	0x21844
00021838 41 fa ff ca              |A       |		LEA.L	0x21804,A0
0002183c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002183e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021840 51 c8 ff fc              |Q       |		DBF	D0,0x2183e
00021844 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021846 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002184a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002184e 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021852 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021858 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002185a 48 51                    |HQ      |		PEA.L	(A1)
0002185c 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021862 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021866 42 27                    |B'      |		CLR.B	-(A7)
00021868 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002186c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002186e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021874 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021876 48 51                    |HQ      |		PEA.L	(A1)
00021878 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002187e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021880 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021884 4e 5e                    |N^      |		UNLK	A6
00021886 4e 75                    |Nu      |		RTS
00021888 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
000218a0 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
000218b8 ; --------------------------------------------------------------------------------------
000218b8 ; OMSI PASCAL Function
000218b8 ;    <LVAR  0x008 1(r)>
000218b8 ;    <LVAR -0x006 @ 4(r)>
000218b8 ; --------------------------------------------------------------------------------------
000218b8 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000218bc bf d5                    |        |		CMPA.L	(A5),A7
000218be 62 06                    |b       |		BHI	0x218c6
000218c0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000218c4 4e 76                    |Nv      |		TRAPV
000218c6 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000218ca 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000218ce 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000218d2 72 18                    |r       |		MOVEQ.L	#0x18,D1
000218d4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000218d6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000218dc 4a 1f                    |J       |		TST.B	(A7)+
000218de 67 12                    |g       |		BEQ	0x218f2
000218e0 9e c1                    |        |		SUBA.W	D1,A7
000218e2 20 4f                    | O      |		MOVEA.L	A7,A0
000218e4 43 fa ff a2              |C       |		LEA.L	0x21888,A1
000218e8 70 16                    |p       |		MOVEQ.L	#0x16,D0
000218ea 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000218ec 51 c8 ff fc              |Q       |		DBF	D0,0x218ea
000218f0 60 10                    |`       |		BRA	0x21902
000218f2 9e c1                    |        |		SUBA.W	D1,A7
000218f4 20 4f                    | O      |		MOVEA.L	A7,A0
000218f6 43 fa ff a8              |C       |		LEA.L	0x218a0,A1
000218fa 70 16                    |p       |		MOVEQ.L	#0x16,D0
000218fc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000218fe 51 c8 ff fc              |Q       |		DBF	D0,0x218fc
00021902 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021904 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021908 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002190c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021910 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021916 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021918 48 52                    |HR      |		PEA.L	(A2)
0002191a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021920 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021924 42 27                    |B'      |		CLR.B	-(A7)
00021926 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002192a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002192c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021932 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021934 48 52                    |HR      |		PEA.L	(A2)
00021936 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002193c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002193e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021942 4e 5e                    |N^      |		UNLK	A6
00021944 4e 75                    |Nu      |		RTS
00021946 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
00021954 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
00021962 ; --------------------------------------------------------------------------------------
00021962 ; OMSI PASCAL Function
00021962 ;    <LVAR  0x008 1(r)>
00021962 ;    <LVAR -0x006 @ 4(r)>
00021962 ; --------------------------------------------------------------------------------------
00021962 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021966 bf d5                    |        |		CMPA.L	(A5),A7
00021968 62 06                    |b       |		BHI	0x21970
0002196a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002196e 4e 76                    |Nv      |		TRAPV
00021970 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021974 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00021978 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002197c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002197e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021984 4a 1f                    |J       |		TST.B	(A7)+
00021986 67 0e                    |g       |		BEQ	0x21996
00021988 41 fa ff ca              |A       |		LEA.L	0x21954,A0
0002198c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002198e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021990 51 c8 ff fc              |Q       |		DBF	D0,0x2198e
00021994 60 0c                    |`       |		BRA	0x219a2
00021996 41 fa ff ca              |A       |		LEA.L	0x21962,A0
0002199a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002199c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002199e 51 c8 ff fc              |Q       |		DBF	D0,0x2199c
000219a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000219a8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000219ac 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000219b0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219b8 48 51                    |HQ      |		PEA.L	(A1)
000219ba 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000219c0 de fc 00 16              |        |		ADDA.W	#0x16,A7
000219c4 42 27                    |B'      |		CLR.B	-(A7)
000219c6 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000219ca 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000219cc 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000219d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219d4 48 51                    |HQ      |		PEA.L	(A1)
000219d6 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000219dc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219de 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000219e2 4e 5e                    |N^      |		UNLK	A6
000219e4 4e 75                    |Nu      |		RTS
000219e6					exp_RESET.IOC():
000219e6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000219ec 00 08                    |        |		.CONST	0x0008			; Stack-delta
000219ee 09 52 45 53 45 54 2e 49  | RESET.I|		.TXT	9,'RESET.IOC'
000219f8 00                       |        |		.CONST	0x0
000219f9 04                       |        |		.CONST	0x4			; DIPROC address
000219fa 00                       |        |		.CONST	0x0			; Output Parameters
000219fb 00                       |        |		.CONST	0x0			; Input Parameters
000219fc					exp_RUN_CHECK.IOC():
000219fc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021a02 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021a04 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
00021a12 00                       |        |		.CONST	0x0
00021a13 04                       |        |		.CONST	0x4			; DIPROC address
00021a14 00                       |        |		.CONST	0x0			; Output Parameters
00021a15 00                       |        |		.CONST	0x0			; Input Parameters
00021a16					exp_PREP_RUN.IOC(Sw_2):
00021a16 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021a1c 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021a1e 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
00021a2b 00                       |        |		.CONST	0x0
00021a2c 04                       |        |		.CONST	0x4			; DIPROC address
00021a2d 00                       |        |		.CONST	0x0			; Output Parameters
00021a2e 01                       |        |		.CONST	0x1			; Input Parameters
00021a2f 01                       |        |		.CONST	0x1			; In arg [2]
00021a30 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00021a3e ; --------------------------------------------------------------------------------------
00021a3e ; OMSI PASCAL Function
00021a3e ;    <LVAR  0x008 1(r)>
00021a3e ; --------------------------------------------------------------------------------------
00021a3e					PROG_FAIL:
00021a3e 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00021a42 bf d5                    |        |		CMPA.L	(A5),A7
00021a44 62 06                    |b       |		BHI	0x21a4c
00021a46 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a4a 4e 76                    |Nv      |		TRAPV
00021a4c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021a50 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021a54 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00021a58 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021a5a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a5c 51 c8 ff fc              |Q       |		DBF	D0,0x21a5a
00021a60 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021a64 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a66 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021a6a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021a6e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021a72 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a78 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a7a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021a7e 48 80                    |H       |		EXTB.W	D0
00021a80 48 c0                    |H       |		EXTW.L	D0
00021a82 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021a84 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021a8a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a8c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021a92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a94 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021a9a de fc 00 14              |        |		ADDA.W	#0x14,A7
00021a9e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021aa2 4e 5e                    |N^      |		UNLK	A6
00021aa4 4e 75                    |Nu      |		RTS
00021aa6 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00021ab4 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00021ac2 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00021ad0 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00021ae2 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00021afa ; --------------------------------------------------------------------------------------
00021afa ; OMSI PASCAL Function
00021afa ;    <LVAR  0x00e 1(r)>
00021afa ;    <LVAR  0x00a 4(r)>
00021afa ;    <LVAR  0x008 1(r)>
00021afa ; --------------------------------------------------------------------------------------
00021afa					EXP_FAIL:
00021afa 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00021afe bf d5                    |        |		CMPA.L	(A5),A7
00021b00 62 06                    |b       |		BHI	0x21b08
00021b02 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b06 4e 76                    |Nv      |		TRAPV
00021b08 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021b0c 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021b10 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021b16 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021b1c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021b1e 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00021b20 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00021b22 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021b24 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00021b26 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021b2c 41 fa ff b4              |A       |		LEA.L	0x21ae2,A0
00021b30 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021b32 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b34 51 c8 ff fc              |Q       |		DBF	D0,0x21b32
00021b38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b3a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b40 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021b42 4e 93                    |N       |		JSR	(A3)
00021b44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b46 4e 94                    |N       |		JSR	(A4)
00021b48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b4a 20 4f                    | O      |		MOVEA.L	A7,A0
00021b4c 43 fa ff 58              |C  X    |		LEA.L	0x21aa6,A1
00021b50 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021b52 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b54 51 c8 ff fc              |Q       |		DBF	D0,0x21b52
00021b58 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b5a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021b5e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b60 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b62 4e 93                    |N       |		JSR	(A3)
00021b64 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b66 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00021b6a 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021b70 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b72 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021b78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b7a 4e 94                    |N       |		JSR	(A4)
00021b7c de c4                    |        |		ADDA.W	D4,A7
00021b7e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021b82 b0 c1                    |        |		CMPA.W	D1,A0
00021b84 67 48                    |gH      |		BEQ	0x21bce
00021b86 9e c5                    |        |		SUBA.W	D5,A7
00021b88 22 4f                    |"O      |		MOVEA.L	A7,A1
00021b8a 45 fa ff 28              |E  (    |		LEA.L	0x21ab4,A2
00021b8e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021b90 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021b92 51 c8 ff fc              |Q       |		DBF	D0,0x21b90
00021b96 9e c3                    |        |		SUBA.W	D3,A7
00021b98 22 4f                    |"O      |		MOVEA.L	A7,A1
00021b9a 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021b9e 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021ba0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021ba2 51 c8 ff fc              |Q       |		DBF	D0,0x21ba0
00021ba6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021ba8 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021bac 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bae 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021bb0 4e 93                    |N       |		JSR	(A3)
00021bb2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bb4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021bb8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bba 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021bbc 4e 93                    |N       |		JSR	(A3)
00021bbe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bc0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021bc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bc8 4e 94                    |N       |		JSR	(A4)
00021bca de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021bce 9e c5                    |        |		SUBA.W	D5,A7
00021bd0 20 4f                    | O      |		MOVEA.L	A7,A0
00021bd2 43 fa fe ee              |C       |		LEA.L	0x21ac2,A1
00021bd6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021bd8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bda 51 c8 ff fc              |Q       |		DBF	D0,0x21bd8
00021bde 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021be0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021be4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021be6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021be8 4e 93                    |N       |		JSR	(A3)
00021bea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bec 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021bf0 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00021bf6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bf8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021bfe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c00 4e 94                    |N       |		JSR	(A4)
00021c02 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021c04 20 4f                    | O      |		MOVEA.L	A7,A0
00021c06 43 fa fe da              |C       |		LEA.L	0x21ae2,A1
00021c0a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021c0c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c0e 51 c8 ff fc              |Q       |		DBF	D0,0x21c0c
00021c12 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021c16 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c18 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021c1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c1e 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021c22 4e 93                    |N       |		JSR	(A3)
00021c24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c26 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021c2c de c3                    |        |		ADDA.W	D3,A7
00021c2e 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021c32 4e 5e                    |N^      |		UNLK	A6
00021c34 4e 75                    |Nu      |		RTS