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

⟦c854f744d⟧ M200

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

Derivation

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

Disassembly

0x20260


@ 20260
        <LVAR  0x008 4(r)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x014 2(w)>
        <LVAR -0x018 @>
        <LVAR -0x01c 2(w)>
        <LVAR -0x03c @>
        <LVAR -0x03e @>
        <LVAR -0x040 @ 1(r)>
    <POP 20260-203b8 Body>                                              
        <POP 20260-20276 Prologue>                           Σ0         ↓
        <POP 20276-20282 RegCacheLoad>                       Σ0         ↓
        <POP 20282-20284 Naked>                              Σ0         ↓
            <MI 20282  MOVEQ.L #0x00,D6>                                        {}
        <POP 20284-202bc Naked>                              Σ0         ↓ →0x20284 ←0x20284
            <MI 20284  MOVE.B  D6,D0>                                           {}
            <MI 20286  EXTB.W  D0>                                              {}
            <MI 20288  MULS.W  #0x14,D0>                                        {}
            <MI 2028a  LEA.L   0x20238,A0>                                      {}
            <Blob 0x2028e [20] (A0+D0.W)>                    Δ-20               {[«20»]}
            <POP 2029e-202a0 StackAdj>                       Δ-4                {[«20»]|[-4-]}
            <Lit 0x202a0>                                                       {[«20»]|[$$…]}
                <Pointer.sp 0x202a0 4>                       Δ-4        
                <Const 0x202a4 0x1.2>                        Δ-2        
                <Const 0x202a6 0x14.2>                       Δ-2        
                <Call 0x202a8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 202aa-202ac StackAdj>                   Δ+8        
            <Call 0x202ac 0x103e0>                                              {[«20»]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 202b2-202b6 StackAdj>                       Δ+24               {}
            <MI 202b6  ADDQ.B  #0x1,D6>                                         {}
            <MI 202b8  CMP.B   #0x01,D6>                                        {}
            <MI 202ba  BLE     0x20284>                                         {}
        <POP 202bc-2030a Naked>                              Σ0         ↓
            <Blob 0x202bc [20] @>                            Δ-20               {[«20""»]}
            <POP 202c8-202ca StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x202ca 20>                                                    {[«20""»]|[-4-]|[$$Enter test option :_]}
            <Const 0x202d6 0x0.4>                            Δ-4                {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]}
            <Const 0x202da 0x1.4>                            Δ-4                {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
            <Call 0x202de 0x103ec>                                              {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 202e4-202e8 StackAdj>                       Δ+12               {[«20""»]|[-4-]}
            <MI 202e8  MOVE.L  (A7)+,D0>                     Δ+4                {[«20""»]}
            <POP 0x202ea LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«20""»]}
            <POP 202f4-202f6 StackAdj>                       Δ+20               {}
            <MI 202f6  MOVE.W  D0,(A6-0x1c)>                                    {}
            <MI 202fa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 202fe  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 20300  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20302  EXTB.W  D0>                                              {}
            <POP 0x20304 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20306  MOVE.B  D0,(A0)>                                         {}
            <MI 20308  MOVEQ.L #0x00,D5>                                        {}
        <POP 2030a-2030c Naked>                              Σ0         ↓ ←0x20338
            <MI 2030a  MOVEQ.L #0x00,D7>                                        {}
        <POP 2030c-20338 Naked>                              Σ0         ↓ →0x2030c ←0x2030c
            <POP 0x2030c LimitCheck 0x0 ≤ D5 ≤ 0xf>                             {}
            <MI 20312  MOVE.L  D5,D0>                                           {}
            <MI 20314  ASL.L   #0x1,D0>                                         {}
            <POP 0x20316 LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 2031c  LEA.L   (A6+D0.L-#0x3c),A0>                              {}
            <MI 20320  MOVE.L  D7,D0>                                           {}
            <MI 20322  ROR.L   #0x3,D0>                                         {}
            <MI 20324  ADDA.W  D0,A0>                                           {}
            <MI 20326  SWAP.W  D0>                                              {}
            <MI 20328  ROL.W   #0x3,D0>                                         {}
            <MI 2032a  MOVE.W  #0xff7f,D1>                                      {}
            <MI 2032e  ROR.W   D0,D1>                                           {}
            <MI 20330  AND.B   D1,(A0)>                                         {}
            <MI 20332  ADDQ.L  #0x1,D7>                                         {}
            <MI 20334  CMP.L   #0x0f,D7>                                        {}
            <MI 20336  BLE     0x2030c>                                         {}
        <POP 20338-2033e Naked>                              Σ0         ↓ →0x2030a
            <MI 20338  ADDQ.L  #0x1,D5>                                         {}
            <MI 2033a  CMP.L   #0x0f,D5>                                        {}
            <MI 2033c  BLE     0x2030a>                                         {}
        <POP 2033e-20374 Naked>                              Σ0         ↓ →0x2039e
            <MI 2033e  MOVE.W  #0x01,(A6-0x14)>                                 {}
            <MI 20342  MOVE.W  #0x2,(A6-0xe)>                                   {}
            <Pointer.fp 0x20348 <LVAR -0x018 @>>             Δ-4                {[@@-24]}
            <MI 2034c  LEA.L   (A6-0x3e),A0>                                    {[@@-24]}
            <MI 20350  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-24]|[4, 'A0']}
            <Const 0x20352 0x3.2>                            Δ-2                {[@@-24]|[4, 'A0']|[#3]}
            <Call 0x20356 0x10204>                                              {[@@-24]|[4, 'A0']|[#3]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 2035c-2035e StackAdj>                       Δ+8                {[-2-]}
            <POP 2035e-2035f StackAdj>                       Δ+2                {}
            <Const 0x2035f 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x20362 <LVAR -0x040 @ 1(r)>>        Δ-4                {[#3]|[@@-64]}
            <Call 0x20366 0x10206>                                              {[#3]|[@@-64]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 2036c-2036e StackAdj>                       Δ+6                {}
            <MI 2036e  TST.B   (A6-0x40)>                                       {}
            <MI 20372  BNE     0x2039e>                                         {}
        <POP 20374-2039e Naked>                              Σ0         ↓
            <Blob 0x20374 [34] @>                            Δ-34               {[«34""»]}
            <Const 0x20380 0xe.2>                            Δ-2                {[«34""»]|[#14]}
            <POP 20384-20386 StackAdj>                       Δ-4                {[«34""»]|[#14]|[-4-]}
            <Lit 0x20386 34>                                                    {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
            <Call 0x20394 0x103b8>                                              {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
                PopProgram(status : Byte; msg : String)
            <POP 2039a-2039e StackAdj>                       Δ+40               {}
        <POP 2039e-203b0 Naked>                              Σ0         ↓ ←0x2033e
            <MI 2039e  LEA.L   0x20abe,A0>                                      {}
            <MI 203a4  LEA.L   (A6-0x3c),A1>                                    {}
            <BlockMove 32,A1,A0>                                                {}
        <POP 203b0-203b8 Epilogue>                           Σ0         

0x203b8


@ 203b8
        <LVAR  0x010 1(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @ 2(r)>
    <POP 203b8-20424 Body>                                              
        <POP 203b8-203ce Prologue>                           Σ0         ↓
        <POP 203ce-203d2 RegCacheLoad>                       Σ0         ↓
        <POP 203d2-203f6 Naked>                              Σ0         ↓ →0x203f8 ←0x203f8 ←0x20412
            <MI 203d2  MOVE.L  (A6+0xc),D0>                                     {}
            <POP 0x203d6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 203e0  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x203e2 <LVAR -0x00a @ 2(r)>>        Δ-4                {[2, 'D0']|[@@-10]}
            <Call 0x203e4 0x1021c>                                              {[2, 'D0']|[@@-10]}
                KERNCALL_0e
            <POP 203ea-203ec StackAdj>                       Δ+6                {}
            <MI 203ec  MOVEQ.L #0x00,D7>                                        {}
            <MI 203ee  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 203f0  ANDI.W  #0x8000,D0>                                      {}
            <MI 203f4  BEQ     0x203f8>                                         {}
        <POP 203f6-203f8 Naked>                              Σ0         ↓
            <MI 203f6  ADDQ.B  #0x1,D7>                                         {}
        <POP 203f8-20412 Naked>                              Σ0         ↓ →0x203d2 ←0x203d2
            <MI 203f8  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 203fa  ANDI.W  #0x0f00,D0>                                      {}
            <MI 203fe  LSR.W   #0x8,D0>                                         {}
            <MI 20400  CLR.L   D1>                                              {}
            <MI 20402  MOVE.W  D0,D1>                                           {}
            <MI 20404  MOVE.L  D1,D6>                                           {}
            <MI 20406  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 20408  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2040c  MOVE.B  D0,D5>                                           {}
            <MI 2040e  TST.B   D7>                                              {}
            <MI 20410  BEQ     0x203d2>                                         {}
        <POP 20412-20418 Naked>                              Σ0         ↓ →0x203d2
            <MI 20412  CMP.L   (A6+0x8),D6>                                     {}
            <MI 20416  BNE     0x203d2>                                         {}
        <POP 20418-2041c Naked>                              Σ0         ↓
            <MI 20418  MOVE.B  D5,(A6+0x10)>                                    {}
        <POP 2041c-20424 Epilogue>                           Σ0         

0x20424


@ 20424
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20424-2049a Body>                                              
        <POP 20424-2043a Prologue>                           Σ0         ↓
        <POP 2043a-2043e RegCacheLoad>                       Σ0         ↓
        <POP 2043e-20492 Naked>                              Σ0         ↓
            <MI 2043e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Const 0x20440 0xa.2>                            Δ-2                {[4, '(A6+0x10)']|[#10]}
            <Call 0x20444 0x102c0>                                              {[4, '(A6+0x10)']|[#10]}
                AppendChar(MOD b : String; a : char)
            <POP 2044a-2044c StackAdj>                       Δ+2                {[4, '(A6+0x10)']}
            <MI 2044c  MOVE.L  (A6+0x10),(A7)>                                  {[4, '(A6+0x10)']}
            <Const 0x2044e 0xd.2>                            Δ-2                {[4, '(A6+0x10)']|[#13]}
            <Call 0x20452 0x102c0>                                              {[4, '(A6+0x10)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20458-2045a StackAdj>                       Δ+6                {}
            <MI 2045a  MOVE.L  (A6+0xc),D0>                                     {}
            <POP 0x2045e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 20468  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 2046a  MOVE.L  (A6+0x8),D0>                                     {[2, 'D0']}
            <POP 0x2046e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[2, 'D0']}
            <MI 20478  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <MI 2047a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
            <Call 0x2047c 0x1021a>                                              {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
                KC0d_Write_Modem_String(Word, Word, Char)
            <POP 20482-20484 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20484 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Const 0x20486 0x80.4>                           Δ-4                {[@@16]|[##128]}
            <Call 0x2048a 0x102a8>                                              {[@@16]|[##128]}
                Free2(a : Pointer; b : Long)
            <POP 20490-20492 StackAdj>                       Δ+8                {}
        <POP 20492-2049a Epilogue>                           Σ0         

0x2049a


@ 2049a
        <LVAR -0x00a @ 1(r)>
        <LVAR -0x00c @>
    <POP 2049a-205e0 Body>                                              
        <POP 2049a-204b0 Prologue>                           Σ0         ↓
        <POP 204b0-204c0 RegCacheLoad>                       Σ0         ↓
        <POP 204c0-204e6 Naked>                              Σ0         ↓
            <Blob 0x204c0 [30] @>                            Δ-30               {[«30""»]}
            <POP 204cc-204ce StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x204ce 30>                                                    {[«30""»]|[$$Type any character to exit.   ]}
            <Call 0x204dc 0x103e0>                                              {[«30""»]|[$$Type any character to exit.   ]}
                WriteConsoleStringCrLf(str : String)
            <POP 204e2-204e6 StackAdj>                       Δ+34               {}
        <POP 204e6-204e8 Naked>                              Σ0         ↓ ←0x205d0
            <MI 204e6  MOVEQ.L #0x00,D5>                                        {}
        <POP 204e8-204ea Naked>                              Σ0         ↓ ←0x2058e
            <MI 204e8  MOVEQ.L #0x00,D7>                                        {}
        <POP 204ea-20518 Naked>                              Σ0         ↓ →0x20586 ←0x20586
            <POP 0x204ea LimitCheck 0x0 ≤ D5 ≤ 0xf>                             {}
            <MI 204f0  MOVE.L  D5,D0>                                           {}
            <MI 204f2  ASL.L   #0x1,D0>                                         {}
            <MI 204f4  LEA.L   0x20ab2,A0>                                      {}
            <POP 0x204fa LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 20500  LEA.L   (A0+D0.L+#0xc),A0>                               {}
            <MI 20504  MOVE.L  D7,D0>                                           {}
            <MI 20506  ROR.L   #0x3,D0>                                         {}
            <MI 20508  ADDA.W  D0,A0>                                           {}
            <MI 2050a  SWAP.W  D0>                                              {}
            <MI 2050c  ROL.W   #0x3,D0>                                         {}
            <MI 2050e  MOVE.B  (A0),D1>                                         {}
            <MI 20510  LSL.B   D0,D1>                                           {}
            <MI 20512  LSR.B   #0x7,D1>                                         {}
            <MI 20514  MOVE.B  D1,D6>                                           {}
            <MI 20516  BEQ     0x20586>                                         {}
        <POP 20518-20586 Naked>                              Σ0         ↓
            <Blob 0x20518 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2052a [10] @>                            Δ-10               {[«14""»]|[«10""»]}
            <POP 2053c-2053e StackAdj>                       Δ-8                {[«14""»]|[«10""»]|[-8-]}
            <Lit 0x2053e 13>                                                    {[«14""»]|[«10""»]|[-4-]|[$$This is line_]}
            <MI 2054a  MOVE.L  D7,(A7)>                                         {[«14""»]|[«10""»]|[-4-]|[4, 'D7']}
            <POP 20548-2054a StackAdj>                       Δ-8                {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x2054c 0x102e4>                                              {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x20552 9>                                                     {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ on unit_]}
            <MI 2055e  MOVE.L  D5,(A7)>                                         {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
            <POP 2055c-2055e StackAdj>                       Δ-8                {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
            <Call 0x20560 0x102e4>                                              {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
                Long2String(a : Long) : String
            <POP 20566-20568 StackAdj>                       Δ+4                {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
            <Call 0x20568 0x102d8>                                              {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2056e-20572 StackAdj>                       Δ+16               {[«14""»]|[«10""»]|[-4-]}
            <MI 20572  MOVEA.L (A7)+,A4>                     Δ+4                {[«14""»]|[«10""»]}
            <POP 20574-20578 StackAdj>                       Δ+20               {[-4-]}
            <MI 20578  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 2057a  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'A4']|[4, 'D5']}
            <MI 2057c  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'A4']|[4, 'D5']|[4, 'D7']}
            <Call 0x2057e 0x20424>                                              {[4, 'A4']|[4, 'D5']|[4, 'D7']}
            <POP 20582-20586 StackAdj>                       Δ+12               {}
        <POP 20586-2058e Naked>                              Σ0         ↓ →0x204ea ←0x204ea
            <MI 20586  ADDQ.L  #0x1,D7>                                         {}
            <MI 20588  CMP.L   #0x0f,D7>                                        {}
            <MI 2058a  BLE     0x204ea>                                         {}
        <POP 2058e-20596 Naked>                              Σ0         ↓ →0x204e8
            <MI 2058e  ADDQ.L  #0x1,D5>                                         {}
            <MI 20590  CMP.L   #0x0f,D5>                                        {}
            <MI 20592  BLE     0x204e8>                                         {}
        <POP 20596-205b6 Naked>                              Σ0         ↓ →0x205d0
            <MI 20596  MOVE.L  0x20aba,D0>                                      {}
            <POP 0x20598 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 205a2  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x205a4 <LVAR -0x00a @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]}
            <Call 0x205a8 0x10212>                                              {[2, 'D0']|[@@-10]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 205ae-205b0 StackAdj>                       Δ+6                {}
            <MI 205b0  TST.B   (A6-0xa)>                                        {}
            <MI 205b4  BEQ     0x205d0>                                         {}
        <POP 205b6-205d0 Naked>                              Σ0         ↓
            <MI 205b6  MOVE.L  0x20aba,D0>                                      {}
            <POP 0x205b8 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 205c2  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x205c4 <LVAR -0x00c @>>             Δ-4                {[2, 'D0']|[@@-12]}
            <Call 0x205c8 0x1020e>                                              {[2, 'D0']|[@@-12]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 205ce-205d0 StackAdj>                       Δ+6                {}
        <POP 205d0-205d8 Naked>                              Σ0         ↓ →0x204e6 ←0x20596
            <MI 205d0  TST.B   (A6-0xa)>                                        {}
            <MI 205d4  BEQ     0x204e6>                                         {}
        <POP 205d8-205e0 Epilogue>                           Σ0         

0x205e0


@ 205e0
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x010 @ 2(r)>
    <POP 205e0-20818 Body>                                              
        <POP 205e0-205f6 Prologue>                           Σ0         ↓
        <POP 205f6-20606 RegCacheLoad>                       Σ0         ↓
        <POP 20606-20630 Naked>                              Σ0         ↓
            <Blob 0x20606 [28] @>                            Δ-28               {[«28""»]}
            <POP 20618-2061a StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x2061a 27>                                                    {[«28""»]|[$$Type any character to exit.]}
            <Call 0x20628 0x103e0>                                              {[«28""»]|[$$Type any character to exit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 2062e-20630 StackAdj>                       Δ+32               {}
        <POP 20630-20632 Naked>                              Σ0         ↓ ←0x20808
            <MI 20630  MOVEQ.L #0x00,D7>                                        {}
        <POP 20632-2064c Naked>                              Σ0         ↓ →0x207c0 ←0x207c0
            <POP 0x20632 LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 20638  MOVE.L  D7,D0>                                           {}
            <MI 2063a  ASL.L   #0x1,D0>                                         {}
            <MI 2063c  LEA.L   0x20ab2,A0>                                      {}
            <MI 20642  MOVE.B  (A0+D0.L+#0xc),D1>                               {}
            <MI 20646  LSR.B   #0x7,D1>                                         {}
            <MI 20648  BEQ     0x207c0>                                         {}
        <POP 2064c-2066c Naked>                              Σ0         ↓ →0x207c0
            <POP 0x2064c LimitCheck 0x0 ≤ D7 ≤ 0xffff>                          {}
            <MI 20656  MOVE.W  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Pointer.fp 0x20658 <LVAR -0x010 @ 2(r)>>        Δ-4                {[2, 'D7']|[@@-16]}
            <Call 0x2065a 0x1021c>                                              {[2, 'D7']|[@@-16]}
                KERNCALL_0e
            <POP 20660-20662 StackAdj>                       Δ+6                {}
            <MI 20662  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 20664  ANDI.W  #0x8000,D0>                                      {}
            <MI 20668  BEQ     0x207c0>                                         {}
        <POP 2066c-20712 Naked>                              Σ0         ↓ →0x2073a
            <MI 2066c  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 2066e  ANDI.W  #0x0f00,D0>                                      {}
            <MI 20672  LSR.W   #0x8,D0>                                         {}
            <MI 20674  CLR.L   D1>                                              {}
            <MI 20676  MOVE.W  D0,D1>                                           {}
            <MI 20678  MOVE.L  D1,D6>                                           {}
            <MI 2067a  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 2067c  ANDI.W  #0x00ff,D0>                                      {}
            <MI 20680  CLR.L   D1>                                              {}
            <MI 20682  MOVE.W  D0,D1>                                           {}
            <MI 20684  MOVE.L  D1,D5>                                           {}
            <Blob 0x20686 [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x20696 [10] @>                            Δ-10               {[«6""»]|[«10""»]}
            <Blob 0x206a8 [4] @>                             Δ-4                {[«6""»]|[«10""»]|[«4""»]}
            <Blob 0x206ac [4] @>                             Δ-4                {[«6""»]|[«10""»]|[«4""»]|[«4""»]}
            <Blob 0x206b0 [4] @>                             Δ-4                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x206b4 [4] @>                             Δ-4                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 206b8-206ba StackAdj>                       Δ-8                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x206ba 5>                                                     {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Line_]}
            <MI 206c6  MOVE.L  D6,(A7)>                                         {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']}
            <POP 206c4-206c6 StackAdj>                       Δ-8                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
            <Call 0x206c8 0x102e4>                                              {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x206ce 9>                                                     {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ on unit_]}
            <MI 206da  MOVE.L  D7,(A7)>                                         {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']}
            <POP 206d8-206da StackAdj>                       Δ-8                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x206dc 0x102e4>                                              {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x206e2 16>                                                    {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[$$ recieved ascii_]}
            <MI 206ee  MOVE.L  D5,(A7)>                                         {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
            <POP 206ec-206ee StackAdj>                       Δ-8                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
            <Const 0x206f0 0x2.4>                            Δ-4                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]|[##2]}
            <Call 0x206f4 0x102e8>                                              {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 206fa-206fc StackAdj>                       Δ+8                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
            <Call 0x206fc 0x102e0>                                              {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 20702-20706 StackAdj>                       Δ+24               {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 20706  MOVEA.L (A7)+,A4>                     Δ+4                {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 20708-2070a StackAdj>                       Δ+32               {}
            <MI 2070a  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 2070c  ANDI.W  #0x4000,D0>                                      {}
            <MI 20710  BEQ     0x2073a>                                         {}
        <POP 20712-2073a Naked>                              Σ0         ↓
            <Blob 0x20712 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20716 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2071a-2071c StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 2071c  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 2071e-20720 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x20720 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
            <Call 0x2072e 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
                StringCat2(a, b : String) : String
            <POP 20734-20736 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 20736  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 20738-2073a StackAdj>                       Δ+8                {}
        <POP 2073a-20742 Naked>                              Σ0         ↓ →0x2076a ←0x2066c
            <MI 2073a  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 2073c  ANDI.W  #0x2000,D0>                                      {}
            <MI 20740  BEQ     0x2076a>                                         {}
        <POP 20742-2076a Naked>                              Σ0         ↓
            <Blob 0x20742 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20746 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2074a-2074c StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 2074c  MOVE.L  A4,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
            <POP 2074e-20750 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x20750 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
            <Call 0x2075e 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
                StringCat2(a, b : String) : String
            <POP 20764-20766 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 20766  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 20768-2076a StackAdj>                       Δ+8                {}
        <POP 2076a-20772 Naked>                              Σ0         ↓ →0x207a2 ←0x2073a
            <MI 2076a  MOVE.W  (A6-0x10),D0>                                    {}
            <MI 2076c  ANDI.W  #0x1000,D0>                                      {}
            <MI 20770  BEQ     0x207a2>                                         {}
        <POP 20772-207a2 Naked>                              Σ0         ↓
            <Blob 0x20772 [8] @>                             Δ-8                {[«8""»]}
            <POP 20782-20784 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <MI 20784  MOVE.L  A4,-(A7)>                     Δ-4                {[«8""»]|[-4-]|[4, 'A4']}
            <POP 20786-20788 StackAdj>                       Δ-4                {[«8""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x20788 7>                                                     {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
            <Call 0x20796 0x102d0>                                              {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
                StringCat2(a, b : String) : String
            <POP 2079c-2079e StackAdj>                       Δ+8                {[«8""»]|[-4-]}
            <MI 2079e  MOVEA.L (A7)+,A4>                     Δ+4                {[«8""»]}
            <POP 207a0-207a2 StackAdj>                       Δ+8                {}
        <POP 207a2-207c0 Naked>                              Σ0         ↓ ←0x2076a
            <POP 207a2-207a4 StackAdj>                       Δ-4                {[-4-]}
            <MI 207a4  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']}
            <Call 0x207a6 0x102cc>                                              {[-4-]|[4, 'A4']}
                StringDup(a : String) : String
            <MI 207ac  MOVE.L  D7,(A7)>                                         {[-4-]|[4, 'D7']}
            <MI 207ae  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D7']|[4, 'D6']}
            <Call 0x207b0 0x20424>                                              {[-4-]|[4, 'D7']|[4, 'D6']}
            <POP 207b4-207b6 StackAdj>                       Δ+8                {[-4-]}
            <MI 207b6  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x207b8 0x103e0>                                              {[4, 'A4']}
                WriteConsoleStringCrLf(str : String)
            <POP 207be-207c0 StackAdj>                       Δ+4                {}
        <POP 207c0-207c8 Naked>                              Σ0         ↓ →0x20632 ←0x20632 ←0x2064c
            <MI 207c0  ADDQ.L  #0x1,D7>                                         {}
            <MI 207c2  CMP.L   #0x0f,D7>                                        {}
            <MI 207c4  BLE     0x20632>                                         {}
        <POP 207c8-207ec Naked>                              Σ0         ↓ →0x20808
            <MI 207c8  MOVE.L  0x20aba,D0>                                      {}
            <POP 0x207ce LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207d8  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x207da <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-2]}
            <Call 0x207de 0x10212>                                              {[2, 'D0']|[@@-2]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 207e4-207e6 StackAdj>                       Δ+6                {}
            <MI 207e6  TST.B   (A6-0x2)>                                        {}
            <MI 207ea  BEQ     0x20808>                                         {}
        <POP 207ec-20808 Naked>                              Σ0         ↓
            <MI 207ec  MOVE.L  0x20aba,D0>                                      {}
            <POP 0x207f2 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207fc  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x207fe <LVAR -0x010 @ 2(r)>>        Δ-4                {[2, 'D0']|[@@-16]}
            <Call 0x20800 0x1020e>                                              {[2, 'D0']|[@@-16]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 20806-20808 StackAdj>                       Δ+6                {}
        <POP 20808-20810 Naked>                              Σ0         ↓ →0x20630 ←0x207c8
            <MI 20808  TST.B   (A6-0x2)>                                        {}
            <MI 2080c  BEQ     0x20630>                                         {}
        <POP 20810-20818 Epilogue>                           Σ0         

0x20818


@ 20818
START
    <POP 20818--0001 Body>                                              
        <POP 20818-20822 Prologue>                           Σ0         
        <POP 20822-2082a RegCacheLoad>                       Σ0         ↓
        <POP 2082a-2088a Naked>                              Σ0         →0x2088e →0x20894
            <Call 0x2082a 0x10398>                                              {}
                FSCALL_10398
            <POP 20830-20832 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x20832 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 20838  MOVE.L  (A7),0x20aba>                                    {[-4-]}
            <POP 2083e-2083f StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2083f [38] @>                            Δ-38               {[«38""»]}
            <POP 20850-20852 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x20852 37>                                                    {[«38""»]|[$$DH11 Communications multiplexer test.]}
            <Call 0x20864 0x103e0>                                              {[«38""»]|[$$DH11 Communications multiplexer test.]}
                WriteConsoleStringCrLf(str : String)
            <POP 2086a-2086e StackAdj>                       Δ+42               {}
            <Const 0x2086e 0x20ade.4>                        Δ-4                {[##133854]}
            <Call 0x20870 0x20260>                                              {[##133854]}
            <POP 20874-20876 StackAdj>                       Δ+4                {}
            <MI 20876  MOVE.B  0x20ade,D0>                                      {}
            <MI 20878  EXTB.W  D0>                                              {}
            <POP 0x2087a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20880  ADD.W   D0,D0>                                           {}
            <MI 20882  SWITCH  D0.W>                                            {}
        <POP 2088e-20894 Naked>                              Σ0         →0x20898 ←0x2082a
            <Call 0x2088e 0x205e0>                                              {}
            <MI 20892  BRA     0x20898>                                         {}
        <POP 20894-20898 Naked>                              Σ0         ↓ ←0x2082a
            <Call 0x20894 0x2049a>                                              {}
        <POP 20898-208a6 Naked>                              Σ0         ↓ ←0x2088e
            <MI 20898  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2089a 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x2089e 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 208a4-208a6 StackAdj>                       Δ+6                {}
        <POP 208a6-208ac Naked>                              Σ0         
            <Call 0x208a6 0x10284>                                              {}
                ?exit

0x208ba


@ 208ba
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 208ba-20922 Body>                                              
        <POP 208ba-208d0 Prologue>                           Σ0         ↓
        <POP 208d0-2091a Naked>                              Σ0         ↓
            <Blob 0x208d0 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x208dc 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 208e0-208e2 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x208e2 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 208f4-208f6 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 208f6  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 208fa  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 208fc  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 208fe  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20900 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20906-20908 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x20908 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2090e-20910 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20910 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20916-2091a StackAdj>                       Δ+20               {}
        <POP 2091a-20922 Epilogue>                           Σ0         

0x20976


@ 20976
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 20976-20ab2 Body>                                              
        <POP 20976-2098c Prologue>                           Σ0         ↓
        <POP 2098c-209a2 RegCacheLoad>                       Σ0         ↓
        <POP 209a2-20a02 Naked>                              Σ0         ↓ →0x20a4a
            <Call 0x209a2 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x209a8 [18] @>                            Δ-18               {[«18""»]}
            <POP 209b4-209b6 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x209b6 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x209c2 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 209c4-209c5 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x209c5 [14] @>                            Δ-14               {[«14""»]}
            <POP 209d4-209d6 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x209d6 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 209e0-209e2 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 209e2  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x209e6 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 209ec-209ee StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x209ee 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 209f4-209f6 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x209f6 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 209f8-209fa StackAdj>                       Δ+18               {}
            <MI 209fa  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 209fe  CMPA.W  #0x01,A0>                                        {}
            <MI 20a00  BEQ     0x20a4a>                                         {}
        <POP 20a02-20a4a Naked>                              Σ0         ↓
            <Blob 0x20a02 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20a12 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20a22-20a24 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x20a24 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20a2e-20a30 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x20a30>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x20a30 12>                      Δ-4        
                <Const 0x20a34 0x1.2>                        Δ-2        
                <Const 0x20a36 0x1e.2>                       Δ-2        
                <Call 0x20a38 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20a3a-20a3c StackAdj>                   Δ+8        
            <Call 0x20a3c 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 20a42-20a44 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x20a44 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a46-20a4a StackAdj>                       Δ+48               {}
        <POP 20a4a-20aaa Naked>                              Σ0         ↓ ←0x209a2
            <Blob 0x20a4a [14] @>                            Δ-14               {[«14""»]}
            <POP 20a5a-20a5c StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20a5c 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 20a66-20a68 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 20a68  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x20a6c 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 20a72-20a74 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x20a74 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20a7a-20a7c StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20a7c 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a7e-20a7f StackAdj>                       Δ+18       ↓       {}
            <Blob 0x20a7f [24] @>                            Δ-24               {[«24""»]}
            <Const 0x20a8e 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 20a92-20a94 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x20a94 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x20aa2 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 20aa8-20aaa StackAdj>                       Δ+30               {}
        <POP 20aaa-20ab2 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.6d8282b7e0b00a0c
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 08 18              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 0a f2              |        |		.PTR	0x20af2
00020010					code.end:
00020010 00 02 0a b2              |        |		.PTR	0x20ab2
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 08 ba              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 09 76              |   v    |		.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 4d 4d 58 2c 31 2e 31 2c  |MMX,1.1,|		.XXX[0x40]
00020118 39 32 2f 30 37 2f 30 39  |92/07/09|
00020120 2c 31 32 3a 30 30 3a 30  |,12:00:0|
00020128 30 5c 20 20 20 20 30 20  |0\    0 |
00020130 2d 20 49 6e 70 75 74 20  |- Input |
00020138 74 65 73 74 20 20 20 20  |test    |
00020140 20 20 31 20 2d 20 4f 75  |  1 - Ou|
00020148 74 70 75 74 20 74 65 73  |tput tes|
00020150 74 20                    |t       |		.XXX[0x2]
00020152 45 6e 74 65 72 20 74 65  |Enter te|		.TXT	'Enter test option :_'
00020166 44 48 31 31 20 63 6f 6e  |DH11 con|		.TXT	'DH11 configuration request failed.'
00020188 54 79 70 65 20 61 6e 79  |Type any|		.TXT	'Type any character to exit.   '
000201a6 54 68 69 73 20 69 73 20  |This is |		.TXT	'This is line_ '
000201b4 20 6f 6e 20 75 6e 69 74  | on unit|		.TXT	' on unit_ '
000201be 54 79 70 65 20 61 6e 79  |Type any|		.TXT	'Type any character to exit. '
000201da 4c 69 6e 65 5f 20        |Line_   |		.TXT	'Line_ '
000201e0 20 6f 6e 20 75 6e 69 74  | on unit|		.TXT	' on unit_ '
000201ea 20 72 65 63              | rec    |		.TXT	' rec'
000201ee 69 65 76 65              |ieve    |		.TXT	'ieve'
000201f2 64 20 61 73              |d as    |		.TXT	'd as'
000201f6 63 69 69 5f              |cii_    |		.TXT	'cii_'
000201fa 20 4f 56 45              | OVE    |		.TXT	' OVE'
000201fe 52 52 55 4e              |RRUN    |		.TXT	'RRUN'
00020202 20 46 52 41              | FRA    |		.TXT	' FRA'
00020206 4d 49 4e 47              |MING    |		.TXT	'MING'
0002020a 20 50 41 52 49 54 59 20  | PARITY |		.TXT	' PARITY '
00020212 44 48 31 31 20 43 6f 6d  |DH11 Com|		.TXT	'DH11 Communications multiplexer test. '
00020238 20 20 20 20 30 20 2d 20  |    0 - |		.XXX[0x28]
00020240 49 6e 70 75 74 20 74 65  |Input te|
00020248 73 74 20 20 20 20 20 20  |st      |
00020250 31 20 2d 20 4f 75 74 70  |1 - Outp|
00020258 75 74 20 74 65 73 74 20  |ut test |
00020260 ; --------------------------------------------------------------------------------------
00020260 ; OMSI PASCAL Function
00020260 ;    <LVAR  0x008 4(r)>
00020260 ;    <LVAR -0x00e 2(w)>
00020260 ;    <LVAR -0x014 2(w)>
00020260 ;    <LVAR -0x018 @>
00020260 ;    <LVAR -0x01c 2(w)>
00020260 ;    <LVAR -0x03c @>
00020260 ;    <LVAR -0x03e @>
00020260 ;    <LVAR -0x040 @ 1(r)>
00020260 ; --------------------------------------------------------------------------------------
00020260 4e 56 ff 60              |NV `    |		LINK.W	A6,#0xff60
00020264 bf d5                    |        |		CMPA.L	(A5),A7
00020266 62 06                    |b       |		BHI	0x2026e
00020268 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002026c 4e 76                    |Nv      |		TRAPV
0002026e de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00020272 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020276 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002027c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002027e 76 14                    |v       |		MOVEQ.L	#0x14,D3
00020280 78 0f                    |x       |		MOVEQ.L	#0x0f,D4
00020282 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020284 10 06                    |        |		MOVE.B	D6,D0
00020286 48 80                    |H       |		EXTB.W	D0
00020288 c1 c3                    |        |		MULS.W	D3,D0
0002028a 41 fa ff ac              |A       |		LEA.L	0x20238,A0
0002028e 9e c3                    |        |		SUBA.W	D3,A7
00020290 22 4f                    |"O      |		MOVEA.L	A7,A1
00020292 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00020296 70 13                    |p       |		MOVEQ.L	#0x13,D0
00020298 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002029a 51 c8 ff fc              |Q       |		DBF	D0,0x20298
0002029e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000202a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000202a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000202a6 3f 03                    |?       |		MOVE.W	D3,-(A7)
000202a8 4e 92                    |N       |		JSR	(A2)
000202aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202ac 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000202b2 de fc 00 18              |        |		ADDA.W	#0x18,A7
000202b6 52 06                    |R       |		ADDQ.B	#0x1,D6
000202b8 bc 02                    |        |		CMP.B	D2,D6
000202ba 6f c8                    |o       |		BLE	0x20284
000202bc 41 fa fe a8              |A       |		LEA.L	0x20166,A0
000202c0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000202c2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000202c4 51 c8 ff fc              |Q       |		DBF	D0,0x202c2
000202c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000202ca 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000202ce 3f 02                    |?       |		MOVE.W	D2,-(A7)
000202d0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000202d2 4e 92                    |N       |		JSR	(A2)
000202d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202d6 48 78 00 00              |Hx      |		PEA.L	0x0
000202da 48 78 00 01              |Hx      |		PEA.L	0x1
000202de 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000202e4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000202e8 20 1f                    |        |		MOVE.L	(A7)+,D0
000202ea 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000202f0 63 02                    |c       |		BLS	0x202f4
000202f2 4e 4f                    |NO      |		TRAP	#15
000202f4 de c3                    |        |		ADDA.W	D3,A7
000202f6 3d 40 ff e4              |=@      |		MOVE.W	D0,(A6-0x1c)
000202fa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000202fe 1f 00                    |        |		MOVE.B	D0,-(A7)
00020300 10 1f                    |        |		MOVE.B	(A7)+,D0
00020302 48 80                    |H       |		EXTB.W	D0
00020304 41 82                    |A       |		CHK.W	D2,D0
00020306 10 80                    |        |		MOVE.B	D0,(A0)
00020308 7a 00                    |z       |		MOVEQ.L	#0x00,D5
0002030a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002030c ba 84                    |        |		CMP.L	D4,D5
0002030e 63 02                    |c       |		BLS	0x20312
00020310 4e 4f                    |NO      |		TRAP	#15
00020312 20 05                    |        |		MOVE.L	D5,D0
00020314 e3 80                    |        |		ASL.L	#0x1,D0
00020316 be 84                    |        |		CMP.L	D4,D7
00020318 63 02                    |c       |		BLS	0x2031c
0002031a 4e 4f                    |NO      |		TRAP	#15
0002031c 41 f6 08 c4              |A       |		LEA.L	(A6+D0.L-#0x3c),A0
00020320 20 07                    |        |		MOVE.L	D7,D0
00020322 e6 98                    |        |		ROR.L	#0x3,D0
00020324 d0 c0                    |        |		ADDA.W	D0,A0
00020326 48 40                    |H@      |		SWAP.W	D0
00020328 e7 58                    | X      |		ROL.W	#0x3,D0
0002032a 32 3c ff 7f              |2<      |		MOVE.W	#0xff7f,D1
0002032e e0 79                    | y      |		ROR.W	D0,D1
00020330 c3 10                    |        |		AND.B	D1,(A0)
00020332 52 87                    |R       |		ADDQ.L	#0x1,D7
00020334 be 84                    |        |		CMP.L	D4,D7
00020336 6f d4                    |o       |		BLE	0x2030c
00020338 52 85                    |R       |		ADDQ.L	#0x1,D5
0002033a ba 84                    |        |		CMP.L	D4,D5
0002033c 6f cc                    |o       |		BLE	0x2030a
0002033e 3d 42 ff ec              |=B      |		MOVE.W	D2,(A6-0x14)
00020342 3d 7c 00 02 ff f2        |=|      |		MOVE.W	#0x2,(A6-0xe)
00020348 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
0002034c 41 ee ff c2              |A       |		LEA.L	(A6-0x3e),A0
00020350 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020352 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020356 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
0002035c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002035e 3e bc 00 03              |>       |		MOVE.W	#0x3,(A7)
00020362 48 6e ff c0              |Hn      |		PEA.L	(A6-0x40)
00020366 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0002036c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002036e 4a 2e ff c0              |J.      |		TST.B	(A6-0x40)
00020372 66 2a                    |f*      |		BNE	0x2039e
00020374 41 fa fe 12              |A       |		LEA.L	0x20188,A0
00020378 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002037a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002037c 51 c8 ff fc              |Q       |		DBF	D0,0x2037a
00020380 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020384 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020386 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002038a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002038c 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00020390 4e 92                    |N       |		JSR	(A2)
00020392 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020394 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002039a de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0002039e 41 f9 00 02 0a be        |A       |		LEA.L	0x20abe,A0
000203a4 43 ee ff c4              |C       |		LEA.L	(A6-0x3c),A1
000203a8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000203aa 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
000203ac 51 c8 ff fc              |Q       |		DBF	D0,0x203aa
000203b0 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
000203b4 4e 5e                    |N^      |		UNLK	A6
000203b6 4e 75                    |Nu      |		RTS
000203b8 ; --------------------------------------------------------------------------------------
000203b8 ; OMSI PASCAL Function
000203b8 ;    <LVAR  0x010 1(w)>
000203b8 ;    <LVAR  0x00c 4(r)>
000203b8 ;    <LVAR  0x008 4(r)>
000203b8 ;    <LVAR -0x00a @ 2(r)>
000203b8 ; --------------------------------------------------------------------------------------
000203b8 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2		; Spelunked
000203bc bf d5                    |        |		CMPA.L	(A5),A7
000203be 62 06                    |b       |		BHI	0x203c6
000203c0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000203c4 4e 76                    |Nv      |		TRAPV
000203c6 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000203ca 48 e7 c7 80              |H       |		MOVEM.L	A0+D7+D6+D5+D1+D0,-(A7)
000203ce 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
000203d2 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
000203d6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000203dc 63 02                    |c       |		BLS	0x203e0
000203de 4e 4f                    |NO      |		TRAP	#15
000203e0 3f 00                    |?       |		MOVE.W	D0,-(A7)
000203e2 48 50                    |HP      |		PEA.L	(A0)
000203e4 4e b9 00 01 02 1c        |N       |		JSR	KERNCALL_0e
000203ea 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000203ec 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000203ee 30 10                    |0       |		MOVE.W	(A0),D0
000203f0 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
000203f4 67 02                    |g       |		BEQ	0x203f8
000203f6 52 07                    |R       |		ADDQ.B	#0x1,D7
000203f8 30 10                    |0       |		MOVE.W	(A0),D0
000203fa 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
000203fe e0 48                    | H      |		LSR.W	#0x8,D0
00020400 42 81                    |B       |		CLR.L	D1
00020402 32 00                    |2       |		MOVE.W	D0,D1
00020404 2c 01                    |,       |		MOVE.L	D1,D6
00020406 30 10                    |0       |		MOVE.W	(A0),D0
00020408 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002040c 1a 00                    |        |		MOVE.B	D0,D5
0002040e 4a 07                    |J       |		TST.B	D7
00020410 67 c0                    |g       |		BEQ	0x203d2
00020412 bc ae 00 08              |        |		CMP.L	(A6+0x8),D6
00020416 66 ba                    |f       |		BNE	0x203d2
00020418 1d 45 00 10              | E      |		MOVE.B	D5,(A6+0x10)
0002041c 4c df 01 e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0
00020420 4e 5e                    |N^      |		UNLK	A6
00020422 4e 75                    |Nu      |		RTS
00020424 ; --------------------------------------------------------------------------------------
00020424 ; OMSI PASCAL Function
00020424 ;    <LVAR  0x010 @ 4(r)>
00020424 ;    <LVAR  0x00c 4(r)>
00020424 ;    <LVAR  0x008 4(r)>
00020424 ; --------------------------------------------------------------------------------------
00020424 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00020428 bf d5                    |        |		CMPA.L	(A5),A7
0002042a 62 06                    |b       |		BHI	0x20432
0002042c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020430 4e 76                    |Nv      |		TRAPV
00020432 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020436 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002043a 41 ee 00 10              |A       |		LEA.L	(A6+0x10),A0
0002043e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020440 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00020444 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002044a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002044c 2e 90                    |.       |		MOVE.L	(A0),(A7)
0002044e 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020452 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020458 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002045a 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
0002045e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020464 63 02                    |c       |		BLS	0x20468
00020466 4e 4f                    |NO      |		TRAP	#15
00020468 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002046a 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0002046e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020474 63 02                    |c       |		BLS	0x20478
00020476 4e 4f                    |NO      |		TRAP	#15
00020478 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002047a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002047c 4e b9 00 01 02 1a        |N       |		JSR	KC0d_Write_Modem_String(Word, Word, Char)
00020482 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020484 48 50                    |HP      |		PEA.L	(A0)
00020486 48 78 00 80              |Hx      |		PEA.L	0x80
0002048a 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
00020490 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020492 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020496 4e 5e                    |N^      |		UNLK	A6
00020498 4e 75                    |Nu      |		RTS
0002049a ; --------------------------------------------------------------------------------------
0002049a ; OMSI PASCAL Function
0002049a ;    <LVAR -0x00a @ 1(r)>
0002049a ;    <LVAR -0x00c @>
0002049a ; --------------------------------------------------------------------------------------
0002049a 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80
0002049e bf d5                    |        |		CMPA.L	(A5),A7
000204a0 62 06                    |b       |		BHI	0x204a8
000204a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204a6 4e 76                    |Nv      |		TRAPV
000204a8 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
000204ac 48 e7 f7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
000204b0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000204b6 47 f9 00 02 0a ba        |G       |		LEA.L	0x20aba,A3
000204bc 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
000204be 76 01                    |v       |		MOVEQ.L	#0x01,D3
000204c0 41 fa fc e4              |A       |		LEA.L	0x201a6,A0
000204c4 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000204c6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204c8 51 c8 ff fc              |Q       |		DBF	D0,0x204c6
000204cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204ce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204d2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000204d4 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
000204d8 4e 92                    |N       |		JSR	(A2)
000204da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204dc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000204e2 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000204e6 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000204e8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000204ea ba 82                    |        |		CMP.L	D2,D5
000204ec 63 02                    |c       |		BLS	0x204f0
000204ee 4e 4f                    |NO      |		TRAP	#15
000204f0 20 05                    |        |		MOVE.L	D5,D0
000204f2 e3 80                    |        |		ASL.L	#0x1,D0
000204f4 41 f9 00 02 0a b2        |A       |		LEA.L	0x20ab2,A0
000204fa be 82                    |        |		CMP.L	D2,D7
000204fc 63 02                    |c       |		BLS	0x20500
000204fe 4e 4f                    |NO      |		TRAP	#15
00020500 41 f0 08 0c              |A       |		LEA.L	(A0+D0.L+#0xc),A0
00020504 20 07                    |        |		MOVE.L	D7,D0
00020506 e6 98                    |        |		ROR.L	#0x3,D0
00020508 d0 c0                    |        |		ADDA.W	D0,A0
0002050a 48 40                    |H@      |		SWAP.W	D0
0002050c e7 58                    | X      |		ROL.W	#0x3,D0
0002050e 12 10                    |        |		MOVE.B	(A0),D1
00020510 e1 29                    | )      |		LSL.B	D0,D1
00020512 ee 09                    |        |		LSR.B	#0x7,D1
00020514 1c 01                    |        |		MOVE.B	D1,D6
00020516 67 6e                    |gn      |		BEQ	0x20586
00020518 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
0002051c 20 4f                    | O      |		MOVEA.L	A7,A0
0002051e 43 fa fc 86              |C       |		LEA.L	0x201a6,A1
00020522 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020524 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020526 51 c8 ff fc              |Q       |		DBF	D0,0x20524
0002052a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002052e 20 4f                    | O      |		MOVEA.L	A7,A0
00020530 43 fa fc 82              |C       |		LEA.L	0x201b4,A1
00020534 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020536 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020538 51 c8 ff fc              |Q       |		DBF	D0,0x20536
0002053c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002053e 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
00020542 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020544 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00020548 4e 92                    |N       |		JSR	(A2)
0002054a 2e 87                    |.       |		MOVE.L	D7,(A7)
0002054c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020552 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020556 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020558 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002055c 4e 92                    |N       |		JSR	(A2)
0002055e 2e 85                    |.       |		MOVE.L	D5,(A7)
00020560 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020566 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020568 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002056e de fc 00 10              |        |		ADDA.W	#0x10,A7
00020572 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020574 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020578 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002057a 2f 05                    |/       |		MOVE.L	D5,-(A7)
0002057c 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002057e 4e ba fe a4              |N       |		JSR	0x20424
00020582 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020586 52 87                    |R       |		ADDQ.L	#0x1,D7
00020588 be 82                    |        |		CMP.L	D2,D7
0002058a 6f 00 ff 5e              |o  ^    |		BLE	0x204ea
0002058e 52 85                    |R       |		ADDQ.L	#0x1,D5
00020590 ba 82                    |        |		CMP.L	D2,D5
00020592 6f 00 ff 54              |o  T    |		BLE	0x204e8
00020596 20 13                    |        |		MOVE.L	(A3),D0
00020598 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0002059e 63 02                    |c       |		BLS	0x205a2
000205a0 4e 4f                    |NO      |		TRAP	#15
000205a2 3f 00                    |?       |		MOVE.W	D0,-(A7)
000205a4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000205a8 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000205ae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205b0 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
000205b4 67 1a                    |g       |		BEQ	0x205d0
000205b6 20 13                    |        |		MOVE.L	(A3),D0
000205b8 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000205be 63 02                    |c       |		BLS	0x205c2
000205c0 4e 4f                    |NO      |		TRAP	#15
000205c2 3f 00                    |?       |		MOVE.W	D0,-(A7)
000205c4 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000205c8 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
000205ce 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205d0 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
000205d4 67 00 ff 10              |g       |		BEQ	0x204e6
000205d8 4c df 1f ef              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4
000205dc 4e 5e                    |N^      |		UNLK	A6
000205de 4e 75                    |Nu      |		RTS
000205e0 ; --------------------------------------------------------------------------------------
000205e0 ; OMSI PASCAL Function
000205e0 ;    <LVAR -0x002 @ 1(r)>
000205e0 ;    <LVAR -0x010 @ 2(r)>
000205e0 ; --------------------------------------------------------------------------------------
000205e0 4e 56 ff 6c              |NV l    |		LINK.W	A6,#0xff6c
000205e4 bf d5                    |        |		CMPA.L	(A5),A7
000205e6 62 06                    |b       |		BHI	0x205ee
000205e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205ec 4e 76                    |Nv      |		TRAPV
000205ee de fc 00 80              |        |		ADDA.W	#0x80,A7
000205f2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000205f6 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
000205fa 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020600 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020602 76 20                    |v       |		MOVEQ.L	#0x20,D3
00020604 78 0f                    |x       |		MOVEQ.L	#0x0f,D4
00020606 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
0002060a 20 4f                    | O      |		MOVEA.L	A7,A0
0002060c 43 fa fb b0              |C       |		LEA.L	0x201be,A1
00020610 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00020612 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020614 51 c8 ff fc              |Q       |		DBF	D0,0x20612
00020618 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002061a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002061e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020620 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00020624 4e 93                    |N       |		JSR	(A3)
00020626 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020628 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002062e de c3                    |        |		ADDA.W	D3,A7
00020630 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020632 be 84                    |        |		CMP.L	D4,D7
00020634 63 02                    |c       |		BLS	0x20638
00020636 4e 4f                    |NO      |		TRAP	#15
00020638 20 07                    |        |		MOVE.L	D7,D0
0002063a e3 80                    |        |		ASL.L	#0x1,D0
0002063c 41 f9 00 02 0a b2        |A       |		LEA.L	0x20ab2,A0
00020642 12 30 08 0c              | 0      |		MOVE.B	(A0+D0.L+#0xc),D1
00020646 ee 09                    |        |		LSR.B	#0x7,D1
00020648 67 00 01 76              |g  v    |		BEQ	0x207c0
0002064c 0c 87 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D7
00020652 63 02                    |c       |		BLS	0x20656
00020654 4e 4f                    |NO      |		TRAP	#15
00020656 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020658 48 52                    |HR      |		PEA.L	(A2)
0002065a 4e b9 00 01 02 1c        |N       |		JSR	KERNCALL_0e
00020660 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020662 30 12                    |0       |		MOVE.W	(A2),D0
00020664 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00020668 67 00 01 56              |g  V    |		BEQ	0x207c0
0002066c 30 12                    |0       |		MOVE.W	(A2),D0
0002066e 02 40 0f 00              | @      |		ANDI.W	#0x0f00,D0
00020672 e0 48                    | H      |		LSR.W	#0x8,D0
00020674 42 81                    |B       |		CLR.L	D1
00020676 32 00                    |2       |		MOVE.W	D0,D1
00020678 2c 01                    |,       |		MOVE.L	D1,D6
0002067a 30 12                    |0       |		MOVE.W	(A2),D0
0002067c 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00020680 42 81                    |B       |		CLR.L	D1
00020682 32 00                    |2       |		MOVE.W	D0,D1
00020684 2a 01                    |*       |		MOVE.L	D1,D5
00020686 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020688 20 4f                    | O      |		MOVEA.L	A7,A0
0002068a 43 fa fb 4e              |C  N    |		LEA.L	0x201da,A1
0002068e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020690 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020692 51 c8 ff fc              |Q       |		DBF	D0,0x20690
00020696 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002069a 20 4f                    | O      |		MOVEA.L	A7,A0
0002069c 43 fa fb 42              |C  B    |		LEA.L	0x201e0,A1
000206a0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000206a2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206a4 51 c8 ff fc              |Q       |		DBF	D0,0x206a2
000206a8 2f 3a fb 4c              |/: L    |		MOVE.L	0x201f6,-(A7)
000206ac 2f 3a fb 44              |/: D    |		MOVE.L	0x201f2,-(A7)
000206b0 2f 3a fb 3c              |/: <    |		MOVE.L	0x201ee,-(A7)
000206b4 2f 3a fb 34              |/: 4    |		MOVE.L	0x201ea,-(A7)
000206b8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000206ba 48 6f 00 22              |Ho "    |		PEA.L	(A7+0x22)
000206be 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206c0 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000206c4 4e 93                    |N       |		JSR	(A3)
000206c6 2e 86                    |.       |		MOVE.L	D6,(A7)
000206c8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000206ce 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
000206d2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206d4 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000206d8 4e 93                    |N       |		JSR	(A3)
000206da 2e 87                    |.       |		MOVE.L	D7,(A7)
000206dc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000206e2 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
000206e6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206e8 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
000206ec 4e 93                    |N       |		JSR	(A3)
000206ee 2e 85                    |.       |		MOVE.L	D5,(A7)
000206f0 48 78 00 02              |Hx      |		PEA.L	0x2
000206f4 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000206fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206fc 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00020702 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020706 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020708 de c3                    |        |		ADDA.W	D3,A7
0002070a 30 12                    |0       |		MOVE.W	(A2),D0
0002070c 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
00020710 67 28                    |g(      |		BEQ	0x2073a
00020712 2f 3a fa ea              |/:      |		MOVE.L	0x201fe,-(A7)
00020716 2f 3a fa e2              |/:      |		MOVE.L	0x201fa,-(A7)
0002071a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002071c 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002071e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020720 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020724 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020726 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002072a 4e 93                    |N       |		JSR	(A3)
0002072c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002072e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020734 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020736 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020738 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002073a 30 12                    |0       |		MOVE.W	(A2),D0
0002073c 02 40 20 00              | @      |		ANDI.W	#0x2000,D0
00020740 67 28                    |g(      |		BEQ	0x2076a
00020742 2f 3a fa c2              |/:      |		MOVE.L	0x20206,-(A7)
00020746 2f 3a fa ba              |/:      |		MOVE.L	0x20202,-(A7)
0002074a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002074c 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002074e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020750 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020754 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020756 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002075a 4e 93                    |N       |		JSR	(A3)
0002075c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002075e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020764 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020766 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020768 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002076a 30 12                    |0       |		MOVE.W	(A2),D0
0002076c 02 40 10 00              | @      |		ANDI.W	#0x1000,D0
00020770 67 30                    |g0      |		BEQ	0x207a2
00020772 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020774 20 4f                    | O      |		MOVEA.L	A7,A0
00020776 43 fa fa 92              |C       |		LEA.L	0x2020a,A1
0002077a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002077c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002077e 51 c8 ff fc              |Q       |		DBF	D0,0x2077c
00020782 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020784 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020786 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020788 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002078c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002078e 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00020792 4e 93                    |N       |		JSR	(A3)
00020794 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020796 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002079c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002079e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000207a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207a4 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000207a6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000207ac 2e 87                    |.       |		MOVE.L	D7,(A7)
000207ae 2f 06                    |/       |		MOVE.L	D6,-(A7)
000207b0 4e ba fc 72              |N  r    |		JSR	0x20424
000207b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207b6 2e 8c                    |.       |		MOVE.L	A4,(A7)
000207b8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000207be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207c0 52 87                    |R       |		ADDQ.L	#0x1,D7
000207c2 be 84                    |        |		CMP.L	D4,D7
000207c4 6f 00 fe 6c              |o  l    |		BLE	0x20632
000207c8 20 39 00 02 0a ba        | 9      |		MOVE.L	0x20aba,D0
000207ce 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000207d4 63 02                    |c       |		BLS	0x207d8
000207d6 4e 4f                    |NO      |		TRAP	#15
000207d8 3f 00                    |?       |		MOVE.W	D0,-(A7)
000207da 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000207de 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000207e4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207e6 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000207ea 67 1c                    |g       |		BEQ	0x20808
000207ec 20 39 00 02 0a ba        | 9      |		MOVE.L	0x20aba,D0
000207f2 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000207f8 63 02                    |c       |		BLS	0x207fc
000207fa 4e 4f                    |NO      |		TRAP	#15
000207fc 3f 00                    |?       |		MOVE.W	D0,-(A7)
000207fe 48 52                    |HR      |		PEA.L	(A2)
00020800 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
00020806 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020808 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0002080c 67 00 fe 22              |g  "    |		BEQ	0x20630
00020810 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020814 4e 5e                    |N^      |		UNLK	A6
00020816 4e 75                    |Nu      |		RTS
00020818 ; --------------------------------------------------------------------------------------
00020818 ; OMSI PASCAL Function
00020818 ; --------------------------------------------------------------------------------------
00020818					START:
00020818 4f fa 00 08              |O       |		LEA.L	MAIN,A7
0002081c 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020822					MAIN:
00020822 45 f9 00 02 0a de        |E       |		LEA.L	0x20ade,A2
00020828 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002082a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020830 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020832 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00020838 23 d7 00 02 0a ba        |#       |		MOVE.L	(A7),0x20aba
0002083e 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00020842 20 4f                    | O      |		MOVEA.L	A7,A0
00020844 43 fa f9 cc              |C       |		LEA.L	0x20212,A1
00020848 70 24                    |p$      |		MOVEQ.L	#0x24,D0
0002084a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002084c 51 c8 ff fc              |Q       |		DBF	D0,0x2084a
00020850 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020852 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020856 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020858 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
0002085c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020862 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020864 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002086a de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002086e 48 52                    |HR      |		PEA.L	(A2)
00020870 4e ba f9 ee              |N       |		JSR	0x20260
00020874 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020876 10 12                    |        |		MOVE.B	(A2),D0
00020878 48 80                    |H       |		EXTB.W	D0
0002087a b0 41                    | A      |		CMP.W	D1,D0
0002087c 63 02                    |c       |		BLS	0x20880
0002087e 4e 4e                    |NN      |		TRAP	#14
00020880 d0 40                    | @      |		ADD.W	D0,D0
00020882 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002088a 00 04                    |        |		.CONST	0x4			; [0x0] -> 0x2088e
0002088c 00 0a                    |        |		.CONST	0xa			; [0x1] -> 0x20894
0002088e					switch@0x20882[0x0]:
0002088e 4e ba fd 50              |N  P    |		JSR	0x205e0
00020892 60 04                    |`       |		BRA	0x20898
00020894					switch@0x20882[0x1]:
00020894 4e ba fc 04              |N       |		JSR	0x2049a
00020898 42 27                    |B'      |		CLR.B	-(A7)
0002089a 48 78 00 01              |Hx      |		PEA.L	0x1
0002089e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000208a4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208a6 4e b9 00 01 02 84        |N       |		JSR	?exit
000208ac 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000208ba ; --------------------------------------------------------------------------------------
000208ba ; OMSI PASCAL Function
000208ba ;    <LVAR  0x008 1(r)>
000208ba ; --------------------------------------------------------------------------------------
000208ba					PROG_FAIL:
000208ba 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000208be bf d5                    |        |		CMPA.L	(A5),A7
000208c0 62 06                    |b       |		BHI	0x208c8
000208c2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208c6 4e 76                    |Nv      |		TRAPV
000208c8 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000208cc 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000208d0 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000208d4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000208d6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000208d8 51 c8 ff fc              |Q       |		DBF	D0,0x208d6
000208dc 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000208e0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000208e2 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000208e6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000208ea 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000208ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208f6 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000208fa 48 80                    |H       |		EXTB.W	D0
000208fc 48 c0                    |H       |		EXTW.L	D0
000208fe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020900 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020906 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020908 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002090e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020910 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020916 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002091a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002091e 4e 5e                    |N^      |		UNLK	A6
00020920 4e 75                    |Nu      |		RTS
00020922 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020930 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002093e 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
0002094c 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002095e 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00020976 ; --------------------------------------------------------------------------------------
00020976 ; OMSI PASCAL Function
00020976 ;    <LVAR  0x00e 1(r)>
00020976 ;    <LVAR  0x00a 4(r)>
00020976 ;    <LVAR  0x008 1(r)>
00020976 ; --------------------------------------------------------------------------------------
00020976					EXP_FAIL:
00020976 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
0002097a bf d5                    |        |		CMPA.L	(A5),A7
0002097c 62 06                    |b       |		BHI	0x20984
0002097e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020982 4e 76                    |Nv      |		TRAPV
00020984 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020988 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
0002098c 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020992 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020998 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002099a 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0002099c 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002099e 78 12                    |x       |		MOVEQ.L	#0x12,D4
000209a0 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000209a2 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000209a8 41 fa ff b4              |A       |		LEA.L	0x2095e,A0
000209ac 70 08                    |p       |		MOVEQ.L	#0x08,D0
000209ae 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000209b0 51 c8 ff fc              |Q       |		DBF	D0,0x209ae
000209b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209bc 3f 04                    |?       |		MOVE.W	D4,-(A7)
000209be 4e 93                    |N       |		JSR	(A3)
000209c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209c2 4e 94                    |N       |		JSR	(A4)
000209c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209c6 20 4f                    | O      |		MOVEA.L	A7,A0
000209c8 43 fa ff 58              |C  X    |		LEA.L	0x20922,A1
000209cc 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000209ce 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209d0 51 c8 ff fc              |Q       |		DBF	D0,0x209ce
000209d4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000209d6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000209da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209dc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000209de 4e 93                    |N       |		JSR	(A3)
000209e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209e2 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000209e6 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000209ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209ee 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000209f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209f6 4e 94                    |N       |		JSR	(A4)
000209f8 de c4                    |        |		ADDA.W	D4,A7
000209fa 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000209fe b0 c1                    |        |		CMPA.W	D1,A0
00020a00 67 48                    |gH      |		BEQ	0x20a4a
00020a02 9e c5                    |        |		SUBA.W	D5,A7
00020a04 22 4f                    |"O      |		MOVEA.L	A7,A1
00020a06 45 fa ff 28              |E  (    |		LEA.L	0x20930,A2
00020a0a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020a0c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020a0e 51 c8 ff fc              |Q       |		DBF	D0,0x20a0c
00020a12 9e c3                    |        |		SUBA.W	D3,A7
00020a14 22 4f                    |"O      |		MOVEA.L	A7,A1
00020a16 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020a1a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020a1c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020a1e 51 c8 ff fc              |Q       |		DBF	D0,0x20a1c
00020a22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a24 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020a28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a2a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a2c 4e 93                    |N       |		JSR	(A3)
00020a2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a30 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020a34 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a36 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a38 4e 93                    |N       |		JSR	(A3)
00020a3a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a3c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020a42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a44 4e 94                    |N       |		JSR	(A4)
00020a46 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020a4a 9e c5                    |        |		SUBA.W	D5,A7
00020a4c 20 4f                    | O      |		MOVEA.L	A7,A0
00020a4e 43 fa fe ee              |C       |		LEA.L	0x2093e,A1
00020a52 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020a54 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a56 51 c8 ff fc              |Q       |		DBF	D0,0x20a54
00020a5a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a5c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020a60 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a62 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a64 4e 93                    |N       |		JSR	(A3)
00020a66 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a68 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020a6c 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00020a72 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020a74 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020a7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a7c 4e 94                    |N       |		JSR	(A4)
00020a7e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020a80 20 4f                    | O      |		MOVEA.L	A7,A0
00020a82 43 fa fe da              |C       |		LEA.L	0x2095e,A1
00020a86 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020a88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a8a 51 c8 ff fc              |Q       |		DBF	D0,0x20a88
00020a8e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020a92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a94 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020a98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a9a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020a9e 4e 93                    |N       |		JSR	(A3)
00020aa0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020aa2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020aa8 de c3                    |        |		ADDA.W	D3,A7
00020aaa 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020aae 4e 5e                    |N^      |		UNLK	A6
00020ab0 4e 75                    |Nu      |		RTS