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

⟦dd4692d47⟧ M200

    Length: 7168 (0x1c00)
    Types: M200
    Notes: @(#)RUN_UDIAG,1.2,92/08/27,17:18:19, M200_PROGRAM
    Names: »RUN_UDIAG.M200«

Derivation

└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »RUN_UDIAG.M200« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »RUN_UDIAG.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »RUN_UDIAG.M200« 

Disassembly

0x20340


@ 20340
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 20340-203ce Body>                                              
        <POP 20340-20356 Prologue>                           Σ0         ↓
        <POP 20356-203c6 Naked>                              Σ0         ↓
            <Call 0x20356 0x10538>                                              {}
                IPC_Init(void)
            <MI 2035c  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Call 0x20360 0x10502>                                              {[2, '(A6+0xc)']}
                IPC_PutBool(a : Bool)
            <POP 20366-20368 StackAdj>                       Δ+2                {}
            <Call 0x20368 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2036e [10] @>                            Δ-10               {[«10""»]}
            <POP 20380-20382 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20382 9>                                                     {[«10""»]|[$$INITSTATE]}
            <Const 0x20396 0x1.4>                            Δ-4                {[«10""»]|[$$INITSTATE]|[##1]}
            <Const 0x2039a 0x2.2>                            Δ-2                {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
            <Pointer.fp 0x2039e <LVAR -0x002 @>>             Δ-4                {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
            <Call 0x203a2 0x103b0>                                              {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 203a8-203ac StackAdj>                       Δ+24               {}
            <Call 0x203ac 0x10538>                                              {}
                IPC_Init(void)
            <MI 203b2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 203b6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x203b8 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 203be-203c0 StackAdj>                       Δ+4                {}
            <Call 0x203c0 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 203c6-203ce Epilogue>                           Σ0         

0x203ce


@ 203ce
        <LVAR  0x008 4(r)>
    <POP 203ce-20406 Body>                                              
        <POP 203ce-203e4 Prologue>                           Σ0         ↓
        <POP 203e4-203fe Naked>                              Σ0         ↓
            <Call 0x203e4 0x10538>                                              {}
                IPC_Init(void)
            <MI 203ea  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 203ee  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x203f0 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 203f6-203f8 StackAdj>                       Δ+4                {}
            <Call 0x203f8 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 203fe-20406 Epilogue>                           Σ0         

0x20406


@ 20406
        <LVAR  0x008 1(r)>
    <POP 20406-20442 Body>                                              
        <POP 20406-20418 Prologue>                           Σ0         ↓
        <POP 20418-2043e Naked>                              Σ0         ↓
            <Call 0x20418 0x10538>                                              {}
                IPC_Init(void)
            <MI 2041e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x20422 0x10502>                                              {[2, '(A6+0x8)']}
                IPC_PutBool(a : Bool)
            <POP 20428-2042a StackAdj>                       Δ+2                {}
            <Call 0x2042a 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20430  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20432 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20436 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2043c-2043e StackAdj>                       Δ+6                {}
        <POP 2043e-20442 Epilogue>                           Σ0         

0x20442


@ 20442
        <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 20442-2050a Body>                                   Δ+10       
        <POP 20442-20458 Prologue>                           Σ0         ↓
        <POP 20458-20460 RegCacheLoad>                       Σ0         ↓
        <POP 20460-20480 Naked>                              Σ0         ↓ →0x2048e
            <Call 0x20460 0x10538>                                              {}
                IPC_Init(void)
            <MI 20466  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x2046a 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 20470-20472 StackAdj>                       Δ+2                {[-2-]}
            <MI 20472  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x20476 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20478-2047a StackAdj>                       Δ+2                {}
            <MI 2047a  TST.B   (A6+0x16)>                                       {}
            <MI 2047e  BNE     0x2048e>                                         {}
        <POP 20480-2048e Naked>                              Σ0         ↓
            <MI 20480  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x20484 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 20486  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x2048a 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 2048c-2048e StackAdj>                       Δ+2                {}
        <POP 2048e-2049a Naked>                              Σ0         ↓ →0x204ac ←0x20460
            <Call 0x2048e 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20494  TST.B   (A6+0x16)>                                       {}
            <MI 20498  BEQ     0x204ac>                                         {}
        <POP 2049a-204ac Naked>                              Σ0 Δ-10    →0x204bc
            <Blob 0x2049a [10] @>                            Δ-10               {[«10""»]}
            <MI 204aa  BRA     0x204bc>                                         {[«10""»]}
        <POP 204ac-204bc Naked>                              Σ0 Δ-10    ↓ ←0x2048e
            <Blob 0x204ac [10] @>                            Δ-10               {[«10""»]}
        <POP 204bc-20502 Naked>                              Σ-10 Δ+10  ↓ ←0x2049a
            <POP 204bc-204be StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x204be>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x204be 4>                       Δ-4        
                <Const 0x204c2 0x1.2>                        Δ-2        
                <Const 0x204c6 0x9.2>                        Δ-2        
                <Call 0x204ca 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 204d0-204d2 StackAdj>                   Δ+8        
            <Const 0x204d2 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x204d6 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x204da <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x204de 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 204e4-204e8 StackAdj>                       Δ+24               {}
            <Call 0x204e8 0x10538>                                              {}
                IPC_Init(void)
            <MI 204ee  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 204f2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x204f4 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 204fa-204fc StackAdj>                       Δ+4                {}
            <Call 0x204fc 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20502-2050a Epilogue>                           Σ0         

0x2050a


@ 2050a
        <LVAR -0x004 1(rw)>
    <POP 2050a-205f8 Body>                                              
        <POP 2050a-20520 Prologue>                           Σ0         ↓
        <POP 20520-20528 RegCacheLoad>                       Σ0         ↓
        <POP 20528-20542 Naked>                              Σ0         ↓ →0x2054a
            <Const 0x20528 0x5.2>                            Δ-2                {[#5]}
            <Const 0x2052c 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x20530 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20536-20538 StackAdj>                       Δ+2                {[#5]}
            <Call 0x20538 0x104cc>                                              {[#5]}
                MemOnly2MB() : Bool
            <MI 2053e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20540  BEQ     0x2054a>                                         {}
        <POP 20542-2054a Naked>                              Σ0         →0x20550
            <Call 0x20542 0x20fca>                                              {}
                exp_LOAD_HRAM_8_0.FIU()
            <MI 20548  BRA     0x20550>                                         {}
        <POP 2054a-20550 Naked>                              Σ0         ↓ ←0x20528
            <Call 0x2054a 0x20fe8>                                              {}
                exp_LOAD_HRAM_32_0.FIU()
        <POP 20550-20566 Naked>                              Σ0         ↓ ←0x20542
            <Call 0x20550 0x21078>                                              {}
                exp_LOAD_HRAM_1.FIU()
            <Call 0x20556 0x212dc>                                              {}
                exp_ALIGN_CSA.VAL()
            <Call 0x2055c 0x2125a>                                              {}
                exp_ALIGN_CSA.TYP()
            <MI 20562  CLR.B   (A6-0x4)>                                        {}
            <MI 20564  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20566-20576 Naked>                              Σ0         ↓ →0x20582 ←0x20582
            <POP 20566-20568 StackAdj>                       Δ-2                {[-2-]}
            <MI 20568  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2056a 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20570-20572 StackAdj>                       Δ+2                {[-2-]}
            <MI 20572  TST.B   (A7)+>                        Δ+2                {}
            <MI 20574  BEQ     0x20582>                                         {}
        <POP 20576-20582 Naked>                              Σ0         ↓
            <MI 20576  CLR.L   D0>                                              {}
            <MI 20578  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2057a  ADDQ.W  #0x1,D0>                                         {}
            <POP 0x2057c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20580  MOVE.B  D0,(A6-0x4)>                                     {}
        <POP 20582-20588 Naked>                              Σ0         ↓ →0x20566 ←0x20566
            <MI 20582  ADDQ.B  #0x1,D7>                                         {}
            <MI 20584  CMP.B   #0x0f,D7>                                        {}
            <MI 20586  BLE     0x20566>                                         {}
        <POP 20588-2058a Naked>                              Σ0         ↓
            <MI 20588  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2058a-2059a Naked>                              Σ0         ↓ →0x205d4 ←0x205d4
            <POP 2058a-2058c StackAdj>                       Δ-2                {[-2-]}
            <MI 2058c  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2058e 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20594-20596 StackAdj>                       Δ+2                {[-2-]}
            <MI 20596  TST.B   (A7)+>                        Δ+2                {}
            <MI 20598  BEQ     0x205d4>                                         {}
        <POP 2059a-205d4 Naked>                              Σ0         ↓
            <MI 2059a  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <POP 2059c-2059e StackAdj>                       Δ-2                {[2, 'D7']|[-2-]}
            <MI 2059e  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']|[-2-]|[2, 'D7']}
            <Call 0x205a0 0x104c6>                                              {[2, 'D7']|[-2-]|[2, 'D7']}
                EQ_1c218(a : Byte) : Bool
            <POP 205a6-205a8 StackAdj>                       Δ+2                {[2, 'D7']|[-2-]}
            <MI 205a8  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-2-]}
            <MI 205aa  EXTB.W  D0>                                              {[2, 'D7']|[-2-]}
            <POP 0x205ac LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-2-]}
            <MI 205ae  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-2-]}
            <POP 205b0-205b2 StackAdj>                       Δ-2                {[2, 'D7']|[-4-]}
            <Call 0x205b2 0x104cc>                                              {[2, 'D7']|[-4-]}
                MemOnly2MB() : Bool
            <MI 205b8  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-4-]}
            <MI 205ba  EXTB.W  D0>                                              {[2, 'D7']|[-4-]}
            <POP 0x205bc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-4-]}
            <MI 205be  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-4-]}
            <MI 205c0  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <Call 0x205c2 0x21524>                                              {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <POP 205c8-205ca StackAdj>                       Δ+6                {[2, 'D7']}
            <MI 205ca  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Call 0x205cc 0x21724>                                              {[-2-]}
            <POP 205d2-205d4 StackAdj>                       Δ+2                {}
        <POP 205d4-205da Naked>                              Σ0         ↓ →0x2058a ←0x2058a
            <MI 205d4  ADDQ.B  #0x1,D7>                                         {}
            <MI 205d6  CMP.B   #0x0f,D7>                                        {}
            <MI 205d8  BLE     0x2058a>                                         {}
        <POP 205da-205f0 Naked>                              Σ0         ↓
            <Call 0x205da 0x105b0>                                              {}
                FifoInit(void)
            <Const 0x205e0 0xffff.2>                         Δ-2                {[#65535]}
            <Const 0x205e4 0xffff.2>                         Δ-2                {[#65535]|[#65535]}
            <Call 0x205e8 0x21054>                                              {[#65535]|[#65535]}
                exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
            <POP 205ee-205f0 StackAdj>                       Δ+4                {}
        <POP 205f0-205f8 Epilogue>                           Σ0         

0x205f8


@ 205f8
        <LVAR  0x008 2(r)>
        <LVAR -0x002 1(rw)>
    <POP 205f8-2077a Body>                                              
        <POP 205f8-2060e Prologue>                           Σ0         ↓
        <POP 2060e-20630 RegCacheLoad>                       Σ0         ↓
        <POP 20630-2064e Naked>                              Σ0         ↓ →0x20652
            <Call 0x20630 0x21170>                                              {}
                exp_CLR_BREAK_MASK.SEQ()
            <Call 0x20636 0x210cc>                                              {}
                exp_CLEAR_EXCEPTIONS.FIU()
            <Call 0x2063c 0x21238>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <POP 20642-20644 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20644 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2064a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2064c  BEQ     0x20652>                                         {}
        <POP 2064e-20652 Naked>                              Σ0         →0x20656
            <MI 2064e  CLR.B   (A6-0x2)>                                        {}
            <MI 20650  BRA     0x20656>                                         {}
        <POP 20652-20656 Naked>                              Σ0         ↓ ←0x20630
            <MI 20652  MOVE.B  #0xff,(A6-0x2)>                                  {}
        <POP 20656-20662 Naked>                              Σ0         ↓ →0x2066a ←0x2064e
            <POP 20656-20658 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20658 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x2065a 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2065c-2065e StackAdj>                       Δ+2                {[-2-]}
            <MI 2065e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20660  BEQ     0x2066a>                                         {}
        <POP 20662-2066a Naked>                              Σ0         ↓
            <Const 0x20662 0xc.2>                            Δ-2                {[#12]}
            <MI 20664  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#12]|[2, '(A6-0x2)']}
            <Call 0x20666 0x2130e>                                              {[#12]|[2, '(A6-0x2)']}
                exp_SET_HIT.MEM()
            <POP 20668-2066a StackAdj>                       Δ+4                {}
        <POP 2066a-20676 Naked>                              Σ0         ↓ →0x2067e ←0x20656
            <POP 2066a-2066c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2066c 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2066e 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20670-20672 StackAdj>                       Δ+2                {[-2-]}
            <MI 20672  TST.B   (A7)+>                        Δ+2                {}
            <MI 20674  BEQ     0x2067e>                                         {}
        <POP 20676-2067e Naked>                              Σ0         ↓
            <Const 0x20676 0xd.2>                            Δ-2                {[#13]}
            <MI 20678  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#13]|[2, '(A6-0x2)']}
            <Call 0x2067a 0x2130e>                                              {[#13]|[2, '(A6-0x2)']}
                exp_SET_HIT.MEM()
            <POP 2067c-2067e StackAdj>                       Δ+4                {}
        <POP 2067e-2068a Naked>                              Σ0         ↓ →0x20692 ←0x2066a
            <POP 2067e-20680 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20680 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20682 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20684-20686 StackAdj>                       Δ+2                {[-2-]}
            <MI 20686  TST.B   (A7)+>                        Δ+2                {}
            <MI 20688  BEQ     0x20692>                                         {}
        <POP 2068a-20692 Naked>                              Σ0         ↓
            <Const 0x2068a 0xe.2>                            Δ-2                {[#14]}
            <MI 2068c  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#14]|[2, '(A6-0x2)']}
            <Call 0x2068e 0x2130e>                                              {[#14]|[2, '(A6-0x2)']}
                exp_SET_HIT.MEM()
            <POP 20690-20692 StackAdj>                       Δ+4                {}
        <POP 20692-2069e Naked>                              Σ0         ↓ →0x206a6 ←0x2067e
            <POP 20692-20694 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20694 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20696 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20698-2069a StackAdj>                       Δ+2                {[-2-]}
            <MI 2069a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2069c  BEQ     0x206a6>                                         {}
        <POP 2069e-206a6 Naked>                              Σ0         ↓
            <Const 0x2069e 0xf.2>                            Δ-2                {[#15]}
            <MI 206a0  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[#15]|[2, '(A6-0x2)']}
            <Call 0x206a2 0x2130e>                                              {[#15]|[2, '(A6-0x2)']}
                exp_SET_HIT.MEM()
            <POP 206a4-206a6 StackAdj>                       Δ+4                {}
        <POP 206a6-206b8 Naked>                              Σ0         ↓ →0x206be ←0x20692
            <Call 0x206a6 0x21094>                                              {}
                exp_INIT_MRU.FIU()
            <POP 206ac-206ae StackAdj>                       Δ-2                {[-2-]}
            <Const 0x206ae 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x206b0 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206b2-206b4 StackAdj>                       Δ+2                {[-2-]}
            <MI 206b4  TST.B   (A7)+>                        Δ+2                {}
            <MI 206b6  BEQ     0x206be>                                         {}
        <POP 206b8-206be Naked>                              Σ0         ↓
            <Const 0x206b8 0xc.2>                            Δ-2                {[#12]}
            <Call 0x206ba 0x21882>                                              {[#12]}
                exp_CLEAR_HITS.MEM()
            <POP 206bc-206be StackAdj>                       Δ+2                {}
        <POP 206be-206ca Naked>                              Σ0         ↓ →0x206d0 ←0x206a6
            <POP 206be-206c0 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x206c0 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x206c2 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206c4-206c6 StackAdj>                       Δ+2                {[-2-]}
            <MI 206c6  TST.B   (A7)+>                        Δ+2                {}
            <MI 206c8  BEQ     0x206d0>                                         {}
        <POP 206ca-206d0 Naked>                              Σ0         ↓
            <Const 0x206ca 0xd.2>                            Δ-2                {[#13]}
            <Call 0x206cc 0x21882>                                              {[#13]}
                exp_CLEAR_HITS.MEM()
            <POP 206ce-206d0 StackAdj>                       Δ+2                {}
        <POP 206d0-206dc Naked>                              Σ0         ↓ →0x206e2 ←0x206be
            <POP 206d0-206d2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x206d2 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x206d4 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206d6-206d8 StackAdj>                       Δ+2                {[-2-]}
            <MI 206d8  TST.B   (A7)+>                        Δ+2                {}
            <MI 206da  BEQ     0x206e2>                                         {}
        <POP 206dc-206e2 Naked>                              Σ0         ↓
            <Const 0x206dc 0xe.2>                            Δ-2                {[#14]}
            <Call 0x206de 0x21882>                                              {[#14]}
                exp_CLEAR_HITS.MEM()
            <POP 206e0-206e2 StackAdj>                       Δ+2                {}
        <POP 206e2-206ee Naked>                              Σ0         ↓ →0x206f4 ←0x206d0
            <POP 206e2-206e4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x206e4 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x206e6 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206e8-206ea StackAdj>                       Δ+2                {[-2-]}
            <MI 206ea  TST.B   (A7)+>                        Δ+2                {}
            <MI 206ec  BEQ     0x206f4>                                         {}
        <POP 206ee-206f4 Naked>                              Σ0         ↓
            <Const 0x206ee 0xf.2>                            Δ-2                {[#15]}
            <Call 0x206f0 0x21882>                                              {[#15]}
                exp_CLEAR_HITS.MEM()
            <POP 206f2-206f4 StackAdj>                       Δ+2                {}
        <POP 206f4-20726 Naked>                              Σ0         ↓ →0x20730 ←0x206e2
            <MI 206f4  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x206f6 0x21202>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.TYP(Sw_2)
            <MI 206fc  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x206fe 0x212a6>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.VAL(Sw_2)
            <MI 20704  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x20706 0x21954>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.IOC(Sw_2)
            <MI 2070c  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x2070e 0x2111e>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.SEQ(Sw_2)
            <MI 20714  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x20716 0x2103a>                                              {[2, '(A6+0x8)']}
                exp_PREP_RUN.FIU(Sw_2)
            <Const 0x2071c 0xc.2>                            Δ-2                {[2, '(A6+0x8)']|[#12]}
            <Call 0x2071e 0x104c0>                                              {[2, '(A6+0x8)']|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20720-20722 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 20722  TST.B   (A7)+>                        Δ+2                {}
            <MI 20724  BEQ     0x20730>                                         {}
        <POP 20726-20730 Naked>                              Σ0         ↓
            <Const 0x20726 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20728 0x217d8>                                              {[#12]}
            <POP 2072e-20730 StackAdj>                       Δ+2                {}
        <POP 20730-2073c Naked>                              Σ0         ↓ →0x20746 ←0x206f4
            <POP 20730-20732 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20732 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20734 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20736-20738 StackAdj>                       Δ+2                {[-2-]}
            <MI 20738  TST.B   (A7)+>                        Δ+2                {}
            <MI 2073a  BEQ     0x20746>                                         {}
        <POP 2073c-20746 Naked>                              Σ0         ↓
            <Const 0x2073c 0xd.2>                            Δ-2                {[#13]}
            <Call 0x2073e 0x217d8>                                              {[#13]}
            <POP 20744-20746 StackAdj>                       Δ+2                {}
        <POP 20746-20752 Naked>                              Σ0         ↓ →0x2075c ←0x20730
            <POP 20746-20748 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20748 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x2074a 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2074c-2074e StackAdj>                       Δ+2                {[-2-]}
            <MI 2074e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20750  BEQ     0x2075c>                                         {}
        <POP 20752-2075c Naked>                              Σ0         ↓
            <Const 0x20752 0xe.2>                            Δ-2                {[#14]}
            <Call 0x20754 0x217d8>                                              {[#14]}
            <POP 2075a-2075c StackAdj>                       Δ+2                {}
        <POP 2075c-20768 Naked>                              Σ0         ↓ →0x20772 ←0x20746
            <POP 2075c-2075e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2075e 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20760 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20762-20764 StackAdj>                       Δ+2                {[-2-]}
            <MI 20764  TST.B   (A7)+>                        Δ+2                {}
            <MI 20766  BEQ     0x20772>                                         {}
        <POP 20768-20772 Naked>                              Σ0         ↓
            <Const 0x20768 0xf.2>                            Δ-2                {[#15]}
            <Call 0x2076a 0x217d8>                                              {[#15]}
            <POP 20770-20772 StackAdj>                       Δ+2                {}
        <POP 20772-2077a Epilogue>                           Σ0         ←0x2075c

0x2077a


@ 2077a
START_ALL_BOARDS()
    <POP 2077a-20818 Body>                                              
        <POP 2077a-20790 Prologue>                           Σ0         ↓
        <POP 20790-207a4 RegCacheLoad>                       Σ0         ↓
        <POP 207a4-207ce Naked>                              Σ0         ↓ →0x207d4
            <Call 0x207a4 0x210ae>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x207aa 0x211ae>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x207b0 0x21274>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x207b6 0x21104>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x207bc 0x2193a>                                              {}
                exp_RUN_CHECK.IOC()
            <POP 207c2-207c4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207c4 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x207c6 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207c8-207ca StackAdj>                       Δ+2                {[-2-]}
            <MI 207ca  TST.B   (A7)+>                        Δ+2                {}
            <MI 207cc  BEQ     0x207d4>                                         {}
        <POP 207ce-207d4 Naked>                              Σ0         ↓
            <Const 0x207ce 0xc.2>                            Δ-2                {[#12]}
            <Call 0x207d0 0x21476>                                              {[#12]}
                exp_RUN_CHECK.MEM()
            <POP 207d2-207d4 StackAdj>                       Δ+2                {}
        <POP 207d4-207e0 Naked>                              Σ0         ↓ →0x207e6 ←0x207a4
            <POP 207d4-207d6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207d6 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x207d8 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207da-207dc StackAdj>                       Δ+2                {[-2-]}
            <MI 207dc  TST.B   (A7)+>                        Δ+2                {}
            <MI 207de  BEQ     0x207e6>                                         {}
        <POP 207e0-207e6 Naked>                              Σ0         ↓
            <Const 0x207e0 0xd.2>                            Δ-2                {[#13]}
            <Call 0x207e2 0x21476>                                              {[#13]}
                exp_RUN_CHECK.MEM()
            <POP 207e4-207e6 StackAdj>                       Δ+2                {}
        <POP 207e6-207f2 Naked>                              Σ0         ↓ →0x207f8 ←0x207d4
            <POP 207e6-207e8 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207e8 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x207ea 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207ec-207ee StackAdj>                       Δ+2                {[-2-]}
            <MI 207ee  TST.B   (A7)+>                        Δ+2                {}
            <MI 207f0  BEQ     0x207f8>                                         {}
        <POP 207f2-207f8 Naked>                              Σ0         ↓
            <Const 0x207f2 0xe.2>                            Δ-2                {[#14]}
            <Call 0x207f4 0x21476>                                              {[#14]}
                exp_RUN_CHECK.MEM()
            <POP 207f6-207f8 StackAdj>                       Δ+2                {}
        <POP 207f8-20804 Naked>                              Σ0         ↓ →0x2080a ←0x207e6
            <POP 207f8-207fa StackAdj>                       Δ-2                {[-2-]}
            <Const 0x207fa 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x207fc 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 207fe-20800 StackAdj>                       Δ+2                {[-2-]}
            <MI 20800  TST.B   (A7)+>                        Δ+2                {}
            <MI 20802  BEQ     0x2080a>                                         {}
        <POP 20804-2080a Naked>                              Σ0         ↓
            <Const 0x20804 0xf.2>                            Δ-2                {[#15]}
            <Call 0x20806 0x21476>                                              {[#15]}
                exp_RUN_CHECK.MEM()
            <POP 20808-2080a StackAdj>                       Δ+2                {}
        <POP 2080a-20810 Naked>                              Σ0         ↓ ←0x207f8
            <Call 0x2080a 0x21008>                                              {}
                exp_RUN_NORMAL.FIU()
        <POP 20810-20818 Epilogue>                           Σ0         

0x20818


@ 20818
        <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 20818-20948 Body>                                              
        <POP 20818-2082e Prologue>                           Σ0         ↓
        <POP 2082e-20848 RegCacheLoad>                       Σ0         ↓
        <POP 20848-20872 Naked>                              Σ0         ↓ →0x20878
            <Call 0x20848 0x210ae>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x2084e 0x21924>                                              {}
                exp_RESET.IOC()
            <Call 0x20854 0x21290>                                              {}
                exp_RESET.VAL()
            <Call 0x2085a 0x211ca>                                              {}
                exp_RESET.TYP()
            <Call 0x20860 0x210ee>                                              {}
                exp_RESET.SEQ()
            <POP 20866-20868 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20868 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x2086a 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2086c-2086e StackAdj>                       Δ+2                {[-2-]}
            <MI 2086e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20870  BEQ     0x20878>                                         {}
        <POP 20872-20878 Naked>                              Σ0         ↓
            <Const 0x20872 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20874 0x213cc>                                              {[#12]}
                exp_RESET_MEM.MEM()
            <POP 20876-20878 StackAdj>                       Δ+2                {}
        <POP 20878-20884 Naked>                              Σ0         ↓ →0x2088a ←0x20848
            <POP 20878-2087a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2087a 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2087c 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2087e-20880 StackAdj>                       Δ+2                {[-2-]}
            <MI 20880  TST.B   (A7)+>                        Δ+2                {}
            <MI 20882  BEQ     0x2088a>                                         {}
        <POP 20884-2088a Naked>                              Σ0         ↓
            <Const 0x20884 0xd.2>                            Δ-2                {[#13]}
            <Call 0x20886 0x213cc>                                              {[#13]}
                exp_RESET_MEM.MEM()
            <POP 20888-2088a StackAdj>                       Δ+2                {}
        <POP 2088a-20896 Naked>                              Σ0         ↓ →0x2089c ←0x20878
            <POP 2088a-2088c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2088c 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x2088e 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20890-20892 StackAdj>                       Δ+2                {[-2-]}
            <MI 20892  TST.B   (A7)+>                        Δ+2                {}
            <MI 20894  BEQ     0x2089c>                                         {}
        <POP 20896-2089c Naked>                              Σ0         ↓
            <Const 0x20896 0xe.2>                            Δ-2                {[#14]}
            <Call 0x20898 0x213cc>                                              {[#14]}
                exp_RESET_MEM.MEM()
            <POP 2089a-2089c StackAdj>                       Δ+2                {}
        <POP 2089c-208a8 Naked>                              Σ0         ↓ →0x208ae ←0x2088a
            <POP 2089c-2089e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2089e 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x208a0 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208a2-208a4 StackAdj>                       Δ+2                {[-2-]}
            <MI 208a4  TST.B   (A7)+>                        Δ+2                {}
            <MI 208a6  BEQ     0x208ae>                                         {}
        <POP 208a8-208ae Naked>                              Σ0         ↓
            <Const 0x208a8 0xf.2>                            Δ-2                {[#15]}
            <Call 0x208aa 0x213cc>                                              {[#15]}
                exp_RESET_MEM.MEM()
            <POP 208ac-208ae StackAdj>                       Δ+2                {}
        <POP 208ae-208d8 Naked>                              Σ0         ↓ ←0x2089c
            <Call 0x208ae 0x21024>                                              {}
                exp_RESET.FIU()
            <MI 208b4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 208b8  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x208ba 0x21138>                                              {[4, '^(A0)']}
                exp_HALT.SEQ(&Fr)
            <POP 208c0-208c2 StackAdj>                       Δ+4                {}
            <MI 208c2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 208c6  CLR.B   (A0)>                                            {}
            <MI 208c8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 208cc  CLR.B   (A0)>                                            {}
            <MI 208ce  CLR.B   (A0+0xb)>                                        {}
            <MI 208d2  CLR.B   (A0+0x1)>                                        {}
            <MI 208d6  MOVEQ.L #0x02,D7>                                        {}
        <POP 208d8-208de Naked>                              Σ0         ↓ →0x208fe ←0x20936
            <MI 208d8  CMPI.B  #0x05,D7>                                        {}
            <MI 208dc  BEQ     0x208fe>                                         {}
        <POP 208de-208fe Naked>                              Σ0         →0x20918
            <MI 208de  MOVE.B  D7,D0>                                           {}
            <MI 208e0  EXTB.W  D0>                                              {}
            <MI 208e2  LEA.L   0x20308,A0>                                      {}
            <MI 208e6  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Pointer.fp 0x208ea <LVAR -0x006 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]}
            <Pointer.fp 0x208ee <LVAR -0x005 @ 1(rw)>>       Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]}
            <Pointer.fp 0x208f0 <LVAR -0x004 @>>             Δ-4                {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
            <Call 0x208f4 0x10484>                                              {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 208fa-208fc StackAdj>                       Δ+14               {}
            <MI 208fc  BRA     0x20918>                                         {}
        <POP 208fe-20916 Naked>                              Σ0         ↓ →0x20918 ←0x208d8
            <Pointer.fp 0x208fe <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Call 0x20902 0x2114e>                                              {[@@-7]}
                exp_GET_MISC_ERRORS.SEQ(&Sr_1)
            <POP 20908-2090a StackAdj>                       Δ+4                {}
            <MI 2090a  CLR.L   D0>                                              {}
            <MI 2090c  MOVE.B  (A6-0x7),D0>                                     {}
            <MI 20910  CMPI.W  #0x001f,D0>                                      {}
            <MI 20914  BEQ     0x20918>                                         {}
        <POP 20916-20918 Naked>                              Σ0         ↓
            <MI 20916  MOVE.B  #0x01,(A6-0x5)>                                  {}
        <POP 20918-20930 Naked>                              Σ0 Δ-2     ↓ →0x20936 ←0x208de ←0x208fe
            <MI 20918  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2091c  MOVE.B  D7,D0>                                           {}
            <MI 2091e  EXTB.W  D0>                                              {}
            <MI 20920  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 20922  MOVE.B  (A6-0x5),D1>                                     {[2, 'D0']}
            <MI 20924  EXTB.W  D1>                                              {[2, 'D0']}
            <POP 0x20926 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[2, 'D0']}
            <MI 20928  MOVE.B  D1,(A0+D0.W)>                                    {[2, 'D0']}
            <MI 2092c  TST.W   D1>                                              {[2, 'D0']}
            <MI 2092e  BEQ     0x20936>                                         {[2, 'D0']}
        <POP 20930-20936 Naked>                              Σ-2        ↓
            <MI 20930  MOVEA.L (A6+0xc),A0>                                     {[-2-]}
            <MI 20934  MOVE.B  #0x01,(A0)>                                      {[-2-]}
        <POP 20936-20940 Naked>                              Σ-2 Δ+2    ↓ →0x208d8 ←0x20918
            <MI 20936  MOVE.W  (A7)+,D7>                     Δ+2                {}
            <MI 20938  ADDQ.W  #0x1,D7>                                         {}
            <MI 2093a  CMPI.W  #0x000a,D7>                                      {}
            <MI 2093e  BLE     0x208d8>                                         {}
        <POP 20940-20948 Epilogue>                           Σ0         

0x20948


@ 20948
        <LVAR  0x008 1(r)>
        <LVAR -0x004 1(r)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x00d @>
        <LVAR -0x00e @ 1(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x023 @>
        <LVAR -0x024 @>
        <LVAR -0x025 @ 1(r)>
        <LVAR -0x026 @ 1(r)>
    <POP 20948-20bd6 Body>                                   Δ+72       
        <POP 20948-2095e Prologue>                           Σ0         ↓
        <POP 2095e-20978 RegCacheLoad>                       Σ0         ↓
        <POP 20978-20994 Naked>                              Σ0         ↓ →0x20ab4
            <Pointer.fp 0x20978 <LVAR -0x026 @ 1(r)>>        Δ-4                {[@@-38]}
            <Pointer.fp 0x2097c <LVAR -0x025 @ 1(r)>>        Δ-4                {[@@-38]|[@@-37]}
            <Pointer.fp 0x20980 <LVAR -0x023 @>>             Δ-4                {[@@-38]|[@@-37]|[@@-35]}
            <Call 0x20984 0x20818>                                              {[@@-38]|[@@-37]|[@@-35]}
            <POP 20988-2098a StackAdj>                       Δ+12               {}
            <MI 2098a  CLR.B   0x21b7c>                                         {}
            <MI 2098c  TST.B   (A6-0x25)>                                       {}
            <MI 20990  BEQ     0x20ab4>                                         {}
        <POP 20994-20a30 Naked>                              Σ0 Δ-6     ↓ →0x20a6c
            <Blob 0x20994 [42] @>                            Δ-42               {[«42""»]}
            <POP 209a2-209a4 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x209a4 41>                                                    {[«42""»]|[$$a MACHINE_CHECK error occured, therefore_]}
            <Call 0x209b2 0x103d8>                                              {[«42""»]|[$$a MACHINE_CHECK error occured, therefore_]}
                WriteConsoleString(str : String)
            <POP 209b8-209bc StackAdj>                       Δ+44               {[-2-]}
            <POP 209bc-209bd StackAdj>                       Δ+2                {}
            <Blob 0x209bd [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x209c0 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x209c4 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 209c8-209ca StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x209ca 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <POP 209d6-209d8 StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[-2-]}
            <POP 209d8-209d9 StackAdj>                       Δ+2                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <Const 0x209d9 0x1.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]}
            <MI 209da  MOVE.B  0x21b7d,D0>                                      {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]}
            <MI 209e0  EXTB.W  D0>                                              {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]}
            <POP 0x209e2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]}
            <MI 209e4  MOVE.B  D0,-(A7)>                     Δ-2                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']}
            <Pointer.fp 0x209e6 <LVAR -0x024 @>>             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]}
            <Pointer.fp 0x209ea <LVAR -0x016 @ 4(r)>>        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]|[@@-22]}
            <Pointer.fp 0x209ee <LVAR -0x012 @ 4(r)>>        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]|[@@-22]|[@@-18]}
            <Pointer.fp 0x209f2 <LVAR -0x00e @ 1(r)>>        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]|[@@-22]|[@@-18]|[@@-14]}
            <Pointer.fp 0x209f6 <LVAR -0x00d @>>             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]|[@@-22]|[@@-18]|[@@-14]|[@@-13]}
            <Call 0x209fa 0x1053e>                                              {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[#1]|[2, 'D0']|[@@-36]|[@@-22]|[@@-18]|[@@-14]|[@@-13]}
                FSCALL_1053e
            <POP 20a00-20a02 StackAdj>                       Δ+32               {[«2""»]}
            <POP 20a02-20a03 StackAdj>                       Δ+2                {}
            <Blob 0x20a03 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x20a06 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x20a0a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 20a0e-20a10 StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[-2-]}
            <MI 20a10  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0x16)']}
            <POP 20a14-20a16 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x20a16 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0x16)']|[$$EMBALM]}
            <Call 0x20a24 0x102c8>                                              {[«2""»]|[«2""»]|[«2""»]|[-2-]|[4, '(A6-0x16)']|[$$EMBALM]}
                StringEqual(a, b : String) : Byte
            <POP 20a2a-20a2c StackAdj>                       Δ+8                {[«2""»]|[«2""»]|[«2""»]|[-2-]}
            <MI 20a2c  TST.B   (A7)+>                        Δ+2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 20a2e  BNE     0x20a6c>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 20a30-20a6c Naked>                              Σ-6        ↓
            <Blob 0x20a30 [4] @>                             Δ-4                {[-6-]|[«4""»]}
            <Blob 0x20a34 [4] @>                             Δ-4                {[-6-]|[«4""»]|[«4""»]}
            <POP 20a38-20a3a StackAdj>                       Δ-4                {[-6-]|[«4""»]|[«4""»]|[-4-]}
            <MI 20a3a  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 20a3e-20a40 StackAdj>                       Δ-4                {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x20a40 8>                                                     {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x16)']|[$$.ERRMESS]}
            <Call 0x20a4e 0x102d0>                                              {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x16)']|[$$.ERRMESS]}
                StringCat2(a, b : String) : String
            <POP 20a54-20a56 StackAdj>                       Δ+4                {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x16)']}
            <MI 20a56  MOVE.L  (A6-0x12),(A7)>                                  {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x12)']}
            <MI 20a5a  CLR.L   D0>                                              {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x12)']}
            <MI 20a5c  MOVE.B  (A6-0xe),D0>                                     {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x12)']}
            <MI 20a60  MOVE.L  D0,-(A7)>                     Δ-4                {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x12)']|[4, 'D0']}
            <Call 0x20a62 0x1044c>                                              {[-6-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x12)']|[4, 'D0']}
                WriteErrorMessage(file : String; txt : String; number : Long) : Bool
            <POP 20a68-20a6c StackAdj>                       Δ+20               {[-6-]}
        <POP 20a6c-20ab4 Naked>                              Σ-6 Δ+6    →0x20bce ←0x20994
            <POP 20a6c-20a6e StackAdj>                       Δ+6                {}
            <Blob 0x20a6e [36] @>                            Δ-36               {[«36""»]}
            <Blob 0x20a78 [36] @>                            Δ-36               {[«36""»]|[«36""»]}
            <POP 20a84-20a86 StackAdj>                       Δ-8                {[«36""»]|[«36""»]|[-8-]}
            <Lit 0x20a86 36>                                                    {[«36""»]|[«36""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]}
            <POP 20a90-20a92 StackAdj>                       Δ-4                {[«36""»]|[«36""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[-4-]}
            <Lit 0x20a92 36>                                                    {[«36""»]|[«36""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$see the MACHINE_CHECK analysis above]}
            <Call 0x20a9e 0x102d0>                                              {[«36""»]|[«36""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$see the MACHINE_CHECK analysis above]}
                StringCat2(a, b : String) : String
            <POP 20aa4-20aa6 StackAdj>                       Δ+8                {[«36""»]|[«36""»]|[-4-]}
            <Call 0x20aa6 0x103e0>                                              {[«36""»]|[«36""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20aac-20ab0 StackAdj>                       Δ+76               {}
            <MI 20ab0  BRA     0x20bce>                                         {}
        <POP 20ab4-20abc Naked>                              Σ0         ↓ →0x20b66 ←0x20978
            <MI 20ab4  TST.B   (A6-0x26)>                                       {}
            <MI 20ab8  BEQ     0x20b66>                                         {}
        <POP 20abc-20ae0 Naked>                              Σ0         ↓ →0x20b0a
            <Pointer.fp 0x20abc <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-5]}
            <Call 0x20ac0 0x21906>                                              {[@@-5]}
                exp_READ_LAST_PC.IOC(&Sr_2)
            <POP 20ac6-20ac8 StackAdj>                       Δ+4                {}
            <MI 20ac8  CLR.L   D0>                                              {}
            <MI 20aca  MOVE.B  (A6-0x5),D0>                                     {}
            <MI 20ace  ASL.W   #0x8,D0>                                         {}
            <MI 20ad0  CLR.L   D1>                                              {}
            <MI 20ad2  MOVE.B  (A6-0x4),D1>                                     {}
            <MI 20ad6  ADD.W   D0,D1>                                           {}
            <MI 20ad8  MOVE.W  D1,D7>                                           {}
            <MI 20ada  CMPI.W  #0x0102,D7>                                      {}
            <MI 20ade  BNE     0x20b0a>                                         {}
        <POP 20ae0-20b0a Naked>                              Σ0         →0x20b64
            <Blob 0x20ae0 [34] @>                            Δ-34               {[«34""»]}
            <POP 20aec-20aee StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x20aee 34>                                                    {[«34""»]|[$$the Confidence test (uDIAG) passed]}
            <Call 0x20afc 0x103e0>                                              {[«34""»]|[$$the Confidence test (uDIAG) passed]}
                WriteConsoleStringCrLf(str : String)
            <POP 20b02-20b06 StackAdj>                       Δ+38               {}
            <MI 20b06  MOVE.B  #0x01,0x21b7c>                                   {}
            <MI 20b08  BRA     0x20b64>                                         {}
        <POP 20b0a-20b5a Naked>                              Σ0 Δ-72    ↓ ←0x20abc
            <Blob 0x20b0a [36] @>                            Δ-36               {[«36""»]}
            <Blob 0x20b14 [32] @>                            Δ-32               {[«36""»]|[«32""»]}
            <POP 20b24-20b26 StackAdj>                       Δ-8                {[«36""»]|[«32""»]|[-8-]}
            <Lit 0x20b26 36>                                                    {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]}
            <POP 20b30-20b32 StackAdj>                       Δ-4                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[-4-]}
            <Lit 0x20b32 31>                                                    {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]}
            <POP 20b3e-20b40 StackAdj>                       Δ-4                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]}
            <MI 20b40  CLR.L   D0>                                              {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]}
            <MI 20b42  MOVE.W  D7,D0>                                           {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]}
            <MI 20b44  MOVE.L  D0,-(A7)>                     Δ-4                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]|[4, 'D0']}
            <Const 0x20b46 0x4.4>                            Δ-4                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]|[4, 'D0']|[##4]}
            <Call 0x20b4a 0x102e8>                                              {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]|[4, 'D0']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 20b50-20b52 StackAdj>                       Δ+8                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]}
            <Call 0x20b52 0x102d4>                                              {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$an error halt occured at uaddr_]|[-4-]}
                StringCat3(a, b, c : String) : String
            <POP 20b58-20b5a StackAdj>                       Δ+12               {[«36""»]|[«32""»]|[-4-]}
        <POP 20b5a-20b64 Naked>                              Σ-72 Δ+72  ↓ ←0x20b6c
            <Call 0x20b5a 0x103e0>                                              {[-72-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20b60-20b64 StackAdj>                       Δ+72               {}
        <POP 20b64-20b66 Naked>                              Σ0         →0x20bce ←0x20ae0
            <MI 20b64  BRA     0x20bce>                                         {}
        <POP 20b66-20b6c Naked>                              Σ0         ↓ →0x20ba6 ←0x20ab4
            <MI 20b66  TST.B   (A6+0x8)>                                        {}
            <MI 20b6a  BEQ     0x20ba6>                                         {}
        <POP 20b6c-20ba6 Naked>                              Σ0 Δ-72    →0x20b5a
            <Blob 0x20b6c [36] @>                            Δ-36               {[«36""»]}
            <Blob 0x20b76 [32] @>                            Δ-32               {[«36""»]|[«32""»]}
            <POP 20b82-20b84 StackAdj>                       Δ-8                {[«36""»]|[«32""»]|[-8-]}
            <Lit 0x20b84 36>                                                    {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]}
            <POP 20b8e-20b90 StackAdj>                       Δ-4                {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[-4-]}
            <Lit 0x20b90 32>                                                    {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$timed out waiting for it to halt]}
            <Call 0x20b9c 0x102d0>                                              {[«36""»]|[«32""»]|[-4-]|[$$*** Confidence test (uDIAG) failed:_]|[$$timed out waiting for it to halt]}
                StringCat2(a, b : String) : String
            <POP 20ba2-20ba4 StackAdj>                       Δ+8                {[«36""»]|[«32""»]|[-4-]}
            <MI 20ba4  BRA     0x20b5a>                                         {[«36""»]|[«32""»]|[-4-]}
        <POP 20ba6-20bce Naked>                              Σ0         ↓ ←0x20b66
            <Blob 0x20ba6 [42] @>                            Δ-42               {[«42""»]}
            <Const 0x20bb2 0xe.2>                            Δ-2                {[«42""»]|[#14]}
            <POP 20bb6-20bb8 StackAdj>                       Δ-4                {[«42""»]|[#14]|[-4-]}
            <Lit 0x20bb8 42>                                                    {[«42""»]|[#14]|[$$internal error: no MCHK or HALT or TIMEOUT]}
            <Call 0x20bc4 0x103b8>                                              {[«42""»]|[#14]|[$$internal error: no MCHK or HALT or TIMEOUT]}
                PopProgram(status : Byte; msg : String)
            <POP 20bca-20bce StackAdj>                       Δ+48               {}
        <POP 20bce-20bd6 Epilogue>                           Σ0         ←0x20a6c ←0x20b64

0x20bd6


@ 20bd6
RUN_UNTIL_STOP()
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b @ 1(r)>
        <LVAR -0x00c @>
    <POP 20bd6-20ce2 Body>                                              
        <POP 20bd6-20bec Prologue>                           Σ0         ↓
        <POP 20bec-20c02 RegCacheLoad>                       Σ0         ↓
        <POP 20c02-20c10 Naked>                              Σ0         ↓
            <MI 20c02  MOVE.L  #0x96,D5>                                        {}
            <MI 20c08  MOVEQ.L #0x00,D7>                                        {}
            <MI 20c0a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20c0e  CLR.B   (A0)>                                            {}
        <POP 20c10-20c98 Naked>                              Σ0         ↓ ←0x20cca
            <Const 0x20c10 0x9896.4>                         Δ-4                {[##39062]}
            <Call 0x20c16 0x10224>                                              {[##39062]}
                KC12_Sleep(dur: Long)
            <POP 20c1c-20c1e StackAdj>                       Δ+2                {[-2-]}
            <POP 20c1e-20c1f StackAdj>                       Δ+2                {}
            <Const 0x20c1f 0x4.2>                            Δ-2                {[#4]}
            <Pointer.fp 0x20c22 <LVAR -0x00c @>>             Δ-4                {[#4]|[@@-12]}
            <Pointer.fp 0x20c24 <LVAR -0x00b @ 1(r)>>        Δ-4                {[#4]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20c26 <LVAR -0x00a @>>             Δ-4                {[#4]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20c28 0x10484>                                              {[#4]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20c2a-20c2c StackAdj>                       Δ+14               {}
            <MI 20c2c  MOVE.B  D7,D0>                                           {}
            <MI 20c2e  OR.B    (A6-0xb),D0>                                     {}
            <MI 20c30  EXTB.W  D0>                                              {}
            <POP 0x20c32 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20c34  MOVE.B  D0,D7>                                           {}
            <Const 0x20c36 0x7.2>                            Δ-2                {[#7]}
            <Pointer.fp 0x20c3a <LVAR -0x00c @>>             Δ-4                {[#7]|[@@-12]}
            <Pointer.fp 0x20c3c <LVAR -0x00b @ 1(r)>>        Δ-4                {[#7]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20c3e <LVAR -0x00a @>>             Δ-4                {[#7]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20c40 0x10484>                                              {[#7]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20c42-20c44 StackAdj>                       Δ+14               {}
            <MI 20c44  MOVE.B  D7,D0>                                           {}
            <MI 20c46  OR.B    (A6-0xb),D0>                                     {}
            <MI 20c48  EXTB.W  D0>                                              {}
            <POP 0x20c4a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20c4c  MOVE.B  D0,D7>                                           {}
            <Const 0x20c4e 0x6.2>                            Δ-2                {[#6]}
            <Pointer.fp 0x20c52 <LVAR -0x00c @>>             Δ-4                {[#6]|[@@-12]}
            <Pointer.fp 0x20c54 <LVAR -0x00b @ 1(r)>>        Δ-4                {[#6]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20c56 <LVAR -0x00a @>>             Δ-4                {[#6]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20c58 0x10484>                                              {[#6]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20c5a-20c5c StackAdj>                       Δ+14               {}
            <MI 20c5c  MOVE.B  D7,D0>                                           {}
            <MI 20c5e  OR.B    (A6-0xb),D0>                                     {}
            <MI 20c60  EXTB.W  D0>                                              {}
            <POP 0x20c62 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20c64  MOVE.B  D0,D7>                                           {}
            <Const 0x20c66 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x20c6a <LVAR -0x00c @>>             Δ-4                {[#2]|[@@-12]}
            <Pointer.fp 0x20c6c <LVAR -0x00b @ 1(r)>>        Δ-4                {[#2]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20c6e <LVAR -0x00a @>>             Δ-4                {[#2]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20c70 0x10484>                                              {[#2]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20c72-20c74 StackAdj>                       Δ+14               {}
            <MI 20c74  MOVE.B  D7,D0>                                           {}
            <MI 20c76  OR.B    (A6-0xb),D0>                                     {}
            <MI 20c78  EXTB.W  D0>                                              {}
            <POP 0x20c7a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20c7c  MOVE.B  D0,D7>                                           {}
            <Const 0x20c7e 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x20c82 <LVAR -0x00c @>>             Δ-4                {[#3]|[@@-12]}
            <Pointer.fp 0x20c84 <LVAR -0x00b @ 1(r)>>        Δ-4                {[#3]|[@@-12]|[@@-11]}
            <Pointer.fp 0x20c86 <LVAR -0x00a @>>             Δ-4                {[#3]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20c88 0x10484>                                              {[#3]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20c8a-20c8c StackAdj>                       Δ+14               {}
            <MI 20c8c  MOVE.B  D7,D0>                                           {}
            <MI 20c8e  OR.B    (A6-0xb),D0>                                     {}
            <MI 20c90  EXTB.W  D0>                                              {}
            <POP 0x20c92 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20c94  MOVE.B  D0,D7>                                           {}
            <MI 20c96  MOVEQ.L #0x0c,D6>                                        {}
        <POP 20c98-20ca8 Naked>                              Σ0         ↓ →0x20cbe ←0x20cbe
            <POP 20c98-20c9a StackAdj>                       Δ-2                {[-2-]}
            <MI 20c9a  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x20c9c 0x104c0>                                              {[-2-]|[2, 'D6']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ca2-20ca4 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ca4  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ca6  BEQ     0x20cbe>                                         {}
        <POP 20ca8-20cbe Naked>                              Σ0         ↓
            <MI 20ca8  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x20caa <LVAR -0x00c @>>             Δ-4                {[2, 'D6']|[@@-12]}
            <Pointer.fp 0x20cac <LVAR -0x00b @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-12]|[@@-11]}
            <Pointer.fp 0x20cae <LVAR -0x00a @>>             Δ-4                {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x20cb0 0x10484>                                              {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20cb2-20cb4 StackAdj>                       Δ+14               {}
            <MI 20cb4  MOVE.B  D7,D0>                                           {}
            <MI 20cb6  OR.B    (A6-0xb),D0>                                     {}
            <MI 20cb8  EXTB.W  D0>                                              {}
            <POP 0x20cba LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20cbc  MOVE.B  D0,D7>                                           {}
        <POP 20cbe-20cc6 Naked>                              Σ0         ↓ →0x20c98 ←0x20c98
            <MI 20cbe  ADDQ.B  #0x1,D6>                                         {}
            <MI 20cc0  CMPI.B  #0x0f,D6>                                        {}
            <MI 20cc4  BLE     0x20c98>                                         {}
        <POP 20cc6-20cca Naked>                              Σ0         ↓ →0x20cd0
            <MI 20cc6  SUBQ.L  #0x1,D5>                                         {}
            <MI 20cc8  BEQ     0x20cd0>                                         {}
        <POP 20cca-20cd0 Naked>                              Σ0         ↓ →0x20c10
            <MI 20cca  TST.B   D7>                                              {}
            <MI 20ccc  BEQ     0x20c10>                                         {}
        <POP 20cd0-20cda Naked>                              Σ0         ↓ ←0x20cc6
            <MI 20cd0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20cd4  MOVE.B  D7,(A0)>                                         {}
            <MI 20cd6  NEG.B   (A0)>                                            {}
            <MI 20cd8  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 20cda-20ce2 Epilogue>                           Σ0         

0x20ce2


@ 20ce2
    <POP 20ce2-20d9c Body>                                              
        <POP 20ce2-20cf8 Prologue>                           Σ0         ↓
        <POP 20cf8-20d14 RegCacheLoad>                       Σ0         ↓
        <POP 20d14-20d20 Naked>                              Σ0         ↓ →0x20d34
            <POP 20d14-20d16 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20d16 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20d18 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20d1a-20d1c StackAdj>                       Δ+2                {[-2-]}
            <MI 20d1c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20d1e  BEQ     0x20d34>                                         {}
        <POP 20d20-20d34 Naked>                              Σ0         ↓
            <Const 0x20d20 0xc.2>                            Δ-2                {[#12]}
            <Blob 0x20d22 [20] @>                            Δ-20               {[#12]|[«20""»]}
            <Call 0x20d30 0x21608>                                              {[#12]|[«20""»]}
                exp_FILL_MEMORY.MEM()
            <POP 20d32-20d34 StackAdj>                       Δ+22               {}
        <POP 20d34-20d40 Naked>                              Σ0         ↓ →0x20d54 ←0x20d14
            <POP 20d34-20d36 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20d36 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20d38 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20d3a-20d3c StackAdj>                       Δ+2                {[-2-]}
            <MI 20d3c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20d3e  BEQ     0x20d54>                                         {}
        <POP 20d40-20d54 Naked>                              Σ0         ↓
            <Const 0x20d40 0xd.2>                            Δ-2                {[#13]}
            <Blob 0x20d42 [20] @>                            Δ-20               {[#13]|[«20""»]}
            <Call 0x20d50 0x21608>                                              {[#13]|[«20""»]}
                exp_FILL_MEMORY.MEM()
            <POP 20d52-20d54 StackAdj>                       Δ+22               {}
        <POP 20d54-20d60 Naked>                              Σ0         ↓ →0x20d74 ←0x20d34
            <POP 20d54-20d56 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20d56 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x20d58 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20d5a-20d5c StackAdj>                       Δ+2                {[-2-]}
            <MI 20d5c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20d5e  BEQ     0x20d74>                                         {}
        <POP 20d60-20d74 Naked>                              Σ0         ↓
            <Const 0x20d60 0xe.2>                            Δ-2                {[#14]}
            <Blob 0x20d62 [20] @>                            Δ-20               {[#14]|[«20""»]}
            <Call 0x20d70 0x21608>                                              {[#14]|[«20""»]}
                exp_FILL_MEMORY.MEM()
            <POP 20d72-20d74 StackAdj>                       Δ+22               {}
        <POP 20d74-20d80 Naked>                              Σ0         ↓ →0x20d94 ←0x20d54
            <POP 20d74-20d76 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20d76 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x20d78 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20d7a-20d7c StackAdj>                       Δ+2                {[-2-]}
            <MI 20d7c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20d7e  BEQ     0x20d94>                                         {}
        <POP 20d80-20d94 Naked>                              Σ0         ↓
            <Const 0x20d80 0xf.2>                            Δ-2                {[#15]}
            <Blob 0x20d82 [20] @>                            Δ-20               {[#15]|[«20""»]}
            <Call 0x20d90 0x21608>                                              {[#15]|[«20""»]}
                exp_FILL_MEMORY.MEM()
            <POP 20d92-20d94 StackAdj>                       Δ+22               {}
        <POP 20d94-20d9c Epilogue>                           Σ0         ←0x20d74

0x20d9c


@ 20d9c
START
    <POP 20d9c--0001 Body>                                              
        <POP 20d9c-20da6 Prologue>                           Σ0         
        <POP 20da6-20dbc RegCacheLoad>                       Σ0         ↓
        <POP 20dbc-20e18 Naked>                              Σ0         ↓ →0x20e2a
            <Call 0x20dbc 0x10398>                                              {}
                FSCALL_10398
            <Blob 0x20dc2 [44] @>                            Δ-44               {[«44""»]}
            <POP 20dce-20dd0 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x20dd0 44>                                                    {[«44""»]|[$$preparing to run the Confidence Test (uDIAG)]}
            <Call 0x20de2 0x103e0>                                              {[«44""»]|[$$preparing to run the Confidence Test (uDIAG)]}
                WriteConsoleStringCrLf(str : String)
            <POP 20de8-20dec StackAdj>                       Δ+48               {}
            <Call 0x20dec 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x20df2 0x21b7e.4>                        Δ-4                {[##138110]}
            <Call 0x20df4 0x10526>                                              {[##138110]}
                IPC_GetBool() : Bool
            <POP 20dfa-20dfc StackAdj>                       Δ+4                {}
            <Const 0x20dfc 0x21b7d.4>                        Δ-4                {[##138109]}
            <Call 0x20dfe 0x10526>                                              {[##138109]}
                IPC_GetBool() : Bool
            <POP 20e04-20e06 StackAdj>                       Δ+4                {}
            <Const 0x20e06 0x21b80.4>                        Δ-4                {[##138112]}
            <Call 0x20e0c 0x10526>                                              {[##138112]}
                IPC_GetBool() : Bool
            <POP 20e12-20e14 StackAdj>                       Δ+4                {}
            <MI 20e14  TST.B   0x21b7e>                                         {}
            <MI 20e16  BEQ     0x20e2a>                                         {}
        <POP 20e18-20e2a Naked>                              Σ0         →0x20eac
            <MI 20e18  LEA.L   0x21b86,A0>                                      {}
            <MI 20e1a  LEA.L   0x20327,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 20e26  BRA     0x20eac>                                         {}
        <POP 20e2a-20e8a Naked>                              Σ0 Δ-36    ↓ →0x20e9a ←0x20dbc
            <Blob 0x20e2a [66] @>                            Δ-66               {[«66""»]}
            <POP 20e3c-20e3e StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x20e3e 65>                                                    {[«66""»]|[$$The long version stress tests the DRAMs but runs 2 minutes longer]}
            <Call 0x20e50 0x103e0>                                              {[«66""»]|[$$The long version stress tests the DRAMs but runs 2 minutes longer]}
                WriteConsoleStringCrLf(str : String)
            <POP 20e56-20e57 StackAdj>                       Δ+70       ↓       {}
            <Blob 0x20e57 [36] @>                            Δ-36               {[«36""»]}
            <POP 20e68-20e6a StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x20e6a 35>                                                    {[«36""»]|[-2-]|[$$Do you want to run the long version]}
            <POP 20e7a-20e7c StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you want to run the long version]|[-2-]}
            <MI 20e7c  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you want to run the long version]|[-2-]}
            <Call 0x20e7e 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you want to run the long version]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20e84-20e86 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 20e86  TST.B   (A7)+>                        Δ+2                {[«36""»]}
            <MI 20e88  BEQ     0x20e9a>                                         {[«36""»]}
        <POP 20e8a-20e9a Naked>                              Σ-36       →0x20ea8
            <MI 20e8a  LEA.L   0x21b86,A0>                                      {[-36-]}
            <MI 20e8c  LEA.L   0x2032f,A1>                                      {[-36-]}
            <BlockMove 8,A1,A0>                                                 {[-36-]}
            <MI 20e98  BRA     0x20ea8>                                         {[-36-]}
        <POP 20e9a-20ea8 Naked>                              Σ-36       ↓ ←0x20e2a
            <MI 20e9a  LEA.L   0x21b86,A0>                                      {[-36-]}
            <MI 20e9c  LEA.L   0x20337,A1>                                      {[-36-]}
            <BlockMove 8,A1,A0>                                                 {[-36-]}
        <POP 20ea8-20eac Naked>                              Σ-36 Δ+36  ↓ ←0x20e8a
            <POP 20ea8-20eac StackAdj>                       Δ+36               {}
        <POP 20eac-20f92 Naked>                              Σ0         ↓ →0x20fa4 ←0x20e18
            <Const 0x20eac 0x0.4>                            Δ-4                {[##0]}
            <Call 0x20eb0 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 20eb6-20eb8 StackAdj>                       Δ+2                {[-2-]}
            <POP 20eb8-20eb9 StackAdj>                       Δ+2                {}
            <Blob 0x20eb9 [2] 0x21b7d>                       Δ-2                {[«2»]}
            <Call 0x20eba 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 20ec0-20ec2 StackAdj>                       Δ+2                {}
            <Call 0x20ec2 0x2050a>                                              {}
            <Blob 0x20ec6 [16] @>                            Δ-16               {[«16""»]}
            <MI 20ed8  CLR.B   -(A7)>                        Δ-2                {[«16""»]|[#0]}
            <POP 20eda-20edc StackAdj>                       Δ-4                {[«16""»]|[#0]|[-4-]}
            <Lit 0x20edc 15>                                                    {[«16""»]|[#0]|[$$DIAG.M200_UCODE]}
            <POP 20eec-20eee StackAdj>                       Δ-2                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[-2-]}
            <POP 20eee-20eef StackAdj>                       Δ+2                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]}
            <Blob 0x20eef [2] 0x21b80>                       Δ-2                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[«2»]}
            <Const 0x20ef4 0x1.2>                            Δ-2                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[«2»]|[#1]}
            <Const 0x20ef6 0x1.2>                            Δ-2                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[«2»]|[#1]|[#1]}
            <Const 0x20ef8 0x21b81.4>                        Δ-4                {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[«2»]|[#1]|[#1]|[##138113]}
            <Call 0x20efe 0x20442>                                              {[«16""»]|[#0]|[$$DIAG.M200_UCODE]|[«2»]|[#1]|[#1]|[##138113]}
            <POP 20f02-20f06 StackAdj>                       Δ+28               {[-4-]}
            <POP 20f06-20f07 StackAdj>                       Δ+4                {}
            <Blob 0x20f07 [4] 0x21b8a>                       Δ-4                {[«4»]}
            <Blob 0x20f0c [4] 0x21b86>                       Δ-4                {[«4»]|[«4»]}
            <Const 0x20f0e 0x21b8e.4>                        Δ-4                {[«4»]|[«4»]|[##138126]}
            <Call 0x20f14 0x211e0>                                              {[«4»]|[«4»]|[##138126]}
                exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
            <POP 20f1a-20f1c StackAdj>                       Δ+10               {[-2-]}
            <POP 20f1c-20f1d StackAdj>                       Δ+2                {}
            <Const 0x20f1d 0x320.2>                          Δ-2                {[#800]}
            <Blob 0x20f20 [10] 0x21b8e>                      Δ-10               {[#800]|[«10»]}
            <MI 20f32  CLR.B   -(A7)>                        Δ-2                {[#800]|[«10»]|[#0]}
            <Call 0x20f34 0x21190>                                              {[#800]|[«10»]|[#0]}
                exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
            <POP 20f3a-20f3c StackAdj>                       Δ+10               {[#800]|[-2-]}
            <POP 20f3c-20f3d StackAdj>                       Δ+4                {}
            <Blob 0x20f3d [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20f40 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 20f44  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x20f46 0x212c0>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.VAL(Sw_8, Sw_1)
            <POP 20f4c-20f4e StackAdj>                       Δ+6                {[«4""»]}
            <POP 20f4e-20f4f StackAdj>                       Δ+4                {}
            <Blob 0x20f4f [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20f52 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 20f56  CLR.B   -(A7)>                        Δ-2                {[«4""»]|[«4""»]|[#0]}
            <Call 0x20f58 0x2121c>                                              {[«4""»]|[«4""»]|[#0]}
                exp_LOAD_WDR.TYP(Sw_8, Sw_1)
            <POP 20f5e-20f60 StackAdj>                       Δ+10               {}
            <Call 0x20f60 0x20ce2>                                              {}
            <Const 0x20f64 0x100.2>                          Δ-2                {[#256]}
            <Call 0x20f68 0x205f8>                                              {[#256]}
            <POP 20f6c-20f6e StackAdj>                       Δ+2                {}
            <Call 0x20f6e 0x2077a>                                              {}
                START_ALL_BOARDS()
            <Const 0x20f72 0x21b7f.4>                        Δ-4                {[##138111]}
            <Call 0x20f78 0x20bd6>                                              {[##138111]}
                RUN_UNTIL_STOP()
            <POP 20f7c-20f7e StackAdj>                       Δ+2                {[-2-]}
            <POP 20f7e-20f7f StackAdj>                       Δ+2                {}
            <Blob 0x20f7f [2] 0x21b7f>                       Δ-2                {[«2»]}
            <Call 0x20f84 0x20948>                                              {[«2»]}
            <POP 20f88-20f8a StackAdj>                       Δ+2                {}
            <MI 20f8a  TST.B   0x21b7c>                                         {}
            <MI 20f90  BEQ     0x20fa4>                                         {}
        <POP 20f92-20f96 Naked>                              Σ0         ↓ →0x20fa4
            <MI 20f92  TST.B   0x21b7e>                                         {}
            <MI 20f94  BNE     0x20fa4>                                         {}
        <POP 20f96-20fa4 Naked>                              Σ0         ↓
            <Blob 0x20f96 [2] 0x21b7d>                       Δ-2                {[«2»]}
            <Const 0x20f98 0x21b81.4>                        Δ-4                {[«2»]|[##138113]}
            <Call 0x20f9e 0x20340>                                              {[«2»]|[##138113]}
            <POP 20fa2-20fa4 StackAdj>                       Δ+6                {}
        <POP 20fa4-20fc4 Naked>                              Σ0         ↓ ←0x20eac ←0x20f92
            <Call 0x20fa4 0x10538>                                              {}
                IPC_Init(void)
            <Blob 0x20faa [2] 0x21b7c>                       Δ-2                {[«2»]}
            <Call 0x20fb0 0x10502>                                              {[«2»]}
                IPC_PutBool(a : Bool)
            <MI 20fb6  CLR.B   (A7)>                                            {[«2»]}
            <Const 0x20fb8 0x1.4>                            Δ-4                {[«2»]|[##1]}
            <Call 0x20fbc 0x103b8>                                              {[«2»]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20fc2-20fc4 StackAdj>                       Δ+6                {}
        <POP 20fc4-20fca Naked>                              Σ0         
            <Call 0x20fc4 0x10284>                                              {}
                ?exit

0x2130e


@ 2130e
exp_SET_HIT.MEM()
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 2130e-213b8 Body>                                   Δ+12       
        <POP 2130e-21324 Prologue>                           Σ0         ↓
        <POP 21324-2132a RegCacheLoad>                       Σ0         ↓
        <POP 2132a-21336 Naked>                              Σ0         ↓ →0x21348
            <POP 2132a-2132c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2132c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21332  TST.B   (A7)+>                        Δ+2                {}
            <MI 21334  BEQ     0x21348>                                         {}
        <POP 21336-21348 Naked>                              Σ0 Δ-12    →0x21358
            <Blob 0x21336 [12] @>                            Δ-12               {[«12""»]}
            <MI 21346  BRA     0x21358>                                         {[«12""»]}
        <POP 21348-21358 Naked>                              Σ0 Δ-12    ↓ ←0x2132a
            <Blob 0x21348 [12] @>                            Δ-12               {[«12""»]}
        <POP 21358-213b0 Naked>                              Σ-12 Δ+12  ↓ ←0x21336
            <POP 21358-2135a StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x2135a>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x2135a 4>                       Δ-4        
                <Const 0x2135e 0x1.2>                        Δ-2        
                <Const 0x21362 0xb.2>                        Δ-2        
                <Call 0x21366 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2136c-2136e StackAdj>                   Δ+8        
            <Pointer.fp 0x2136e <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x21370 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 21376-2137a StackAdj>                       Δ+20               {}
            <MI 2137a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 2137e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x21380 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21384 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21388 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2138c 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21392-21396 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 21396  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 21398  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 2139c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x2139e 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 213a4-213a6 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x213a6 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x213a8 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 213ae-213b0 StackAdj>                       Δ+4                {}
        <POP 213b0-213b8 Epilogue>                           Σ0         

0x213cc


@ 213cc
exp_RESET_MEM.MEM()
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 213cc-2145a Body>                                   Δ+10       
        <POP 213cc-213e2 Prologue>                           Σ0         ↓
        <POP 213e2-213e8 RegCacheLoad>                       Σ0         ↓
        <POP 213e8-213f4 Naked>                              Σ0         ↓ →0x21406
            <POP 213e8-213ea StackAdj>                       Δ-2                {[-2-]}
            <Call 0x213ea 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 213f0  TST.B   (A7)+>                        Δ+2                {}
            <MI 213f2  BEQ     0x21406>                                         {}
        <POP 213f4-21406 Naked>                              Σ0 Δ-10    →0x21416
            <Blob 0x213f4 [10] @>                            Δ-10               {[«10""»]}
            <MI 21404  BRA     0x21416>                                         {[«10""»]}
        <POP 21406-21416 Naked>                              Σ0 Δ-10    ↓ ←0x213e8
            <Blob 0x21406 [10] @>                            Δ-10               {[«10""»]}
        <POP 21416-21452 Naked>                              Σ-10 Δ+10  ↓ ←0x213f4
            <POP 21416-21418 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x21418>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x21418 4>                       Δ-4        
                <Const 0x2141c 0x1.2>                        Δ-2        
                <Const 0x21420 0x9.2>                        Δ-2        
                <Call 0x21424 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2142a-2142c StackAdj>                   Δ+8        
            <Pointer.fp 0x2142c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-10-]|[$$…]|[@@-6]}
            <Call 0x2142e 0x10460>                                              {[-10-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21434-21438 StackAdj>                       Δ+18               {}
            <MI 21438  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2143a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2143e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21440 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21446-21448 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21448 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2144a 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21450-21452 StackAdj>                       Δ+4                {}
        <POP 21452-2145a Epilogue>                           Σ0         

0x21476


@ 21476
exp_RUN_CHECK.MEM()
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21476-21504 Body>                                   Δ+14       
        <POP 21476-2148c Prologue>                           Σ0         ↓
        <POP 2148c-21492 RegCacheLoad>                       Σ0         ↓
        <POP 21492-2149e Naked>                              Σ0         ↓ →0x214b0
            <POP 21492-21494 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21494 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2149a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2149c  BEQ     0x214b0>                                         {}
        <POP 2149e-214b0 Naked>                              Σ0 Δ-14    →0x214c0
            <Blob 0x2149e [14] @>                            Δ-14               {[«14""»]}
            <MI 214ae  BRA     0x214c0>                                         {[«14""»]}
        <POP 214b0-214c0 Naked>                              Σ0 Δ-14    ↓ ←0x21492
            <Blob 0x214b0 [14] @>                            Δ-14               {[«14""»]}
        <POP 214c0-214fc Naked>                              Σ-14 Δ+14  ↓ ←0x2149e
            <POP 214c0-214c2 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x214c2>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x214c2 4>                       Δ-4        
                <Const 0x214c6 0x1.2>                        Δ-2        
                <Const 0x214ca 0xd.2>                        Δ-2        
                <Call 0x214ce 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 214d4-214d6 StackAdj>                   Δ+8        
            <Pointer.fp 0x214d6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x214d8 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 214de-214e2 StackAdj>                       Δ+22               {}
            <MI 214e2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 214e4  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 214e8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x214ea 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 214f0-214f2 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x214f2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x214f4 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 214fa-214fc StackAdj>                       Δ+4                {}
        <POP 214fc-21504 Epilogue>                           Σ0         

0x21524


@ 21524
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21524-215e8 Body>                                   Δ+16       
        <POP 21524-2153a Prologue>                           Σ0         ↓
        <POP 2153a-21540 RegCacheLoad>                       Σ0         ↓
        <POP 21540-2154c Naked>                              Σ0         ↓ →0x2155e
            <POP 21540-21542 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21542 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21548  TST.B   (A7)+>                        Δ+2                {}
            <MI 2154a  BEQ     0x2155e>                                         {}
        <POP 2154c-2155e Naked>                              Σ0 Δ-16    →0x2156e
            <Blob 0x2154c [16] @>                            Δ-16               {[«16""»]}
            <MI 2155c  BRA     0x2156e>                                         {[«16""»]}
        <POP 2155e-2156e Naked>                              Σ0 Δ-16    ↓ ←0x21540
            <Blob 0x2155e [16] @>                            Δ-16               {[«16""»]}
        <POP 2156e-215e0 Naked>                              Σ-16 Δ+16  ↓ ←0x2154c
            <POP 2156e-21570 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x21570>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x21570 4>                       Δ-4        
                <Const 0x21574 0x1.2>                        Δ-2        
                <Const 0x21578 0xf.2>                        Δ-2        
                <Call 0x2157c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21582-21584 StackAdj>                   Δ+8        
            <Pointer.fp 0x21584 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x21586 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 2158c-21590 StackAdj>                       Δ+24               {}
            <MI 21590  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 21592  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
            <Call 0x21596 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 2159c-2159e StackAdj>                       Δ+2                {[4, '(A6-0x4)']}
            <MI 2159e  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 215a0  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
            <Call 0x215a4 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 215aa-215ac StackAdj>                       Δ+4                {[-2-]}
            <MI 215ac  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 215b0  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x215b2 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x215b6 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x215ba 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x215be 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 215c4-215c6 StackAdj>                       Δ+16               {[-2-]}
            <MI 215c6  CLR.B   (A7)>                                            {[-2-]}
            <MI 215c8  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0xe)']}
            <MI 215cc  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Call 0x215ce 0x104ba>                                              {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 215d4-215d6 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x215d6 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x215d8 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 215de-215e0 StackAdj>                       Δ+4                {}
        <POP 215e0-215e8 Epilogue>                           Σ0         

0x21608


@ 21608
exp_FILL_MEMORY.MEM()
        <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 21608-21700 Body>                                   Δ+16       
        <POP 21608-2161e Prologue>                           Σ0         ↓
        <POP 2161e-2162e RegCacheLoad>                       Σ0         ↓
        <POP 2162e-2163a Naked>                              Σ0         ↓ →0x2164c
            <POP 2162e-21630 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21630 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21636  TST.B   (A7)+>                        Δ+2                {}
            <MI 21638  BEQ     0x2164c>                                         {}
        <POP 2163a-2164c Naked>                              Σ0 Δ-16    →0x2165c
            <Blob 0x2163a [16] @>                            Δ-16               {[«16""»]}
            <MI 2164a  BRA     0x2165c>                                         {[«16""»]}
        <POP 2164c-2165c Naked>                              Σ0 Δ-16    ↓ ←0x2162e
            <Blob 0x2164c [16] @>                            Δ-16               {[«16""»]}
        <POP 2165c-216f8 Naked>                              Σ-16 Δ+16  ↓ ←0x2163a
            <POP 2165c-2165e StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x2165e>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x2165e 4>                       Δ-4        
                <Const 0x21662 0x1.2>                        Δ-2        
                <Const 0x21666 0xf.2>                        Δ-2        
                <Call 0x2166a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21670-21672 StackAdj>                   Δ+8        
            <Pointer.fp 0x21672 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-6]}
            <Call 0x21674 0x10460>                                              {[-16-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2167a-2167e StackAdj>                       Δ+24               {}
            <MI 2167e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 21682  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 21686  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x21688 4>                           Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x2168c 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x2168e 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x21692 0x10466>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21694-21698 StackAdj>                       Δ+20               {[4, '(A6+0xc)']}
            <MI 21698  MOVE.L  (A6+0x14),(A7)>                                  {[4, '(A6+0x14)']}
            <MI 2169c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 216a0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']}
            <Pointer.sp 0x216a2 4>                           Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]}
            <Const 0x216a6 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x216a8 0x7.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
            <Call 0x216ac 0x10466>                                              {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 216ae-216b2 StackAdj>                       Δ+22               {[-2-]}
            <MI 216b2  MOVE.B  (A6+0x18),(A7)>                                  {[-2-]}
            <MI 216b6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x216b8 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x216bc 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x216be 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
            <Call 0x216c0 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 216c2-216c4 StackAdj>                       Δ+16               {[-2-]}
            <MI 216c4  MOVE.B  (A6+0x19),(A7)>                                  {[-2-]}
            <MI 216c8  MOVE.B  (A6+0x1a),(A7+0x1)>                              {[-2-]}
            <MI 216ce  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']}
            <Pointer.sp 0x216d0 4>                           Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]}
            <Const 0x216d4 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
            <Const 0x216d6 0x1.4>                            Δ-4                {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
            <Call 0x216da 0x10466>                                              {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 216dc-216de StackAdj>                       Δ+16               {[-2-]}
            <MI 216de  CLR.B   (A7)>                                            {[-2-]}
            <MI 216e0  MOVE.B  (A6+0x1c),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x1c)']}
            <MI 216e4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
            <Call 0x216e6 0x104ba>                                              {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 216ec-216ee StackAdj>                       Δ+8                {}
            <Pointer.fp 0x216ee <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x216f0 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 216f6-216f8 StackAdj>                       Δ+4                {}
        <POP 216f8-21700 Epilogue>                           Σ0         

0x21724


@ 21724
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21724-217a8 Body>                                   Δ+18       
        <POP 21724-2173a Prologue>                           Σ0         ↓
        <POP 2173a-2173e RegCacheLoad>                       Σ0         ↓
        <POP 2173e-2174a Naked>                              Σ0         ↓ →0x21758
            <POP 2173e-21740 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21740 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21746  TST.B   (A7)+>                        Δ+2                {}
            <MI 21748  BEQ     0x21758>                                         {}
        <POP 2174a-21758 Naked>                              Σ0 Δ-18    →0x21764
            <Blob 0x2174a [18] @>                            Δ-18               {[«18""»]}
            <MI 21756  BRA     0x21764>                                         {[«18""»]}
        <POP 21758-21764 Naked>                              Σ0 Δ-18    ↓ ←0x2173e
            <Blob 0x21758 [18] @>                            Δ-18               {[«18""»]}
        <POP 21764-217a0 Naked>                              Σ-18 Δ+18  ↓ ←0x2174a
            <POP 21764-21766 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x21766>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x21766 4>                       Δ-4        
                <Const 0x2176a 0x1.2>                        Δ-2        
                <Const 0x2176e 0x12.2>                       Δ-2        
                <Call 0x21772 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21778-2177a StackAdj>                   Δ+8        
            <Pointer.fp 0x2177a <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x2177c 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21782-21786 StackAdj>                       Δ+26               {}
            <MI 21786  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21788  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2178c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2178e 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21794-21796 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21796 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21798 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2179e-217a0 StackAdj>                       Δ+4                {}
        <POP 217a0-217a8 Epilogue>                           Σ0         

0x217d8


@ 217d8
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 217d8-21866 Body>                                   Δ+24       
        <POP 217d8-217ee Prologue>                           Σ0         ↓
        <POP 217ee-217f4 RegCacheLoad>                       Σ0         ↓
        <POP 217f4-21800 Naked>                              Σ0         ↓ →0x21812
            <POP 217f4-217f6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x217f6 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 217fc  TST.B   (A7)+>                        Δ+2                {}
            <MI 217fe  BEQ     0x21812>                                         {}
        <POP 21800-21812 Naked>                              Σ0 Δ-24    →0x21822
            <Blob 0x21800 [24] @>                            Δ-24               {[«24""»]}
            <MI 21810  BRA     0x21822>                                         {[«24""»]}
        <POP 21812-21822 Naked>                              Σ0 Δ-24    ↓ ←0x217f4
            <Blob 0x21812 [24] @>                            Δ-24               {[«24""»]}
        <POP 21822-2185e Naked>                              Σ-24 Δ+24  ↓ ←0x21800
            <POP 21822-21824 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x21824>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x21824 4>                       Δ-4        
                <Const 0x21828 0x1.2>                        Δ-2        
                <Const 0x2182c 0x17.2>                       Δ-2        
                <Call 0x21830 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21836-21838 StackAdj>                   Δ+8        
            <Pointer.fp 0x21838 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x2183a 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21840-21844 StackAdj>                       Δ+32               {}
            <MI 21844  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21846  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2184a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2184c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21852-21854 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21854 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21856 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2185c-2185e StackAdj>                       Δ+4                {}
        <POP 2185e-21866 Epilogue>                           Σ0         

0x21882


@ 21882
exp_CLEAR_HITS.MEM()
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21882-21906 Body>                                   Δ+14       
        <POP 21882-21898 Prologue>                           Σ0         ↓
        <POP 21898-2189c RegCacheLoad>                       Σ0         ↓
        <POP 2189c-218a8 Naked>                              Σ0         ↓ →0x218b6
            <POP 2189c-2189e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2189e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 218a4  TST.B   (A7)+>                        Δ+2                {}
            <MI 218a6  BEQ     0x218b6>                                         {}
        <POP 218a8-218b6 Naked>                              Σ0 Δ-14    →0x218c2
            <Blob 0x218a8 [14] @>                            Δ-14               {[«14""»]}
            <MI 218b4  BRA     0x218c2>                                         {[«14""»]}
        <POP 218b6-218c2 Naked>                              Σ0 Δ-14    ↓ ←0x2189c
            <Blob 0x218b6 [14] @>                            Δ-14               {[«14""»]}
        <POP 218c2-218fe Naked>                              Σ-14 Δ+14  ↓ ←0x218a8
            <POP 218c2-218c4 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x218c4>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x218c4 4>                       Δ-4        
                <Const 0x218c8 0x1.2>                        Δ-2        
                <Const 0x218cc 0xe.2>                        Δ-2        
                <Call 0x218d0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 218d6-218d8 StackAdj>                   Δ+8        
            <Pointer.fp 0x218d8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x218da 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 218e0-218e4 StackAdj>                       Δ+22               {}
            <MI 218e4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 218e6  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 218ea  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x218ec 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 218f2-218f4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x218f4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x218f6 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 218fc-218fe StackAdj>                       Δ+4                {}
        <POP 218fe-21906 Epilogue>                           Σ0         

0x2197c


@ 2197c
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2197c-219e4 Body>                                              
        <POP 2197c-21992 Prologue>                           Σ0         ↓
        <POP 21992-219dc Naked>                              Σ0         ↓
            <Blob 0x21992 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2199e 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 219a2-219a4 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x219a4 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 219b6-219b8 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 219b8  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 219bc  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 219be  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 219c0  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x219c2 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 219c8-219ca StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x219ca 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 219d0-219d2 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x219d2 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 219d8-219dc StackAdj>                       Δ+20               {}
        <POP 219dc-219e4 Epilogue>                           Σ0         

0x21a38


@ 21a38
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21a38-21b74 Body>                                              
        <POP 21a38-21a4e Prologue>                           Σ0         ↓
        <POP 21a4e-21a64 RegCacheLoad>                       Σ0         ↓
        <POP 21a64-21ac4 Naked>                              Σ0         ↓ →0x21b0c
            <Call 0x21a64 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21a6a [18] @>                            Δ-18               {[«18""»]}
            <POP 21a76-21a78 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21a78 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x21a84 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21a86-21a87 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21a87 [14] @>                            Δ-14               {[«14""»]}
            <POP 21a96-21a98 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21a98 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21aa2-21aa4 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 21aa4  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x21aa8 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21aae-21ab0 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21ab0 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21ab6-21ab8 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21ab8 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21aba-21abc StackAdj>                       Δ+18               {}
            <MI 21abc  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21ac0  CMPA.W  #0x01,A0>                                        {}
            <MI 21ac2  BEQ     0x21b0c>                                         {}
        <POP 21ac4-21b0c Naked>                              Σ0         ↓
            <Blob 0x21ac4 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x21ad4 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21ae4-21ae6 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21ae6 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21af0-21af2 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21af2>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21af2 12>                      Δ-4        
                <Const 0x21af6 0x1.2>                        Δ-2        
                <Const 0x21af8 0x1e.2>                       Δ-2        
                <Call 0x21afa 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21afc-21afe StackAdj>                   Δ+8        
            <Call 0x21afe 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21b04-21b06 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21b06 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b08-21b0c StackAdj>                       Δ+48               {}
        <POP 21b0c-21b6c Naked>                              Σ0         ↓ ←0x21a64
            <Blob 0x21b0c [14] @>                            Δ-14               {[«14""»]}
            <POP 21b1c-21b1e StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21b1e 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21b28-21b2a StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21b2a  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21b2e 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 21b34-21b36 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21b36 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21b3c-21b3e StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21b3e 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b40-21b41 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21b41 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21b50 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 21b54-21b56 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21b56 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x21b64 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21b6a-21b6c StackAdj>                       Δ+30               {}
        <POP 21b6c-21b74 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.8a9de3986e35eedc
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0d 9c              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 1b e8              |        |		.PTR	0x21be8
00020010					code.end:
00020010 00 02 1b 74              |   t    |		.PTR	0x21b74
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 19 7c              |   |    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 1a 38              |   8    |		.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 52 55 4e 5f  |@(#)RUN_|		.XXX[0x20]
00020130 55 44 49 41 47 2c 31 2e  |UDIAG,1.|
00020138 32 2c 39 32 2f 30 38 2f  |2,92/08/|
00020140 32 37 2c 31 37 3a 31 38  |27,17:18|
00020148 3a 31 39 5c              |:19\    |		.XXX[0x4]
0002014c					t_Confidence_test_uDIAG_failed__:
0002014c 2a 2a 2a 20 43 6f 6e 66  |*** Conf|		.TXT	'*** Confidence test (uDIAG) failed:_'
00020170					t_a_MACHINE_CHECK_error_occured_therefore:
00020170 61 20 4d 41 43 48 49 4e  |a MACHIN|		.TXT	'a MACHINE_CHECK error occured, therefore'
00020198 5f 20                    |_       |		.XXX[0x2]
0002019a					t_EMBALM:
0002019a 45 4d                    |EM      |		.TXT	'EM'
0002019c 42 41                    |BA      |		.TXT	'BA'
0002019e 4c 4d                    |LM      |		.TXT	'LM'
000201a0					t_EMBALM_ERRMESS:
000201a0 45 4d                    |EM      |		.TXT	'EM'
000201a2 42 41                    |BA      |		.TXT	'BA'
000201a4 4c 4d                    |LM      |		.TXT	'LM'
000201a6 2e 45 52 52              |.ERR    |		.TXT	'.ERR'
000201aa 4d 45 53 53              |MESS    |		.TXT	'MESS'
000201ae 73 65 65 20 74 68 65 20  |see the |		.TXT	'see the MACHINE_CHECK analysis above'
000201d2 74 68 65 20 43 6f 6e 66  |the Conf|		.TXT	'the Confidence test (uDIAG) passed'
000201f4 61 6e 20 65 72 72 6f 72  |an error|		.TXT	'an error halt occured at uaddr_ '
00020214 74 69 6d 65 64 20 6f 75  |timed ou|		.TXT	'timed out waiting for it to halt'
00020234 69 6e 74 65 72 6e 61 6c  |internal|		.TXT	'internal error: no MCHK or HALT or TIMEOUT'
0002025e 70 72 65 70 61 72 69 6e  |preparin|		.TXT	'preparing to run the Confidence Test (uDIAG)'
0002028a 54 68 65 20 6c 6f 6e 67  |The long|		.TXT	'The long version stress tests the DRAMs but runs 2 minutes longer '
000202cc 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want to run the long version '
000202f0 44 49 41 47 2e 4d 32 30  |DIAG.M20|		.TXT	'DIAG.M200_UCODE '
00020300 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020304 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020308 05 01 04 07 06 02 03 0c  |        |		.XXX[0x8]
00020310 0d 0e 0f 01              |        |		.XXX[0x4]
00020314 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
00020328 00 00 00 00 00 00 01 00  |        |		.XXX[0x18]
00020330 00 00 00 00 00 00 00 00  |        |
00020338 00 00 00 00 00 00 01 00  |        |
00020340 ; --------------------------------------------------------------------------------------
00020340 ; OMSI PASCAL Function
00020340 ;    <LVAR  0x00c 1(r)>
00020340 ;    <LVAR  0x008 4(r)>
00020340 ;    <LVAR -0x002 @>
00020340 ; --------------------------------------------------------------------------------------
00020340 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00020344 bf d5                    |        |		CMPA.L	(A5),A7
00020346 62 06                    |b       |		BHI	0x2034e
00020348 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002034c 4e 76                    |Nv      |		TRAPV
0002034e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020352 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020356 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002035c 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00020360 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020366 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020368 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002036e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020372 20 4f                    | O      |		MOVEA.L	A7,A0
00020374 43 fa fd 94              |C       |		LEA.L	0x2010a,A1
00020378 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002037a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002037c 51 c8 ff fc              |Q       |		DBF	D0,0x2037a
00020380 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020382 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020386 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002038a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002038e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020394 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020396 48 78 00 01              |Hx      |		PEA.L	0x1
0002039a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002039e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000203a2 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000203a8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000203ac 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000203b2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000203b6 48 50                    |HP      |		PEA.L	(A0)
000203b8 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000203be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203c0 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000203c6 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000203ca 4e 5e                    |N^      |		UNLK	A6
000203cc 4e 75                    |Nu      |		RTS
000203ce ; --------------------------------------------------------------------------------------
000203ce ; OMSI PASCAL Function
000203ce ;    <LVAR  0x008 4(r)>
000203ce ; --------------------------------------------------------------------------------------
000203ce 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; MANUAL
											; Spelunked
000203d2 bf d5                    |        |		CMPA.L	(A5),A7
000203d4 62 06                    |b       |		BHI	0x203dc
000203d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000203da 4e 76                    |Nv      |		TRAPV
000203dc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000203e0 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000203e4 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000203ea 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000203ee 48 50                    |HP      |		PEA.L	(A0)
000203f0 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000203f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203f8 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000203fe 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020402 4e 5e                    |N^      |		UNLK	A6
00020404 4e 75                    |Nu      |		RTS
00020406 ; --------------------------------------------------------------------------------------
00020406 ; OMSI PASCAL Function
00020406 ;    <LVAR  0x008 1(r)>
00020406 ; --------------------------------------------------------------------------------------
00020406 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4		; MANUAL
											; Spelunked
0002040a bf d5                    |        |		CMPA.L	(A5),A7
0002040c 62 06                    |b       |		BHI	0x20414
0002040e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020412 4e 76                    |Nv      |		TRAPV
00020414 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020418 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002041e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020422 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020428 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002042a 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020430 42 27                    |B'      |		CLR.B	-(A7)
00020432 48 78 00 01              |Hx      |		PEA.L	0x1
00020436 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002043c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002043e 4e 5e                    |N^      |		UNLK	A6
00020440 4e 75                    |Nu      |		RTS
00020442 ; --------------------------------------------------------------------------------------
00020442 ; OMSI PASCAL Function
00020442 ;    <LVAR  0x016 1(r)>
00020442 ;    <LVAR  0x012 4(r)>
00020442 ;    <LVAR  0x010 1(r)>
00020442 ;    <LVAR  0x00e 1(r)>
00020442 ;    <LVAR  0x00c 1(r)>
00020442 ;    <LVAR  0x008 4(r)>
00020442 ;    <LVAR -0x004 @>
00020442 ; --------------------------------------------------------------------------------------
00020442 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020446 bf d5                    |        |		CMPA.L	(A5),A7
00020448 62 06                    |b       |		BHI	0x20450
0002044a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002044e 4e 76                    |Nv      |		TRAPV
00020450 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020454 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020458 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
0002045e 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00020460 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020466 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
0002046a 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
00020470 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020472 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00020476 4e 92                    |N       |		JSR	(A2)
00020478 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002047a 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
0002047e 66 0e                    |f       |		BNE	0x2048e
00020480 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00020484 4e 92                    |N       |		JSR	(A2)
00020486 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
0002048a 4e 92                    |N       |		JSR	(A2)
0002048c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002048e 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020494 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00020498 67 12                    |g       |		BEQ	0x204ac
0002049a 9e c1                    |        |		SUBA.W	D1,A7
0002049c 20 4f                    | O      |		MOVEA.L	A7,A0
0002049e 43 fa fc 74              |C  t    |		LEA.L	0x20114,A1
000204a2 70 08                    |p       |		MOVEQ.L	#0x08,D0
000204a4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000204a6 51 c8 ff fc              |Q       |		DBF	D0,0x204a4
000204aa 60 10                    |`       |		BRA	0x204bc
000204ac 9e c1                    |        |		SUBA.W	D1,A7
000204ae 20 4f                    | O      |		MOVEA.L	A7,A0
000204b0 43 fa fc 6c              |C  l    |		LEA.L	0x2011e,A1
000204b4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000204b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000204b8 51 c8 ff fc              |Q       |		DBF	D0,0x204b6
000204bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204be 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204c2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000204c6 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000204ca 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000204d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204d2 48 78 00 01              |Hx      |		PEA.L	0x1
000204d6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000204da 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000204de 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000204e4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000204e8 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000204ee 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000204f2 48 50                    |HP      |		PEA.L	(A0)
000204f4 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000204fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204fc 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020502 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00020506 4e 5e                    |N^      |		UNLK	A6
00020508 4e 75                    |Nu      |		RTS
0002050a ; --------------------------------------------------------------------------------------
0002050a ; OMSI PASCAL Function
0002050a ;    <LVAR -0x004 1(rw)>
0002050a ; --------------------------------------------------------------------------------------
0002050a 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0002050e bf d5                    |        |		CMPA.L	(A5),A7
00020510 62 06                    |b       |		BHI	0x20518
00020512 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020516 4e 76                    |Nv      |		TRAPV
00020518 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002051c 48 e7 e1 80              |H       |		MOVEM.L	A0+D7+D2+D1+D0,-(A7)
00020520 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00020524 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00020526 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020528 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
0002052c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020530 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020536 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020538 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002053e 4a 1f                    |J       |		TST.B	(A7)+
00020540 67 08                    |g       |		BEQ	0x2054a
00020542 4e b9 00 02 0f ca        |N       |		JSR	exp_LOAD_HRAM_8_0.FIU()
00020548 60 06                    |`       |		BRA	0x20550
0002054a 4e b9 00 02 0f e8        |N       |		JSR	exp_LOAD_HRAM_32_0.FIU()
00020550 4e b9 00 02 10 78        |N    x  |		JSR	exp_LOAD_HRAM_1.FIU()
00020556 4e b9 00 02 12 dc        |N       |		JSR	exp_ALIGN_CSA.VAL()
0002055c 4e b9 00 02 12 5a        |N    Z  |		JSR	exp_ALIGN_CSA.TYP()
00020562 42 10                    |B       |		CLR.B	(A0)
00020564 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020566 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020568 1f 07                    |        |		MOVE.B	D7,-(A7)
0002056a 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020570 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020572 4a 1f                    |J       |		TST.B	(A7)+
00020574 67 0c                    |g       |		BEQ	0x20582
00020576 42 80                    |B       |		CLR.L	D0
00020578 10 10                    |        |		MOVE.B	(A0),D0
0002057a 52 40                    |R@      |		ADDQ.W	#0x1,D0
0002057c 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020580 10 80                    |        |		MOVE.B	D0,(A0)
00020582 52 07                    |R       |		ADDQ.B	#0x1,D7
00020584 be 01                    |        |		CMP.B	D1,D7
00020586 6f de                    |o       |		BLE	0x20566
00020588 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002058a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002058c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002058e 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020594 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020596 4a 1f                    |J       |		TST.B	(A7)+
00020598 67 3a                    |g:      |		BEQ	0x205d4
0002059a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002059c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002059e 1f 07                    |        |		MOVE.B	D7,-(A7)
000205a0 4e b9 00 01 04 c6        |N       |		JSR	EQ_1c218(a : Byte) : Bool
000205a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205a8 10 17                    |        |		MOVE.B	(A7),D0
000205aa 48 80                    |H       |		EXTB.W	D0
000205ac 41 82                    |A       |		CHK.W	D2,D0
000205ae 1e 80                    |        |		MOVE.B	D0,(A7)
000205b0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000205b2 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000205b8 10 17                    |        |		MOVE.B	(A7),D0
000205ba 48 80                    |H       |		EXTB.W	D0
000205bc 41 82                    |A       |		CHK.W	D2,D0
000205be 1e 80                    |        |		MOVE.B	D0,(A7)
000205c0 1f 10                    |        |		MOVE.B	(A0),-(A7)
000205c2 4e b9 00 02 15 24        |N    $  |		JSR	0x21524
000205c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205ca 1e 87                    |        |		MOVE.B	D7,(A7)
000205cc 4e b9 00 02 17 24        |N    $  |		JSR	0x21724
000205d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205d4 52 07                    |R       |		ADDQ.B	#0x1,D7
000205d6 be 01                    |        |		CMP.B	D1,D7
000205d8 6f b0                    |o       |		BLE	0x2058a
000205da 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
000205e0 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
000205e4 3f 3c ff ff              |?<      |		MOVE.W	#0xffff,-(A7)
000205e8 4e b9 00 02 10 54        |N    T  |		JSR	exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
000205ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205f0 4c df 01 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0
000205f4 4e 5e                    |N^      |		UNLK	A6
000205f6 4e 75                    |Nu      |		RTS
000205f8 ; --------------------------------------------------------------------------------------
000205f8 ; OMSI PASCAL Function
000205f8 ;    <LVAR  0x008 2(r)>
000205f8 ;    <LVAR -0x002 1(rw)>
000205f8 ; --------------------------------------------------------------------------------------
000205f8 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000205fc bf d5                    |        |		CMPA.L	(A5),A7
000205fe 62 06                    |b       |		BHI	0x20606
00020600 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020604 4e 76                    |Nv      |		TRAPV
00020606 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002060a 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0002060e 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
00020614 43 ee ff fe              |C       |		LEA.L	(A6-0x2),A1
00020618 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0002061c 47 f9 00 02 13 0e        |G       |		LEA.L	exp_SET_HIT.MEM(),A3
00020622 49 f9 00 02 18 82        |I       |		LEA.L	exp_CLEAR_HITS.MEM(),A4
00020628 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002062a 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
0002062c 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
0002062e 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00020630 4e b9 00 02 11 70        |N    p  |		JSR	exp_CLR_BREAK_MASK.SEQ()
00020636 4e b9 00 02 10 cc        |N       |		JSR	exp_CLEAR_EXCEPTIONS.FIU()
0002063c 4e b9 00 02 12 38        |N    8  |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
00020642 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020644 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002064a 4a 1f                    |J       |		TST.B	(A7)+
0002064c 67 04                    |g       |		BEQ	0x20652
0002064e 42 11                    |B       |		CLR.B	(A1)
00020650 60 04                    |`       |		BRA	0x20656
00020652 12 bc 00 ff              |        |		MOVE.B	#0xff,(A1)
00020656 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020658 1f 00                    |        |		MOVE.B	D0,-(A7)
0002065a 4e 90                    |N       |		JSR	(A0)
0002065c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002065e 4a 1f                    |J       |		TST.B	(A7)+
00020660 67 08                    |g       |		BEQ	0x2066a
00020662 1f 00                    |        |		MOVE.B	D0,-(A7)
00020664 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020666 4e 93                    |N       |		JSR	(A3)
00020668 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002066a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002066c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002066e 4e 90                    |N       |		JSR	(A0)
00020670 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020672 4a 1f                    |J       |		TST.B	(A7)+
00020674 67 08                    |g       |		BEQ	0x2067e
00020676 1f 01                    |        |		MOVE.B	D1,-(A7)
00020678 1f 11                    |        |		MOVE.B	(A1),-(A7)
0002067a 4e 93                    |N       |		JSR	(A3)
0002067c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002067e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020680 1f 02                    |        |		MOVE.B	D2,-(A7)
00020682 4e 90                    |N       |		JSR	(A0)
00020684 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020686 4a 1f                    |J       |		TST.B	(A7)+
00020688 67 08                    |g       |		BEQ	0x20692
0002068a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002068c 1f 11                    |        |		MOVE.B	(A1),-(A7)
0002068e 4e 93                    |N       |		JSR	(A3)
00020690 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020692 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020694 1f 03                    |        |		MOVE.B	D3,-(A7)
00020696 4e 90                    |N       |		JSR	(A0)
00020698 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002069a 4a 1f                    |J       |		TST.B	(A7)+
0002069c 67 08                    |g       |		BEQ	0x206a6
0002069e 1f 03                    |        |		MOVE.B	D3,-(A7)
000206a0 1f 11                    |        |		MOVE.B	(A1),-(A7)
000206a2 4e 93                    |N       |		JSR	(A3)
000206a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206a6 4e b9 00 02 10 94        |N       |		JSR	exp_INIT_MRU.FIU()
000206ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206ae 1f 00                    |        |		MOVE.B	D0,-(A7)
000206b0 4e 90                    |N       |		JSR	(A0)
000206b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206b4 4a 1f                    |J       |		TST.B	(A7)+
000206b6 67 06                    |g       |		BEQ	0x206be
000206b8 1f 00                    |        |		MOVE.B	D0,-(A7)
000206ba 4e 94                    |N       |		JSR	(A4)
000206bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206c0 1f 01                    |        |		MOVE.B	D1,-(A7)
000206c2 4e 90                    |N       |		JSR	(A0)
000206c4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206c6 4a 1f                    |J       |		TST.B	(A7)+
000206c8 67 06                    |g       |		BEQ	0x206d0
000206ca 1f 01                    |        |		MOVE.B	D1,-(A7)
000206cc 4e 94                    |N       |		JSR	(A4)
000206ce 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206d0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206d2 1f 02                    |        |		MOVE.B	D2,-(A7)
000206d4 4e 90                    |N       |		JSR	(A0)
000206d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206d8 4a 1f                    |J       |		TST.B	(A7)+
000206da 67 06                    |g       |		BEQ	0x206e2
000206dc 1f 02                    |        |		MOVE.B	D2,-(A7)
000206de 4e 94                    |N       |		JSR	(A4)
000206e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206e2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206e4 1f 03                    |        |		MOVE.B	D3,-(A7)
000206e6 4e 90                    |N       |		JSR	(A0)
000206e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ea 4a 1f                    |J       |		TST.B	(A7)+
000206ec 67 06                    |g       |		BEQ	0x206f4
000206ee 1f 03                    |        |		MOVE.B	D3,-(A7)
000206f0 4e 94                    |N       |		JSR	(A4)
000206f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206f4 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000206f6 4e b9 00 02 12 02        |N       |		JSR	exp_PREP_RUN.TYP(Sw_2)
000206fc 3e 92                    |>       |		MOVE.W	(A2),(A7)
000206fe 4e b9 00 02 12 a6        |N       |		JSR	exp_PREP_RUN.VAL(Sw_2)
00020704 3e 92                    |>       |		MOVE.W	(A2),(A7)
00020706 4e b9 00 02 19 54        |N    T  |		JSR	exp_PREP_RUN.IOC(Sw_2)
0002070c 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002070e 4e b9 00 02 11 1e        |N       |		JSR	exp_PREP_RUN.SEQ(Sw_2)
00020714 3e 92                    |>       |		MOVE.W	(A2),(A7)
00020716 4e b9 00 02 10 3a        |N    :  |		JSR	exp_PREP_RUN.FIU(Sw_2)
0002071c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002071e 4e 90                    |N       |		JSR	(A0)
00020720 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020722 4a 1f                    |J       |		TST.B	(A7)+
00020724 67 0a                    |g       |		BEQ	0x20730
00020726 1f 00                    |        |		MOVE.B	D0,-(A7)
00020728 4e b9 00 02 17 d8        |N       |		JSR	0x217d8
0002072e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020730 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020732 1f 01                    |        |		MOVE.B	D1,-(A7)
00020734 4e 90                    |N       |		JSR	(A0)
00020736 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020738 4a 1f                    |J       |		TST.B	(A7)+
0002073a 67 0a                    |g       |		BEQ	0x20746
0002073c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002073e 4e b9 00 02 17 d8        |N       |		JSR	0x217d8
00020744 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020746 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020748 1f 02                    |        |		MOVE.B	D2,-(A7)
0002074a 4e 90                    |N       |		JSR	(A0)
0002074c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002074e 4a 1f                    |J       |		TST.B	(A7)+
00020750 67 0a                    |g       |		BEQ	0x2075c
00020752 1f 02                    |        |		MOVE.B	D2,-(A7)
00020754 4e b9 00 02 17 d8        |N       |		JSR	0x217d8
0002075a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002075c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002075e 1f 03                    |        |		MOVE.B	D3,-(A7)
00020760 4e 90                    |N       |		JSR	(A0)
00020762 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020764 4a 1f                    |J       |		TST.B	(A7)+
00020766 67 0a                    |g       |		BEQ	0x20772
00020768 1f 03                    |        |		MOVE.B	D3,-(A7)
0002076a 4e b9 00 02 17 d8        |N       |		JSR	0x217d8
00020770 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020772 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00020776 4e 5e                    |N^      |		UNLK	A6
00020778 4e 75                    |Nu      |		RTS
0002077a ; --------------------------------------------------------------------------------------
0002077a ; OMSI PASCAL Function
0002077a ; --------------------------------------------------------------------------------------
0002077a					START_ALL_BOARDS():
0002077a 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
0002077e bf d5                    |        |		CMPA.L	(A5),A7
00020780 62 06                    |b       |		BHI	0x20788
00020782 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020786 4e 76                    |Nv      |		TRAPV
00020788 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002078c 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
00020790 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
00020796 43 f9 00 02 14 76        |C    v  |		LEA.L	exp_RUN_CHECK.MEM(),A1
0002079c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002079e 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
000207a0 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
000207a2 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
000207a4 4e b9 00 02 10 ae        |N       |		JSR	exp_FREEZE_WORLD.FIU()
000207aa 4e b9 00 02 11 ae        |N       |		JSR	exp_RUN_NORMAL.TYP()
000207b0 4e b9 00 02 12 74        |N    t  |		JSR	exp_RUN_NORMAL.VAL()
000207b6 4e b9 00 02 11 04        |N       |		JSR	exp_RUN_CHECK.SEQ()
000207bc 4e b9 00 02 19 3a        |N    :  |		JSR	exp_RUN_CHECK.IOC()
000207c2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207c4 1f 00                    |        |		MOVE.B	D0,-(A7)
000207c6 4e 90                    |N       |		JSR	(A0)
000207c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207ca 4a 1f                    |J       |		TST.B	(A7)+
000207cc 67 06                    |g       |		BEQ	0x207d4
000207ce 1f 00                    |        |		MOVE.B	D0,-(A7)
000207d0 4e 91                    |N       |		JSR	(A1)
000207d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207d4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207d6 1f 01                    |        |		MOVE.B	D1,-(A7)
000207d8 4e 90                    |N       |		JSR	(A0)
000207da 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207dc 4a 1f                    |J       |		TST.B	(A7)+
000207de 67 06                    |g       |		BEQ	0x207e6
000207e0 1f 01                    |        |		MOVE.B	D1,-(A7)
000207e2 4e 91                    |N       |		JSR	(A1)
000207e4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207e8 1f 02                    |        |		MOVE.B	D2,-(A7)
000207ea 4e 90                    |N       |		JSR	(A0)
000207ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207ee 4a 1f                    |J       |		TST.B	(A7)+
000207f0 67 06                    |g       |		BEQ	0x207f8
000207f2 1f 02                    |        |		MOVE.B	D2,-(A7)
000207f4 4e 91                    |N       |		JSR	(A1)
000207f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207f8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207fa 1f 03                    |        |		MOVE.B	D3,-(A7)
000207fc 4e 90                    |N       |		JSR	(A0)
000207fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020800 4a 1f                    |J       |		TST.B	(A7)+
00020802 67 06                    |g       |		BEQ	0x2080a
00020804 1f 03                    |        |		MOVE.B	D3,-(A7)
00020806 4e 91                    |N       |		JSR	(A1)
00020808 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002080a 4e b9 00 02 10 08        |N       |		JSR	exp_RUN_NORMAL.FIU()
00020810 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
00020814 4e 5e                    |N^      |		UNLK	A6
00020816 4e 75                    |Nu      |		RTS
00020818 ; --------------------------------------------------------------------------------------
00020818 ; OMSI PASCAL Function
00020818 ;    <LVAR  0x010 4(r)>
00020818 ;    <LVAR  0x00c 4(r)>
00020818 ;    <LVAR  0x008 4(r)>
00020818 ;    <LVAR -0x004 @>
00020818 ;    <LVAR -0x005 @ 1(rw)>
00020818 ;    <LVAR -0x006 @>
00020818 ;    <LVAR -0x007 @ 1(r)>
00020818 ; --------------------------------------------------------------------------------------
00020818 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
0002081c bf d5                    |        |		CMPA.L	(A5),A7
0002081e 62 06                    |b       |		BHI	0x20826
00020820 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020824 4e 76                    |Nv      |		TRAPV
00020826 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
0002082a 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002082e 43 f9 00 01 04 c0        |C       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A1
00020834 45 f9 00 02 13 cc        |E       |		LEA.L	exp_RESET_MEM.MEM(),A2
0002083a 47 ee ff fb              |G       |		LEA.L	(A6-0x5),A3
0002083e 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020840 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020842 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00020844 7a 0d                    |z       |		MOVEQ.L	#0x0d,D5
00020846 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00020848 4e b9 00 02 10 ae        |N       |		JSR	exp_FREEZE_WORLD.FIU()
0002084e 4e b9 00 02 19 24        |N    $  |		JSR	exp_RESET.IOC()
00020854 4e b9 00 02 12 90        |N       |		JSR	exp_RESET.VAL()
0002085a 4e b9 00 02 11 ca        |N       |		JSR	exp_RESET.TYP()
00020860 4e b9 00 02 10 ee        |N       |		JSR	exp_RESET.SEQ()
00020866 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020868 1f 04                    |        |		MOVE.B	D4,-(A7)
0002086a 4e 91                    |N       |		JSR	(A1)
0002086c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002086e 4a 1f                    |J       |		TST.B	(A7)+
00020870 67 06                    |g       |		BEQ	0x20878
00020872 1f 04                    |        |		MOVE.B	D4,-(A7)
00020874 4e 92                    |N       |		JSR	(A2)
00020876 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020878 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002087a 1f 05                    |        |		MOVE.B	D5,-(A7)
0002087c 4e 91                    |N       |		JSR	(A1)
0002087e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020880 4a 1f                    |J       |		TST.B	(A7)+
00020882 67 06                    |g       |		BEQ	0x2088a
00020884 1f 05                    |        |		MOVE.B	D5,-(A7)
00020886 4e 92                    |N       |		JSR	(A2)
00020888 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002088a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002088c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002088e 4e 91                    |N       |		JSR	(A1)
00020890 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020892 4a 1f                    |J       |		TST.B	(A7)+
00020894 67 06                    |g       |		BEQ	0x2089c
00020896 1f 02                    |        |		MOVE.B	D2,-(A7)
00020898 4e 92                    |N       |		JSR	(A2)
0002089a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002089c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002089e 1f 06                    |        |		MOVE.B	D6,-(A7)
000208a0 4e 91                    |N       |		JSR	(A1)
000208a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208a4 4a 1f                    |J       |		TST.B	(A7)+
000208a6 67 06                    |g       |		BEQ	0x208ae
000208a8 1f 06                    |        |		MOVE.B	D6,-(A7)
000208aa 4e 92                    |N       |		JSR	(A2)
000208ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208ae 4e b9 00 02 10 24        |N    $  |		JSR	exp_RESET.FIU()
000208b4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000208b8 48 50                    |HP      |		PEA.L	(A0)
000208ba 4e b9 00 02 11 38        |N    8  |		JSR	exp_HALT.SEQ(&Fr)
000208c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208c2 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000208c6 42 10                    |B       |		CLR.B	(A0)
000208c8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000208cc 42 10                    |B       |		CLR.B	(A0)
000208ce 42 28 00 0b              |B(      |		CLR.B	(A0+0xb)
000208d2 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
000208d6 7e 02                    |~       |		MOVEQ.L	#0x02,D7
000208d8 0c 07 00 05              |        |		CMPI.B	#0x05,D7
000208dc 67 20                    |g       |		BEQ	0x208fe
000208de 10 07                    |        |		MOVE.B	D7,D0
000208e0 48 80                    |H       |		EXTB.W	D0
000208e2 41 fa fa 24              |A  $    |		LEA.L	0x20308,A0
000208e6 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000208ea 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000208ee 48 53                    |HS      |		PEA.L	(A3)
000208f0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000208f4 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000208fa de c2                    |        |		ADDA.W	D2,A7
000208fc 60 1a                    |`       |		BRA	0x20918
000208fe 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020902 4e b9 00 02 11 4e        |N    N  |		JSR	exp_GET_MISC_ERRORS.SEQ(&Sr_1)
00020908 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002090a 42 80                    |B       |		CLR.L	D0
0002090c 10 2e ff f9              | .      |		MOVE.B	(A6-0x7),D0
00020910 0c 40 00 1f              | @      |		CMPI.W	#0x001f,D0
00020914 67 02                    |g       |		BEQ	0x20918
00020916 16 83                    |        |		MOVE.B	D3,(A3)
00020918 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002091c 10 07                    |        |		MOVE.B	D7,D0
0002091e 48 80                    |H       |		EXTB.W	D0
00020920 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020922 12 13                    |        |		MOVE.B	(A3),D1
00020924 48 81                    |H       |		EXTB.W	D1
00020926 43 83                    |C       |		CHK.W	D3,D1
00020928 11 81 00 00              |        |		MOVE.B	D1,(A0+D0.W)
0002092c 4a 41                    |JA      |		TST.W	D1
0002092e 67 06                    |g       |		BEQ	0x20936
00020930 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020934 10 83                    |        |		MOVE.B	D3,(A0)
00020936 3e 1f                    |>       |		MOVE.W	(A7)+,D7
00020938 52 47                    |RG      |		ADDQ.W	#0x1,D7
0002093a 0c 47 00 0a              | G      |		CMPI.W	#0x000a,D7
0002093e 6f 98                    |o       |		BLE	0x208d8
00020940 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00020944 4e 5e                    |N^      |		UNLK	A6
00020946 4e 75                    |Nu      |		RTS
00020948 ; --------------------------------------------------------------------------------------
00020948 ; OMSI PASCAL Function
00020948 ;    <LVAR  0x008 1(r)>
00020948 ;    <LVAR -0x004 1(r)>
00020948 ;    <LVAR -0x005 @ 1(r)>
00020948 ;    <LVAR -0x00d @>
00020948 ;    <LVAR -0x00e @ 1(r)>
00020948 ;    <LVAR -0x012 @ 4(r)>
00020948 ;    <LVAR -0x016 @ 4(r)>
00020948 ;    <LVAR -0x023 @>
00020948 ;    <LVAR -0x024 @>
00020948 ;    <LVAR -0x025 @ 1(r)>
00020948 ;    <LVAR -0x026 @ 1(r)>
00020948 ; --------------------------------------------------------------------------------------
00020948 4e 56 ff 46              |NV F    |		LINK.W	A6,#0xff46
0002094c bf d5                    |        |		CMPA.L	(A5),A7
0002094e 62 06                    |b       |		BHI	0x20956
00020950 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020954 4e 76                    |Nv      |		TRAPV
00020956 de fc 00 94              |        |		ADDA.W	#0x94,A7
0002095a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002095e 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020964 47 fa f8 0a              |G       |		LEA.L	t_a_MACHINE_CHECK_error_occured_therefore,A3
00020968 49 f9 00 02 1b 7c        |I    |  |		LEA.L	0x21b7c,A4
0002096e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020970 76 24                    |v$      |		MOVEQ.L	#0x24,D3
00020972 78 20                    |x       |		MOVEQ.L	#0x20,D4
00020974 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00020976 7c 2a                    ||*      |		MOVEQ.L	#0x2a,D6
00020978 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
0002097c 48 6e ff db              |Hn      |		PEA.L	(A6-0x25)
00020980 48 6e ff dd              |Hn      |		PEA.L	(A6-0x23)
00020984 4e ba fe 92              |N       |		JSR	0x20818
00020988 de c5                    |        |		ADDA.W	D5,A7
0002098a 42 14                    |B       |		CLR.B	(A4)
0002098c 4a 2e ff db              |J.      |		TST.B	(A6-0x25)
00020990 67 00 01 22              |g  "    |		BEQ	0x20ab4
00020994 9e c6                    |        |		SUBA.W	D6,A7
00020996 20 4f                    | O      |		MOVEA.L	A7,A0
00020998 22 4b                    |"K      |		MOVEA.L	A3,A1
0002099a 70 28                    |p(      |		MOVEQ.L	#0x28,D0
0002099c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002099e 51 c8 ff fc              |Q       |		DBF	D0,0x2099c
000209a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209a8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000209aa 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000209ae 4e 92                    |N       |		JSR	(A2)
000209b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209b2 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000209b8 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000209bc 3e ba f7 e0              |>       |		MOVE.W	0x2019e,(A7)
000209c0 3f 3a f7 da              |?:      |		MOVE.W	0x2019c,-(A7)
000209c4 3f 3a f7 d4              |?:      |		MOVE.W	t_EMBALM,-(A7)
000209c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209ce 3f 02                    |?       |		MOVE.W	D2,-(A7)
000209d0 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000209d4 4e 92                    |N       |		JSR	(A2)
000209d6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209d8 1e 82                    |        |		MOVE.B	D2,(A7)
000209da 10 39 00 02 1b 7d        | 9   }  |		MOVE.B	0x21b7d,D0
000209e0 48 80                    |H       |		EXTB.W	D0
000209e2 41 82                    |A       |		CHK.W	D2,D0
000209e4 1f 00                    |        |		MOVE.B	D0,-(A7)
000209e6 48 6e ff dc              |Hn      |		PEA.L	(A6-0x24)
000209ea 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000209ee 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000209f2 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000209f6 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
000209fa 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
00020a00 de c4                    |        |		ADDA.W	D4,A7
00020a02 3e ba f7 a0              |>       |		MOVE.W	0x201a4,(A7)
00020a06 3f 3a f7 9a              |?:      |		MOVE.W	0x201a2,-(A7)
00020a0a 3f 3a f7 94              |?:      |		MOVE.W	t_EMBALM_ERRMESS,-(A7)
00020a0e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a10 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00020a14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a16 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020a1a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a1c 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00020a20 4e 92                    |N       |		JSR	(A2)
00020a22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a24 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020a2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a2c 4a 1f                    |J       |		TST.B	(A7)+
00020a2e 66 3c                    |f<      |		BNE	0x20a6c
00020a30 2f 3a f7 78              |/: x    |		MOVE.L	0x201aa,-(A7)
00020a34 2f 3a f7 70              |/: p    |		MOVE.L	0x201a6,-(A7)
00020a38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a3a 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00020a3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a40 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020a44 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a46 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020a4a 4e 92                    |N       |		JSR	(A2)
00020a4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a4e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020a54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a56 2e ae ff ee              |.       |		MOVE.L	(A6-0x12),(A7)
00020a5a 42 80                    |B       |		CLR.L	D0
00020a5c 10 2e ff f2              | .      |		MOVE.B	(A6-0xe),D0
00020a60 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020a62 4e b9 00 01 04 4c        |N    L  |		JSR	WriteErrorMessage(file : String; txt : String; number : Long) : Bool
00020a68 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020a6c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a6e 20 4b                    | K      |		MOVEA.L	A3,A0
00020a70 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020a72 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020a74 51 c8 ff fc              |Q       |		DBF	D0,0x20a72
00020a78 41 fa f7 58              |A  X    |		LEA.L	0x201d2,A0
00020a7c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020a7e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020a80 51 c8 ff fc              |Q       |		DBF	D0,0x20a7e
00020a84 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a86 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00020a8a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a8c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a8e 4e 92                    |N       |		JSR	(A2)
00020a90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a92 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020a96 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a98 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a9a 4e 92                    |N       |		JSR	(A2)
00020a9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a9e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020aa4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020aa6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020aac de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00020ab0 60 00 01 1c              |`       |		BRA	0x20bce
00020ab4 4a 2e ff da              |J.      |		TST.B	(A6-0x26)
00020ab8 67 00 00 ac              |g       |		BEQ	0x20b66
00020abc 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00020ac0 4e b9 00 02 19 06        |N       |		JSR	exp_READ_LAST_PC.IOC(&Sr_2)
00020ac6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ac8 42 80                    |B       |		CLR.L	D0
00020aca 10 2e ff fb              | .      |		MOVE.B	(A6-0x5),D0
00020ace e1 40                    | @      |		ASL.W	#0x8,D0
00020ad0 42 81                    |B       |		CLR.L	D1
00020ad2 12 2e ff fc              | .      |		MOVE.B	(A6-0x4),D1
00020ad6 d2 40                    | @      |		ADD.W	D0,D1
00020ad8 3e 01                    |>       |		MOVE.W	D1,D7
00020ada 0c 47 01 02              | G      |		CMPI.W	#0x0102,D7
00020ade 66 2a                    |f*      |		BNE	0x20b0a
00020ae0 41 fa f7 12              |A       |		LEA.L	0x201f4,A0
00020ae4 70 10                    |p       |		MOVEQ.L	#0x10,D0
00020ae6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020ae8 51 c8 ff fc              |Q       |		DBF	D0,0x20ae6
00020aec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020aee 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020af2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020af4 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00020af8 4e 92                    |N       |		JSR	(A2)
00020afa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020afc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020b02 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00020b06 18 82                    |        |		MOVE.B	D2,(A4)
00020b08 60 5a                    |`Z      |		BRA	0x20b64
00020b0a 20 4b                    | K      |		MOVEA.L	A3,A0
00020b0c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020b0e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020b10 51 c8 ff fc              |Q       |		DBF	D0,0x20b0e
00020b14 9e c4                    |        |		SUBA.W	D4,A7
00020b16 20 4f                    | O      |		MOVEA.L	A7,A0
00020b18 43 fa f6 da              |C       |		LEA.L	0x201f4,A1
00020b1c 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00020b1e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020b20 51 c8 ff fc              |Q       |		DBF	D0,0x20b1e
00020b24 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b26 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
00020b2a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b2c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020b2e 4e 92                    |N       |		JSR	(A2)
00020b30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b32 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020b36 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b38 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00020b3c 4e 92                    |N       |		JSR	(A2)
00020b3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b40 42 80                    |B       |		CLR.L	D0
00020b42 30 07                    |0       |		MOVE.W	D7,D0
00020b44 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020b46 48 78 00 04              |Hx      |		PEA.L	0x4
00020b4a 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00020b50 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b52 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020b58 de c5                    |        |		ADDA.W	D5,A7
00020b5a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020b60 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00020b64 60 68                    |`h      |		BRA	0x20bce
00020b66 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00020b6a 67 3a                    |g:      |		BEQ	0x20ba6
00020b6c 20 4b                    | K      |		MOVEA.L	A3,A0
00020b6e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020b70 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020b72 51 c8 ff fc              |Q       |		DBF	D0,0x20b70
00020b76 41 fa f6 bc              |A       |		LEA.L	0x20234,A0
00020b7a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020b7c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020b7e 51 c8 ff fc              |Q       |		DBF	D0,0x20b7c
00020b82 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b84 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
00020b88 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b8a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020b8c 4e 92                    |N       |		JSR	(A2)
00020b8e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b90 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020b94 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b96 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020b98 4e 92                    |N       |		JSR	(A2)
00020b9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b9c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020ba2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ba4 60 b4                    |`       |		BRA	0x20b5a
00020ba6 41 fa f6 b6              |A       |		LEA.L	0x2025e,A0
00020baa 70 14                    |p       |		MOVEQ.L	#0x14,D0
00020bac 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bae 51 c8 ff fc              |Q       |		DBF	D0,0x20bac
00020bb2 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020bb6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bb8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020bbc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020bbe 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020bc0 4e 92                    |N       |		JSR	(A2)
00020bc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bc4 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020bca de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020bce 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020bd2 4e 5e                    |N^      |		UNLK	A6
00020bd4 4e 75                    |Nu      |		RTS
00020bd6 ; --------------------------------------------------------------------------------------
00020bd6 ; OMSI PASCAL Function
00020bd6 ;    <LVAR  0x008 4(r)>
00020bd6 ;    <LVAR -0x00a @>
00020bd6 ;    <LVAR -0x00b @ 1(r)>
00020bd6 ;    <LVAR -0x00c @>
00020bd6 ; --------------------------------------------------------------------------------------
00020bd6					RUN_UNTIL_STOP():
00020bd6 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020bda bf d5                    |        |		CMPA.L	(A5),A7
00020bdc 62 06                    |b       |		BHI	0x20be4
00020bde 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020be2 4e 76                    |Nv      |		TRAPV
00020be4 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020be8 48 e7 e7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00020bec 43 ee ff f5              |C       |		LEA.L	(A6-0xb),A1
00020bf0 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00020bf4 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00020bf8 49 f9 00 01 04 84        |I       |		LEA.L	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool),A4
00020bfe 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00020c00 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020c02 2a 3c 00 00 00 96        |*<      |		MOVE.L	#0x96,D5
00020c08 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020c0a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020c0e 42 10                    |B       |		CLR.B	(A0)
00020c10 2f 3c 00 00 98 96        |/<      |		MOVE.L	#0x9896,-(A7)
00020c16 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020c1c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c1e 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
00020c22 48 52                    |HR      |		PEA.L	(A2)
00020c24 48 51                    |HQ      |		PEA.L	(A1)
00020c26 48 53                    |HS      |		PEA.L	(A3)
00020c28 4e 94                    |N       |		JSR	(A4)
00020c2a de c1                    |        |		ADDA.W	D1,A7
00020c2c 10 07                    |        |		MOVE.B	D7,D0
00020c2e 80 11                    |        |		OR.B	(A1),D0
00020c30 48 80                    |H       |		EXTB.W	D0
00020c32 41 82                    |A       |		CHK.W	D2,D0
00020c34 1e 00                    |        |		MOVE.B	D0,D7
00020c36 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00020c3a 48 52                    |HR      |		PEA.L	(A2)
00020c3c 48 51                    |HQ      |		PEA.L	(A1)
00020c3e 48 53                    |HS      |		PEA.L	(A3)
00020c40 4e 94                    |N       |		JSR	(A4)
00020c42 de c1                    |        |		ADDA.W	D1,A7
00020c44 10 07                    |        |		MOVE.B	D7,D0
00020c46 80 11                    |        |		OR.B	(A1),D0
00020c48 48 80                    |H       |		EXTB.W	D0
00020c4a 41 82                    |A       |		CHK.W	D2,D0
00020c4c 1e 00                    |        |		MOVE.B	D0,D7
00020c4e 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020c52 48 52                    |HR      |		PEA.L	(A2)
00020c54 48 51                    |HQ      |		PEA.L	(A1)
00020c56 48 53                    |HS      |		PEA.L	(A3)
00020c58 4e 94                    |N       |		JSR	(A4)
00020c5a de c1                    |        |		ADDA.W	D1,A7
00020c5c 10 07                    |        |		MOVE.B	D7,D0
00020c5e 80 11                    |        |		OR.B	(A1),D0
00020c60 48 80                    |H       |		EXTB.W	D0
00020c62 41 82                    |A       |		CHK.W	D2,D0
00020c64 1e 00                    |        |		MOVE.B	D0,D7
00020c66 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020c6a 48 52                    |HR      |		PEA.L	(A2)
00020c6c 48 51                    |HQ      |		PEA.L	(A1)
00020c6e 48 53                    |HS      |		PEA.L	(A3)
00020c70 4e 94                    |N       |		JSR	(A4)
00020c72 de c1                    |        |		ADDA.W	D1,A7
00020c74 10 07                    |        |		MOVE.B	D7,D0
00020c76 80 11                    |        |		OR.B	(A1),D0
00020c78 48 80                    |H       |		EXTB.W	D0
00020c7a 41 82                    |A       |		CHK.W	D2,D0
00020c7c 1e 00                    |        |		MOVE.B	D0,D7
00020c7e 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020c82 48 52                    |HR      |		PEA.L	(A2)
00020c84 48 51                    |HQ      |		PEA.L	(A1)
00020c86 48 53                    |HS      |		PEA.L	(A3)
00020c88 4e 94                    |N       |		JSR	(A4)
00020c8a de c1                    |        |		ADDA.W	D1,A7
00020c8c 10 07                    |        |		MOVE.B	D7,D0
00020c8e 80 11                    |        |		OR.B	(A1),D0
00020c90 48 80                    |H       |		EXTB.W	D0
00020c92 41 82                    |A       |		CHK.W	D2,D0
00020c94 1e 00                    |        |		MOVE.B	D0,D7
00020c96 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00020c98 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c9a 1f 06                    |        |		MOVE.B	D6,-(A7)
00020c9c 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020ca2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ca4 4a 1f                    |J       |		TST.B	(A7)+
00020ca6 67 16                    |g       |		BEQ	0x20cbe
00020ca8 1f 06                    |        |		MOVE.B	D6,-(A7)
00020caa 48 52                    |HR      |		PEA.L	(A2)
00020cac 48 51                    |HQ      |		PEA.L	(A1)
00020cae 48 53                    |HS      |		PEA.L	(A3)
00020cb0 4e 94                    |N       |		JSR	(A4)
00020cb2 de c1                    |        |		ADDA.W	D1,A7
00020cb4 10 07                    |        |		MOVE.B	D7,D0
00020cb6 80 11                    |        |		OR.B	(A1),D0
00020cb8 48 80                    |H       |		EXTB.W	D0
00020cba 41 82                    |A       |		CHK.W	D2,D0
00020cbc 1e 00                    |        |		MOVE.B	D0,D7
00020cbe 52 06                    |R       |		ADDQ.B	#0x1,D6
00020cc0 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
00020cc4 6f d2                    |o       |		BLE	0x20c98
00020cc6 53 85                    |S       |		SUBQ.L	#0x1,D5
00020cc8 67 06                    |g       |		BEQ	0x20cd0
00020cca 4a 07                    |J       |		TST.B	D7
00020ccc 67 00 ff 42              |g  B    |		BEQ	0x20c10
00020cd0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020cd4 10 87                    |        |		MOVE.B	D7,(A0)
00020cd6 44 10                    |D       |		NEG.B	(A0)
00020cd8 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00020cda 4c df 1f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00020cde 4e 5e                    |N^      |		UNLK	A6
00020ce0 4e 75                    |Nu      |		RTS
00020ce2 ; --------------------------------------------------------------------------------------
00020ce2 ; OMSI PASCAL Function
00020ce2 ; --------------------------------------------------------------------------------------
00020ce2 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
00020ce6 bf d5                    |        |		CMPA.L	(A5),A7
00020ce8 62 06                    |b       |		BHI	0x20cf0
00020cea 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cee 4e 76                    |Nv      |		TRAPV
00020cf0 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020cf4 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020cf8 45 f9 00 01 04 c0        |E       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A2
00020cfe 47 fa f6 14              |G       |		LEA.L	0x20314,A3
00020d02 49 f9 00 02 16 08        |I       |		LEA.L	exp_FILL_MEMORY.MEM(),A4
00020d08 72 14                    |r       |		MOVEQ.L	#0x14,D1
00020d0a 74 16                    |t       |		MOVEQ.L	#0x16,D2
00020d0c 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00020d0e 78 0d                    |x       |		MOVEQ.L	#0x0d,D4
00020d10 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020d12 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00020d14 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d16 1f 03                    |        |		MOVE.B	D3,-(A7)
00020d18 4e 92                    |N       |		JSR	(A2)
00020d1a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d1c 4a 1f                    |J       |		TST.B	(A7)+
00020d1e 67 14                    |g       |		BEQ	0x20d34
00020d20 1f 03                    |        |		MOVE.B	D3,-(A7)
00020d22 9e c1                    |        |		SUBA.W	D1,A7
00020d24 20 4f                    | O      |		MOVEA.L	A7,A0
00020d26 22 4b                    |"K      |		MOVEA.L	A3,A1
00020d28 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020d2a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d2c 51 c8 ff fc              |Q       |		DBF	D0,0x20d2a
00020d30 4e 94                    |N       |		JSR	(A4)
00020d32 de c2                    |        |		ADDA.W	D2,A7
00020d34 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d36 1f 04                    |        |		MOVE.B	D4,-(A7)
00020d38 4e 92                    |N       |		JSR	(A2)
00020d3a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d3c 4a 1f                    |J       |		TST.B	(A7)+
00020d3e 67 14                    |g       |		BEQ	0x20d54
00020d40 1f 04                    |        |		MOVE.B	D4,-(A7)
00020d42 9e c1                    |        |		SUBA.W	D1,A7
00020d44 20 4f                    | O      |		MOVEA.L	A7,A0
00020d46 22 4b                    |"K      |		MOVEA.L	A3,A1
00020d48 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020d4a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d4c 51 c8 ff fc              |Q       |		DBF	D0,0x20d4a
00020d50 4e 94                    |N       |		JSR	(A4)
00020d52 de c2                    |        |		ADDA.W	D2,A7
00020d54 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d56 1f 05                    |        |		MOVE.B	D5,-(A7)
00020d58 4e 92                    |N       |		JSR	(A2)
00020d5a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d5c 4a 1f                    |J       |		TST.B	(A7)+
00020d5e 67 14                    |g       |		BEQ	0x20d74
00020d60 1f 05                    |        |		MOVE.B	D5,-(A7)
00020d62 9e c1                    |        |		SUBA.W	D1,A7
00020d64 20 4f                    | O      |		MOVEA.L	A7,A0
00020d66 22 4b                    |"K      |		MOVEA.L	A3,A1
00020d68 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020d6a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d6c 51 c8 ff fc              |Q       |		DBF	D0,0x20d6a
00020d70 4e 94                    |N       |		JSR	(A4)
00020d72 de c2                    |        |		ADDA.W	D2,A7
00020d74 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d76 1f 06                    |        |		MOVE.B	D6,-(A7)
00020d78 4e 92                    |N       |		JSR	(A2)
00020d7a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d7c 4a 1f                    |J       |		TST.B	(A7)+
00020d7e 67 14                    |g       |		BEQ	0x20d94
00020d80 1f 06                    |        |		MOVE.B	D6,-(A7)
00020d82 9e c1                    |        |		SUBA.W	D1,A7
00020d84 20 4f                    | O      |		MOVEA.L	A7,A0
00020d86 22 4b                    |"K      |		MOVEA.L	A3,A1
00020d88 70 12                    |p       |		MOVEQ.L	#0x12,D0
00020d8a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d8c 51 c8 ff fc              |Q       |		DBF	D0,0x20d8a
00020d90 4e 94                    |N       |		JSR	(A4)
00020d92 de c2                    |        |		ADDA.W	D2,A7
00020d94 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020d98 4e 5e                    |N^      |		UNLK	A6
00020d9a 4e 75                    |Nu      |		RTS
00020d9c ; --------------------------------------------------------------------------------------
00020d9c ; OMSI PASCAL Function
00020d9c ; --------------------------------------------------------------------------------------
00020d9c					START:
00020d9c 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020da0 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020da6					MAIN:
00020da6 45 f9 00 02 1b 86        |E       |		LEA.L	0x21b86,A2
00020dac 47 f9 00 02 1b 7e        |G    ~  |		LEA.L	0x21b7e,A3
00020db2 49 f9 00 02 1b 7d        |I    }  |		LEA.L	0x21b7d,A4
00020db8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020dba 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020dbc 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020dc2 41 fa f4 c6              |A       |		LEA.L	0x2028a,A0
00020dc6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020dc8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020dca 51 c8 ff fc              |Q       |		DBF	D0,0x20dc8
00020dce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dd0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020dd4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dd6 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
00020dda 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020de0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020de2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020de8 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020dec 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020df2 48 53                    |HS      |		PEA.L	(A3)
00020df4 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020dfa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dfc 48 54                    |HT      |		PEA.L	(A4)
00020dfe 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020e04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e06 48 79 00 02 1b 80        |Hy      |		PEA.L	0x21b80
00020e0c 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020e12 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e14 4a 13                    |J       |		TST.B	(A3)
00020e16 67 12                    |g       |		BEQ	0x20e2a
00020e18 20 4a                    | J      |		MOVEA.L	A2,A0
00020e1a 43 fa f5 0b              |C       |		LEA.L	0x20327,A1
00020e1e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020e20 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e22 51 c8 ff fc              |Q       |		DBF	D0,0x20e20
00020e26 60 00 00 84              |`       |		BRA	0x20eac
00020e2a 9e fc 00 42              |   B    |		SUBA.W	#0x42,A7
00020e2e 20 4f                    | O      |		MOVEA.L	A7,A0
00020e30 43 fa f4 58              |C  X    |		LEA.L	0x2028a,A1
00020e34 70 40                    |p@      |		MOVEQ.L	#0x40,D0
00020e36 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e38 51 c8 ff fc              |Q       |		DBF	D0,0x20e36
00020e3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e44 3f 3c 00 41              |?< A    |		MOVE.W	#0x41,-(A7)
00020e48 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e50 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020e56 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020e5a 20 4f                    | O      |		MOVEA.L	A7,A0
00020e5c 43 fa f4 6e              |C  n    |		LEA.L	0x202cc,A1
00020e60 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00020e62 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e64 51 c8 ff fc              |Q       |		DBF	D0,0x20e62
00020e68 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020e6a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020e6e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e70 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00020e74 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e7a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e7c 42 17                    |B       |		CLR.B	(A7)
00020e7e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020e84 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e86 4a 1f                    |J       |		TST.B	(A7)+
00020e88 67 10                    |g       |		BEQ	0x20e9a
00020e8a 20 4a                    | J      |		MOVEA.L	A2,A0
00020e8c 43 fa f4 a1              |C       |		LEA.L	0x2032f,A1
00020e90 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020e92 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e94 51 c8 ff fc              |Q       |		DBF	D0,0x20e92
00020e98 60 0e                    |`       |		BRA	0x20ea8
00020e9a 20 4a                    | J      |		MOVEA.L	A2,A0
00020e9c 43 fa f4 99              |C       |		LEA.L	0x20337,A1
00020ea0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020ea2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ea4 51 c8 ff fc              |Q       |		DBF	D0,0x20ea2
00020ea8 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020eac 48 78 00 00              |Hx      |		PEA.L	0x0
00020eb0 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020eb6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020eb8 1e 94                    |        |		MOVE.B	(A4),(A7)
00020eba 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020ec0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ec2 4e ba f6 46              |N  F    |		JSR	0x2050a
00020ec6 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00020eca 20 4f                    | O      |		MOVEA.L	A7,A0
00020ecc 43 fa f4 22              |C  "    |		LEA.L	0x202f0,A1
00020ed0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020ed2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ed4 51 c8 ff fc              |Q       |		DBF	D0,0x20ed2
00020ed8 42 27                    |B'      |		CLR.B	-(A7)
00020eda 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020edc 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020ee0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ee2 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00020ee6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020eec 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020eee 1e b9 00 02 1b 80        |        |		MOVE.B	0x21b80,(A7)
00020ef4 1f 01                    |        |		MOVE.B	D1,-(A7)
00020ef6 1f 01                    |        |		MOVE.B	D1,-(A7)
00020ef8 48 79 00 02 1b 81        |Hy      |		PEA.L	0x21b81
00020efe 4e ba f5 42              |N  B    |		JSR	0x20442
00020f02 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020f06 2e b9 00 02 1b 8a        |.       |		MOVE.L	0x21b8a,(A7)
00020f0c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020f0e 48 79 00 02 1b 8e        |Hy      |		PEA.L	0x21b8e
00020f14 4e b9 00 02 11 e0        |N       |		JSR	exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
00020f1a de c2                    |        |		ADDA.W	D2,A7
00020f1c 3e bc 03 20              |>       |		MOVE.W	#0x320,(A7)
00020f20 9e c2                    |        |		SUBA.W	D2,A7
00020f22 20 4f                    | O      |		MOVEA.L	A7,A0
00020f24 43 f9 00 02 1b 8e        |C       |		LEA.L	0x21b8e,A1
00020f2a 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020f2c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020f2e 51 c8 ff fc              |Q       |		DBF	D0,0x20f2c
00020f32 42 27                    |B'      |		CLR.B	-(A7)
00020f34 4e b9 00 02 11 90        |N       |		JSR	exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
00020f3a de c2                    |        |		ADDA.W	D2,A7
00020f3c 2e ba f3 c6              |.       |		MOVE.L	0x20304,(A7)
00020f40 2f 3a f3 be              |/:      |		MOVE.L	0x20300,-(A7)
00020f44 42 27                    |B'      |		CLR.B	-(A7)
00020f46 4e b9 00 02 12 c0        |N       |		JSR	exp_LOAD_WDR.VAL(Sw_8, Sw_1)
00020f4c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f4e 2e ba f3 b4              |.       |		MOVE.L	0x20304,(A7)
00020f52 2f 3a f3 ac              |/:      |		MOVE.L	0x20300,-(A7)
00020f56 42 27                    |B'      |		CLR.B	-(A7)
00020f58 4e b9 00 02 12 1c        |N       |		JSR	exp_LOAD_WDR.TYP(Sw_8, Sw_1)
00020f5e de c2                    |        |		ADDA.W	D2,A7
00020f60 4e ba fd 80              |N       |		JSR	0x20ce2
00020f64 3f 3c 01 00              |?<      |		MOVE.W	#0x100,-(A7)
00020f68 4e ba f6 8e              |N       |		JSR	0x205f8
00020f6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f6e 4e ba f8 0a              |N       |		JSR	START_ALL_BOARDS()
00020f72 48 79 00 02 1b 7f        |Hy      |		PEA.L	0x21b7f
00020f78 4e ba fc 5c              |N  \    |		JSR	RUN_UNTIL_STOP()
00020f7c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f7e 1e b9 00 02 1b 7f        |        |		MOVE.B	0x21b7f,(A7)
00020f84 4e ba f9 c2              |N       |		JSR	0x20948
00020f88 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f8a 4a 39 00 02 1b 7c        |J9   |  |		TST.B	0x21b7c
00020f90 67 12                    |g       |		BEQ	0x20fa4
00020f92 4a 13                    |J       |		TST.B	(A3)
00020f94 66 0e                    |f       |		BNE	0x20fa4
00020f96 1f 14                    |        |		MOVE.B	(A4),-(A7)
00020f98 48 79 00 02 1b 81        |Hy      |		PEA.L	0x21b81
00020f9e 4e ba f3 a0              |N       |		JSR	0x20340
00020fa2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fa4 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020faa 1f 39 00 02 1b 7c        | 9   |  |		MOVE.B	0x21b7c,-(A7)
00020fb0 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020fb6 42 17                    |B       |		CLR.B	(A7)
00020fb8 48 78 00 01              |Hx      |		PEA.L	0x1
00020fbc 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020fc2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fc4 4e b9 00 01 02 84        |N       |		JSR	?exit
00020fca					exp_LOAD_HRAM_8_0.FIU():
00020fca 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fd0 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fd2 11 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	17,'LOAD_HRAM_8_0.FIU'
00020fe4 00                       |        |		.CONST	0x0
00020fe5 03                       |        |		.CONST	0x3			; DIPROC address
00020fe6 00                       |        |		.CONST	0x0			; Output Parameters
00020fe7 00                       |        |		.CONST	0x0			; Input Parameters
00020fe8					exp_LOAD_HRAM_32_0.FIU():
00020fe8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fee 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020ff0 12 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	18,'LOAD_HRAM_32_0.FIU'
00021003 00                       |        |		.CONST	0x0
00021004 03                       |        |		.CONST	0x3			; DIPROC address
00021005 00                       |        |		.CONST	0x0			; Output Parameters
00021006 00                       |        |		.CONST	0x0			; Input Parameters
00021007 00                       |        |		.PAD	0x0
00021008					exp_RUN_NORMAL.FIU():
00021008 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002100e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021010 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
0002101f 00                       |        |		.CONST	0x0
00021020 03                       |        |		.CONST	0x3			; DIPROC address
00021021 00                       |        |		.CONST	0x0			; Output Parameters
00021022 00                       |        |		.CONST	0x0			; Input Parameters
00021023 00                       |        |		.PAD	0x0
00021024					exp_RESET.FIU():
00021024 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002102a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002102c 09 52 45 53 45 54 2e 46  | RESET.F|		.TXT	9,'RESET.FIU'
00021036 00                       |        |		.CONST	0x0
00021037 03                       |        |		.CONST	0x3			; DIPROC address
00021038 00                       |        |		.CONST	0x0			; Output Parameters
00021039 00                       |        |		.CONST	0x0			; Input Parameters
0002103a					exp_PREP_RUN.FIU(Sw_2):
0002103a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021040 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021042 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
0002104f 00                       |        |		.CONST	0x0
00021050 03                       |        |		.CONST	0x3			; DIPROC address
00021051 00                       |        |		.CONST	0x0			; Output Parameters
00021052 01                       |        |		.CONST	0x1			; Input Parameters
00021053 01                       |        |		.CONST	0x1			; In arg [2]
00021054					exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2):
00021054 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002105a 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002105c 15 4c 4f 41 44 5f 52 45  | LOAD_RE|		.TXT	21,'LOAD_REFRESH_REGS.FIU'
00021072 00                       |        |		.CONST	0x0
00021073 03                       |        |		.CONST	0x3			; DIPROC address
00021074 00                       |        |		.CONST	0x0			; Output Parameters
00021075 02                       |        |		.CONST	0x2			; Input Parameters
00021076 01                       |        |		.CONST	0x1			; In arg [2]
00021077 01                       |        |		.CONST	0x1			; In arg [2]
00021078					exp_LOAD_HRAM_1.FIU():
00021078 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002107e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021080 0f 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	15,'LOAD_HRAM_1.FIU'
00021090 00                       |        |		.CONST	0x0
00021091 03                       |        |		.CONST	0x3			; DIPROC address
00021092 00                       |        |		.CONST	0x0			; Output Parameters
00021093 00                       |        |		.CONST	0x0			; Input Parameters
00021094					exp_INIT_MRU.FIU():
00021094 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002109a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002109c 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
000210a9 00                       |        |		.CONST	0x0
000210aa 03                       |        |		.CONST	0x3			; DIPROC address
000210ab 00                       |        |		.CONST	0x0			; Output Parameters
000210ac 00                       |        |		.CONST	0x0			; Input Parameters
000210ad 00                       |        |		.PAD	0x0
000210ae					exp_FREEZE_WORLD.FIU():
000210ae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210b4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210b6 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
000210c7 00                       |        |		.CONST	0x0
000210c8 03                       |        |		.CONST	0x3			; DIPROC address
000210c9 00                       |        |		.CONST	0x0			; Output Parameters
000210ca 00                       |        |		.CONST	0x0			; Input Parameters
000210cb 00                       |        |		.PAD	0x0
000210cc					exp_CLEAR_EXCEPTIONS.FIU():
000210cc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210d2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210d4 14 43 4c 45 41 52 5f 45  | CLEAR_E|		.TXT	20,'CLEAR_EXCEPTIONS.FIU'
000210e9 00                       |        |		.CONST	0x0
000210ea 03                       |        |		.CONST	0x3			; DIPROC address
000210eb 00                       |        |		.CONST	0x0			; Output Parameters
000210ec 00                       |        |		.CONST	0x0			; Input Parameters
000210ed 00                       |        |		.PAD	0x0
000210ee					exp_RESET.SEQ():
000210ee 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210f4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210f6 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
00021100 00                       |        |		.CONST	0x0
00021101 02                       |        |		.CONST	0x2			; DIPROC address
00021102 00                       |        |		.CONST	0x0			; Output Parameters
00021103 00                       |        |		.CONST	0x0			; Input Parameters
00021104					exp_RUN_CHECK.SEQ():
00021104 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002110a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002110c 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
0002111a 00                       |        |		.CONST	0x0
0002111b 02                       |        |		.CONST	0x2			; DIPROC address
0002111c 00                       |        |		.CONST	0x0			; Output Parameters
0002111d 00                       |        |		.CONST	0x0			; Input Parameters
0002111e					exp_PREP_RUN.SEQ(Sw_2):
0002111e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021124 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021126 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
00021133 00                       |        |		.CONST	0x0
00021134 02                       |        |		.CONST	0x2			; DIPROC address
00021135 00                       |        |		.CONST	0x0			; Output Parameters
00021136 01                       |        |		.CONST	0x1			; Input Parameters
00021137 01                       |        |		.CONST	0x1			; In arg [2]
00021138					exp_HALT.SEQ(&Fr):
00021138 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002113e 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021140 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
00021149 00                       |        |		.CONST	0x0
0002114a 02                       |        |		.CONST	0x2			; DIPROC address
0002114b 01                       |        |		.CONST	0x1			; Output Parameters
0002114c 00                       |        |		.CONST	0x0			; Input Parameters
0002114d 08                       |        |		.CONST	0x8			; Out arg flag
0002114e					exp_GET_MISC_ERRORS.SEQ(&Sr_1):
0002114e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021154 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021156 13 47 45 54 5f 4d 49 53  | GET_MIS|		.TXT	19,'GET_MISC_ERRORS.SEQ'
0002116a 00                       |        |		.CONST	0x0
0002116b 02                       |        |		.CONST	0x2			; DIPROC address
0002116c 01                       |        |		.CONST	0x1			; Output Parameters
0002116d 00                       |        |		.CONST	0x0			; Input Parameters
0002116e 00                       |        |		.CONST	0x0			; Out arg [1]
0002116f 00                       |        |		.PAD	0x0
00021170					exp_CLR_BREAK_MASK.SEQ():
00021170 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021176 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021178 12 43 4c 52 5f 42 52 45  | CLR_BRE|		.TXT	18,'CLR_BREAK_MASK.SEQ'
0002118b 00                       |        |		.CONST	0x0
0002118c 02                       |        |		.CONST	0x2			; DIPROC address
0002118d 00                       |        |		.CONST	0x0			; Output Parameters
0002118e 00                       |        |		.CONST	0x0			; Input Parameters
0002118f 00                       |        |		.PAD	0x0
00021190					exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1):
00021190 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021196 00 16                    |        |		.CONST	0x0016			; Stack-delta
00021198 0d 57 52 49 54 45 5f 52  | WRITE_R|		.TXT	13,'WRITE_REG.TYP'
000211a6 00                       |        |		.CONST	0x0
000211a7 06                       |        |		.CONST	0x6			; DIPROC address
000211a8 00                       |        |		.CONST	0x0			; Output Parameters
000211a9 03                       |        |		.CONST	0x3			; Input Parameters
000211aa 01                       |        |		.CONST	0x1			; In arg [2]
000211ab 0d                       |        |		.CONST	0xd			; In arg [8, 1]
000211ac 00                       |        |		.CONST	0x0			; In arg [1]
000211ad 00                       |        |		.PAD	0x0
000211ae					exp_RUN_NORMAL.TYP():
000211ae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211b4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211b6 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
000211c5 00                       |        |		.CONST	0x0
000211c6 06                       |        |		.CONST	0x6			; DIPROC address
000211c7 00                       |        |		.CONST	0x0			; Output Parameters
000211c8 00                       |        |		.CONST	0x0			; Input Parameters
000211c9 00                       |        |		.PAD	0x0
000211ca					exp_RESET.TYP():
000211ca 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211d0 00 08                    |        |		.CONST	0x0008			; Stack-delta
000211d2 09 52 45 53 45 54 2e 54  | RESET.T|		.TXT	9,'RESET.TYP'
000211dc 00                       |        |		.CONST	0x0
000211dd 06                       |        |		.CONST	0x6			; DIPROC address
000211de 00                       |        |		.CONST	0x0			; Output Parameters
000211df 00                       |        |		.CONST	0x0			; Input Parameters
000211e0					exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1):
000211e0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000211e6 00 14                    |        |		.CONST	0x0014			; Stack-delta
000211e8 12 50 52 45 50 5f 57 52  | PREP_WR|		.TXT	18,'PREP_WRITE_REG.TYP'
000211fb 00                       |        |		.CONST	0x0
000211fc 06                       |        |		.CONST	0x6			; DIPROC address
000211fd 01                       |        |		.CONST	0x1			; Output Parameters
000211fe 01                       |        |		.CONST	0x1			; Input Parameters
000211ff 07                       |        |		.CONST	0x7			; In arg [8]
00021200 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00021201 00                       |        |		.PAD	0x0
00021202					exp_PREP_RUN.TYP(Sw_2):
00021202 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021208 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002120a 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
00021217 00                       |        |		.CONST	0x0
00021218 06                       |        |		.CONST	0x6			; DIPROC address
00021219 00                       |        |		.CONST	0x0			; Output Parameters
0002121a 01                       |        |		.CONST	0x1			; Input Parameters
0002121b 01                       |        |		.CONST	0x1			; In arg [2]
0002121c					exp_LOAD_WDR.TYP(Sw_8, Sw_1):
0002121c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021222 00 12                    |        |		.CONST	0x0012			; Stack-delta
00021224 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.TYP'
00021231 00                       |        |		.CONST	0x0
00021232 06                       |        |		.CONST	0x6			; DIPROC address
00021233 00                       |        |		.CONST	0x0			; Output Parameters
00021234 02                       |        |		.CONST	0x2			; Input Parameters
00021235 07                       |        |		.CONST	0x7			; In arg [8]
00021236 00                       |        |		.CONST	0x0			; In arg [1]
00021237 00                       |        |		.PAD	0x0
00021238					exp_LOAD_BENIGN_UWORD.TYP():
00021238 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002123e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021240 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
00021256 00                       |        |		.CONST	0x0
00021257 06                       |        |		.CONST	0x6			; DIPROC address
00021258 00                       |        |		.CONST	0x0			; Output Parameters
00021259 00                       |        |		.CONST	0x0			; Input Parameters
0002125a					exp_ALIGN_CSA.TYP():
0002125a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021260 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021262 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.TYP'
00021270 00                       |        |		.CONST	0x0
00021271 06                       |        |		.CONST	0x6			; DIPROC address
00021272 00                       |        |		.CONST	0x0			; Output Parameters
00021273 00                       |        |		.CONST	0x0			; Input Parameters
00021274					exp_RUN_NORMAL.VAL():
00021274 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002127a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002127c 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
0002128b 00                       |        |		.CONST	0x0
0002128c 07                       |        |		.CONST	0x7			; DIPROC address
0002128d 00                       |        |		.CONST	0x0			; Output Parameters
0002128e 00                       |        |		.CONST	0x0			; Input Parameters
0002128f 00                       |        |		.PAD	0x0
00021290					exp_RESET.VAL():
00021290 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021296 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021298 09 52 45 53 45 54 2e 56  | RESET.V|		.TXT	9,'RESET.VAL'
000212a2 00                       |        |		.CONST	0x0
000212a3 07                       |        |		.CONST	0x7			; DIPROC address
000212a4 00                       |        |		.CONST	0x0			; Output Parameters
000212a5 00                       |        |		.CONST	0x0			; Input Parameters
000212a6					exp_PREP_RUN.VAL(Sw_2):
000212a6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212ac 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000212ae 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
000212bb 00                       |        |		.CONST	0x0
000212bc 07                       |        |		.CONST	0x7			; DIPROC address
000212bd 00                       |        |		.CONST	0x0			; Output Parameters
000212be 01                       |        |		.CONST	0x1			; Input Parameters
000212bf 01                       |        |		.CONST	0x1			; In arg [2]
000212c0					exp_LOAD_WDR.VAL(Sw_8, Sw_1):
000212c0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212c6 00 12                    |        |		.CONST	0x0012			; Stack-delta
000212c8 0c 4c 4f 41 44 5f 57 44  | LOAD_WD|		.TXT	12,'LOAD_WDR.VAL'
000212d5 00                       |        |		.CONST	0x0
000212d6 07                       |        |		.CONST	0x7			; DIPROC address
000212d7 00                       |        |		.CONST	0x0			; Output Parameters
000212d8 02                       |        |		.CONST	0x2			; Input Parameters
000212d9 07                       |        |		.CONST	0x7			; In arg [8]
000212da 00                       |        |		.CONST	0x0			; In arg [1]
000212db 00                       |        |		.PAD	0x0
000212dc					exp_ALIGN_CSA.VAL():
000212dc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212e2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000212e4 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.VAL'
000212f2 00                       |        |		.CONST	0x0
000212f3 07                       |        |		.CONST	0x7			; DIPROC address
000212f4 00                       |        |		.CONST	0x0			; Output Parameters
000212f5 00                       |        |		.CONST	0x0			; Input Parameters
000212f6 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
00021302 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
0002130e ; --------------------------------------------------------------------------------------
0002130e ; OMSI PASCAL Function
0002130e ;    <LVAR  0x00a 1(r)>
0002130e ;    <LVAR  0x008 1(r)>
0002130e ;    <LVAR -0x004 @ 4(r)>
0002130e ; --------------------------------------------------------------------------------------
0002130e					exp_SET_HIT.MEM():
0002130e 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00021312 bf d5                    |        |		CMPA.L	(A5),A7
00021314 62 06                    |b       |		BHI	0x2131c
00021316 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002131a 4e 76                    |Nv      |		TRAPV
0002131c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021320 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021324 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021328 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002132a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002132c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021332 4a 1f                    |J       |		TST.B	(A7)+
00021334 67 12                    |g       |		BEQ	0x21348
00021336 9e c1                    |        |		SUBA.W	D1,A7
00021338 20 4f                    | O      |		MOVEA.L	A7,A0
0002133a 43 fa ff ba              |C       |		LEA.L	0x212f6,A1
0002133e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021340 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021342 51 c8 ff fc              |Q       |		DBF	D0,0x21340
00021346 60 10                    |`       |		BRA	0x21358
00021348 9e c1                    |        |		SUBA.W	D1,A7
0002134a 20 4f                    | O      |		MOVEA.L	A7,A0
0002134c 43 fa ff b4              |C       |		LEA.L	0x21302,A1
00021350 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021352 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021354 51 c8 ff fc              |Q       |		DBF	D0,0x21352
00021358 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002135a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002135e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021362 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021366 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002136c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002136e 48 52                    |HR      |		PEA.L	(A2)
00021370 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021376 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002137a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002137e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021380 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021384 48 78 00 00              |Hx      |		PEA.L	0x0
00021388 48 78 00 00              |Hx      |		PEA.L	0x0
0002138c 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021392 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021396 42 17                    |B       |		CLR.B	(A7)
00021398 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
0002139c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002139e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000213a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a6 48 52                    |HR      |		PEA.L	(A2)
000213a8 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000213ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213b0 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000213b4 4e 5e                    |N^      |		UNLK	A6
000213b6 4e 75                    |Nu      |		RTS
000213b8 52 45 53 45 54 2e 4d 45  |RESET.ME|		.TXT	'RESET.MEM '
000213c2 52 45 53 45 54 2e 4d 33  |RESET.M3|		.TXT	'RESET.M32 '
000213cc ; --------------------------------------------------------------------------------------
000213cc ; OMSI PASCAL Function
000213cc ;    <LVAR  0x008 1(r)>
000213cc ;    <LVAR -0x006 @ 4(r)>
000213cc ; --------------------------------------------------------------------------------------
000213cc					exp_RESET_MEM.MEM():
000213cc 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000213d0 bf d5                    |        |		CMPA.L	(A5),A7
000213d2 62 06                    |b       |		BHI	0x213da
000213d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213d8 4e 76                    |Nv      |		TRAPV
000213da de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000213de 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000213e2 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000213e6 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000213e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000213ea 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000213f0 4a 1f                    |J       |		TST.B	(A7)+
000213f2 67 12                    |g       |		BEQ	0x21406
000213f4 9e c1                    |        |		SUBA.W	D1,A7
000213f6 20 4f                    | O      |		MOVEA.L	A7,A0
000213f8 43 fa ff be              |C       |		LEA.L	0x213b8,A1
000213fc 70 08                    |p       |		MOVEQ.L	#0x08,D0
000213fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021400 51 c8 ff fc              |Q       |		DBF	D0,0x213fe
00021404 60 10                    |`       |		BRA	0x21416
00021406 9e c1                    |        |		SUBA.W	D1,A7
00021408 20 4f                    | O      |		MOVEA.L	A7,A0
0002140a 43 fa ff b6              |C       |		LEA.L	0x213c2,A1
0002140e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021410 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021412 51 c8 ff fc              |Q       |		DBF	D0,0x21410
00021416 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021418 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002141c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021420 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021424 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002142a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002142c 48 52                    |HR      |		PEA.L	(A2)
0002142e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021434 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021438 42 27                    |B'      |		CLR.B	-(A7)
0002143a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002143e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021440 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021446 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021448 48 52                    |HR      |		PEA.L	(A2)
0002144a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021450 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021452 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021456 4e 5e                    |N^      |		UNLK	A6
00021458 4e 75                    |Nu      |		RTS
0002145a 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
00021468 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
00021476 ; --------------------------------------------------------------------------------------
00021476 ; OMSI PASCAL Function
00021476 ;    <LVAR  0x008 1(r)>
00021476 ;    <LVAR -0x006 @ 4(r)>
00021476 ; --------------------------------------------------------------------------------------
00021476					exp_RUN_CHECK.MEM():
00021476 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002147a bf d5                    |        |		CMPA.L	(A5),A7
0002147c 62 06                    |b       |		BHI	0x21484
0002147e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021482 4e 76                    |Nv      |		TRAPV
00021484 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00021488 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002148c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021490 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00021492 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021494 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002149a 4a 1f                    |J       |		TST.B	(A7)+
0002149c 67 12                    |g       |		BEQ	0x214b0
0002149e 9e c1                    |        |		SUBA.W	D1,A7
000214a0 20 4f                    | O      |		MOVEA.L	A7,A0
000214a2 43 fa ff b6              |C       |		LEA.L	0x2145a,A1
000214a6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000214a8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214aa 51 c8 ff fc              |Q       |		DBF	D0,0x214a8
000214ae 60 10                    |`       |		BRA	0x214c0
000214b0 9e c1                    |        |		SUBA.W	D1,A7
000214b2 20 4f                    | O      |		MOVEA.L	A7,A0
000214b4 43 fa ff b2              |C       |		LEA.L	0x21468,A1
000214b8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000214ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214bc 51 c8 ff fc              |Q       |		DBF	D0,0x214ba
000214c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214c6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000214ca 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000214ce 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000214d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214d6 48 52                    |HR      |		PEA.L	(A2)
000214d8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000214de de fc 00 16              |        |		ADDA.W	#0x16,A7
000214e2 42 27                    |B'      |		CLR.B	-(A7)
000214e4 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000214e8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000214ea 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000214f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214f2 48 52                    |HR      |		PEA.L	(A2)
000214f4 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000214fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214fc 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021500 4e 5e                    |N^      |		UNLK	A6
00021502 4e 75                    |Nu      |		RTS
00021504 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.MEM '
00021514 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.M32 '
00021524 ; --------------------------------------------------------------------------------------
00021524 ; OMSI PASCAL Function
00021524 ;    <LVAR  0x00e 1(r)>
00021524 ;    <LVAR  0x00c 1(r)>
00021524 ;    <LVAR  0x00a 1(r)>
00021524 ;    <LVAR  0x008 1(r)>
00021524 ;    <LVAR -0x004 @ 4(r)>
00021524 ; --------------------------------------------------------------------------------------
00021524 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021528 bf d5                    |        |		CMPA.L	(A5),A7
0002152a 62 06                    |b       |		BHI	0x21532
0002152c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021530 4e 76                    |Nv      |		TRAPV
00021532 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021536 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002153a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002153e 72 10                    |r       |		MOVEQ.L	#0x10,D1
00021540 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021542 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021548 4a 1f                    |J       |		TST.B	(A7)+
0002154a 67 12                    |g       |		BEQ	0x2155e
0002154c 9e c1                    |        |		SUBA.W	D1,A7
0002154e 20 4f                    | O      |		MOVEA.L	A7,A0
00021550 43 fa ff b2              |C       |		LEA.L	0x21504,A1
00021554 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021556 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021558 51 c8 ff fc              |Q       |		DBF	D0,0x21556
0002155c 60 10                    |`       |		BRA	0x2156e
0002155e 9e c1                    |        |		SUBA.W	D1,A7
00021560 20 4f                    | O      |		MOVEA.L	A7,A0
00021562 43 fa ff b0              |C       |		LEA.L	0x21514,A1
00021566 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021568 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002156a 51 c8 ff fc              |Q       |		DBF	D0,0x21568
0002156e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021570 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021574 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021578 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002157c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021582 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021584 48 52                    |HR      |		PEA.L	(A2)
00021586 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002158c de fc 00 18              |        |		ADDA.W	#0x18,A7
00021590 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021592 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00021596 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
0002159c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002159e 2e 92                    |.       |		MOVE.L	(A2),(A7)
000215a0 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
000215a4 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000215aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215ac 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000215b0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000215b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000215b6 48 78 00 00              |Hx      |		PEA.L	0x0
000215ba 48 78 00 00              |Hx      |		PEA.L	0x0
000215be 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000215c4 de c1                    |        |		ADDA.W	D1,A7
000215c6 42 17                    |B       |		CLR.B	(A7)
000215c8 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
000215cc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000215ce 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000215d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215d6 48 52                    |HR      |		PEA.L	(A2)
000215d8 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000215de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215e0 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000215e4 4e 5e                    |N^      |		UNLK	A6
000215e6 4e 75                    |Nu      |		RTS
000215e8 46 49 4c 4c 5f 4d 45 4d  |FILL_MEM|		.TXT	'FILL_MEMORY.MEM '
000215f8 46 49 4c 4c 5f 4d 45 4d  |FILL_MEM|		.TXT	'FILL_MEMORY.M32 '
00021608 ; --------------------------------------------------------------------------------------
00021608 ; OMSI PASCAL Function
00021608 ;    <LVAR  0x01c 1(r)>
00021608 ;    <LVAR  0x01a 1(r)>
00021608 ;    <LVAR  0x019 1(r)>
00021608 ;    <LVAR  0x018 1(r)>
00021608 ;    <LVAR  0x014 4(r)>
00021608 ;    <LVAR  0x010 4(r)>
00021608 ;    <LVAR  0x00c 4(r)>
00021608 ;    <LVAR  0x008 4(r)>
00021608 ;    <LVAR -0x006 @ 4(r)>
00021608 ; --------------------------------------------------------------------------------------
00021608					exp_FILL_MEMORY.MEM():
00021608 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
0002160c bf d5                    |        |		CMPA.L	(A5),A7
0002160e 62 06                    |b       |		BHI	0x21616
00021610 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021614 4e 76                    |Nv      |		TRAPV
00021616 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002161a 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
0002161e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021622 47 f8 00 00              |G       |		LEA.L	0x0,A3
00021626 49 f9 00 01 04 66        |I    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A4
0002162c 72 10                    |r       |		MOVEQ.L	#0x10,D1
0002162e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021630 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021636 4a 1f                    |J       |		TST.B	(A7)+
00021638 67 12                    |g       |		BEQ	0x2164c
0002163a 9e c1                    |        |		SUBA.W	D1,A7
0002163c 20 4f                    | O      |		MOVEA.L	A7,A0
0002163e 43 fa ff a8              |C       |		LEA.L	0x215e8,A1
00021642 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021644 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021646 51 c8 ff fc              |Q       |		DBF	D0,0x21644
0002164a 60 10                    |`       |		BRA	0x2165c
0002164c 9e c1                    |        |		SUBA.W	D1,A7
0002164e 20 4f                    | O      |		MOVEA.L	A7,A0
00021650 43 fa ff a6              |C       |		LEA.L	0x215f8,A1
00021654 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021656 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021658 51 c8 ff fc              |Q       |		DBF	D0,0x21656
0002165c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002165e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021662 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021666 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002166a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021670 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021672 48 52                    |HR      |		PEA.L	(A2)
00021674 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002167a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002167e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021682 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021686 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021688 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002168c 48 53                    |HS      |		PEA.L	(A3)
0002168e 48 78 00 07              |Hx      |		PEA.L	0x7
00021692 4e 94                    |N       |		JSR	(A4)
00021694 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021698 2e ae 00 14              |.       |		MOVE.L	(A6+0x14),(A7)
0002169c 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000216a0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216a6 48 53                    |HS      |		PEA.L	(A3)
000216a8 48 78 00 07              |Hx      |		PEA.L	0x7
000216ac 4e 94                    |N       |		JSR	(A4)
000216ae de fc 00 16              |        |		ADDA.W	#0x16,A7
000216b2 1e ae 00 18              |        |		MOVE.B	(A6+0x18),(A7)
000216b6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216bc 48 53                    |HS      |		PEA.L	(A3)
000216be 48 53                    |HS      |		PEA.L	(A3)
000216c0 4e 94                    |N       |		JSR	(A4)
000216c2 de c1                    |        |		ADDA.W	D1,A7
000216c4 1e ae 00 19              |        |		MOVE.B	(A6+0x19),(A7)
000216c8 1f 6e 00 1a 00 01        | n      |		MOVE.B	(A6+0x1a),(A7+0x1)
000216ce 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216d4 48 53                    |HS      |		PEA.L	(A3)
000216d6 48 78 00 01              |Hx      |		PEA.L	0x1
000216da 4e 94                    |N       |		JSR	(A4)
000216dc de c1                    |        |		ADDA.W	D1,A7
000216de 42 17                    |B       |		CLR.B	(A7)
000216e0 1f 2e 00 1c              | .      |		MOVE.B	(A6+0x1c),-(A7)
000216e4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000216e6 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000216ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216ee 48 52                    |HR      |		PEA.L	(A2)
000216f0 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000216f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216f8 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000216fc 4e 5e                    |N^      |		UNLK	A6
000216fe 4e 75                    |Nu      |		RTS
00021700 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.MEM'
00021712 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.M32'
00021724 ; --------------------------------------------------------------------------------------
00021724 ; OMSI PASCAL Function
00021724 ;    <LVAR  0x008 1(r)>
00021724 ;    <LVAR -0x006 @ 4(r)>
00021724 ; --------------------------------------------------------------------------------------
00021724 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00021728 bf d5                    |        |		CMPA.L	(A5),A7
0002172a 62 06                    |b       |		BHI	0x21732
0002172c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021730 4e 76                    |Nv      |		TRAPV
00021732 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021736 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002173a 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002173e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021740 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021746 4a 1f                    |J       |		TST.B	(A7)+
00021748 67 0e                    |g       |		BEQ	0x21758
0002174a 41 fa ff c6              |A       |		LEA.L	0x21712,A0
0002174e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021750 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021752 51 c8 ff fc              |Q       |		DBF	D0,0x21750
00021756 60 0c                    |`       |		BRA	0x21764
00021758 41 fa ff ca              |A       |		LEA.L	0x21724,A0
0002175c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002175e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021760 51 c8 ff fc              |Q       |		DBF	D0,0x2175e
00021764 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021766 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002176a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002176e 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021772 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021778 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002177a 48 51                    |HQ      |		PEA.L	(A1)
0002177c 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021782 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021786 42 27                    |B'      |		CLR.B	-(A7)
00021788 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002178c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002178e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021794 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021796 48 51                    |HQ      |		PEA.L	(A1)
00021798 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002179e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217a0 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000217a4 4e 5e                    |N^      |		UNLK	A6
000217a6 4e 75                    |Nu      |		RTS
000217a8 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
000217c0 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
000217d8 ; --------------------------------------------------------------------------------------
000217d8 ; OMSI PASCAL Function
000217d8 ;    <LVAR  0x008 1(r)>
000217d8 ;    <LVAR -0x006 @ 4(r)>
000217d8 ; --------------------------------------------------------------------------------------
000217d8 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000217dc bf d5                    |        |		CMPA.L	(A5),A7
000217de 62 06                    |b       |		BHI	0x217e6
000217e0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217e4 4e 76                    |Nv      |		TRAPV
000217e6 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000217ea 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000217ee 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000217f2 72 18                    |r       |		MOVEQ.L	#0x18,D1
000217f4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000217f6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000217fc 4a 1f                    |J       |		TST.B	(A7)+
000217fe 67 12                    |g       |		BEQ	0x21812
00021800 9e c1                    |        |		SUBA.W	D1,A7
00021802 20 4f                    | O      |		MOVEA.L	A7,A0
00021804 43 fa ff a2              |C       |		LEA.L	0x217a8,A1
00021808 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002180a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002180c 51 c8 ff fc              |Q       |		DBF	D0,0x2180a
00021810 60 10                    |`       |		BRA	0x21822
00021812 9e c1                    |        |		SUBA.W	D1,A7
00021814 20 4f                    | O      |		MOVEA.L	A7,A0
00021816 43 fa ff a8              |C       |		LEA.L	0x217c0,A1
0002181a 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002181c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002181e 51 c8 ff fc              |Q       |		DBF	D0,0x2181c
00021822 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021824 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021828 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002182c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021830 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021836 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021838 48 52                    |HR      |		PEA.L	(A2)
0002183a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021840 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021844 42 27                    |B'      |		CLR.B	-(A7)
00021846 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002184a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002184c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021852 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021854 48 52                    |HR      |		PEA.L	(A2)
00021856 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002185c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002185e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021862 4e 5e                    |N^      |		UNLK	A6
00021864 4e 75                    |Nu      |		RTS
00021866 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
00021874 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
00021882 ; --------------------------------------------------------------------------------------
00021882 ; OMSI PASCAL Function
00021882 ;    <LVAR  0x008 1(r)>
00021882 ;    <LVAR -0x006 @ 4(r)>
00021882 ; --------------------------------------------------------------------------------------
00021882					exp_CLEAR_HITS.MEM():
00021882 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021886 bf d5                    |        |		CMPA.L	(A5),A7
00021888 62 06                    |b       |		BHI	0x21890
0002188a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002188e 4e 76                    |Nv      |		TRAPV
00021890 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021894 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00021898 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002189c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002189e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000218a4 4a 1f                    |J       |		TST.B	(A7)+
000218a6 67 0e                    |g       |		BEQ	0x218b6
000218a8 41 fa ff ca              |A       |		LEA.L	0x21874,A0
000218ac 70 06                    |p       |		MOVEQ.L	#0x06,D0
000218ae 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218b0 51 c8 ff fc              |Q       |		DBF	D0,0x218ae
000218b4 60 0c                    |`       |		BRA	0x218c2
000218b6 41 fa ff ca              |A       |		LEA.L	exp_CLEAR_HITS.MEM(),A0
000218ba 70 06                    |p       |		MOVEQ.L	#0x06,D0
000218bc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218be 51 c8 ff fc              |Q       |		DBF	D0,0x218bc
000218c2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218c4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218c8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000218cc 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000218d0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218d8 48 51                    |HQ      |		PEA.L	(A1)
000218da 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000218e0 de fc 00 16              |        |		ADDA.W	#0x16,A7
000218e4 42 27                    |B'      |		CLR.B	-(A7)
000218e6 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000218ea 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000218ec 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000218f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218f4 48 51                    |HQ      |		PEA.L	(A1)
000218f6 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000218fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218fe 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021902 4e 5e                    |N^      |		UNLK	A6
00021904 4e 75                    |Nu      |		RTS
00021906					exp_READ_LAST_PC.IOC(&Sr_2):
00021906 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002190c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002190e 10 52 45 41 44 5f 4c 41  | READ_LA|		.TXT	16,'READ_LAST_PC.IOC'
0002191f 00                       |        |		.CONST	0x0
00021920 04                       |        |		.CONST	0x4			; DIPROC address
00021921 01                       |        |		.CONST	0x1			; Output Parameters
00021922 00                       |        |		.CONST	0x0			; Input Parameters
00021923 01                       |        |		.CONST	0x1			; Out arg [2]
00021924					exp_RESET.IOC():
00021924 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002192a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002192c 09 52 45 53 45 54 2e 49  | RESET.I|		.TXT	9,'RESET.IOC'
00021936 00                       |        |		.CONST	0x0
00021937 04                       |        |		.CONST	0x4			; DIPROC address
00021938 00                       |        |		.CONST	0x0			; Output Parameters
00021939 00                       |        |		.CONST	0x0			; Input Parameters
0002193a					exp_RUN_CHECK.IOC():
0002193a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021940 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021942 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
00021950 00                       |        |		.CONST	0x0
00021951 04                       |        |		.CONST	0x4			; DIPROC address
00021952 00                       |        |		.CONST	0x0			; Output Parameters
00021953 00                       |        |		.CONST	0x0			; Input Parameters
00021954					exp_PREP_RUN.IOC(Sw_2):
00021954 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002195a 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002195c 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
00021969 00                       |        |		.CONST	0x0
0002196a 04                       |        |		.CONST	0x4			; DIPROC address
0002196b 00                       |        |		.CONST	0x0			; Output Parameters
0002196c 01                       |        |		.CONST	0x1			; Input Parameters
0002196d 01                       |        |		.CONST	0x1			; In arg [2]
0002196e 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002197c ; --------------------------------------------------------------------------------------
0002197c ; OMSI PASCAL Function
0002197c ;    <LVAR  0x008 1(r)>
0002197c ; --------------------------------------------------------------------------------------
0002197c					PROG_FAIL:
0002197c 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00021980 bf d5                    |        |		CMPA.L	(A5),A7
00021982 62 06                    |b       |		BHI	0x2198a
00021984 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021988 4e 76                    |Nv      |		TRAPV
0002198a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002198e 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021992 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00021996 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021998 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002199a 51 c8 ff fc              |Q       |		DBF	D0,0x21998
0002199e 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000219a2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000219a4 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
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 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219b8 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000219bc 48 80                    |H       |		EXTB.W	D0
000219be 48 c0                    |H       |		EXTW.L	D0
000219c0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000219c2 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000219c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219ca 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000219d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219d2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000219d8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000219dc 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000219e0 4e 5e                    |N^      |		UNLK	A6
000219e2 4e 75                    |Nu      |		RTS
000219e4 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000219f2 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00021a00 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00021a0e 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00021a20 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00021a38 ; --------------------------------------------------------------------------------------
00021a38 ; OMSI PASCAL Function
00021a38 ;    <LVAR  0x00e 1(r)>
00021a38 ;    <LVAR  0x00a 4(r)>
00021a38 ;    <LVAR  0x008 1(r)>
00021a38 ; --------------------------------------------------------------------------------------
00021a38					EXP_FAIL:
00021a38 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00021a3c bf d5                    |        |		CMPA.L	(A5),A7
00021a3e 62 06                    |b       |		BHI	0x21a46
00021a40 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a44 4e 76                    |Nv      |		TRAPV
00021a46 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021a4a 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021a4e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021a54 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021a5a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a5c 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00021a5e 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00021a60 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021a62 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00021a64 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021a6a 41 fa ff b4              |A       |		LEA.L	0x21a20,A0
00021a6e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021a70 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a72 51 c8 ff fc              |Q       |		DBF	D0,0x21a70
00021a76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a78 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a7c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a7e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a80 4e 93                    |N       |		JSR	(A3)
00021a82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a84 4e 94                    |N       |		JSR	(A4)
00021a86 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a88 20 4f                    | O      |		MOVEA.L	A7,A0
00021a8a 43 fa ff 58              |C  X    |		LEA.L	0x219e4,A1
00021a8e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021a90 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a92 51 c8 ff fc              |Q       |		DBF	D0,0x21a90
00021a96 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a98 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021a9c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a9e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021aa0 4e 93                    |N       |		JSR	(A3)
00021aa2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021aa4 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00021aa8 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021aae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ab0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021ab6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ab8 4e 94                    |N       |		JSR	(A4)
00021aba de c4                    |        |		ADDA.W	D4,A7
00021abc 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021ac0 b0 c1                    |        |		CMPA.W	D1,A0
00021ac2 67 48                    |gH      |		BEQ	0x21b0c
00021ac4 9e c5                    |        |		SUBA.W	D5,A7
00021ac6 22 4f                    |"O      |		MOVEA.L	A7,A1
00021ac8 45 fa ff 28              |E  (    |		LEA.L	0x219f2,A2
00021acc 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021ace 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021ad0 51 c8 ff fc              |Q       |		DBF	D0,0x21ace
00021ad4 9e c3                    |        |		SUBA.W	D3,A7
00021ad6 22 4f                    |"O      |		MOVEA.L	A7,A1
00021ad8 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021adc 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021ade 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021ae0 51 c8 ff fc              |Q       |		DBF	D0,0x21ade
00021ae4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021ae6 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021aea 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021aec 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021aee 4e 93                    |N       |		JSR	(A3)
00021af0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021af2 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021af6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021af8 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021afa 4e 93                    |N       |		JSR	(A3)
00021afc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021afe 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021b04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b06 4e 94                    |N       |		JSR	(A4)
00021b08 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021b0c 9e c5                    |        |		SUBA.W	D5,A7
00021b0e 20 4f                    | O      |		MOVEA.L	A7,A0
00021b10 43 fa fe ee              |C       |		LEA.L	0x21a00,A1
00021b14 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021b16 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b18 51 c8 ff fc              |Q       |		DBF	D0,0x21b16
00021b1c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b1e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021b22 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b24 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b26 4e 93                    |N       |		JSR	(A3)
00021b28 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b2a 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021b2e 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00021b34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b36 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021b3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b3e 4e 94                    |N       |		JSR	(A4)
00021b40 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021b42 20 4f                    | O      |		MOVEA.L	A7,A0
00021b44 43 fa fe da              |C       |		LEA.L	0x21a20,A1
00021b48 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021b4a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b4c 51 c8 ff fc              |Q       |		DBF	D0,0x21b4a
00021b50 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021b54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b56 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021b5a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b5c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021b60 4e 93                    |N       |		JSR	(A3)
00021b62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b64 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021b6a de c3                    |        |		ADDA.W	D3,A7
00021b6c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021b70 4e 5e                    |N^      |		UNLK	A6
00021b72 4e 75                    |Nu      |		RTS