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

⟦23b628331⟧ M200

    Length: 4096 (0x1000)
    Types: M200
    Notes: @(#)CONFIGURE,2.2,91/05/21,17:18:19, M200_PROGRAM
    Names: »CONFIGURE.M200«

Derivation

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

Disassembly

0x2029c


@ 2029c
        <LVAR -0x004 @ 1(r)>
    <POP 2029c-20316 Body>                                              
        <POP 2029c-202b2 Prologue>                           Σ0         ↓
        <POP 202b2-202ca Naked>                              Σ0         ↓ →0x20300
            <Const 0x202b2 0x20da8.4>                        Δ-4                {[##134568]}
            <Pointer.fp 0x202b8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[##134568]|[@@-4]}
            <Call 0x202bc 0x1057a>                                              {[##134568]|[@@-4]}
                Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
            <POP 202c2-202c4 StackAdj>                       Δ+8                {}
            <MI 202c4  TST.B   (A6-0x4)>                                        {}
            <MI 202c8  BNE     0x20300>                                         {}
        <POP 202ca-20300 Naked>                              Σ0         ↓
            <Blob 0x202ca [36] @>                            Δ-36               {[«36""»]}
            <Const 0x202dc 0xe.2>                            Δ-2                {[«36""»]|[#14]}
            <POP 202e0-202e2 StackAdj>                       Δ-4                {[«36""»]|[#14]|[-4-]}
            <Lit 0x202e2 35>                                                    {[«36""»]|[#14]|[$$Cannot read hardware configuration.]}
            <Call 0x202f6 0x103b8>                                              {[«36""»]|[#14]|[$$Cannot read hardware configuration.]}
                PopProgram(status : Byte; msg : String)
            <POP 202fc-20300 StackAdj>                       Δ+42               {}
        <POP 20300-2030e Naked>                              Σ0         ↓ ←0x202b2
            <Const 0x20300 0x20da6.4>                        Δ-4                {[##134566]}
            <Call 0x20306 0x105a4>                                              {[##134566]}
                Read_fc0c() : Word
            <POP 2030c-2030e StackAdj>                       Δ+4                {}
        <POP 2030e-20316 Epilogue>                           Σ0         

0x20316


@ 20316
        <LVAR -0x008 1(w) 2(r)>
        <LVAR -0x009 @>
        <LVAR -0x00a @>
        <LVAR -0x00b @ 1(r)>
    <POP 20316-20608 Body>                                              
        <POP 20316-2032c Prologue>                           Σ0         ↓
        <POP 2032c-20342 RegCacheLoad>                       Σ0         ↓
        <POP 20342-2036c Naked>                              Σ0         ↓ →0x20370
            <MI 20342  MOVE.B  0x20da7,D0>                                      {}
            <MI 20348  LSL.B   #0x4,D0>                                         {}
            <MI 2034a  LSR.B   #0x7,D0>                                         {}
            <MI 2034c  NEG.B   D0>                                              {}
            <MI 2034e  ADDQ.B  #0x1,D0>                                         {}
            <MI 20350  MOVE.B  D0,D7>                                           {}
            <MI 20352  ANDI.B  #0xef,(A6-0x8)>                                  {}
            <MI 20356  ANDI.B  #0xdf,(A6-0x8)>                                  {}
            <MI 2035a  ANDI.B  #0xbf,(A6-0x8)>                                  {}
            <MI 2035e  ANDI.B  #0x7f,(A6-0x8)>                                  {}
            <MI 20362  ANDI.B  #0xf7,(A6-0x8)>                                  {}
            <MI 20366  MOVE.B  0x20da9,D0>                                      {}
            <MI 20368  CMP.B   #0x01,D0>                                        {}
            <MI 2036a  BNE     0x20370>                                         {}
        <POP 2036c-20370 Naked>                              Σ0         ↓
            <MI 2036c  ORI.B   #0x08,(A6-0x8)>                                  {}
        <POP 20370-20388 Naked>                              Σ0         ↓ ←0x20342
            <MI 20370  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Call 0x20372 0x105d4>                                              {[2, '(A6-0x8)']}
                Update_fc0c(new : Byte)
            <POP 20378-2037a StackAdj>                       Δ+2                {}
            <Const 0x2037a 0xf.4>                            Δ-4                {[##15]}
            <Call 0x2037e 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 20384-20386 StackAdj>                       Δ+4                {}
            <MI 20386  MOVEQ.L #0x0c,D6>                                        {}
        <POP 20388-203cc Naked>                              Σ0         ↓ →0x2049e ←0x2059a
            <MI 20388  MOVE.B  D6,D0>                                           {}
            <MI 2038a  EXTB.W  D0>                                              {}
            <MI 2038c  SUB.W   #0x0c,D0>                                        {}
            <POP 0x2038e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 20390  LEA.L   0x20d9a,A0>                                      {}
            <MI 20396  MOVE.B  (A0+D0.W+#0x10),D5>                              {}
            <MI 2039a  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Const 0x2039c 0x4.2>                            Δ-2                {[2, 'D6']|[#4]}
            <Call 0x203a0 0x1048a>                                              {[2, 'D6']|[#4]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 203a2-203a4 StackAdj>                       Δ+2                {[2, 'D6']}
            <MI 203a4  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Const 0x203a6 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Call 0x203aa 0x1048a>                                              {[-2-]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 203ac-203ae StackAdj>                       Δ+2                {[-2-]}
            <MI 203ae  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Pointer.fp 0x203b0 <LVAR -0x00b @ 1(r)>>        Δ-4                {[-2-]|[@@-11]}
            <Pointer.fp 0x203b4 <LVAR -0x00a @>>             Δ-4                {[-2-]|[@@-11]|[@@-10]}
            <Pointer.fp 0x203b8 <LVAR -0x009 @>>             Δ-4                {[-2-]|[@@-11]|[@@-10]|[@@-9]}
            <Call 0x203bc 0x10484>                                              {[-2-]|[@@-11]|[@@-10]|[@@-9]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 203c2-203c6 StackAdj>                       Δ+14               {}
            <MI 203c6  TST.B   D5>                                              {}
            <MI 203c8  BNE     0x2049e>                                         {}
        <POP 203cc-203d8 Naked>                              Σ0         ↓ →0x20492
            <MI 203cc  MOVE.B  (A6-0xb),D0>                                     {}
            <MI 203d0  CMPI.B  #0x05,D0>                                        {}
            <MI 203d4  BNE     0x20492>                                         {}
        <POP 203d8-203dc Naked>                              Σ0         ↓ →0x20432
            <MI 203d8  TST.B   0x20da9>                                         {}
            <MI 203da  BNE     0x20432>                                         {}
        <POP 203dc-203e2 Naked>                              Σ0         ↓ →0x203e8
            <MI 203dc  CMPI.B  #0x0d,D6>                                        {}
            <MI 203e0  BEQ     0x203e8>                                         {}
        <POP 203e2-203e8 Naked>                              Σ0         ↓ →0x20432
            <MI 203e2  CMPI.B  #0x0f,D6>                                        {}
            <MI 203e6  BNE     0x20432>                                         {}
        <POP 203e8-20432 Naked>                              Σ0         →0x20492 ←0x203dc
            <MI 203e8  MOVE.B  #0x01,0x20da2>                                   {}
            <Blob 0x203ee [64] @>                            Δ-64               {[«64""»]}
            <POP 20400-20402 StackAdj>                       Δ-8                {[«64""»]|[-8-]}
            <MI 20402  MOVE.B  D6,-(A7)>                     Δ-2                {[«64""»]|[-8-]|[2, 'D6']}
            <Call 0x20404 0x1049c>                                              {[«64""»]|[-8-]|[2, 'D6']}
                BoardName(address : B) : String
            <POP 2040a-2040c StackAdj>                       Δ-2                {[«64""»]|[-8-]|[2, 'D6']|[-2-]}
            <Lit 0x2040c 63>                                                    {[«64""»]|[-8-]|[$$ cannot be in the configuration when using 32 MB memory boards.]}
            <Call 0x2041e 0x102d0>                                              {[«64""»]|[-8-]|[$$ cannot be in the configuration when using 32 MB memory boards.]}
                StringCat2(a, b : String) : String
            <POP 20424-20426 StackAdj>                       Δ+8                {[«64""»]|[-4-]}
            <Call 0x20426 0x103e0>                                              {[«64""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2042c-20430 StackAdj>                       Δ+68               {}
            <MI 20430  BRA     0x20492>                                         {}
        <POP 20432-20436 Naked>                              Σ0         ↓ →0x20450 ←0x203d8 ←0x203e2
            <MI 20432  TST.B   0x20da9>                                         {}
            <MI 20434  BNE     0x20450>                                         {}
        <POP 20436-20450 Naked>                              Σ0         ↓
            <MI 20436  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Call 0x20438 0x209b6>                                              {[2, 'D6']}
            <MI 2043e  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Call 0x20440 0x20b10>                                              {[-2-]}
            <MI 20446  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Const 0x20448 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Call 0x2044c 0x1048a>                                              {[-2-]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 2044e-20450 StackAdj>                       Δ+4                {}
        <POP 20450-20492 Naked>                              Σ0         ↓ ←0x20432
            <Blob 0x20450 [62] @>                            Δ-62               {[«62""»]}
            <POP 20462-20464 StackAdj>                       Δ-8                {[«62""»]|[-8-]}
            <MI 20464  MOVE.B  D6,-(A7)>                     Δ-2                {[«62""»]|[-8-]|[2, 'D6']}
            <Call 0x20466 0x1049c>                                              {[«62""»]|[-8-]|[2, 'D6']}
                BoardName(address : B) : String
            <POP 2046c-2046e StackAdj>                       Δ-2                {[«62""»]|[-8-]|[2, 'D6']|[-2-]}
            <Lit 0x2046e 61>                                                    {[«62""»]|[-8-]|[$$ exists but is not in configuration.  Board will not be used.]}
            <Call 0x20480 0x102d0>                                              {[«62""»]|[-8-]|[$$ exists but is not in configuration.  Board will not be used.]}
                StringCat2(a, b : String) : String
            <POP 20486-20488 StackAdj>                       Δ+8                {[«62""»]|[-4-]}
            <Call 0x20488 0x103e0>                                              {[«62""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2048e-20492 StackAdj>                       Δ+66               {}
        <POP 20492-2049e Naked>                              Σ0         →0x20520 ←0x203cc ←0x203e8
            <MI 20492  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Const 0x20494 0x3.2>                            Δ-2                {[2, 'D6']|[#3]}
            <Call 0x20496 0x1048a>                                              {[2, 'D6']|[#3]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20498-2049a StackAdj>                       Δ+4                {}
            <MI 2049a  BRA     0x20520>                                         {}
        <POP 2049e-204b6 Naked>                              Σ0         →0x204be →0x204c4 →0x204ca →0x204d0 ←0x20388
            <MI 2049e  MOVE.B  D6,D0>                                           {}
            <MI 204a0  EXTB.W  D0>                                              {}
            <MI 204a2  MOVE.W  D0,D1>                                           {}
            <MI 204a4  SUB.W   #0x0c,D1>                                        {}
            <POP 0x204a6 LimitCheck 0x0 ≤ D1 ≤ 0x3>                             {}
            <MI 204ac  ADD.W   D1,D1>                                           {}
            <MI 204ae  SWITCH  D1.W>                                            {}
        <POP 204be-204c4 Naked>                              Σ0         →0x204d4 ←0x2049e
            <MI 204be  ORI.B   #0x10,(A6-0x8)>                                  {}
            <MI 204c2  BRA     0x204d4>                                         {}
        <POP 204c4-204ca Naked>                              Σ0         →0x204d4 ←0x2049e
            <MI 204c4  ORI.B   #0x20,(A6-0x8)>                                  {}
            <MI 204c8  BRA     0x204d4>                                         {}
        <POP 204ca-204d0 Naked>                              Σ0         →0x204d4 ←0x2049e
            <MI 204ca  ORI.B   #0x40,(A6-0x8)>                                  {}
            <MI 204ce  BRA     0x204d4>                                         {}
        <POP 204d0-204d4 Naked>                              Σ0         ↓ ←0x2049e
            <MI 204d0  ORI.B   #0x80,(A6-0x8)>                                  {}
        <POP 204d4-204de Naked>                              Σ0         ↓ →0x20520 ←0x204be ←0x204c4 ←0x204ca
            <MI 204d4  MOVE.B  (A6-0xb),D1>                                     {}
            <MI 204d8  CMPI.B  #0x05,D1>                                        {}
            <MI 204dc  BEQ     0x20520>                                         {}
        <POP 204de-20520 Naked>                              Σ0         ↓
            <MI 204de  MOVE.B  #0x01,0x20da2>                                   {}
            <Blob 0x204e4 [42] @>                            Δ-42               {[«42""»]}
            <POP 204f0-204f2 StackAdj>                       Δ-8                {[«42""»]|[-8-]}
            <MI 204f2  MOVE.B  D0,-(A7)>                     Δ-2                {[«42""»]|[-8-]|[2, 'D0']}
            <Call 0x204f4 0x1049c>                                              {[«42""»]|[-8-]|[2, 'D0']}
                BoardName(address : B) : String
            <POP 204fa-204fc StackAdj>                       Δ-2                {[«42""»]|[-8-]|[2, 'D0']|[-2-]}
            <Lit 0x204fc 42>                                                    {[«42""»]|[-8-]|[$$ is in configuration but does not respond.]}
            <Call 0x2050e 0x102d0>                                              {[«42""»]|[-8-]|[$$ is in configuration but does not respond.]}
                StringCat2(a, b : String) : String
            <POP 20514-20516 StackAdj>                       Δ+8                {[«42""»]|[-4-]}
            <Call 0x20516 0x103e0>                                              {[«42""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2051c-20520 StackAdj>                       Δ+46               {}
        <POP 20520-20536 Naked>                              Σ0         →0x2053e →0x20556 →0x2056e →0x20586 ←0x20492 ←0x204d4
            <MI 20520  MOVE.B  D6,D0>                                           {}
            <MI 20522  EXTB.W  D0>                                              {}
            <MI 20524  SUB.W   #0x0c,D0>                                        {}
            <POP 0x20526 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2052c  ADD.W   D0,D0>                                           {}
            <MI 2052e  SWITCH  D0.W>                                            {}
        <POP 2053e-20544 Naked>                              Σ0         ↓ →0x20552 ←0x20520
            <MI 2053e  MOVEQ.L #0x00,D0>                                        {}
            <MI 20540  TST.B   D7>                                              {}
            <MI 20542  BNE     0x20552>                                         {}
        <POP 20544-20552 Naked>                              Σ0         ↓ →0x20554
            <MI 20544  MOVE.B  0x20da6,D1>                                      {}
            <MI 2054a  LSL.B   #0x3,D1>                                         {}
            <MI 2054c  LSR.B   #0x7,D1>                                         {}
            <MI 2054e  CMP.B   D1,D5>                                           {}
            <MI 20550  BEQ     0x20554>                                         {}
        <POP 20552-20554 Naked>                              Σ0         ↓ ←0x2053e
            <MI 20552  ADDQ.B  #0x1,D0>                                         {}
        <POP 20554-20556 Naked>                              Σ0         →0x2059a ←0x20544
            <MI 20554  BRA     0x2059a>                                         {}
        <POP 20556-2055c Naked>                              Σ0         ↓ →0x2056a ←0x20520
            <MI 20556  MOVEQ.L #0x00,D0>                                        {}
            <MI 20558  TST.B   D7>                                              {}
            <MI 2055a  BNE     0x2056a>                                         {}
        <POP 2055c-2056a Naked>                              Σ0         ↓ →0x2056c
            <MI 2055c  MOVE.B  0x20da6,D1>                                      {}
            <MI 20562  LSL.B   #0x2,D1>                                         {}
            <MI 20564  LSR.B   #0x7,D1>                                         {}
            <MI 20566  CMP.B   D1,D5>                                           {}
            <MI 20568  BEQ     0x2056c>                                         {}
        <POP 2056a-2056c Naked>                              Σ0         ↓ ←0x20556
            <MI 2056a  ADDQ.B  #0x1,D0>                                         {}
        <POP 2056c-2056e Naked>                              Σ0         →0x2059a ←0x2055c
            <MI 2056c  BRA     0x2059a>                                         {}
        <POP 2056e-20574 Naked>                              Σ0         ↓ →0x20582 ←0x20520
            <MI 2056e  MOVEQ.L #0x00,D0>                                        {}
            <MI 20570  TST.B   D7>                                              {}
            <MI 20572  BNE     0x20582>                                         {}
        <POP 20574-20582 Naked>                              Σ0         ↓ →0x20584
            <MI 20574  MOVE.B  0x20da6,D1>                                      {}
            <MI 2057a  LSL.B   #0x1,D1>                                         {}
            <MI 2057c  LSR.B   #0x7,D1>                                         {}
            <MI 2057e  CMP.B   D1,D5>                                           {}
            <MI 20580  BEQ     0x20584>                                         {}
        <POP 20582-20584 Naked>                              Σ0         ↓ ←0x2056e
            <MI 20582  ADDQ.B  #0x1,D0>                                         {}
        <POP 20584-20586 Naked>                              Σ0         →0x2059a ←0x20574
            <MI 20584  BRA     0x2059a>                                         {}
        <POP 20586-2058c Naked>                              Σ0         ↓ →0x20598 ←0x20520
            <MI 20586  MOVEQ.L #0x00,D0>                                        {}
            <MI 20588  TST.B   D7>                                              {}
            <MI 2058a  BNE     0x20598>                                         {}
        <POP 2058c-20598 Naked>                              Σ0         ↓ →0x2059a
            <MI 2058c  MOVE.B  0x20da6,D1>                                      {}
            <MI 20592  LSR.B   #0x7,D1>                                         {}
            <MI 20594  CMP.B   D1,D5>                                           {}
            <MI 20596  BEQ     0x2059a>                                         {}
        <POP 20598-2059a Naked>                              Σ0         ↓ ←0x20586
            <MI 20598  ADDQ.B  #0x1,D0>                                         {}
        <POP 2059a-205a6 Naked>                              Σ0         ↓ →0x20388 ←0x20554 ←0x2056c ←0x20584 ←0x2058c
            <MI 2059a  MOVE.B  D0,D7>                                           {}
            <MI 2059c  ADDQ.B  #0x1,D6>                                         {}
            <MI 2059e  CMPI.B  #0x0f,D6>                                        {}
            <MI 205a2  BLE     0x20388>                                         {}
        <POP 205a6-205c0 Naked>                              Σ0         ↓ →0x205ee
            <MI 205a6  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <Call 0x205a8 0x105d4>                                              {[2, '(A6-0x8)']}
                Update_fc0c(new : Byte)
            <POP 205ae-205b0 StackAdj>                       Δ+2                {}
            <Const 0x205b0 0xf.4>                            Δ-4                {[##15]}
            <Call 0x205b4 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 205ba-205bc StackAdj>                       Δ+4                {}
            <MI 205bc  TST.B   0x20da9>                                         {}
            <MI 205be  BNE     0x205ee>                                         {}
        <POP 205c0-205c8 Naked>                              Σ0         ↓ →0x205ee
            <MI 205c0  TST.B   0x20daa>                                         {}
            <MI 205c6  BEQ     0x205ee>                                         {}
        <POP 205c8-205d0 Naked>                              Σ0         ↓ →0x205ee
            <MI 205c8  TST.B   0x20dac>                                         {}
            <MI 205ce  BEQ     0x205ee>                                         {}
        <POP 205d0-205ee Naked>                              Σ0         ↓
            <Const 0x205d0 0xc.2>                            Δ-2                {[#12]}
            <Call 0x205d2 0x2091e>                                              {[#12]}
            <POP 205d8-205d9 StackAdj>                       Δ+2                {}
            <Const 0x205d9 0xe.2>                            Δ-2                {[#14]}
            <Call 0x205dc 0x2091e>                                              {[#14]}
            <POP 205e2-205e3 StackAdj>                       Δ+2                {}
            <Const 0x205e3 0xe.2>                            Δ-2                {[#14]}
            <Call 0x205e6 0x20a70>                                              {[#14]}
            <POP 205ec-205ee StackAdj>                       Δ+2                {}
        <POP 205ee-205f2 Naked>                              Σ0         ↓ →0x205fa ←0x205a6 ←0x205c0 ←0x205c8
            <MI 205ee  TST.B   D7>                                              {}
            <MI 205f0  BNE     0x205fa>                                         {}
        <POP 205f2-205fa Naked>                              Σ0         ↓ →0x20600
            <MI 205f2  TST.B   0x20da3>                                         {}
            <MI 205f8  BEQ     0x20600>                                         {}
        <POP 205fa-20600 Naked>                              Σ0         ↓ ←0x205ee
            <Call 0x205fa 0x105c8>                                              {}
                And_fc0c_7f(void)
        <POP 20600-20608 Epilogue>                           Σ0         ←0x205f2

0x20608


@ 20608
    <POP 20608-2065a Body>                                              
        <POP 20608-2061e Prologue>                           Σ0         ↓
        <POP 2061e-20620 RegCacheLoad>                       Σ0         ↓
        <POP 20620-2062c Naked>                              Σ0         ↓ →0x20632
            <MI 20620  MOVE.B  0x20da7,D0>                                      {}
            <MI 20626  LSL.B   #0x4,D0>                                         {}
            <MI 20628  LSR.B   #0x7,D0>                                         {}
            <MI 2062a  BNE     0x20632>                                         {}
        <POP 2062c-20632 Naked>                              Σ0         ↓
            <Call 0x2062c 0x105bc>                                              {}
                R1000_Reset_H(void)
        <POP 20632-20652 Naked>                              Σ0         ↓ ←0x20620
            <Const 0x20632 0x5.2>                            Δ-2                {[#5]}
            <Const 0x20634 0x4.2>                            Δ-2                {[#5]|[#4]}
            <Call 0x20638 0x1048a>                                              {[#5]|[#4]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 2063e-20640 StackAdj>                       Δ+2                {[#5]}
            <POP 20640-20641 StackAdj>                       Δ+2                {}
            <Const 0x20641 0x5.2>                            Δ-2                {[#5]}
            <Const 0x20642 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x20646 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 2064c-2064e StackAdj>                       Δ+4                {}
            <Call 0x2064e 0x20316>                                              {}
        <POP 20652-2065a Epilogue>                           Σ0         

0x2065a


@ 2065a
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @>
        <LVAR -0x005 @>
        <LVAR -0x006 @ 1(r)>
    <POP 2065a-20736 Body>                                              
        <POP 2065a-20670 Prologue>                           Σ0         ↓
        <POP 20670-20678 RegCacheLoad>                       Σ0         ↓
        <POP 20678-206b6 Naked>                              Σ0         ↓ →0x2072e
            <MI 20678  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Const 0x2067a 0x4.2>                            Δ-2                {[2, '(A6+0x8)']|[#4]}
            <Call 0x2067e 0x1048a>                                              {[2, '(A6+0x8)']|[#4]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20684-20686 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 20686  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <Const 0x20688 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Call 0x2068c 0x1048a>                                              {[-2-]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20692-20694 StackAdj>                       Δ+2                {[-2-]}
            <MI 20694  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <Pointer.fp 0x20696 <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[@@-6]}
            <Pointer.fp 0x2069a <LVAR -0x005 @>>             Δ-4                {[-2-]|[@@-6]|[@@-5]}
            <Pointer.fp 0x2069e <LVAR -0x004 @>>             Δ-4                {[-2-]|[@@-6]|[@@-5]|[@@-4]}
            <Call 0x206a2 0x10484>                                              {[-2-]|[@@-6]|[@@-5]|[@@-4]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 206a8-206ac StackAdj>                       Δ+14               {}
            <MI 206ac  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 206b0  CMPI.B  #0x05,D0>                                        {}
            <MI 206b4  BEQ     0x2072e>                                         {}
        <POP 206b6-206d6 Naked>                              Σ0         ↓ →0x20700
            <MI 206b6  MOVE.B  #0x01,0x20da2>                                   {}
            <POP 206bc-206be StackAdj>                       Δ-4                {[-4-]}
            <MI 206be  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-4-]|[2, '(A6+0x8)']}
            <Call 0x206c0 0x1049c>                                              {[-4-]|[2, '(A6+0x8)']}
                BoardName(address : B) : String
            <POP 206c6-206c8 StackAdj>                       Δ+2                {[-4-]}
            <Call 0x206c8 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 206ce-206d0 StackAdj>                       Δ+4                {}
            <MI 206d0  CMPI.B  #0x09,D0>                                        {}
            <MI 206d4  BNE     0x20700>                                         {}
        <POP 206d6-20700 Naked>                              Σ0         →0x2072e
            <Blob 0x206d6 [58] @>                            Δ-58               {[«58""»]}
            <POP 206e2-206e4 StackAdj>                       Δ-4                {[«58""»]|[-4-]}
            <Lit 0x206e4 58>                                                    {[«58""»]|[$$ board did not respond to RESET command - it may not exist]}
            <Call 0x206f4 0x103e0>                                              {[«58""»]|[$$ board did not respond to RESET command - it may not exist]}
                WriteConsoleStringCrLf(str : String)
            <POP 206fa-206fe StackAdj>                       Δ+62               {}
            <MI 206fe  BRA     0x2072e>                                         {}
        <POP 20700-2072e Naked>                              Σ0         ↓ ←0x206b6
            <Blob 0x20700 [54] @>                            Δ-54               {[«54""»]}
            <POP 20712-20714 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x20714 53>                                                    {[«54""»]|[$$ board returned a illegal response to a RESET command]}
            <Call 0x20726 0x103e0>                                              {[«54""»]|[$$ board returned a illegal response to a RESET command]}
                WriteConsoleStringCrLf(str : String)
            <POP 2072c-2072e StackAdj>                       Δ+58               {}
        <POP 2072e-20736 Epilogue>                           Σ0         ←0x20678 ←0x206d6

0x20736


@ 20736
    <POP 20736-207a0 Body>                                              
        <POP 20736-2074c Prologue>                           Σ0         ↓
        <POP 2074c-20750 RegCacheLoad>                       Σ0         ↓
        <POP 20750-20758 Naked>                              Σ0         ↓ →0x20798
            <MI 20750  TST.B   0x20da2>                                         {}
            <MI 20756  BNE     0x20798>                                         {}
        <POP 20758-2077a Naked>                              Σ0         ↓
            <Const 0x20758 0x4.2>                            Δ-2                {[#4]}
            <Call 0x2075c 0x2065a>                                              {[#4]}
            <POP 2075e-2075f StackAdj>                       Δ+2                {}
            <Const 0x2075f 0x2.2>                            Δ-2                {[#2]}
            <Call 0x20762 0x2065a>                                              {[#2]}
            <POP 20764-20765 StackAdj>                       Δ+2                {}
            <Const 0x20765 0x3.2>                            Δ-2                {[#3]}
            <Call 0x20768 0x2065a>                                              {[#3]}
            <POP 2076a-2076b StackAdj>                       Δ+2                {}
            <Const 0x2076b 0x7.2>                            Δ-2                {[#7]}
            <Call 0x2076e 0x2065a>                                              {[#7]}
            <POP 20770-20771 StackAdj>                       Δ+2                {}
            <Const 0x20771 0x6.2>                            Δ-2                {[#6]}
            <Call 0x20774 0x2065a>                                              {[#6]}
            <POP 20776-20778 StackAdj>                       Δ+2                {}
            <MI 20778  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2077a-2078a Naked>                              Σ0         ↓ →0x20790 ←0x20790
            <POP 2077a-2077c StackAdj>                       Δ-2                {[-2-]}
            <MI 2077c  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2077e 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20784-20786 StackAdj>                       Δ+2                {[-2-]}
            <MI 20786  TST.B   (A7)+>                        Δ+2                {}
            <MI 20788  BEQ     0x20790>                                         {}
        <POP 2078a-20790 Naked>                              Σ0         ↓
            <MI 2078a  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2078c 0x2065a>                                              {[2, 'D7']}
            <POP 2078e-20790 StackAdj>                       Δ+2                {}
        <POP 20790-20798 Naked>                              Σ0         ↓ →0x2077a ←0x2077a
            <MI 20790  ADDQ.B  #0x1,D7>                                         {}
            <MI 20792  CMPI.B  #0x0f,D7>                                        {}
            <MI 20796  BLE     0x2077a>                                         {}
        <POP 20798-207a0 Epilogue>                           Σ0         ←0x20750

0x207a0


@ 207a0
        <LVAR -0x004 @>
    <POP 207a0-20814 Body>                                              
        <POP 207a0-207b6 Prologue>                           Σ0         ↓
        <POP 207b6-207b8 RegCacheLoad>                       Σ0         ↓
        <POP 207b8-2080c Naked>                              Σ0         ↓
            <Blob 0x207b8 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x207bc [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x207c0 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x207c4 [8] @>                             Δ-8                {[«2""»]|[«2""»]|[«2""»]|[«8""»]}
            <POP 207d4-207d6 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
            <Lit 0x207d6 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]}
            <POP 207e6-207e8 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[-4-]}
            <Lit 0x207e8 7>                                                     {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]}
            <POP 207f8-207fa StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[-2-]}
            <POP 207fa-207fb StackAdj>                       Δ+2                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]}
            <Const 0x207fb 0x2.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]}
            <Pointer.fp 0x207fe <LVAR -0x004 @>>             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]|[@@-4]}
            <Call 0x20802 0x103b0>                                              {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20808-2080c StackAdj>                       Δ+28               {}
        <POP 2080c-20814 Epilogue>                           Σ0         

0x20814


@ 20814
START
    <POP 20814--0001 Body>                                              
        <POP 20814-2081e Prologue>                           Σ0         
        <POP 2081e-20834 RegCacheLoad>                       Σ0         ↓
        <POP 20834-20872 Naked>                              Σ0 Δ-10    ↓ →0x20878
            <Call 0x20834 0x10398>                                              {}
                FSCALL_10398
            <Blob 0x2083a [10] @>                            Δ-10               {[«10""»]}
            <POP 2084a-2084c StackAdj>                       Δ-6                {[«10""»]|[-6-]}
            <Call 0x2084c 0x103c4>                                              {[«10""»]|[-6-]}
                GetArgv() : String
            <POP 20852-20854 StackAdj>                       Δ-4                {[«10""»]|[-10-]}
            <Lit 0x20854 9>                                                     {[«10""»]|[-6-]|[$$NO_NOVRAM]}
            <Call 0x20866 0x102c8>                                              {[«10""»]|[-6-]|[$$NO_NOVRAM]}
                StringEqual(a, b : String) : Byte
            <POP 2086c-2086e StackAdj>                       Δ+8                {[«10""»]|[-2-]}
            <MI 2086e  TST.B   (A7)+>                        Δ+2                {[«10""»]}
            <MI 20870  BEQ     0x20878>                                         {[«10""»]}
        <POP 20872-20878 Naked>                              Σ-10       →0x2088a
            <MI 20872  CLR.B   0x20da4>                                         {[-10-]}
            <MI 20874  CLR.B   0x20da3>                                         {[-10-]}
            <MI 20876  BRA     0x2088a>                                         {[-10-]}
        <POP 20878-2088a Naked>                              Σ-10       ↓ ←0x20834
            <MI 20878  MOVE.B  #0x01,0x20da4>                                   {[-10-]}
            <Call 0x2087a 0x10538>                                              {[-10-]}
                IPC_Init(void)
            <Const 0x20880 0x20da3.4>                        Δ-4                {[-10-]|[##134563]}
            <Call 0x20882 0x10526>                                              {[-10-]|[##134563]}
                IPC_GetBool() : Bool
            <POP 20888-2088a StackAdj>                       Δ+4                {[-10-]}
        <POP 2088a-2089a Naked>                              Σ-10 Δ+10  ↓ →0x208a2 ←0x20872
            <POP 2088a-2088c StackAdj>                       Δ+10               {}
            <MI 2088c  CLR.B   0x20da2>                                         {}
            <Call 0x2088e 0x2029c>                                              {}
            <Call 0x20892 0x20608>                                              {}
            <MI 20896  TST.B   0x20da4>                                         {}
            <MI 20898  BEQ     0x208a2>                                         {}
        <POP 2089a-2089e Naked>                              Σ0         ↓ →0x208a2
            <MI 2089a  TST.B   0x20da3>                                         {}
            <MI 2089c  BNE     0x208a2>                                         {}
        <POP 2089e-208a2 Naked>                              Σ0         ↓
            <Call 0x2089e 0x20736>                                              {}
        <POP 208a2-208a6 Naked>                              Σ0         ↓ →0x208da ←0x2088a ←0x2089a
            <MI 208a2  TST.B   0x20da2>                                         {}
            <MI 208a4  BEQ     0x208da>                                         {}
        <POP 208a6-208da Naked>                              Σ0         ↓
            <Blob 0x208a6 [26] @>                            Δ-26               {[«26""»]}
            <Const 0x208b8 0xe.2>                            Δ-2                {[«26""»]|[#14]}
            <POP 208bc-208be StackAdj>                       Δ-4                {[«26""»]|[#14]|[-4-]}
            <Lit 0x208be 25>                                                    {[«26""»]|[#14]|[$$the error above was fatal]}
            <Call 0x208d0 0x103b8>                                              {[«26""»]|[#14]|[$$the error above was fatal]}
                PopProgram(status : Byte; msg : String)
            <POP 208d6-208da StackAdj>                       Δ+32               {}
        <POP 208da-208de Naked>                              Σ0         ↓ →0x208e2 ←0x208a2
            <MI 208da  TST.B   0x20da4>                                         {}
            <MI 208dc  BEQ     0x208e2>                                         {}
        <POP 208de-208e2 Naked>                              Σ0         ↓
            <Call 0x208de 0x207a0>                                              {}
        <POP 208e2-208f0 Naked>                              Σ0         ↓ ←0x208da
            <MI 208e2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x208e4 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x208e8 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 208ee-208f0 StackAdj>                       Δ+6                {}
        <POP 208f0-208f6 Naked>                              Σ0         
            <Call 0x208f0 0x10284>                                              {}
                ?exit

0x2091e


@ 2091e
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2091e-209a2 Body>                                   Δ+20       
        <POP 2091e-20934 Prologue>                           Σ0         ↓
        <POP 20934-20938 RegCacheLoad>                       Σ0         ↓
        <POP 20938-20944 Naked>                              Σ0         ↓ →0x20952
            <POP 20938-2093a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2093a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20940  TST.B   (A7)+>                        Δ+2                {}
            <MI 20942  BEQ     0x20952>                                         {}
        <POP 20944-20952 Naked>                              Σ0 Δ-20    →0x2095e
            <Blob 0x20944 [20] @>                            Δ-20               {[«20""»]}
            <MI 20950  BRA     0x2095e>                                         {[«20""»]}
        <POP 20952-2095e Naked>                              Σ0 Δ-20    ↓ ←0x20938
            <Blob 0x20952 [20] @>                            Δ-20               {[«20""»]}
        <POP 2095e-2099a Naked>                              Σ-20 Δ+20  ↓ ←0x20944
            <POP 2095e-20960 StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x20960>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x20960 4>                       Δ-4        
                <Const 0x20964 0x1.2>                        Δ-2        
                <Const 0x20968 0x14.2>                       Δ-2        
                <Call 0x2096c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20972-20974 StackAdj>                   Δ+8        
            <Pointer.fp 0x20974 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x20976 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2097c-20980 StackAdj>                       Δ+28               {}
            <MI 20980  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20982  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 20986  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x20988 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2098e-20990 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20990 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x20992 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 20998-2099a StackAdj>                       Δ+4                {}
        <POP 2099a-209a2 Epilogue>                           Σ0         

0x209b6


@ 209b6
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 209b6-20a44 Body>                                   Δ+10       
        <POP 209b6-209cc Prologue>                           Σ0         ↓
        <POP 209cc-209d2 RegCacheLoad>                       Σ0         ↓
        <POP 209d2-209de Naked>                              Σ0         ↓ →0x209f0
            <POP 209d2-209d4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x209d4 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 209da  TST.B   (A7)+>                        Δ+2                {}
            <MI 209dc  BEQ     0x209f0>                                         {}
        <POP 209de-209f0 Naked>                              Σ0 Δ-10    →0x20a00
            <Blob 0x209de [10] @>                            Δ-10               {[«10""»]}
            <MI 209ee  BRA     0x20a00>                                         {[«10""»]}
        <POP 209f0-20a00 Naked>                              Σ0 Δ-10    ↓ ←0x209d2
            <Blob 0x209f0 [10] @>                            Δ-10               {[«10""»]}
        <POP 20a00-20a3c Naked>                              Σ-10 Δ+10  ↓ ←0x209de
            <POP 20a00-20a02 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x20a02>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x20a02 4>                       Δ-4        
                <Const 0x20a06 0x1.2>                        Δ-2        
                <Const 0x20a0a 0x9.2>                        Δ-2        
                <Call 0x20a0e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20a14-20a16 StackAdj>                   Δ+8        
            <Pointer.fp 0x20a16 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-10-]|[$$…]|[@@-6]}
            <Call 0x20a18 0x10460>                                              {[-10-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 20a1e-20a22 StackAdj>                       Δ+18               {}
            <MI 20a22  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20a24  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 20a28  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x20a2a 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 20a30-20a32 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20a32 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x20a34 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 20a3a-20a3c StackAdj>                       Δ+4                {}
        <POP 20a3c-20a44 Epilogue>                           Σ0         

0x20a70


@ 20a70
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 20a70-20af4 Body>                                   Δ+22       
        <POP 20a70-20a86 Prologue>                           Σ0         ↓
        <POP 20a86-20a8a RegCacheLoad>                       Σ0         ↓
        <POP 20a8a-20a96 Naked>                              Σ0         ↓ →0x20aa4
            <POP 20a8a-20a8c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20a8c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20a92  TST.B   (A7)+>                        Δ+2                {}
            <MI 20a94  BEQ     0x20aa4>                                         {}
        <POP 20a96-20aa4 Naked>                              Σ0 Δ-22    →0x20ab0
            <Blob 0x20a96 [22] @>                            Δ-22               {[«22""»]}
            <MI 20aa2  BRA     0x20ab0>                                         {[«22""»]}
        <POP 20aa4-20ab0 Naked>                              Σ0 Δ-22    ↓ ←0x20a8a
            <Blob 0x20aa4 [22] @>                            Δ-22               {[«22""»]}
        <POP 20ab0-20aec Naked>                              Σ-22 Δ+22  ↓ ←0x20a96
            <POP 20ab0-20ab2 StackAdj>                       Δ-4                {[-26-]}
            <Lit 0x20ab2>                                                       {[-22-]|[$$…]}
                <Pointer.sp 0x20ab2 4>                       Δ-4        
                <Const 0x20ab6 0x1.2>                        Δ-2        
                <Const 0x20aba 0x16.2>                       Δ-2        
                <Call 0x20abe 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20ac4-20ac6 StackAdj>                   Δ+8        
            <Pointer.fp 0x20ac6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-22-]|[$$…]|[@@-6]}
            <Call 0x20ac8 0x10460>                                              {[-22-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 20ace-20ad2 StackAdj>                       Δ+30               {}
            <MI 20ad2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20ad4  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 20ad8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x20ada 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 20ae0-20ae2 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20ae2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x20ae4 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 20aea-20aec StackAdj>                       Δ+4                {}
        <POP 20aec-20af4 Epilogue>                           Σ0         

0x20b10


@ 20b10
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 20b10-20b94 Body>                                   Δ+14       
        <POP 20b10-20b26 Prologue>                           Σ0         ↓
        <POP 20b26-20b2a RegCacheLoad>                       Σ0         ↓
        <POP 20b2a-20b36 Naked>                              Σ0         ↓ →0x20b44
            <POP 20b2a-20b2c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20b2c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20b32  TST.B   (A7)+>                        Δ+2                {}
            <MI 20b34  BEQ     0x20b44>                                         {}
        <POP 20b36-20b44 Naked>                              Σ0 Δ-14    →0x20b50
            <Blob 0x20b36 [14] @>                            Δ-14               {[«14""»]}
            <MI 20b42  BRA     0x20b50>                                         {[«14""»]}
        <POP 20b44-20b50 Naked>                              Σ0 Δ-14    ↓ ←0x20b2a
            <Blob 0x20b44 [14] @>                            Δ-14               {[«14""»]}
        <POP 20b50-20b8c Naked>                              Σ-14 Δ+14  ↓ ←0x20b36
            <POP 20b50-20b52 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x20b52>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x20b52 4>                       Δ-4        
                <Const 0x20b56 0x1.2>                        Δ-2        
                <Const 0x20b5a 0xe.2>                        Δ-2        
                <Call 0x20b5e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20b64-20b66 StackAdj>                   Δ+8        
            <Pointer.fp 0x20b66 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x20b68 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 20b6e-20b72 StackAdj>                       Δ+22               {}
            <MI 20b72  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20b74  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 20b78  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x20b7a 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 20b80-20b82 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20b82 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x20b84 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 20b8a-20b8c StackAdj>                       Δ+4                {}
        <POP 20b8c-20b94 Epilogue>                           Σ0         

0x20ba2


@ 20ba2
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20ba2-20c0a Body>                                              
        <POP 20ba2-20bb8 Prologue>                           Σ0         ↓
        <POP 20bb8-20c02 Naked>                              Σ0         ↓
            <Blob 0x20bb8 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x20bc4 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20bc8-20bca StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20bca 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20bdc-20bde StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20bde  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20be2  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20be4  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20be6  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20be8 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20bee-20bf0 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x20bf0 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20bf6-20bf8 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20bf8 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20bfe-20c02 StackAdj>                       Δ+20               {}
        <POP 20c02-20c0a Epilogue>                           Σ0         

0x20c5e


@ 20c5e
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 20c5e-20d9a Body>                                              
        <POP 20c5e-20c74 Prologue>                           Σ0         ↓
        <POP 20c74-20c8a RegCacheLoad>                       Σ0         ↓
        <POP 20c8a-20cea Naked>                              Σ0         ↓ →0x20d32
            <Call 0x20c8a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20c90 [18] @>                            Δ-18               {[«18""»]}
            <POP 20c9c-20c9e StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20c9e 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x20caa 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 20cac-20cad StackAdj>                       Δ+22       ↓       {}
            <Blob 0x20cad [14] @>                            Δ-14               {[«14""»]}
            <POP 20cbc-20cbe StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20cbe 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 20cc8-20cca StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 20cca  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x20cce 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 20cd4-20cd6 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x20cd6 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20cdc-20cde StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20cde 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20ce0-20ce2 StackAdj>                       Δ+18               {}
            <MI 20ce2  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20ce6  CMPA.W  #0x01,A0>                                        {}
            <MI 20ce8  BEQ     0x20d32>                                         {}
        <POP 20cea-20d32 Naked>                              Σ0         ↓
            <Blob 0x20cea [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20cfa [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20d0a-20d0c StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x20d0c 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20d16-20d18 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x20d18>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x20d18 12>                      Δ-4        
                <Const 0x20d1c 0x1.2>                        Δ-2        
                <Const 0x20d1e 0x1e.2>                       Δ-2        
                <Call 0x20d20 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20d22-20d24 StackAdj>                   Δ+8        
            <Call 0x20d24 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20d2a-20d2c StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x20d2c 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20d2e-20d32 StackAdj>                       Δ+48               {}
        <POP 20d32-20d92 Naked>                              Σ0         ↓ ←0x20c8a
            <Blob 0x20d32 [14] @>                            Δ-14               {[«14""»]}
            <POP 20d42-20d44 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20d44 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 20d4e-20d50 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 20d50  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x20d54 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 20d5a-20d5c StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x20d5c 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20d62-20d64 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20d64 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20d66-20d67 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x20d67 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x20d76 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 20d7a-20d7c StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x20d7c 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x20d8a 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 20d90-20d92 StackAdj>                       Δ+30               {}
        <POP 20d92-20d9a Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.42e4830ae012f380
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 08 14              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 0d de              |        |		.PTR	0x20dde
00020010					code.end:
00020010 00 02 0d 9a              |        |		.PTR	0x20d9a
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 0b a2              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 0c 5e              |   ^    |		.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 40 28 23 29 43 4f        |@(#)CO  |		.XXX[0x6]
00020110 4e 46 49 47 55 52 45 2c  |NFIGURE,|		.XXX[0x18]
00020118 32 2e 32 2c 39 31 2f 30  |2.2,91/0|
00020120 35 2f 32 31 2c 31 37 3a  |5/21,17:|
00020128 31 38 3a 31 39 5c        |18:19\  |		.XXX[0x6]
0002012e 43 61 6e 6e 6f 74 20 72  |Cannot r|		.TXT	'Cannot read hardware configuration. '
00020152 20 65 78 69 73 74 73 20  | exists |		.TXT	' exists but is not in configuration.  Board will not be used. '
00020190 20 69 73 20 69 6e 20 63  | is in c|		.TXT	' is in configuration but does not respond.'
000201ba 20 63 61 6e 6e 6f 74 20  | cannot |		.TXT	' cannot be in the configuration when using 32 MB memory boards. '
000201fa 20 62 6f 61 72 64 20 64  | board d|		.TXT	' board did not respond to RESET command - it may not exist'
00020234 20 62 6f 61 72 64 20 72  | board r|		.TXT	' board returned a illegal response to a RESET command '
0002026a 4e 4f                    |NO      |		.TXT	'NO'
0002026c 56 52                    |VR      |		.TXT	'VR'
0002026e 41 4d                    |AM      |		.TXT	'AM'
00020270 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT '
00020278 4e 4f 5f 4e 4f 56 52 41  |NO_NOVRA|		.TXT	'NO_NOVRAM '
00020282 74 68 65 20 65 72 72 6f  |the erro|		.TXT	'the error above was fatal '
0002029c ; --------------------------------------------------------------------------------------
0002029c ; OMSI PASCAL Function
0002029c ;    <LVAR -0x004 @ 1(r)>
0002029c ; --------------------------------------------------------------------------------------
0002029c 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
000202a0 bf d5                    |        |		CMPA.L	(A5),A7
000202a2 62 06                    |b       |		BHI	0x202aa
000202a4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000202a8 4e 76                    |Nv      |		TRAPV
000202aa de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000202ae 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000202b2 48 79 00 02 0d a8        |Hy      |		PEA.L	0x20da8
000202b8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000202bc 4e b9 00 01 05 7a        |N    z  |		JSR	Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
000202c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202c4 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000202c8 66 36                    |f6      |		BNE	0x20300
000202ca 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
000202ce 20 4f                    | O      |		MOVEA.L	A7,A0
000202d0 43 fa fe 5c              |C  \    |		LEA.L	0x2012e,A1
000202d4 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000202d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000202d8 51 c8 ff fc              |Q       |		DBF	D0,0x202d6
000202dc 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000202e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000202e2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000202e6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000202ea 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000202ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000202f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202f6 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000202fc de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00020300 48 79 00 02 0d a6        |Hy      |		PEA.L	0x20da6
00020306 4e b9 00 01 05 a4        |N       |		JSR	Read_fc0c() : Word
0002030c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002030e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00020312 4e 5e                    |N^      |		UNLK	A6
00020314 4e 75                    |Nu      |		RTS
00020316 ; --------------------------------------------------------------------------------------
00020316 ; OMSI PASCAL Function
00020316 ;    <LVAR -0x008 1(w) 2(r)>
00020316 ;    <LVAR -0x009 @>
00020316 ;    <LVAR -0x00a @>
00020316 ;    <LVAR -0x00b @ 1(r)>
00020316 ; --------------------------------------------------------------------------------------
00020316 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
0002031a bf d5                    |        |		CMPA.L	(A5),A7
0002031c 62 06                    |b       |		BHI	0x20324
0002031e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020322 4e 76                    |Nv      |		TRAPV
00020324 de fc 00 90              |        |		ADDA.W	#0x90,A7
00020328 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002032c 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00020330 47 f9 00 02 0d a9        |G       |		LEA.L	0x20da9,A3
00020336 49 f9 00 01 04 8a        |I       |		LEA.L	DiProcCmd(board : Byte; cmd : Byte),A4
0002033c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002033e 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00020340 78 03                    |x       |		MOVEQ.L	#0x03,D4
00020342 10 39 00 02 0d a7        | 9      |		MOVE.B	0x20da7,D0
00020348 e9 08                    |        |		LSL.B	#0x4,D0
0002034a ee 08                    |        |		LSR.B	#0x7,D0
0002034c 44 00                    |D       |		NEG.B	D0
0002034e 52 00                    |R       |		ADDQ.B	#0x1,D0
00020350 1e 00                    |        |		MOVE.B	D0,D7
00020352 02 12 00 ef              |        |		ANDI.B	#0xef,(A2)
00020356 02 12 00 df              |        |		ANDI.B	#0xdf,(A2)
0002035a 02 12 00 bf              |        |		ANDI.B	#0xbf,(A2)
0002035e 02 12 00 7f              |        |		ANDI.B	#0x7f,(A2)
00020362 02 12 00 f7              |        |		ANDI.B	#0xf7,(A2)
00020366 10 13                    |        |		MOVE.B	(A3),D0
00020368 b0 02                    |        |		CMP.B	D2,D0
0002036a 66 04                    |f       |		BNE	0x20370
0002036c 00 12 00 08              |        |		ORI.B	#0x08,(A2)
00020370 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00020372 4e b9 00 01 05 d4        |N       |		JSR	Update_fc0c(new : Byte)
00020378 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002037a 48 78 00 0f              |Hx      |		PEA.L	0xf
0002037e 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020384 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020386 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
00020388 10 06                    |        |		MOVE.B	D6,D0
0002038a 48 80                    |H       |		EXTB.W	D0
0002038c 90 43                    | C      |		SUB.W	D3,D0
0002038e 41 84                    |A       |		CHK.W	D4,D0
00020390 41 f9 00 02 0d 9a        |A       |		LEA.L	0x20d9a,A0
00020396 1a 30 00 10              | 0      |		MOVE.B	(A0+D0.W+#0x10),D5
0002039a 1f 06                    |        |		MOVE.B	D6,-(A7)
0002039c 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
000203a0 4e 94                    |N       |		JSR	(A4)
000203a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203a4 1e 86                    |        |		MOVE.B	D6,(A7)
000203a6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000203aa 4e 94                    |N       |		JSR	(A4)
000203ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203ae 1e 86                    |        |		MOVE.B	D6,(A7)
000203b0 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
000203b4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000203b8 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
000203bc 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000203c2 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000203c6 4a 05                    |J       |		TST.B	D5
000203c8 66 00 00 d4              |f       |		BNE	0x2049e
000203cc 10 2e ff f5              | .      |		MOVE.B	(A6-0xb),D0
000203d0 0c 00 00 05              |        |		CMPI.B	#0x05,D0
000203d4 66 00 00 bc              |f       |		BNE	0x20492
000203d8 4a 13                    |J       |		TST.B	(A3)
000203da 66 56                    |fV      |		BNE	0x20432
000203dc 0c 06 00 0d              |        |		CMPI.B	#0x0d,D6
000203e0 67 06                    |g       |		BEQ	0x203e8
000203e2 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
000203e6 66 4a                    |fJ      |		BNE	0x20432
000203e8 13 c2 00 02 0d a2        |        |		MOVE.B	D2,0x20da2
000203ee 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
000203f2 20 4f                    | O      |		MOVEA.L	A7,A0
000203f4 43 fa fd c4              |C       |		LEA.L	0x201ba,A1
000203f8 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
000203fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000203fc 51 c8 ff fc              |Q       |		DBF	D0,0x203fa
00020400 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020402 1f 06                    |        |		MOVE.B	D6,-(A7)
00020404 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
0002040a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002040c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020410 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020412 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00020416 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002041c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002041e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020424 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020426 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002042c de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00020430 60 60                    |``      |		BRA	0x20492
00020432 4a 13                    |J       |		TST.B	(A3)
00020434 66 1a                    |f       |		BNE	0x20450
00020436 1f 06                    |        |		MOVE.B	D6,-(A7)
00020438 4e b9 00 02 09 b6        |N       |		JSR	0x209b6
0002043e 1e 86                    |        |		MOVE.B	D6,(A7)
00020440 4e b9 00 02 0b 10        |N       |		JSR	0x20b10
00020446 1e 86                    |        |		MOVE.B	D6,(A7)
00020448 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002044c 4e 94                    |N       |		JSR	(A4)
0002044e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020450 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00020454 20 4f                    | O      |		MOVEA.L	A7,A0
00020456 43 fa fc fa              |C       |		LEA.L	0x20152,A1
0002045a 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
0002045c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002045e 51 c8 ff fc              |Q       |		DBF	D0,0x2045c
00020462 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020464 1f 06                    |        |		MOVE.B	D6,-(A7)
00020466 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
0002046c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002046e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020472 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020474 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00020478 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002047e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020480 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020486 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020488 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002048e de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020492 1f 06                    |        |		MOVE.B	D6,-(A7)
00020494 1f 04                    |        |		MOVE.B	D4,-(A7)
00020496 4e 94                    |N       |		JSR	(A4)
00020498 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002049a 60 00 00 84              |`       |		BRA	0x20520
0002049e 10 06                    |        |		MOVE.B	D6,D0
000204a0 48 80                    |H       |		EXTB.W	D0
000204a2 32 00                    |2       |		MOVE.W	D0,D1
000204a4 92 43                    | C      |		SUB.W	D3,D1
000204a6 b2 44                    | D      |		CMP.W	D4,D1
000204a8 63 02                    |c       |		BLS	0x204ac
000204aa 4e 4e                    |NN      |		TRAP	#14
000204ac d2 41                    | A      |		ADD.W	D1,D1
000204ae 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
000204b6 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x204be
000204b8 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x204c4
000204ba 00 14                    |        |		.CONST	0x14			; [0x2] -> 0x204ca
000204bc 00 1a                    |        |		.CONST	0x1a			; [0x3] -> 0x204d0
000204be					switch@0x204ae[0x0]:
000204be 00 12 00 10              |        |		ORI.B	#0x10,(A2)
000204c2 60 10                    |`       |		BRA	0x204d4
000204c4					switch@0x204ae[0x1]:
000204c4 00 12 00 20              |        |		ORI.B	#0x20,(A2)
000204c8 60 0a                    |`       |		BRA	0x204d4
000204ca					switch@0x204ae[0x2]:
000204ca 00 12 00 40              |   @    |		ORI.B	#0x40,(A2)
000204ce 60 04                    |`       |		BRA	0x204d4
000204d0					switch@0x204ae[0x3]:
000204d0 00 12 00 80              |        |		ORI.B	#0x80,(A2)
000204d4 12 2e ff f5              | .      |		MOVE.B	(A6-0xb),D1
000204d8 0c 01 00 05              |        |		CMPI.B	#0x05,D1
000204dc 67 42                    |gB      |		BEQ	0x20520
000204de 13 c2 00 02 0d a2        |        |		MOVE.B	D2,0x20da2
000204e4 41 fa fc d4              |A       |		LEA.L	0x201ba,A0
000204e8 72 14                    |r       |		MOVEQ.L	#0x14,D1
000204ea 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204ec 51 c9 ff fc              |Q       |		DBF	D1,0x204ea
000204f0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000204f2 1f 00                    |        |		MOVE.B	D0,-(A7)
000204f4 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000204fa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000204fc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020500 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020502 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00020506 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002050c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002050e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020514 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020516 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002051c de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00020520 10 06                    |        |		MOVE.B	D6,D0
00020522 48 80                    |H       |		EXTB.W	D0
00020524 90 43                    | C      |		SUB.W	D3,D0
00020526 b0 44                    | D      |		CMP.W	D4,D0
00020528 63 02                    |c       |		BLS	0x2052c
0002052a 4e 4e                    |NN      |		TRAP	#14
0002052c d0 40                    | @      |		ADD.W	D0,D0
0002052e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00020536 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x2053e
00020538 00 20                    |        |		.CONST	0x20			; [0x1] -> 0x20556
0002053a 00 38                    | 8      |		.CONST	0x38			; [0x2] -> 0x2056e
0002053c 00 50                    | P      |		.CONST	0x50			; [0x3] -> 0x20586
0002053e					switch@0x2052e[0x0]:
0002053e 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020540 4a 07                    |J       |		TST.B	D7
00020542 66 0e                    |f       |		BNE	0x20552
00020544 12 39 00 02 0d a6        | 9      |		MOVE.B	0x20da6,D1
0002054a e7 09                    |        |		LSL.B	#0x3,D1
0002054c ee 09                    |        |		LSR.B	#0x7,D1
0002054e ba 01                    |        |		CMP.B	D1,D5
00020550 67 02                    |g       |		BEQ	0x20554
00020552 52 00                    |R       |		ADDQ.B	#0x1,D0
00020554 60 44                    |`D      |		BRA	0x2059a
00020556					switch@0x2052e[0x1]:
00020556 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020558 4a 07                    |J       |		TST.B	D7
0002055a 66 0e                    |f       |		BNE	0x2056a
0002055c 12 39 00 02 0d a6        | 9      |		MOVE.B	0x20da6,D1
00020562 e5 09                    |        |		LSL.B	#0x2,D1
00020564 ee 09                    |        |		LSR.B	#0x7,D1
00020566 ba 01                    |        |		CMP.B	D1,D5
00020568 67 02                    |g       |		BEQ	0x2056c
0002056a 52 00                    |R       |		ADDQ.B	#0x1,D0
0002056c 60 2c                    |`,      |		BRA	0x2059a
0002056e					switch@0x2052e[0x2]:
0002056e 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020570 4a 07                    |J       |		TST.B	D7
00020572 66 0e                    |f       |		BNE	0x20582
00020574 12 39 00 02 0d a6        | 9      |		MOVE.B	0x20da6,D1
0002057a e3 09                    |        |		LSL.B	#0x1,D1
0002057c ee 09                    |        |		LSR.B	#0x7,D1
0002057e ba 01                    |        |		CMP.B	D1,D5
00020580 67 02                    |g       |		BEQ	0x20584
00020582 52 00                    |R       |		ADDQ.B	#0x1,D0
00020584 60 14                    |`       |		BRA	0x2059a
00020586					switch@0x2052e[0x3]:
00020586 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020588 4a 07                    |J       |		TST.B	D7
0002058a 66 0c                    |f       |		BNE	0x20598
0002058c 12 39 00 02 0d a6        | 9      |		MOVE.B	0x20da6,D1
00020592 ee 09                    |        |		LSR.B	#0x7,D1
00020594 ba 01                    |        |		CMP.B	D1,D5
00020596 67 02                    |g       |		BEQ	0x2059a
00020598 52 00                    |R       |		ADDQ.B	#0x1,D0
0002059a 1e 00                    |        |		MOVE.B	D0,D7
0002059c 52 06                    |R       |		ADDQ.B	#0x1,D6
0002059e 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
000205a2 6f 00 fd e4              |o       |		BLE	0x20388
000205a6 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000205a8 4e b9 00 01 05 d4        |N       |		JSR	Update_fc0c(new : Byte)
000205ae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205b0 48 78 00 0f              |Hx      |		PEA.L	0xf
000205b4 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
000205ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205bc 4a 13                    |J       |		TST.B	(A3)
000205be 66 2e                    |f.      |		BNE	0x205ee
000205c0 4a 39 00 02 0d aa        |J9      |		TST.B	0x20daa
000205c6 67 26                    |g&      |		BEQ	0x205ee
000205c8 4a 39 00 02 0d ac        |J9      |		TST.B	0x20dac
000205ce 67 1e                    |g       |		BEQ	0x205ee
000205d0 1f 03                    |        |		MOVE.B	D3,-(A7)
000205d2 4e b9 00 02 09 1e        |N       |		JSR	0x2091e
000205d8 1e bc 00 0e              |        |		MOVE.B	#0x0e,(A7)
000205dc 4e b9 00 02 09 1e        |N       |		JSR	0x2091e
000205e2 1e bc 00 0e              |        |		MOVE.B	#0x0e,(A7)
000205e6 4e b9 00 02 0a 70        |N    p  |		JSR	0x20a70
000205ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205ee 4a 07                    |J       |		TST.B	D7
000205f0 66 08                    |f       |		BNE	0x205fa
000205f2 4a 39 00 02 0d a3        |J9      |		TST.B	0x20da3
000205f8 67 06                    |g       |		BEQ	0x20600
000205fa 4e b9 00 01 05 c8        |N       |		JSR	And_fc0c_7f(void)
00020600 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020604 4e 5e                    |N^      |		UNLK	A6
00020606 4e 75                    |Nu      |		RTS
00020608 ; --------------------------------------------------------------------------------------
00020608 ; OMSI PASCAL Function
00020608 ; --------------------------------------------------------------------------------------
00020608 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
0002060c bf d5                    |        |		CMPA.L	(A5),A7
0002060e 62 06                    |b       |		BHI	0x20616
00020610 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020614 4e 76                    |Nv      |		TRAPV
00020616 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002061a 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
0002061e 72 05                    |r       |		MOVEQ.L	#0x05,D1
00020620 10 39 00 02 0d a7        | 9      |		MOVE.B	0x20da7,D0
00020626 e9 08                    |        |		LSL.B	#0x4,D0
00020628 ee 08                    |        |		LSR.B	#0x7,D0
0002062a 66 06                    |f       |		BNE	0x20632
0002062c 4e b9 00 01 05 bc        |N       |		JSR	R1000_Reset_H(void)
00020632 1f 01                    |        |		MOVE.B	D1,-(A7)
00020634 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00020638 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
0002063e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020640 1e 81                    |        |		MOVE.B	D1,(A7)
00020642 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020646 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
0002064c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002064e 4e ba fc c6              |N       |		JSR	0x20316
00020652 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00020656 4e 5e                    |N^      |		UNLK	A6
00020658 4e 75                    |Nu      |		RTS
0002065a ; --------------------------------------------------------------------------------------
0002065a ; OMSI PASCAL Function
0002065a ;    <LVAR  0x008 1(r)>
0002065a ;    <LVAR -0x004 @>
0002065a ;    <LVAR -0x005 @>
0002065a ;    <LVAR -0x006 @ 1(r)>
0002065a ; --------------------------------------------------------------------------------------
0002065a 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96		; Spelunked
0002065e bf d5                    |        |		CMPA.L	(A5),A7
00020660 62 06                    |b       |		BHI	0x20668
00020662 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020666 4e 76                    |Nv      |		TRAPV
00020668 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
0002066c 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00020670 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00020674 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020676 74 3a                    |t:      |		MOVEQ.L	#0x3a,D2
00020678 1f 12                    |        |		MOVE.B	(A2),-(A7)
0002067a 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
0002067e 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020684 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020686 1e 92                    |        |		MOVE.B	(A2),(A7)
00020688 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002068c 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020692 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020694 1e 92                    |        |		MOVE.B	(A2),(A7)
00020696 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002069a 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
0002069e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000206a2 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000206a8 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000206ac 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
000206b0 0c 00 00 05              |        |		CMPI.B	#0x05,D0
000206b4 67 78                    |gx      |		BEQ	0x2072e
000206b6 13 c1 00 02 0d a2        |        |		MOVE.B	D1,0x20da2
000206bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206be 1f 12                    |        |		MOVE.B	(A2),-(A7)
000206c0 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000206c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206c8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000206ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206d0 0c 00 00 09              |        |		CMPI.B	#0x09,D0
000206d4 66 2a                    |f*      |		BNE	0x20700
000206d6 41 fa fb 5c              |A  \    |		LEA.L	0x20234,A0
000206da 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
000206dc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000206de 51 c8 ff fc              |Q       |		DBF	D0,0x206dc
000206e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000206e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000206ea 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000206f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206f4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000206fa de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
000206fe 60 2e                    |`.      |		BRA	0x2072e
00020700 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00020704 20 4f                    | O      |		MOVEA.L	A7,A0
00020706 43 fa fb 2c              |C  ,    |		LEA.L	0x20234,A1
0002070a 70 34                    |p4      |		MOVEQ.L	#0x34,D0
0002070c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002070e 51 c8 ff fc              |Q       |		DBF	D0,0x2070c
00020712 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020714 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020718 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002071a 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
0002071e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020724 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020726 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002072c de c2                    |        |		ADDA.W	D2,A7
0002072e 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00020732 4e 5e                    |N^      |		UNLK	A6
00020734 4e 75                    |Nu      |		RTS
00020736 ; --------------------------------------------------------------------------------------
00020736 ; OMSI PASCAL Function
00020736 ; --------------------------------------------------------------------------------------
00020736 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0002073a bf d5                    |        |		CMPA.L	(A5),A7
0002073c 62 06                    |b       |		BHI	0x20744
0002073e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020742 4e 76                    |Nv      |		TRAPV
00020744 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020748 48 e7 01 80              |H       |		MOVEM.L	A0+D7,-(A7)
0002074c 41 fa ff 0c              |A       |		LEA.L	0x2065a,A0
00020750 4a 39 00 02 0d a2        |J9      |		TST.B	0x20da2
00020756 66 40                    |f@      |		BNE	0x20798
00020758 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
0002075c 4e 90                    |N       |		JSR	(A0)
0002075e 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
00020762 4e 90                    |N       |		JSR	(A0)
00020764 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020768 4e 90                    |N       |		JSR	(A0)
0002076a 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
0002076e 4e 90                    |N       |		JSR	(A0)
00020770 1e bc 00 06              |        |		MOVE.B	#0x06,(A7)
00020774 4e 90                    |N       |		JSR	(A0)
00020776 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020778 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002077a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002077c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002077e 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020784 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020786 4a 1f                    |J       |		TST.B	(A7)+
00020788 67 06                    |g       |		BEQ	0x20790
0002078a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002078c 4e 90                    |N       |		JSR	(A0)
0002078e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020790 52 07                    |R       |		ADDQ.B	#0x1,D7
00020792 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00020796 6f e2                    |o       |		BLE	0x2077a
00020798 4c df 01 80              |L       |		MOVEM.L	(A7)+,D7+A0
0002079c 4e 5e                    |N^      |		UNLK	A6
0002079e 4e 75                    |Nu      |		RTS
000207a0 ; --------------------------------------------------------------------------------------
000207a0 ; OMSI PASCAL Function
000207a0 ;    <LVAR -0x004 @>
000207a0 ; --------------------------------------------------------------------------------------
000207a0 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000207a4 bf d5                    |        |		CMPA.L	(A5),A7
000207a6 62 06                    |b       |		BHI	0x207ae
000207a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207ac 4e 76                    |Nv      |		TRAPV
000207ae de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000207b2 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000207b6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000207b8 3f 3a fa b4              |?:      |		MOVE.W	0x2026e,-(A7)
000207bc 3f 3a fa ae              |?:      |		MOVE.W	0x2026c,-(A7)
000207c0 3f 3a fa a8              |?:      |		MOVE.W	0x2026a,-(A7)
000207c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000207c6 20 4f                    | O      |		MOVEA.L	A7,A0
000207c8 43 fa fa a6              |C       |		LEA.L	0x20270,A1
000207cc 70 06                    |p       |		MOVEQ.L	#0x06,D0
000207ce 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000207d0 51 c8 ff fc              |Q       |		DBF	D0,0x207ce
000207d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207d6 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000207da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207dc 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000207e0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207e8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000207ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207ee 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000207f2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207f8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207fa 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
000207fe 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020802 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020808 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002080c 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020810 4e 5e                    |N^      |		UNLK	A6
00020812 4e 75                    |Nu      |		RTS
00020814 ; --------------------------------------------------------------------------------------
00020814 ; OMSI PASCAL Function
00020814 ; --------------------------------------------------------------------------------------
00020814					START:
00020814 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020818 4e f9 00 01 02 80        |N       |		JMP	?start_program
0002081e					MAIN:
0002081e 45 f9 00 02 0d a4        |E       |		LEA.L	0x20da4,A2
00020824 47 f9 00 02 0d a3        |G       |		LEA.L	0x20da3,A3
0002082a 49 f9 00 02 0d a2        |I       |		LEA.L	0x20da2,A4
00020830 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020832 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020834 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
0002083a 9e c2                    |        |		SUBA.W	D2,A7
0002083c 20 4f                    | O      |		MOVEA.L	A7,A0
0002083e 43 fa fa 38              |C  8    |		LEA.L	0x20278,A1
00020842 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020844 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020846 51 c8 ff fc              |Q       |		DBF	D0,0x20844
0002084a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002084c 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00020852 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020854 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020858 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002085a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002085e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020864 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020866 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002086c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002086e 4a 1f                    |J       |		TST.B	(A7)+
00020870 67 06                    |g       |		BEQ	0x20878
00020872 42 12                    |B       |		CLR.B	(A2)
00020874 42 13                    |B       |		CLR.B	(A3)
00020876 60 12                    |`       |		BRA	0x2088a
00020878 14 81                    |        |		MOVE.B	D1,(A2)
0002087a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020880 48 53                    |HS      |		PEA.L	(A3)
00020882 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020888 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002088a de c2                    |        |		ADDA.W	D2,A7
0002088c 42 14                    |B       |		CLR.B	(A4)
0002088e 4e ba fa 0c              |N       |		JSR	0x2029c
00020892 4e ba fd 74              |N  t    |		JSR	0x20608
00020896 4a 12                    |J       |		TST.B	(A2)
00020898 67 08                    |g       |		BEQ	0x208a2
0002089a 4a 13                    |J       |		TST.B	(A3)
0002089c 66 04                    |f       |		BNE	0x208a2
0002089e 4e ba fe 96              |N       |		JSR	0x20736
000208a2 4a 14                    |J       |		TST.B	(A4)
000208a4 67 34                    |g4      |		BEQ	0x208da
000208a6 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000208aa 20 4f                    | O      |		MOVEA.L	A7,A0
000208ac 43 fa f9 d4              |C       |		LEA.L	0x20282,A1
000208b0 70 18                    |p       |		MOVEQ.L	#0x18,D0
000208b2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000208b4 51 c8 ff fc              |Q       |		DBF	D0,0x208b2
000208b8 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000208bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000208be 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000208c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000208c4 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000208c8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208d0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000208d6 de fc 00 20              |        |		ADDA.W	#0x20,A7
000208da 4a 12                    |J       |		TST.B	(A2)
000208dc 67 04                    |g       |		BEQ	0x208e2
000208de 4e ba fe c0              |N       |		JSR	0x207a0
000208e2 42 27                    |B'      |		CLR.B	-(A7)
000208e4 48 78 00 01              |Hx      |		PEA.L	0x1
000208e8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000208ee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208f0 4e b9 00 01 02 84        |N       |		JSR	?exit
000208f6 54 57 4f 5f 42 4f 41 52  |TWO_BOAR|		.TXT	'TWO_BOARD_SYSTEM.MEM'
0002090a 54 57 4f 5f 42 4f 41 52  |TWO_BOAR|		.TXT	'TWO_BOARD_SYSTEM.M32'
0002091e ; --------------------------------------------------------------------------------------
0002091e ; OMSI PASCAL Function
0002091e ;    <LVAR  0x008 1(r)>
0002091e ;    <LVAR -0x006 @ 4(r)>
0002091e ; --------------------------------------------------------------------------------------
0002091e 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00020922 bf d5                    |        |		CMPA.L	(A5),A7
00020924 62 06                    |b       |		BHI	0x2092c
00020926 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002092a 4e 76                    |Nv      |		TRAPV
0002092c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020930 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020934 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00020938 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002093a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020940 4a 1f                    |J       |		TST.B	(A7)+
00020942 67 0e                    |g       |		BEQ	0x20952
00020944 41 fa ff c4              |A       |		LEA.L	0x2090a,A0
00020948 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002094a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002094c 51 c8 ff fc              |Q       |		DBF	D0,0x2094a
00020950 60 0c                    |`       |		BRA	0x2095e
00020952 41 fa ff ca              |A       |		LEA.L	0x2091e,A0
00020956 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020958 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002095a 51 c8 ff fc              |Q       |		DBF	D0,0x20958
0002095e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020960 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020964 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020968 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
0002096c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020972 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020974 48 51                    |HQ      |		PEA.L	(A1)
00020976 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002097c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020980 42 27                    |B'      |		CLR.B	-(A7)
00020982 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020986 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020988 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002098e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020990 48 51                    |HQ      |		PEA.L	(A1)
00020992 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020998 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002099a 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002099e 4e 5e                    |N^      |		UNLK	A6
000209a0 4e 75                    |Nu      |		RTS
000209a2 52 45 53 45 54 2e 4d 45  |RESET.ME|		.TXT	'RESET.MEM '
000209ac 52 45 53 45 54 2e 4d 33  |RESET.M3|		.TXT	'RESET.M32 '
000209b6 ; --------------------------------------------------------------------------------------
000209b6 ; OMSI PASCAL Function
000209b6 ;    <LVAR  0x008 1(r)>
000209b6 ;    <LVAR -0x006 @ 4(r)>
000209b6 ; --------------------------------------------------------------------------------------
000209b6 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000209ba bf d5                    |        |		CMPA.L	(A5),A7
000209bc 62 06                    |b       |		BHI	0x209c4
000209be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209c2 4e 76                    |Nv      |		TRAPV
000209c4 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000209c8 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000209cc 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000209d0 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000209d2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209d4 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000209da 4a 1f                    |J       |		TST.B	(A7)+
000209dc 67 12                    |g       |		BEQ	0x209f0
000209de 9e c1                    |        |		SUBA.W	D1,A7
000209e0 20 4f                    | O      |		MOVEA.L	A7,A0
000209e2 43 fa ff be              |C       |		LEA.L	0x209a2,A1
000209e6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000209e8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209ea 51 c8 ff fc              |Q       |		DBF	D0,0x209e8
000209ee 60 10                    |`       |		BRA	0x20a00
000209f0 9e c1                    |        |		SUBA.W	D1,A7
000209f2 20 4f                    | O      |		MOVEA.L	A7,A0
000209f4 43 fa ff b6              |C       |		LEA.L	0x209ac,A1
000209f8 70 08                    |p       |		MOVEQ.L	#0x08,D0
000209fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209fc 51 c8 ff fc              |Q       |		DBF	D0,0x209fa
00020a00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a02 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a06 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020a0a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020a0e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a16 48 52                    |HR      |		PEA.L	(A2)
00020a18 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00020a1e de fc 00 12              |        |		ADDA.W	#0x12,A7
00020a22 42 27                    |B'      |		CLR.B	-(A7)
00020a24 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020a28 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a2a 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00020a30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a32 48 52                    |HR      |		PEA.L	(A2)
00020a34 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020a3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a3c 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00020a40 4e 5e                    |N^      |		UNLK	A6
00020a42 4e 75                    |Nu      |		RTS
00020a44 43 4f 4d 50 41 52 45 5f  |COMPARE_|		.TXT	'COMPARE_UPPER_SETS.MEM'
00020a5a 43 4f 4d 50 41 52 45 5f  |COMPARE_|		.TXT	'COMPARE_UPPER_SETS.M32'
00020a70 ; --------------------------------------------------------------------------------------
00020a70 ; OMSI PASCAL Function
00020a70 ;    <LVAR  0x008 1(r)>
00020a70 ;    <LVAR -0x006 @ 4(r)>
00020a70 ; --------------------------------------------------------------------------------------
00020a70 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00020a74 bf d5                    |        |		CMPA.L	(A5),A7
00020a76 62 06                    |b       |		BHI	0x20a7e
00020a78 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a7c 4e 76                    |Nv      |		TRAPV
00020a7e de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020a82 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020a86 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00020a8a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a8c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020a92 4a 1f                    |J       |		TST.B	(A7)+
00020a94 67 0e                    |g       |		BEQ	0x20aa4
00020a96 41 fa ff c2              |A       |		LEA.L	0x20a5a,A0
00020a9a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020a9c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a9e 51 c8 ff fc              |Q       |		DBF	D0,0x20a9c
00020aa2 60 0c                    |`       |		BRA	0x20ab0
00020aa4 41 fa ff ca              |A       |		LEA.L	0x20a70,A0
00020aa8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020aaa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020aac 51 c8 ff fc              |Q       |		DBF	D0,0x20aaa
00020ab0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ab2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ab6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020aba 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00020abe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ac4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ac6 48 51                    |HQ      |		PEA.L	(A1)
00020ac8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00020ace de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020ad2 42 27                    |B'      |		CLR.B	-(A7)
00020ad4 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020ad8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020ada 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00020ae0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ae2 48 51                    |HQ      |		PEA.L	(A1)
00020ae4 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020aea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020aec 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00020af0 4e 5e                    |N^      |		UNLK	A6
00020af2 4e 75                    |Nu      |		RTS
00020af4 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
00020b02 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
00020b10 ; --------------------------------------------------------------------------------------
00020b10 ; OMSI PASCAL Function
00020b10 ;    <LVAR  0x008 1(r)>
00020b10 ;    <LVAR -0x006 @ 4(r)>
00020b10 ; --------------------------------------------------------------------------------------
00020b10 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00020b14 bf d5                    |        |		CMPA.L	(A5),A7
00020b16 62 06                    |b       |		BHI	0x20b1e
00020b18 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b1c 4e 76                    |Nv      |		TRAPV
00020b1e de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00020b22 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020b26 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00020b2a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b2c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020b32 4a 1f                    |J       |		TST.B	(A7)+
00020b34 67 0e                    |g       |		BEQ	0x20b44
00020b36 41 fa ff ca              |A       |		LEA.L	0x20b02,A0
00020b3a 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020b3c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b3e 51 c8 ff fc              |Q       |		DBF	D0,0x20b3c
00020b42 60 0c                    |`       |		BRA	0x20b50
00020b44 41 fa ff ca              |A       |		LEA.L	0x20b10,A0
00020b48 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020b4a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b4c 51 c8 ff fc              |Q       |		DBF	D0,0x20b4a
00020b50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b56 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020b5a 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020b5e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b66 48 51                    |HQ      |		PEA.L	(A1)
00020b68 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00020b6e de fc 00 16              |        |		ADDA.W	#0x16,A7
00020b72 42 27                    |B'      |		CLR.B	-(A7)
00020b74 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020b78 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020b7a 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00020b80 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b82 48 51                    |HQ      |		PEA.L	(A1)
00020b84 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020b8a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b8c 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00020b90 4e 5e                    |N^      |		UNLK	A6
00020b92 4e 75                    |Nu      |		RTS
00020b94 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020ba2 ; --------------------------------------------------------------------------------------
00020ba2 ; OMSI PASCAL Function
00020ba2 ;    <LVAR  0x008 1(r)>
00020ba2 ; --------------------------------------------------------------------------------------
00020ba2					PROG_FAIL:
00020ba2 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020ba6 bf d5                    |        |		CMPA.L	(A5),A7
00020ba8 62 06                    |b       |		BHI	0x20bb0
00020baa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bae 4e 76                    |Nv      |		TRAPV
00020bb0 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020bb4 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020bb8 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00020bbc 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020bbe 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bc0 51 c8 ff fc              |Q       |		DBF	D0,0x20bbe
00020bc4 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020bc8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020bca 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020bce 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020bd2 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020bd6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020bdc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bde 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020be2 48 80                    |H       |		EXTB.W	D0
00020be4 48 c0                    |H       |		EXTW.L	D0
00020be6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020be8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020bee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bf0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020bf6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bf8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020bfe de fc 00 14              |        |		ADDA.W	#0x14,A7
00020c02 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020c06 4e 5e                    |N^      |		UNLK	A6
00020c08 4e 75                    |Nu      |		RTS
00020c0a 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020c18 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020c26 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020c34 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020c46 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00020c5e ; --------------------------------------------------------------------------------------
00020c5e ; OMSI PASCAL Function
00020c5e ;    <LVAR  0x00e 1(r)>
00020c5e ;    <LVAR  0x00a 4(r)>
00020c5e ;    <LVAR  0x008 1(r)>
00020c5e ; --------------------------------------------------------------------------------------
00020c5e					EXP_FAIL:
00020c5e 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020c62 bf d5                    |        |		CMPA.L	(A5),A7
00020c64 62 06                    |b       |		BHI	0x20c6c
00020c66 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c6a 4e 76                    |Nv      |		TRAPV
00020c6c de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020c70 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020c74 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020c7a 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020c80 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020c82 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020c84 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020c86 78 12                    |x       |		MOVEQ.L	#0x12,D4
00020c88 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020c8a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020c90 41 fa ff b4              |A       |		LEA.L	0x20c46,A0
00020c94 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020c96 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c98 51 c8 ff fc              |Q       |		DBF	D0,0x20c96
00020c9c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c9e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ca2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ca4 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020ca6 4e 93                    |N       |		JSR	(A3)
00020ca8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020caa 4e 94                    |N       |		JSR	(A4)
00020cac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cae 20 4f                    | O      |		MOVEA.L	A7,A0
00020cb0 43 fa ff 58              |C  X    |		LEA.L	0x20c0a,A1
00020cb4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020cb6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020cb8 51 c8 ff fc              |Q       |		DBF	D0,0x20cb6
00020cbc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020cbe 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020cc2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020cc4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020cc6 4e 93                    |N       |		JSR	(A3)
00020cc8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cca 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00020cce 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00020cd4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cd6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020cdc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cde 4e 94                    |N       |		JSR	(A4)
00020ce0 de c4                    |        |		ADDA.W	D4,A7
00020ce2 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020ce6 b0 c1                    |        |		CMPA.W	D1,A0
00020ce8 67 48                    |gH      |		BEQ	0x20d32
00020cea 9e c5                    |        |		SUBA.W	D5,A7
00020cec 22 4f                    |"O      |		MOVEA.L	A7,A1
00020cee 45 fa ff 28              |E  (    |		LEA.L	0x20c18,A2
00020cf2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020cf4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020cf6 51 c8 ff fc              |Q       |		DBF	D0,0x20cf4
00020cfa 9e c3                    |        |		SUBA.W	D3,A7
00020cfc 22 4f                    |"O      |		MOVEA.L	A7,A1
00020cfe 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020d02 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020d04 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020d06 51 c8 ff fc              |Q       |		DBF	D0,0x20d04
00020d0a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d0c 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020d10 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d12 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020d14 4e 93                    |N       |		JSR	(A3)
00020d16 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d18 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020d1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d1e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d20 4e 93                    |N       |		JSR	(A3)
00020d22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d24 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020d2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d2c 4e 94                    |N       |		JSR	(A4)
00020d2e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020d32 9e c5                    |        |		SUBA.W	D5,A7
00020d34 20 4f                    | O      |		MOVEA.L	A7,A0
00020d36 43 fa fe ee              |C       |		LEA.L	0x20c26,A1
00020d3a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020d3c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d3e 51 c8 ff fc              |Q       |		DBF	D0,0x20d3c
00020d42 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d44 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020d48 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d4a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020d4c 4e 93                    |N       |		JSR	(A3)
00020d4e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d50 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020d54 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00020d5a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d5c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020d62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d64 4e 94                    |N       |		JSR	(A4)
00020d66 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d68 20 4f                    | O      |		MOVEA.L	A7,A0
00020d6a 43 fa fe da              |C       |		LEA.L	0x20c46,A1
00020d6e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020d70 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d72 51 c8 ff fc              |Q       |		DBF	D0,0x20d70
00020d76 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020d7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d7c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020d80 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d82 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020d86 4e 93                    |N       |		JSR	(A3)
00020d88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d8a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020d90 de c3                    |        |		ADDA.W	D3,A7
00020d92 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020d96 4e 5e                    |N^      |		UNLK	A6
00020d98 4e 75                    |Nu      |		RTS