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

⟦4c403b0f3⟧ M200

    Length: 2048 (0x800)
    Types: M200
    Notes: @(#)BOOTINFO,1.1,92/07/09,12:00:00, M200_PROGRAM
    Names: »BOOTINFO.M200«

Derivation

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

Disassembly

0x201c0


@ 201c0
        <LVAR -0x004 @ 1(r)>
    <POP 201c0-2025c Body>                                              
        <POP 201c0-201d6 Prologue>                           Σ0         ↓
        <POP 201d6-201da RegCacheLoad>                       Σ0         ↓
        <POP 201da-20222 Naked>                              Σ0         ↓ →0x20254
            <Blob 0x201da [20] @>                            Δ-20               {[«20""»]}
            <POP 201ec-201ee StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x201ee 19>                                                    {[«20""»]|[$$CURRENT.M200_CONFIG]}
            <MI 20200  MOVEA.L (A7)+,A4>                     Δ+4                {[«20""»]}
            <POP 20202-20204 StackAdj>                       Δ+16               {[-4-]}
            <MI 20204  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Const 0x20206 0x3.4>                            Δ-4                {[4, 'A4']|[##3]}
            <Const 0x2020a 0x20b86.4>                        Δ-4                {[4, 'A4']|[##3]|[##134022]}
            <Pointer.fp 0x20210 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, 'A4']|[##3]|[##134022]|[@@-4]}
            <Call 0x20214 0x1056e>                                              {[4, 'A4']|[##3]|[##134022]|[@@-4]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 2021a-2021c StackAdj>                       Δ+16               {}
            <MI 2021c  TST.B   (A6-0x4)>                                        {}
            <MI 20220  BNE     0x20254>                                         {}
        <POP 20222-20254 Naked>                              Σ0         ↓
            <Blob 0x20222 [38] @>                            Δ-38               {[«38""»]}
            <MI 20234  CLR.B   -(A7)>                        Δ-2                {[«38""»]|[#0]}
            <POP 20236-20238 StackAdj>                       Δ-4                {[«38""»]|[#0]|[-4-]}
            <Lit 0x20238 37>                                                    {[«38""»]|[#0]|[$$Can't read configuration information.]}
            <Call 0x2024a 0x103b8>                                              {[«38""»]|[#0]|[$$Can't read configuration information.]}
                PopProgram(status : Byte; msg : String)
            <POP 20250-20254 StackAdj>                       Δ+44               {}
        <POP 20254-2025c Epilogue>                           Σ0         ←0x201da

0x2025c


@ 2025c
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(rw)>
    <POP 2025c-202d0 Body>                                              
        <POP 2025c-20272 Prologue>                           Σ0         ↓
        <POP 20272-20274 Naked>                              Σ0         ↓
            <MI 20272  MOVEQ.L #0x00,D6>                                        {}
        <POP 20274-20292 Naked>                              Σ0         ↓ →0x20298 ←0x202b8
            <MI 20274  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x20278 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 20282  ASL.L   #0x1,D0>                                         {}
            <MI 20284  LEA.L   0x2077e,A0>                                      {}
            <MI 2028a  MOVE.W  (A0+D0.L+#0x8),D7>                               {}
            <MI 2028e  TST.B   D6>                                              {}
            <MI 20290  BEQ     0x20298>                                         {}
        <POP 20292-20298 Naked>                              Σ0         →0x2029a
            <MI 20292  ADDQ.L  #0x1,(A6+0x8)>                                   {}
            <MI 20296  BRA     0x2029a>                                         {}
        <POP 20298-2029a Naked>                              Σ0         ↓ ←0x20274
            <MI 20298  LSR.W   #0x8,D7>                                         {}
        <POP 2029a-202a6 Naked>                              Σ0         ↓ →0x202b8 ←0x20292
            <MI 2029a  ANDI.W  #0x00ff,D7>                                      {}
            <MI 2029e  NEG.B   D6>                                              {}
            <MI 202a0  ADDQ.B  #0x1,D6>                                         {}
            <MI 202a2  TST.W   D7>                                              {}
            <MI 202a4  BEQ     0x202b8>                                         {}
        <POP 202a6-202b8 Naked>                              Σ0         ↓
            <MI 202a6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <POP 0x202aa LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[4, '(A6+0xc)']}
            <MI 202ae  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6+0xc)']|[2, 'D7']}
            <Call 0x202b0 0x102c0>                                              {[4, '(A6+0xc)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 202b6-202b8 StackAdj>                       Δ+6                {}
        <POP 202b8-202bc Naked>                              Σ0         ↓ →0x20274 ←0x2029a
            <MI 202b8  TST.W   D7>                                              {}
            <MI 202ba  BNE     0x20274>                                         {}
        <POP 202bc-202c8 Naked>                              Σ0         ↓
            <MI 202bc  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x202c0 0x103e0>                                              {[4, '(A6+0xc)']}
                WriteConsoleStringCrLf(str : String)
            <POP 202c6-202c8 StackAdj>                       Δ+4                {}
        <POP 202c8-202d0 Epilogue>                           Σ0         

0x202d0


@ 202d0
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x010 @ 4(rw)>
    <POP 202d0-20482 Body>                                              
        <POP 202d0-202e6 Prologue>                           Σ0         ↓
        <POP 202e6-20300 RegCacheLoad>                       Σ0         ↓
        <POP 20300-20388 Naked>                              Σ0 Δ-30    ↓ →0x2039a
            <Blob 0x20300 [30] 0x20bb9>                      Δ-30               {[«30»]}
            <POP 20312-20314 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x20314>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x20314 4>                       Δ-4        
                <Const 0x20318 0x1.2>                        Δ-2        
                <Const 0x2031a 0x1e.2>                       Δ-2        
                <Call 0x2031c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2031e-20320 StackAdj>                   Δ+8        
            <MI 20320  MOVEA.L (A7)+,A0>                     Δ+4                {[«30»]}
            <MI 20322  MOVE.L  A0,(A6-0x10)>                                    {[«30»]}
            <Blob 0x20324 [20] @>                            Δ-20               {[«30»]|[«20""»]}
            <POP 20330-20332 StackAdj>                       Δ-8                {[«30»]|[«20""»]|[-8-]}
            <Lit 0x20332 20>                                                    {[«30»]|[«20""»]|[-4-]|[$$Microcode file    :_]}
            <MI 2033c  MOVE.L  A0,(A7)>                                         {[«30»]|[«20""»]|[-4-]|[4, 'A0']}
            <POP 2033a-2033c StackAdj>                       Δ-8                {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
            <Call 0x2033e 0x102cc>                                              {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
                StringDup(a : String) : String
            <POP 20344-20346 StackAdj>                       Δ+4                {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
            <Call 0x20346 0x102d0>                                              {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2034c-2034e StackAdj>                       Δ+8                {[«30»]|[«20""»]|[-4-]}
            <Call 0x2034e 0x103e0>                                              {[«30»]|[«20""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20354-20358 StackAdj>                       Δ+22               {[«30»]|[-2-]}
            <POP 20358-20359 StackAdj>                       Δ+2                {[«30»]}
            <Blob 0x20359 [2] @>                             Δ-2                {[«30»]|[«2""»]}
            <Blob 0x2035c [2] @>                             Δ-2                {[«30»]|[«2""»]|[«2""»]}
            <Blob 0x20360 [2] @>                             Δ-2                {[«30»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 20364-20366 StackAdj>                       Δ-4                {[«30»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x20366 6>                                                     {[«30»]|[«2""»]|[«2""»]|[«2""»]|[$$.UCODE]}
            <MI 20374  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«30»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 20376-20378 StackAdj>                       Δ+2                {[«30»]|[«2""»]|[«2""»]}
            <MI 20378  MOVE.L  A0,-(A7)>                     Δ-4                {[«30»]|[«2""»]|[«2""»]|[4, 'A0']}
            <MI 2037a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
            <Call 0x2037c 0x10300>                                              {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
                FSCALL_10300
            <POP 20382-20384 StackAdj>                       Δ+8                {[«30»]|[«2""»]|[«2""»]}
            <MI 20384  TST.L   (A7)+>                        Δ+4                {[«30»]}
            <MI 20386  BNE     0x2039a>                                         {[«30»]}
        <POP 20388-2039a Naked>                              Σ-30       →0x203a4
            <POP 20388-2038a StackAdj>                       Δ-4                {[-34-]}
            <MI 2038a  MOVE.L  A0,-(A7)>                     Δ-4                {[-34-]|[4, 'A0']}
            <MI 2038c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
            <Call 0x2038e 0x102d0>                                              {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
                StringCat2(a, b : String) : String
            <POP 20394-20396 StackAdj>                       Δ+8                {[-34-]}
            <MI 20396  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-30-]}
            <MI 20398  BRA     0x203a4>                                         {[-30-]}
        <POP 2039a-203a4 Naked>                              Σ-30       ↓ ←0x20300
            <Pointer.fp 0x2039a <LVAR -0x006 @ 4(rw)>>       Δ-4                {[-30-]|[@@-6]}
            <Call 0x2039c 0x102bc>                                              {[-30-]|[@@-6]}
                FreeString(VAR a : String)
            <POP 203a2-203a4 StackAdj>                       Δ+4                {[-30-]}
        <POP 203a4-203c8 Naked>                              Σ-30 Δ+30  ↓ →0x20470 ←0x20388
            <POP 203a4-203a6 StackAdj>                       Δ+26               {[-4-]}
            <MI 203a6  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <MI 203a8  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x10)']|[#0]}
            <MI 203aa  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x10)']|[#0]|[#0]}
            <Const 0x203ac 0x0.4>                            Δ-4                {[4, '(A6-0x10)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x203b0 <LVAR -0x00c @ 1(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]}
            <Pointer.fp 0x203b4 <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]|[@@-10]}
            <Call 0x203b8 0x10380>                                              {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]|[@@-10]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 203be-203c0 StackAdj>                       Δ+20               {}
            <MI 203c0  TST.B   (A6-0xc)>                                        {}
            <MI 203c4  BNE     0x20470>                                         {}
        <POP 203c8-20470 Naked>                              Σ0         ↓
            <MI 203c8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 203cc  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]}
            <MI 203ce  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]}
            <Const 0x203d0 0x200.2>                          Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#512]}
            <Const 0x203d4 0x2.2>                            Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
            <MI 203d6  LEA.L   0x20786,A0>                                      {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
            <MI 203dc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x203de <LVAR -0x00c @ 1(r)>>        Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
            <Call 0x203e2 0x10384>                                              {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 203e8-203ea StackAdj>                       Δ+20               {}
            <Blob 0x203ea [20] @>                            Δ-20               {[«20""»]}
            <POP 203f6-203f8 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x203f8 20>                                                    {[«20""»]|[$$Date of bind      :_]}
            <Const 0x20404 0x4.4>                            Δ-4                {[«20""»]|[$$Date of bind      :_]|[##4]}
            <Call 0x20408 0x2025c>                                              {[«20""»]|[$$Date of bind      :_]|[##4]}
            <POP 2040c-2040e StackAdj>                       Δ+28               {}
            <Blob 0x2040e [20] @>                            Δ-20               {[«20""»]}
            <POP 2041a-2041c StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2041c 20>                                                    {[«20""»]|[$$Pathname of delta :_]}
            <Const 0x20428 0x3c.4>                           Δ-4                {[«20""»]|[$$Pathname of delta :_]|[##60]}
            <Call 0x2042c 0x2025c>                                              {[«20""»]|[$$Pathname of delta :_]|[##60]}
            <POP 20430-20432 StackAdj>                       Δ+28               {}
            <Blob 0x20432 [20] @>                            Δ-20               {[«20""»]}
            <POP 2043e-20440 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20440 20>                                                    {[«20""»]|[$$Pathname of mom   :_]}
            <Const 0x2044c 0x14.4>                           Δ-4                {[«20""»]|[$$Pathname of mom   :_]|[##20]}
            <Call 0x20450 0x2025c>                                              {[«20""»]|[$$Pathname of mom   :_]|[##20]}
            <POP 20454-20456 StackAdj>                       Δ+26               {[-2-]}
            <MI 20456  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20458 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x2045a 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x2045e <LVAR -0x00c @ 1(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-12]}
            <Pointer.fp 0x20462 <LVAR -0x00a @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
            <Call 0x20466 0x1038c>                                              {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2046c-20470 StackAdj>                       Δ+16               {}
        <POP 20470-2047a Naked>                              Σ0         ↓ ←0x203a4
            <Pointer.fp 0x20470 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x20472 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 20478-2047a StackAdj>                       Δ+4                {}
        <POP 2047a-20482 Epilogue>                           Σ0         

0x20482


@ 20482
    <POP 20482-20548 Body>                                              
        <POP 20482-20498 Prologue>                           Σ0         ↓
        <POP 20498-2049e RegCacheLoad>                       Σ0         ↓
        <POP 2049e-204a6 Naked>                              Σ0         ↓ →0x204aa
            <MI 2049e  TST.B   0x20b8b>                                         {}
            <MI 204a4  BEQ     0x204aa>                                         {}
        <POP 204a6-204aa Naked>                              Σ0         →0x204ac
            <MI 204a6  MOVEQ.L #0x04,D6>                                        {}
            <MI 204a8  BRA     0x204ac>                                         {}
        <POP 204aa-204ac Naked>                              Σ0         ↓ ←0x2049e
            <MI 204aa  MOVEQ.L #0x09,D6>                                        {}
        <POP 204ac-204b4 Naked>                              Σ0 Δ-2     ↓ →0x204be ←0x204a6
            <MI 204ac  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 204ae  MOVEQ.L #0x00,D7>                                        {[2, 'D6']}
            <MI 204b0  CMP.B   (A7),D7>                                         {[2, 'D6']}
            <MI 204b2  BGT     0x204be>                                         {[2, 'D6']}
        <POP 204b4-204be Naked>                              Σ-2        ↓
            <MI 204b4  MOVE.B  (A7),D0>                                         {[-2-]}
            <POP 0x204b6 LimitCheck D0 ≤ 0x9>                                   {[-2-]}
                <MI 204b6  CMPI.B  #0x09,D0>                            
                <MI 204ba  BLE     0x204be>                             
                <MI 204bc  TRAP    #15>                                 
        <POP 204be-204c2 Naked>                              Σ-2        ↓ →0x2053e ←0x204ac ←0x204c2
            <MI 204be  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 204c0  BGT     0x2053e>                                         {[-2-]}
        <POP 204c2-2053e Naked>                              Σ-2        ↓ →0x204be
            <MI 204c2  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 204c4  EXTB.W  D0>                                              {[-2-]}
            <MI 204c6  ASL.W   #0x5,D0>                                         {[-2-]}
            <MI 204c8  LEA.L   0x2077e,A0>                                      {[-2-]}
            <MI 204ce  LEA.L   (A0+D0.W),A0>                                    {[-2-]}
            <Blob 0x204d2 [30] (A0+0x45b)>                   Δ-30               {[-2-]|[«30»]}
            <POP 204e2-204e4 StackAdj>                       Δ-4                {[-2-]|[«30»]|[-4-]}
            <Lit 0x204e4>                                                       {[-2-]|[«30»]|[$$…]}
                <Pointer.sp 0x204e4 4>                       Δ-4        
                <Const 0x204e8 0x1.2>                        Δ-2        
                <Const 0x204ea 0x1e.2>                       Δ-2        
                <Call 0x204ec 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 204f2-204f4 StackAdj>                   Δ+8        
            <MI 204f4  MOVEA.L (A7)+,A4>                     Δ+4                {[-2-]|[«30»]}
            <POP 204f6-204fa StackAdj>                       Δ+28               {[-2-]|[-2-]}
            <POP 204fa-204fb StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x204fb [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <POP 204fe-20500 StackAdj>                       Δ-12               {[-2-]|[«2""»]|[-12-]}
            <MI 20500  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
            <Call 0x20502 0x10586>                                              {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
                Config_Entry_Name(a : Byte) : String
            <POP 20508-2050a StackAdj>                       Δ+2                {[-2-]|[«2""»]|[-12-]}
            <Const 0x2050a 0x15.4>                           Δ-4                {[-2-]|[«2""»]|[-12-]|[##21]}
            <Call 0x2050e 0x102f8>                                              {[-2-]|[«2""»]|[-12-]|[##21]}
                LeftPad(a : String; b : Long) : String
            <POP 20514-20516 StackAdj>                       Δ+4                {[-2-]|[«2""»]|[-12-]}
            <Lit 0x20516 2>                                                     {[-2-]|[«2""»]|[-8-]|[$$:_]}
            <POP 20526-20528 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-8-]|[$$:_]|[-4-]}
            <MI 20528  MOVE.L  A4,(A7)>                                         {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
            <Call 0x2052a 0x102d4>                                              {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
                StringCat3(a, b, c : String) : String
            <POP 20530-20532 StackAdj>                       Δ+12               {[-2-]|[«2""»]|[-4-]}
            <Call 0x20532 0x103e0>                                              {[-2-]|[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20538-2053a StackAdj>                       Δ+6                {[-2-]}
            <MI 2053a  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 2053c  BVC     0x204be>                                         {[-2-]}
        <POP 2053e-20540 Naked>                              Σ-2 Δ+2    ↓ ←0x204be
            <POP 2053e-20540 StackAdj>                       Δ+2                {}
        <POP 20540-20548 Epilogue>                           Σ0         

0x20548


@ 20548
START
    <POP 20548--0001 Body>                                              
        <POP 20548-20552 Prologue>                           Σ0         
        <POP 20552-20572 Naked>                              Σ0         ↓
            <Call 0x20552 0x10398>                                              {}
                FSCALL_10398
            <Call 0x20558 0x201c0>                                              {}
            <Call 0x2055c 0x202d0>                                              {}
            <Call 0x20560 0x20482>                                              {}
            <MI 20564  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20566 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x2056a 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20570-20572 StackAdj>                       Δ+6                {}
        <POP 20572-20578 Naked>                              Σ0         
            <Call 0x20572 0x10284>                                              {}
                ?exit

0x20586


@ 20586
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20586-205ee Body>                                              
        <POP 20586-2059c Prologue>                           Σ0         ↓
        <POP 2059c-205e6 Naked>                              Σ0         ↓
            <Blob 0x2059c [14] @>                            Δ-14               {[«14""»]}
            <Const 0x205a8 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 205ac-205ae StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x205ae 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 205c0-205c2 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 205c2  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 205c6  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 205c8  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 205ca  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x205cc 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 205d2-205d4 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x205d4 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 205da-205dc StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x205dc 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 205e2-205e6 StackAdj>                       Δ+20               {}
        <POP 205e6-205ee Epilogue>                           Σ0         

0x20642


@ 20642
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 20642-2077e Body>                                              
        <POP 20642-20658 Prologue>                           Σ0         ↓
        <POP 20658-2066e RegCacheLoad>                       Σ0         ↓
        <POP 2066e-206ce Naked>                              Σ0         ↓ →0x20716
            <Call 0x2066e 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20674 [18] @>                            Δ-18               {[«18""»]}
            <POP 20680-20682 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20682 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2068e 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 20690-20691 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x20691 [14] @>                            Δ-14               {[«14""»]}
            <POP 206a0-206a2 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x206a2 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 206ac-206ae StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 206ae  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x206b2 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 206b8-206ba StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x206ba 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 206c0-206c2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x206c2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 206c4-206c6 StackAdj>                       Δ+18               {}
            <MI 206c6  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 206ca  CMPA.W  #0x01,A0>                                        {}
            <MI 206cc  BEQ     0x20716>                                         {}
        <POP 206ce-20716 Naked>                              Σ0         ↓
            <Blob 0x206ce [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x206de [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 206ee-206f0 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x206f0 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 206fa-206fc StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x206fc>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x206fc 12>                      Δ-4        
                <Const 0x20700 0x1.2>                        Δ-2        
                <Const 0x20702 0x1e.2>                       Δ-2        
                <Call 0x20704 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20706-20708 StackAdj>                   Δ+8        
            <Call 0x20708 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2070e-20710 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x20710 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20712-20716 StackAdj>                       Δ+48               {}
        <POP 20716-20776 Naked>                              Σ0         ↓ ←0x2066e
            <Blob 0x20716 [14] @>                            Δ-14               {[«14""»]}
            <POP 20726-20728 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20728 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 20732-20734 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 20734  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x20738 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2073e-20740 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x20740 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20746-20748 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20748 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2074a-2074b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2074b [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2075a 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2075e-20760 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x20760 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2076e 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 20774-20776 StackAdj>                       Δ+30               {}
        <POP 20776-2077e Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.c5499914b197a901
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 05 48              |   H    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 0d 2a              |   *    |		.PTR	0x20d2a
00020010					code.end:
00020010 00 02 07 7e              |   ~    |		.PTR	0x2077e
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 05 86              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 06 42              |   B    |		.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 42 4f        |@(#)BO  |		.XXX[0x6]
00020110 4f 54 49 4e 46 4f 2c 31  |OTINFO,1|		.XXX[0x18]
00020118 2e 31 2c 39 32 2f 30 37  |.1,92/07|
00020120 2f 30 39 2c 31 32 3a 30  |/09,12:0|
00020128 30 3a 30 30 5c 20        |0:00\   |		.XXX[0x6]
0002012e 43 61 6e 27 74 20 72 65  |Can't re|		.TXT	'Can't read configuration information. '
00020154 43 55 52 52 45 4e 54 2e  |CURRENT.|		.TXT	'CURRENT.M200_CONFIG '
00020168 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode file    :_'
0002017c 44 61 74 65 20 6f 66 20  |Date of |		.TXT	'Date of bind      :_'
00020190 50 61 74 68 6e 61 6d 65  |Pathname|		.TXT	'Pathname of delta :_'
000201a4 50 61 74 68 6e 61 6d 65  |Pathname|		.TXT	'Pathname of mom   :_'
000201b8 2e 55                    |.U      |		.TXT	'.U'
000201ba 43 4f                    |CO      |		.TXT	'CO'
000201bc 44 45                    |DE      |		.TXT	'DE'
000201be 3a 5f                    |:_      |		.TXT	':_'
000201c0 ; --------------------------------------------------------------------------------------
000201c0 ; OMSI PASCAL Function
000201c0 ;    <LVAR -0x004 @ 1(r)>
000201c0 ; --------------------------------------------------------------------------------------
000201c0 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
000201c4 bf d5                    |        |		CMPA.L	(A5),A7
000201c6 62 06                    |b       |		BHI	0x201ce
000201c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000201cc 4e 76                    |Nv      |		TRAPV
000201ce de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000201d2 48 e7 e0 c8              |H       |		MOVEM.L	A4+A1+A0+D2+D1+D0,-(A7)
000201d6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000201d8 74 10                    |t       |		MOVEQ.L	#0x10,D2
000201da 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000201de 20 4f                    | O      |		MOVEA.L	A7,A0
000201e0 43 fa ff 72              |C  r    |		LEA.L	0x20154,A1
000201e4 70 12                    |p       |		MOVEQ.L	#0x12,D0
000201e6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000201e8 51 c8 ff fc              |Q       |		DBF	D0,0x201e6
000201ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000201ee 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000201f2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000201f4 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000201f8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000201fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020200 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020202 de c2                    |        |		ADDA.W	D2,A7
00020204 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020206 48 78 00 03              |Hx      |		PEA.L	0x3
0002020a 48 79 00 02 0b 86        |Hy      |		PEA.L	0x20b86
00020210 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020214 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
0002021a de c2                    |        |		ADDA.W	D2,A7
0002021c 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020220 66 32                    |f2      |		BNE	0x20254
00020222 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
00020226 20 4f                    | O      |		MOVEA.L	A7,A0
00020228 43 fa ff 04              |C       |		LEA.L	0x2012e,A1
0002022c 70 24                    |p$      |		MOVEQ.L	#0x24,D0
0002022e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020230 51 c8 ff fc              |Q       |		DBF	D0,0x2022e
00020234 42 27                    |B'      |		CLR.B	-(A7)
00020236 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020238 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002023c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002023e 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
00020242 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020248 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002024a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020250 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020254 4c df 13 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A4
00020258 4e 5e                    |N^      |		UNLK	A6
0002025a 4e 75                    |Nu      |		RTS
0002025c ; --------------------------------------------------------------------------------------
0002025c ; OMSI PASCAL Function
0002025c ;    <LVAR  0x00c 4(r)>
0002025c ;    <LVAR  0x008 4(rw)>
0002025c ; --------------------------------------------------------------------------------------
0002025c 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00020260 bf d5                    |        |		CMPA.L	(A5),A7
00020262 62 06                    |b       |		BHI	0x2026a
00020264 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020268 4e 76                    |Nv      |		TRAPV
0002026a de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002026e 48 e7 83 80              |H       |		MOVEM.L	A0+D7+D6+D0,-(A7)
00020272 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020274 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00020278 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
0002027e 63 02                    |c       |		BLS	0x20282
00020280 4e 4f                    |NO      |		TRAP	#15
00020282 e3 80                    |        |		ASL.L	#0x1,D0
00020284 41 f9 00 02 07 7e        |A    ~  |		LEA.L	0x2077e,A0
0002028a 3e 30 08 08              |>0      |		MOVE.W	(A0+D0.L+#0x8),D7
0002028e 4a 06                    |J       |		TST.B	D6
00020290 67 06                    |g       |		BEQ	0x20298
00020292 52 ae 00 08              |R       |		ADDQ.L	#0x1,(A6+0x8)
00020296 60 02                    |`       |		BRA	0x2029a
00020298 e0 4f                    | O      |		LSR.W	#0x8,D7
0002029a 02 47 00 ff              | G      |		ANDI.W	#0x00ff,D7
0002029e 44 06                    |D       |		NEG.B	D6
000202a0 52 06                    |R       |		ADDQ.B	#0x1,D6
000202a2 4a 47                    |JG      |		TST.W	D7
000202a4 67 12                    |g       |		BEQ	0x202b8
000202a6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000202aa 4f bc 00 ff              |O       |		CHK.W	#0xff,D7
000202ae 1f 07                    |        |		MOVE.B	D7,-(A7)
000202b0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000202b6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000202b8 4a 47                    |JG      |		TST.W	D7
000202ba 66 b8                    |f       |		BNE	0x20274
000202bc 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000202c0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000202c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000202c8 4c df 01 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0
000202cc 4e 5e                    |N^      |		UNLK	A6
000202ce 4e 75                    |Nu      |		RTS
000202d0 ; --------------------------------------------------------------------------------------
000202d0 ; OMSI PASCAL Function
000202d0 ;    <LVAR -0x006 @ 4(rw)>
000202d0 ;    <LVAR -0x00a @ 4(r)>
000202d0 ;    <LVAR -0x00c @ 1(r)>
000202d0 ;    <LVAR -0x010 @ 4(rw)>
000202d0 ; --------------------------------------------------------------------------------------
000202d0 4e 56 ff 76              |NV v    |		LINK.W	A6,#0xff76
000202d4 bf d5                    |        |		CMPA.L	(A5),A7
000202d6 62 06                    |b       |		BHI	0x202de
000202d8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000202dc 4e 76                    |Nv      |		TRAPV
000202de de fc 00 7a              |   z    |		ADDA.W	#0x7a,A7
000202e2 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
000202e6 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000202ec 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
000202f0 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
000202f4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000202f6 74 14                    |t       |		MOVEQ.L	#0x14,D2
000202f8 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000202fa 78 1a                    |x       |		MOVEQ.L	#0x1a,D4
000202fc 7a 02                    |z       |		MOVEQ.L	#0x02,D5
000202fe 7c 1c                    ||       |		MOVEQ.L	#0x1c,D6
00020300 9e c3                    |        |		SUBA.W	D3,A7
00020302 20 4f                    | O      |		MOVEA.L	A7,A0
00020304 43 f9 00 02 0b b9        |C       |		LEA.L	0x20bb9,A1
0002030a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0002030c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002030e 51 c8 ff fc              |Q       |		DBF	D0,0x2030c
00020312 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020314 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020318 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002031a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002031c 4e 92                    |N       |		JSR	(A2)
0002031e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020320 20 5f                    | _      |		MOVEA.L	(A7)+,A0
00020322 26 88                    |&       |		MOVE.L	A0,(A3)
00020324 43 fa fe 56              |C  V    |		LEA.L	0x2017c,A1
00020328 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002032a 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
0002032c 51 c8 ff fc              |Q       |		DBF	D0,0x2032a
00020330 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020332 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020336 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020338 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002033a 4e 92                    |N       |		JSR	(A2)
0002033c 2e 88                    |.       |		MOVE.L	A0,(A7)
0002033e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020344 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020346 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002034c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002034e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020354 de fc 00 16              |        |		ADDA.W	#0x16,A7
00020358 3e ba fe 62              |>  b    |		MOVE.W	0x201bc,(A7)
0002035c 3f 3a fe 5c              |?: \    |		MOVE.W	0x201ba,-(A7)
00020360 3f 3a fe 56              |?: V    |		MOVE.W	0x201b8,-(A7)
00020364 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020366 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002036a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002036c 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00020370 4e 92                    |N       |		JSR	(A2)
00020372 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020374 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00020376 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020378 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002037a 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002037c 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00020382 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020384 4a 9f                    |J       |		TST.L	(A7)+
00020386 66 12                    |f       |		BNE	0x2039a
00020388 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002038a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002038c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002038e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020394 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020396 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00020398 60 0a                    |`       |		BRA	0x203a4
0002039a 48 54                    |HT      |		PEA.L	(A4)
0002039c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000203a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203a4 de c4                    |        |		ADDA.W	D4,A7
000203a6 2e 93                    |.       |		MOVE.L	(A3),(A7)
000203a8 42 27                    |B'      |		CLR.B	-(A7)
000203aa 42 27                    |B'      |		CLR.B	-(A7)
000203ac 48 78 00 00              |Hx      |		PEA.L	0x0
000203b0 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000203b4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000203b8 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000203be de c2                    |        |		ADDA.W	D2,A7
000203c0 4a 2e ff f4              |J.      |		TST.B	(A6-0xc)
000203c4 66 00 00 aa              |f       |		BNE	0x20470
000203c8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000203cc 42 67                    |Bg      |		CLR.W	-(A7)
000203ce 42 67                    |Bg      |		CLR.W	-(A7)
000203d0 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
000203d4 1f 05                    |        |		MOVE.B	D5,-(A7)
000203d6 41 f9 00 02 07 86        |A       |		LEA.L	0x20786,A0
000203dc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000203de 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000203e2 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000203e8 de c2                    |        |		ADDA.W	D2,A7
000203ea 41 fa fd a4              |A       |		LEA.L	0x20190,A0
000203ee 70 04                    |p       |		MOVEQ.L	#0x04,D0
000203f0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000203f2 51 c8 ff fc              |Q       |		DBF	D0,0x203f0
000203f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203f8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000203fc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000203fe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020400 4e 92                    |N       |		JSR	(A2)
00020402 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020404 48 78 00 04              |Hx      |		PEA.L	0x4
00020408 4e ba fe 52              |N  R    |		JSR	0x2025c
0002040c de c6                    |        |		ADDA.W	D6,A7
0002040e 41 fa fd 94              |A       |		LEA.L	0x201a4,A0
00020412 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020414 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020416 51 c8 ff fc              |Q       |		DBF	D0,0x20414
0002041a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002041c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020420 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020422 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020424 4e 92                    |N       |		JSR	(A2)
00020426 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020428 48 78 00 3c              |Hx <    |		PEA.L	0x3c
0002042c 4e ba fe 2e              |N  .    |		JSR	0x2025c
00020430 de c6                    |        |		ADDA.W	D6,A7
00020432 41 fa fd 84              |A       |		LEA.L	0x201b8,A0
00020436 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020438 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002043a 51 c8 ff fc              |Q       |		DBF	D0,0x20438
0002043e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020440 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020444 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020446 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020448 4e 92                    |N       |		JSR	(A2)
0002044a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002044c 48 78 00 14              |Hx      |		PEA.L	0x14
00020450 4e ba fe 0a              |N       |		JSR	0x2025c
00020454 de c4                    |        |		ADDA.W	D4,A7
00020456 42 17                    |B       |		CLR.B	(A7)
00020458 1f 05                    |        |		MOVE.B	D5,-(A7)
0002045a 48 78 00 01              |Hx      |		PEA.L	0x1
0002045e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020462 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020466 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002046c de fc 00 10              |        |		ADDA.W	#0x10,A7
00020470 48 53                    |HS      |		PEA.L	(A3)
00020472 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020478 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002047a 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
0002047e 4e 5e                    |N^      |		UNLK	A6
00020480 4e 75                    |Nu      |		RTS
00020482 ; --------------------------------------------------------------------------------------
00020482 ; OMSI PASCAL Function
00020482 ; --------------------------------------------------------------------------------------
00020482 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00020486 bf d5                    |        |		CMPA.L	(A5),A7
00020488 62 06                    |b       |		BHI	0x20490
0002048a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002048e 4e 76                    |Nv      |		TRAPV
00020490 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00020494 48 e7 f3 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00020498 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
0002049a 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002049c 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
0002049e 4a 39 00 02 0b 8b        |J9      |		TST.B	0x20b8b
000204a4 67 04                    |g       |		BEQ	0x204aa
000204a6 7c 04                    ||       |		MOVEQ.L	#0x04,D6
000204a8 60 02                    |`       |		BRA	0x204ac
000204aa 7c 09                    ||       |		MOVEQ.L	#0x09,D6
000204ac 1f 06                    |        |		MOVE.B	D6,-(A7)
000204ae 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000204b0 be 17                    |        |		CMP.B	(A7),D7
000204b2 6e 0a                    |n       |		BGT	0x204be
000204b4 10 17                    |        |		MOVE.B	(A7),D0
000204b6 0c 00 00 09              |        |		CMPI.B	#0x09,D0
000204ba 6f 02                    |o       |		BLE	0x204be
000204bc 4e 4f                    |NO      |		TRAP	#15
000204be be 17                    |        |		CMP.B	(A7),D7
000204c0 6e 7c                    |n|      |		BGT	0x2053e
000204c2 10 07                    |        |		MOVE.B	D7,D0
000204c4 48 80                    |H       |		EXTB.W	D0
000204c6 eb 40                    | @      |		ASL.W	#0x5,D0
000204c8 41 f9 00 02 07 7e        |A    ~  |		LEA.L	0x2077e,A0
000204ce 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000204d2 9e c1                    |        |		SUBA.W	D1,A7
000204d4 22 4f                    |"O      |		MOVEA.L	A7,A1
000204d6 41 e8 04 5b              |A  [    |		LEA.L	(A0+0x45b),A0
000204da 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000204dc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000204de 51 c8 ff fc              |Q       |		DBF	D0,0x204dc
000204e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204e8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000204ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000204ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000204f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204f4 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000204f6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000204fa 3e ba fc c2              |>       |		MOVE.W	0x201be,(A7)
000204fe 9e c3                    |        |		SUBA.W	D3,A7
00020500 1f 07                    |        |		MOVE.B	D7,-(A7)
00020502 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020508 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002050a 48 78 00 15              |Hx      |		PEA.L	0x15
0002050e 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00020514 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020516 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002051a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002051c 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020520 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020526 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020528 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002052a 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020530 de c3                    |        |		ADDA.W	D3,A7
00020532 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020538 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002053a 52 07                    |R       |		ADDQ.B	#0x1,D7
0002053c 68 80                    |h       |		BVC	0x204be
0002053e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020540 4c df 13 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A4
00020544 4e 5e                    |N^      |		UNLK	A6
00020546 4e 75                    |Nu      |		RTS
00020548 ; --------------------------------------------------------------------------------------
00020548 ; OMSI PASCAL Function
00020548 ; --------------------------------------------------------------------------------------
00020548					START:
00020548 4f fa 00 08              |O       |		LEA.L	MAIN,A7
0002054c 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020552					MAIN:
00020552 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020558 4e ba fc 66              |N  f    |		JSR	0x201c0
0002055c 4e ba fd 72              |N  r    |		JSR	0x202d0
00020560 4e ba ff 20              |N       |		JSR	0x20482
00020564 42 27                    |B'      |		CLR.B	-(A7)
00020566 48 78 00 01              |Hx      |		PEA.L	0x1
0002056a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020570 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020572 4e b9 00 01 02 84        |N       |		JSR	?exit
00020578 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020586 ; --------------------------------------------------------------------------------------
00020586 ; OMSI PASCAL Function
00020586 ;    <LVAR  0x008 1(r)>
00020586 ; --------------------------------------------------------------------------------------
00020586					PROG_FAIL:
00020586 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002058a bf d5                    |        |		CMPA.L	(A5),A7
0002058c 62 06                    |b       |		BHI	0x20594
0002058e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020592 4e 76                    |Nv      |		TRAPV
00020594 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020598 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002059c 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000205a0 70 06                    |p       |		MOVEQ.L	#0x06,D0
000205a2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000205a4 51 c8 ff fc              |Q       |		DBF	D0,0x205a2
000205a8 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000205ac 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000205ae 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000205b2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000205b6 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000205ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205c2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000205c6 48 80                    |H       |		EXTB.W	D0
000205c8 48 c0                    |H       |		EXTW.L	D0
000205ca 2f 00                    |/       |		MOVE.L	D0,-(A7)
000205cc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000205d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205d4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000205da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205dc 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000205e2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000205e6 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000205ea 4e 5e                    |N^      |		UNLK	A6
000205ec 4e 75                    |Nu      |		RTS
000205ee 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000205fc 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002060a 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020618 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002062a 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00020642 ; --------------------------------------------------------------------------------------
00020642 ; OMSI PASCAL Function
00020642 ;    <LVAR  0x00e 1(r)>
00020642 ;    <LVAR  0x00a 4(r)>
00020642 ;    <LVAR  0x008 1(r)>
00020642 ; --------------------------------------------------------------------------------------
00020642					EXP_FAIL:
00020642 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020646 bf d5                    |        |		CMPA.L	(A5),A7
00020648 62 06                    |b       |		BHI	0x20650
0002064a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002064e 4e 76                    |Nv      |		TRAPV
00020650 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020654 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020658 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002065e 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020664 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020666 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020668 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002066a 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002066c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002066e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020674 41 fa ff b4              |A       |		LEA.L	0x2062a,A0
00020678 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002067a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002067c 51 c8 ff fc              |Q       |		DBF	D0,0x2067a
00020680 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020682 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020686 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020688 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002068a 4e 93                    |N       |		JSR	(A3)
0002068c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002068e 4e 94                    |N       |		JSR	(A4)
00020690 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020692 20 4f                    | O      |		MOVEA.L	A7,A0
00020694 43 fa ff 58              |C  X    |		LEA.L	0x205ee,A1
00020698 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002069a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002069c 51 c8 ff fc              |Q       |		DBF	D0,0x2069a
000206a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000206a2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000206a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000206a8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206aa 4e 93                    |N       |		JSR	(A3)
000206ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ae 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000206b2 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000206b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ba 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000206c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206c2 4e 94                    |N       |		JSR	(A4)
000206c4 de c4                    |        |		ADDA.W	D4,A7
000206c6 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000206ca b0 c1                    |        |		CMPA.W	D1,A0
000206cc 67 48                    |gH      |		BEQ	0x20716
000206ce 9e c5                    |        |		SUBA.W	D5,A7
000206d0 22 4f                    |"O      |		MOVEA.L	A7,A1
000206d2 45 fa ff 28              |E  (    |		LEA.L	0x205fc,A2
000206d6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000206d8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000206da 51 c8 ff fc              |Q       |		DBF	D0,0x206d8
000206de 9e c3                    |        |		SUBA.W	D3,A7
000206e0 22 4f                    |"O      |		MOVEA.L	A7,A1
000206e2 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000206e6 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000206e8 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000206ea 51 c8 ff fc              |Q       |		DBF	D0,0x206e8
000206ee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000206f0 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000206f4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000206f6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000206f8 4e 93                    |N       |		JSR	(A3)
000206fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206fc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020700 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020702 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020704 4e 93                    |N       |		JSR	(A3)
00020706 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020708 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002070e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020710 4e 94                    |N       |		JSR	(A4)
00020712 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020716 9e c5                    |        |		SUBA.W	D5,A7
00020718 20 4f                    | O      |		MOVEA.L	A7,A0
0002071a 43 fa fe ee              |C       |		LEA.L	0x2060a,A1
0002071e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020720 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020722 51 c8 ff fc              |Q       |		DBF	D0,0x20720
00020726 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020728 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002072c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002072e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020730 4e 93                    |N       |		JSR	(A3)
00020732 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020734 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020738 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002073e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020740 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020746 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020748 4e 94                    |N       |		JSR	(A4)
0002074a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002074c 20 4f                    | O      |		MOVEA.L	A7,A0
0002074e 43 fa fe da              |C       |		LEA.L	0x2062a,A1
00020752 70 16                    |p       |		MOVEQ.L	#0x16,D0
00020754 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020756 51 c8 ff fc              |Q       |		DBF	D0,0x20754
0002075a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002075e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020760 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020764 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020766 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002076a 4e 93                    |N       |		JSR	(A3)
0002076c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002076e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020774 de c3                    |        |		ADDA.W	D3,A7
00020776 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002077a 4e 5e                    |N^      |		UNLK	A6
0002077c 4e 75                    |Nu      |		RTS