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

⟦4896d5abb⟧ M200

    Length: 3072 (0xc00)
    Types: M200
    Notes: @(#)TEST_PAD,1.1,92/07/09,12:00:00, M200_PROGRAM
    Names: »TESTPAD.M200«

Derivation

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

Disassembly

0x203d0


@ 203d0
        <LVAR  0x008 @ 4(r)>
    <POP 203d0-20426 Body>                                              
        <POP 203d0-203e6 Prologue>                           Σ0         ↓
        <POP 203e6-203ea RegCacheLoad>                       Σ0         ↓
        <POP 203ea-2041e Naked>                              Σ0         ↓
            <MI 203ea  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x203ec 0xa.2>                            Δ-2                {[4, '(A6+0x8)']|[#10]}
            <Call 0x203f0 0x102c0>                                              {[4, '(A6+0x8)']|[#10]}
                AppendChar(MOD b : String; a : char)
            <POP 203f6-203f8 StackAdj>                       Δ+2                {[4, '(A6+0x8)']}
            <MI 203f8  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x203fa 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x203fe 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20404-20406 StackAdj>                       Δ+4                {[-2-]}
            <POP 20406-20407 StackAdj>                       Δ+2                {}
            <Const 0x20407 0x1.2>                            Δ-2                {[#1]}
            <MI 2040a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[4, '(A6+0x8)']}
            <Call 0x2040c 0x1020a>                                              {[#1]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 20412-20414 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x20414 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20416 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 2041c-2041e StackAdj>                       Δ+4                {}
        <POP 2041e-20426 Epilogue>                           Σ0         

0x20426


@ 20426
        <LVAR -0x004 @ 4(r)>
    <POP 20426-20450 Body>                                              
        <POP 20426-20438 Prologue>                           Σ0         ↓
        <POP 20438-2044c Naked>                              Σ0         ↓
            <Pointer.fp 0x20438 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x2043c 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <MI 20442  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <Call 0x20446 0x203d0>                                              {[4, '(A6-0x4)']}
            <POP 2044a-2044c StackAdj>                       Δ+4                {}
        <POP 2044c-20450 Epilogue>                           Σ0         

0x20450


@ 20450
        <LVAR  0x008 @ 4(r)>
    <POP 20450-20498 Body>                                              
        <POP 20450-20466 Prologue>                           Σ0         ↓
        <POP 20466-2046a RegCacheLoad>                       Σ0         ↓
        <POP 2046a-20490 Naked>                              Σ0         ↓
            <MI 2046a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x2046c 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x20470 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20476-20478 StackAdj>                       Δ+4                {[-2-]}
            <POP 20478-20479 StackAdj>                       Δ+2                {}
            <Const 0x20479 0x2.2>                            Δ-2                {[#2]}
            <MI 2047c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#2]|[4, '(A6+0x8)']}
            <Call 0x2047e 0x1020a>                                              {[#2]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 20484-20486 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x20486 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20488 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 2048e-20490 StackAdj>                       Δ+4                {}
        <POP 20490-20498 Epilogue>                           Σ0         

0x20498


@ 20498
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
    <POP 20498-204ce Body>                                              
        <POP 20498-204ae Prologue>                           Σ0         ↓
        <POP 204ae-204c6 Naked>                              Σ0         ↓
            <POP 204ae-204b0 StackAdj>                       Δ-2                {[-2-]}
            <MI 204b0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <Call 0x204b4 0x10592>                                              {[-2-]|[4, '(A6+0x8)']}
                ReadConfig(where : Long) : Word
            <POP 204ba-204bc StackAdj>                       Δ+4                {[-2-]}
            <MI 204bc  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x204be LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 204c2  MOVE.W  D0,(A6+0xc)>                                     {}
        <POP 204c6-204ce Epilogue>                           Σ0         

0x204ce


@ 204ce
        <LVAR -0x004 @ 1(r)>
    <POP 204ce-2057a Body>                                              
        <POP 204ce-204e4 Prologue>                           Σ0         ↓
        <POP 204e4-204f2 RegCacheLoad>                       Σ0         ↓
        <POP 204f2-204f6 Naked>                              Σ0         ↓
            <MI 204f2  MOVEQ.L #0x00,D7>                                        {}
            <MI 204f4  CLR.L   0x21354>                                         {}
        <POP 204f6-204fe Naked>                              Σ0         ↓ →0x20572 ←0x2056e
            <MI 204f6  CMPI.L  #0x00000014,D7>                                  {}
            <MI 204fc  BEQ     0x20572>                                         {}
        <POP 204fe-20500 Naked>                              Σ0         ↓
            <MI 204fe  MOVEQ.L #0x01,D6>                                        {}
        <POP 20500-20518 Naked>                              Σ0         ↓ →0x20564 ←0x20564
            <Const 0x20500 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x20502 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[@@-4]}
            <Call 0x20506 0x10212>                                              {[#2]|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 2050c-2050e StackAdj>                       Δ+6                {}
            <MI 2050e  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 20512  CMPI.B  #0x01,D0>                                        {}
            <MI 20516  BNE     0x20564>                                         {}
        <POP 20518-2053e Naked>                              Σ0         ↓ →0x20560
            <Const 0x20518 0x2.2>                            Δ-2                {[#2]}
            <MI 2051a  MOVE.L  0x21354,D0>                                      {[#2]}
            <POP 0x2051c LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[#2]}
            <MI 20526  ASL.L   #0x1,D0>                                         {[#2]}
            <MI 20528  LEA.L   0x20b46,A0>                                      {[#2]}
            <MI 2052a  PEA.L   (A0+D0.L+#0xe)>               Δ-4                {[#2]|[4, '^(A0+D0.L+#0xe)']}
            <Call 0x2052e 0x1020e>                                              {[#2]|[4, '^(A0+D0.L+#0xe)']}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 20534-20536 StackAdj>                       Δ+6                {}
            <MI 20536  TST.B   0x20b52>                                         {}
            <MI 2053c  BEQ     0x20560>                                         {}
        <POP 2053e-20560 Naked>                              Σ0         ↓
            <MI 2053e  MOVE.L  0x21354,D0>                                      {}
            <POP 0x20540 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 2054a  ASL.L   #0x1,D0>                                         {}
            <MI 2054c  LEA.L   0x20b46,A0>                                      {}
            <MI 2054e  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 20552  ANDI.W  #0x00ff,D0>                                      {}
            <MI 20556  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x20558 0x103d0>                                              {[2, 'D0']}
                WriteConsoleChar(chr : char)
            <POP 2055e-20560 StackAdj>                       Δ+2                {}
        <POP 20560-20564 Naked>                              Σ0         ↓ ←0x20518
            <MI 20560  MOVEQ.L #0x00,D7>                                        {}
            <MI 20562  ADDQ.L  #0x1,0x21354>                                    {}
        <POP 20564-2056e Naked>                              Σ0         ↓ →0x20500 ←0x20500
            <MI 20564  ADDQ.L  #0x1,D6>                                         {}
            <MI 20566  CMPI.L  #0x000003e8,D6>                                  {}
            <MI 2056c  BLE     0x20500>                                         {}
        <POP 2056e-20572 Naked>                              Σ0         →0x204f6
            <MI 2056e  ADDQ.L  #0x1,D7>                                         {}
            <MI 20570  BRA     0x204f6>                                         {}
        <POP 20572-2057a Epilogue>                           Σ0         ←0x204f6

0x2057a


@ 2057a
    <POP 2057a-2086e Body>                                              
        <POP 2057a-20590 Prologue>                           Σ0         ↓
        <POP 20590-205b2 RegCacheLoad>                       Σ0         ↓
        <POP 205b2-20628 Naked>                              Σ0         ↓ →0x20696
            <Call 0x205b2 0x10216>                                              {}
                KC0b
            <Blob 0x205b8 [36] @>                            Δ-36               {[«36""»]}
            <POP 205c8-205ca StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x205ca 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 205d6-205d8 StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 205d8  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x205da 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 205e0-205e2 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 205e2  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 205e4  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x205e6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 205e8-205ea StackAdj>                       Δ+36               {}
            <MI 205ea  MOVE.B  D0,0x20b52>                                      {}
            <Call 0x205f0 0x204ce>                                              {}
            <Blob 0x205f4 [6] @>                             Δ-6                {[«6""»]}
            <POP 20604-20606 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x20606 5>                                                     {[«6""»]|[$$D A P]}
            <Call 0x20614 0x20450>                                              {[«6""»]|[$$D A P]}
            <POP 20618-2061c StackAdj>                       Δ+10               {}
            <Call 0x2061c 0x204ce>                                              {}
            <MI 20620  TST.L   0x21354>                                         {}
            <MI 20626  BNE     0x20696>                                         {}
        <POP 20628-20696 Naked>                              Σ0         →0x20856
            <Blob 0x20628 [64] @>                            Δ-64               {[«64""»]}
            <POP 20638-2063a StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x2063a 63>                                                    {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
            <Call 0x20648 0x103e0>                                              {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
                WriteConsoleStringCrLf(str : String)
            <POP 2064a-2064b StackAdj>                       Δ+68       ↓       {}
            <Blob 0x2064b [66] @>                            Δ-66               {[«66""»]}
            <POP 2065a-2065c StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x2065c 65>                                                    {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
            <Call 0x2066a 0x103e0>                                              {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
                WriteConsoleStringCrLf(str : String)
            <POP 2066c-20670 StackAdj>                       Δ+70               {}
            <Blob 0x20670 [52] @>                            Δ-52               {[«52""»]}
            <POP 2067c-2067e StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x2067e 52>                                                    {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
            <Call 0x2068c 0x103e0>                                              {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
                WriteConsoleStringCrLf(str : String)
            <POP 2068e-20692 StackAdj>                       Δ+56               {}
            <MI 20692  BRA     0x20856>                                         {}
        <POP 20696-2069e Naked>                              Σ0         ↓ →0x206a2 ←0x205b2
            <MI 20696  TST.B   0x20b52>                                         {}
            <MI 2069c  BEQ     0x206a2>                                         {}
        <POP 2069e-206a2 Naked>                              Σ0         ↓
            <Call 0x2069e 0x20426>                                              {}
        <POP 206a2-206a4 Naked>                              Σ0         ↓ ←0x20696
            <MI 206a2  MOVEQ.L #0x00,D7>                                        {}
        <POP 206a4-206ae Naked>                              Σ0         ↓ →0x20814 ←0x2080e
            <MI 206a4  CMP.L   0x21354,D7>                                      {}
            <MI 206aa  BGE     0x20814>                                         {}
        <POP 206ae-206cc Naked>                              Σ0         ↓ →0x2080e
            <MI 206ae  MOVE.L  D7,D0>                                           {}
            <MI 206b0  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x206b2 LimitCheck 0x0 ≤ D7 ≤ 0x3ff>                           {}
            <MI 206b8  MOVE.L  D7,D1>                                           {}
            <MI 206ba  ASL.L   #0x1,D1>                                         {}
            <MI 206bc  LEA.L   0x20b46,A0>                                      {}
            <MI 206be  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 206c2  AND.W   #0xff,D1>                                        {}
            <MI 206c4  CMPI.B  #0x53,D1>                                        {}
            <MI 206c8  BNE     0x2080e>                                         {}
        <POP 206cc-206e6 Naked>                              Σ0         ↓ →0x2080e
            <POP 0x206cc LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 206d2  MOVE.L  D0,D1>                                           {}
            <MI 206d4  ASL.L   #0x1,D1>                                         {}
            <MI 206d6  LEA.L   0x20b46,A0>                                      {}
            <MI 206d8  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 206dc  AND.W   #0xff,D1>                                        {}
            <MI 206de  CMPI.B  #0x45,D1>                                        {}
            <MI 206e2  BNE     0x2080e>                                         {}
        <POP 206e6-20702 Naked>                              Σ0         ↓ →0x2080e
            <MI 206e6  MOVE.L  D7,D1>                                           {}
            <MI 206e8  ADDQ.L  #0x2,D1>                                         {}
            <POP 0x206ea LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 206f0  ASL.L   #0x1,D1>                                         {}
            <MI 206f2  LEA.L   0x20b46,A0>                                      {}
            <MI 206f4  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 206f8  AND.W   #0xff,D1>                                        {}
            <MI 206fa  CMPI.B  #0x52,D1>                                        {}
            <MI 206fe  BNE     0x2080e>                                         {}
        <POP 20702-2071e Naked>                              Σ0         ↓ →0x2080e
            <MI 20702  MOVE.L  D7,D1>                                           {}
            <MI 20704  ADDQ.L  #0x3,D1>                                         {}
            <POP 0x20706 LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 2070c  ASL.L   #0x1,D1>                                         {}
            <MI 2070e  LEA.L   0x20b46,A0>                                      {}
            <MI 20710  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 20714  AND.W   #0xff,D1>                                        {}
            <MI 20716  CMPI.B  #0x56,D1>                                        {}
            <MI 2071a  BNE     0x2080e>                                         {}
        <POP 2071e-2073a Naked>                              Σ0         ↓ →0x2080e
            <MI 2071e  MOVE.L  D7,D1>                                           {}
            <MI 20720  ADDQ.L  #0x4,D1>                                         {}
            <POP 0x20722 LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 20728  ASL.L   #0x1,D1>                                         {}
            <MI 2072a  LEA.L   0x20b46,A0>                                      {}
            <MI 2072c  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 20730  AND.W   #0xff,D1>                                        {}
            <MI 20732  CMPI.B  #0x49,D1>                                        {}
            <MI 20736  BNE     0x2080e>                                         {}
        <POP 2073a-20756 Naked>                              Σ0         ↓ →0x2080e
            <MI 2073a  MOVE.L  D7,D1>                                           {}
            <MI 2073c  ADDQ.L  #0x5,D1>                                         {}
            <POP 0x2073e LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 20744  ASL.L   #0x1,D1>                                         {}
            <MI 20746  LEA.L   0x20b46,A0>                                      {}
            <MI 20748  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 2074c  AND.W   #0xff,D1>                                        {}
            <MI 2074e  CMPI.B  #0x43,D1>                                        {}
            <MI 20752  BNE     0x2080e>                                         {}
        <POP 20756-20772 Naked>                              Σ0         ↓ →0x2080e
            <MI 20756  MOVE.L  D7,D1>                                           {}
            <MI 20758  ADDQ.L  #0x6,D1>                                         {}
            <POP 0x2075a LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 20760  ASL.L   #0x1,D1>                                         {}
            <MI 20762  LEA.L   0x20b46,A0>                                      {}
            <MI 20764  MOVE.W  (A0+D1.L+#0xe),D1>                               {}
            <MI 20768  AND.W   #0xff,D1>                                        {}
            <MI 2076a  CMPI.B  #0x45,D1>                                        {}
            <MI 2076e  BNE     0x2080e>                                         {}
        <POP 20772-2080e Naked>                              Σ0         ↓
            <Blob 0x20772 [66] @>                            Δ-66               {[«66""»]}
            <POP 20784-20786 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x20786 65>                                                    {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
            <Call 0x20794 0x103e0>                                              {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
                WriteConsoleStringCrLf(str : String)
            <POP 20796-2079a StackAdj>                       Δ+70               {}
            <Blob 0x2079a [64] @>                            Δ-64               {[«64""»]}
            <POP 207a6-207a8 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x207a8 64>                                                    {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
            <Call 0x207b4 0x103e0>                                              {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
                WriteConsoleStringCrLf(str : String)
            <POP 207b6-207ba StackAdj>                       Δ+68               {}
            <Blob 0x207ba [60] @>                            Δ-60               {[«60""»]}
            <POP 207c6-207c8 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x207c8 60>                                                    {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
            <Call 0x207d6 0x103e0>                                              {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
                WriteConsoleStringCrLf(str : String)
            <POP 207d8-207d9 StackAdj>                       Δ+64       ↓       {}
            <Blob 0x207d9 [14] @>                            Δ-14               {[«14""»]}
            <POP 207ea-207ec StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x207ec 13>                                                    {[«14""»]|[$$for call back]}
            <Call 0x207fa 0x103e0>                                              {[«14""»]|[$$for call back]}
                WriteConsoleStringCrLf(str : String)
            <POP 207fc-20800 StackAdj>                       Δ+16               {[-2-]}
            <MI 20800  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20802 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x20806 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2080c-2080e StackAdj>                       Δ+6                {}
        <POP 2080e-20814 Naked>                              Σ0         →0x206a4 ←0x206ae ←0x206cc ←0x206e6 ←0x20702 ←0x2071e ←0x2073a ←0x20756
            <MI 2080e  MOVE.L  D0,D7>                                           {}
            <MI 20810  BRA     0x206a4>                                         {}
        <POP 20814-20856 Naked>                              Σ0         ↓ ←0x206a4
            <Blob 0x20814 [58] @>                            Δ-58               {[«58""»]}
            <POP 20820-20822 StackAdj>                       Δ-4                {[«58""»]|[-4-]}
            <Lit 0x20822 58>                                                    {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
            <Call 0x20830 0x103e0>                                              {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
                WriteConsoleStringCrLf(str : String)
            <MI 20832  MOVEA.L A7,A0>                                           {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
            <MI 20834  LEA.L   0x2038c,A1>                                      {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
            <BlockMove 61,A1,A0>                                                {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
            <POP 20840-20842 StackAdj>                       Δ-4                {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[-4-]}
            <Lit 0x20842>                                                       {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
                <Pointer.sp 0x20842 4>                       Δ-4        
                <Const 0x20846 0x1.2>                        Δ-2        
                <Const 0x20848 0x3d.2>                       Δ-2        
                <Call 0x2084c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2084e-20850 StackAdj>                   Δ+8        
            <Call 0x20850 0x103e0>                                              {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 20852-20856 StackAdj>                       Δ+66               {}
        <POP 20856-20866 Naked>                              Σ0         ↓ ←0x20628
            <Const 0x20856 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2085a 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x2085e 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20864-20866 StackAdj>                       Δ+6                {}
        <POP 20866-2086e Epilogue>                           Σ0         

0x2086e


@ 2086e
START
    <POP 2086e--0001 Body>                                              
        <POP 2086e-20878 Prologue>                           Σ0         
        <POP 20878-2087a RegCacheLoad>                       Σ0         ↓
        <POP 2087a-208a6 Naked>                              Σ0         ↓ →0x20900
            <Call 0x2087a 0x10398>                                              {}
                FSCALL_10398
            <POP 20880-20882 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20882 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x20886 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 2088c-2088e StackAdj>                       Δ+4                {[-2-]}
            <MI 2088e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 20890  EXTW.L  D0>                                              {}
            <MI 20892  MOVE.L  D0,0x20b4e>                                      {}
            <MI 20898  SUBI.L  #0x0000004d,D0>                                  {}
            <MI 2089e  CMPI.L  #0x0000000b,D0>                                  {}
            <MI 208a4  BHI     0x20900>                                         {}
        <POP 208a6-208b0 Naked>                              Σ0         →0x208c8 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x208fa
            <MI 208a6  ADD.W   D0,D0>                                           {}
            <MI 208a8  SWITCH  D0.W>                                            {}
        <POP 208c8-208fa Naked>                              Σ0         →0x2092a ←0x208a6
            <Blob 0x208c8 [62] @>                            Δ-62               {[«62""»]}
            <POP 208da-208dc StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x208dc 61>                                                    {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
            <Call 0x208ee 0x103e0>                                              {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 208f4-208f8 StackAdj>                       Δ+66               {}
            <MI 208f8  BRA     0x2092a>                                         {}
        <POP 208fa-20900 Naked>                              Σ0         →0x2093a ←0x208a6
            <Call 0x208fa 0x2057a>                                              {}
            <MI 208fe  BRA     0x2093a>                                         {}
        <POP 20900-2092a Naked>                              Σ0         ↓ ←0x2087a ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6
            <Blob 0x20900 [46] @>                            Δ-46               {[«46""»]}
            <POP 2090c-2090e StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x2090e 46>                                                    {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
            <Call 0x20920 0x103e0>                                              {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
                WriteConsoleStringCrLf(str : String)
            <POP 20926-2092a StackAdj>                       Δ+50               {}
        <POP 2092a-2093a Naked>                              Σ0         ↓ ←0x208c8
            <Const 0x2092a 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2092e 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x20932 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20938-2093a StackAdj>                       Δ+6                {}
        <POP 2093a-20940 Naked>                              Σ0         ←0x208fa
            <Call 0x2093a 0x10284>                                              {}
                ?exit

0x2094e


@ 2094e
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2094e-209b6 Body>                                              
        <POP 2094e-20964 Prologue>                           Σ0         ↓
        <POP 20964-209ae Naked>                              Σ0         ↓
            <Blob 0x20964 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x20970 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20974-20976 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20976 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20988-2098a StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2098a  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2098e  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20990  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20992  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20994 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 2099a-2099c StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x2099c 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 209a2-209a4 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x209a4 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 209aa-209ae StackAdj>                       Δ+20               {}
        <POP 209ae-209b6 Epilogue>                           Σ0         

0x20a0a


@ 20a0a
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 20a0a-20b46 Body>                                              
        <POP 20a0a-20a20 Prologue>                           Σ0         ↓
        <POP 20a20-20a36 RegCacheLoad>                       Σ0         ↓
        <POP 20a36-20a96 Naked>                              Σ0         ↓ →0x20ade
            <Call 0x20a36 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20a3c [18] @>                            Δ-18               {[«18""»]}
            <POP 20a48-20a4a StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20a4a 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x20a56 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a58-20a59 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x20a59 [14] @>                            Δ-14               {[«14""»]}
            <POP 20a68-20a6a StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20a6a 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 20a74-20a76 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 20a76  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x20a7a 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 20a80-20a82 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x20a82 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20a88-20a8a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20a8a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a8c-20a8e StackAdj>                       Δ+18               {}
            <MI 20a8e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20a92  CMPA.W  #0x01,A0>                                        {}
            <MI 20a94  BEQ     0x20ade>                                         {}
        <POP 20a96-20ade Naked>                              Σ0         ↓
            <Blob 0x20a96 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20aa6 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20ab6-20ab8 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x20ab8 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20ac2-20ac4 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x20ac4>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x20ac4 12>                      Δ-4        
                <Const 0x20ac8 0x1.2>                        Δ-2        
                <Const 0x20aca 0x1e.2>                       Δ-2        
                <Call 0x20acc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20ace-20ad0 StackAdj>                   Δ+8        
            <Call 0x20ad0 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20ad6-20ad8 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x20ad8 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20ada-20ade StackAdj>                       Δ+48               {}
        <POP 20ade-20b3e Naked>                              Σ0         ↓ ←0x20a36
            <Blob 0x20ade [14] @>                            Δ-14               {[«14""»]}
            <POP 20aee-20af0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20af0 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 20afa-20afc StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 20afc  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x20b00 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 20b06-20b08 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x20b08 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20b0e-20b10 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20b10 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20b12-20b13 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x20b13 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x20b22 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 20b26-20b28 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x20b28 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x20b36 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 20b3c-20b3e StackAdj>                       Δ+30               {}
        <POP 20b3e-20b46 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.22a139893377a3a8
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 08 6e              |   n    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 13 6a              |   j    |		.PTR	0x2136a
00020010					code.end:
00020010 00 02 0b 46              |   F    |		.PTR	0x20b46
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 09 4e              |   N    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 0a 0a              |        |		.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 54 45        |@(#)TE  |		.XXX[0x6]
00020110 53 54 5f 50 41 44 2c 31  |ST_PAD,1|		.XXX[0x18]
00020118 2e 31 2c 39 32 2f 30 37  |.1,92/07|
00020120 2f 30 39 2c 31 32 3a 30  |/09,12:0|
00020128 30 3a 30 30 5c 20        |0:00\   |		.XXX[0x6]
0002012e 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM indicates modem attached, run INITIOA to change to PAD '
0002016c 50 41 44 20              |PAD     |		.XXX[0x4]
00020170 74 65 73 74 20 63 6f 6d  |test com|		.XXX[0x8]
00020178 70 6c 65 74 65 20        |plete   |		.XXX[0x6]
0002017e 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM is not properly configured, run INITIOA'
000201ac 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
000201d0 4e 6f 20 64 61 74 61 20  |No data |		.TXT	'No data is being recieved from the PAD. Check power to the PAD, '
00020210 63 61 62 6c 65 73 20 66  |cables f|		.TXT	'cables from the back plane to PAD and re-run the test. A terminal '
00020252 6d 61 79 20 62 65 20 63  |may be c|		.TXT	'may be connected to the PAD to verify it is operable'
00020286 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD connection works properly, for complete test to RATIONAL, '
000202c8 74 72 79 20 52 45 4d 4f  |try REMO|		.TXT	'try REMOTE option at CLI prompt. You should get a response like:'
00020308 52 61 74 69 6f 6e 61 6c  |Rational|		.TXT	'Rational Response Center has instructed this cluster to wait'
00020344 66 6f 72 20 63 61 6c 6c  |for call|		.TXT	'for call back '
00020352 44 61 74 61 20 77 61 73  |Data was|		.TXT	'Data was received from the PAD but could not be recognized'
0002038c 55 73 65 20              |Use     |		.XXX[0x4]
00020390 61 20 74 65 72 6d 69 6e  |a termin|		.XXX[0x38]
00020398 61 6c 20 61 6e 64 20 76  |al and v|
000203a0 65 72 69 66 79 20 74 68  |erify th|
000203a8 61 74 20 74 68 65 20 50  |at the P|
000203b0 41 44 20 69 73 20 70 72  |AD is pr|
000203b8 6f 70 65 72 6c 79 20 63  |operly c|
000203c0 6f 6e 66 69 67 75 72 65  |onfigure|
000203c8 64 20                    |d       |		.XXX[0x2]
000203ca 44 20 41 20 50 20        |D A P   |		.TXT	'D A P '
000203d0 ; --------------------------------------------------------------------------------------
000203d0 ; OMSI PASCAL Function
000203d0 ;    <LVAR  0x008 @ 4(r)>
000203d0 ; --------------------------------------------------------------------------------------
000203d0 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
000203d4 bf d5                    |        |		CMPA.L	(A5),A7
000203d6 62 06                    |b       |		BHI	0x203de
000203d8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000203dc 4e 76                    |Nv      |		TRAPV
000203de de fc 00 0e              |        |		ADDA.W	#0xe,A7
000203e2 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000203e6 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
000203ea 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000203ec 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
000203f0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000203f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203f8 2e 90                    |.       |		MOVE.L	(A0),(A7)
000203fa 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
000203fe 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020404 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020406 3e bc 00 01              |>       |		MOVE.W	#0x1,(A7)
0002040a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002040c 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00020412 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020414 48 50                    |HP      |		PEA.L	(A0)
00020416 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002041c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002041e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020422 4e 5e                    |N^      |		UNLK	A6
00020424 4e 75                    |Nu      |		RTS
00020426 ; --------------------------------------------------------------------------------------
00020426 ; OMSI PASCAL Function
00020426 ;    <LVAR -0x004 @ 4(r)>
00020426 ; --------------------------------------------------------------------------------------
00020426 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0002042a bf d5                    |        |		CMPA.L	(A5),A7
0002042c 62 06                    |b       |		BHI	0x20434
0002042e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020432 4e 76                    |Nv      |		TRAPV
00020434 de fc 00 08              |        |		ADDA.W	#0x8,A7
00020438 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002043c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020442 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00020446 4e ba ff 88              |N       |		JSR	0x203d0
0002044a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002044c 4e 5e                    |N^      |		UNLK	A6
0002044e 4e 75                    |Nu      |		RTS
00020450 ; --------------------------------------------------------------------------------------
00020450 ; OMSI PASCAL Function
00020450 ;    <LVAR  0x008 @ 4(r)>
00020450 ; --------------------------------------------------------------------------------------
00020450 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020454 bf d5                    |        |		CMPA.L	(A5),A7
00020456 62 06                    |b       |		BHI	0x2045e
00020458 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002045c 4e 76                    |Nv      |		TRAPV
0002045e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020462 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020466 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0002046a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002046c 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020470 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020476 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020478 3e bc 00 02              |>       |		MOVE.W	#0x2,(A7)
0002047c 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002047e 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00020484 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020486 48 50                    |HP      |		PEA.L	(A0)
00020488 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002048e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020490 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020494 4e 5e                    |N^      |		UNLK	A6
00020496 4e 75                    |Nu      |		RTS
00020498 ; --------------------------------------------------------------------------------------
00020498 ; OMSI PASCAL Function
00020498 ;    <LVAR  0x00c 2(w)>
00020498 ;    <LVAR  0x008 4(r)>
00020498 ; --------------------------------------------------------------------------------------
00020498 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2		; Spelunked
0002049c bf d5                    |        |		CMPA.L	(A5),A7
0002049e 62 06                    |b       |		BHI	0x204a6
000204a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204a4 4e 76                    |Nv      |		TRAPV
000204a6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000204aa 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000204ae 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000204b0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000204b4 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
000204ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204bc 30 1f                    |0       |		MOVE.W	(A7)+,D0
000204be 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000204c2 3d 40 00 0c              |=@      |		MOVE.W	D0,(A6+0xc)
000204c6 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
000204ca 4e 5e                    |N^      |		UNLK	A6
000204cc 4e 75                    |Nu      |		RTS
000204ce ; --------------------------------------------------------------------------------------
000204ce ; OMSI PASCAL Function
000204ce ;    <LVAR -0x004 @ 1(r)>
000204ce ; --------------------------------------------------------------------------------------
000204ce 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000204d2 bf d5                    |        |		CMPA.L	(A5),A7
000204d4 62 06                    |b       |		BHI	0x204dc
000204d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204da 4e 76                    |Nv      |		TRAPV
000204dc de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000204e0 48 e7 c3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D1+D0,-(A7)
000204e4 43 f9 00 02 13 54        |C    T  |		LEA.L	0x21354,A1
000204ea 45 f9 00 02 0b 46        |E    F  |		LEA.L	0x20b46,A2
000204f0 72 02                    |r       |		MOVEQ.L	#0x02,D1
000204f2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000204f4 42 91                    |B       |		CLR.L	(A1)
000204f6 0c 87 00 00 00 14        |        |		CMPI.L	#0x00000014,D7
000204fc 67 74                    |gt      |		BEQ	0x20572
000204fe 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00020500 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020502 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020506 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
0002050c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002050e 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00020512 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00020516 66 4c                    |fL      |		BNE	0x20564
00020518 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002051a 20 11                    |        |		MOVE.L	(A1),D0
0002051c 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00020522 63 02                    |c       |		BLS	0x20526
00020524 4e 4f                    |NO      |		TRAP	#15
00020526 e3 80                    |        |		ASL.L	#0x1,D0
00020528 20 4a                    | J      |		MOVEA.L	A2,A0
0002052a 48 70 08 0e              |Hp      |		PEA.L	(A0+D0.L+#0xe)
0002052e 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
00020534 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020536 4a 39 00 02 0b 52        |J9   R  |		TST.B	0x20b52
0002053c 67 22                    |g"      |		BEQ	0x20560
0002053e 20 11                    |        |		MOVE.L	(A1),D0
00020540 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
00020546 63 02                    |c       |		BLS	0x2054a
00020548 4e 4f                    |NO      |		TRAP	#15
0002054a e3 80                    |        |		ASL.L	#0x1,D0
0002054c 20 4a                    | J      |		MOVEA.L	A2,A0
0002054e 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
00020552 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00020556 1f 00                    |        |		MOVE.B	D0,-(A7)
00020558 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
0002055e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020560 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020562 52 91                    |R       |		ADDQ.L	#0x1,(A1)
00020564 52 86                    |R       |		ADDQ.L	#0x1,D6
00020566 0c 86 00 00 03 e8        |        |		CMPI.L	#0x000003e8,D6
0002056c 6f 92                    |o       |		BLE	0x20500
0002056e 52 87                    |R       |		ADDQ.L	#0x1,D7
00020570 60 84                    |`       |		BRA	0x204f6
00020572 4c df 07 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2
00020576 4e 5e                    |N^      |		UNLK	A6
00020578 4e 75                    |Nu      |		RTS
0002057a ; --------------------------------------------------------------------------------------
0002057a ; OMSI PASCAL Function
0002057a ; --------------------------------------------------------------------------------------
0002057a 4e 56 ff 72              |NV r    |		LINK.W	A6,#0xff72
0002057e bf d5                    |        |		CMPA.L	(A5),A7
00020580 62 06                    |b       |		BHI	0x20588
00020582 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020586 4e 76                    |Nv      |		TRAPV
00020588 de fc 00 8a              |        |		ADDA.W	#0x8a,A7
0002058c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020590 45 f9 00 02 0b 46        |E    F  |		LEA.L	0x20b46,A2
00020596 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002059c 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000205a2 74 01                    |t       |		MOVEQ.L	#0x01,D2
000205a4 26 3c 00 00 03 ff        |&<      |		MOVE.L	#0x3ff,D3
000205aa 38 3c 00 ff              |8<      |		MOVE.W	#0xff,D4
000205ae 7a 24                    |z$      |		MOVEQ.L	#0x24,D5
000205b0 7c 40                    ||@      |		MOVEQ.L	#0x40,D6
000205b2 4e b9 00 01 02 16        |N       |		JSR	KC0b
000205b8 9e c5                    |        |		SUBA.W	D5,A7
000205ba 20 4f                    | O      |		MOVEA.L	A7,A0
000205bc 43 fa fb ee              |C       |		LEA.L	0x201ac,A1
000205c0 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000205c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000205c4 51 c8 ff fc              |Q       |		DBF	D0,0x205c2
000205c8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000205ca 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000205ce 3f 02                    |?       |		MOVE.W	D2,-(A7)
000205d0 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000205d4 4e 93                    |N       |		JSR	(A3)
000205d6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205d8 42 17                    |B       |		CLR.B	(A7)
000205da 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000205e0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205e2 10 1f                    |        |		MOVE.B	(A7)+,D0
000205e4 48 80                    |H       |		EXTB.W	D0
000205e6 41 82                    |A       |		CHK.W	D2,D0
000205e8 de c5                    |        |		ADDA.W	D5,A7
000205ea 13 c0 00 02 0b 52        |     R  |		MOVE.B	D0,0x20b52
000205f0 4e ba fe dc              |N       |		JSR	0x204ce
000205f4 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000205f6 20 4f                    | O      |		MOVEA.L	A7,A0
000205f8 43 fa fd d0              |C       |		LEA.L	0x203ca,A1
000205fc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000205fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020600 51 c8 ff fc              |Q       |		DBF	D0,0x205fe
00020604 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020606 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002060a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002060c 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020610 4e 93                    |N       |		JSR	(A3)
00020612 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020614 4e ba fe 3a              |N  :    |		JSR	0x20450
00020618 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002061c 4e ba fe b0              |N       |		JSR	0x204ce
00020620 4a b9 00 02 13 54        |J    T  |		TST.L	0x21354
00020626 66 6e                    |fn      |		BNE	0x20696
00020628 9e c6                    |        |		SUBA.W	D6,A7
0002062a 20 4f                    | O      |		MOVEA.L	A7,A0
0002062c 43 fa fb a2              |C       |		LEA.L	0x201d0,A1
00020630 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00020632 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020634 51 c8 ff fc              |Q       |		DBF	D0,0x20632
00020638 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002063a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002063e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020640 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00020644 4e 93                    |N       |		JSR	(A3)
00020646 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020648 4e 94                    |N       |		JSR	(A4)
0002064a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002064c 20 4f                    | O      |		MOVEA.L	A7,A0
0002064e 43 fa fb c0              |C       |		LEA.L	0x20210,A1
00020652 70 40                    |p@      |		MOVEQ.L	#0x40,D0
00020654 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020656 51 c8 ff fc              |Q       |		DBF	D0,0x20654
0002065a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002065c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020660 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020662 3f 3c 00 41              |?< A    |		MOVE.W	#0x41,-(A7)
00020666 4e 93                    |N       |		JSR	(A3)
00020668 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002066a 4e 94                    |N       |		JSR	(A4)
0002066c de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00020670 41 fa fc 14              |A       |		LEA.L	0x20286,A0
00020674 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020676 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020678 51 c8 ff fc              |Q       |		DBF	D0,0x20676
0002067c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002067e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020682 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020684 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
00020688 4e 93                    |N       |		JSR	(A3)
0002068a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002068c 4e 94                    |N       |		JSR	(A4)
0002068e de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00020692 60 00 01 c2              |`       |		BRA	0x20856
00020696 4a 39 00 02 0b 52        |J9   R  |		TST.B	0x20b52
0002069c 67 04                    |g       |		BEQ	0x206a2
0002069e 4e ba fd 86              |N       |		JSR	0x20426
000206a2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000206a4 be b9 00 02 13 54        |     T  |		CMP.L	0x21354,D7
000206aa 6c 00 01 68              |l  h    |		BGE	0x20814
000206ae 20 07                    |        |		MOVE.L	D7,D0
000206b0 52 80                    |R       |		ADDQ.L	#0x1,D0
000206b2 be 83                    |        |		CMP.L	D3,D7
000206b4 63 02                    |c       |		BLS	0x206b8
000206b6 4e 4f                    |NO      |		TRAP	#15
000206b8 22 07                    |"       |		MOVE.L	D7,D1
000206ba e3 81                    |        |		ASL.L	#0x1,D1
000206bc 20 4a                    | J      |		MOVEA.L	A2,A0
000206be 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
000206c2 c2 44                    | D      |		AND.W	D4,D1
000206c4 0c 01 00 53              |   S    |		CMPI.B	#0x53,D1
000206c8 66 00 01 44              |f  D    |		BNE	0x2080e
000206cc b0 83                    |        |		CMP.L	D3,D0
000206ce 63 02                    |c       |		BLS	0x206d2
000206d0 4e 4f                    |NO      |		TRAP	#15
000206d2 22 00                    |"       |		MOVE.L	D0,D1
000206d4 e3 81                    |        |		ASL.L	#0x1,D1
000206d6 20 4a                    | J      |		MOVEA.L	A2,A0
000206d8 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
000206dc c2 44                    | D      |		AND.W	D4,D1
000206de 0c 01 00 45              |   E    |		CMPI.B	#0x45,D1
000206e2 66 00 01 2a              |f  *    |		BNE	0x2080e
000206e6 22 07                    |"       |		MOVE.L	D7,D1
000206e8 54 81                    |T       |		ADDQ.L	#0x2,D1
000206ea b2 83                    |        |		CMP.L	D3,D1
000206ec 63 02                    |c       |		BLS	0x206f0
000206ee 4e 4f                    |NO      |		TRAP	#15
000206f0 e3 81                    |        |		ASL.L	#0x1,D1
000206f2 20 4a                    | J      |		MOVEA.L	A2,A0
000206f4 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
000206f8 c2 44                    | D      |		AND.W	D4,D1
000206fa 0c 01 00 52              |   R    |		CMPI.B	#0x52,D1
000206fe 66 00 01 0e              |f       |		BNE	0x2080e
00020702 22 07                    |"       |		MOVE.L	D7,D1
00020704 56 81                    |V       |		ADDQ.L	#0x3,D1
00020706 b2 83                    |        |		CMP.L	D3,D1
00020708 63 02                    |c       |		BLS	0x2070c
0002070a 4e 4f                    |NO      |		TRAP	#15
0002070c e3 81                    |        |		ASL.L	#0x1,D1
0002070e 20 4a                    | J      |		MOVEA.L	A2,A0
00020710 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
00020714 c2 44                    | D      |		AND.W	D4,D1
00020716 0c 01 00 56              |   V    |		CMPI.B	#0x56,D1
0002071a 66 00 00 f2              |f       |		BNE	0x2080e
0002071e 22 07                    |"       |		MOVE.L	D7,D1
00020720 58 81                    |X       |		ADDQ.L	#0x4,D1
00020722 b2 83                    |        |		CMP.L	D3,D1
00020724 63 02                    |c       |		BLS	0x20728
00020726 4e 4f                    |NO      |		TRAP	#15
00020728 e3 81                    |        |		ASL.L	#0x1,D1
0002072a 20 4a                    | J      |		MOVEA.L	A2,A0
0002072c 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
00020730 c2 44                    | D      |		AND.W	D4,D1
00020732 0c 01 00 49              |   I    |		CMPI.B	#0x49,D1
00020736 66 00 00 d6              |f       |		BNE	0x2080e
0002073a 22 07                    |"       |		MOVE.L	D7,D1
0002073c 5a 81                    |Z       |		ADDQ.L	#0x5,D1
0002073e b2 83                    |        |		CMP.L	D3,D1
00020740 63 02                    |c       |		BLS	0x20744
00020742 4e 4f                    |NO      |		TRAP	#15
00020744 e3 81                    |        |		ASL.L	#0x1,D1
00020746 20 4a                    | J      |		MOVEA.L	A2,A0
00020748 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
0002074c c2 44                    | D      |		AND.W	D4,D1
0002074e 0c 01 00 43              |   C    |		CMPI.B	#0x43,D1
00020752 66 00 00 ba              |f       |		BNE	0x2080e
00020756 22 07                    |"       |		MOVE.L	D7,D1
00020758 5c 81                    |\       |		ADDQ.L	#0x6,D1
0002075a b2 83                    |        |		CMP.L	D3,D1
0002075c 63 02                    |c       |		BLS	0x20760
0002075e 4e 4f                    |NO      |		TRAP	#15
00020760 e3 81                    |        |		ASL.L	#0x1,D1
00020762 20 4a                    | J      |		MOVEA.L	A2,A0
00020764 32 30 18 0e              |20      |		MOVE.W	(A0+D1.L+#0xe),D1
00020768 c2 44                    | D      |		AND.W	D4,D1
0002076a 0c 01 00 45              |   E    |		CMPI.B	#0x45,D1
0002076e 66 00 00 9e              |f       |		BNE	0x2080e
00020772 9e fc 00 42              |   B    |		SUBA.W	#0x42,A7
00020776 20 4f                    | O      |		MOVEA.L	A7,A0
00020778 43 fa fb 0c              |C       |		LEA.L	0x20286,A1
0002077c 72 40                    |r@      |		MOVEQ.L	#0x40,D1
0002077e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020780 51 c9 ff fc              |Q       |		DBF	D1,0x2077e
00020784 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020786 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002078a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002078c 3f 3c 00 41              |?< A    |		MOVE.W	#0x41,-(A7)
00020790 4e 93                    |N       |		JSR	(A3)
00020792 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020794 4e 94                    |N       |		JSR	(A4)
00020796 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
0002079a 41 fa fb 6c              |A  l    |		LEA.L	0x20308,A0
0002079e 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
000207a0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000207a2 51 c9 ff fc              |Q       |		DBF	D1,0x207a0
000207a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000207ae 3f 06                    |?       |		MOVE.W	D6,-(A7)
000207b0 4e 93                    |N       |		JSR	(A3)
000207b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207b4 4e 94                    |N       |		JSR	(A4)
000207b6 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000207ba 41 fa fb 88              |A       |		LEA.L	0x20344,A0
000207be 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000207c0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000207c2 51 c9 ff fc              |Q       |		DBF	D1,0x207c0
000207c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207c8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207cc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000207ce 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
000207d2 4e 93                    |N       |		JSR	(A3)
000207d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207d6 4e 94                    |N       |		JSR	(A4)
000207d8 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000207dc 20 4f                    | O      |		MOVEA.L	A7,A0
000207de 43 fa fb 64              |C  d    |		LEA.L	0x20344,A1
000207e2 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000207e4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000207e6 51 c9 ff fc              |Q       |		DBF	D1,0x207e4
000207ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207f0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000207f2 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000207f6 4e 93                    |N       |		JSR	(A3)
000207f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207fa 4e 94                    |N       |		JSR	(A4)
000207fc de fc 00 10              |        |		ADDA.W	#0x10,A7
00020800 42 17                    |B       |		CLR.B	(A7)
00020802 48 78 00 01              |Hx      |		PEA.L	0x1
00020806 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002080c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002080e 2e 00                    |.       |		MOVE.L	D0,D7
00020810 60 00 fe 92              |`       |		BRA	0x206a4
00020814 41 fa fb 76              |A  v    |		LEA.L	0x2038c,A0
00020818 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
0002081a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002081c 51 c8 ff fc              |Q       |		DBF	D0,0x2081a
00020820 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020822 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020826 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020828 3f 3c 00 3a              |?< :    |		MOVE.W	#0x3a,-(A7)
0002082c 4e 93                    |N       |		JSR	(A3)
0002082e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020830 4e 94                    |N       |		JSR	(A4)
00020832 20 4f                    | O      |		MOVEA.L	A7,A0
00020834 43 fa fb 56              |C  V    |		LEA.L	0x2038c,A1
00020838 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
0002083a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002083c 51 c8 ff fc              |Q       |		DBF	D0,0x2083a
00020840 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020842 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020846 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020848 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
0002084c 4e 93                    |N       |		JSR	(A3)
0002084e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020850 4e 94                    |N       |		JSR	(A4)
00020852 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020856 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002085a 48 78 00 01              |Hx      |		PEA.L	0x1
0002085e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020864 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020866 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002086a 4e 5e                    |N^      |		UNLK	A6
0002086c 4e 75                    |Nu      |		RTS
0002086e ; --------------------------------------------------------------------------------------
0002086e ; OMSI PASCAL Function
0002086e ; --------------------------------------------------------------------------------------
0002086e					START:
0002086e 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020872 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020878					MAIN:
00020878 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002087a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020880 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020882 48 78 01 80              |Hx      |		PEA.L	0x180
00020886 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
0002088c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002088e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020890 48 c0                    |H       |		EXTW.L	D0
00020892 23 c0 00 02 0b 4e        |#    N  |		MOVE.L	D0,0x20b4e
00020898 04 80 00 00 00 4d        |     M  |		SUBI.L	#0x0000004d,D0
0002089e 0c 80 00 00 00 0b        |        |		CMPI.L	#0x0000000b,D0
000208a4 62 5a                    |bZ      |		BHI	switch@0x208a8[0x1]
000208a6 d0 40                    | @      |		ADD.W	D0,D0
000208a8 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000208b0 00 18                    |        |		.CONST	0x18			; [0x0] -> 0x208c8
000208b2 00 50                    | P      |		.CONST	0x50			; [0x1] -> 0x20900
000208b4 00 50                    | P      |		.CONST	0x50			; [0x2] -> 0x20900
000208b6 00 50                    | P      |		.CONST	0x50			; [0x3] -> 0x20900
000208b8 00 50                    | P      |		.CONST	0x50			; [0x4] -> 0x20900
000208ba 00 50                    | P      |		.CONST	0x50			; [0x5] -> 0x20900
000208bc 00 50                    | P      |		.CONST	0x50			; [0x6] -> 0x20900
000208be 00 50                    | P      |		.CONST	0x50			; [0x7] -> 0x20900
000208c0 00 50                    | P      |		.CONST	0x50			; [0x8] -> 0x20900
000208c2 00 50                    | P      |		.CONST	0x50			; [0x9] -> 0x20900
000208c4 00 50                    | P      |		.CONST	0x50			; [0xa] -> 0x20900
000208c6 00 4a                    | J      |		.CONST	0x4a			; [0xb] -> 0x208fa
000208c8					switch@0x208a8[0x0]:
000208c8 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
000208cc 20 4f                    | O      |		MOVEA.L	A7,A0
000208ce 43 fa f8 5e              |C  ^    |		LEA.L	0x2012e,A1
000208d2 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
000208d4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000208d6 51 c8 ff fc              |Q       |		DBF	D0,0x208d4
000208da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000208dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000208e0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000208e2 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
000208e6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208ee 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000208f4 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000208f8 60 30                    |`0      |		BRA	0x2092a
000208fa					switch@0x208a8[0xb]:
000208fa 4e ba fc 7e              |N  ~    |		JSR	0x2057a
000208fe 60 3a                    |`:      |		BRA	0x2093a
00020900					switch@0x208a8[0x1]:
00020900					switch@0x208a8[0x2]:
00020900					switch@0x208a8[0x3]:
00020900					switch@0x208a8[0x4]:
00020900					switch@0x208a8[0x5]:
00020900					switch@0x208a8[0x6]:
00020900					switch@0x208a8[0x7]:
00020900					switch@0x208a8[0x8]:
00020900					switch@0x208a8[0x9]:
00020900					switch@0x208a8[0xa]:
00020900 41 fa f8 aa              |A       |		LEA.L	0x201ac,A0
00020904 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020906 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020908 51 c8 ff fc              |Q       |		DBF	D0,0x20906
0002090c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002090e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020912 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020914 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00020918 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002091e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020920 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020926 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
0002092a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002092e 48 78 00 01              |Hx      |		PEA.L	0x1
00020932 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020938 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002093a 4e b9 00 01 02 84        |N       |		JSR	?exit
00020940 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002094e ; --------------------------------------------------------------------------------------
0002094e ; OMSI PASCAL Function
0002094e ;    <LVAR  0x008 1(r)>
0002094e ; --------------------------------------------------------------------------------------
0002094e					PROG_FAIL:
0002094e 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020952 bf d5                    |        |		CMPA.L	(A5),A7
00020954 62 06                    |b       |		BHI	0x2095c
00020956 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002095a 4e 76                    |Nv      |		TRAPV
0002095c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020960 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020964 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00020968 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002096a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002096c 51 c8 ff fc              |Q       |		DBF	D0,0x2096a
00020970 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020974 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020976 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002097a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002097e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020982 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020988 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002098a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002098e 48 80                    |H       |		EXTB.W	D0
00020990 48 c0                    |H       |		EXTW.L	D0
00020992 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020994 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002099a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002099c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000209a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209a4 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000209aa de fc 00 14              |        |		ADDA.W	#0x14,A7
000209ae 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000209b2 4e 5e                    |N^      |		UNLK	A6
000209b4 4e 75                    |Nu      |		RTS
000209b6 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000209c4 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
000209d2 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000209e0 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000209f2 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00020a0a ; --------------------------------------------------------------------------------------
00020a0a ; OMSI PASCAL Function
00020a0a ;    <LVAR  0x00e 1(r)>
00020a0a ;    <LVAR  0x00a 4(r)>
00020a0a ;    <LVAR  0x008 1(r)>
00020a0a ; --------------------------------------------------------------------------------------
00020a0a					EXP_FAIL:
00020a0a 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020a0e bf d5                    |        |		CMPA.L	(A5),A7
00020a10 62 06                    |b       |		BHI	0x20a18
00020a12 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a16 4e 76                    |Nv      |		TRAPV
00020a18 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020a1c 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020a20 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020a26 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020a2c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020a2e 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020a30 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020a32 78 12                    |x       |		MOVEQ.L	#0x12,D4
00020a34 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020a36 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020a3c 41 fa ff b4              |A       |		LEA.L	0x209f2,A0
00020a40 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020a42 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a44 51 c8 ff fc              |Q       |		DBF	D0,0x20a42
00020a48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a4a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a4e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a50 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a52 4e 93                    |N       |		JSR	(A3)
00020a54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a56 4e 94                    |N       |		JSR	(A4)
00020a58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a5a 20 4f                    | O      |		MOVEA.L	A7,A0
00020a5c 43 fa ff 58              |C  X    |		LEA.L	0x209b6,A1
00020a60 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020a62 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a64 51 c8 ff fc              |Q       |		DBF	D0,0x20a62
00020a68 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a6a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020a6e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a70 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a72 4e 93                    |N       |		JSR	(A3)
00020a74 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a76 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00020a7a 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00020a80 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a82 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020a88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a8a 4e 94                    |N       |		JSR	(A4)
00020a8c de c4                    |        |		ADDA.W	D4,A7
00020a8e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020a92 b0 c1                    |        |		CMPA.W	D1,A0
00020a94 67 48                    |gH      |		BEQ	0x20ade
00020a96 9e c5                    |        |		SUBA.W	D5,A7
00020a98 22 4f                    |"O      |		MOVEA.L	A7,A1
00020a9a 45 fa ff 28              |E  (    |		LEA.L	0x209c4,A2
00020a9e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020aa0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020aa2 51 c8 ff fc              |Q       |		DBF	D0,0x20aa0
00020aa6 9e c3                    |        |		SUBA.W	D3,A7
00020aa8 22 4f                    |"O      |		MOVEA.L	A7,A1
00020aaa 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020aae 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020ab0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020ab2 51 c8 ff fc              |Q       |		DBF	D0,0x20ab0
00020ab6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ab8 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020abc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020abe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ac0 4e 93                    |N       |		JSR	(A3)
00020ac2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ac4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020ac8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020aca 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020acc 4e 93                    |N       |		JSR	(A3)
00020ace 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ad0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020ad6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ad8 4e 94                    |N       |		JSR	(A4)
00020ada de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020ade 9e c5                    |        |		SUBA.W	D5,A7
00020ae0 20 4f                    | O      |		MOVEA.L	A7,A0
00020ae2 43 fa fe ee              |C       |		LEA.L	0x209d2,A1
00020ae6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020ae8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020aea 51 c8 ff fc              |Q       |		DBF	D0,0x20ae8
00020aee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020af0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020af4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020af6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020af8 4e 93                    |N       |		JSR	(A3)
00020afa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020afc 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020b00 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00020b06 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b08 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020b0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b10 4e 94                    |N       |		JSR	(A4)
00020b12 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020b14 20 4f                    | O      |		MOVEA.L	A7,A0
00020b16 43 fa fe da              |C       |		LEA.L	0x209f2,A1
00020b1a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020b1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020b1e 51 c8 ff fc              |Q       |		DBF	D0,0x20b1c
00020b22 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020b26 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b28 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020b2c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020b2e 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020b32 4e 93                    |N       |		JSR	(A3)
00020b34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b36 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020b3c de c3                    |        |		ADDA.W	D3,A7
00020b3e 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020b42 4e 5e                    |N^      |		UNLK	A6
00020b44 4e 75                    |Nu      |		RTS