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

⟦9e941a394⟧ M200

    Length: 3584 (0xe00)
    Types: M200
    Notes: M200_PROGRAM
    Names: »P3FRU.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »P3FRU.M200« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »P3FRU.M200« 

Disassembly

0x201dc


@ 201dc
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 201dc-20318 Body>                                              
        <POP 201dc-201f2 Prologue>                           Σ0         ↓
        <POP 201f2-20208 RegCacheLoad>                       Σ0         ↓
        <POP 20208-20268 Naked>                              Σ0         ↓ →0x202b0
            <Call 0x20208 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x2020e [18] @>                            Δ-18               {[«18""»]}
            <POP 2021a-2021c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2021c 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x20228 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2022a-2022b StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2022b [14] @>                            Δ-14               {[«14""»]}
            <POP 2023a-2023c StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2023c 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 20246-20248 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 20248  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x2024c 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 20252-20254 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x20254 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2025a-2025c StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2025c 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2025e-20260 StackAdj>                       Δ+18               {}
            <MI 20260  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20264  CMPA.W  #0x01,A0>                                        {}
            <MI 20266  BEQ     0x202b0>                                         {}
        <POP 20268-202b0 Naked>                              Σ0         ↓
            <Blob 0x20268 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20278 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 20288-2028a StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2028a 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20294-20296 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x20296>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x20296 12>                      Δ-4        
                <Const 0x2029a 0x1.2>                        Δ-2        
                <Const 0x2029c 0x1e.2>                       Δ-2        
                <Call 0x2029e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 202a0-202a2 StackAdj>                   Δ+8        
            <Call 0x202a2 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 202a8-202aa StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x202aa 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 202ac-202b0 StackAdj>                       Δ+48               {}
        <POP 202b0-20310 Naked>                              Σ0         ↓ ←0x20208
            <Blob 0x202b0 [14] @>                            Δ-14               {[«14""»]}
            <POP 202c0-202c2 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x202c2 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 202cc-202ce StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 202ce  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x202d2 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 202d8-202da StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x202da 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 202e0-202e2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x202e2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 202e4-202e5 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x202e5 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x202f4 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 202f8-202fa StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x202fa 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x20308 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2030e-20310 StackAdj>                       Δ+30               {}
        <POP 20310-20318 Epilogue>                           Σ0         

0x20318


@ 20318
        <LVAR  0x02a 4(r)>
        <LVAR  0x028 1(r)>
        <LVAR  0x026 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x020 4(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20318-20442 Body>                                              
        <POP 20318-2032e Prologue>                           Σ0         ↓
        <POP 2032e-2033c RegCacheLoad>                       Σ0         ↓
        <POP 2033c-203dc Naked>                              Σ0         ↓ →0x2043a
            <Blob 0x2033c [2] @>                             Δ-2                {[«2""»]}
            <POP 20340-20342 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <POP 20342-20343 StackAdj>                       Δ+2                {[«2""»]|[-2-]}
            <Blob 0x20343 [2] @>                             Δ-2                {[«2""»]|[-2-]|[«2""»]}
            <MI 20346  MOVE.B  0x2016d,(A7+0x1)>                                {[«2""»]|[-2-]|[«2""»]}
            <MI 2034c  MOVE.B  0x2016e,(A7+0x2)>                                {[«2""»]|[-2-]|[«2""»]}
            <POP 20352-20354 StackAdj>                       Δ-8                {[«2""»]|[-2-]|[«2""»]|[-8-]}
            <Lit 0x20354 2>                                                     {[«2""»]|[-2-]|[«2""»]|[-4-]|[$$P ]}
            <MI 20364  MOVE.L  (A6+0x2a),(A7)>                                  {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']}
            <POP 2035e-20364 StackAdj>                       Δ-8                {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
            <Call 0x20368 0x102e4>                                              {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x2036e>                                                       {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
                <Pointer.sp 0x2036e 16>                      Δ-4        
                <Const 0x20372 0x1.2>                        Δ-2        
                <Const 0x20374 0x3.2>                        Δ-2        
                <Call 0x20378 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2037e-20380 StackAdj>                   Δ+8        
            <Call 0x20380 0x102d4>                                              {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
                StringCat3(a, b, c : String) : String
            <POP 20386-20388 StackAdj>                       Δ+12               {[«2""»]|[-2-]|[«2""»]|[-4-]}
            <MI 20388  MOVEA.L (A7)+,A4>                     Δ+4                {[«2""»]|[-2-]|[«2""»]}
            <POP 2038a-2038c StackAdj>                       Δ+6                {}
            <Call 0x2038c 0x10538>                                              {}
                IPC_Init(void)
            <MI 20392  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[2, '(A6+0x28)']}
            <MI 20396  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']}
            <Const 0x20398 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
            <Const 0x2039a 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x2039c 0x104fc>                                              {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 203a2-203a4 StackAdj>                       Δ+12               {[2, '(A6+0x28)']}
            <MI 203a4  MOVE.B  (A6+0x26),(A7)>                                  {[-2-]}
            <Call 0x203a8 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 203ae  MOVE.B  (A6+0x24),(A7)>                                  {[-2-]}
            <Call 0x203b2 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 203b8-203ba StackAdj>                       Δ+2                {}
            <Call 0x203ba 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 203c0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 203c4  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x203c6 0x1.4>                            Δ-4                {[4, 'A4']|[##1]}
            <Const 0x203ca 0x1.2>                            Δ-2                {[4, 'A4']|[##1]|[#1]}
            <MI 203cc  PEA.L   (A0)>                         Δ-4                {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x203ce 0x103b0>                                              {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 203d4-203d8 StackAdj>                       Δ+14               {}
            <MI 203d8  TST.B   (A0)>                                            {}
            <MI 203da  BNE     0x2043a>                                         {}
        <POP 203dc-2043a Naked>                              Σ0         ↓
            <Call 0x203dc 0x10538>                                              {}
                IPC_Init(void)
            <MI 203e2  MOVEA.L (A6+0x20),A0>                                    {}
            <MI 203e6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x203e8 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 203ee-203f0 StackAdj>                       Δ+4                {}
            <MI 203f0  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 203f4  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x203f6 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 203f8-203fa StackAdj>                       Δ+4                {}
            <MI 203fa  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 203fe  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20400 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20402-20404 StackAdj>                       Δ+4                {}
            <MI 20404  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20408  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2040a 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 2040c-2040e StackAdj>                       Δ+4                {}
            <MI 2040e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20412  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20414 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20416 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20418 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 2041e-20420 StackAdj>                       Δ+12               {}
            <MI 20420  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20424  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20426 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20428 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x2042c 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20432-20434 StackAdj>                       Δ+12               {}
            <Call 0x20434 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 2043a-20442 Epilogue>                           Σ0         ←0x2033c

0x20442


@ 20442
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20442-204a0 Body>                                              
        <POP 20442-20458 Prologue>                           Σ0         ↓
        <POP 20458-20498 Naked>                              Σ0         ↓
            <Call 0x20458 0x10538>                                              {}
                IPC_Init(void)
            <MI 2045e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20462  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20464 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20468 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x2046c 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20472-20476 StackAdj>                       Δ+12               {}
            <MI 20476  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2047a  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2047c 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20482-20484 StackAdj>                       Δ+4                {}
            <MI 20484  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20488  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2048a 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20490-20492 StackAdj>                       Δ+4                {}
            <Call 0x20492 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20498-204a0 Epilogue>                           Σ0         

0x204a0


@ 204a0
        <LVAR  0x01e 1(r)>
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 204a0-20530 Body>                                              
        <POP 204a0-204b6 Prologue>                           Σ0         ↓
        <POP 204b6-204c0 RegCacheLoad>                       Σ0         ↓
        <POP 204c0-20528 Naked>                              Σ0         ↓
            <Call 0x204c0 0x10538>                                              {}
                IPC_Init(void)
            <MI 204c6  MOVE.B  (A6+0x1e),-(A7)>              Δ-2                {[2, '(A6+0x1e)']}
            <Call 0x204ca 0x10502>                                              {[2, '(A6+0x1e)']}
                IPC_PutBool(a : Bool)
            <POP 204d0-204d2 StackAdj>                       Δ+2                {}
            <MI 204d2  MOVE.L  (A6+0x1a),-(A7)>              Δ-4                {[4, '(A6+0x1a)']}
            <Call 0x204d6 0x10508>                                              {[4, '(A6+0x1a)']}
                IPC_PutString(a : String)
            <MI 204d8  MOVE.L  (A6+0x16),(A7)>                                  {[4, '(A6+0x16)']}
            <Call 0x204dc 0x10508>                                              {[4, '(A6+0x16)']}
                IPC_PutString(a : String)
            <MI 204de  MOVE.L  (A6+0x12),(A7)>                                  {[4, '(A6+0x12)']}
            <Call 0x204e2 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 204e4-204e6 StackAdj>                       Δ+2                {[-2-]}
            <MI 204e6  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <MI 204ea  PEA.L   (A7)>                         Δ-4                {[-2-]|[4, '^(A7)']}
            <Const 0x204ec 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]}
            <Const 0x204ee 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x204f0 0x104fc>                                              {[-2-]|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 204f6-204fa StackAdj>                       Δ+10               {[-2-]|[-2-]}
            <MI 204fa  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 204fe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20502  PEA.L   (A7)>                         Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
            <Const 0x20504 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
            <Const 0x20506 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
            <Call 0x2050a 0x104fc>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20510-20514 StackAdj>                       Δ+20               {}
            <Call 0x20514 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 2051a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2051c 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20520 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20526-20528 StackAdj>                       Δ+6                {}
        <POP 20528-20530 Epilogue>                           Σ0         

0x20530


@ 20530
        <LVAR  0x024 4(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20530-2062c Body>                                              
        <POP 20530-20546 Prologue>                           Σ0         ↓
        <POP 20546-2054e RegCacheLoad>                       Σ0         ↓
        <POP 2054e-205c8 Naked>                              Σ0         ↓ →0x20624
            <Call 0x2054e 0x10538>                                              {}
                IPC_Init(void)
            <MI 20554  MOVE.B  (A6+0x22),-(A7)>              Δ-2                {[2, '(A6+0x22)']}
            <Call 0x20558 0x10502>                                              {[2, '(A6+0x22)']}
                IPC_PutBool(a : Bool)
            <MI 2055e  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x20562 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20568-2056a StackAdj>                       Δ+2                {}
            <Call 0x2056a 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x20570 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20574 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x20578 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 2057c-2057e StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x2057e 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 2058c  MOVE.L  (A6+0x24),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
            <POP 20586-2058c StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
            <Call 0x20590 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
                StringDup(a : String) : String
            <POP 20596-20598 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
            <Call 0x20598 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2059e-205a0 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x205a0 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 205a6-205aa StackAdj>                       Δ+16               {}
            <MI 205aa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 205ae  MOVE.L  (A6+0x24),-(A7)>              Δ-4                {[4, '(A6+0x24)']}
            <Const 0x205b2 0x1.4>                            Δ-4                {[4, '(A6+0x24)']|[##1]}
            <Const 0x205b6 0x1.2>                            Δ-2                {[4, '(A6+0x24)']|[##1]|[#1]}
            <MI 205b8  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x205ba 0x103b0>                                              {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 205c0-205c4 StackAdj>                       Δ+14               {}
            <MI 205c4  TST.B   (A0)>                                            {}
            <MI 205c6  BNE     0x20624>                                         {}
        <POP 205c8-20624 Naked>                              Σ0         ↓
            <Call 0x205c8 0x10538>                                              {}
                IPC_Init(void)
            <MI 205ce  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 205d2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x205d4 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 205da-205dc StackAdj>                       Δ+4                {}
            <MI 205dc  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 205e0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x205e2 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 205e8-205ea StackAdj>                       Δ+4                {}
            <MI 205ea  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 205ee  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x205f0 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 205f6-205f8 StackAdj>                       Δ+4                {}
            <MI 205f8  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 205fc  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x205fe 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20600 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20602 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20608-2060a StackAdj>                       Δ+12               {}
            <MI 2060a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2060e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20610 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20612 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x20616 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 2061c-2061e StackAdj>                       Δ+12               {}
            <Call 0x2061e 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20624-2062c Epilogue>                           Σ0         ←0x2054e

0x2062c


@ 2062c
        <LVAR  0x028 1(r)>
        <LVAR  0x024 4(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2062c-2073a Body>                                              
        <POP 2062c-20642 Prologue>                           Σ0         ↓
        <POP 20642-2064a RegCacheLoad>                       Σ0         ↓
        <POP 2064a-206d6 Naked>                              Σ0         ↓ →0x20732
            <Call 0x2064a 0x10538>                                              {}
                IPC_Init(void)
            <MI 20650  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[2, '(A6+0x28)']}
            <MI 20654  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']}
            <Const 0x20656 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
            <Const 0x20658 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x2065a 0x104fc>                                              {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20660-20662 StackAdj>                       Δ+12               {[2, '(A6+0x28)']}
            <MI 20662  MOVE.B  (A6+0x22),(A7)>                                  {[-2-]}
            <Call 0x20666 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 2066c  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x20670 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20676-20678 StackAdj>                       Δ+2                {}
            <Call 0x20678 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x2067e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20682 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x20686 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 2068a-2068c StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x2068c 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 2069a  MOVE.L  (A6+0x24),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
            <POP 20694-2069a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
            <Call 0x2069e 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
                StringDup(a : String) : String
            <POP 206a4-206a6 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
            <Call 0x206a6 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 206ac-206ae StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x206ae 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 206b4-206b8 StackAdj>                       Δ+16               {}
            <MI 206b8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 206bc  MOVE.L  (A6+0x24),-(A7)>              Δ-4                {[4, '(A6+0x24)']}
            <Const 0x206c0 0x1.4>                            Δ-4                {[4, '(A6+0x24)']|[##1]}
            <Const 0x206c4 0x1.2>                            Δ-2                {[4, '(A6+0x24)']|[##1]|[#1]}
            <MI 206c6  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x206c8 0x103b0>                                              {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 206ce-206d2 StackAdj>                       Δ+14               {}
            <MI 206d2  TST.B   (A0)>                                            {}
            <MI 206d4  BNE     0x20732>                                         {}
        <POP 206d6-20732 Naked>                              Σ0         ↓
            <Call 0x206d6 0x10538>                                              {}
                IPC_Init(void)
            <MI 206dc  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 206e0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x206e2 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 206e8-206ea StackAdj>                       Δ+4                {}
            <MI 206ea  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 206ee  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x206f0 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 206f6-206f8 StackAdj>                       Δ+4                {}
            <MI 206f8  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 206fc  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x206fe 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 20704-20706 StackAdj>                       Δ+4                {}
            <MI 20706  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 2070a  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x2070c 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x2070e 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20710 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20716-20718 StackAdj>                       Δ+12               {}
            <MI 20718  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2071c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x2071e 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20720 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x20724 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 2072a-2072c StackAdj>                       Δ+12               {}
            <Call 0x2072c 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20732-2073a Epilogue>                           Σ0         ←0x2064a

0x2073a


@ 2073a
        <LVAR  0x02c 1(r)>
        <LVAR  0x028 4(r)>
        <LVAR  0x026 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2073a-20852 Body>                                              
        <POP 2073a-20750 Prologue>                           Σ0         ↓
        <POP 20750-2075e RegCacheLoad>                       Σ0         ↓
        <POP 2075e-207ee Naked>                              Σ0         ↓ →0x2084a
            <Call 0x2075e 0x10538>                                              {}
                IPC_Init(void)
            <MI 20764  MOVE.B  (A6+0x2c),-(A7)>              Δ-2                {[2, '(A6+0x2c)']}
            <MI 20768  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']}
            <Const 0x2076a 0x0.4>                            Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]}
            <Const 0x2076c 0x0.4>                            Δ-4                {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x2076e 0x104fc>                                              {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 20774-20776 StackAdj>                       Δ+12               {[2, '(A6+0x2c)']}
            <MI 20776  MOVE.B  (A6+0x26),(A7)>                                  {[-2-]}
            <Call 0x2077a 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 2077c  MOVE.B  (A6+0x24),(A7)>                                  {[-2-]}
            <Call 0x20780 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 20782  MOVE.B  (A6+0x22),(A7)>                                  {[-2-]}
            <Call 0x20786 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <MI 20788  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x2078c 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 2078e-20790 StackAdj>                       Δ+2                {}
            <Call 0x20790 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x20796 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2079a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2079e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 207a2-207a4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x207a4 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 207b2  MOVE.L  (A6+0x28),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']}
            <POP 207ac-207b2 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
            <Call 0x207b6 0x102cc>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
                StringDup(a : String) : String
            <POP 207bc-207be StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
            <Call 0x207be 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 207c4-207c6 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x207c6 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 207cc-207d0 StackAdj>                       Δ+16               {}
            <MI 207d0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 207d4  MOVE.L  (A6+0x28),-(A7)>              Δ-4                {[4, '(A6+0x28)']}
            <Const 0x207d8 0x1.4>                            Δ-4                {[4, '(A6+0x28)']|[##1]}
            <Const 0x207dc 0x1.2>                            Δ-2                {[4, '(A6+0x28)']|[##1]|[#1]}
            <MI 207de  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
            <Call 0x207e0 0x103b0>                                              {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 207e6-207ea StackAdj>                       Δ+14               {}
            <MI 207ea  TST.B   (A0)>                                            {}
            <MI 207ec  BNE     0x2084a>                                         {}
        <POP 207ee-2084a Naked>                              Σ0         ↓
            <Call 0x207ee 0x10538>                                              {}
                IPC_Init(void)
            <MI 207f4  MOVEA.L (A6+0x1c),A0>                                    {}
            <MI 207f8  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x207fa 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20800-20802 StackAdj>                       Δ+4                {}
            <MI 20802  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 20806  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20808 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 2080e-20810 StackAdj>                       Δ+4                {}
            <MI 20810  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20814  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20816 0x1052c>                                              {[4, '^(A0)']}
                IPC_GetString(VAR retval : String)
            <POP 2081c-2081e StackAdj>                       Δ+4                {}
            <MI 2081e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20822  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20824 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20826 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x20828 0x10520>                                              {[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 2082e-20830 StackAdj>                       Δ+12               {}
            <MI 20830  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 20834  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x20836 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x20838 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x2083c 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 20842-20844 StackAdj>                       Δ+12               {}
            <Call 0x20844 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 2084a-20852 Epilogue>                           Σ0         ←0x2075e

0x20852


@ 20852
        <LVAR -0x004 1(rw)>
    <POP 20852-2091a Body>                                              
        <POP 20852-20868 Prologue>                           Σ0         ↓
        <POP 20868-20876 RegCacheLoad>                       Σ0         ↓
        <POP 20876-20902 Naked>                              Σ0         ↓ →0x20912
            <Const 0x20876 0x20cc8.4>                        Δ-4                {[##134344]}
            <Call 0x20878 0x102bc>                                              {[##134344]}
                FreeString(VAR a : String)
            <POP 2087e-2087f StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2087f [8] @>                             Δ-8                {[«8""»]}
            <POP 2088e-20890 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x20890 7>                                                     {[«8""»]|[$$P3UCODE]}
            <MI 208a2  MOVE.L  (A7)+,0x20cc8>                Δ+4                {[«8""»]}
            <POP 208a4-208a6 StackAdj>                       Δ+8                {}
            <MI 208a6  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 208aa  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <POP 208ae-208b0 StackAdj>                       Δ-4                {[2, '(A6-0x4)']|[-4-]}
            <Blob 0x208b0 [4] 0x20cc8>                       Δ-4                {[2, '(A6-0x4)']|[-4-]|[«4»]}
            <Call 0x208b2 0x102cc>                                              {[2, '(A6-0x4)']|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 208b8-208ba StackAdj>                       Δ+4                {[2, '(A6-0x4)']|[-4-]}
            <MI 208ba  MOVE.B  0x20cc4,D0>                                      {[2, '(A6-0x4)']|[-4-]}
            <MI 208c0  EXTB.W  D0>                                              {[2, '(A6-0x4)']|[-4-]}
            <POP 0x208c2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x4)']|[-4-]}
            <MI 208c4  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 208c6  MOVE.B  0x20cc5,D0>                                      {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 208cc  EXTB.W  D0>                                              {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <POP 0x208ce LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 208d0  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']}
            <Const 0x208d2 0x1.2>                            Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]}
            <Const 0x208d4 0x1.2>                            Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]}
            <Const 0x208d6 0x20cc6.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]}
            <Const 0x208dc 0x20ccc.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]}
            <Const 0x208e2 0x20cd0.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]}
            <Const 0x208e8 0x20cd4.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]}
            <Const 0x208ee 0x20cd5.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
            <Const 0x208f4 0x20cde.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <Call 0x208f6 0x2073a>                                              {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <POP 208fa-208fe StackAdj>                       Δ+38               {}
            <MI 208fe  TST.B   0x20cde>                                         {}
            <MI 20900  BEQ     0x20912>                                         {}
        <POP 20902-20912 Naked>                              Σ0         ↓
            <Const 0x20902 0x6.2>                            Δ-2                {[#6]}
            <Const 0x20906 0x1.4>                            Δ-4                {[#6]|[##1]}
            <Call 0x2090a 0x103b8>                                              {[#6]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20910-20912 StackAdj>                       Δ+6                {}
        <POP 20912-2091a Epilogue>                           Σ0         ←0x20876

0x2091a


@ 2091a
    <POP 2091a-209d2 Body>                                              
        <POP 2091a-20930 Prologue>                           Σ0         ↓
        <POP 20930-2093e RegCacheLoad>                       Σ0         ↓
        <POP 2093e-209ba Naked>                              Σ0         ↓ →0x209ca
            <Const 0x2093e 0x20cc8.4>                        Δ-4                {[##134344]}
            <Call 0x20940 0x102bc>                                              {[##134344]}
                FreeString(VAR a : String)
            <POP 20946-20948 StackAdj>                       Δ+4                {}
            <Blob 0x20948 [10] (A6+0x12)>                    Δ-10               {[«10»]}
            <POP 20954-20956 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x20956>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x20956 4>                       Δ-4        
                <Const 0x2095a 0x1.2>                        Δ-2        
                <Const 0x2095c 0xa.2>                        Δ-2        
                <Call 0x20960 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20966-20968 StackAdj>                   Δ+8        
            <MI 20968  MOVE.L  (A7)+,0x20cc8>                Δ+4                {[«10»]}
            <POP 2096a-2096c StackAdj>                       Δ+2                {[-8-]}
            <POP 2096c-2096d StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x2096d [4] 0x20cc8>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x2096e 0x102cc>                                              {[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 20974-20976 StackAdj>                       Δ+4                {[-4-]}
            <MI 20976  MOVE.B  0x20cc4,D0>                                      {[-4-]}
            <MI 2097c  EXTB.W  D0>                                              {[-4-]}
            <POP 0x2097e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-4-]}
            <MI 20980  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <MI 20982  MOVE.B  0x20cc5,D0>                                      {[-4-]|[2, 'D0']}
            <MI 20988  EXTB.W  D0>                                              {[-4-]|[2, 'D0']}
            <POP 0x2098a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-4-]|[2, 'D0']}
            <MI 2098c  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']|[2, 'D0']}
            <Const 0x2098e 0x20cc6.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]}
            <Const 0x20994 0x20ccc.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]}
            <Const 0x2099a 0x20cd0.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]}
            <Const 0x209a0 0x20cd4.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]}
            <Const 0x209a6 0x20cd5.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
            <Const 0x209ac 0x20cde.4>                        Δ-4                {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <Call 0x209ae 0x20530>                                              {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <POP 209b2-209b6 StackAdj>                       Δ+32               {}
            <MI 209b6  TST.B   0x20cde>                                         {}
            <MI 209b8  BEQ     0x209ca>                                         {}
        <POP 209ba-209ca Naked>                              Σ0         ↓
            <Const 0x209ba 0x6.2>                            Δ-2                {[#6]}
            <Const 0x209be 0x1.4>                            Δ-4                {[#6]|[##1]}
            <Call 0x209c2 0x103b8>                                              {[#6]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 209c8-209ca StackAdj>                       Δ+6                {}
        <POP 209ca-209d2 Epilogue>                           Σ0         ←0x2093e

0x209d2


@ 209d2
        <LVAR  0x012 1(r)>
        <LVAR -0x004 1(rw)>
    <POP 209d2-20a96 Body>                                              
        <POP 209d2-209e8 Prologue>                           Σ0         ↓
        <POP 209e8-209f8 RegCacheLoad>                       Σ0         ↓
        <POP 209f8-20a7e Naked>                              Σ0         ↓ →0x20a8e
            <Const 0x209f8 0x20cc8.4>                        Δ-4                {[##134344]}
            <Call 0x209fa 0x102bc>                                              {[##134344]}
                FreeString(VAR a : String)
            <POP 20a00-20a02 StackAdj>                       Δ+4                {}
            <Blob 0x20a02 [10] (A6+0x12)>                    Δ-10               {[«10»]}
            <POP 20a0e-20a10 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x20a10>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x20a10 4>                       Δ-4        
                <Const 0x20a14 0x1.2>                        Δ-2        
                <Const 0x20a16 0xa.2>                        Δ-2        
                <Call 0x20a18 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20a1e-20a20 StackAdj>                   Δ+8        
            <MI 20a20  MOVE.L  (A7)+,0x20cc8>                Δ+4                {[«10»]}
            <POP 20a22-20a24 StackAdj>                       Δ+10               {}
            <MI 20a24  MOVE.B  (A6+0x12),(A6-0x4)>                              {}
            <MI 20a2a  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <POP 20a2e-20a30 StackAdj>                       Δ-4                {[2, '(A6-0x4)']|[-4-]}
            <Blob 0x20a30 [4] 0x20cc8>                       Δ-4                {[2, '(A6-0x4)']|[-4-]|[«4»]}
            <Call 0x20a32 0x102cc>                                              {[2, '(A6-0x4)']|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 20a38-20a3a StackAdj>                       Δ+4                {[2, '(A6-0x4)']|[-4-]}
            <MI 20a3a  MOVE.B  0x20cc4,D0>                                      {[2, '(A6-0x4)']|[-4-]}
            <MI 20a40  EXTB.W  D0>                                              {[2, '(A6-0x4)']|[-4-]}
            <POP 0x20a42 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x4)']|[-4-]}
            <MI 20a44  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 20a46  MOVE.B  0x20cc5,D0>                                      {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 20a4c  EXTB.W  D0>                                              {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <POP 0x20a4e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
            <MI 20a50  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']}
            <Const 0x20a52 0x20cc6.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]}
            <Const 0x20a58 0x20ccc.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]}
            <Const 0x20a5e 0x20cd0.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]}
            <Const 0x20a64 0x20cd4.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]}
            <Const 0x20a6a 0x20cd5.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
            <Const 0x20a70 0x20cde.4>                        Δ-4                {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <Call 0x20a72 0x2062c>                                              {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
            <POP 20a76-20a7a StackAdj>                       Δ+34               {}
            <MI 20a7a  TST.B   0x20cde>                                         {}
            <MI 20a7c  BEQ     0x20a8e>                                         {}
        <POP 20a7e-20a8e Naked>                              Σ0         ↓
            <Const 0x20a7e 0x6.2>                            Δ-2                {[#6]}
            <Const 0x20a82 0x1.4>                            Δ-4                {[#6]|[##1]}
            <Call 0x20a86 0x103b8>                                              {[#6]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20a8c-20a8e StackAdj>                       Δ+6                {}
        <POP 20a8e-20a96 Epilogue>                           Σ0         ←0x209f8

0x20a96


@ 20a96
START
    <POP 20a96--0001 Body>                                   Δ+108      
        <POP 20a96-20aa0 Prologue>                           Σ0         
        <POP 20aa0-20ab6 RegCacheLoad>                       Σ0         ↓
        <POP 20ab6-20afe Naked>                              Σ0         ↓ →0x20bde
            <Call 0x20ab6 0x10398>                                              {}
                FSCALL_10398
            <Const 0x20abc 0x20cc2.4>                        Δ-4                {[##134338]}
            <Const 0x20abe 0x20cc4.4>                        Δ-4                {[##134338]|[##134340]}
            <Const 0x20ac4 0x20cc5.4>                        Δ-4                {[##134338]|[##134340]|[##134341]}
            <Call 0x20aca 0x20442>                                              {[##134338]|[##134340]|[##134341]}
            <POP 20ace-20ad0 StackAdj>                       Δ+12               {}
            <MI 20ad0  CLR.L   D0>                                              {}
            <MI 20ad2  MOVE.B  0x20cc2,D0>                                      {}
            <POP 0x20ad4 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 20ad8  MOVE.B  D0,0x20cc3>                                      {}
            <Const 0x20ade 0x20cc8.4>                        Δ-4                {[##134344]}
            <Call 0x20ae4 0x102b8>                                              {[##134344]}
                NewString(VAR a : String)
            <POP 20aea-20aec StackAdj>                       Δ+4                {}
            <MI 20aec  MOVE.B  #0x01,0x20cdd>                                   {}
            <MI 20aee  MOVE.B  0x20cc3,D0>                                      {}
            <MI 20af4  EXTB.W  D0>                                              {}
            <MI 20af6  CMPI.W  #0x000a,D0>                                      {}
            <MI 20afa  BHI     0x20bde>                                         {}
        <POP 20afe-20b08 Naked>                              Σ0         →0x20b1e →0x20bde →0x20b38 →0x20b4a →0x20b5c →0x20b6e →0x20b80 →0x20b92 →0x20ba2 →0x20bb6 →0x20bca
            <MI 20afe  ADD.W   D0,D0>                                           {}
            <MI 20b00  SWITCH  D0.W>                                            {}
        <POP 20b1e-20b2e Naked>                              Σ0 Δ-12    ↓ ←0x20afe
            <Const 0x20b1e 0x5.2>                            Δ-2                {[#5]}
            <Blob 0x20b22 [10] @>                            Δ-10               {[#5]|[«10""»]}
        <POP 20b2e-20b38 Naked>                              Σ-12 Δ+12  →0x20bfe ←0x20b38 ←0x20b4a ←0x20b5c ←0x20b6e ←0x20b80 ←0x20b92 ←0x20ba2 ←0x20bb6 ←0x20bca
            <Call 0x20b2e 0x209d2>                                              {[-12-]}
            <POP 20b32-20b34 StackAdj>                       Δ+12               {}
            <MI 20b34  BRA     0x20bfe>                                         {}
        <POP 20b38-20b4a Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b38 0x4.2>                            Δ-2                {[#4]}
            <Blob 0x20b3c [10] @>                            Δ-10               {[#4]|[«10""»]}
            <MI 20b48  BRA     0x20b2e>                                         {[#4]|[«10""»]}
        <POP 20b4a-20b5c Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b4a 0x7.2>                            Δ-2                {[#7]}
            <Blob 0x20b4e [10] @>                            Δ-10               {[#7]|[«10""»]}
            <MI 20b5a  BRA     0x20b2e>                                         {[#7]|[«10""»]}
        <POP 20b5c-20b6e Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b5c 0x6.2>                            Δ-2                {[#6]}
            <Blob 0x20b60 [10] @>                            Δ-10               {[#6]|[«10""»]}
            <MI 20b6c  BRA     0x20b2e>                                         {[#6]|[«10""»]}
        <POP 20b6e-20b80 Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b6e 0x2.2>                            Δ-2                {[#2]}
            <Blob 0x20b72 [10] @>                            Δ-10               {[#2]|[«10""»]}
            <MI 20b7e  BRA     0x20b2e>                                         {[#2]|[«10""»]}
        <POP 20b80-20b92 Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b80 0x3.2>                            Δ-2                {[#3]}
            <Blob 0x20b84 [10] @>                            Δ-10               {[#3]|[«10""»]}
            <MI 20b90  BRA     0x20b2e>                                         {[#3]|[«10""»]}
        <POP 20b92-20ba2 Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20b92 0xc.2>                            Δ-2                {[#12]}
            <Blob 0x20b94 [10] @>                            Δ-10               {[#12]|[«10""»]}
            <MI 20ba0  BRA     0x20b2e>                                         {[#12]|[«10""»]}
        <POP 20ba2-20bb6 Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20ba2 0xd.2>                            Δ-2                {[#13]}
            <Blob 0x20ba6 [10] @>                            Δ-10               {[#13]|[«10""»]}
            <MI 20bb2  BRA     0x20b2e>                                         {[#13]|[«10""»]}
        <POP 20bb6-20bca Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20bb6 0xe.2>                            Δ-2                {[#14]}
            <Blob 0x20bba [10] @>                            Δ-10               {[#14]|[«10""»]}
            <MI 20bc6  BRA     0x20b2e>                                         {[#14]|[«10""»]}
        <POP 20bca-20bde Naked>                              Σ0 Δ-12    →0x20b2e ←0x20afe
            <Const 0x20bca 0xf.2>                            Δ-2                {[#15]}
            <Blob 0x20bce [10] @>                            Δ-10               {[#15]|[«10""»]}
            <MI 20bda  BRA     0x20b2e>                                         {[#15]|[«10""»]}
        <POP 20bde-20bfe Naked>                              Σ0         ↓ ←0x20ab6 ←0x20afe
            <MI 20bde  MOVE.B  #0x01,0x20cc6>                                   {}
            <MI 20be0  CLR.B   0x20cdd>                                         {}
            <Const 0x20be2 0x20ccc.4>                        Δ-4                {[##134348]}
            <Call 0x20be8 0x102b8>                                              {[##134348]}
                NewString(VAR a : String)
            <POP 20bee-20bf0 StackAdj>                       Δ+4                {}
            <Const 0x20bf0 0x20cd0.4>                        Δ-4                {[##134352]}
            <Call 0x20bf6 0x102b8>                                              {[##134352]}
                NewString(VAR a : String)
            <POP 20bfc-20bfe StackAdj>                       Δ+4                {}
        <POP 20bfe-20c02 Naked>                              Σ0         ↓ →0x20c0a ←0x20b2e
            <MI 20bfe  TST.B   0x20cc6>                                         {}
            <MI 20c00  BEQ     0x20c0a>                                         {}
        <POP 20c02-20c06 Naked>                              Σ0         ↓ →0x20c0a
            <MI 20c02  TST.B   0x20cdd>                                         {}
            <MI 20c04  BEQ     0x20c0a>                                         {}
        <POP 20c06-20c0a Naked>                              Σ0         ↓
            <Call 0x20c06 0x20852>                                              {}
        <POP 20c0a-20c3e Naked>                              Σ0         ↓ ←0x20bfe ←0x20c02
            <Blob 0x20c0a [2] 0x20cc6>                       Δ-2                {[«2»]}
            <Blob 0x20c0c [4] 0x20cc8>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x20c12 [4] 0x20ccc>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x20c18 [4] 0x20cd0>                       Δ-4                {[«2»]|[«4»]|[«4»]|[«4»]}
            <Blob 0x20c1e [2] 0x20cd4>                       Δ-2                {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]}
            <Blob 0x20c24 [8] 0x20cd5>                       Δ-8                {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x20c36 0x204a0>                                              {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <POP 20c3a-20c3e StackAdj>                       Δ+24               {}
        <POP 20c3e-20c44 Naked>                              Σ0         
            <Call 0x20c3e 0x10284>                                              {}
                ?exit

0x20c52


@ 20c52
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20c52-20cba Body>                                              
        <POP 20c52-20c68 Prologue>                           Σ0         ↓
        <POP 20c68-20cb2 Naked>                              Σ0         ↓
            <Blob 0x20c68 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x20c74 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20c78-20c7a StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20c7a 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20c8c-20c8e StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c8e  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c92  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c94  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20c96  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20c98 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20c9e-20ca0 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x20ca0 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20ca6-20ca8 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20ca8 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20cae-20cb2 StackAdj>                       Δ+20               {}
        <POP 20cb2-20cba Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.77a33085d35afd5b
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0a 96              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 0c ea              |        |		.PTR	0x20cea
00020010					code.end:
00020010 00 02 0c ba              |        |		.PTR	0x20cba
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 0c 52              |   R    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 01 dc              |        |		.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 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020118 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020126 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020134 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020146 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002015e 52 75 6e 6e              |Runn    |		.TXT	'Runn'
00020162 69 6e 67 20              |ing     |		.TXT	'ing '
00020166 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
0002016a 50 20                    |P       |		.TXT	'P '
0002016c 46 52                    |FR      |		.TXT	'FR'
0002016e 55 20                    |U       |		.XXX[0x2]
00020170 50 33 55 43 4f 44 45 20  |P3UCODE |		.TXT	'P3UCODE '
00020178 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
00020182 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
0002018c 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
00020196 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201a0 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201aa 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201b4 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201be 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201c8 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201d2 50 33 52 41 4d 53 20 20  |P3RAMS  |		.TXT	'P3RAMS    '
000201dc ; --------------------------------------------------------------------------------------
000201dc ; OMSI PASCAL Function
000201dc ;    <LVAR  0x00e 1(r)>
000201dc ;    <LVAR  0x00a 4(r)>
000201dc ;    <LVAR  0x008 1(r)>
000201dc ; --------------------------------------------------------------------------------------
000201dc					EXP_FAIL:
000201dc 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000201e0 bf d5                    |        |		CMPA.L	(A5),A7
000201e2 62 06                    |b       |		BHI	0x201ea
000201e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000201e8 4e 76                    |Nv      |		TRAPV
000201ea de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000201ee 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000201f2 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000201f8 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000201fe 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020200 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020202 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020204 78 12                    |x       |		MOVEQ.L	#0x12,D4
00020206 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020208 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002020e 41 fa ff 36              |A  6    |		LEA.L	0x20146,A0
00020212 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020214 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020216 51 c8 ff fc              |Q       |		DBF	D0,0x20214
0002021a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002021c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020220 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020222 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020224 4e 93                    |N       |		JSR	(A3)
00020226 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020228 4e 94                    |N       |		JSR	(A4)
0002022a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002022c 20 4f                    | O      |		MOVEA.L	A7,A0
0002022e 43 fa fe da              |C       |		LEA.L	0x2010a,A1
00020232 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020234 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020236 51 c8 ff fc              |Q       |		DBF	D0,0x20234
0002023a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002023c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020240 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020242 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020244 4e 93                    |N       |		JSR	(A3)
00020246 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020248 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
0002024c 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00020252 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020254 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002025a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002025c 4e 94                    |N       |		JSR	(A4)
0002025e de c4                    |        |		ADDA.W	D4,A7
00020260 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020264 b0 c1                    |        |		CMPA.W	D1,A0
00020266 67 48                    |gH      |		BEQ	0x202b0
00020268 9e c5                    |        |		SUBA.W	D5,A7
0002026a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002026c 45 fa fe aa              |E       |		LEA.L	0x20118,A2
00020270 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020272 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020274 51 c8 ff fc              |Q       |		DBF	D0,0x20272
00020278 9e c3                    |        |		SUBA.W	D3,A7
0002027a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002027c 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020280 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020282 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020284 51 c8 ff fc              |Q       |		DBF	D0,0x20282
00020288 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002028a 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
0002028e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020290 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020292 4e 93                    |N       |		JSR	(A3)
00020294 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020296 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002029a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002029c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002029e 4e 93                    |N       |		JSR	(A3)
000202a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202a2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000202a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202aa 4e 94                    |N       |		JSR	(A4)
000202ac de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000202b0 9e c5                    |        |		SUBA.W	D5,A7
000202b2 20 4f                    | O      |		MOVEA.L	A7,A0
000202b4 43 fa fe 70              |C  p    |		LEA.L	0x20126,A1
000202b8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000202ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000202bc 51 c8 ff fc              |Q       |		DBF	D0,0x202ba
000202c0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000202c2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000202c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000202c8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000202ca 4e 93                    |N       |		JSR	(A3)
000202cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202ce 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000202d2 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000202d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202da 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000202e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000202e2 4e 94                    |N       |		JSR	(A4)
000202e4 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000202e6 20 4f                    | O      |		MOVEA.L	A7,A0
000202e8 43 fa fe 5c              |C  \    |		LEA.L	0x20146,A1
000202ec 70 16                    |p       |		MOVEQ.L	#0x16,D0
000202ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000202f0 51 c8 ff fc              |Q       |		DBF	D0,0x202ee
000202f4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000202f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000202fa 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000202fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020300 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020304 4e 93                    |N       |		JSR	(A3)
00020306 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020308 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002030e de c3                    |        |		ADDA.W	D3,A7
00020310 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020314 4e 5e                    |N^      |		UNLK	A6
00020316 4e 75                    |Nu      |		RTS
00020318 ; --------------------------------------------------------------------------------------
00020318 ; OMSI PASCAL Function
00020318 ;    <LVAR  0x02a 4(r)>
00020318 ;    <LVAR  0x028 1(r)>
00020318 ;    <LVAR  0x026 1(r)>
00020318 ;    <LVAR  0x024 1(r)>
00020318 ;    <LVAR  0x020 4(r)>
00020318 ;    <LVAR  0x01c 4(r)>
00020318 ;    <LVAR  0x018 4(r)>
00020318 ;    <LVAR  0x014 4(r)>
00020318 ;    <LVAR  0x010 4(r)>
00020318 ;    <LVAR  0x00c 4(r)>
00020318 ;    <LVAR  0x008 4(r)>
00020318 ; --------------------------------------------------------------------------------------
00020318 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0		; Spelunked
0002031c bf d5                    |        |		CMPA.L	(A5),A7
0002031e 62 06                    |b       |		BHI	0x20326
00020320 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020324 4e 76                    |Nv      |		TRAPV
00020326 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
0002032a 48 e7 c0 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D1+D0,-(A7)
0002032e 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020332 45 f9 00 01 05 2c        |E    ,  |		LEA.L	IPC_GetString(VAR retval : String),A2
00020338 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002033a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002033c 3f 3a fe 2c              |?: ,    |		MOVE.W	0x2016a,-(A7)
00020340 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020342 1e ba fe 28              |   (    |		MOVE.B	0x2016c,(A7)
00020346 1f 7a fe 25 00 01        | z %    |		MOVE.B	0x2016d,(A7+0x1)
0002034c 1f 7a fe 20 00 02        | z      |		MOVE.B	0x2016e,(A7+0x2)
00020352 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020354 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020358 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002035a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002035e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020364 2e ae 00 2a              |.  *    |		MOVE.L	(A6+0x2a),(A7)
00020368 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002036e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020372 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020374 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020378 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002037e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020380 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020386 de c0                    |        |		ADDA.W	D0,A7
00020388 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002038a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002038c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020392 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
00020396 48 57                    |HW      |		PEA.L	(A7)
00020398 48 51                    |HQ      |		PEA.L	(A1)
0002039a 48 51                    |HQ      |		PEA.L	(A1)
0002039c 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
000203a2 de c0                    |        |		ADDA.W	D0,A7
000203a4 1e ae 00 26              |   &    |		MOVE.B	(A6+0x26),(A7)
000203a8 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000203ae 1e ae 00 24              |   $    |		MOVE.B	(A6+0x24),(A7)
000203b2 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000203b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203ba 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000203c0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000203c4 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000203c6 48 78 00 01              |Hx      |		PEA.L	0x1
000203ca 1f 01                    |        |		MOVE.B	D1,-(A7)
000203cc 48 50                    |HP      |		PEA.L	(A0)
000203ce 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000203d4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000203d8 4a 10                    |J       |		TST.B	(A0)
000203da 66 5e                    |f^      |		BNE	0x2043a
000203dc 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000203e2 20 6e 00 20              | n      |		MOVEA.L	(A6+0x20),A0
000203e6 48 50                    |HP      |		PEA.L	(A0)
000203e8 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000203ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203f0 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000203f4 48 50                    |HP      |		PEA.L	(A0)
000203f6 4e 92                    |N       |		JSR	(A2)
000203f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000203fa 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000203fe 48 50                    |HP      |		PEA.L	(A0)
00020400 4e 92                    |N       |		JSR	(A2)
00020402 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020404 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020408 48 50                    |HP      |		PEA.L	(A0)
0002040a 4e 92                    |N       |		JSR	(A2)
0002040c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002040e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020412 48 50                    |HP      |		PEA.L	(A0)
00020414 48 51                    |HQ      |		PEA.L	(A1)
00020416 48 51                    |HQ      |		PEA.L	(A1)
00020418 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0002041e de c0                    |        |		ADDA.W	D0,A7
00020420 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020424 48 50                    |HP      |		PEA.L	(A0)
00020426 48 51                    |HQ      |		PEA.L	(A1)
00020428 48 78 00 07              |Hx      |		PEA.L	0x7
0002042c 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020432 de c0                    |        |		ADDA.W	D0,A7
00020434 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
0002043a 4c df 17 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A4
0002043e 4e 5e                    |N^      |		UNLK	A6
00020440 4e 75                    |Nu      |		RTS
00020442 ; --------------------------------------------------------------------------------------
00020442 ; OMSI PASCAL Function
00020442 ;    <LVAR  0x010 4(r)>
00020442 ;    <LVAR  0x00c 4(r)>
00020442 ;    <LVAR  0x008 4(r)>
00020442 ; --------------------------------------------------------------------------------------
00020442 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00020446 bf d5                    |        |		CMPA.L	(A5),A7
00020448 62 06                    |b       |		BHI	0x20450
0002044a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002044e 4e 76                    |Nv      |		TRAPV
00020450 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020454 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020458 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002045e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020462 48 50                    |HP      |		PEA.L	(A0)
00020464 48 78 00 00              |Hx      |		PEA.L	0x0
00020468 48 78 00 00              |Hx      |		PEA.L	0x0
0002046c 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020472 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020476 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002047a 48 50                    |HP      |		PEA.L	(A0)
0002047c 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020482 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020484 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020488 48 50                    |HP      |		PEA.L	(A0)
0002048a 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020490 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020492 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020498 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0002049c 4e 5e                    |N^      |		UNLK	A6
0002049e 4e 75                    |Nu      |		RTS
000204a0 ; --------------------------------------------------------------------------------------
000204a0 ; OMSI PASCAL Function
000204a0 ;    <LVAR  0x01e 1(r)>
000204a0 ;    <LVAR  0x01a 4(r)>
000204a0 ;    <LVAR  0x016 4(r)>
000204a0 ;    <LVAR  0x012 4(r)>
000204a0 ;    <LVAR  0x010 1(r)>
000204a0 ;    <LVAR  0x00c 4(r)>
000204a0 ;    <LVAR  0x008 4(r)>
000204a0 ; --------------------------------------------------------------------------------------
000204a0 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000204a4 bf d5                    |        |		CMPA.L	(A5),A7
000204a6 62 06                    |b       |		BHI	0x204ae
000204a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204ac 4e 76                    |Nv      |		TRAPV
000204ae de fc 00 20              |        |		ADDA.W	#0x20,A7
000204b2 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000204b6 41 f9 00 01 05 08        |A       |		LEA.L	IPC_PutString(a : String),A0
000204bc 43 f8 00 00              |C       |		LEA.L	0x0,A1
000204c0 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000204c6 1f 2e 00 1e              | .      |		MOVE.B	(A6+0x1e),-(A7)
000204ca 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000204d0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000204d2 2f 2e 00 1a              |/.      |		MOVE.L	(A6+0x1a),-(A7)
000204d6 4e 90                    |N       |		JSR	(A0)
000204d8 2e ae 00 16              |.       |		MOVE.L	(A6+0x16),(A7)
000204dc 4e 90                    |N       |		JSR	(A0)
000204de 2e ae 00 12              |.       |		MOVE.L	(A6+0x12),(A7)
000204e2 4e 90                    |N       |		JSR	(A0)
000204e4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000204e6 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
000204ea 48 57                    |HW      |		PEA.L	(A7)
000204ec 48 51                    |HQ      |		PEA.L	(A1)
000204ee 48 51                    |HQ      |		PEA.L	(A1)
000204f0 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
000204f6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000204fa 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000204fe 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020502 48 57                    |HW      |		PEA.L	(A7)
00020504 48 51                    |HQ      |		PEA.L	(A1)
00020506 48 78 00 07              |Hx      |		PEA.L	0x7
0002050a 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020510 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020514 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002051a 42 27                    |B'      |		CLR.B	-(A7)
0002051c 48 78 00 01              |Hx      |		PEA.L	0x1
00020520 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020526 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020528 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0002052c 4e 5e                    |N^      |		UNLK	A6
0002052e 4e 75                    |Nu      |		RTS
00020530 ; --------------------------------------------------------------------------------------
00020530 ; OMSI PASCAL Function
00020530 ;    <LVAR  0x024 4(r)>
00020530 ;    <LVAR  0x022 1(r)>
00020530 ;    <LVAR  0x020 1(r)>
00020530 ;    <LVAR  0x01c 4(r)>
00020530 ;    <LVAR  0x018 4(r)>
00020530 ;    <LVAR  0x014 4(r)>
00020530 ;    <LVAR  0x010 4(r)>
00020530 ;    <LVAR  0x00c 4(r)>
00020530 ;    <LVAR  0x008 4(r)>
00020530 ; --------------------------------------------------------------------------------------
00020530 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0		; Spelunked
00020534 bf d5                    |        |		CMPA.L	(A5),A7
00020536 62 06                    |b       |		BHI	0x2053e
00020538 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002053c 4e 76                    |Nv      |		TRAPV
0002053e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020542 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00020546 43 f8 00 00              |C       |		LEA.L	0x0,A1
0002054a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002054c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002054e 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020554 1f 2e 00 22              | . "    |		MOVE.B	(A6+0x22),-(A7)
00020558 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
0002055e 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
00020562 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020568 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002056a 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020570 2f 3a fb f4              |/:      |		MOVE.L	0x20166,-(A7)
00020574 2f 3a fb ec              |/:      |		MOVE.L	0x20162,-(A7)
00020578 2f 3a fb e4              |/:      |		MOVE.L	0x2015e,-(A7)
0002057c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002057e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020582 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020584 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020586 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002058c 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
00020590 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020596 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020598 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002059e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205a0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000205a6 de fc 00 10              |        |		ADDA.W	#0x10,A7
000205aa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000205ae 2f 2e 00 24              |/. $    |		MOVE.L	(A6+0x24),-(A7)
000205b2 48 78 00 01              |Hx      |		PEA.L	0x1
000205b6 1f 01                    |        |		MOVE.B	D1,-(A7)
000205b8 48 50                    |HP      |		PEA.L	(A0)
000205ba 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000205c0 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000205c4 4a 10                    |J       |		TST.B	(A0)
000205c6 66 5c                    |f\      |		BNE	0x20624
000205c8 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000205ce 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000205d2 48 50                    |HP      |		PEA.L	(A0)
000205d4 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000205da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205dc 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000205e0 48 50                    |HP      |		PEA.L	(A0)
000205e2 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000205e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205ea 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000205ee 48 50                    |HP      |		PEA.L	(A0)
000205f0 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000205f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205f8 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000205fc 48 50                    |HP      |		PEA.L	(A0)
000205fe 48 51                    |HQ      |		PEA.L	(A1)
00020600 48 51                    |HQ      |		PEA.L	(A1)
00020602 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020608 de c0                    |        |		ADDA.W	D0,A7
0002060a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002060e 48 50                    |HP      |		PEA.L	(A0)
00020610 48 51                    |HQ      |		PEA.L	(A1)
00020612 48 78 00 07              |Hx      |		PEA.L	0x7
00020616 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0002061c de c0                    |        |		ADDA.W	D0,A7
0002061e 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020624 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020628 4e 5e                    |N^      |		UNLK	A6
0002062a 4e 75                    |Nu      |		RTS
0002062c ; --------------------------------------------------------------------------------------
0002062c ; OMSI PASCAL Function
0002062c ;    <LVAR  0x028 1(r)>
0002062c ;    <LVAR  0x024 4(r)>
0002062c ;    <LVAR  0x022 1(r)>
0002062c ;    <LVAR  0x020 1(r)>
0002062c ;    <LVAR  0x01c 4(r)>
0002062c ;    <LVAR  0x018 4(r)>
0002062c ;    <LVAR  0x014 4(r)>
0002062c ;    <LVAR  0x010 4(r)>
0002062c ;    <LVAR  0x00c 4(r)>
0002062c ;    <LVAR  0x008 4(r)>
0002062c ; --------------------------------------------------------------------------------------
0002062c 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020630 bf d5                    |        |		CMPA.L	(A5),A7
00020632 62 06                    |b       |		BHI	0x2063a
00020634 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020638 4e 76                    |Nv      |		TRAPV
0002063a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002063e 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00020642 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020646 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020648 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002064a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020650 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
00020654 48 57                    |HW      |		PEA.L	(A7)
00020656 48 51                    |HQ      |		PEA.L	(A1)
00020658 48 51                    |HQ      |		PEA.L	(A1)
0002065a 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020660 de c0                    |        |		ADDA.W	D0,A7
00020662 1e ae 00 22              |   "    |		MOVE.B	(A6+0x22),(A7)
00020666 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
0002066c 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
00020670 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00020676 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020678 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
0002067e 2f 3a fa e6              |/:      |		MOVE.L	0x20166,-(A7)
00020682 2f 3a fa de              |/:      |		MOVE.L	0x20162,-(A7)
00020686 2f 3a fa d6              |/:      |		MOVE.L	0x2015e,-(A7)
0002068a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002068c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020690 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020692 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020694 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002069a 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
0002069e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000206a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206a6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000206ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206ae 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000206b4 de fc 00 10              |        |		ADDA.W	#0x10,A7
000206b8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000206bc 2f 2e 00 24              |/. $    |		MOVE.L	(A6+0x24),-(A7)
000206c0 48 78 00 01              |Hx      |		PEA.L	0x1
000206c4 1f 01                    |        |		MOVE.B	D1,-(A7)
000206c6 48 50                    |HP      |		PEA.L	(A0)
000206c8 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000206ce de fc 00 0e              |        |		ADDA.W	#0xe,A7
000206d2 4a 10                    |J       |		TST.B	(A0)
000206d4 66 5c                    |f\      |		BNE	0x20732
000206d6 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000206dc 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000206e0 48 50                    |HP      |		PEA.L	(A0)
000206e2 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
000206e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206ea 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000206ee 48 50                    |HP      |		PEA.L	(A0)
000206f0 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
000206f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206f8 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000206fc 48 50                    |HP      |		PEA.L	(A0)
000206fe 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00020704 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020706 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0002070a 48 50                    |HP      |		PEA.L	(A0)
0002070c 48 51                    |HQ      |		PEA.L	(A1)
0002070e 48 51                    |HQ      |		PEA.L	(A1)
00020710 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020716 de c0                    |        |		ADDA.W	D0,A7
00020718 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002071c 48 50                    |HP      |		PEA.L	(A0)
0002071e 48 51                    |HQ      |		PEA.L	(A1)
00020720 48 78 00 07              |Hx      |		PEA.L	0x7
00020724 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0002072a de c0                    |        |		ADDA.W	D0,A7
0002072c 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020732 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00020736 4e 5e                    |N^      |		UNLK	A6
00020738 4e 75                    |Nu      |		RTS
0002073a ; --------------------------------------------------------------------------------------
0002073a ; OMSI PASCAL Function
0002073a ;    <LVAR  0x02c 1(r)>
0002073a ;    <LVAR  0x028 4(r)>
0002073a ;    <LVAR  0x026 1(r)>
0002073a ;    <LVAR  0x024 1(r)>
0002073a ;    <LVAR  0x022 1(r)>
0002073a ;    <LVAR  0x020 1(r)>
0002073a ;    <LVAR  0x01c 4(r)>
0002073a ;    <LVAR  0x018 4(r)>
0002073a ;    <LVAR  0x014 4(r)>
0002073a ;    <LVAR  0x010 4(r)>
0002073a ;    <LVAR  0x00c 4(r)>
0002073a ;    <LVAR  0x008 4(r)>
0002073a ; --------------------------------------------------------------------------------------
0002073a 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0002073e bf d5                    |        |		CMPA.L	(A5),A7
00020740 62 06                    |b       |		BHI	0x20748
00020742 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020746 4e 76                    |Nv      |		TRAPV
00020748 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002074c 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020750 43 f8 00 00              |C       |		LEA.L	0x0,A1
00020754 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
0002075a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002075c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002075e 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020764 1f 2e 00 2c              | . ,    |		MOVE.B	(A6+0x2c),-(A7)
00020768 48 57                    |HW      |		PEA.L	(A7)
0002076a 48 51                    |HQ      |		PEA.L	(A1)
0002076c 48 51                    |HQ      |		PEA.L	(A1)
0002076e 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
00020774 de c0                    |        |		ADDA.W	D0,A7
00020776 1e ae 00 26              |   &    |		MOVE.B	(A6+0x26),(A7)
0002077a 4e 92                    |N       |		JSR	(A2)
0002077c 1e ae 00 24              |   $    |		MOVE.B	(A6+0x24),(A7)
00020780 4e 92                    |N       |		JSR	(A2)
00020782 1e ae 00 22              |   "    |		MOVE.B	(A6+0x22),(A7)
00020786 4e 92                    |N       |		JSR	(A2)
00020788 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
0002078c 4e 92                    |N       |		JSR	(A2)
0002078e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020790 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020796 2f 3a f9 ce              |/:      |		MOVE.L	0x20166,-(A7)
0002079a 2f 3a f9 c6              |/:      |		MOVE.L	0x20162,-(A7)
0002079e 2f 3a f9 be              |/:      |		MOVE.L	0x2015e,-(A7)
000207a2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000207a4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000207a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207aa 3f 00                    |?       |		MOVE.W	D0,-(A7)
000207ac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207b2 2e ae 00 28              |.  (    |		MOVE.L	(A6+0x28),(A7)
000207b6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000207bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207be 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000207c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207c6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000207cc de fc 00 10              |        |		ADDA.W	#0x10,A7
000207d0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000207d4 2f 2e 00 28              |/. (    |		MOVE.L	(A6+0x28),-(A7)
000207d8 48 78 00 01              |Hx      |		PEA.L	0x1
000207dc 1f 01                    |        |		MOVE.B	D1,-(A7)
000207de 48 50                    |HP      |		PEA.L	(A0)
000207e0 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000207e6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000207ea 4a 10                    |J       |		TST.B	(A0)
000207ec 66 5c                    |f\      |		BNE	0x2084a
000207ee 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000207f4 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000207f8 48 50                    |HP      |		PEA.L	(A0)
000207fa 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020800 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020802 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00020806 48 50                    |HP      |		PEA.L	(A0)
00020808 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
0002080e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020810 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020814 48 50                    |HP      |		PEA.L	(A0)
00020816 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
0002081c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002081e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020822 48 50                    |HP      |		PEA.L	(A0)
00020824 48 51                    |HQ      |		PEA.L	(A1)
00020826 48 51                    |HQ      |		PEA.L	(A1)
00020828 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0002082e de c0                    |        |		ADDA.W	D0,A7
00020830 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020834 48 50                    |HP      |		PEA.L	(A0)
00020836 48 51                    |HQ      |		PEA.L	(A1)
00020838 48 78 00 07              |Hx      |		PEA.L	0x7
0002083c 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00020842 de c0                    |        |		ADDA.W	D0,A7
00020844 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
0002084a 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002084e 4e 5e                    |N^      |		UNLK	A6
00020850 4e 75                    |Nu      |		RTS
00020852 ; --------------------------------------------------------------------------------------
00020852 ; OMSI PASCAL Function
00020852 ;    <LVAR -0x004 1(rw)>
00020852 ; --------------------------------------------------------------------------------------
00020852 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00020856 bf d5                    |        |		CMPA.L	(A5),A7
00020858 62 06                    |b       |		BHI	0x20860
0002085a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002085e 4e 76                    |Nv      |		TRAPV
00020860 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020864 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00020868 45 f9 00 02 0c c8        |E       |		LEA.L	0x20cc8,A2
0002086e 47 f9 00 02 0c de        |G       |		LEA.L	0x20cde,A3
00020874 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020876 48 52                    |HR      |		PEA.L	(A2)
00020878 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002087e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020880 20 4f                    | O      |		MOVEA.L	A7,A0
00020882 43 fa f8 ec              |C       |		LEA.L	0x20170,A1
00020886 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020888 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002088a 51 c8 ff fc              |Q       |		DBF	D0,0x20888
0002088e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020890 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020894 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020896 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0002089a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208a2 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000208a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208a6 1d 41 ff fc              | A      |		MOVE.B	D1,(A6-0x4)
000208aa 1f 2e ff fc              | .      |		MOVE.B	(A6-0x4),-(A7)
000208ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000208b0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000208b2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000208b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208ba 10 39 00 02 0c c4        | 9      |		MOVE.B	0x20cc4,D0
000208c0 48 80                    |H       |		EXTB.W	D0
000208c2 41 81                    |A       |		CHK.W	D1,D0
000208c4 1f 00                    |        |		MOVE.B	D0,-(A7)
000208c6 10 39 00 02 0c c5        | 9      |		MOVE.B	0x20cc5,D0
000208cc 48 80                    |H       |		EXTB.W	D0
000208ce 41 81                    |A       |		CHK.W	D1,D0
000208d0 1f 00                    |        |		MOVE.B	D0,-(A7)
000208d2 1f 01                    |        |		MOVE.B	D1,-(A7)
000208d4 1f 01                    |        |		MOVE.B	D1,-(A7)
000208d6 48 79 00 02 0c c6        |Hy      |		PEA.L	0x20cc6
000208dc 48 79 00 02 0c cc        |Hy      |		PEA.L	0x20ccc
000208e2 48 79 00 02 0c d0        |Hy      |		PEA.L	0x20cd0
000208e8 48 79 00 02 0c d4        |Hy      |		PEA.L	0x20cd4
000208ee 48 79 00 02 0c d5        |Hy      |		PEA.L	0x20cd5
000208f4 48 53                    |HS      |		PEA.L	(A3)
000208f6 4e ba fe 42              |N  B    |		JSR	0x2073a
000208fa de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000208fe 4a 13                    |J       |		TST.B	(A3)
00020900 67 10                    |g       |		BEQ	0x20912
00020902 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020906 48 78 00 01              |Hx      |		PEA.L	0x1
0002090a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020910 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020912 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00020916 4e 5e                    |N^      |		UNLK	A6
00020918 4e 75                    |Nu      |		RTS
0002091a ; --------------------------------------------------------------------------------------
0002091a ; OMSI PASCAL Function
0002091a ; --------------------------------------------------------------------------------------
0002091a 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6		; Spelunked
0002091e bf d5                    |        |		CMPA.L	(A5),A7
00020920 62 06                    |b       |		BHI	0x20928
00020922 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020926 4e 76                    |Nv      |		TRAPV
00020928 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
0002092c 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020930 43 f9 00 02 0c c8        |C       |		LEA.L	0x20cc8,A1
00020936 45 f9 00 02 0c de        |E       |		LEA.L	0x20cde,A2
0002093c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002093e 48 51                    |HQ      |		PEA.L	(A1)
00020940 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020946 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020948 41 ee 00 12              |A       |		LEA.L	(A6+0x12),A0
0002094c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002094e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020950 51 c8 ff fc              |Q       |		DBF	D0,0x2094e
00020954 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020956 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002095a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002095c 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00020960 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020966 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020968 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0002096a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002096c 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002096e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020974 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020976 10 39 00 02 0c c4        | 9      |		MOVE.B	0x20cc4,D0
0002097c 48 80                    |H       |		EXTB.W	D0
0002097e 41 81                    |A       |		CHK.W	D1,D0
00020980 1f 00                    |        |		MOVE.B	D0,-(A7)
00020982 10 39 00 02 0c c5        | 9      |		MOVE.B	0x20cc5,D0
00020988 48 80                    |H       |		EXTB.W	D0
0002098a 41 81                    |A       |		CHK.W	D1,D0
0002098c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002098e 48 79 00 02 0c c6        |Hy      |		PEA.L	0x20cc6
00020994 48 79 00 02 0c cc        |Hy      |		PEA.L	0x20ccc
0002099a 48 79 00 02 0c d0        |Hy      |		PEA.L	0x20cd0
000209a0 48 79 00 02 0c d4        |Hy      |		PEA.L	0x20cd4
000209a6 48 79 00 02 0c d5        |Hy      |		PEA.L	0x20cd5
000209ac 48 52                    |HR      |		PEA.L	(A2)
000209ae 4e ba fb 80              |N       |		JSR	0x20530
000209b2 de fc 00 20              |        |		ADDA.W	#0x20,A7
000209b6 4a 12                    |J       |		TST.B	(A2)
000209b8 67 10                    |g       |		BEQ	0x209ca
000209ba 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
000209be 48 78 00 01              |Hx      |		PEA.L	0x1
000209c2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000209c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209ca 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000209ce 4e 5e                    |N^      |		UNLK	A6
000209d0 4e 75                    |Nu      |		RTS
000209d2 ; --------------------------------------------------------------------------------------
000209d2 ; OMSI PASCAL Function
000209d2 ;    <LVAR  0x012 1(r)>
000209d2 ;    <LVAR -0x004 1(rw)>
000209d2 ; --------------------------------------------------------------------------------------
000209d2 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000209d6 bf d5                    |        |		CMPA.L	(A5),A7
000209d8 62 06                    |b       |		BHI	0x209e0
000209da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209de 4e 76                    |Nv      |		TRAPV
000209e0 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
000209e4 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
000209e8 43 f9 00 02 0c c8        |C       |		LEA.L	0x20cc8,A1
000209ee 45 f9 00 02 0c de        |E       |		LEA.L	0x20cde,A2
000209f4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000209f6 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
000209f8 48 51                    |HQ      |		PEA.L	(A1)
000209fa 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020a00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a02 41 ee 00 12              |A       |		LEA.L	(A6+0x12),A0
00020a06 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020a08 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a0a 51 c8 ff fc              |Q       |		DBF	D0,0x20a08
00020a0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a10 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a14 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a16 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a20 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00020a22 de c2                    |        |		ADDA.W	D2,A7
00020a24 1d 6e 00 12 ff fc        | n      |		MOVE.B	(A6+0x12),(A6-0x4)
00020a2a 1f 2e ff fc              | .      |		MOVE.B	(A6-0x4),-(A7)
00020a2e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a30 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020a32 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020a38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a3a 10 39 00 02 0c c4        | 9      |		MOVE.B	0x20cc4,D0
00020a40 48 80                    |H       |		EXTB.W	D0
00020a42 41 81                    |A       |		CHK.W	D1,D0
00020a44 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a46 10 39 00 02 0c c5        | 9      |		MOVE.B	0x20cc5,D0
00020a4c 48 80                    |H       |		EXTB.W	D0
00020a4e 41 81                    |A       |		CHK.W	D1,D0
00020a50 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a52 48 79 00 02 0c c6        |Hy      |		PEA.L	0x20cc6
00020a58 48 79 00 02 0c cc        |Hy      |		PEA.L	0x20ccc
00020a5e 48 79 00 02 0c d0        |Hy      |		PEA.L	0x20cd0
00020a64 48 79 00 02 0c d4        |Hy      |		PEA.L	0x20cd4
00020a6a 48 79 00 02 0c d5        |Hy      |		PEA.L	0x20cd5
00020a70 48 52                    |HR      |		PEA.L	(A2)
00020a72 4e ba fb b8              |N       |		JSR	0x2062c
00020a76 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020a7a 4a 12                    |J       |		TST.B	(A2)
00020a7c 67 10                    |g       |		BEQ	0x20a8e
00020a7e 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020a82 48 78 00 01              |Hx      |		PEA.L	0x1
00020a86 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020a8c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a8e 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00020a92 4e 5e                    |N^      |		UNLK	A6
00020a94 4e 75                    |Nu      |		RTS
00020a96 ; --------------------------------------------------------------------------------------
00020a96 ; OMSI PASCAL Function
00020a96 ; --------------------------------------------------------------------------------------
00020a96					START:
00020a96 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020a9a 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020aa0					MAIN:
00020aa0 45 f9 00 02 0c dd        |E       |		LEA.L	0x20cdd,A2
00020aa6 47 f9 00 02 0c c6        |G       |		LEA.L	0x20cc6,A3
00020aac 49 f9 00 02 0c c2        |I       |		LEA.L	0x20cc2,A4
00020ab2 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00020ab4 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020ab6 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020abc 48 54                    |HT      |		PEA.L	(A4)
00020abe 48 79 00 02 0c c4        |Hy      |		PEA.L	0x20cc4
00020ac4 48 79 00 02 0c c5        |Hy      |		PEA.L	0x20cc5
00020aca 4e ba f9 76              |N  v    |		JSR	0x20442
00020ace de c1                    |        |		ADDA.W	D1,A7
00020ad0 42 80                    |B       |		CLR.L	D0
00020ad2 10 14                    |        |		MOVE.B	(A4),D0
00020ad4 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
00020ad8 13 c0 00 02 0c c3        |        |		MOVE.B	D0,0x20cc3
00020ade 48 79 00 02 0c c8        |Hy      |		PEA.L	0x20cc8
00020ae4 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020aea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020aec 14 82                    |        |		MOVE.B	D2,(A2)
00020aee 10 39 00 02 0c c3        | 9      |		MOVE.B	0x20cc3,D0
00020af4 48 80                    |H       |		EXTB.W	D0
00020af6 0c 40 00 0a              | @      |		CMPI.W	#0x000a,D0
00020afa 62 00 00 e2              |b       |		BHI	switch@0x20b00[0x1]
00020afe d0 40                    | @      |		ADD.W	D0,D0
00020b00 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00020b08 00 16                    |        |		.CONST	0x16			; [0x0] -> 0x20b1e
00020b0a 00 d6                    |        |		.CONST	0xd6			; [0x1] -> 0x20bde
00020b0c 00 30                    | 0      |		.CONST	0x30			; [0x2] -> 0x20b38
00020b0e 00 42                    | B      |		.CONST	0x42			; [0x3] -> 0x20b4a
00020b10 00 54                    | T      |		.CONST	0x54			; [0x4] -> 0x20b5c
00020b12 00 66                    | f      |		.CONST	0x66			; [0x5] -> 0x20b6e
00020b14 00 78                    | x      |		.CONST	0x78			; [0x6] -> 0x20b80
00020b16 00 8a                    |        |		.CONST	0x8a			; [0x7] -> 0x20b92
00020b18 00 9a                    |        |		.CONST	0x9a			; [0x8] -> 0x20ba2
00020b1a 00 ae                    |        |		.CONST	0xae			; [0x9] -> 0x20bb6
00020b1c 00 c2                    |        |		.CONST	0xc2			; [0xa] -> 0x20bca
00020b1e					switch@0x20b00[0x0]:
00020b1e 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00020b22 41 fa f6 5e              |A  ^    |		LEA.L	0x20182,A0
00020b26 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b28 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b2a 51 c8 ff fc              |Q       |		DBF	D0,0x20b28
00020b2e 4e ba fe a2              |N       |		JSR	0x209d2
00020b32 de c1                    |        |		ADDA.W	D1,A7
00020b34 60 00 00 c8              |`       |		BRA	0x20bfe
00020b38					switch@0x20b00[0x2]:
00020b38 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00020b3c 41 fa f6 4e              |A  N    |		LEA.L	0x2018c,A0
00020b40 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b42 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b44 51 c8 ff fc              |Q       |		DBF	D0,0x20b42
00020b48 60 e4                    |`       |		BRA	0x20b2e
00020b4a					switch@0x20b00[0x3]:
00020b4a 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00020b4e 41 fa f6 46              |A  F    |		LEA.L	0x20196,A0
00020b52 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b54 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b56 51 c8 ff fc              |Q       |		DBF	D0,0x20b54
00020b5a 60 d2                    |`       |		BRA	0x20b2e
00020b5c					switch@0x20b00[0x4]:
00020b5c 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020b60 41 fa f6 3e              |A  >    |		LEA.L	0x201a0,A0
00020b64 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b66 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b68 51 c8 ff fc              |Q       |		DBF	D0,0x20b66
00020b6c 60 c0                    |`       |		BRA	0x20b2e
00020b6e					switch@0x20b00[0x5]:
00020b6e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020b72 41 fa f6 36              |A  6    |		LEA.L	0x201aa,A0
00020b76 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b78 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b7a 51 c8 ff fc              |Q       |		DBF	D0,0x20b78
00020b7e 60 ae                    |`       |		BRA	0x20b2e
00020b80					switch@0x20b00[0x6]:
00020b80 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020b84 41 fa f6 2e              |A  .    |		LEA.L	0x201b4,A0
00020b88 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b8a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b8c 51 c8 ff fc              |Q       |		DBF	D0,0x20b8a
00020b90 60 9c                    |`       |		BRA	0x20b2e
00020b92					switch@0x20b00[0x7]:
00020b92 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b94 41 fa f6 28              |A  (    |		LEA.L	0x201be,A0
00020b98 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b9a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b9c 51 c8 ff fc              |Q       |		DBF	D0,0x20b9a
00020ba0 60 8c                    |`       |		BRA	0x20b2e
00020ba2					switch@0x20b00[0x8]:
00020ba2 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020ba6 41 fa f6 20              |A       |		LEA.L	0x201c8,A0
00020baa 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020bac 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bae 51 c8 ff fc              |Q       |		DBF	D0,0x20bac
00020bb2 60 00 ff 7a              |`  z    |		BRA	0x20b2e
00020bb6					switch@0x20b00[0x9]:
00020bb6 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020bba 41 fa f6 16              |A       |		LEA.L	0x201d2,A0
00020bbe 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020bc0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bc2 51 c8 ff fc              |Q       |		DBF	D0,0x20bc0
00020bc6 60 00 ff 66              |`  f    |		BRA	0x20b2e
00020bca					switch@0x20b00[0xa]:
00020bca 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
00020bce 41 fa f6 0c              |A       |		LEA.L	EXP_FAIL,A0
00020bd2 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020bd4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bd6 51 c8 ff fc              |Q       |		DBF	D0,0x20bd4
00020bda 60 00 ff 52              |`  R    |		BRA	0x20b2e
00020bde					switch@0x20b00[0x1]:
00020bde 16 82                    |        |		MOVE.B	D2,(A3)
00020be0 42 12                    |B       |		CLR.B	(A2)
00020be2 48 79 00 02 0c cc        |Hy      |		PEA.L	0x20ccc
00020be8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020bee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bf0 48 79 00 02 0c d0        |Hy      |		PEA.L	0x20cd0
00020bf6 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020bfc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bfe 4a 13                    |J       |		TST.B	(A3)
00020c00 67 08                    |g       |		BEQ	0x20c0a
00020c02 4a 12                    |J       |		TST.B	(A2)
00020c04 67 04                    |g       |		BEQ	0x20c0a
00020c06 4e ba fc 4a              |N  J    |		JSR	0x20852
00020c0a 1f 13                    |        |		MOVE.B	(A3),-(A7)
00020c0c 2f 39 00 02 0c c8        |/9      |		MOVE.L	0x20cc8,-(A7)
00020c12 2f 39 00 02 0c cc        |/9      |		MOVE.L	0x20ccc,-(A7)
00020c18 2f 39 00 02 0c d0        |/9      |		MOVE.L	0x20cd0,-(A7)
00020c1e 1f 39 00 02 0c d4        | 9      |		MOVE.B	0x20cd4,-(A7)
00020c24 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c26 20 4f                    | O      |		MOVEA.L	A7,A0
00020c28 43 f9 00 02 0c d5        |C       |		LEA.L	0x20cd5,A1
00020c2e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020c30 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c32 51 c8 ff fc              |Q       |		DBF	D0,0x20c30
00020c36 4e ba f8 68              |N  h    |		JSR	0x204a0
00020c3a de fc 00 18              |        |		ADDA.W	#0x18,A7
00020c3e 4e b9 00 01 02 84        |N       |		JSR	?exit
00020c44 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020c52 ; --------------------------------------------------------------------------------------
00020c52 ; OMSI PASCAL Function
00020c52 ;    <LVAR  0x008 1(r)>
00020c52 ; --------------------------------------------------------------------------------------
00020c52					PROG_FAIL:
00020c52 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020c56 bf d5                    |        |		CMPA.L	(A5),A7
00020c58 62 06                    |b       |		BHI	0x20c60
00020c5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c5e 4e 76                    |Nv      |		TRAPV
00020c60 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020c64 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020c68 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00020c6c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020c6e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c70 51 c8 ff fc              |Q       |		DBF	D0,0x20c6e
00020c74 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020c78 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c7a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020c7e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c82 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020c86 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c8c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c8e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020c92 48 80                    |H       |		EXTB.W	D0
00020c94 48 c0                    |H       |		EXTW.L	D0
00020c96 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020c98 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020c9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ca0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020ca6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ca8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020cae de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cb2 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020cb6 4e 5e                    |N^      |		UNLK	A6
00020cb8 4e 75                    |Nu      |		RTS