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

⟦b0e865d0c⟧ M200

    Length: 13312 (0x3400)
    Types: M200
    Notes: @(#)EMWCSP,3.1,92/08/26,16:17:00, M200_PROGRAM
    Names: »EMWCSP.M200«

Derivation

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

Disassembly

0x20a80


@ 20a80
        <LVAR  0x016 1(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 20a80-20b48 Body>                                   Δ+10       
        <POP 20a80-20a96 Prologue>                           Σ0         ↓
        <POP 20a96-20a9e RegCacheLoad>                       Σ0         ↓
        <POP 20a9e-20abe Naked>                              Σ0         ↓ →0x20acc
            <Call 0x20a9e 0x10538>                                              {}
                IPC_Init(void)
            <MI 20aa4  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x20aa8 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 20aae-20ab0 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ab0  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x20ab4 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20ab6-20ab8 StackAdj>                       Δ+2                {}
            <MI 20ab8  TST.B   (A6+0x16)>                                       {}
            <MI 20abc  BNE     0x20acc>                                         {}
        <POP 20abe-20acc Naked>                              Σ0         ↓
            <MI 20abe  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x20ac2 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 20ac4  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x20ac8 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 20aca-20acc StackAdj>                       Δ+2                {}
        <POP 20acc-20ad8 Naked>                              Σ0         ↓ →0x20aea ←0x20a9e
            <Call 0x20acc 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 20ad2  TST.B   (A6+0x16)>                                       {}
            <MI 20ad6  BEQ     0x20aea>                                         {}
        <POP 20ad8-20aea Naked>                              Σ0 Δ-10    →0x20afa
            <Blob 0x20ad8 [10] @>                            Δ-10               {[«10""»]}
            <MI 20ae8  BRA     0x20afa>                                         {[«10""»]}
        <POP 20aea-20afa Naked>                              Σ0 Δ-10    ↓ ←0x20acc
            <Blob 0x20aea [10] @>                            Δ-10               {[«10""»]}
        <POP 20afa-20b40 Naked>                              Σ-10 Δ+10  ↓ ←0x20ad8
            <POP 20afa-20afc StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x20afc>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x20afc 4>                       Δ-4        
                <Const 0x20b00 0x1.2>                        Δ-2        
                <Const 0x20b04 0x9.2>                        Δ-2        
                <Call 0x20b08 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20b0e-20b10 StackAdj>                   Δ+8        
            <Const 0x20b10 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x20b14 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x20b18 <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x20b1c 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20b22-20b26 StackAdj>                       Δ+24               {}
            <Call 0x20b26 0x10538>                                              {}
                IPC_Init(void)
            <MI 20b2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20b30  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20b32 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20b38-20b3a StackAdj>                       Δ+4                {}
            <Call 0x20b3a 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20b40-20b48 Epilogue>                           Σ0         

0x20b48


@ 20b48
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x40e @ 2(r)>
        <LVAR -0x410 @>
    <POP 20b48-20cc2 Body>                                              
        <POP 20b48-20b5e Prologue>                           Σ0         ↓
        <POP 20b5e-20b72 RegCacheLoad>                       Σ0         ↓
        <POP 20b72-20c60 Naked>                              Σ0         ↓ →0x20c96
            <Blob 0x20b72 [10] @>                            Δ-10               {[«10""»]}
            <POP 20b7e-20b80 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20b80 10>                                                    {[«10""»]|[$$LAST_UCODE]}
            <MI 20b94  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«10""»]}
            <POP 20b98-20b9c StackAdj>                       Δ+10               {}
            <Const 0x20b9c 0x232e6.4>                        Δ-4                {[##144102]}
            <Call 0x20b9e 0x102b8>                                              {[##144102]}
                NewString(VAR a : String)
            <MI 20ba4  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 20ba8  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0xe)']|[#0]}
            <Const 0x20baa 0x2.2>                            Δ-2                {[4, '(A6-0xe)']|[#0]|[#2]}
            <Const 0x20bac 0x0.4>                            Δ-4                {[4, '(A6-0xe)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x20bb0 <LVAR -0x410 @>>             Δ-4                {[4, '(A6-0xe)']|[#0]|[#2]|[##0]|[@@-1040]}
            <Pointer.fp 0x20bb2 <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0xe)']|[#0]|[#2]|[##0]|[@@-1040]|[@@-10]}
            <Call 0x20bb6 0x10380>                                              {[4, '(A6-0xe)']|[#0]|[#2]|[##0]|[@@-1040]|[@@-10]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20bbc-20bbe StackAdj>                       Δ+16               {[4, '(A6-0xe)']}
            <MI 20bbe  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <MI 20bc2  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]}
            <MI 20bc4  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]}
            <Const 0x20bc6 0x40.2>                           Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]}
            <Const 0x20bca 0x2.2>                            Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]}
            <Blob 0x20bcc [4] 0x232e6>                       Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[«4»]}
            <Pointer.fp 0x20bce <LVAR -0x410 @>>             Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[«4»]|[@@-1040]}
            <Call 0x20bd0 0x10384>                                              {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[«4»]|[@@-1040]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20bd6-20bda StackAdj>                       Δ+18               {[-2-]}
            <MI 20bda  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20bdc 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x20bde 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x20be2 <LVAR -0x410 @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-1040]}
            <Pointer.fp 0x20be4 <LVAR -0x00a @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-1040]|[@@-10]}
            <Call 0x20be8 0x1038c>                                              {[-2-]|[#2]|[##1]|[@@-1040]|[@@-10]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20bee-20bf0 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x20bf0 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x20bf4 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 20bfa-20bfb StackAdj>                       Δ+4                {}
            <Blob 0x20bfb [4] 0x232e6>                       Δ-4                {[«4»]}
            <MI 20bfc  CLR.B   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <Const 0x20bfe 0x2.2>                            Δ-2                {[«4»]|[#0]|[#2]}
            <Const 0x20c00 0x0.4>                            Δ-4                {[«4»]|[#0]|[#2]|[##0]}
            <Pointer.fp 0x20c04 <LVAR -0x410 @>>             Δ-4                {[«4»]|[#0]|[#2]|[##0]|[@@-1040]}
            <Const 0x20c06 0x232ea.4>                        Δ-4                {[«4»]|[#0]|[#2]|[##0]|[@@-1040]|[##144106]}
            <Call 0x20c08 0x10380>                                              {[«4»]|[#0]|[#2]|[##0]|[@@-1040]|[##144106]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20c0e-20c10 StackAdj>                       Δ+16               {[«4»]}
            <POP 20c10-20c11 StackAdj>                       Δ+4                {}
            <Blob 0x20c11 [4] 0x232ea>                       Δ-4                {[«4»]}
            <MI 20c12  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 20c14  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x20c16 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x20c1a 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20c1c  LEA.L   (A6-0x40e),A0>                                   {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20c20  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x20c22 <LVAR -0x410 @>>             Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
            <Call 0x20c24 0x10384>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20c2a-20c2e StackAdj>                       Δ+20               {}
            <MI 20c2e  MOVEA.L 0x232ea,A0>                                      {}
            <MI 20c30  MOVE.W  (A0+0x20),D7>                                    {}
            <MI 20c34  MOVE.W  (A6-0x40e),D6>                                   {}
            <MI 20c38  CLR.L   D0>                                              {}
            <MI 20c3a  MOVE.W  D7,D0>                                           {}
            <MI 20c3c  SUBQ.L  #0x1,D0>                                         {}
            <MI 20c3e  SUBI.L  #0x00000028,D0>                                  {}
            <MI 20c44  MOVE.L  D0,D4>                                           {}
            <MI 20c46  MOVEQ.L #0x01,D3>                                        {}
            <Call 0x20c48 0x10294>                                              {}
                ?divs_d3_d4
            <MI 20c4e  ASL.L   #0x5,D4>                                         {}
            <POP 0x20c50 LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {}
            <MI 20c5a  MOVE.W  D4,D5>                                           {}
            <MI 20c5c  CMP.W   D5,D6>                                           {}
            <MI 20c5e  BEQ     0x20c96>                                         {}
        <POP 20c60-20c96 Naked>                              Σ0         ↓
            <Blob 0x20c60 [34] @>                            Δ-34               {[«34""»]}
            <Const 0x20c72 0xe.2>                            Δ-2                {[«34""»]|[#14]}
            <POP 20c76-20c78 StackAdj>                       Δ-4                {[«34""»]|[#14]|[-4-]}
            <Lit 0x20c78 33>                                                    {[«34""»]|[#14]|[$$Inconsistent microcode file size.]}
            <Call 0x20c8c 0x103b8>                                              {[«34""»]|[#14]|[$$Inconsistent microcode file size.]}
                PopProgram(status : Byte; msg : String)
            <POP 20c92-20c96 StackAdj>                       Δ+40               {}
        <POP 20c96-20cba Naked>                              Σ0         ↓ ←0x20b72
            <MI 20c96  MOVE.W  #0x100,0x232ee>                                  {}
            <MI 20c9e  CLR.L   D0>                                              {}
            <MI 20ca0  MOVE.W  D6,D0>                                           {}
            <MI 20ca2  ADDI.L  #0x00000100,D0>                                  {}
            <MI 20ca8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x20caa LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 20cb4  MOVE.W  D0,0x232f0>                                      {}
        <POP 20cba-20cc2 Epilogue>                           Σ0         

0x20cc2


@ 20cc2
        <LVAR  0x012 1(rw)>
        <LVAR  0x008 2(r)>
    <POP 20cc2-20d14 Body>                                              
        <POP 20cc2-20cd8 Prologue>                           Σ0         ↓
        <POP 20cd8-20d08 Naked>                              Σ0         ↓ →0x20d0c
            <MI 20cd8  CLR.B   (A6+0x12)>                                       {}
            <MI 20cdc  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20ce0  LSR.W   #0x4,D0>                                         {}
            <POP 0x20ce2 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 20ce6  ASL.W   #0x1,D0>                                         {}
            <MI 20ce8  CLR.L   D1>                                              {}
            <MI 20cea  MOVE.W  D0,D1>                                           {}
            <MI 20cec  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20cf0  ANDI.W  #0x000f,D0>                                      {}
            <MI 20cf4  ASL.W   #0x1,D0>                                         {}
            <MI 20cf6  CLR.L   D2>                                              {}
            <MI 20cf8  MOVE.W  D0,D2>                                           {}
            <MI 20cfa  LEA.L   0x20710,A0>                                      {}
            <MI 20cfe  MOVE.W  (A6+D1.L+#0xa),D0>                               {}
            <MI 20d02  AND.W   (A0+D2.L),D0>                                    {}
            <MI 20d06  BEQ     0x20d0c>                                         {}
        <POP 20d08-20d0c Naked>                              Σ0         ↓
            <MI 20d08  ADDQ.B  #0x1,(A6+0x12)>                                  {}
        <POP 20d0c-20d14 Epilogue>                           Σ0         ←0x20cd8

0x20d14


@ 20d14
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
    <POP 20d14-20d6e Body>                                              
        <POP 20d14-20d2a Prologue>                           Σ0         ↓
        <POP 20d2a-20d66 Naked>                              Σ0         ↓
            <MI 20d2a  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20d2e  LSR.W   #0x4,D0>                                         {}
            <MI 20d30  CLR.L   D1>                                              {}
            <MI 20d32  MOVE.W  D0,D1>                                           {}
            <MI 20d34  MOVE.L  D1,D7>                                           {}
            <MI 20d36  MOVEA.L (A6+0xa),A0>                                     {}
            <POP 0x20d3a LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 20d44  MOVE.L  D7,D0>                                           {}
            <MI 20d46  ASL.L   #0x1,D0>                                         {}
            <MI 20d48  MOVE.W  (A6+0x8),D1>                                     {}
            <MI 20d4c  ANDI.W  #0x000f,D1>                                      {}
            <MI 20d50  ASL.W   #0x1,D1>                                         {}
            <MI 20d52  CLR.L   D2>                                              {}
            <MI 20d54  MOVE.W  D1,D2>                                           {}
            <MI 20d56  LEA.L   0x20710,A1>                                      {}
            <MI 20d5a  MOVE.W  (A1+D2.L),D1>                                    {}
            <MI 20d5e  OR.W    (A0+D0.L),D1>                                    {}
            <MI 20d62  MOVE.W  D1,(A0+D0.L)>                                    {}
        <POP 20d66-20d6e Epilogue>                           Σ0         

0x20d6e


@ 20d6e
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20d6e-20dc2 Body>                                              
        <POP 20d6e-20d84 Prologue>                           Σ0         ↓
        <POP 20d84-20d88 Naked>                              Σ0         ↓
            <MI 20d84  MOVEQ.L #0x00,D7>                                        {}
            <MI 20d86  MOVEQ.L #0x00,D6>                                        {}
        <POP 20d88-20daa Naked>                              Σ0         ↓ →0x20dac ←0x20dac
            <POP 20d88-20d8a StackAdj>                       Δ-2                {[-2-]}
            <MI 20d8a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']}
            <MI 20d8e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 0x20d92 LimitCheck 0x0 ≤ D6 ≤ 0xffff>                          {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20d9c  MOVE.W  D6,-(A7)>                     Δ-2                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[2, 'D6']}
            <Call 0x20d9e 0x20cc2>                                              {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[2, 'D6']}
            <POP 20da2-20da6 StackAdj>                       Δ+10               {[-2-]}
            <MI 20da6  TST.B   (A7)+>                        Δ+2                {}
            <MI 20da8  BEQ     0x20dac>                                         {}
        <POP 20daa-20dac Naked>                              Σ0         ↓
            <MI 20daa  ADDQ.L  #0x1,D7>                                         {}
        <POP 20dac-20db6 Naked>                              Σ0         ↓ →0x20d88 ←0x20d88
            <MI 20dac  ADDQ.L  #0x1,D6>                                         {}
            <MI 20dae  CMPI.L  #0x0000003f,D6>                                  {}
            <MI 20db4  BLE     0x20d88>                                         {}
        <POP 20db6-20dba Naked>                              Σ0         ↓
            <MI 20db6  MOVE.L  D7,(A6+0x10)>                                    {}
        <POP 20dba-20dc2 Epilogue>                           Σ0         

0x20dc2


@ 20dc2
        <LVAR  0x048 4(r)>
        <LVAR  0x044 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20dc2-20e74 Body>                                              
        <POP 20dc2-20dd8 Prologue>                           Σ0         ↓
        <POP 20dd8-20dde RegCacheLoad>                       Σ0         ↓
        <POP 20dde-20dee Naked>                              Σ0         ↓
            <MI 20dde  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20de0  LEA.L   0x20730,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 20dec  MOVEQ.L #0x10,D7>                                        {}
        <POP 20dee-20e08 Naked>                              Σ0         ↓ →0x20e36 ←0x20e36
            <MI 20dee  MOVE.L  D7,D0>                                           {}
            <MI 20df0  SUB.L   #0x10,D0>                                        {}
            <POP 0x20df2 LimitCheck 0x0 ≤ D0 ≤ 0x2f>                            {}
            <MI 20dfc  CLR.L   D1>                                              {}
            <MI 20dfe  MOVE.B  (A6+D0.L+#0x14),D1>                              {}
            <MI 20e02  CMPI.W  #0x0040,D1>                                      {}
            <MI 20e06  BEQ     0x20e36>                                         {}
        <POP 20e08-20e20 Naked>                              Σ0         ↓ →0x20e36
            <POP 20e08-20e0a StackAdj>                       Δ-2                {[-2-]}
            <MI 20e0a  MOVE.L  (A6+0x48),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x48)']}
            <MI 20e0e  MOVE.L  (A6+0x44),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x48)']|[4, '(A6+0x44)']}
            <MI 20e12  MOVE.W  D1,-(A7)>                     Δ-2                {[-2-]|[4, '(A6+0x48)']|[4, '(A6+0x44)']|[2, 'D1']}
            <Call 0x20e14 0x20cc2>                                              {[-2-]|[4, '(A6+0x48)']|[4, '(A6+0x44)']|[2, 'D1']}
            <POP 20e18-20e1c StackAdj>                       Δ+10               {[-2-]}
            <MI 20e1c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20e1e  BEQ     0x20e36>                                         {}
        <POP 20e20-20e36 Naked>                              Σ0         ↓
            <MI 20e20  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20e22  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <POP 0x20e24 LimitCheck 0x0 ≤ D7 ≤ 0xffff>                          {[4, '^(A0)']}
            <MI 20e2e  MOVE.W  D7,-(A7)>                     Δ-2                {[4, '^(A0)']|[2, 'D7']}
            <Call 0x20e30 0x20d14>                                              {[4, '^(A0)']|[2, 'D7']}
            <POP 20e34-20e36 StackAdj>                       Δ+6                {}
        <POP 20e36-20e40 Naked>                              Σ0         ↓ →0x20dee ←0x20dee ←0x20e08
            <MI 20e36  ADDQ.L  #0x1,D7>                                         {}
            <MI 20e38  CMPI.L  #0x0000003f,D7>                                  {}
            <MI 20e3e  BLE     0x20dee>                                         {}
        <POP 20e40-20e6c Naked>                              Σ0         ↓
            <MI 20e40  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 20e42-20e44 StackAdj>                       Δ-16               {[-16-]}
            <MI 20e44  MOVEA.L A7,A1>                                           {[-16-]}
            <MI 20e46  MOVEA.L A0,A2>                                           {[-16-]}
            <BlockMove 8,A2,A1>                                                 {[-16-]}
            <MI 20e50  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-16-]|[4, '(A6+0x10)']}
            <MI 20e54  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-16-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x20e58 0x10340>                                              {[-16-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
                BitXor(a, b : Quad) : Quad
            <POP 20e5e-20e60 StackAdj>                       Δ+16               {[-8-]}
            <MI 20e60  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 20e6a-20e6c StackAdj>                       Δ+8                {}
        <POP 20e6c-20e74 Epilogue>                           Σ0         

0x20e74


@ 20e74
        <LVAR  0x02c 4(w)>
        <LVAR  0x028 4(w)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00b 1(r)>
        <LVAR -0x00c 1(r)>
        <LVAR -0x00d 1(r)>
        <LVAR -0x00e 1(r)>
        <LVAR -0x00f 1(r)>
        <LVAR -0x010 1(r)>
        <LVAR -0x011 1(r)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 1(w)>
        <LVAR -0x014 1(w) 2(r)>
    <POP 20e74-20f3a Body>                                              
        <POP 20e74-20e8a Prologue>                           Σ0         ↓
        <POP 20e8a-20e8c RegCacheLoad>                       Σ0         ↓
        <POP 20e8c-20f32 Naked>                              Σ0         ↓
            <MI 20e8c  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[4, '(A6+0x1c)']}
            <MI 20e90  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']}
            <Pointer.fp 0x20e94 <LVAR -0x012 @ 1(r)>>        Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-18]}
            <Const 0x20e98 0x0.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-18]|[##0]}
            <Const 0x20e9c 0x7.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-18]|[##0]|[##7]}
            <Call 0x20ea0 0x104ae>                                              {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-18]|[##0]|[##7]}
                FSCALL_104ae
            <POP 20ea6-20eaa StackAdj>                       Δ+20               {}
            <MI 20eaa  CLR.L   D0>                                              {}
            <MI 20eac  MOVE.B  (A6-0x12),D0>                                    {}
            <MI 20eb0  AND.W   #0x03,D0>                                        {}
            <MI 20eb2  ASL.W   #0x6,D0>                                         {}
            <MI 20eb4  CLR.L   D1>                                              {}
            <MI 20eb6  MOVE.B  (A6-0x11),D1>                                    {}
            <MI 20eba  AND.W   #0x03,D1>                                        {}
            <MI 20ebc  ASL.W   #0x4,D1>                                         {}
            <MI 20ebe  ADD.W   D0,D1>                                           {}
            <MI 20ec0  CLR.L   D0>                                              {}
            <MI 20ec2  MOVE.B  (A6-0x10),D0>                                    {}
            <MI 20ec6  AND.W   #0x03,D0>                                        {}
            <MI 20ec8  ASL.W   #0x2,D0>                                         {}
            <MI 20eca  ADD.W   D1,D0>                                           {}
            <MI 20ecc  CLR.L   D1>                                              {}
            <MI 20ece  MOVE.B  (A6-0xf),D1>                                     {}
            <MI 20ed2  AND.W   #0x03,D1>                                        {}
            <MI 20ed4  ADD.W   D0,D1>                                           {}
            <MI 20ed6  MOVE.B  D1,(A6-0x14)>                                    {}
            <MI 20eda  CLR.L   D0>                                              {}
            <MI 20edc  MOVE.B  (A6-0xe),D0>                                     {}
            <MI 20ee0  AND.W   #0x03,D0>                                        {}
            <MI 20ee2  ASL.W   #0x6,D0>                                         {}
            <MI 20ee4  CLR.L   D1>                                              {}
            <MI 20ee6  MOVE.B  (A6-0xd),D1>                                     {}
            <MI 20eea  AND.W   #0x03,D1>                                        {}
            <MI 20eec  ASL.W   #0x4,D1>                                         {}
            <MI 20eee  ADD.W   D0,D1>                                           {}
            <MI 20ef0  CLR.L   D0>                                              {}
            <MI 20ef2  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 20ef6  AND.W   #0x03,D0>                                        {}
            <MI 20ef8  ASL.W   #0x2,D0>                                         {}
            <MI 20efa  ADD.W   D1,D0>                                           {}
            <MI 20efc  CLR.L   D1>                                              {}
            <MI 20efe  MOVE.B  (A6-0xb),D1>                                     {}
            <MI 20f02  AND.W   #0x03,D1>                                        {}
            <MI 20f04  ADD.W   D0,D1>                                           {}
            <MI 20f06  MOVE.B  D1,(A6-0x13)>                                    {}
            <MI 20f0a  MOVE.W  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <MI 20f0e  PEA.L   (A7)>                         Δ-4                {[2, '(A6-0x14)']|[4, '^(A7)']}
            <Const 0x20f10 0x0.4>                            Δ-4                {[2, '(A6-0x14)']|[4, '^(A7)']|[##0]}
            <Const 0x20f14 0x1.4>                            Δ-4                {[2, '(A6-0x14)']|[4, '^(A7)']|[##0]|[##1]}
            <Pointer.fp 0x20f18 <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6-0x14)']|[4, '^(A7)']|[##0]|[##1]|[@@-10]}
            <Call 0x20f1c 0x104b4>                                              {[2, '(A6-0x14)']|[4, '^(A7)']|[##0]|[##1]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20f22-20f26 StackAdj>                       Δ+18               {}
            <MI 20f26  MOVE.L  (A6-0xa),(A6+0x28)>                              {}
            <MI 20f2c  MOVE.L  (A6-0x6),(A6+0x2c)>                              {}
        <POP 20f32-20f3a Epilogue>                           Σ0         

0x20f3a


@ 20f3a
        <LVAR  0x02c 4(w)>
        <LVAR  0x028 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 @ 2(r)>
        <LVAR -0x014 4(r)>
        <LVAR -0x018 @ 4(r)>
    <POP 20f3a-20fb4 Body>                                              
        <POP 20f3a-20f4c Prologue>                           Σ0         ↓
        <POP 20f4c-20fb0 Naked>                              Σ0         ↓
            <MI 20f4c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 20f50  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x20f54 <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-24]}
            <Const 0x20f58 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-24]|[##0]}
            <Const 0x20f5c 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-24]|[##0]|[##7]}
            <Call 0x20f60 0x104ae>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-24]|[##0]|[##7]}
                FSCALL_104ae
            <POP 20f66-20f6a StackAdj>                       Δ+16               {[4, '(A6+0xc)']}
            <MI 20f6a  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <MI 20f6e  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <Pointer.fp 0x20f72 <LVAR -0x010 @ 2(r)>>        Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
            <Call 0x20f76 0x22fc6>                                              {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
                exp_UNPERMUTE_UIR.TYP(Sw_8, &Sr_6)
            <POP 20f7c-20f80 StackAdj>                       Δ+10               {[-2-]}
            <MI 20f80  MOVE.W  (A6-0xc),(A7)>                                   {[2, '(A6-0xc)']}
            <MI 20f84  MOVE.W  (A6-0xe),-(A7)>               Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']}
            <MI 20f88  MOVE.W  (A6-0x10),-(A7)>              Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']}
            <MI 20f8c  PEA.L   (A7)>                         Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']}
            <Const 0x20f8e 0x0.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]}
            <Const 0x20f92 0x5.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]}
            <Pointer.fp 0x20f96 <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
            <Call 0x20f9a 0x104b4>                                              {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20fa0-20fa4 StackAdj>                       Δ+22               {}
            <MI 20fa4  MOVE.L  (A6-0xa),(A6+0x28)>                              {}
            <MI 20faa  MOVE.L  (A6-0x6),(A6+0x2c)>                              {}
        <POP 20fb0-20fb4 Epilogue>                           Σ0         

0x20fb4


@ 20fb4
        <LVAR  0x02c 4(w)>
        <LVAR  0x028 4(w)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x010 @>
        <LVAR -0x014 4(r)>
        <LVAR -0x018 @ 4(r)>
    <POP 20fb4-21036 Body>                                              
        <POP 20fb4-20fca Prologue>                           Σ0         ↓
        <POP 20fca-2102e Naked>                              Σ0         ↓
            <MI 20fca  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, '(A6+0x14)']}
            <MI 20fce  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <Pointer.fp 0x20fd2 <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[@@-24]}
            <Const 0x20fd6 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[@@-24]|[##0]}
            <Const 0x20fda 0x7.4>                            Δ-4                {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[@@-24]|[##0]|[##7]}
            <Call 0x20fde 0x104ae>                                              {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[@@-24]|[##0]|[##7]}
                FSCALL_104ae
            <POP 20fe4-20fe8 StackAdj>                       Δ+16               {[4, '(A6+0x14)']}
            <MI 20fe8  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <MI 20fec  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <Pointer.fp 0x20ff0 <LVAR -0x010 @>>             Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
            <Call 0x20ff4 0x2305e>                                              {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
                exp_UNPERMUTE_UIR.VAL(Sw_8, &Sr_5)
            <POP 20ffa-20ffb StackAdj>                       Δ+12       ↓       {}
            <Blob 0x20ffb [6] (A6-0x10)>                     Δ-6                {[«6»]}
            <MI 2100a  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x2100c 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x21010 0x4.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <Pointer.fp 0x21014 <LVAR -0x00a @ 4(r)>>        Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]|[@@-10]}
            <Call 0x21018 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##4]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2101e-21022 StackAdj>                       Δ+22               {}
            <MI 21022  MOVE.L  (A6-0xa),(A6+0x28)>                              {}
            <MI 21028  MOVE.L  (A6-0x6),(A6+0x2c)>                              {}
        <POP 2102e-21036 Epilogue>                           Σ0         

0x21036


@ 21036
        <LVAR  0x02c 4(w)>
        <LVAR  0x028 4(w)>
        <LVAR  0x024 4(r)>
        <LVAR  0x020 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 @ 2(r)>
        <LVAR -0x014 4(r)>
        <LVAR -0x018 @ 4(r)>
    <POP 21036-210b0 Body>                                              
        <POP 21036-21048 Prologue>                           Σ0         ↓
        <POP 21048-210ac Naked>                              Σ0         ↓
            <MI 21048  MOVE.L  (A6+0x24),-(A7)>              Δ-4                {[4, '(A6+0x24)']}
            <MI 2104c  MOVE.L  (A6+0x20),-(A7)>              Δ-4                {[4, '(A6+0x24)']|[4, '(A6+0x20)']}
            <Pointer.fp 0x21050 <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6+0x24)']|[4, '(A6+0x20)']|[@@-24]}
            <Const 0x21054 0x0.4>                            Δ-4                {[4, '(A6+0x24)']|[4, '(A6+0x20)']|[@@-24]|[##0]}
            <Const 0x21058 0x7.4>                            Δ-4                {[4, '(A6+0x24)']|[4, '(A6+0x20)']|[@@-24]|[##0]|[##7]}
            <Call 0x2105c 0x104ae>                                              {[4, '(A6+0x24)']|[4, '(A6+0x20)']|[@@-24]|[##0]|[##7]}
                FSCALL_104ae
            <POP 21062-21066 StackAdj>                       Δ+16               {[4, '(A6+0x24)']}
            <MI 21066  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <MI 2106a  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <Pointer.fp 0x2106e <LVAR -0x010 @ 2(r)>>        Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
            <Call 0x21072 0x22d9e>                                              {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
                exp_UNPERMUTE_UIR.SEQ(Sw_8, &Sr_6)
            <POP 21078-2107c StackAdj>                       Δ+10               {[-2-]}
            <MI 2107c  MOVE.W  (A6-0xc),(A7)>                                   {[2, '(A6-0xc)']}
            <MI 21080  MOVE.W  (A6-0xe),-(A7)>               Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']}
            <MI 21084  MOVE.W  (A6-0x10),-(A7)>              Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']}
            <MI 21088  PEA.L   (A7)>                         Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']}
            <Const 0x2108a 0x0.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]}
            <Const 0x2108e 0x5.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]}
            <Pointer.fp 0x21092 <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
            <Call 0x21096 0x104b4>                                              {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2109c-210a0 StackAdj>                       Δ+22               {}
            <MI 210a0  MOVE.L  (A6-0xa),(A6+0x28)>                              {}
            <MI 210a6  MOVE.L  (A6-0x6),(A6+0x2c)>                              {}
        <POP 210ac-210b0 Epilogue>                           Σ0         

0x210b0


@ 210b0
        <LVAR  0x02c 4(w)>
        <LVAR  0x028 4(w)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 @ 2(r)>
        <LVAR -0x014 4(r)>
        <LVAR -0x018 @ 4(r)>
    <POP 210b0-2112a Body>                                              
        <POP 210b0-210c2 Prologue>                           Σ0         ↓
        <POP 210c2-21126 Naked>                              Σ0         ↓
            <MI 210c2  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[4, '(A6+0x1c)']}
            <MI 210c6  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']}
            <Pointer.fp 0x210ca <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-24]}
            <Const 0x210ce 0x0.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-24]|[##0]}
            <Const 0x210d2 0x7.4>                            Δ-4                {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-24]|[##0]|[##7]}
            <Call 0x210d6 0x104ae>                                              {[4, '(A6+0x1c)']|[4, '(A6+0x18)']|[@@-24]|[##0]|[##7]}
                FSCALL_104ae
            <POP 210dc-210e0 StackAdj>                       Δ+16               {[4, '(A6+0x1c)']}
            <MI 210e0  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <MI 210e4  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']}
            <Pointer.fp 0x210e8 <LVAR -0x010 @ 2(r)>>        Δ-4                {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
            <Call 0x210ec 0x22cf0>                                              {[4, '(A6-0x14)']|[4, '(A6-0x18)']|[@@-16]}
                exp_UNPERMUTE_UIR.FIU(Sw_8, &Sr_6)
            <POP 210f2-210f6 StackAdj>                       Δ+10               {[-2-]}
            <MI 210f6  MOVE.W  (A6-0xc),(A7)>                                   {[2, '(A6-0xc)']}
            <MI 210fa  MOVE.W  (A6-0xe),-(A7)>               Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']}
            <MI 210fe  MOVE.W  (A6-0x10),-(A7)>              Δ-2                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']}
            <MI 21102  PEA.L   (A7)>                         Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']}
            <Const 0x21104 0x0.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]}
            <Const 0x21108 0x5.4>                            Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]}
            <Pointer.fp 0x2110c <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
            <Call 0x21110 0x104b4>                                              {[2, '(A6-0xc)']|[2, '(A6-0xe)']|[2, '(A6-0x10)']|[4, '^(A7)']|[##0]|[##5]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 21116-2111a StackAdj>                       Δ+22               {}
            <MI 2111a  MOVE.L  (A6-0xa),(A6+0x28)>                              {}
            <MI 21120  MOVE.L  (A6-0x6),(A6+0x2c)>                              {}
        <POP 21126-2112a Epilogue>                           Σ0         

0x2112a


@ 2112a
        <LVAR  0x008 4(r)>
    <POP 2112a-211ea Body>                                              
        <POP 2112a-21140 Prologue>                           Σ0         ↓
        <POP 21140-21146 RegCacheLoad>                       Σ0         ↓
        <POP 21146-211e2 Naked>                              Σ0         ↓
            <MI 21146  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 2114a-2114c StackAdj>                       Δ-8                {[-8-]}
            <Blob 0x2114c [32] (A6+0x2c)>                    Δ-32               {[-8-]|[«32»]}
            <Call 0x21156 0x20e74>                                              {[-8-]|[«32»]}
            <POP 2115a-2115c StackAdj>                       Δ+32               {[-8-]}
            <MI 2115c  LEA.L   (A0+0x20),A1>                                    {[-8-]}
            <MI 21160  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <Blob 0x2116a [32] (A6+0x2c)>                    Δ-32               {[-8-]|[«32»]}
            <Call 0x21174 0x20f3a>                                              {[-8-]|[«32»]}
            <POP 21178-2117a StackAdj>                       Δ+32               {[-8-]}
            <MI 2117a  LEA.L   (A0+0x8),A1>                                     {[-8-]}
            <MI 2117e  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <Blob 0x21188 [32] (A6+0x2c)>                    Δ-32               {[-8-]|[«32»]}
            <Call 0x21192 0x20fb4>                                              {[-8-]|[«32»]}
            <POP 21196-21198 StackAdj>                       Δ+32               {[-8-]}
            <MI 21198  MOVEA.L A0,A1>                                           {[-8-]}
            <MI 2119a  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <Blob 0x211a4 [32] (A6+0x2c)>                    Δ-32               {[-8-]|[«32»]}
            <Call 0x211ae 0x21036>                                              {[-8-]|[«32»]}
            <POP 211b2-211b4 StackAdj>                       Δ+32               {[-8-]}
            <MI 211b4  LEA.L   (A0+0x10),A1>                                    {[-8-]}
            <MI 211b8  MOVEA.L A7,A2>                                           {[-8-]}
            <BlockMove 8,A2,A1>                                                 {[-8-]}
            <Blob 0x211c2 [32] (A6+0x2c)>                    Δ-32               {[-8-]|[«32»]}
            <Call 0x211cc 0x210b0>                                              {[-8-]|[«32»]}
            <POP 211d0-211d2 StackAdj>                       Δ+32               {[-8-]}
            <MI 211d2  LEA.L   (A0+0x18),A0>                                    {[-8-]}
            <MI 211d6  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A1,A0>                                                 {[-8-]}
            <POP 211e0-211e2 StackAdj>                       Δ+8                {}
        <POP 211e2-211ea Epilogue>                           Σ0         

0x211ea


@ 211ea
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 1(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x009 @>
        <LVAR -0x00f @>
        <LVAR -0x014 @>
        <LVAR -0x016 2(r)>
        <LVAR -0x018 2(r)>
        <LVAR -0x01a @ 2(r)>
        <LVAR -0x01c @ 2(r)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x022 @>
        <LVAR -0x028 2(w)>
        <LVAR -0x42a @>
    <POP 211ea-2141e Body>                                              
        <POP 211ea-21200 Prologue>                           Σ0         ↓
        <POP 21200-2120a RegCacheLoad>                       Σ0         ↓
        <POP 2120a-2124c Naked>                              Σ0         ↓
            <MI 2120a  MOVEQ.L #0x01,D7>                                        {}
            <MI 2120c  CLR.L   D0>                                              {}
            <MI 2120e  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 21212  CLR.L   D1>                                              {}
            <MI 21214  MOVE.W  0x232ee,D1>                                      {}
            <MI 2121a  NEG.L   D1>                                              {}
            <MI 2121c  ADD.L   D0,D1>                                           {}
            <MI 2121e  MOVE.L  D1,D4>                                           {}
            <MI 21220  MOVEQ.L #0x20,D3>                                        {}
            <Call 0x21222 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21228  ADDQ.L  #0x1,D4>                                         {}
            <MI 2122a  ADDI.W  #0x0028,D4>                                      {}
            <POP 0x2122e LimitCheck 0x0 ≤ D4 ≤ 0xffff>                          {}
            <MI 21236  MOVE.W  D4,(A6-0x28)>                                    {}
            <MI 2123a  ANDI.W  #0x001f,D0>                                      {}
            <MI 2123e  MOVE.W  D0,D5>                                           {}
            <MI 21240  LEA.L   (A6-0x42a),A0>                                   {}
            <MI 21244  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21246  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {}
            <MI 2124a  MOVE.W  D4,D6>                                           {}
        <POP 2124c-2129a Naked>                              Σ0         ↓ →0x2124c ←0x2124c
            <Blob 0x2124c [4] 0x232ea>                       Δ-4                {[«4»]}
            <POP 0x21252 LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {[«4»]}
            <MI 21256  MOVE.W  D6,-(A7)>                     Δ-2                {[«4»]|[2, 'D6']}
            <MI 21258  CLR.W   -(A7)>                        Δ-2                {[«4»]|[2, 'D6']|[#0]}
            <Const 0x2125a 0x200.2>                          Δ-2                {[«4»]|[2, 'D6']|[#0]|[#512]}
            <Const 0x2125e 0x2.2>                            Δ-2                {[«4»]|[2, 'D6']|[#0]|[#512]|[#2]}
            <MI 21262  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, '(A6-0x20)']}
            <Pointer.fp 0x21266 <LVAR -0x022 @>>             Δ-4                {[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, '(A6-0x20)']|[@@-34]}
            <Call 0x2126a 0x10384>                                              {[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, '(A6-0x20)']|[@@-34]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 21270-21274 StackAdj>                       Δ+20               {}
            <MI 21274  CLR.L   D0>                                              {}
            <MI 21276  MOVE.W  D6,D0>                                           {}
            <MI 21278  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x2127a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21284  MOVE.W  D0,D6>                                           {}
            <MI 21286  CLR.L   D0>                                              {}
            <MI 21288  MOVE.W  D7,D0>                                           {}
            <MI 2128a  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x2128c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21296  MOVE.W  D0,D7>                                           {}
            <MI 21298  BNE     0x2124c>                                         {}
        <POP 2129a-21416 Naked>                              Σ0         ↓
            <MI 2129a  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 0x2129e LimitCheck 0x0 ≤ D5 ≤ 0x1f>                            {}
            <MI 212a2  CLR.L   D0>                                              {}
            <MI 212a4  MOVE.W  D5,D0>                                           {}
            <MI 212a6  ASL.L   #0x5,D0>                                         {}
            <MI 212a8  LEA.L   (A6-0x42a),A1>                                   {}
            <Blob 0x212ac [32] (A1+D0.L+#0x20)>              Δ-32               {[«32»]}
            <MI 212b8  PEA.L   (A0)>                         Δ-4                {[«32»]|[4, '^(A0)']}
            <Call 0x212ba 0x2112a>                                              {[«32»]|[4, '^(A0)']}
            <POP 212be-212c2 StackAdj>                       Δ+28               {[-8-]}
            <MI 212c2  CLR.L   D0>                                              {[-8-]}
            <MI 212c4  MOVE.W  (A6+0xc),D0>                                     {[-8-]}
            <MI 212c8  MOVE.L  D0,-(A7)>                     Δ-4                {[-8-]|[4, 'D0']}
            <Call 0x212ca 0x10354>                                              {[-8-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 212d0-212d2 StackAdj>                       Δ+4                {[-8-]}
            <Pointer.fp 0x212d2 <LVAR -0x01c @ 2(r)>>        Δ-4                {[-8-]|[@@-28]}
            <Const 0x212d4 0x0.4>                            Δ-4                {[-8-]|[@@-28]|[##0]}
            <Const 0x212d8 0x1.4>                            Δ-4                {[-8-]|[@@-28]|[##0]|[##1]}
            <Call 0x212dc 0x104ae>                                              {[-8-]|[@@-28]|[##0]|[##1]}
                FSCALL_104ae
            <POP 212e2-212e6 StackAdj>                       Δ+18               {[-2-]}
            <MI 212e6  MOVE.W  (A6-0x1c),(A7)>                                  {[2, '(A6-0x1c)']}
            <MI 212e8  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x1c)']|[#0]}
            <Pointer.fp 0x212ea <LVAR -0x01a @ 2(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-26]}
            <Pointer.fp 0x212ee <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-26]|[@@-1]}
            <Call 0x212f0 0x22d10>                                              {[2, '(A6-0x1c)']|[#0]|[@@-26]|[@@-1]}
                exp_READ_WCS.FIU(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 212f6-212fa StackAdj>                       Δ+10               {[2, '(A6-0x1c)']}
            <MI 212fa  MOVE.W  (A6-0x16),(A7)>                                  {[2, '(A6-0x16)']}
            <MI 212fe  MOVE.W  (A6-0x18),-(A7)>              Δ-2                {[2, '(A6-0x16)']|[2, '(A6-0x18)']}
            <MI 21302  MOVE.W  (A6-0x1a),-(A7)>              Δ-2                {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']}
            <MI 21306  PEA.L   (A7)>                         Δ-4                {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']|[4, '^(A7)']}
            <Const 0x21308 0x0.4>                            Δ-4                {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']|[4, '^(A7)']|[##0]}
            <Const 0x2130c 0x5.4>                            Δ-4                {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']|[4, '^(A7)']|[##0]|[##5]}
            <MI 21310  PEA.L   (A0+0x40)>                    Δ-4                {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x40)']}
            <Call 0x21314 0x104b4>                                              {[2, '(A6-0x16)']|[2, '(A6-0x18)']|[2, '(A6-0x1a)']|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x40)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2131a-2131c StackAdj>                       Δ+22               {}
            <MI 2131c  MOVE.B  (A6-0x1),(A0+0x53)>                              {}
            <MI 21320  NEG.B   (A0+0x53)>                                       {}
            <MI 21324  ADDQ.B  #0x1,(A0+0x53)>                                  {}
            <MI 21328  MOVE.W  (A6-0x1c),-(A7)>              Δ-2                {[2, '(A6-0x1c)']}
            <MI 2132a  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x1c)']|[#0]}
            <Pointer.fp 0x2132c <LVAR -0x014 @>>             Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-20]}
            <Pointer.fp 0x21330 <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-20]|[@@-1]}
            <Call 0x21332 0x2307e>                                              {[2, '(A6-0x1c)']|[#0]|[@@-20]|[@@-1]}
                exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
            <POP 21338-21339 StackAdj>                       Δ+12       ↓       {}
            <Blob 0x21339 [6] (A6-0x14)>                     Δ-6                {[«6»]}
            <MI 21348  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x2134a 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x2134e 0x4.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <MI 21352  PEA.L   (A0+0x28)>                    Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0+0x28)']}
            <Call 0x21356 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0+0x28)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2135c-2135e StackAdj>                       Δ+22               {}
            <MI 2135e  MOVE.B  (A6-0x1),(A0+0x50)>                              {}
            <MI 21362  MOVE.W  (A6-0x1c),-(A7)>              Δ-2                {[2, '(A6-0x1c)']}
            <MI 21364  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x1c)']|[#0]}
            <Pointer.fp 0x21366 <LVAR -0x00f @>>             Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-15]}
            <Pointer.fp 0x2136a <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-15]|[@@-1]}
            <Call 0x2136c 0x22fe6>                                              {[2, '(A6-0x1c)']|[#0]|[@@-15]|[@@-1]}
                exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 21372-21373 StackAdj>                       Δ+12       ↓       {}
            <Blob 0x21373 [6] (A6-0xf)>                      Δ-6                {[«6»]}
            <MI 21382  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x21384 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x21388 0x5.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##5]}
            <MI 2138c  PEA.L   (A0+0x30)>                    Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x30)']}
            <Call 0x21390 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x30)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 21396-21398 StackAdj>                       Δ+22               {}
            <MI 21398  MOVE.B  (A6-0x1),(A0+0x51)>                              {}
            <MI 2139c  MOVE.W  (A6-0x1c),-(A7)>              Δ-2                {[2, '(A6-0x1c)']}
            <Pointer.fp 0x2139e <LVAR -0x009 @>>             Δ-4                {[2, '(A6-0x1c)']|[@@-9]}
            <Pointer.fp 0x213a2 <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[@@-9]|[@@-1]}
            <Call 0x213a4 0x22ea6>                                              {[2, '(A6-0x1c)']|[@@-9]|[@@-1]}
                exp_READ_WCS_AND_PARITY.SEQ(Sw_2, &Sr_6, &Fr)
            <POP 213aa-213ab StackAdj>                       Δ+10       ↓       {}
            <Blob 0x213ab [6] (A6-0x9)>                      Δ-6                {[«6»]}
            <MI 213ba  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x213bc 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x213c0 0x5.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##5]}
            <MI 213c4  PEA.L   (A0+0x38)>                    Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x38)']}
            <Call 0x213c8 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##5]|[4, '^(A0+0x38)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 213ce-213d0 StackAdj>                       Δ+22               {}
            <MI 213d0  MOVE.B  (A6-0x1),(A0+0x52)>                              {}
            <MI 213d4  NEG.B   (A0+0x52)>                                       {}
            <MI 213d8  ADDQ.B  #0x1,(A0+0x52)>                                  {}
            <MI 213dc  MOVE.W  (A6-0x1c),-(A7)>              Δ-2                {[2, '(A6-0x1c)']}
            <MI 213de  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x1c)']|[#0]}
            <Pointer.fp 0x213e0 <LVAR -0x003 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-3]}
            <Pointer.fp 0x213e4 <LVAR -0x001 @ 1(r)>>        Δ-4                {[2, '(A6-0x1c)']|[#0]|[@@-3]|[@@-1]}
            <Call 0x213e6 0x2309c>                                              {[2, '(A6-0x1c)']|[#0]|[@@-3]|[@@-1]}
                exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
            <POP 213ec-213f0 StackAdj>                       Δ+10               {[2, '(A6-0x1c)']}
            <MI 213f0  MOVE.B  (A6-0x3),(A7)>                                   {[-2-]}
            <MI 213f4  MOVE.B  (A6-0x2),(A7+0x1)>                               {[-2-]}
            <MI 213fa  PEA.L   (A7)>                         Δ-4                {[-2-]|[4, '^(A7)']}
            <Const 0x213fc 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]}
            <Const 0x21400 0x1.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]|[##1]}
            <MI 21404  PEA.L   (A0+0x48)>                    Δ-4                {[-2-]|[4, '^(A7)']|[##0]|[##1]|[4, '^(A0+0x48)']}
            <Call 0x21408 0x104b4>                                              {[-2-]|[4, '^(A7)']|[##0]|[##1]|[4, '^(A0+0x48)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2140e-21412 StackAdj>                       Δ+18               {}
            <MI 21412  MOVE.B  (A6-0x1),(A0+0x54)>                              {}
        <POP 21416-2141e Epilogue>                           Σ0         

0x2141e


@ 2141e
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2141e-2148a Body>                                              
        <POP 2141e-21434 Prologue>                           Σ0         ↓
        <POP 21434-21482 Naked>                              Σ0         ↓
            <MI 21434  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 21438  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2143a 0x22ece>                                              {[4, '^(A0)']}
                exp_READ_UIR.SEQ(&Sr_6)
            <POP 21440-21442 StackAdj>                       Δ+4                {}
            <MI 21442  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 21446  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21448 0x22f26>                                              {[4, '^(A0)']}
                exp_READ_MISC.SEQ(&Sr_2_2_1_1_3)
            <POP 2144e-21450 StackAdj>                       Δ+4                {}
            <MI 21450  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 21454  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21456 0x22f62>                                              {[4, '^(A0)']}
                exp_READ_DEC.SEQ(&Sr_2_1_1_1)
            <POP 2145c-2145e StackAdj>                       Δ+2                {[-2-]}
            <MI 2145e  CLR.B   (A7)>                                            {[-2-]}
            <MI 21460  MOVEA.L (A6+0xc),A0>                                     {[-2-]}
            <MI 21464  PEA.L   (A0)>                         Δ-4                {[-2-]|[4, '^(A0)']}
            <Call 0x21466 0x23004>                                              {[-2-]|[4, '^(A0)']}
                exp_READ_UIR.TYP(Sw_1, &Sr_6)
            <POP 2146c-2146e StackAdj>                       Δ+6                {}
            <Call 0x2146e 0x2303c>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <MI 21474  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21478  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x2147a 0x22ee8>                                              {[4, '^(A0)']}
                exp_READ_SDR.SEQ(&Sr_8_8)
            <POP 21480-21482 StackAdj>                       Δ+4                {}
        <POP 21482-2148a Epilogue>                           Σ0         

0x2148a


@ 2148a
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 2148a-21538 Body>                                              
        <POP 2148a-214a0 Prologue>                           Σ0         ↓
        <POP 214a0-214a4 RegCacheLoad>                       Σ0         ↓
        <POP 214a4-21530 Naked>                              Σ0         ↓
            <MI 214a4  MOVEA.L (A6+0x18),A0>                                    {}
            <POP 214a8-214aa StackAdj>                       Δ-6                {[-6-]}
            <MI 214aa  MOVEA.L A7,A1>                                           {[-6-]}
            <BlockMove 6,A0,A1>                                                 {[-6-]}
            <Call 0x214b4 0x22d2e>                                              {[-6-]}
                exp_WRITE_UIR.SEQ(Sw_6)
            <POP 214ba-214bc StackAdj>                       Δ+6                {}
            <MI 214bc  MOVEA.L (A6+0x14),A0>                                    {}
            <POP 214c0-214c2 StackAdj>                       Δ-10               {[-10-]}
            <MI 214c2  MOVEA.L A7,A1>                                           {[-10-]}
            <BlockMove 9,A0,A1>                                                 {[-10-]}
            <Call 0x214cc 0x22d66>                                              {[-10-]}
                exp_WRITE_MISC.SEQ(Sw_2_2_1_1_3)
            <POP 214d2-214d4 StackAdj>                       Δ+10               {}
            <MI 214d4  MOVEA.L (A6+0x10),A0>                                    {}
            <POP 214d8-214da StackAdj>                       Δ-6                {[-6-]}
            <MI 214da  MOVEA.L A7,A1>                                           {[-6-]}
            <BlockMove 5,A0,A1>                                                 {[-6-]}
            <Call 0x214e4 0x22d82>                                              {[-6-]}
                exp_WRITE_DEC.SEQ(Sw_2_1_1_1)
            <POP 214ea-214ec StackAdj>                       Δ+6                {}
            <MI 214ec  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 214f0-214f2 StackAdj>                       Δ-16               {[-16-]}
            <MI 214f2  MOVEA.L A7,A1>                                           {[-16-]}
            <BlockMove 16,A0,A1>                                                {[-16-]}
            <Call 0x214fc 0x22d4a>                                              {[-16-]}
                exp_WRITE_SDR.SEQ(Sw_8_8)
            <POP 21502-21504 StackAdj>                       Δ+16               {}
            <Call 0x21504 0x22f02>                                              {}
                exp_RESTORE_PREDECODES.SEQ()
            <MI 2150a  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 2150e-21510 StackAdj>                       Δ-6                {[-6-]}
            <MI 21510  MOVEA.L A7,A1>                                           {[-6-]}
            <BlockMove 6,A0,A1>                                                 {[-6-]}
            <MI 2151a  CLR.B   -(A7)>                        Δ-2                {[-6-]|[#0]}
            <Call 0x2151c 0x23020>                                              {[-6-]|[#0]}
                exp_LOAD_UIR.TYP(Sw_6, Sw_1)
            <POP 21522-21524 StackAdj>                       Δ+6                {[-2-]}
            <POP 21524-21525 StackAdj>                       Δ+2                {}
            <Const 0x21525 0xffff.2>                         Δ-2                {[#65535]}
            <Call 0x21528 0x22fa8>                                              {[#65535]}
                exp_LOAD_COUNTER.SEQ(Sw_2)
            <POP 2152e-21530 StackAdj>                       Δ+2                {}
        <POP 21530-21538 Epilogue>                           Σ0         

0x21538


@ 21538
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @>
        <LVAR -0x00c 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 21538-215b0 Body>                                              
        <POP 21538-2154e Prologue>                           Σ0         ↓
        <POP 2154e-215a8 Naked>                              Σ0         ↓
            <MI 2154e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <MI 21552  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Pointer.fp 0x21556 <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-16]}
            <Const 0x2155a 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-16]|[##0]}
            <Const 0x2155e 0x7.4>                            Δ-4                {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-16]|[##0]|[##7]}
            <Call 0x21562 0x104ae>                                              {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-16]|[##0]|[##7]}
                FSCALL_104ae
            <POP 21568-2156c StackAdj>                       Δ+16               {[4, '(A6+0x10)']}
            <MI 2156c  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 21570  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Pointer.fp 0x21574 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[@@-8]}
            <Call 0x21578 0x22dbe>                                              {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[@@-8]}
                exp_UNPERMUTE_DECODE.SEQ(Sw_8, &Sr_5)
            <POP 2157e-2157f StackAdj>                       Δ+12       ↓       {}
            <Blob 0x2157f [6] (A6-0x8)>                      Δ-6                {[«6»]}
            <MI 2158e  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x21590 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x21594 0x4.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <MI 21598  MOVEA.L (A6+0x8),A0>                                     {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <MI 2159c  PEA.L   (A0)>                         Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0)']}
            <Call 0x2159e 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 215a4-215a8 StackAdj>                       Δ+22               {}
        <POP 215a8-215b0 Epilogue>                           Σ0         

0x215b0


@ 215b0
        <LVAR  0x00e 2(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x408 @>
        <LVAR -0x40a @>
        <LVAR -0x40c 2(rw)>
        <LVAR -0x40e 2(rw)>
        <LVAR -0x410 @>
    <POP 215b0-2168c Body>                                              
        <POP 215b0-215c6 Prologue>                           Σ0         ↓
        <POP 215c6-215ce RegCacheLoad>                       Σ0         ↓
        <POP 215ce-215e6 Naked>                              Σ0         ↓ →0x215f8
            <MI 215ce  MOVE.W  #0x01,(A6-0x40e)>                                {}
            <MI 215d2  MOVE.W  (A6+0xe),D5>                                     {}
            <MI 215d6  LSR.W   #0x7,D5>                                         {}
            <MI 215d8  ADDQ.W  #0x1,D5>                                         {}
            <MI 215da  ADDI.W  #0x0018,D5>                                      {}
            <MI 215de  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 215e2  CMP.B   #0x01,D0>                                        {}
            <MI 215e4  BNE     0x215f8>                                         {}
        <POP 215e6-215f8 Naked>                              Σ0         ↓
            <MI 215e6  CLR.L   D0>                                              {}
            <MI 215e8  MOVE.W  D5,D0>                                           {}
            <MI 215ea  ADDQ.L  #0x8,D0>                                         {}
            <POP 0x215ec LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 215f6  MOVE.W  D0,D5>                                           {}
        <POP 215f8-21620 Naked>                              Σ0 Δ-4     ↓ →0x21628 ←0x215ce
            <MI 215f8  MOVE.W  (A6+0xe),(A6-0x40c)>                             {}
            <MI 215fc  AND.W   #0x7f,(A6-0x40c)>                                {}
            <MI 215fe  LEA.L   (A6-0x408),A0>                                   {}
            <MI 21602  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21604  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 21606  CLR.L   D0>                                              {}
            <MI 21608  MOVE.W  D5,D0>                                           {}
            <MI 2160a  CLR.L   D1>                                              {}
            <MI 2160c  MOVE.W  (A6-0x40e),D1>                                   {}
            <MI 21610  ADD.L   D0,D1>                                           {}
            <MI 21612  SUBQ.L  #0x1,D1>                                         {}
            <MI 21614  MOVE.L  D1,-(A7)>                     Δ-4                {[4, 'D1']}
            <MI 21616  CLR.L   D0>                                              {[4, 'D1']}
            <MI 21618  MOVE.W  D5,D0>                                           {[4, 'D1']}
            <MI 2161a  MOVE.L  D0,D6>                                           {[4, 'D1']}
            <MI 2161c  CMP.L   (A7),D6>                                         {[4, 'D1']}
            <MI 2161e  BHI     0x21628>                                         {[4, 'D1']}
        <POP 21620-21626 Naked>                              Σ-4        →0x21628
            <MI 21620  MOVE.L  (A7),D0>                                         {[-4-]}
            <MI 21622  CMP.L   D0,D6>                                           {[-4-]}
            <MI 21624  BLT     0x21628>                                         {[-4-]}
        <POP 21626-21628 Naked>                              Σ0         
            <MI 21626  TRAP    #15>                                             {}
        <POP 21628-2162e Naked>                              Σ-4        ↓ →0x2165e ←0x215f8 ←0x21620 ←0x2162e
            <MI 21628  CMP.W   (A7+0x2),D6>                                     {[-4-]}
            <MI 2162c  BHI     0x2165e>                                         {[-4-]}
        <POP 2162e-2165e Naked>                              Σ-4        ↓ →0x21628
            <Blob 0x2162e [4] 0x232ea>                       Δ-4                {[-4-]|[«4»]}
            <POP 0x21634 LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {[-4-]|[«4»]}
            <MI 21638  MOVE.W  D6,-(A7)>                     Δ-2                {[-4-]|[«4»]|[2, 'D6']}
            <MI 2163a  CLR.W   -(A7)>                        Δ-2                {[-4-]|[«4»]|[2, 'D6']|[#0]}
            <Const 0x2163c 0x200.2>                          Δ-2                {[-4-]|[«4»]|[2, 'D6']|[#0]|[#512]}
            <Const 0x21640 0x2.2>                            Δ-2                {[-4-]|[«4»]|[2, 'D6']|[#0]|[#512]|[#2]}
            <MI 21644  MOVE.L  D7,-(A7)>                     Δ-4                {[-4-]|[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'D7']}
            <Pointer.fp 0x21646 <LVAR -0x40a @>>             Δ-4                {[-4-]|[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'D7']|[@@-1034]}
            <Call 0x2164a 0x10384>                                              {[-4-]|[«4»]|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'D7']|[@@-1034]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 21650-21654 StackAdj>                       Δ+20               {[-4-]}
            <MI 21654  ADDI.L  #0x00000400,D7>                                  {[-4-]}
            <MI 2165a  ADDQ.W  #0x1,D6>                                         {[-4-]}
            <MI 2165c  BCC     0x21628>                                         {[-4-]}
        <POP 2165e-21684 Naked>                              Σ-4 Δ+4    ↓ ←0x21628
            <POP 2165e-21660 StackAdj>                       Δ+4                {}
            <MI 21660  MOVE.W  (A6-0x40c),D0>                                   {}
            <POP 0x21662 LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {}
            <MI 21664  CLR.L   D1>                                              {}
            <MI 21666  MOVE.W  D0,D1>                                           {}
            <MI 21668  ASL.L   #0x3,D1>                                         {}
            <MI 2166a  LEA.L   (A6-0x410),A0>                                   {}
            <MI 2166e  MOVE.L  (A0+D1.L+#0xc),-(A7)>         Δ-4                {[4, '(A0+D1.L+#0xc)']}
            <MI 21672  MOVE.L  (A0+D1.L+#0x8),-(A7)>         Δ-4                {[4, '(A0+D1.L+#0xc)']|[4, '(A0+D1.L+#0x8)']}
            <MI 21676  MOVEA.L (A6+0x8),A0>                                     {[4, '(A0+D1.L+#0xc)']|[4, '(A0+D1.L+#0x8)']}
            <MI 2167a  PEA.L   (A0)>                         Δ-4                {[4, '(A0+D1.L+#0xc)']|[4, '(A0+D1.L+#0x8)']|[4, '^(A0)']}
            <Call 0x2167c 0x21538>                                              {[4, '(A0+D1.L+#0xc)']|[4, '(A0+D1.L+#0x8)']|[4, '^(A0)']}
            <POP 21680-21684 StackAdj>                       Δ+12               {}
        <POP 21684-2168c Epilogue>                           Σ0         

0x2168c


@ 2168c
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x003 1(w)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 1(w)>
        <LVAR -0x006 1(w)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00a @ 2(r)>
        <LVAR -0x00b 1(r)>
        <LVAR -0x00c 1(r)>
        <LVAR -0x00d @ 1(r)>
        <LVAR -0x00e 1(r)>
        <LVAR -0x00f 1(r)>
        <LVAR -0x010 1(r)>
        <LVAR -0x011 1(r)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 1(w)>
        <LVAR -0x014 1(w) 2(r)>
        <LVAR -0x024 @>
        <LVAR -0x02a @>
        <LVAR -0x02f @>
        <LVAR -0x038 @>
        <LVAR -0x03e @>
        <LVAR -0x040 @>
        <LVAR -0x042 @ 4(r)>
        <LVAR -0x044 @>
        <LVAR -0x046 @ 4(r)>
        <LVAR -0x048 @>
        <LVAR -0x04a @ 4(r)>
        <LVAR -0x04c @>
        <LVAR -0x04e @ 4(r)>
    <POP 2168c-217f0 Body>                                              
        <POP 2168c-216a2 Prologue>                           Σ0         ↓
        <POP 216a2-216aa RegCacheLoad>                       Σ0         ↓
        <POP 216aa-2175a Naked>                              Σ0         ↓ →0x21768
            <Pointer.fp 0x216aa <LVAR -0x03e @>>             Δ-4                {[@@-62]}
            <Pointer.fp 0x216ae <LVAR -0x038 @>>             Δ-4                {[@@-62]|[@@-56]}
            <Pointer.fp 0x216b2 <LVAR -0x02f @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]}
            <Pointer.fp 0x216b6 <LVAR -0x02a @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]|[@@-42]}
            <Pointer.fp 0x216ba <LVAR -0x024 @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]|[@@-42]|[@@-36]}
            <Call 0x216be 0x2141e>                                              {[@@-62]|[@@-56]|[@@-47]|[@@-42]|[@@-36]}
            <POP 216c2-216c4 StackAdj>                       Δ+18               {[-2-]}
            <MI 216c4  CLR.B   (A7)>                                            {[-2-]}
            <Pointer.fp 0x216c6 <LVAR -0x00d @ 1(r)>>        Δ-4                {[-2-]|[@@-13]}
            <Pointer.fp 0x216ca <LVAR -0x00a @ 2(r)>>        Δ-4                {[-2-]|[@@-13]|[@@-10]}
            <Pointer.fp 0x216ce <LVAR -0x008 @ 1(r)>>        Δ-4                {[-2-]|[@@-13]|[@@-10]|[@@-8]}
            <Call 0x216d2 0x22de2>                                              {[-2-]|[@@-13]|[@@-10]|[@@-8]}
                exp_TEST_READ_MACRO_PC.SEQ(Sw_1, &Sr_3, &Sr_2, &Sr_1)
            <POP 216d8-216dc StackAdj>                       Δ+12               {[-2-]}
            <MI 216dc  CLR.B   (A7)>                                            {[-2-]}
            <Pointer.fp 0x216de <LVAR -0x04e @ 4(r)>>        Δ-4                {[-2-]|[@@-78]}
            <Pointer.fp 0x216e2 <LVAR -0x04c @>>             Δ-4                {[-2-]|[@@-78]|[@@-76]}
            <Pointer.fp 0x216e6 <LVAR -0x04a @ 4(r)>>        Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]}
            <Pointer.fp 0x216ea <LVAR -0x048 @>>             Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]}
            <Pointer.fp 0x216ee <LVAR -0x046 @ 4(r)>>        Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]|[@@-70]}
            <Pointer.fp 0x216f2 <LVAR -0x044 @>>             Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]|[@@-70]|[@@-68]}
            <Pointer.fp 0x216f6 <LVAR -0x042 @ 4(r)>>        Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]|[@@-70]|[@@-68]|[@@-66]}
            <Pointer.fp 0x216fa <LVAR -0x040 @>>             Δ-4                {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]|[@@-70]|[@@-68]|[@@-66]|[@@-64]}
            <Call 0x216fe 0x22e0a>                                              {[-2-]|[@@-78]|[@@-76]|[@@-74]|[@@-72]|[@@-70]|[@@-68]|[@@-66]|[@@-64]}
                exp_TEST_READ_IBUFF.SEQ(Sw_1, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2)
            <POP 21704-21708 StackAdj>                       Δ+34               {}
            <MI 21708  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 2170a  LSR.W   #0x8,D0>                                         {}
            <MI 2170c  MOVE.B  D0,(A6-0x14)>                                    {}
            <MI 21710  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 21712  ANDI.W  #0x00ff,D0>                                      {}
            <MI 21716  MOVE.B  D0,(A6-0x13)>                                    {}
            <MI 2171a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2171c  MOVE.W  (A6-0x14),-(A7)>              Δ-2                {[#0]|[2, '(A6-0x14)']}
            <Pointer.fp 0x21720 <LVAR -0x012 @ 1(r)>>        Δ-4                {[#0]|[2, '(A6-0x14)']|[@@-18]}
            <Call 0x21724 0x22f42>                                              {[#0]|[2, '(A6-0x14)']|[@@-18]}
                exp_READ_DECODE.SEQ(Sw_1, Sw_2, &Sr_2_1_1_1)
            <POP 2172a-2172c StackAdj>                       Δ+8                {}
            <MI 2172c  MOVE.B  (A6-0x12),(A6-0x7)>                              {}
            <MI 21732  MOVE.B  (A6-0x11),(A6-0x6)>                              {}
            <MI 21738  CLR.L   D0>                                              {}
            <MI 2173a  MOVE.B  (A6-0x10),D0>                                    {}
            <MI 2173e  ANDI.W  #0x0003,D0>                                      {}
            <MI 21742  MOVE.B  D0,(A6-0x5)>                                     {}
            <MI 21746  MOVE.B  (A6-0xf),(A6-0x4)>                               {}
            <MI 2174c  MOVE.B  (A6-0xe),(A6-0x3)>                               {}
            <MI 21752  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 21754  CMPI.W  #0x03ff,D0>                                      {}
            <MI 21758  BLS     0x21768>                                         {}
        <POP 2175a-21768 Naked>                              Σ0         ↓
            <MI 2175a  CLR.L   D0>                                              {}
            <MI 2175c  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21760  ANDI.W  #0x00df,D0>                                      {}
            <MI 21764  MOVE.B  D0,(A6-0x4)>                                     {}
        <POP 21768-217e8 Naked>                              Σ0         ↓ ←0x216aa
            <Blob 0x21768 [6] (A6-0x7)>                      Δ-6                {[«6»]}
            <MI 21778  PEA.L   (A7)>                         Δ-4                {[«6»]|[4, '^(A7)']}
            <Const 0x2177a 0x0.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]}
            <Const 0x2177e 0x4.4>                            Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <MI 21782  MOVEA.L (A6+0x8),A0>                                     {[«6»]|[4, '^(A7)']|[##0]|[##4]}
            <MI 21786  PEA.L   (A0)>                         Δ-4                {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0)']}
            <Call 0x21788 0x104b4>                                              {[«6»]|[4, '^(A7)']|[##0]|[##4]|[4, '^(A0)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 2178e-21790 StackAdj>                       Δ+20               {[-2-]}
            <MI 21790  CLR.B   (A7)>                                            {[-2-]}
            <POP 21792-21794 StackAdj>                       Δ-4                {[-6-]}
            <MI 21794  MOVE.B  (A6-0xd),(A7)>                                   {[-6-]}
            <MI 21798  MOVE.B  (A6-0xc),(A7+0x1)>                               {[-6-]}
            <MI 2179e  MOVE.B  (A6-0xb),(A7+0x2)>                               {[-6-]}
            <MI 217a4  MOVE.W  (A6-0xa),-(A7)>               Δ-2                {[-6-]|[2, '(A6-0xa)']}
            <MI 217a8  MOVE.B  (A6-0x8),-(A7)>               Δ-2                {[-6-]|[2, '(A6-0xa)']|[2, '(A6-0x8)']}
            <Call 0x217ac 0x22e5a>                                              {[-6-]|[2, '(A6-0xa)']|[2, '(A6-0x8)']}
                exp_TEST_LOAD_MACRO_PC.SEQ(Sw_1, Sw_3, Sw_2, Sw_1)
            <POP 217b2-217b4 StackAdj>                       Δ+8                {[-2-]}
            <MI 217b4  CLR.B   (A7)>                                            {[-2-]}
            <MI 217b6  MOVE.L  (A6-0x4a),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4a)']}
            <MI 217ba  MOVE.L  (A6-0x4e),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4a)']|[4, '(A6-0x4e)']}
            <MI 217be  MOVE.L  (A6-0x42),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4a)']|[4, '(A6-0x4e)']|[4, '(A6-0x42)']}
            <MI 217c2  MOVE.L  (A6-0x46),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x4a)']|[4, '(A6-0x4e)']|[4, '(A6-0x42)']|[4, '(A6-0x46)']}
            <Call 0x217c6 0x22e82>                                              {[-2-]|[4, '(A6-0x4a)']|[4, '(A6-0x4e)']|[4, '(A6-0x42)']|[4, '(A6-0x46)']}
                exp_TEST_LOAD_IBUFF.SEQ(Sw_1, Sw_8, Sw_8)
            <POP 217cc-217ce StackAdj>                       Δ+18               {}
            <Pointer.fp 0x217ce <LVAR -0x03e @>>             Δ-4                {[@@-62]}
            <Pointer.fp 0x217d2 <LVAR -0x038 @>>             Δ-4                {[@@-62]|[@@-56]}
            <Pointer.fp 0x217d6 <LVAR -0x02f @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]}
            <Pointer.fp 0x217da <LVAR -0x02a @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]|[@@-42]}
            <Pointer.fp 0x217de <LVAR -0x024 @>>             Δ-4                {[@@-62]|[@@-56]|[@@-47]|[@@-42]|[@@-36]}
            <Call 0x217e2 0x2148a>                                              {[@@-62]|[@@-56]|[@@-47]|[@@-42]|[@@-36]}
            <POP 217e6-217e8 StackAdj>                       Δ+20               {}
        <POP 217e8-217f0 Epilogue>                           Σ0         

0x217f0


@ 217f0
        <LVAR  0x010 1(w)>
        <LVAR  0x00f 1(w)>
        <LVAR  0x00e 1(w)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
    <POP 217f0-2185a Body>                                              
        <POP 217f0-21806 Prologue>                           Σ0         ↓
        <POP 21806-21808 RegCacheLoad>                       Σ0         ↓
        <POP 21808-2180e Naked>                              Σ0         ↓ →0x21828
            <MI 21808  TST.B   (A6+0xc)>                                        {}
            <MI 2180c  BNE     0x21828>                                         {}
        <POP 2180e-21828 Naked>                              Σ0         →0x21840
            <MI 2180e  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x21812 LimitCheck 0x0 ≤ D0 ≤ 0x27>                            {}
            <MI 21818  MOVE.L  D0,D4>                                           {}
            <MI 2181a  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x2181c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21822  LEA.L   0x20840,A0>                                      {}
            <MI 21826  BRA     0x21840>                                         {}
        <POP 21828-21840 Naked>                              Σ0         ↓ ←0x21808
            <MI 21828  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x2182c LimitCheck 0x0 ≤ D0 ≤ 0x27>                            {}
            <MI 21832  MOVE.L  D0,D4>                                           {}
            <MI 21834  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21836 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 2183c  LEA.L   0x207c8,A0>                                      {}
        <POP 21840-21852 Naked>                              Σ0         ↓ ←0x2180e
            <MI 21840  MOVE.B  (A0+D4.L),(A6+0xe)>                              {}
            <MI 21846  MOVE.B  (A0+D4.L+#0x1),(A6+0xf)>                         {}
            <MI 2184c  MOVE.B  (A0+D4.L+#0x2),(A6+0x10)>                        {}
        <POP 21852-2185a Epilogue>                           Σ0         

0x2185a


@ 2185a
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 2(r)>
    <POP 2185a-2188a Body>                                              
        <POP 2185a-21870 Prologue>                           Σ0         ↓
        <POP 21870-21882 Naked>                              Σ0         ↓
            <MI 21870  MOVE.W  (A6+0x8),D7>                                     {}
            <MI 21874  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 21876  CLR.L   D0>                                              {[2, 'D7']}
            <MI 21878  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <POP 0x2187a LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 2187e  MOVE.B  D0,(A6+0xa)>                                     {}
        <POP 21882-2188a Epilogue>                           Σ0         

0x2188a


@ 2188a
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 2188a-2194c Body>                                   Δ+16       
        <POP 2188a-218a0 Prologue>                           Σ0         ↓
        <POP 218a0-218ba Naked>                              Σ0         →0x218c6 →0x218da →0x218ee →0x21902 →0x21916
            <MI 218a0  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 218a4  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x218a6 LimitCheck 0x0 ≤ D0 ≤ 0x5>                             {}
            <MI 218b0  ADD.W   D0,D0>                                           {}
            <MI 218b2  SWITCH  D0.W>                                            {}
        <POP 218c6-218da Naked>                              Σ0 Δ-4     →0x21928 ←0x218a0
            <POP 218c6-218c8 StackAdj>                       Δ-4                {[-4-]}
            <POP 218c8-218c9 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x218c9 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 218cc  MOVE.B  0x205ed,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 218d2  MOVE.B  0x205ee,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 218d8  BRA     0x21928>                                         {[-2-]|[«2""»]}
        <POP 218da-218ee Naked>                              Σ0 Δ-4     →0x21928 ←0x218a0
            <POP 218da-218dc StackAdj>                       Δ-4                {[-4-]}
            <POP 218dc-218dd StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x218dd [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 218e0  MOVE.B  0x205f1,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 218e6  MOVE.B  0x205f2,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 218ec  BRA     0x21928>                                         {[-2-]|[«2""»]}
        <POP 218ee-21902 Naked>                              Σ0 Δ-4     →0x21928 ←0x218a0
            <POP 218ee-218f0 StackAdj>                       Δ-4                {[-4-]}
            <POP 218f0-218f1 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x218f1 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 218f4  MOVE.B  0x205f5,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 218fa  MOVE.B  0x205f6,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 21900  BRA     0x21928>                                         {[-2-]|[«2""»]}
        <POP 21902-21916 Naked>                              Σ0 Δ-4     →0x21928 ←0x218a0
            <POP 21902-21904 StackAdj>                       Δ-4                {[-4-]}
            <POP 21904-21905 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21905 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 21908  MOVE.B  0x205f9,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 2190e  MOVE.B  0x205fa,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 21914  BRA     0x21928>                                         {[-2-]|[«2""»]}
        <POP 21916-21928 Naked>                              Σ0 Δ-4     ↓ ←0x218a0
            <POP 21916-21918 StackAdj>                       Δ-4                {[-4-]}
            <POP 21918-21919 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21919 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2191c  MOVE.B  0x205fd,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21922  MOVE.B  0x205fe,(A7+0x2)>                                {[-2-]|[«2""»]}
        <POP 21928-21944 Naked>                              Σ-4 Δ+4    ↓ ←0x218c6 ←0x218da ←0x218ee ←0x21902
            <POP 21928-2192a StackAdj>                       Δ-4                {[-8-]}
            <Lit 0x2192a>                                                       {[-4-]|[$$…]}
                <Pointer.sp 0x2192a 4>                       Δ-4        
                <Const 0x2192e 0x1.2>                        Δ-2        
                <Const 0x21932 0x3.2>                        Δ-2        
                <Call 0x21936 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2193c-2193e StackAdj>                   Δ+8        
            <MI 2193e  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[-4-]}
            <POP 21942-21944 StackAdj>                       Δ+4                {}
        <POP 21944-2194c Epilogue>                           Σ0         

0x2194c


@ 2194c
        <LVAR  0x008 4(r)>
    <POP 2194c-21990 Body>                                              
        <POP 2194c-21962 Prologue>                           Σ0         ↓
        <POP 21962-21968 RegCacheLoad>                       Σ0         ↓
        <POP 21968-21988 Naked>                              Σ0         ↓
            <POP 21968-2196a StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x2196a [4] 0x232f2>                       Δ-4                {[-4-]|[«4»]}
            <MI 2196c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[«4»]|[4, '(A6+0x8)']}
            <Call 0x21970 0x102d0>                                              {[-4-]|[«4»]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 21976-21978 StackAdj>                       Δ+8                {[-4-]}
            <MI 21978  MOVE.L  (A7)+,0x232f2>                Δ+4                {}
            <Blob 0x2197a [4] 0x232f2>                       Δ-4                {[«4»]}
            <Const 0x2197c 0x5c.2>                           Δ-2                {[«4»]|[#92]}
            <Call 0x21980 0x102c0>                                              {[«4»]|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 21986-21988 StackAdj>                       Δ+6                {}
        <POP 21988-21990 Epilogue>                           Σ0         

0x21990


@ 21990
    <POP 21990-219de Body>                                              
        <POP 21990-219a6 Prologue>                           Σ0         ↓
        <POP 219a6-219a8 RegCacheLoad>                       Σ0         ↓
        <POP 219a8-219aa Naked>                              Σ0         ↓
            <MI 219a8  MOVEQ.L #0x00,D7>                                        {}
        <POP 219aa-219b6 Naked>                              Σ0         ↓ →0x219ba ←0x219ba
            <POP 0x219aa LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 219b0  TST.B   (A6+D7.L+#0x8)>                                  {}
            <MI 219b4  BNE     0x219ba>                                         {}
        <POP 219b6-219b8 Naked>                              Σ0         →0x219d6
            <MI 219b6  BRA     0x219d6>                                         {}
        <POP 219ba-219d6 Naked>                              Σ0         ↓ →0x219aa ←0x219aa
            <POP 219ba-219bc StackAdj>                       Δ-4                {[-4-]}
            <MI 219bc  CLR.L   D0>                                              {[-4-]}
            <MI 219be  MOVE.B  (A6+D7.L+#0x8),D0>                               {[-4-]}
            <MI 219c2  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <Call 0x219c4 0x2188a>                                              {[-4-]|[4, 'D0']}
            <POP 219c8-219ca StackAdj>                       Δ+4                {[-4-]}
            <Call 0x219ca 0x2194c>                                              {[-4-]}
            <POP 219ce-219d0 StackAdj>                       Δ+4                {}
            <MI 219d0  ADDQ.L  #0x1,D7>                                         {}
            <MI 219d2  CMP.L   #0x07,D7>                                        {}
            <MI 219d4  BLE     0x219aa>                                         {}
        <POP 219d6-219de Epilogue>                           Σ0         ←0x219b6

0x219de


@ 219de
        <LVAR  0x010 1(rw)>
        <LVAR  0x00e 2(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 219de-21a28 Body>                                              
        <POP 219de-219f4 Prologue>                           Σ0         ↓
        <POP 219f4-21a1c Naked>                              Σ0         ↓ →0x21a20
            <MI 219f4  ANDI.W  #0xdff0,(A6+0xe)>                                {}
            <MI 219fa  CLR.B   (A6+0x10)>                                       {}
            <POP 219fe-21a00 StackAdj>                       Δ-4                {[-4-]}
            <MI 21a00  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 21a04  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x21a08 0x20d6e>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 21a0c-21a0e StackAdj>                       Δ+8                {[-4-]}
            <MI 21a0e  MOVE.L  (A7)+,D4>                     Δ+4                {}
            <MI 21a10  MOVEQ.L #0x02,D3>                                        {}
            <Call 0x21a12 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21a18  TST.L   D3>                                              {}
            <MI 21a1a  BNE     0x21a20>                                         {}
        <POP 21a1c-21a20 Naked>                              Σ0         ↓
            <MI 21a1c  ADDQ.B  #0x1,(A6+0x10)>                                  {}
        <POP 21a20-21a28 Epilogue>                           Σ0         ←0x219f4

0x21a28


@ 21a28
        <LVAR  0x070 1(r)>
        <LVAR  0x06f 1(r)>
        <LVAR  0x06e 1(r)>
        <LVAR  0x06d 1(r)>
        <LVAR  0x06c 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21a28-21ae6 Body>                                              
        <POP 21a28-21a3e Prologue>                           Σ0         ↓
        <POP 21a3e-21a40 RegCacheLoad>                       Σ0         ↓
        <POP 21a40-21a4e Naked>                              Σ0 Δ-4     ↓
            <MI 21a40  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21a44  CLR.L   (A0)>                                            {}
            <MI 21a46  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <MI 21a4a  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 21a4c  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 21a4e-21a54 Naked>                              Σ-4        ↓ →0x21adc ←0x21ad6
            <MI 21a4e  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 21a50  BGT     0x21adc>                                         {[-4-]}
        <POP 21a54-21a90 Naked>                              Σ-4        →0x21aa2 →0x21a9c →0x21ab4 →0x21aae →0x21aa8
            <POP 21a54-21a56 StackAdj>                       Δ-2                {[-6-]}
            <POP 0x21a56 LimitCheck 0x0 ≤ D6 ≤ 0x7>                             {[-6-]}
            <MI 21a60  CLR.L   D0>                                              {[-6-]}
            <MI 21a62  MOVE.B  (A6+D6.L+#0x10),D0>                              {[-6-]}
            <MI 21a66  MOVE.W  D0,-(A7)>                     Δ-2                {[-6-]|[2, 'D0']}
            <Call 0x21a68 0x2185a>                                              {[-6-]|[2, 'D0']}
            <POP 21a6c-21a6e StackAdj>                       Δ+2                {[-6-]}
            <MI 21a6e  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 21a70  EXTB.W  D0>                                              {[-4-]}
            <POP 0x21a72 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 21a74  MOVE.B  D0,D5>                                           {[-4-]}
            <MI 21a76  MOVE.B  D5,D0>                                           {[-4-]}
            <MI 21a78  EXTB.W  D0>                                              {[-4-]}
            <MI 21a7a  MOVE.W  D0,D1>                                           {[-4-]}
            <MI 21a7c  SUBQ.W  #0x2,D1>                                         {[-4-]}
            <POP 0x21a7e LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {[-4-]}
            <MI 21a86  ADD.W   D1,D1>                                           {[-4-]}
            <MI 21a88  SWITCH  D1.W>                                            {[-4-]}
        <POP 21a9c-21aa2 Naked>                              Σ-4        →0x21ab8 ←0x21a54
            <MI 21a9c  MOVE.B  (A6+0x6f),D7>                                    {[-4-]}
            <MI 21aa0  BRA     0x21ab8>                                         {[-4-]}
        <POP 21aa2-21aa8 Naked>                              Σ-4        →0x21ab8 ←0x21a54
            <MI 21aa2  MOVE.B  (A6+0x6e),D7>                                    {[-4-]}
            <MI 21aa6  BRA     0x21ab8>                                         {[-4-]}
        <POP 21aa8-21aae Naked>                              Σ-4        →0x21ab8 ←0x21a54
            <MI 21aa8  MOVE.B  (A6+0x6c),D7>                                    {[-4-]}
            <MI 21aac  BRA     0x21ab8>                                         {[-4-]}
        <POP 21aae-21ab4 Naked>                              Σ-4        →0x21ab8 ←0x21a54
            <MI 21aae  MOVE.B  (A6+0x6d),D7>                                    {[-4-]}
            <MI 21ab2  BRA     0x21ab8>                                         {[-4-]}
        <POP 21ab4-21ab8 Naked>                              Σ-4        ↓ ←0x21a54
            <MI 21ab4  MOVE.B  (A6+0x70),D7>                                    {[-4-]}
        <POP 21ab8-21ad0 Naked>                              Σ-4        ↓ →0x21ad6 ←0x21a9c ←0x21aa2 ←0x21aa8 ←0x21aae
            <MI 21ab8  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <POP 0x21abc LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 21abe  ASL.W   #0x1,D0>                                         {[-4-]}
            <MI 21ac0  MOVE.B  D7,D1>                                           {[-4-]}
            <MI 21ac2  EXTB.W  D1>                                              {[-4-]}
            <POP 0x21ac4 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-4-]}
            <MI 21ac8  MOVE.B  D1,(A0+D0.W)>                                    {[-4-]}
            <MI 21acc  TST.W   D1>                                              {[-4-]}
            <MI 21ace  BEQ     0x21ad6>                                         {[-4-]}
        <POP 21ad0-21ad6 Naked>                              Σ-4        ↓
            <MI 21ad0  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 21ad4  ADDQ.L  #0x1,(A0)>                                       {[-4-]}
        <POP 21ad6-21adc Naked>                              Σ-4        ↓ →0x21a4e ←0x21ab8
            <MI 21ad6  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 21ad8  BVC     0x21a4e>                                         {[-4-]}
        <POP 21adc-21ade Naked>                              Σ-4 Δ+4    ↓ ←0x21a4e
            <POP 21adc-21ade StackAdj>                       Δ+4                {}
        <POP 21ade-21ae6 Epilogue>                           Σ0         

0x21ae6


@ 21ae6
        <LVAR  0x064 4(w)>
        <LVAR  0x060 4(w)>
        <LVAR  0x056 4(r)>
        <LVAR  0x052 4(r)>
        <LVAR  0x04e 4(r)>
        <LVAR  0x04a 4(r)>
        <LVAR  0x046 4(r)>
        <LVAR  0x042 4(r)>
        <LVAR  0x03e 4(r)>
        <LVAR  0x03a 4(r)>
        <LVAR  0x036 4(r)>
        <LVAR  0x032 4(r)>
        <LVAR  0x02e 4(r)>
        <LVAR  0x02a 4(r)>
        <LVAR  0x026 4(r)>
        <LVAR  0x022 4(r)>
        <LVAR  0x01e 4(r)>
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21ae6-21b9e Body>                                   Δ+96       
        <POP 21ae6-21afc Prologue>                           Σ0         ↓
        <POP 21afc-21b16 Naked>                              Σ0         →0x21b5e →0x21b22 →0x21b72 →0x21b36 →0x21b4a
            <MI 21afc  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21b00  EXTB.W  D0>                                              {}
            <MI 21b02  SUBQ.W  #0x2,D0>                                         {}
            <POP 0x21b04 LimitCheck 0x0 ≤ D0 ≤ 0x5>                             {}
            <MI 21b0c  ADD.W   D0,D0>                                           {}
            <MI 21b0e  SWITCH  D0.W>                                            {}
        <POP 21b22-21b36 Naked>                              Σ0 Δ-24    →0x21b84 ←0x21afc
            <POP 21b22-21b24 StackAdj>                       Δ-8                {[-8-]}
            <MI 21b24  MOVE.L  (A6+0x26),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x26)']}
            <MI 21b28  MOVE.L  (A6+0x22),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x26)']|[4, '(A6+0x22)']}
            <MI 21b2c  MOVE.L  (A6+0x4e),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x4e)']}
            <MI 21b30  MOVE.L  (A6+0x4a),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x4e)']|[4, '(A6+0x4a)']}
            <MI 21b34  BRA     0x21b84>                                         {[-8-]|[4, '(A6+0x26)']|[4, '(A6+0x22)']|[4, '(A6+0x4e)']|[4, '(A6+0x4a)']}
        <POP 21b36-21b4a Naked>                              Σ0 Δ-24    →0x21b84 ←0x21afc
            <POP 21b36-21b38 StackAdj>                       Δ-8                {[-8-]}
            <MI 21b38  MOVE.L  (A6+0x16),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x16)']}
            <MI 21b3c  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x16)']|[4, '(A6+0x12)']}
            <MI 21b40  MOVE.L  (A6+0x3e),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[4, '(A6+0x3e)']}
            <MI 21b44  MOVE.L  (A6+0x3a),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[4, '(A6+0x3e)']|[4, '(A6+0x3a)']}
            <MI 21b48  BRA     0x21b84>                                         {[-8-]|[4, '(A6+0x16)']|[4, '(A6+0x12)']|[4, '(A6+0x3e)']|[4, '(A6+0x3a)']}
        <POP 21b4a-21b5e Naked>                              Σ0 Δ-24    →0x21b84 ←0x21afc
            <POP 21b4a-21b4c StackAdj>                       Δ-8                {[-8-]}
            <MI 21b4c  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xe)']}
            <MI 21b50  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']}
            <MI 21b54  MOVE.L  (A6+0x36),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']|[4, '(A6+0x36)']}
            <MI 21b58  MOVE.L  (A6+0x32),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']|[4, '(A6+0x36)']|[4, '(A6+0x32)']}
            <MI 21b5c  BRA     0x21b84>                                         {[-8-]|[4, '(A6+0xe)']|[4, '(A6+0xa)']|[4, '(A6+0x36)']|[4, '(A6+0x32)']}
        <POP 21b5e-21b72 Naked>                              Σ0 Δ-24    →0x21b84 ←0x21afc
            <POP 21b5e-21b60 StackAdj>                       Δ-8                {[-8-]}
            <MI 21b60  MOVE.L  (A6+0x1e),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x1e)']}
            <MI 21b64  MOVE.L  (A6+0x1a),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']}
            <MI 21b68  MOVE.L  (A6+0x46),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[4, '(A6+0x46)']}
            <MI 21b6c  MOVE.L  (A6+0x42),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[4, '(A6+0x46)']|[4, '(A6+0x42)']}
            <MI 21b70  BRA     0x21b84>                                         {[-8-]|[4, '(A6+0x1e)']|[4, '(A6+0x1a)']|[4, '(A6+0x46)']|[4, '(A6+0x42)']}
        <POP 21b72-21b84 Naked>                              Σ0 Δ-24    ↓ ←0x21afc
            <POP 21b72-21b74 StackAdj>                       Δ-8                {[-8-]}
            <MI 21b74  MOVE.L  (A6+0x2e),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x2e)']}
            <MI 21b78  MOVE.L  (A6+0x2a),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x2e)']|[4, '(A6+0x2a)']}
            <MI 21b7c  MOVE.L  (A6+0x56),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x2e)']|[4, '(A6+0x2a)']|[4, '(A6+0x56)']}
            <MI 21b80  MOVE.L  (A6+0x52),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x2e)']|[4, '(A6+0x2a)']|[4, '(A6+0x56)']|[4, '(A6+0x52)']}
        <POP 21b84-21b96 Naked>                              Σ-24 Δ+24  ↓ ←0x21b22 ←0x21b36 ←0x21b4a ←0x21b5e
            <Call 0x21b84 0x10340>                                              {[-24-]}
                BitXor(a, b : Quad) : Quad
            <POP 21b8a-21b8e StackAdj>                       Δ+16               {[-8-]}
            <MI 21b8e  MOVE.L  (A7)+,(A6+0x60)>              Δ+4                {[-4-]}
            <MI 21b92  MOVE.L  (A7)+,(A6+0x64)>              Δ+4                {}
        <POP 21b96-21b9e Epilogue>                           Σ0         

0x21b9e


@ 21b9e
        <LVAR  0x01c 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
    <POP 21b9e-21c82 Body>                                              
        <POP 21b9e-21bb4 Prologue>                           Σ0         ↓
        <POP 21bb4-21bbe RegCacheLoad>                       Σ0         ↓
        <POP 21bbe-21bd2 Naked>                              Σ0 Δ-4     ↓
            <MI 21bbe  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21bc2  CLR.L   (A0)>                                            {}
            <MI 21bc4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 21bc8  CLR.L   (A0)>                                            {}
            <MI 21bca  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[4, '(A6+0x1c)']}
            <MI 21bce  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 21bd0  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 21bd2-21bd8 Naked>                              Σ-4        ↓ →0x21c78 ←0x21c72
            <MI 21bd2  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 21bd4  BGT     0x21c78>                                         {[-4-]}
        <POP 21bd8-21c54 Naked>                              Σ-4        ↓ →0x21c5c
            <POP 21bd8-21bda StackAdj>                       Δ-2                {[-6-]}
            <POP 0x21bda LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-6-]}
            <MI 21be4  CLR.L   D0>                                              {[-6-]}
            <MI 21be6  MOVE.B  (A6+D7.L+#0x14),D0>                              {[-6-]}
            <MI 21bea  MOVE.W  D0,-(A7)>                     Δ-2                {[-6-]|[2, 'D0']}
            <Call 0x21bec 0x2185a>                                              {[-6-]|[2, 'D0']}
            <POP 21bf0-21bf2 StackAdj>                       Δ+2                {[-6-]}
            <MI 21bf2  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 21bf4  EXTB.W  D0>                                              {[-4-]}
            <POP 0x21bf6 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 21bf8  MOVE.B  D0,D6>                                           {[-4-]}
            <POP 21bfa-21bfb StackAdj>                       Δ-8        ↓       {[-12-]}
            <Blob 0x21bfb [86] (A6+0x20)>                    Δ-86               {[-12-]|[«86»]}
            <MI 21c0c  MOVE.B  D6,D0>                                           {[-12-]|[«86»]}
            <MI 21c0e  EXTB.W  D0>                                              {[-12-]|[«86»]}
            <POP 0x21c10 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-12-]|[«86»]}
            <MI 21c12  MOVE.B  D0,-(A7)>                     Δ-2                {[-12-]|[«86»]|[2, 'D0']}
            <Call 0x21c14 0x21ae6>                                              {[-12-]|[«86»]|[2, 'D0']}
            <POP 21c18-21c1c StackAdj>                       Δ+88               {[-12-]}
            <MI 21c1c  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-8-]}
            <MI 21c1e  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-4-]}
            <MI 21c20  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 21c24  MOVE.B  D6,D0>                                           {[-4-]}
            <MI 21c26  EXTB.W  D0>                                              {[-4-]}
            <POP 0x21c28 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 21c2a  ASL.W   #0x1,D0>                                         {[-4-]}
            <POP 21c2c-21c2e StackAdj>                       Δ-2                {[-6-]}
            <MI 21c2e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-6-]|[4, '(A6-0x4)']}
            <MI 21c30  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-6-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Blob 0x21c32 [4] @>                             Δ-4                {[-6-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]}
            <Blob 0x21c36 [4] @>                             Δ-4                {[-6-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
            <Call 0x21c3a 0x1032c>                                              {[-6-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21c40-21c44 StackAdj>                       Δ+16               {[-6-]}
            <MI 21c44  MOVE.B  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 21c46  EXTB.W  D1>                                              {[-4-]}
            <POP 0x21c48 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-4-]}
            <MI 21c4c  MOVE.B  D1,(A0+D0.W+#0x1)>                               {[-4-]}
            <MI 21c50  TST.B   D1>                                              {[-4-]}
            <MI 21c52  BEQ     0x21c5c>                                         {[-4-]}
        <POP 21c54-21c5c Naked>                              Σ-4        →0x21c72
            <MI 21c54  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 21c58  ADDQ.L  #0x1,(A0)>                                       {[-4-]}
            <MI 21c5a  BRA     0x21c72>                                         {[-4-]}
        <POP 21c5c-21c72 Naked>                              Σ-4        ↓ ←0x21bd8
            <MI 21c5c  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <POP 21c60-21c62 StackAdj>                       Δ-4                {[-8-]}
            <MI 21c62  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x4)']}
            <MI 21c64  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Call 0x21c66 0x20d6e>                                              {[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <POP 21c6a-21c6c StackAdj>                       Δ+8                {[-8-]}
            <MI 21c6c  MOVE.L  (A0),D0>                                         {[-8-]}
            <MI 21c6e  ADD.L   (A7)+,D0>                     Δ+4                {[-4-]}
            <MI 21c70  MOVE.L  D0,(A0)>                                         {[-4-]}
        <POP 21c72-21c78 Naked>                              Σ-4        ↓ →0x21bd2 ←0x21c54
            <MI 21c72  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 21c74  BVC     0x21bd2>                                         {[-4-]}
        <POP 21c78-21c7a Naked>                              Σ-4 Δ+4    ↓ ←0x21bd2
            <POP 21c78-21c7a StackAdj>                       Δ+4                {}
        <POP 21c7a-21c82 Epilogue>                           Σ0         

0x21c82


@ 21c82
        <LVAR  0x008 1(rw)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x004 @>
    <POP 21c82-21cbc Body>                                              
        <POP 21c82-21c98 Prologue>                           Σ0         ↓
        <POP 21c98-21c9c RegCacheLoad>                       Σ0         ↓
        <POP 21c9c-21cb4 Naked>                              Σ0         ↓
            <Pointer.fp 0x21c9c <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Pointer.fp 0x21ca0 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-4]|[@@-2]}
            <Call 0x21ca4 0x22f7c>                                              {[@@-4]|[@@-2]}
                exp_READ_CUR_UADR_AND_PARITY.SEQ(&Sr_2, &Fr)
            <POP 21caa-21cac StackAdj>                       Δ+8                {}
            <MI 21cac  MOVE.B  (A6-0x2),(A6+0x8)>                               {}
            <MI 21cb0  NEG.B   (A6+0x8)>                                        {}
            <MI 21cb2  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 21cb4-21cbc Epilogue>                           Σ0         

0x21cbc


@ 21cbc
        <LVAR  0x00a 1(r)>
        <LVAR  0x009 1(r)>
        <LVAR  0x008 1(r)>
    <POP 21cbc-21d30 Body>                                              
        <POP 21cbc-21cd2 Prologue>                           Σ0         ↓
        <POP 21cd2-21cda RegCacheLoad>                       Σ0         ↓
        <POP 21cda-21d28 Naked>                              Σ0         ↓
            <POP 21cda-21cdc StackAdj>                       Δ-4                {[-4-]}
            <MI 21cdc  MOVE.B  (A6+0x8),(A7)>                                   {[-4-]}
            <MI 21ce0  MOVE.B  (A6+0x9),(A7+0x1)>                               {[-4-]}
            <MI 21ce6  MOVE.B  (A6+0xa),(A7+0x2)>                               {[-4-]}
            <Blob 0x21cec [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 21cf0-21cf2 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]}
            <Blob 0x21cf2 [4] 0x232f2>                       Δ-4                {[-4-]|[«2""»]|[-4-]|[«4»]}
            <POP 21cf4-21cf6 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]|[«4»]|[-4-]}
            <Lit 0x21cf6>                                                       {[-4-]|[«2""»]|[-4-]|[«4»]|[$$…]}
                <Pointer.sp 0x21cf6 14>                      Δ-4        
                <Const 0x21cfa 0x1.2>                        Δ-2        
                <Const 0x21cfc 0x3.2>                        Δ-2        
                <Call 0x21d00 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21d06-21d08 StackAdj>                   Δ+8        
            <POP 21d06-21d08 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]|[«4»]|[$$…]|[-4-]}
            <Lit 0x21d08 2>                                                     {[-4-]|[«2""»]|[-4-]|[«4»]|[$$…]|[$$\ ]}
            <Call 0x21d1a 0x102d4>                                              {[-4-]|[«2""»]|[-4-]|[«4»]|[$$…]|[$$\ ]}
                StringCat3(a, b, c : String) : String
            <POP 21d20-21d24 StackAdj>                       Δ+12               {[-4-]|[«2""»]|[-4-]}
            <MI 21d24  MOVE.L  (A7)+,0x232f2>                Δ+4                {[-4-]|[«2""»]}
            <POP 21d26-21d28 StackAdj>                       Δ+6                {}
        <POP 21d28-21d30 Epilogue>                           Σ0         

0x21d30


@ 21d30
        <LVAR  0x010 4(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x058 @>
        <LVAR -0x05c 4(rw)>
        <LVAR -0x060 4(rw)>
    <POP 21d30-21f7a Body>                                              
        <POP 21d30-21d46 Prologue>                           Σ0         ↓
        <POP 21d46-21d5c RegCacheLoad>                       Σ0         ↓
        <POP 21d5c-21dc2 Naked>                              Σ0         →0x21f24 →0x21dce →0x21ecc →0x21e7a →0x21e20
            <MI 21d5c  MOVE.L  (A6+0x10),D0>                                    {}
            <POP 0x21d60 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21d66  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x21d68 <LVAR -0x058 @>>             Δ-4                {[2, 'D0']|[@@-88]}
            <Call 0x21d6c 0x211ea>                                              {[2, 'D0']|[@@-88]}
            <POP 21d70-21d72 StackAdj>                       Δ+4                {[2, 'D0']}
            <MI 21d72  CLR.L   D0>                                              {[2, 'D0']}
            <MI 21d74  MOVE.B  (A6+0x8),D0>                                     {[2, 'D0']}
            <MI 21d78  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <Call 0x21d7a 0x2185a>                                              {[2, 'D0']|[2, 'D0']}
            <POP 21d7e-21d80 StackAdj>                       Δ+2                {[2, 'D0']}
            <MI 21d80  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21d82  EXTB.W  D0>                                              {}
            <POP 0x21d84 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 21d88  MOVE.B  D0,D6>                                           {}
            <POP 21d8a-21d8b StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x21d8b [86] (A6-0x58)>                    Δ-86               {[-8-]|[«86»]}
            <MI 21d9c  MOVE.B  D6,-(A7)>                     Δ-2                {[-8-]|[«86»]|[2, 'D6']}
            <Call 0x21d9e 0x21ae6>                                              {[-8-]|[«86»]|[2, 'D6']}
            <POP 21da2-21da6 StackAdj>                       Δ+88               {[-8-]}
            <MI 21da6  MOVE.L  (A7)+,(A6-0x60)>              Δ+4                {[-4-]}
            <MI 21da8  MOVE.L  (A7)+,(A6-0x5c)>              Δ+4                {}
            <MI 21daa  MOVE.B  D6,D0>                                           {}
            <MI 21dac  EXTB.W  D0>                                              {}
            <MI 21dae  SUBQ.W  #0x2,D0>                                         {}
            <POP 0x21db0 LimitCheck 0x0 ≤ D0 ≤ 0x5>                             {}
            <MI 21db8  ADD.W   D0,D0>                                           {}
            <MI 21dba  SWITCH  D0.W>                                            {}
        <POP 21dce-21dd0 Naked>                              Σ0         ↓ ←0x21d5c
            <MI 21dce  MOVEQ.L #0x00,D7>                                        {}
        <POP 21dd0-21dea Naked>                              Σ0         ↓ →0x21e16 ←0x21e16
            <POP 21dd0-21dd2 StackAdj>                       Δ-2                {[-2-]}
            <MI 21dd2  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']}
            <MI 21dd4  MOVE.L  (A6-0x60),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21dd6  MOVEQ.L #0x10,D0>                                        {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21dd8  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <POP 0x21dda LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21de0  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <Call 0x21de2 0x20cc2>                                              {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <POP 21de4-21de6 StackAdj>                       Δ+10               {[-2-]}
            <MI 21de6  TST.B   (A7)+>                        Δ+2                {}
            <MI 21de8  BEQ     0x21e16>                                         {}
        <POP 21dea-21e16 Naked>                              Σ0         ↓
            <POP 0x21dea LimitCheck 0x0 ≤ D7 ≤ 0x2f>                            {}
            <MI 21df0  MOVE.L  D7,D4>                                           {}
            <MI 21df2  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21df4 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21dfa  LEA.L   0x208e8,A0>                                      {}
            <POP 21dfe-21e00 StackAdj>                       Δ-4                {[-4-]}
            <MI 21e00  MOVE.B  (A0+D4.L),(A7)>                                  {[-4-]}
            <MI 21e04  MOVE.B  (A0+D4.L+#0x1),(A7+0x1)>                         {[-4-]}
            <MI 21e0a  MOVE.B  (A0+D4.L+#0x2),(A7+0x2)>                         {[-4-]}
            <Call 0x21e10 0x21cbc>                                              {[-4-]}
            <POP 21e14-21e16 StackAdj>                       Δ+4                {}
        <POP 21e16-21e1c Naked>                              Σ0         ↓ →0x21dd0 ←0x21dd0
            <MI 21e16  ADDQ.L  #0x1,D7>                                         {}
            <MI 21e18  CMP.L   #0x2f,D7>                                        {}
            <MI 21e1a  BLE     0x21dd0>                                         {}
        <POP 21e1c-21e20 Naked>                              Σ0         →0x21f72
            <MI 21e1c  BRA     0x21f72>                                         {}
        <POP 21e20-21e22 Naked>                              Σ0         ↓ ←0x21d5c
            <MI 21e20  MOVEQ.L #0x00,D7>                                        {}
        <POP 21e22-21e3c Naked>                              Σ0         ↓ →0x21e6c ←0x21e6c
            <POP 21e22-21e24 StackAdj>                       Δ-2                {[-2-]}
            <MI 21e24  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']}
            <MI 21e26  MOVE.L  (A6-0x60),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e28  MOVEQ.L #0x18,D0>                                        {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e2a  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <POP 0x21e2c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e32  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <Call 0x21e34 0x20cc2>                                              {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <POP 21e36-21e38 StackAdj>                       Δ+10               {[-2-]}
            <MI 21e38  TST.B   (A7)+>                        Δ+2                {}
            <MI 21e3a  BEQ     0x21e6c>                                         {}
        <POP 21e3c-21e6c Naked>                              Σ0         ↓
            <POP 0x21e3c LimitCheck 0x0 ≤ D7 ≤ 0x27>                            {}
            <MI 21e46  MOVE.L  D7,D4>                                           {}
            <MI 21e48  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21e4a 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21e50  LEA.L   0x20978,A0>                                      {}
            <POP 21e54-21e56 StackAdj>                       Δ-4                {[-4-]}
            <MI 21e56  MOVE.B  (A0+D4.L),(A7)>                                  {[-4-]}
            <MI 21e5a  MOVE.B  (A0+D4.L+#0x1),(A7+0x1)>                         {[-4-]}
            <MI 21e60  MOVE.B  (A0+D4.L+#0x2),(A7+0x2)>                         {[-4-]}
            <Call 0x21e66 0x21cbc>                                              {[-4-]}
            <POP 21e6a-21e6c StackAdj>                       Δ+4                {}
        <POP 21e6c-21e76 Naked>                              Σ0         ↓ →0x21e22 ←0x21e22
            <MI 21e6c  ADDQ.L  #0x1,D7>                                         {}
            <MI 21e6e  CMPI.L  #0x00000027,D7>                                  {}
            <MI 21e74  BLE     0x21e22>                                         {}
        <POP 21e76-21e7a Naked>                              Σ0         →0x21f72
            <MI 21e76  BRA     0x21f72>                                         {}
        <POP 21e7a-21e7c Naked>                              Σ0         ↓ ←0x21d5c
            <MI 21e7a  MOVEQ.L #0x00,D7>                                        {}
        <POP 21e7c-21e96 Naked>                              Σ0         ↓ →0x21ec2 ←0x21ec2
            <POP 21e7c-21e7e StackAdj>                       Δ-2                {[-2-]}
            <MI 21e7e  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']}
            <MI 21e80  MOVE.L  (A6-0x60),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e82  MOVEQ.L #0x10,D0>                                        {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e84  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <POP 0x21e86 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21e8c  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <Call 0x21e8e 0x20cc2>                                              {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <POP 21e90-21e92 StackAdj>                       Δ+10               {[-2-]}
            <MI 21e92  TST.B   (A7)+>                        Δ+2                {}
            <MI 21e94  BEQ     0x21ec2>                                         {}
        <POP 21e96-21ec2 Naked>                              Σ0         ↓
            <POP 0x21e96 LimitCheck 0x0 ≤ D7 ≤ 0x2f>                            {}
            <MI 21e9c  MOVE.L  D7,D4>                                           {}
            <MI 21e9e  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21ea0 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21ea6  LEA.L   0x209f0,A0>                                      {}
            <POP 21eaa-21eac StackAdj>                       Δ-4                {[-4-]}
            <MI 21eac  MOVE.B  (A0+D4.L),(A7)>                                  {[-4-]}
            <MI 21eb0  MOVE.B  (A0+D4.L+#0x1),(A7+0x1)>                         {[-4-]}
            <MI 21eb6  MOVE.B  (A0+D4.L+#0x2),(A7+0x2)>                         {[-4-]}
            <Call 0x21ebc 0x21cbc>                                              {[-4-]}
            <POP 21ec0-21ec2 StackAdj>                       Δ+4                {}
        <POP 21ec2-21ec8 Naked>                              Σ0         ↓ →0x21e7c ←0x21e7c
            <MI 21ec2  ADDQ.L  #0x1,D7>                                         {}
            <MI 21ec4  CMP.L   #0x2f,D7>                                        {}
            <MI 21ec6  BLE     0x21e7c>                                         {}
        <POP 21ec8-21ecc Naked>                              Σ0         →0x21f72
            <MI 21ec8  BRA     0x21f72>                                         {}
        <POP 21ecc-21ece Naked>                              Σ0         ↓ ←0x21d5c
            <MI 21ecc  MOVEQ.L #0x00,D7>                                        {}
        <POP 21ece-21ee8 Naked>                              Σ0         ↓ →0x21f18 ←0x21f18
            <POP 21ece-21ed0 StackAdj>                       Δ-2                {[-2-]}
            <MI 21ed0  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']}
            <MI 21ed2  MOVE.L  (A6-0x60),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21ed4  MOVEQ.L #0x30,D0>                                        {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21ed6  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <POP 0x21ed8 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21ede  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <Call 0x21ee0 0x20cc2>                                              {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <POP 21ee2-21ee4 StackAdj>                       Δ+10               {[-2-]}
            <MI 21ee4  TST.B   (A7)+>                        Δ+2                {}
            <MI 21ee6  BEQ     0x21f18>                                         {}
        <POP 21ee8-21f18 Naked>                              Σ0         ↓
            <POP 0x21ee8 LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 21ef2  MOVE.L  D7,D4>                                           {}
            <MI 21ef4  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21ef6 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21efc  LEA.L   0x208b8,A0>                                      {}
            <POP 21f00-21f02 StackAdj>                       Δ-4                {[-4-]}
            <MI 21f02  MOVE.B  (A0+D4.L),(A7)>                                  {[-4-]}
            <MI 21f06  MOVE.B  (A0+D4.L+#0x1),(A7+0x1)>                         {[-4-]}
            <MI 21f0c  MOVE.B  (A0+D4.L+#0x2),(A7+0x2)>                         {[-4-]}
            <Call 0x21f12 0x21cbc>                                              {[-4-]}
            <POP 21f16-21f18 StackAdj>                       Δ+4                {}
        <POP 21f18-21f22 Naked>                              Σ0         ↓ →0x21ece ←0x21ece
            <MI 21f18  ADDQ.L  #0x1,D7>                                         {}
            <MI 21f1a  CMPI.L  #0x0000000f,D7>                                  {}
            <MI 21f20  BLE     0x21ece>                                         {}
        <POP 21f22-21f24 Naked>                              Σ0         →0x21f72
            <MI 21f22  BRA     0x21f72>                                         {}
        <POP 21f24-21f26 Naked>                              Σ0         ↓ ←0x21d5c
            <MI 21f24  MOVEQ.L #0x00,D7>                                        {}
        <POP 21f26-21f40 Naked>                              Σ0         ↓ →0x21f6c ←0x21f6c
            <POP 21f26-21f28 StackAdj>                       Δ-2                {[-2-]}
            <MI 21f28  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']}
            <MI 21f2a  MOVE.L  (A6-0x60),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21f2c  MOVEQ.L #0x10,D0>                                        {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21f2e  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <POP 0x21f30 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']}
            <MI 21f36  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <Call 0x21f38 0x20cc2>                                              {[-2-]|[4, '(A6-0x5c)']|[4, '(A6-0x60)']|[2, 'D0']}
            <POP 21f3a-21f3c StackAdj>                       Δ+10               {[-2-]}
            <MI 21f3c  TST.B   (A7)+>                        Δ+2                {}
            <MI 21f3e  BEQ     0x21f6c>                                         {}
        <POP 21f40-21f6c Naked>                              Σ0         ↓
            <POP 0x21f40 LimitCheck 0x0 ≤ D7 ≤ 0x2f>                            {}
            <MI 21f46  MOVE.L  D7,D4>                                           {}
            <MI 21f48  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21f4a 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21f50  LEA.L   0x20738,A0>                                      {}
            <POP 21f54-21f56 StackAdj>                       Δ-4                {[-4-]}
            <MI 21f56  MOVE.B  (A0+D4.L),(A7)>                                  {[-4-]}
            <MI 21f5a  MOVE.B  (A0+D4.L+#0x1),(A7+0x1)>                         {[-4-]}
            <MI 21f60  MOVE.B  (A0+D4.L+#0x2),(A7+0x2)>                         {[-4-]}
            <Call 0x21f66 0x21cbc>                                              {[-4-]}
            <POP 21f6a-21f6c StackAdj>                       Δ+4                {}
        <POP 21f6c-21f72 Naked>                              Σ0         ↓ →0x21f26 ←0x21f26
            <MI 21f6c  ADDQ.L  #0x1,D7>                                         {}
            <MI 21f6e  CMP.L   #0x2f,D7>                                        {}
            <MI 21f70  BLE     0x21f26>                                         {}
        <POP 21f72-21f7a Epilogue>                           Σ0         ←0x21e1c ←0x21e76 ←0x21ec8 ←0x21f22

0x21f7a


@ 21f7a
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21f7a-22000 Body>                                   Δ-4        
        <POP 21f7a-21f90 Prologue>                           Σ0         ↓
        <POP 21f90-21f9c Naked>                              Σ0         ↓
            <MI 21f90  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21f94  CLR.L   (A0)>                                            {}
            <MI 21f96  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21f9a  CLR.B   (A0)>                                            {}
        <POP 21f9c-21fae Naked>                              Σ0         ↓ →0x21ff8 ←0x21ff6
            <MI 21f9c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21fa0  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 21fa4  MOVEA.L (A4+0x2a),A2>                                    {}
            <MI 21fa8  MOVE.L  (A0),D0>                                         {}
            <MI 21faa  CMP.L   (A2),D0>                                         {}
            <MI 21fac  BGE     0x21ff8>                                         {}
        <POP 21fae-21fb2 Naked>                              Σ0         ↓ →0x21ff8
            <MI 21fae  TST.B   (A1)>                                            {}
            <MI 21fb0  BNE     0x21ff8>                                         {}
        <POP 21fb2-21fe6 Naked>                              Σ0 Δ-4     ↓
            <MI 21fb2  ADDQ.L  #0x1,D0>                                         {}
            <MI 21fb4  MOVE.L  D0,(A0)>                                         {}
            <MI 21fb6  CLR.B   (A1)>                                            {}
            <MI 21fb8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21fba LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 21fc4  MOVE.L  D0,D4>                                           {}
            <MI 21fc6  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x21fc8 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 21fce-21fd0 StackAdj>                       Δ-4                {[-4-]}
            <MI 21fd0  MOVE.B  (A4+0x36),-(A7)>              Δ-2                {[-4-]|[2, '(A4+0x36)']}
            <MI 21fd4  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[2, '(A4+0x36)']|[4, '(A6+0x10)']}
            <Call 0x21fd8 0x217f0>                                              {[-4-]|[2, '(A4+0x36)']|[4, '(A6+0x10)']}
            <POP 21fdc-21fde StackAdj>                       Δ+6                {[-4-]}
            <MI 21fde  MOVEA.L A7,A0>                                           {[-4-]}
            <MI 21fe0  LEA.L   (A4+D4.L+#0xa),A2>                               {[-4-]}
            <MI 21fe4  MOVEQ.L #0x02,D0>                                        {[-4-]}
        <POP 21fe6-21fec Naked>                              Σ-4        ↓ →0x21fe6 ←0x21fe6
            <MI 21fe6  CMPM.B  (A0)+,(A2)+>                                     {[-4-]}
            <MI 21fe8  DBNE    D0,0x21fe6>                                      {[-4-]}
        <POP 21fec-21fee Naked>                              Σ-4        ↓ →0x21ff2
            <MI 21fec  BEQ     0x21ff2>                                         {[-4-]}
        <POP 21fee-21ff2 Naked>                              Σ-4 Δ+4    →0x21ff6
            <POP 21fee-21ff0 StackAdj>                       Δ+4                {}
            <MI 21ff0  BRA     0x21ff6>                                         {}
        <POP 21ff2-21ff6 Naked>                              Σ-4 Δ+4    ↓ ←0x21fec
            <MI 21ff2  ADDQ.B  #0x1,(A1)>                                       {[-4-]}
            <POP 21ff4-21ff6 StackAdj>                       Δ+4                {}
        <POP 21ff6-21ff8 Naked>                              Σ0         →0x21f9c ←0x21fee
            <MI 21ff6  BRA     0x21f9c>                                         {}
        <POP 21ff8-22000 Epilogue>                           Σ0         ←0x21f9c ←0x21fae

0x22000


@ 22000
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x01c @ 4(r)>
        <LVAR -0x022 @ 1(r)>
    <POP 22000-22146 Body>                                              
        <POP 22000-22016 Prologue>                           Σ0         ↓
        <POP 22016-22026 RegCacheLoad>                       Σ0         ↓
        <POP 22026-2202c Naked>                              Σ0         ↓
            <MI 22026  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22028  CLR.L   (A0)>                                            {}
            <MI 2202a  MOVEQ.L #0x00,D7>                                        {}
        <POP 2202c-22052 Naked>                              Σ0         ↓ →0x220ce ←0x220ce
            <POP 2202c-2202e StackAdj>                       Δ-2                {[-2-]}
            <MI 2202e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x10)']}
            <MI 22032  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 22036  MOVEQ.L #0x18,D0>                                        {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 22038  ADD.L   D7,D0>                                           {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <POP 0x2203a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 22044  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[2, 'D0']}
            <Call 0x22046 0x20cc2>                                              {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[2, 'D0']}
            <POP 2204a-2204e StackAdj>                       Δ+10               {[-2-]}
            <MI 2204e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22050  BEQ     0x220ce>                                         {}
        <POP 22052-22068 Naked>                              Σ0         ↓ →0x2207c
            <MI 22052  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <Pointer.fp 0x22054 <LVAR -0x022 @ 1(r)>>        Δ-4                {[4, 'D7']|[@@-34]}
            <Pointer.fp 0x22056 <LVAR -0x01c @ 4(r)>>        Δ-4                {[4, 'D7']|[@@-34]|[@@-28]}
            <MI 2205a  LEA.L   (A6-0x22),A4>                                    {[4, 'D7']|[@@-34]|[@@-28]}
            <Call 0x2205c 0x21f7a>                                              {[4, 'D7']|[@@-34]|[@@-28]}
            <POP 22060-22064 StackAdj>                       Δ+12               {}
            <MI 22064  TST.B   (A6-0x22)>                                       {}
            <MI 22066  BEQ     0x2207c>                                         {}
        <POP 22068-2207c Naked>                              Σ0         →0x220ce
            <MI 22068  MOVE.L  (A6-0x1c),D0>                                    {}
            <MI 2206c  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x2206e LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 22074  ASL.L   #0x2,D0>                                         {}
            <MI 22076  ADDQ.L  #0x1,(A6+D0.L-#0xe)>                             {}
            <MI 2207a  BRA     0x220ce>                                         {}
        <POP 2207c-2208a Naked>                              Σ0         ↓ →0x2208e ←0x22052
            <MI 2207c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2207e  ADDQ.L  #0x1,(A0)>                                       {}
            <MI 22080  MOVE.L  (A0),D0>                                         {}
            <MI 22082  CMPI.L  #0x00000003,D0>                                  {}
            <MI 22088  BLE     0x2208e>                                         {}
        <POP 2208a-2208e Naked>                              Σ0         →0x2213e
            <MI 2208a  BRA     0x2213e>                                         {}
        <POP 2208e-220ce Naked>                              Σ0         ↓ ←0x2207c
            <MI 2208e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22090  MOVE.L  (A0),D0>                                         {}
            <MI 22092  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x22094 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 2209a  MOVE.L  D0,D4>                                           {}
            <MI 2209c  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x2209e 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 220a4-220a6 StackAdj>                       Δ-4                {[-4-]}
            <MI 220a6  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[-4-]|[2, '(A6+0x14)']}
            <MI 220aa  MOVE.L  D7,-(A7)>                     Δ-4                {[-4-]|[2, '(A6+0x14)']|[4, 'D7']}
            <Call 0x220ac 0x217f0>                                              {[-4-]|[2, '(A6+0x14)']|[4, 'D7']}
            <POP 220b0-220b2 StackAdj>                       Δ+6                {[-4-]}
            <MI 220b2  MOVE.B  (A7),(A6+D4.L-#0x18)>                            {[-4-]}
            <MI 220b6  MOVE.B  (A7+0x1),(A6+D4.L-#0x17)>                        {[-4-]}
            <MI 220bc  MOVE.B  (A7+0x2),(A6+D4.L-#0x16)>                        {[-4-]}
            <POP 220c2-220c4 StackAdj>                       Δ+4                {}
            <MI 220c4  ASL.L   #0x2,D0>                                         {}
            <MI 220c6  MOVE.L  #0x1,(A6+D0.L-#0xe)>                             {}
        <POP 220ce-220da Naked>                              Σ0         ↓ →0x2202c ←0x2202c ←0x22068
            <MI 220ce  ADDQ.L  #0x1,D7>                                         {}
            <MI 220d0  CMPI.L  #0x00000027,D7>                                  {}
            <MI 220d6  BLE     0x2202c>                                         {}
        <POP 220da-220e0 Naked>                              Σ0 Δ-4     ↓
            <MI 220da  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 220dc  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, '(A0)']}
            <MI 220de  MOVEQ.L #0x01,D7>                                        {[4, '(A0)']}
        <POP 220e0-220e4 Naked>                              Σ-4        ↓ →0x2213c ←0x220e4
            <MI 220e0  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 220e2  BGT     0x2213c>                                         {[-4-]}
        <POP 220e4-2213c Naked>                              Σ-4        ↓ →0x220e0
            <MI 220e4  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 220e6  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x220e8 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {[-4-]}
            <MI 220ee  MOVE.L  D0,D4>                                           {[-4-]}
            <MI 220f0  MOVEQ.L #0x03,D3>                                        {[-4-]}
            <Call 0x220f2 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <POP 220f8-220fa StackAdj>                       Δ-4                {[-8-]}
            <MI 220fa  MOVE.B  (A6+D4.L-#0x18),(A7)>                            {[-8-]}
            <MI 220fe  MOVE.B  (A6+D4.L-#0x17),(A7+0x1)>                        {[-8-]}
            <MI 22104  MOVE.B  (A6+D4.L-#0x16),(A7+0x2)>                        {[-8-]}
            <Call 0x2210a 0x21cbc>                                              {[-8-]}
            <Blob 0x2210e [4] 0x232f2>                       Δ-4                {[-8-]|[«4»]}
            <POP 22110-22112 StackAdj>                       Δ-4                {[-8-]|[«4»]|[-4-]}
            <MI 22112  ASL.L   #0x2,D0>                                         {[-8-]|[«4»]|[-4-]}
            <MI 22114  MOVE.L  (A6+D0.L-#0xe),-(A7)>         Δ-4                {[-8-]|[«4»]|[-4-]|[4, '(A6+D0.L-#0xe)']}
            <Call 0x22118 0x102e4>                                              {[-8-]|[«4»]|[-4-]|[4, '(A6+D0.L-#0xe)']}
                Long2String(a : Long) : String
            <POP 2211e-22120 StackAdj>                       Δ+4                {[-8-]|[«4»]|[-4-]}
            <Call 0x22120 0x102d0>                                              {[-8-]|[«4»]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22126-22128 StackAdj>                       Δ+8                {[-8-]}
            <MI 22128  MOVE.L  (A7)+,0x232f2>                Δ+4                {[-4-]}
            <Blob 0x2212a [4] 0x232f2>                       Δ-4                {[-4-]|[«4»]}
            <Const 0x2212c 0x5c.2>                           Δ-2                {[-4-]|[«4»]|[#92]}
            <Call 0x22130 0x102c0>                                              {[-4-]|[«4»]|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 22136-22138 StackAdj>                       Δ+6                {[-4-]}
            <MI 22138  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2213a  BVC     0x220e0>                                         {[-4-]}
        <POP 2213c-2213e Naked>                              Σ-4 Δ+4    ↓ ←0x220e0
            <POP 2213c-2213e StackAdj>                       Δ+4                {}
        <POP 2213e-22146 Epilogue>                           Σ0         ←0x2208a

0x22146


@ 22146
        <LVAR  0x010 4(w)>
    <POP 22146-22184 Body>                                              
        <POP 22146-2215c Prologue>                           Σ0         ↓
        <POP 2215c-2215e RegCacheLoad>                       Σ0         ↓
        <POP 2215e-22162 Naked>                              Σ0         ↓
            <MI 2215e  MOVEQ.L #0x00,D7>                                        {}
            <MI 22160  MOVEQ.L #0x00,D6>                                        {}
        <POP 22162-2216e Naked>                              Σ0         ↓ →0x22170 ←0x22170
            <POP 0x22162 LimitCheck 0x0 ≤ D6 ≤ 0x7>                             {}
            <MI 22168  TST.B   (A6+D6.L+#0x8)>                                  {}
            <MI 2216c  BNE     0x22170>                                         {}
        <POP 2216e-22170 Naked>                              Σ0         →0x22178
            <MI 2216e  BRA     0x22178>                                         {}
        <POP 22170-22178 Naked>                              Σ0         ↓ →0x22162 ←0x22162
            <MI 22170  ADDQ.L  #0x1,D7>                                         {}
            <MI 22172  ADDQ.L  #0x1,D6>                                         {}
            <MI 22174  CMP.L   #0x07,D6>                                        {}
            <MI 22176  BLE     0x22162>                                         {}
        <POP 22178-2217c Naked>                              Σ0         ↓ ←0x2216e
            <MI 22178  MOVE.L  D7,(A6+0x10)>                                    {}
        <POP 2217c-22184 Epilogue>                           Σ0         

0x22184


@ 22184
        <LVAR  0x034 1(rw)>
        <LVAR  0x028 4(r)>
    <POP 22184-221fa Body>                                              
        <POP 22184-2219a Prologue>                           Σ0         ↓
        <POP 2219a-221a0 RegCacheLoad>                       Σ0         ↓
        <POP 221a0-221aa Naked>                              Σ0 Δ-4     ↓
            <MI 221a0  MOVEQ.L #0x01,D7>                                        {}
            <MI 221a2  MOVE.L  (A6+0x28),-(A7)>              Δ-4                {[4, '(A6+0x28)']}
            <MI 221a6  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 221a8  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 221aa-221ae Naked>                              Σ-4        ↓ →0x221ea ←0x221ae
            <MI 221aa  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 221ac  BGT     0x221ea>                                         {[-4-]}
        <POP 221ae-221ea Naked>                              Σ-4        ↓ →0x221aa
            <POP 221ae-221b0 StackAdj>                       Δ-2                {[-6-]}
            <POP 0x221b0 LimitCheck 0x0 ≤ D6 ≤ 0x7>                             {[-6-]}
            <MI 221ba  CLR.L   D0>                                              {[-6-]}
            <MI 221bc  MOVE.B  (A6+D6.L+#0x2c),D0>                              {[-6-]}
            <MI 221c0  MOVE.W  D0,-(A7)>                     Δ-2                {[-6-]|[2, 'D0']}
            <Call 0x221c2 0x2185a>                                              {[-6-]|[2, 'D0']}
            <POP 221c6-221c8 StackAdj>                       Δ+2                {[-6-]}
            <MI 221c8  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 221ca  EXTB.W  D0>                                              {[-4-]}
            <POP 0x221cc LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 221ce  MOVE.B  D0,D5>                                           {[-4-]}
            <MI 221d0  MOVE.B  D5,D0>                                           {[-4-]}
            <MI 221d2  EXTB.W  D0>                                              {[-4-]}
            <POP 0x221d4 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[-4-]}
            <MI 221d6  ASL.W   #0x1,D0>                                         {[-4-]}
            <MI 221d8  MOVE.B  (A6+D0.W+#0x8),D1>                               {[-4-]}
            <MI 221dc  AND.B   (A6+D0.W+#0x9),D1>                               {[-4-]}
            <MI 221e0  NEG.B   D1>                                              {[-4-]}
            <MI 221e2  ADDQ.B  #0x1,D1>                                         {[-4-]}
            <MI 221e4  AND.B   D1,D7>                                           {[-4-]}
            <MI 221e6  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 221e8  BVC     0x221aa>                                         {[-4-]}
        <POP 221ea-221f2 Naked>                              Σ-4 Δ+4    ↓ ←0x221aa
            <POP 221ea-221ec StackAdj>                       Δ+4                {}
            <MI 221ec  MOVE.B  D7,(A6+0x34)>                                    {}
            <MI 221ee  NEG.B   (A6+0x34)>                                       {}
            <MI 221f0  ADDQ.B  #0x1,(A6+0x34)>                                  {}
        <POP 221f2-221fa Epilogue>                           Σ0         

0x221fa


@ 221fa
        <LVAR -0x004 @>
    <POP 221fa-2223e Body>                                              
        <POP 221fa-22210 Prologue>                           Σ0         ↓
        <POP 22210-22212 RegCacheLoad>                       Σ0         ↓
        <POP 22212-22236 Naked>                              Σ0         ↓
            <MI 22212  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <POP 22214-22216 StackAdj>                       Δ-4                {[#0]|[-4-]}
            <Blob 0x22216 [4] 0x232e6>                       Δ-4                {[#0]|[-4-]|[«4»]}
            <Call 0x2221c 0x102cc>                                              {[#0]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 22222-22224 StackAdj>                       Δ+2                {[#0]|[-4-]|[-2-]}
            <POP 22224-22225 StackAdj>                       Δ+2                {[#0]|[-4-]}
            <Const 0x22225 0x1.2>                            Δ-2                {[#0]|[-4-]|[#1]}
            <Const 0x22226 0x1.2>                            Δ-2                {[#0]|[-4-]|[#1]|[#1]}
            <Const 0x22228 0x1.2>                            Δ-2                {[#0]|[-4-]|[#1]|[#1]|[#1]}
            <Pointer.fp 0x2222a <LVAR -0x004 @>>             Δ-4                {[#0]|[-4-]|[#1]|[#1]|[#1]|[@@-4]}
            <Call 0x2222e 0x20a80>                                              {[#0]|[-4-]|[#1]|[#1]|[#1]|[@@-4]}
            <POP 22232-22236 StackAdj>                       Δ+16               {}
        <POP 22236-2223e Epilogue>                           Σ0         

0x2223e


@ 2223e
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
    <POP 2223e-222a2 Body>                                              
        <POP 2223e-22254 Prologue>                           Σ0         ↓
        <POP 22254-2225a RegCacheLoad>                       Σ0         ↓
        <POP 2225a-22264 Naked>                              Σ0         ↓ →0x22296
            <MI 2225a  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 2225e  SUBQ.L  #0x2,D0>                                         {}
            <MI 22260  CMP.L   #0x05,D0>                                        {}
            <MI 22262  BHI     0x22296>                                         {}
        <POP 22264-2226e Naked>                              Σ0         →0x2227a →0x2227e →0x22284 →0x22296 →0x2228a →0x22290
            <MI 22264  ADD.W   D0,D0>                                           {}
            <MI 22266  SWITCH  D0.W>                                            {}
        <POP 2227a-2227e Naked>                              Σ0         →0x2229a ←0x22264
            <MI 2227a  MOVE.B  #0x05,(A6+0xc)>                                  {}
            <MI 2227c  BRA     0x2229a>                                         {}
        <POP 2227e-22284 Naked>                              Σ0         →0x2229a ←0x22264
            <MI 2227e  MOVE.B  #0x06,(A6+0xc)>                                  {}
            <MI 22282  BRA     0x2229a>                                         {}
        <POP 22284-2228a Naked>                              Σ0         →0x2229a ←0x22264
            <MI 22284  MOVE.B  #0x2b,(A6+0xc)>                                  {}
            <MI 22288  BRA     0x2229a>                                         {}
        <POP 2228a-22290 Naked>                              Σ0         →0x2229a ←0x22264
            <MI 2228a  MOVE.B  #0x03,(A6+0xc)>                                  {}
            <MI 2228e  BRA     0x2229a>                                         {}
        <POP 22290-22296 Naked>                              Σ0         →0x2229a ←0x22264
            <MI 22290  MOVE.B  #0x04,(A6+0xc)>                                  {}
            <MI 22294  BRA     0x2229a>                                         {}
        <POP 22296-2229a Naked>                              Σ0         ↓ ←0x2225a ←0x22264
            <MI 22296  MOVE.B  #0x27,(A6+0xc)>                                  {}
        <POP 2229a-222a2 Epilogue>                           Σ0         ←0x2227a ←0x2227e ←0x22284 ←0x2228a ←0x22290

0x222a2


@ 222a2
        <LVAR  0x008 4(r)>
    <POP 222a2-222e0 Body>                                              
        <POP 222a2-222b8 Prologue>                           Σ0         ↓
        <POP 222b8-222d8 Naked>                              Σ0         ↓
            <MI 222b8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 222bc  MOVE.B  #0x25,(A0)>                                      {}
            <MI 222c0  MOVE.B  #0x29,(A0+0x1)>                                  {}
            <MI 222c6  MOVE.B  #0x28,(A0+0x2)>                                  {}
            <MI 222cc  MOVE.B  #0x01,(A0+0x3)>                                  {}
            <MI 222d2  MOVE.B  #0x2a,(A0+0x4)>                                  {}
        <POP 222d8-222e0 Epilogue>                           Σ0         

0x222e0


@ 222e0
        <LVAR  0x01a 4(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 1(r) 4(r)>
    <POP 222e0-224ca Body>                                   Δ+8        
        <POP 222e0-222f6 Prologue>                           Σ0         ↓
        <POP 222f6-2230a RegCacheLoad>                       Σ0         ↓
        <POP 2230a-2233c Naked>                              Σ0         →0x22362 →0x22362 →0x2236e →0x2237c →0x22380 →0x22388 →0x22388 →0x22388 →0x22388 →0x223a4 →0x223a4 →0x223a4 →0x223a4 →0x223dc →0x22400 →0x22402 →0x22456 →0x22400 →0x224bc
            <MI 2230a  MOVEA.L (A6+0x12),A0>                                    {}
            <MI 2230e  CLR.L   D0>                                              {}
            <MI 22310  MOVE.B  (A0),D0>                                         {}
            <MI 22312  MOVE.L  D0,D7>                                           {}
            <MI 22314  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <MI 22316  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22318  EXTB.W  D0>                                              {}
            <POP 0x2231a LimitCheck 0x0 ≤ D0 ≤ 0x12>                            {}
            <MI 2231e  MOVE.B  D0,D6>                                           {}
            <MI 22320  MOVEA.L (A6+0x1a),A0>                                    {}
            <MI 22324  CLR.B   (A0)>                                            {}
            <MI 22326  MOVE.B  D6,D0>                                           {}
            <MI 22328  EXTB.W  D0>                                              {}
            <POP 0x2232a LimitCheck 0x0 ≤ D0 ≤ 0x12>                            {}
            <MI 22332  ADD.W   D0,D0>                                           {}
            <MI 22334  SWITCH  D0.W>                                            {}
        <POP 22362-2236e Naked>                              Σ0         →0x224c2 ←0x2230a ←0x2230a
            <MI 22362  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 22364  MOVE.B  #0x2a,(A0)>                                      {}
            <MI 22366  MOVE.B  #0x05,(A0+0x1)>                                  {}
            <MI 2236a  BRA     0x224c2>                                         {}
        <POP 2236e-2237c Naked>                              Σ0         →0x224c2 ←0x2230a
            <MI 2236e  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 22370  MOVE.B  #0x2a,(A0)>                                      {}
            <MI 22372  MOVE.B  #0x29,(A0+0x1)>                                  {}
            <MI 22378  BRA     0x224c2>                                         {}
        <POP 2237c-22380 Naked>                              Σ0         →0x224bc ←0x2230a
            <MI 2237c  BRA     0x224bc>                                         {}
        <POP 22380-22388 Naked>                              Σ0         →0x224c2 ←0x2230a
            <MI 22380  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 22382  MOVE.B  #0x05,(A0)>                                      {}
            <MI 22384  BRA     0x224c2>                                         {}
        <POP 22388-2238e Naked>                              Σ0         ↓ →0x22394 ←0x2230a ←0x2230a ←0x2230a ←0x2230a
            <MI 22388  TST.B   (A6+0x10)>                                       {}
            <MI 2238c  BEQ     0x22394>                                         {}
        <POP 2238e-22394 Naked>                              Σ0         →0x223a0
            <MI 2238e  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 22390  MOVE.B  #0x05,(A0)>                                      {}
            <MI 22392  BRA     0x223a0>                                         {}
        <POP 22394-223a0 Naked>                              Σ0         ↓ ←0x22388
            <MI 22394  MOVEA.L (A6+0x16),A1>                                    {}
            <MI 22396  PEA.L   (A1)>                         Δ-4                {[4, '^(A1)']}
            <Call 0x22398 0x222a2>                                              {[4, '^(A1)']}
            <POP 2239c-2239e StackAdj>                       Δ+4                {}
            <MI 2239e  MOVE.B  #0x01,(A0)>                                      {}
        <POP 223a0-223a4 Naked>                              Σ0         →0x224c2 ←0x2238e
            <MI 223a0  BRA     0x224c2>                                         {}
        <POP 223a4-223aa Naked>                              Σ0         ↓ →0x223cc ←0x2230a ←0x2230a ←0x2230a ←0x2230a
            <MI 223a4  TST.B   (A6+0x10)>                                       {}
            <MI 223a8  BEQ     0x223cc>                                         {}
        <POP 223aa-223cc Naked>                              Σ0         →0x223d8
            <MI 223aa  MOVEA.L (A6+0x16),A0>                                    {}
            <POP 223ac-223ae StackAdj>                       Δ-2                {[-2-]}
            <MI 223ae  CLR.L   D0>                                              {[-2-]}
            <MI 223b0  MOVE.B  (A6+0x8),D0>                                     {[-2-]}
            <MI 223b2  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x223b4 0x2223e>                                              {[-2-]|[4, 'D0']}
            <POP 223b6-223b8 StackAdj>                       Δ+4                {[-2-]}
            <MI 223b8  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 223ba  EXTB.W  D0>                                              {}
            <MI 223bc  EXTW.L  D0>                                              {}
            <POP 0x223be LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 223c8  MOVE.B  D0,(A0)>                                         {}
            <MI 223ca  BRA     0x223d8>                                         {}
        <POP 223cc-223d6 Naked>                              Σ0 Δ-4     ↓ ←0x223a4 ←0x22400
            <MI 223cc  MOVE.B  #0x01,(A0)>                                      {}
            <MI 223ce  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 223d0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x223d2 0x222a2>                                              {[4, '^(A0)']}
        <POP 223d6-223d8 Naked>                              Σ-4 Δ+4    ↓ ←0x22454
            <POP 223d6-223d8 StackAdj>                       Δ+4                {}
        <POP 223d8-223dc Naked>                              Σ0         →0x224c2 ←0x223aa
            <MI 223d8  BRA     0x224c2>                                         {}
        <POP 223dc-22400 Naked>                              Σ0         →0x224c2 ←0x2230a
            <MI 223dc  MOVEA.L (A6+0x16),A0>                                    {}
            <POP 223de-223e0 StackAdj>                       Δ-2                {[-2-]}
            <MI 223e0  CLR.L   D0>                                              {[-2-]}
            <MI 223e2  MOVE.B  (A6+0x8),D0>                                     {[-2-]}
            <MI 223e4  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x223e6 0x2223e>                                              {[-2-]|[4, 'D0']}
            <POP 223e8-223ea StackAdj>                       Δ+4                {[-2-]}
            <MI 223ea  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 223ec  EXTB.W  D0>                                              {}
            <MI 223ee  EXTW.L  D0>                                              {}
            <POP 0x223f0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 223fa  MOVE.B  D0,(A0)>                                         {}
            <MI 223fc  BRA     0x224c2>                                         {}
        <POP 22400-22402 Naked>                              Σ0         →0x223cc ←0x2230a ←0x2230a
            <MI 22400  BRA     0x223cc>                                         {}
        <POP 22402-22418 Naked>                              Σ0 Δ-4     ↓ ←0x2230a
            <MI 22402  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22404  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 22406  MOVE.B  #0x2a,(A0)>                                      {}
            <POP 22408-2240a StackAdj>                       Δ-4                {[-4-]}
            <MI 2240a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 2240e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22410 0x22146>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 22414-22416 StackAdj>                       Δ+8                {[-4-]}
            <MI 22416  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 22418-2241c Naked>                              Σ-4        ↓ →0x22454 ←0x2241c
            <MI 22418  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 2241a  BGT     0x22454>                                         {[-4-]}
        <POP 2241c-22454 Naked>                              Σ-4        ↓ →0x22418
            <MI 2241c  MOVEA.L (A6+0x16),A0>                                    {[-4-]}
            <POP 0x2241e LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <POP 22424-22426 StackAdj>                       Δ-2                {[-6-]}
            <MI 22426  MOVE.L  D7,D0>                                           {[-6-]}
            <MI 22428  SUBQ.L  #0x1,D0>                                         {[-6-]}
            <POP 0x2242a LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {[-6-]}
            <MI 22430  CLR.L   D1>                                              {[-6-]}
            <MI 22432  MOVE.B  (A6+D0.L+#0x8),D1>                               {[-6-]}
            <MI 22436  MOVE.L  D1,-(A7)>                     Δ-4                {[-6-]|[4, 'D1']}
            <Call 0x22438 0x2223e>                                              {[-6-]|[4, 'D1']}
            <POP 2243a-2243c StackAdj>                       Δ+4                {[-6-]}
            <MI 2243c  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 2243e  EXTB.W  D0>                                              {[-4-]}
            <MI 22440  EXTW.L  D0>                                              {[-4-]}
            <POP 0x22442 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 2244c  MOVE.B  D0,(A0+D7.L)>                                    {[-4-]}
            <MI 22450  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22452  BVC     0x22418>                                         {[-4-]}
        <POP 22454-22456 Naked>                              Σ-4        →0x223d6 ←0x22418
            <MI 22454  BRA     0x223d6>                                         {[-4-]}
        <POP 22456-2245c Naked>                              Σ0         ↓ →0x224ae ←0x2230a
            <MI 22456  TST.B   (A6+0x10)>                                       {}
            <MI 2245a  BEQ     0x224ae>                                         {}
        <POP 2245c-22470 Naked>                              Σ0 Δ-4     ↓
            <MI 2245c  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 2245e  MOVE.B  #0x2a,(A0)>                                      {}
            <POP 22460-22462 StackAdj>                       Δ-4                {[-4-]}
            <MI 22462  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <MI 22466  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x22468 0x22146>                                              {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 2246c-2246e StackAdj>                       Δ+8                {[-4-]}
            <MI 2246e  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 22470-22474 Naked>                              Σ-4        ↓ →0x224ac ←0x22474
            <MI 22470  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22472  BGT     0x224ac>                                         {[-4-]}
        <POP 22474-224ac Naked>                              Σ-4        ↓ →0x22470
            <MI 22474  MOVEA.L (A6+0x16),A0>                                    {[-4-]}
            <POP 0x22476 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <POP 2247c-2247e StackAdj>                       Δ-2                {[-6-]}
            <MI 2247e  MOVE.L  D7,D0>                                           {[-6-]}
            <MI 22480  SUBQ.L  #0x1,D0>                                         {[-6-]}
            <POP 0x22482 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {[-6-]}
            <MI 22488  CLR.L   D1>                                              {[-6-]}
            <MI 2248a  MOVE.B  (A6+D0.L+#0x8),D1>                               {[-6-]}
            <MI 2248e  MOVE.L  D1,-(A7)>                     Δ-4                {[-6-]|[4, 'D1']}
            <Call 0x22490 0x2223e>                                              {[-6-]|[4, 'D1']}
            <POP 22492-22494 StackAdj>                       Δ+4                {[-6-]}
            <MI 22494  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 22496  EXTB.W  D0>                                              {[-4-]}
            <MI 22498  EXTW.L  D0>                                              {[-4-]}
            <POP 0x2249a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 224a4  MOVE.B  D0,(A0+D7.L)>                                    {[-4-]}
            <MI 224a8  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 224aa  BVC     0x22470>                                         {[-4-]}
        <POP 224ac-224ae Naked>                              Σ-4        →0x224b8 ←0x22470
            <MI 224ac  BRA     0x224b8>                                         {[-4-]}
        <POP 224ae-224b8 Naked>                              Σ0 Δ-4     ↓ ←0x22456
            <MI 224ae  MOVE.B  #0x01,(A0)>                                      {}
            <MI 224b0  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 224b2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x224b4 0x222a2>                                              {[4, '^(A0)']}
        <POP 224b8-224bc Naked>                              Σ-4 Δ+4    →0x224c2 ←0x224ac
            <POP 224b8-224ba StackAdj>                       Δ+4                {}
            <MI 224ba  BRA     0x224c2>                                         {}
        <POP 224bc-224c2 Naked>                              Σ0         ↓ ←0x2230a ←0x2237c
            <MI 224bc  MOVEA.L (A6+0x16),A0>                                    {}
            <MI 224be  MOVE.B  #0x27,(A0)>                                      {}
        <POP 224c2-224ca Epilogue>                           Σ0         ←0x22362 ←0x2236e ←0x22380 ←0x223a0 ←0x223d8 ←0x223dc ←0x224b8

0x224ca


@ 224ca
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x001 1(r)>
        <LVAR -0x004 @>
    <POP 224ca-22528 Body>                                              
        <POP 224ca-224e0 Prologue>                           Σ0         ↓
        <POP 224e0-22520 Naked>                              Σ0         ↓
            <Call 0x224e0 0x10538>                                              {}
                IPC_Init(void)
            <Pointer.fp 0x224e6 <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x224ea 0x10532>                                              {[@@-4]}
                IPC_GetLong() : Long
            <POP 224f0-224f2 StackAdj>                       Δ+4                {}
            <MI 224f2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 224f6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x224f8 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x224fc 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x22500 0x10520>                                              {[4, '^(A0)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 22506-2250a StackAdj>                       Δ+12               {}
            <Call 0x2250a 0x1051a>                                              {}
                IPC_GetEnd(void)
            <MI 22510  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 22514  MOVE.B  (A6-0x1),D0>                                     {}
            <MI 22518  EXTB.W  D0>                                              {}
            <POP 0x2251a LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 2251e  MOVE.B  D0,(A0)>                                         {}
        <POP 22520-22528 Epilogue>                           Σ0         

0x22528


@ 22528
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x001 1(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x012 @>
        <LVAR -0x018 @>
        <LVAR -0x01d @>
        <LVAR -0x026 @>
        <LVAR -0x02c @>
    <POP 22528-225c8 Body>                                              
        <POP 22528-2253e Prologue>                           Σ0         ↓
        <POP 2253e-225a4 Naked>                              Σ0         ↓ →0x225b4
            <Pointer.fp 0x2253e <LVAR -0x02c @>>             Δ-4                {[@@-44]}
            <Pointer.fp 0x22542 <LVAR -0x026 @>>             Δ-4                {[@@-44]|[@@-38]}
            <Pointer.fp 0x22546 <LVAR -0x01d @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]}
            <Pointer.fp 0x2254a <LVAR -0x018 @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]|[@@-24]}
            <Pointer.fp 0x2254e <LVAR -0x012 @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]|[@@-24]|[@@-18]}
            <Call 0x22552 0x2141e>                                              {[@@-44]|[@@-38]|[@@-29]|[@@-24]|[@@-18]}
            <POP 22556-2255a StackAdj>                       Δ+18               {[-2-]}
            <MI 2255a  CLR.B   (A7)>                                            {[-2-]}
            <Pointer.fp 0x2255c <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Call 0x22560 0x22e34>                                              {[-2-]|[@@-2]}
                exp_TEST_READ_DISPATCH.SEQ(Sw_1, &Sr_2)
            <POP 22566-22568 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x22568 <LVAR -0x02c @>>             Δ-4                {[@@-44]}
            <Pointer.fp 0x2256c <LVAR -0x026 @>>             Δ-4                {[@@-44]|[@@-38]}
            <Pointer.fp 0x22570 <LVAR -0x01d @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]}
            <Pointer.fp 0x22574 <LVAR -0x018 @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]|[@@-24]}
            <Pointer.fp 0x22578 <LVAR -0x012 @>>             Δ-4                {[@@-44]|[@@-38]|[@@-29]|[@@-24]|[@@-18]}
            <Call 0x2257c 0x2148a>                                              {[@@-44]|[@@-38]|[@@-29]|[@@-24]|[@@-18]}
            <POP 22580-22584 StackAdj>                       Δ+20               {}
            <MI 22584  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 22588  CLR.L   D0>                                              {}
            <MI 2258a  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 2258e  MULU.W  #0x100,D0>                                       {}
            <MI 22592  CLR.L   D1>                                              {}
            <MI 22594  MOVE.B  (A6-0x1),D1>                                     {}
            <MI 22598  ADD.W   D0,D1>                                           {}
            <MI 2259a  MOVE.W  D1,(A0)>                                         {}
            <MI 2259c  MOVE.W  D1,D0>                                           {}
            <MI 2259e  ANDI.W  #0xfc00,D0>                                      {}
            <MI 225a2  BEQ     0x225b4>                                         {}
        <POP 225a4-225b4 Naked>                              Σ0         →0x225be
            <MI 225a4  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 225a8  MOVE.B  #0x01,(A0)>                                      {}
            <MI 225ac  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 225b0  LSR.W   #0x6,D1>                                         {}
            <MI 225b2  BRA     0x225be>                                         {}
        <POP 225b4-225be Naked>                              Σ0         ↓ ←0x2253e
            <MI 225b4  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 225b8  CLR.B   (A0)>                                            {}
            <MI 225ba  MOVEA.L (A6+0x8),A0>                                     {}
        <POP 225be-225c0 Naked>                              Σ0         ↓ ←0x225a4
            <MI 225be  MOVE.W  D1,(A0)>                                         {}
        <POP 225c0-225c8 Epilogue>                           Σ0         

0x225c8


@ 225c8
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 4(rw)>
        <LVAR -0x016 4(r)>
        <LVAR -0x01a @ 4(r)>
        <LVAR -0x01e 4(r)>
        <LVAR -0x022 @ 4(r)>
        <LVAR -0x024 @ 2(r)>
    <POP 225c8-22746 Body>                                              
        <POP 225c8-225de Prologue>                           Σ0         ↓
        <POP 225de-225f6 RegCacheLoad>                       Σ0         ↓
        <POP 225f6-22628 Naked>                              Σ0         ↓ →0x22630
            <Pointer.fp 0x225f6 <LVAR -0x024 @ 2(r)>>        Δ-4                {[@@-36]}
            <Pointer.fp 0x225f8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-36]|[@@-4]}
            <Pointer.fp 0x225fc <LVAR -0x006 @ 2(r)>>        Δ-4                {[@@-36]|[@@-4]|[@@-6]}
            <Call 0x22600 0x22528>                                              {[@@-36]|[@@-4]|[@@-6]}
            <POP 22604-22608 StackAdj>                       Δ+10               {[-2-]}
            <MI 22608  MOVE.W  (A6-0x6),(A7)>                                   {[2, '(A6-0x6)']}
            <MI 2260c  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x6)']|[2, '(A6-0x4)']}
            <Pointer.fp 0x22610 <LVAR -0x022 @ 4(r)>>        Δ-4                {[2, '(A6-0x6)']|[2, '(A6-0x4)']|[@@-34]}
            <Call 0x22612 0x215b0>                                              {[2, '(A6-0x6)']|[2, '(A6-0x4)']|[@@-34]}
            <POP 22616-22618 StackAdj>                       Δ+2                {[2, '(A6-0x6)']|[2, '(A6-0x4)']|[-2-]}
            <MI 22618  MOVE.L  (A6-0x1e),(A7)>                                  {[2, '(A6-0x6)']|[4, '(A6-0x1e)']}
            <MI 2261c  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[2, '(A6-0x6)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <Call 0x2261e 0x219de>                                              {[2, '(A6-0x6)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <POP 22622-22624 StackAdj>                       Δ+8                {[2, '(A6-0x6)']}
            <MI 22624  TST.B   (A7)+>                        Δ+2                {}
            <MI 22626  BEQ     0x22630>                                         {}
        <POP 22628-22630 Naked>                              Σ0         →0x2273e
            <MI 22628  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2262a  MOVE.B  #0x03,(A0)>                                      {}
            <MI 2262c  BRA     0x2273e>                                         {}
        <POP 22630-2266a Naked>                              Σ0         ↓ →0x22674 ←0x225f6
            <MI 22630  MOVE.W  (A6-0x24),-(A7)>              Δ-2                {[2, '(A6-0x24)']}
            <Pointer.fp 0x22632 <LVAR -0x01a @ 4(r)>>        Δ-4                {[2, '(A6-0x24)']|[@@-26]}
            <Call 0x22634 0x2168c>                                              {[2, '(A6-0x24)']|[@@-26]}
            <POP 22638-2263a StackAdj>                       Δ+2                {[2, '(A6-0x24)']|[-2-]}
            <MI 2263a  CLR.L   D0>                                              {[2, '(A6-0x24)']|[-2-]}
            <MI 2263c  MOVE.W  (A6-0x24),D0>                                    {[2, '(A6-0x24)']|[-2-]}
            <MI 2263e  MOVE.L  D0,-(A7)>                     Δ-4                {[2, '(A6-0x24)']|[-2-]|[4, 'D0']}
            <Const 0x22640 0x4.4>                            Δ-4                {[2, '(A6-0x24)']|[-2-]|[4, 'D0']|[##4]}
            <Call 0x22644 0x102e8>                                              {[2, '(A6-0x24)']|[-2-]|[4, 'D0']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 2264a-2264c StackAdj>                       Δ+8                {[2, '(A6-0x24)']|[-2-]}
            <Call 0x2264c 0x2194c>                                              {[2, '(A6-0x24)']|[-2-]}
            <POP 22650-22652 StackAdj>                       Δ+2                {[2, '(A6-0x24)']}
            <MI 22652  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[2, '(A6-0x24)']|[4, '(A6-0x16)']}
            <MI 22656  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[2, '(A6-0x24)']|[4, '(A6-0x16)']|[4, '(A6-0x1a)']}
            <MI 22658  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[2, '(A6-0x24)']|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <MI 2265c  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[2, '(A6-0x24)']|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <Call 0x2265e 0x1032c>                                              {[2, '(A6-0x24)']|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
                IsEqual(a, b : Quad) : Bool
            <POP 22664-22666 StackAdj>                       Δ+16               {[2, '(A6-0x24)']}
            <MI 22666  TST.B   (A7)+>                        Δ+2                {}
            <MI 22668  BEQ     0x22674>                                         {}
        <POP 2266a-22674 Naked>                              Σ0         →0x2270e
            <MI 2266a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2266c  MOVE.B  #0x04,(A0)>                                      {}
            <MI 22670  BRA     0x2270e>                                         {}
        <POP 22674-226b0 Naked>                              Σ0         ↓ →0x22708 ←0x22630
            <POP 22674-22676 StackAdj>                       Δ-8                {[-8-]}
            <MI 22676  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x16)']}
            <MI 2267a  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']}
            <MI 2267c  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <MI 22680  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <Call 0x22682 0x10340>                                              {[-8-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
                BitXor(a, b : Quad) : Quad
            <POP 22688-2268a StackAdj>                       Δ+16               {[-8-]}
            <MI 2268a  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[-4-]}
            <MI 2268e  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {}
            <MI 22692  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <MI 22696  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[2, '(A6-0x4)']|[4, '(A6-0xe)']}
            <MI 2269a  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[2, '(A6-0x4)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <Pointer.fp 0x2269e <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6-0x4)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[@@-10]}
            <Call 0x226a2 0x22000>                                              {[2, '(A6-0x4)']|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[@@-10]}
            <POP 226a6-226a8 StackAdj>                       Δ+14               {}
            <MI 226a8  MOVE.L  (A6-0xa),D0>                                     {}
            <MI 226ac  CMP.L   #0x03,D0>                                        {}
            <MI 226ae  BHI     0x22708>                                         {}
        <POP 226b0-226ba Naked>                              Σ0         →0x226c2 →0x226f0 →0x226f8 →0x22700
            <MI 226b0  ADD.W   D0,D0>                                           {}
            <MI 226b2  SWITCH  D0.W>                                            {}
        <POP 226c2-226f0 Naked>                              Σ0         →0x2270e ←0x226b0
            <Blob 0x226c2 [28] @>                            Δ-28               {[«28""»]}
            <Const 0x226ce 0xe.2>                            Δ-2                {[«28""»]|[#14]}
            <POP 226d0-226d2 StackAdj>                       Δ-4                {[«28""»]|[#14]|[-4-]}
            <Lit 0x226d2 28>                                                    {[«28""»]|[#14]|[$$Post mortem error (EMWCSP-4)]}
            <Call 0x226e4 0x103b8>                                              {[«28""»]|[#14]|[$$Post mortem error (EMWCSP-4)]}
                PopProgram(status : Byte; msg : String)
            <POP 226ea-226ee StackAdj>                       Δ+34               {}
            <MI 226ee  BRA     0x2270e>                                         {}
        <POP 226f0-226f8 Naked>                              Σ0         →0x2270e ←0x226b0
            <MI 226f0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 226f2  MOVE.B  #0x05,(A0)>                                      {}
            <MI 226f6  BRA     0x2270e>                                         {}
        <POP 226f8-22700 Naked>                              Σ0         →0x2270e ←0x226b0
            <MI 226f8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 226fa  MOVE.B  #0x06,(A0)>                                      {}
            <MI 226fe  BRA     0x2270e>                                         {}
        <POP 22700-22708 Naked>                              Σ0         →0x2270e ←0x226b0
            <MI 22700  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22702  MOVE.B  #0x07,(A0)>                                      {}
            <MI 22706  BRA     0x2270e>                                         {}
        <POP 22708-2270e Naked>                              Σ0         ↓ ←0x22674
            <MI 22708  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2270a  MOVE.B  #0x08,(A0)>                                      {}
        <POP 2270e-2273e Naked>                              Σ0         ↓ ←0x2266a ←0x226c2 ←0x226f0 ←0x226f8 ←0x22700
            <Call 0x2270e 0x221fa>                                              {}
            <MI 22712  MOVE.W  (A6-0x24),-(A7)>              Δ-2                {[2, '(A6-0x24)']}
            <Pointer.fp 0x22714 <LVAR -0x01a @ 4(r)>>        Δ-4                {[2, '(A6-0x24)']|[@@-26]}
            <Call 0x22716 0x2168c>                                              {[2, '(A6-0x24)']|[@@-26]}
            <POP 2271a-2271c StackAdj>                       Δ+6                {}
            <MI 2271c  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 22720-22722 StackAdj>                       Δ-2                {[-2-]}
            <MI 22722  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x16)']}
            <MI 22726  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']}
            <MI 22728  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <MI 2272c  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
            <Call 0x2272e 0x1032c>                                              {[-2-]|[4, '(A6-0x16)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[4, '(A6-0x22)']}
                IsEqual(a, b : Quad) : Bool
            <POP 22734-22736 StackAdj>                       Δ+16               {[-2-]}
            <MI 22736  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22738  EXTB.W  D0>                                              {}
            <POP 0x2273a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2273c  MOVE.B  D0,(A0)>                                         {}
        <POP 2273e-22746 Epilogue>                           Σ0         ←0x22628

0x22746


@ 22746
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 22746-22832 Body>                                              
        <POP 22746-2275c Prologue>                           Σ0         ↓
        <POP 2275c-22762 RegCacheLoad>                       Σ0         ↓
        <POP 22762-22768 Naked>                              Σ0         ↓ →0x227a0
            <MI 22762  TST.L   (A6+0x10)>                                       {}
            <MI 22766  BNE     0x227a0>                                         {}
        <POP 22768-227a0 Naked>                              Σ0         →0x2282a
            <Blob 0x22768 [40] @>                            Δ-40               {[«40""»]}
            <Const 0x2277a 0xe.2>                            Δ-2                {[«40""»]|[#14]}
            <POP 2277e-22780 StackAdj>                       Δ-4                {[«40""»]|[#14]|[-4-]}
            <Lit 0x22780 39>                                                    {[«40""»]|[#14]|[$$Post mortem invocation error (EMWCSP-2)]}
            <Call 0x22792 0x103b8>                                              {[«40""»]|[#14]|[$$Post mortem invocation error (EMWCSP-2)]}
                PopProgram(status : Byte; msg : String)
            <POP 22798-2279c StackAdj>                       Δ+46               {}
            <MI 2279c  BRA     0x2282a>                                         {}
        <POP 227a0-227ac Naked>                              Σ0         ↓ →0x227da ←0x22762
            <MI 227a0  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 227a4  CMPI.L  #0x00000004,D0>                                  {}
            <MI 227aa  BNE     0x227da>                                         {}
        <POP 227ac-227b6 Naked>                              Σ0         ↓ →0x227be
            <POP 227ac-227ae StackAdj>                       Δ-2                {[-2-]}
            <Call 0x227ae 0x21c82>                                              {[-2-]}
            <MI 227b2  TST.B   (A7)+>                        Δ+2                {}
            <MI 227b4  BEQ     0x227be>                                         {}
        <POP 227b6-227be Naked>                              Σ0         →0x227d8
            <MI 227b6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 227b8  MOVE.B  #0x02,(A0)>                                      {}
            <MI 227bc  BRA     0x227d8>                                         {}
        <POP 227be-227d8 Naked>                              Σ0         ↓ ←0x227ac
            <MI 227be  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 227c0  MOVE.B  #0x01,(A0)>                                      {}
            <MI 227c2  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 227c6-227c8 StackAdj>                       Δ-8                {[-8-]}
            <MI 227c8  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A0,A1>                                                 {[-8-]}
            <Call 0x227d2 0x21990>                                              {[-8-]}
            <POP 227d6-227d8 StackAdj>                       Δ+8                {}
        <POP 227d8-227da Naked>                              Σ0         →0x2282a ←0x227b6
            <MI 227d8  BRA     0x2282a>                                         {}
        <POP 227da-227e8 Naked>                              Σ0         ↓ →0x22814 ←0x227a0
            <MI 227da  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 227dc  CLR.B   (A0)>                                            {}
            <POP 227de-227e0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x227e0 0x21c82>                                              {[-2-]}
            <MI 227e4  TST.B   (A7)+>                        Δ+2                {}
            <MI 227e6  BEQ     0x22814>                                         {}
        <POP 227e8-22814 Naked>                              Σ0         ↓
            <POP 227e8-227ea StackAdj>                       Δ-4                {[-4-]}
            <POP 227ea-227eb StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x227eb [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 227ee  MOVE.B  0x20647,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 227f4  MOVE.B  0x20648,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 227fa-227fc StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x227fc>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x227fc 4>                       Δ-4        
                <Const 0x22800 0x1.2>                        Δ-2        
                <Const 0x22802 0x3.2>                        Δ-2        
                <Call 0x22806 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2280c-2280e StackAdj>                   Δ+8        
            <Call 0x2280e 0x2194c>                                              {[-2-]|[«2""»]|[$$…]}
            <POP 22812-22814 StackAdj>                       Δ+8                {}
        <POP 22814-2282a Naked>                              Σ0         ↓ ←0x227da
            <MI 22814  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 22818-2281a StackAdj>                       Δ-8                {[-8-]}
            <MI 2281a  MOVEA.L A7,A1>                                           {[-8-]}
            <BlockMove 8,A0,A1>                                                 {[-8-]}
            <Call 0x22824 0x21990>                                              {[-8-]}
            <POP 22828-2282a StackAdj>                       Δ+8                {}
        <POP 2282a-22832 Epilogue>                           Σ0         ←0x22768 ←0x227d8

0x22832


@ 22832
        <LVAR  0x008 4(r)>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 22832-228de Body>                                              
        <POP 22832-22848 Prologue>                           Σ0         ↓
        <POP 22848-2284a RegCacheLoad>                       Σ0         ↓
        <POP 2284a-22872 Naked>                              Σ0         ↓ →0x228d6
            <Pointer.fp 0x2284a <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-4]}
            <Call 0x2284e 0x230ba>                                              {[@@-4]}
                exp_READ_LAST_PC.IOC(&Sr_2)
            <POP 22854-22856 StackAdj>                       Δ+4                {}
            <MI 22856  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2285a  CLR.L   D0>                                              {}
            <MI 2285c  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 22860  ASL.W   #0x8,D0>                                         {}
            <MI 22862  CLR.L   D1>                                              {}
            <MI 22864  MOVE.B  (A6-0x3),D1>                                     {}
            <MI 22868  ADD.W   D0,D1>                                           {}
            <MI 2286a  MOVE.W  D1,(A0)>                                         {}
            <MI 2286c  CMPI.W  #0x0100,D1>                                      {}
            <MI 22870  BCC     0x228d6>                                         {}
        <POP 22872-228d6 Naked>                              Σ0         ↓
            <Blob 0x22872 [36] @>                            Δ-36               {[«36""»]}
            <Blob 0x2287e [18] @>                            Δ-18               {[«36""»]|[«18""»]}
            <POP 2288a-2288c StackAdj>                       Δ-8                {[«36""»]|[«18""»]|[-8-]}
            <Lit 0x2288c 36>                                                    {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]}
            <POP 2289c-2289e StackAdj>                       Δ-4                {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]}
            <MI 2289e  CLR.L   D0>                                              {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]}
            <MI 228a0  MOVE.W  D1,D0>                                           {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]}
            <MI 228a2  MOVE.L  D0,-(A7)>                     Δ-4                {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[4, 'D0']}
            <Const 0x228a4 0x4.4>                            Δ-4                {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[4, 'D0']|[##4]}
            <Call 0x228a8 0x102e8>                                              {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[4, 'D0']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 228ae-228b0 StackAdj>                       Δ+4                {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[4, 'D0']}
            <Lit 0x228b0 18>                                                    {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[$$# is very unusual!]}
            <Call 0x228c2 0x102d4>                                              {[«36""»]|[«18""»]|[-4-]|[$$  WARNING: a failing micro_PC of 16#]|[-4-]|[$$# is very unusual!]}
                StringCat3(a, b, c : String) : String
            <POP 228c8-228cc StackAdj>                       Δ+12               {[«36""»]|[«18""»]|[-4-]}
            <Call 0x228cc 0x103e0>                                              {[«36""»]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 228d2-228d6 StackAdj>                       Δ+58               {}
        <POP 228d6-228de Epilogue>                           Σ0         ←0x2284a

0x228de


@ 228de
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x058 @>
        <LVAR -0x05a @ 2(r)>
        <LVAR -0x07a @>
        <LVAR -0x07e @ 4(r)>
        <LVAR -0x082 @ 4(r)>
        <LVAR -0x086 @ 4(r)>
        <LVAR -0x088 @>
    <POP 228de-22b0e Body>                                              
        <POP 228de-228f4 Prologue>                           Σ0         ↓
        <POP 228f4-22906 RegCacheLoad>                       Σ0         ↓
        <POP 22906-22910 Naked>                              Σ0         ↓
            <Pointer.fp 0x22906 <LVAR -0x05a @ 2(r)>>        Δ-4                {[@@-90]}
            <Call 0x22908 0x22832>                                              {[@@-90]}
            <POP 2290c-2290e StackAdj>                       Δ+4                {}
            <MI 2290e  MOVEQ.L #0x00,D7>                                        {}
        <POP 22910-22924 Naked>                              Σ0         ↓ →0x22910 ←0x22910
            <MI 22910  MOVE.B  D7,D0>                                           {}
            <MI 22912  EXTB.W  D0>                                              {}
            <MI 22914  ASL.W   #0x1,D0>                                         {}
            <MI 22916  LEA.L   (A6-0x88),A0>                                    {}
            <MI 2291a  MOVE.W  #0x01,(A0+D0.W+#0xe)>                            {}
            <MI 2291e  ADDQ.B  #0x1,D7>                                         {}
            <MI 22920  CMP.B   #0x0f,D7>                                        {}
            <MI 22922  BLE     0x22910>                                         {}
        <POP 22924-229e6 Naked>                              Σ0 Δ-4     ↓ →0x229f0
            <POP 22924-22926 StackAdj>                       Δ-12               {[-12-]}
            <MI 22926  CLR.L   D0>                                              {[-12-]}
            <MI 22928  MOVE.W  (A6-0x5a),D0>                                    {[-12-]}
            <MI 2292a  MOVE.L  D0,-(A7)>                     Δ-4                {[-12-]|[4, 'D0']}
            <Call 0x2292c 0x10354>                                              {[-12-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 22932-22934 StackAdj>                       Δ+4                {[-12-]}
            <Const 0x22934 0x10.4>                           Δ-4                {[-12-]|[##16]}
            <Call 0x22938 0x1035c>                                              {[-12-]|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 2293e-22940 StackAdj>                       Δ+12               {[-4-]}
            <Call 0x22940 0x2194c>                                              {[-4-]}
            <POP 22944-22946 StackAdj>                       Δ+2                {[-2-]}
            <MI 22946  MOVE.W  (A6-0x5a),(A7)>                                  {[2, '(A6-0x5a)']}
            <Pointer.fp 0x22948 <LVAR -0x058 @>>             Δ-4                {[2, '(A6-0x5a)']|[@@-88]}
            <Call 0x2294c 0x211ea>                                              {[2, '(A6-0x5a)']|[@@-88]}
            <POP 22950-22952 StackAdj>                       Δ+6                {}
            <MI 22952  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22956  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x22958 [86] (A6-0x58)>                    Δ-86               {[4, 'A0']|[«86»]}
            <MI 2296a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']}
            <POP 2296e-22970 StackAdj>                       Δ-8                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <MI 22970  MOVEA.L A7,A1>                                           {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <MI 22972  MOVEA.L A0,A2>                                           {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <BlockMove 8,A2,A1>                                                 {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <Pointer.fp 0x2297c <LVAR -0x086 @ 4(r)>>        Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-134]}
            <Pointer.fp 0x22980 <LVAR -0x07a @>>             Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-134]|[@@-122]}
            <Call 0x22984 0x21a28>                                              {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-134]|[@@-122]}
            <POP 22988-22989 StackAdj>                       Δ+106      ↓       {[4, 'A0']}
            <Blob 0x22989 [86] (A6-0x58)>                    Δ-86               {[4, 'A0']|[«86»]}
            <MI 2299a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']}
            <POP 2299e-229a0 StackAdj>                       Δ-8                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <MI 229a0  MOVEA.L A7,A1>                                           {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <MI 229a2  MOVEA.L A0,A2>                                           {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <BlockMove 8,A2,A1>                                                 {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <Pointer.fp 0x229ac <LVAR -0x082 @ 4(r)>>        Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]}
            <Pointer.fp 0x229b0 <LVAR -0x07a @>>             Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]}
            <Pointer.fp 0x229b4 <LVAR -0x07e @ 4(r)>>        Δ-4                {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]|[@@-126]}
            <Call 0x229b8 0x21b9e>                                              {[4, 'A0']|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]|[@@-126]}
            <POP 229bc-229c0 StackAdj>                       Δ+100              {[4, 'A0']|[-10-]}
            <MI 229c0  MOVEA.L A7,A1>                                           {[4, 'A0']|[-10-]}
            <MI 229c2  MOVEA.L A0,A2>                                           {[4, 'A0']|[-10-]}
            <BlockMove 8,A2,A1>                                                 {[4, 'A0']|[-10-]}
            <MI 229cc  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, 'A0']|[-10-]|[4, '(A6+0x14)']}
            <Blob 0x229d0 [32] (A6-0x5a)>                    Δ-32               {[4, 'A0']|[-10-]|[4, '(A6+0x14)']|[«32»]}
            <Call 0x229da 0x22184>                                              {[4, 'A0']|[-10-]|[4, '(A6+0x14)']|[«32»]}
            <POP 229de-229e2 StackAdj>                       Δ+44               {[4, 'A0']|[-2-]}
            <MI 229e2  TST.B   (A7)+>                        Δ+2                {[4, 'A0']}
            <MI 229e4  BEQ     0x229f0>                                         {[4, 'A0']}
        <POP 229e6-229f0 Naked>                              Σ-4        →0x22aa0
            <MI 229e6  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 229e8  MOVE.B  #0x12,(A0)>                                      {[-4-]}
            <MI 229ec  BRA     0x22aa0>                                         {[-4-]}
        <POP 229f0-229f8 Naked>                              Σ-4        ↓ →0x22a72 ←0x22924
            <MI 229f0  MOVE.L  (A6+0x14),D0>                                    {[-4-]}
            <MI 229f4  CMP.L   #0x01,D0>                                        {[-4-]}
            <MI 229f6  BNE     0x22a72>                                         {[-4-]}
        <POP 229f8-22a14 Naked>                              Σ-4        ↓ →0x22a44
            <POP 229f8-229fa StackAdj>                       Δ-8                {[-12-]}
            <MI 229fa  MOVEA.L A7,A1>                                           {[-12-]}
            <MI 229fc  MOVEA.L A0,A2>                                           {[-12-]}
            <BlockMove 8,A2,A1>                                                 {[-12-]}
            <Call 0x22a06 0x21990>                                              {[-12-]}
            <POP 22a0a-22a0c StackAdj>                       Δ+8                {[-4-]}
            <MI 22a0c  MOVE.L  (A6-0x7e),D0>                                    {[-4-]}
            <MI 22a10  CMP.L   #0x03,D0>                                        {[-4-]}
            <MI 22a12  BHI     0x22a44>                                         {[-4-]}
        <POP 22a14-22a1e Naked>                              Σ-4        →0x22a26 →0x22a2c →0x22a34 →0x22a3c
            <MI 22a14  ADD.W   D0,D0>                                           {[-4-]}
            <MI 22a16  SWITCH  D0.W>                                            {[-4-]}
        <POP 22a26-22a2c Naked>                              Σ-4        →0x22a48 ←0x22a14
            <MI 22a26  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a28  MOVE.B  #0x0d,(A0)>                                      {[-4-]}
            <MI 22a2a  BRA     0x22a48>                                         {[-4-]}
        <POP 22a2c-22a34 Naked>                              Σ-4        →0x22a48 ←0x22a14
            <MI 22a2c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a2e  MOVE.B  #0x09,(A0)>                                      {[-4-]}
            <MI 22a32  BRA     0x22a48>                                         {[-4-]}
        <POP 22a34-22a3c Naked>                              Σ-4        →0x22a48 ←0x22a14
            <MI 22a34  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a36  MOVE.B  #0x0a,(A0)>                                      {[-4-]}
            <MI 22a3a  BRA     0x22a48>                                         {[-4-]}
        <POP 22a3c-22a44 Naked>                              Σ-4        →0x22a48 ←0x22a14
            <MI 22a3c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a3e  MOVE.B  #0x0b,(A0)>                                      {[-4-]}
            <MI 22a42  BRA     0x22a48>                                         {[-4-]}
        <POP 22a44-22a48 Naked>                              Σ-4        ↓ ←0x229f8
            <MI 22a44  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a46  MOVE.B  #0x0c,(A0)>                                      {[-4-]}
        <POP 22a48-22a50 Naked>                              Σ-4        ↓ →0x22a70 ←0x22a26 ←0x22a2c ←0x22a34 ←0x22a3c
            <MI 22a48  MOVE.L  (A6-0x7e),D0>                                    {[-4-]}
            <MI 22a4c  CMP.L   #0x01,D0>                                        {[-4-]}
            <MI 22a4e  BLT     0x22a70>                                         {[-4-]}
        <POP 22a50-22a54 Naked>                              Σ-4        ↓ →0x22a70
            <MI 22a50  CMP.L   #0x03,D0>                                        {[-4-]}
            <MI 22a52  BGT     0x22a70>                                         {[-4-]}
        <POP 22a54-22a70 Naked>                              Σ-4        ↓
            <MI 22a54  CLR.L   D0>                                              {[-4-]}
            <MI 22a56  MOVE.W  (A6-0x5a),D0>                                    {[-4-]}
            <MI 22a58  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 22a5a  MOVEA.L (A7+0x4),A0>                                     {[-4-]|[4, 'D0']}
            <POP 22a5e-22a60 StackAdj>                       Δ-8                {[-4-]|[4, 'D0']|[-8-]}
            <MI 22a60  MOVEA.L A7,A1>                                           {[-4-]|[4, 'D0']|[-8-]}
            <BlockMove 8,A0,A1>                                                 {[-4-]|[4, 'D0']|[-8-]}
            <Call 0x22a6a 0x21d30>                                              {[-4-]|[4, 'D0']|[-8-]}
            <POP 22a6e-22a70 StackAdj>                       Δ+12               {[-4-]}
        <POP 22a70-22a72 Naked>                              Σ-4        →0x22aa0 ←0x22a48 ←0x22a50
            <MI 22a70  BRA     0x22aa0>                                         {[-4-]}
        <POP 22a72-22a78 Naked>                              Σ-4        ↓ →0x22a80 ←0x229f0
            <MI 22a72  CMP.L   (A6-0x86),D0>                                    {[-4-]}
            <MI 22a76  BNE     0x22a80>                                         {[-4-]}
        <POP 22a78-22a80 Naked>                              Σ-4        →0x22aa0
            <MI 22a78  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a7a  MOVE.B  #0x0e,(A0)>                                      {[-4-]}
            <MI 22a7e  BRA     0x22aa0>                                         {[-4-]}
        <POP 22a80-22a86 Naked>                              Σ-4        ↓ →0x22a8e ←0x22a72
            <MI 22a80  TST.L   (A6-0x86)>                                       {[-4-]}
            <MI 22a84  BEQ     0x22a8e>                                         {[-4-]}
        <POP 22a86-22a8e Naked>                              Σ-4        →0x22aa0
            <MI 22a86  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a88  MOVE.B  #0x11,(A0)>                                      {[-4-]}
            <MI 22a8c  BRA     0x22aa0>                                         {[-4-]}
        <POP 22a8e-22a94 Naked>                              Σ-4        ↓ →0x22a9a ←0x22a80
            <MI 22a8e  CMP.L   (A6-0x82),D0>                                    {[-4-]}
            <MI 22a92  BNE     0x22a9a>                                         {[-4-]}
        <POP 22a94-22a9a Naked>                              Σ-4        →0x22aa0
            <MI 22a94  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a96  MOVE.B  #0x0f,(A0)>                                      {[-4-]}
            <MI 22a98  BRA     0x22aa0>                                         {[-4-]}
        <POP 22a9a-22aa0 Naked>                              Σ-4        ↓ ←0x22a8e
            <MI 22a9a  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22a9c  MOVE.B  #0x10,(A0)>                                      {[-4-]}
        <POP 22aa0-22aaa Naked>                              Σ-4        ↓ →0x22b04 ←0x229e6 ←0x22a70 ←0x22a78 ←0x22a86 ←0x22a94
            <MI 22aa0  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 22aa2  CLR.L   D0>                                              {[-4-]}
            <MI 22aa4  MOVE.B  (A0),D0>                                         {[-4-]}
            <MI 22aa6  CMP.W   #0x0f,D0>                                        {[-4-]}
            <MI 22aa8  BEQ     0x22b04>                                         {[-4-]}
        <POP 22aaa-22aae Naked>                              Σ-4        ↓ →0x22b04
            <MI 22aaa  CMP.W   #0x0d,D0>                                        {[-4-]}
            <MI 22aac  BEQ     0x22b04>                                         {[-4-]}
        <POP 22aae-22b02 Naked>                              Σ-4        ↓ →0x22b04
            <Call 0x22aae 0x221fa>                                              {[-4-]}
            <MI 22ab2  MOVE.W  (A6-0x5a),-(A7)>              Δ-2                {[-4-]|[2, '(A6-0x5a)']}
            <Pointer.fp 0x22ab4 <LVAR -0x058 @>>             Δ-4                {[-4-]|[2, '(A6-0x5a)']|[@@-88]}
            <Call 0x22ab8 0x211ea>                                              {[-4-]|[2, '(A6-0x5a)']|[@@-88]}
            <POP 22abc-22abd StackAdj>                       Δ+6        ↓       {[-4-]}
            <Blob 0x22abd [86] (A6-0x58)>                    Δ-86               {[-4-]|[«86»]}
            <MI 22ace  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[«86»]|[4, '(A6+0x14)']}
            <MI 22ad2  MOVEA.L (A7+0x5a),A0>                                    {[-4-]|[«86»]|[4, '(A6+0x14)']}
            <POP 22ad6-22ad8 StackAdj>                       Δ-8                {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <MI 22ad8  MOVEA.L A7,A1>                                           {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <BlockMove 8,A0,A1>                                                 {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]}
            <Pointer.fp 0x22ae2 <LVAR -0x082 @ 4(r)>>        Δ-4                {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]}
            <Pointer.fp 0x22ae6 <LVAR -0x07a @>>             Δ-4                {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]}
            <Pointer.fp 0x22aea <LVAR -0x07e @ 4(r)>>        Δ-4                {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]|[@@-126]}
            <Call 0x22aee 0x21b9e>                                              {[-4-]|[«86»]|[4, '(A6+0x14)']|[-8-]|[@@-130]|[@@-122]|[@@-126]}
            <POP 22af2-22af6 StackAdj>                       Δ+110              {[-4-]}
            <MI 22af6  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 22afa  CLR.B   (A0)>                                            {[-4-]}
            <MI 22afc  TST.L   (A6-0x7e)>                                       {[-4-]}
            <MI 22b00  BNE     0x22b04>                                         {[-4-]}
        <POP 22b02-22b04 Naked>                              Σ-4        ↓
            <MI 22b02  ADDQ.B  #0x1,(A0)>                                       {[-4-]}
        <POP 22b04-22b06 Naked>                              Σ-4 Δ+4    ↓ ←0x22aa0 ←0x22aaa ←0x22aae
            <POP 22b04-22b06 StackAdj>                       Δ+4                {}
        <POP 22b06-22b0e Epilogue>                           Σ0         

0x22b0e


@ 22b0e
START
    <POP 22b0e--0001 Body>                                              
        <POP 22b0e-22b18 Prologue>                           Σ0         
        <POP 22b18-22b30 RegCacheLoad>                       Σ0         ↓
        <POP 22b30-22b62 Naked>                              Σ0         ↓
            <Call 0x22b30 0x10398>                                              {}
                FSCALL_10398
            <Const 0x22b36 0x0.4>                            Δ-4                {[##0]}
            <Call 0x22b3a 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 22b40-22b42 StackAdj>                       Δ+4                {}
            <Const 0x22b42 0x23300.4>                        Δ-4                {[##144128]}
            <Const 0x22b48 0x2330b.4>                        Δ-4                {[##144128]|[##144139]}
            <Call 0x22b4a 0x224ca>                                              {[##144128]|[##144139]}
            <POP 22b4e-22b50 StackAdj>                       Δ+8                {}
            <Const 0x22b50 0x232f2.4>                        Δ-4                {[##144114]}
            <Call 0x22b56 0x102b8>                                              {[##144114]}
                NewString(VAR a : String)
            <POP 22b5c-22b5e StackAdj>                       Δ+4                {}
            <MI 22b5e  CLR.B   0x2330a>                                         {}
            <MI 22b60  MOVEQ.L #0x00,D0>                                        {}
        <POP 22b62-22b7e Naked>                              Σ0         ↓ →0x22b62 ←0x22b62
            <MI 22b62  MOVE.L  D0,0x23306>                                      {}
            <POP 0x22b68 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 22b6e  LEA.L   0x232de,A0>                                      {}
            <MI 22b74  CLR.B   (A0+D0.L+#0x19)>                                 {}
            <MI 22b78  ADDQ.L  #0x1,D0>                                         {}
            <MI 22b7a  CMP.L   #0x07,D0>                                        {}
            <MI 22b7c  BLE     0x22b62>                                         {}
        <POP 22b7e-22bac Naked>                              Σ0         ↓ →0x22bf0
            <Call 0x22b7e 0x20b48>                                              {}
            <POP 22b82-22b83 StackAdj>                       Δ-4        ↓       {[-4-]}
            <Blob 0x22b83 [8] 0x2330b>                       Δ-8                {[-4-]|[«8»]}
            <Call 0x22b90 0x22146>                                              {[-4-]|[«8»]}
            <POP 22b94-22b96 StackAdj>                       Δ+8                {[-4-]}
            <MI 22b96  MOVE.L  (A7)+,0x23302>                Δ+4                {}
            <MI 22b9c  MOVE.B  0x23300,D0>                                      {}
            <MI 22ba2  EXTB.W  D0>                                              {}
            <MI 22ba4  SUBQ.W  #0x3,D0>                                         {}
            <MI 22ba6  CMPI.W  #0x0002,D0>                                      {}
            <MI 22baa  BHI     0x22bf0>                                         {}
        <POP 22bac-22bb6 Naked>                              Σ0         →0x22bc8 →0x22bda →0x22bbc
            <MI 22bac  ADD.W   D0,D0>                                           {}
            <MI 22bae  SWITCH  D0.W>                                            {}
        <POP 22bbc-22bc8 Naked>                              Σ0         →0x22c24 ←0x22bac
            <Const 0x22bbc 0x2330a.4>                        Δ-4                {[##144138]}
            <Const 0x22bbe 0x232f6.4>                        Δ-4                {[##144138]|[##144118]}
            <Call 0x22bc0 0x225c8>                                              {[##144138]|[##144118]}
            <POP 22bc4-22bc6 StackAdj>                       Δ+8                {}
            <MI 22bc6  BRA     0x22c24>                                         {}
        <POP 22bc8-22bda Naked>                              Σ0         →0x22c24 ←0x22bac
            <Blob 0x22bc8 [4] 0x23302>                       Δ-4                {[«4»]}
            <Const 0x22bce 0x232f6.4>                        Δ-4                {[«4»]|[##144118]}
            <Const 0x22bd0 0x2330b.4>                        Δ-4                {[«4»]|[##144118]|[##144139]}
            <Call 0x22bd2 0x22746>                                              {[«4»]|[##144118]|[##144139]}
            <POP 22bd6-22bd8 StackAdj>                       Δ+12               {}
            <MI 22bd8  BRA     0x22c24>                                         {}
        <POP 22bda-22bf0 Naked>                              Σ0         →0x22c24 ←0x22bac
            <Blob 0x22bda [4] 0x23302>                       Δ-4                {[«4»]}
            <Const 0x22be0 0x2330a.4>                        Δ-4                {[«4»]|[##144138]}
            <Const 0x22be2 0x232f6.4>                        Δ-4                {[«4»]|[##144138]|[##144118]}
            <Const 0x22be4 0x2330b.4>                        Δ-4                {[«4»]|[##144138]|[##144118]|[##144139]}
            <Call 0x22be6 0x228de>                                              {[«4»]|[##144138]|[##144118]|[##144139]}
            <POP 22bea-22bee StackAdj>                       Δ+16               {}
            <MI 22bee  BRA     0x22c24>                                         {}
        <POP 22bf0-22c24 Naked>                              Σ0         ↓ ←0x22b7e
            <Blob 0x22bf0 [40] @>                            Δ-40               {[«40""»]}
            <Const 0x22c02 0xe.2>                            Δ-2                {[«40""»]|[#14]}
            <POP 22c06-22c08 StackAdj>                       Δ-4                {[«40""»]|[#14]|[-4-]}
            <Lit 0x22c08 39>                                                    {[«40""»]|[#14]|[$$Post mortem invocation error (EMWCSP-3)]}
            <Call 0x22c1a 0x103b8>                                              {[«40""»]|[#14]|[$$Post mortem invocation error (EMWCSP-3)]}
                PopProgram(status : Byte; msg : String)
            <POP 22c20-22c24 StackAdj>                       Δ+46               {}
        <POP 22c24-22c28 Naked>                              Σ0         ↓ →0x22c52 ←0x22bbc ←0x22bc8 ←0x22bda
            <MI 22c24  TST.B   0x2330a>                                         {}
            <MI 22c26  BEQ     0x22c52>                                         {}
        <POP 22c28-22c52 Naked>                              Σ0         →0x22c7a
            <Blob 0x22c28 [44] @>                            Δ-44               {[«44""»]}
            <POP 22c34-22c36 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x22c36 44>                                                    {[«44""»]|[$$Reloading from the file fixed the bad bit(s)]}
            <Call 0x22c48 0x2194c>                                              {[«44""»]|[$$Reloading from the file fixed the bad bit(s)]}
            <POP 22c4c-22c50 StackAdj>                       Δ+48               {}
            <MI 22c50  BRA     0x22c7a>                                         {}
        <POP 22c52-22c7a Naked>                              Σ0         ↓ ←0x22c24
            <Blob 0x22c52 [54] @>                            Δ-54               {[«54""»]}
            <POP 22c5e-22c60 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x22c60 54>                                                    {[«54""»]|[$$Reloading from the file did NOT fix all the bad bit(s)]}
            <Call 0x22c72 0x2194c>                                              {[«54""»]|[$$Reloading from the file did NOT fix all the bad bit(s)]}
            <POP 22c76-22c7a StackAdj>                       Δ+58               {}
        <POP 22c7a-22cea Naked>                              Σ0         ↓ ←0x22c28
            <Const 0x22c7a 0x232ff.4>                        Δ-4                {[##144127]}
            <Const 0x22c80 0x232f7.4>                        Δ-4                {[##144127]|[##144119]}
            <Const 0x22c86 0x232f6.4>                        Δ-4                {[##144127]|[##144119]|[##144118]}
            <Blob 0x22c88 [2] 0x2330a>                       Δ-2                {[##144127]|[##144119]|[##144118]|[«2»]}
            <Blob 0x22c8a [8] 0x2330b>                       Δ-8                {[##144127]|[##144119]|[##144118]|[«2»]|[«8»]}
            <Call 0x22c98 0x222e0>                                              {[##144127]|[##144119]|[##144118]|[«2»]|[«8»]}
            <POP 22c9c-22ca0 StackAdj>                       Δ+20               {[-2-]}
            <POP 22ca0-22ca1 StackAdj>                       Δ+2                {}
            <Blob 0x22ca1 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x22ca4 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x22ca8 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x22cac [2] 0x232ff>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«2»]}
            <POP 22cb2-22cb4 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[-4-]}
            <Lit 0x22cb4 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]}
            <POP 22cc4-22cc6 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]|[-4-]}
            <POP 22cc6-22cc7 StackAdj>                       Δ+4                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]}
            <Blob 0x22cc7 [4] 0x232f2>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]|[«4»]}
            <Blob 0x22ccc [2] 0x232f6>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]|[«4»]|[«2»]}
            <Blob 0x22cce [8] 0x232f7>                       Δ-8                {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]|[«4»]|[«2»]|[«8»]}
            <Call 0x22ce0 0x1054a>                                              {[«2""»]|[«2""»]|[«2""»]|[«2»]|[$$EMWCSP]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 22ce6-22cea StackAdj>                       Δ+26               {}
        <POP 22cea-22cf0 Naked>                              Σ0         
            <Call 0x22cea 0x10284>                                              {}
                ?exit

0x230e6


@ 230e6
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 230e6-2314e Body>                                              
        <POP 230e6-230fc Prologue>                           Σ0         ↓
        <POP 230fc-23146 Naked>                              Σ0         ↓
            <Blob 0x230fc [14] @>                            Δ-14               {[«14""»]}
            <Const 0x23108 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 2310c-2310e StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2310e 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 23120-23122 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23122  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23126  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23128  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2312a  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x2312c 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 23132-23134 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x23134 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2313a-2313c StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x2313c 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 23142-23146 StackAdj>                       Δ+20               {}
        <POP 23146-2314e Epilogue>                           Σ0         

0x231a2


@ 231a2
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 231a2-232de Body>                                              
        <POP 231a2-231b8 Prologue>                           Σ0         ↓
        <POP 231b8-231ce RegCacheLoad>                       Σ0         ↓
        <POP 231ce-2322e Naked>                              Σ0         ↓ →0x23276
            <Call 0x231ce 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x231d4 [18] @>                            Δ-18               {[«18""»]}
            <POP 231e0-231e2 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x231e2 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x231ee 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 231f0-231f1 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x231f1 [14] @>                            Δ-14               {[«14""»]}
            <POP 23200-23202 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23202 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2320c-2320e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2320e  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x23212 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 23218-2321a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x2321a 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23220-23222 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23222 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23224-23226 StackAdj>                       Δ+18               {}
            <MI 23226  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 2322a  CMPA.W  #0x01,A0>                                        {}
            <MI 2322c  BEQ     0x23276>                                         {}
        <POP 2322e-23276 Naked>                              Σ0         ↓
            <Blob 0x2322e [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2323e [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2324e-23250 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x23250 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2325a-2325c StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2325c>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2325c 12>                      Δ-4        
                <Const 0x23260 0x1.2>                        Δ-2        
                <Const 0x23262 0x1e.2>                       Δ-2        
                <Call 0x23264 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23266-23268 StackAdj>                   Δ+8        
            <Call 0x23268 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2326e-23270 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x23270 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23272-23276 StackAdj>                       Δ+48               {}
        <POP 23276-232d6 Naked>                              Σ0         ↓ ←0x231ce
            <Blob 0x23276 [14] @>                            Δ-14               {[«14""»]}
            <POP 23286-23288 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23288 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 23292-23294 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 23294  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x23298 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2329e-232a0 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x232a0 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 232a6-232a8 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x232a8 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 232aa-232ab StackAdj>                       Δ+18       ↓       {}
            <Blob 0x232ab [24] @>                            Δ-24               {[«24""»]}
            <Const 0x232ba 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 232be-232c0 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x232c0 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x232ce 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 232d4-232d6 StackAdj>                       Δ+30               {}
        <POP 232d6-232de Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.e297c619768ea2f2
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 2b 0e              |  +     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 33 26              |  3&    |		.PTR	0x23326
00020010					code.end:
00020010 00 02 32 de              |  2     |		.PTR	0x232de
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 30 e6              |  0     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 31 a2              |  1     |		.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 53 42 55 53 55 4c 4f 41  |SBUSULOA|		.TXT	'SBUSULOAD '
00020114 44 42 55 53 55 4c 4f 41  |DBUSULOA|		.TXT	'DBUSULOAD '
0002011e 40 28                    |@(      |		.XXX[0x2]
00020120 23 29 45 4d 57 43 53 50  |#)EMWCSP|		.XXX[0x480]
00020128 2c 33 2e 31 2c 39 32 2f  |,3.1,92/|
00020130 30 38 2f 32 36 2c 31 36  |08/26,16|
00020138 3a 31 37 3a 30 30 5c 20  |:17:00\ |
00020140 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020148 4a 32 37 20 4b 32 37 20  |J27 K27 |
00020150 4a 32 36 20 4b 32 36 20  |J26 K26 |
00020158 4a 32 35 20 4b 32 35 20  |J25 K25 |
00020160 4a 32 34 20 4b 32 34 20  |J24 K24 |
00020168 4a 32 33 20 4b 32 33 20  |J23 K23 |
00020170 4a 32 32 20 4b 32 32 20  |J22 K22 |
00020178 4a 32 31 20 4b 32 31 20  |J21 K21 |
00020180 4a 33 38 20 4a 33 32 20  |J38 J32 |
00020188 4a 33 31 20 4b 33 32 20  |J31 K32 |
00020190 4a 33 36 20 4b 33 36 20  |J36 K36 |
00020198 4a 33 33 20 4b 33 33 20  |J33 K33 |
000201a0 2d 2d 2d 20 4b 33 31 20  |--- K31 |
000201a8 4a 33 30 20 4b 33 30 20  |J30 K30 |
000201b0 4a 32 39 20 4b 32 39 20  |J29 K29 |
000201b8 4a 32 38 20 4b 32 38 20  |J28 K28 |
000201c0 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
000201c8 4a 33 37 20 4b 33 37 20  |J37 K37 |
000201d0 4b 33 34 20 4a 33 34 20  |K34 J34 |
000201d8 4a 33 35 20 4b 33 35 20  |J35 K35 |
000201e0 2d 2d 2d 20 4a 34 31 20  |--- J41 |
000201e8 4b 34 31 20 4a 34 30 20  |K41 J40 |
000201f0 4b 34 30 20 4a 33 39 20  |K40 J39 |
000201f8 4b 33 39 20 4b 33 38 20  |K39 K38 |
00020200 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020208 44 31 39 20 45 31 39 20  |D19 E19 |
00020210 46 31 39 20 47 31 39 20  |F19 G19 |
00020218 44 31 39 20 45 31 39 20  |D19 E19 |
00020220 47 31 39 20 44 31 39 20  |G19 D19 |
00020228 45 31 39 20 46 31 39 20  |E19 F19 |
00020230 44 31 39 20 45 31 39 20  |D19 E19 |
00020238 46 31 39 20 2d 2d 2d 20  |F19 --- |
00020240 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020248 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020250 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020258 48 31 38 20 49 31 38 20  |H18 I18 |
00020260 2d 2d 2d 20 47 31 39 20  |--- G19 |
00020268 2d 2d 2d 20 47 31 39 20  |--- G19 |
00020270 46 31 39 20 48 31 38 20  |F19 H18 |
00020278 48 31 38 20 48 31 38 20  |H18 H18 |
00020280 2d 2d 2d 20 49 31 38 20  |--- I18 |
00020288 49 31 38 20 49 31 38 20  |I18 I18 |
00020290 49 30 32 20 49 30 32 20  |I02 I02 |
00020298 49 30 32 20 49 30 32 20  |I02 I02 |
000202a0 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
000202a8 44 32 30 20 45 32 30 20  |D20 E20 |
000202b0 46 32 30 20 47 32 30 20  |F20 G20 |
000202b8 44 32 30 20 45 32 30 20  |D20 E20 |
000202c0 47 32 30 20 44 32 30 20  |G20 D20 |
000202c8 45 32 30 20 46 32 30 20  |E20 F20 |
000202d0 44 32 30 20 45 32 30 20  |D20 E20 |
000202d8 46 32 30 20 2d 2d 2d 20  |F20 --- |
000202e0 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
000202e8 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
000202f0 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
000202f8 48 31 39 20 49 31 39 20  |H19 I19 |
00020300 2d 2d 2d 20 47 32 30 20  |--- G20 |
00020308 2d 2d 2d 20 47 32 30 20  |--- G20 |
00020310 46 32 30 20 48 31 39 20  |F20 H19 |
00020318 48 31 39 20 48 31 39 20  |H19 H19 |
00020320 2d 2d 2d 20 49 31 39 20  |--- I19 |
00020328 49 31 39 20 49 31 39 20  |I19 I19 |
00020330 48 30 32 20 48 30 32 20  |H02 H02 |
00020338 48 30 32 20 48 30 32 20  |H02 H02 |
00020340 45 33 39 20 45 33 39 20  |E39 E39 |
00020348 45 33 39 20 45 33 39 20  |E39 E39 |
00020350 45 33 38 20 45 33 38 20  |E38 E38 |
00020358 45 33 38 20 45 33 38 20  |E38 E38 |
00020360 45 33 37 20 45 33 37 20  |E37 E37 |
00020368 45 33 37 20 45 33 37 20  |E37 E37 |
00020370 45 33 36 20 45 33 36 20  |E36 E36 |
00020378 45 33 36 20 45 33 36 20  |E36 E36 |
00020380 2d 2d 2d 20 4c 31 34 20  |--- L14 |
00020388 4c 31 35 20 4c 31 36 20  |L15 L16 |
00020390 4c 31 37 20 4c 31 38 20  |L17 L18 |
00020398 4c 31 39 20 4c 32 30 20  |L19 L20 |
000203a0 2d 2d 2d 20 4c 32 31 20  |--- L21 |
000203a8 4c 30 36 20 4c 30 37 20  |L06 L07 |
000203b0 4c 30 38 20 4c 30 39 20  |L08 L09 |
000203b8 4c 31 30 20 4c 31 31 20  |L10 L11 |
000203c0 4c 31 32 20 4c 31 33 20  |L12 L13 |
000203c8 4c 32 32 20 4c 32 33 20  |L22 L23 |
000203d0 4c 32 34 20 4c 32 35 20  |L24 L25 |
000203d8 4c 30 35 20 4c 30 34 20  |L05 L04 |
000203e0 4c 33 35 20 4c 33 36 20  |L35 L36 |
000203e8 4c 33 37 20 4c 33 38 20  |L37 L38 |
000203f0 4c 33 39 20 4c 34 31 20  |L39 L41 |
000203f8 4c 34 30 20 4c 34 32 20  |L40 L42 |
00020400 2d 2d 2d 20 4c 32 38 20  |--- L28 |
00020408 4c 32 39 20 4c 33 30 20  |L29 L30 |
00020410 4c 33 31 20 4c 33 32 20  |L31 L32 |
00020418 4c 33 33 20 4c 33 34 20  |L33 L34 |
00020420 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020428 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020430 2d 2d 2d 20 2d 2d 2d 20  |--- --- |
00020438 4c 32 36 20 4c 32 37 20  |L26 L27 |
00020440 4c 32 33 20 4c 32 34 20  |L23 L24 |
00020448 4c 32 35 20 4c 32 36 20  |L25 L26 |
00020450 4c 32 37 20 4c 32 38 20  |L27 L28 |
00020458 4c 32 39 20 4c 33 30 20  |L29 L30 |
00020460 4c 33 31 20 4c 33 32 20  |L31 L32 |
00020468 4c 33 33 20 4c 33 34 20  |L33 L34 |
00020470 4b 32 35 20 4b 32 34 20  |K25 K24 |
00020478 4b 32 33 20 4b 32 32 20  |K23 K22 |
00020480 4a 32 35 20 4a 32 34 20  |J25 J24 |
00020488 4c 33 35 20 4c 33 36 20  |L35 L36 |
00020490 4c 33 37 20 4c 33 38 20  |L37 L38 |
00020498 4c 33 39 20 49 31 38 20  |L39 I18 |
000204a0 49 31 39 20 4b 31 39 20  |I19 K19 |
000204a8 4a 32 30 20 4a 31 39 20  |J20 J19 |
000204b0 4a 31 38 20 4a 32 33 20  |J18 J23 |
000204b8 4a 32 32 20 49 32 35 20  |J22 I25 |
000204c0 49 32 34 20 49 32 33 20  |I24 I23 |
000204c8 49 32 32 20 49 32 31 20  |I22 I21 |
000204d0 4a 32 31 20 4b 32 31 20  |J21 K21 |
000204d8 4b 32 30 20 49 32 30 20  |K20 I20 |
000204e0 4c 32 33 20 4c 32 34 20  |L23 L24 |
000204e8 4c 32 35 20 4c 32 36 20  |L25 L26 |
000204f0 4c 32 37 20 4c 32 38 20  |L27 L28 |
000204f8 4c 32 39 20 4c 33 30 20  |L29 L30 |
00020500 4c 33 31 20 4c 33 32 20  |L31 L32 |
00020508 4c 33 33 20 4c 33 34 20  |L33 L34 |
00020510 4c 33 35 20 4c 33 36 20  |L35 L36 |
00020518 4c 33 37 20 4c 33 38 20  |L37 L38 |
00020520 4c 33 39 20 49 31 38 20  |L39 I18 |
00020528 49 31 39 20 49 32 30 20  |I19 I20 |
00020530 4b 31 39 20 4a 32 30 20  |K19 J20 |
00020538 4a 31 39 20 4a 31 38 20  |J19 J18 |
00020540 4b 32 35 20 4b 32 34 20  |K25 K24 |
00020548 4b 32 33 20 4b 32 32 20  |K23 K22 |
00020550 4a 32 35 20 4a 32 34 20  |J25 J24 |
00020558 4a 32 33 20 4a 32 32 20  |J23 J22 |
00020560 49 32 35 20 49 32 34 20  |I25 I24 |
00020568 49 32 33 20 49 32 32 20  |I23 I22 |
00020570 49 32 31 20 4a 32 31 20  |I21 J21 |
00020578 4b 32 31 20 4b 32 30 20  |K21 K20 |
00020580 49 31 37 20 49 31 36 20  |I17 I16 |
00020588 49 31 35 20 49 31 34 20  |I15 I14 |
00020590 4c 31 36 20 4c 31 35 20  |L16 L15 |
00020598 4c 31 34 20 2d 2d 2d 20  |L14 --- |
000205a0 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
000205aa 49 6e 63 6f 6e 73 69 73  |Inconsis|		.TXT	'Inconsistent microcode file size. '
000205cc 42 4f 41 52              |BOAR    |		.XXX[0x4]
000205d0 44 5f 56 41 4c 55 45 5f  |D_VALUE_|		.XXX[0x18]
000205d8 54 4f 5f 53 54 52 49 4e  |TO_STRIN|
000205e0 47 2c 20 56 61 6c 75 65  |G, Value|
000205e8 20 3d 5f 20              | =_     |		.XXX[0x4]
000205ec 53 45                    |SE      |		.TXT	'SE'
000205ee 51 20                    |Q       |		.XXX[0x2]
000205f0 46 49                    |FI      |		.TXT	'FI'
000205f2 55 20                    |U       |		.XXX[0x2]
000205f4 49 4f                    |IO      |		.TXT	'IO'
000205f6 43 20                    |C       |		.XXX[0x2]
000205f8 54 59                    |TY      |		.TXT	'TY'
000205fa 50 20                    |P       |		.XXX[0x2]
000205fc 56 41                    |VA      |		.TXT	'VA'
000205fe 4c 20                    |L       |		.XXX[0x2]
00020600 5c 20                    |\       |		.TXT	'\ '
00020602 50 6f 73 74 20 6d 6f 72  |Post mor|		.TXT	'Post mortem error (EMWCSP-4)'
0002061e 50 6f 73 74 20 6d 6f 72  |Post mor|		.TXT	'Post mortem invocation error (EMWCSP-2) '
00020646 53 45                    |SE      |		.TXT	'SE'
00020648 51 20                    |Q       |		.XXX[0x2]
0002064a 20 20 57 41 52 4e 49 4e  |  WARNIN|		.TXT	'  WARNING: a failing micro_PC of 16#'
0002066e 23 20 69 73 20 76 65 72  |# is ver|		.TXT	'# is very unusual!'
00020680 50 6f 73 74 20 6d 6f 72  |Post mor|		.TXT	'Post mortem invocation error (EMWCSP-3) '
000206a8 52 65 6c 6f 61 64 69 6e  |Reloadin|		.TXT	'Reloading from the file fixed the bad bit(s)'
000206d4 52 65 6c 6f 61 64 69 6e  |Reloadin|		.TXT	'Reloading from the file did NOT fix all the bad bit(s)'
0002070a 45 4d                    |EM      |		.TXT	'EM'
0002070c 57 43                    |WC      |		.TXT	'WC'
0002070e 53 50                    |SP      |		.TXT	'SP'
00020710 80 00 40 00 20 00 10 00  |  @     |		.XXX[0x20]
00020718 08 00 04 00 02 00 01 00  |        |
00020720 00 80 00 40 00 20 00 10  |   @    |
00020728 00 08 00 04 00 02 00 01  |        |
00020730 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020734 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020738 2d 2d 2d 2d 2d 2d 4a 32  |------J2|		.XXX[0xc0]
00020740 37 4b 32 37 4a 32 36 4b  |7K27J26K|
00020748 32 36 4a 32 35 4b 32 35  |26J25K25|
00020750 4a 32 34 4b 32 34 4a 32  |J24K24J2|
00020758 33 4b 32 33 4a 32 32 4b  |3K23J22K|
00020760 32 32 4a 32 31 4b 32 31  |22J21K21|
00020768 4a 33 38 4a 33 32 4a 33  |J38J32J3|
00020770 31 4b 33 32 4a 33 36 4b  |1K32J36K|
00020778 33 36 4a 33 33 4b 33 33  |36J33K33|
00020780 2d 2d 2d 4b 33 31 4a 33  |---K31J3|
00020788 30 4b 33 30 4a 32 39 4b  |0K30J29K|
00020790 32 39 4a 32 38 4b 32 38  |29J28K28|
00020798 2d 2d 2d 2d 2d 2d 4a 33  |------J3|
000207a0 37 4b 33 37 4b 33 34 4a  |7K37K34J|
000207a8 33 34 4a 33 35 4b 33 35  |34J35K35|
000207b0 2d 2d 2d 4a 34 31 4b 34  |---J41K4|
000207b8 31 4a 34 30 4b 34 30 4a  |1J40K40J|
000207c0 33 39 4b 33 39 4b 33 38  |39K39K38|
000207c8 2d 2d 2d 2d 2d 2d 44 31  |------D1|
000207d0 39 45 31 39 46 31 39 47  |9E19F19G|
000207d8 31 39 44 31 39 45 31 39  |19D19E19|
000207e0 47 31 39 44 31 39 45 31  |G19D19E1|
000207e8 39 46 31 39 44 31 39 45  |9F19D19E|
000207f0 31 39 46 31 39 2d 2d 2d  |19F19---|
000207f8 2d 2d 2d 2d 2d 2d 2d 2d  |--------|		.BLANK	2d[0x10]
00020808 2d 2d 48 31 38 49 31 38  |--H18I18|		.XXX[0x68]
00020810 2d 2d 2d 47 31 39 2d 2d  |---G19--|
00020818 2d 47 31 39 46 31 39 48  |-G19F19H|
00020820 31 38 48 31 38 48 31 38  |18H18H18|
00020828 2d 2d 2d 49 31 38 49 31  |---I18I1|
00020830 38 49 31 38 49 30 32 49  |8I18I02I|
00020838 30 32 49 30 32 49 30 32  |02I02I02|
00020840 2d 2d 2d 2d 2d 2d 44 32  |------D2|
00020848 30 45 32 30 46 32 30 47  |0E20F20G|
00020850 32 30 44 32 30 45 32 30  |20D20E20|
00020858 47 32 30 44 32 30 45 32  |G20D20E2|
00020860 30 46 32 30 44 32 30 45  |0F20D20E|
00020868 32 30 46 32 30 2d 2d 2d  |20F20---|
00020870 2d 2d 2d 2d 2d 2d 2d 2d  |--------|		.BLANK	2d[0x10]
00020880 2d 2d 48 31 39 49 31 39  |--H19I19|		.XXX[0xe0]
00020888 2d 2d 2d 47 32 30 2d 2d  |---G20--|
00020890 2d 47 32 30 46 32 30 48  |-G20F20H|
00020898 31 39 48 31 39 48 31 39  |19H19H19|
000208a0 2d 2d 2d 49 31 39 49 31  |---I19I1|
000208a8 39 49 31 39 48 30 32 48  |9I19H02H|
000208b0 30 32 48 30 32 48 30 32  |02H02H02|
000208b8 45 33 39 45 33 39 45 33  |E39E39E3|
000208c0 39 45 33 39 45 33 38 45  |9E39E38E|
000208c8 33 38 45 33 38 45 33 38  |38E38E38|
000208d0 45 33 37 45 33 37 45 33  |E37E37E3|
000208d8 37 45 33 37 45 33 36 45  |7E37E36E|
000208e0 33 36 45 33 36 45 33 36  |36E36E36|
000208e8 2d 2d 2d 4c 31 34 4c 31  |---L14L1|
000208f0 35 4c 31 36 4c 31 37 4c  |5L16L17L|
000208f8 31 38 4c 31 39 4c 32 30  |18L19L20|
00020900 2d 2d 2d 4c 32 31 4c 30  |---L21L0|
00020908 36 4c 30 37 4c 30 38 4c  |6L07L08L|
00020910 30 39 4c 31 30 4c 31 31  |09L10L11|
00020918 4c 31 32 4c 31 33 4c 32  |L12L13L2|
00020920 32 4c 32 33 4c 32 34 4c  |2L23L24L|
00020928 32 35 4c 30 35 4c 30 34  |25L05L04|
00020930 4c 33 35 4c 33 36 4c 33  |L35L36L3|
00020938 37 4c 33 38 4c 33 39 4c  |7L38L39L|
00020940 34 31 4c 34 30 4c 34 32  |41L40L42|
00020948 2d 2d 2d 4c 32 38 4c 32  |---L28L2|
00020950 39 4c 33 30 4c 33 31 4c  |9L30L31L|
00020958 33 32 4c 33 33 4c 33 34  |32L33L34|
00020960 2d 2d 2d 2d 2d 2d 2d 2d  |--------|		.BLANK	2d[0x10]
00020970 2d 2d                    |--      |		.BLANK	2d[0x2]
00020972 4c 32 36 4c 32 37        |L26L27  |		.XXX[0x6]
00020978 4c 32 33 4c 32 34 4c 32  |L23L24L2|		.XXX[0x108]
00020980 35 4c 32 36 4c 32 37 4c  |5L26L27L|
00020988 32 38 4c 32 39 4c 33 30  |28L29L30|
00020990 4c 33 31 4c 33 32 4c 33  |L31L32L3|
00020998 33 4c 33 34 4b 32 35 4b  |3L34K25K|
000209a0 32 34 4b 32 33 4b 32 32  |24K23K22|
000209a8 4a 32 35 4a 32 34 4c 33  |J25J24L3|
000209b0 35 4c 33 36 4c 33 37 4c  |5L36L37L|
000209b8 33 38 4c 33 39 49 31 38  |38L39I18|
000209c0 49 31 39 4b 31 39 4a 32  |I19K19J2|
000209c8 30 4a 31 39 4a 31 38 4a  |0J19J18J|
000209d0 32 33 4a 32 32 49 32 35  |23J22I25|
000209d8 49 32 34 49 32 33 49 32  |I24I23I2|
000209e0 32 49 32 31 4a 32 31 4b  |2I21J21K|
000209e8 32 31 4b 32 30 49 32 30  |21K20I20|
000209f0 4c 32 33 4c 32 34 4c 32  |L23L24L2|
000209f8 35 4c 32 36 4c 32 37 4c  |5L26L27L|
00020a00 32 38 4c 32 39 4c 33 30  |28L29L30|
00020a08 4c 33 31 4c 33 32 4c 33  |L31L32L3|
00020a10 33 4c 33 34 4c 33 35 4c  |3L34L35L|
00020a18 33 36 4c 33 37 4c 33 38  |36L37L38|
00020a20 4c 33 39 49 31 38 49 31  |L39I18I1|
00020a28 39 49 32 30 4b 31 39 4a  |9I20K19J|
00020a30 32 30 4a 31 39 4a 31 38  |20J19J18|
00020a38 4b 32 35 4b 32 34 4b 32  |K25K24K2|
00020a40 33 4b 32 32 4a 32 35 4a  |3K22J25J|
00020a48 32 34 4a 32 33 4a 32 32  |24J23J22|
00020a50 49 32 35 49 32 34 49 32  |I25I24I2|
00020a58 33 49 32 32 49 32 31 4a  |3I22I21J|
00020a60 32 31 4b 32 31 4b 32 30  |21K21K20|
00020a68 49 31 37 49 31 36 49 31  |I17I16I1|
00020a70 35 49 31 34 4c 31 36 4c  |5I14L16L|
00020a78 31 35 4c 31 34 2d 2d 2d  |15L14---|
00020a80 ; --------------------------------------------------------------------------------------
00020a80 ; OMSI PASCAL Function
00020a80 ;    <LVAR  0x016 1(r)>
00020a80 ;    <LVAR  0x012 4(r)>
00020a80 ;    <LVAR  0x010 1(r)>
00020a80 ;    <LVAR  0x00e 1(r)>
00020a80 ;    <LVAR  0x00c 1(r)>
00020a80 ;    <LVAR  0x008 4(r)>
00020a80 ;    <LVAR -0x004 @>
00020a80 ; --------------------------------------------------------------------------------------
00020a80 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020a84 bf d5                    |        |		CMPA.L	(A5),A7
00020a86 62 06                    |b       |		BHI	0x20a8e
00020a88 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a8c 4e 76                    |Nv      |		TRAPV
00020a8e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020a92 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00020a96 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
00020a9c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00020a9e 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020aa4 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00020aa8 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
00020aae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ab0 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00020ab4 4e 92                    |N       |		JSR	(A2)
00020ab6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ab8 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00020abc 66 0e                    |f       |		BNE	0x20acc
00020abe 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00020ac2 4e 92                    |N       |		JSR	(A2)
00020ac4 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
00020ac8 4e 92                    |N       |		JSR	(A2)
00020aca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020acc 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00020ad2 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00020ad6 67 12                    |g       |		BEQ	0x20aea
00020ad8 9e c1                    |        |		SUBA.W	D1,A7
00020ada 20 4f                    | O      |		MOVEA.L	A7,A0
00020adc 43 fa f6 2c              |C  ,    |		LEA.L	0x2010a,A1
00020ae0 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020ae2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ae4 51 c8 ff fc              |Q       |		DBF	D0,0x20ae2
00020ae8 60 10                    |`       |		BRA	0x20afa
00020aea 9e c1                    |        |		SUBA.W	D1,A7
00020aec 20 4f                    | O      |		MOVEA.L	A7,A0
00020aee 43 fa f6 24              |C  $    |		LEA.L	0x20114,A1
00020af2 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020af4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020af6 51 c8 ff fc              |Q       |		DBF	D0,0x20af4
00020afa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020afc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b00 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020b04 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020b08 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b10 48 78 00 01              |Hx      |		PEA.L	0x1
00020b14 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020b18 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020b1c 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020b22 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020b26 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020b2c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020b30 48 50                    |HP      |		PEA.L	(A0)
00020b32 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020b38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b3a 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020b40 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00020b44 4e 5e                    |N^      |		UNLK	A6
00020b46 4e 75                    |Nu      |		RTS
00020b48 ; --------------------------------------------------------------------------------------
00020b48 ; OMSI PASCAL Function
00020b48 ;    <LVAR -0x00a @ 4(r)>
00020b48 ;    <LVAR -0x00e @ 4(rw)>
00020b48 ;    <LVAR -0x40e @ 2(r)>
00020b48 ;    <LVAR -0x410 @>
00020b48 ; --------------------------------------------------------------------------------------
00020b48 4e 56 fb 88              |NV      |		LINK.W	A6,#0xfb88
00020b4c bf d5                    |        |		CMPA.L	(A5),A7
00020b4e 62 06                    |b       |		BHI	0x20b56
00020b50 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b54 4e 76                    |Nv      |		TRAPV
00020b56 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
00020b5a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b5e 45 f9 00 02 32 e6        |E   2   |		LEA.L	0x232e6,A2
00020b64 47 ee fb f0              |G       |		LEA.L	(A6-0x410),A3
00020b68 49 f9 00 02 32 ea        |I   2   |		LEA.L	0x232ea,A4
00020b6e 72 02                    |r       |		MOVEQ.L	#0x02,D1
00020b70 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020b72 41 fa fa 36              |A  6    |		LEA.L	0x205aa,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 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b80 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b84 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020b88 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00020b8c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b94 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00020b98 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020b9c 48 52                    |HR      |		PEA.L	(A2)
00020b9e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020ba4 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00020ba8 42 27                    |B'      |		CLR.B	-(A7)
00020baa 1f 01                    |        |		MOVE.B	D1,-(A7)
00020bac 48 78 00 00              |Hx      |		PEA.L	0x0
00020bb0 48 53                    |HS      |		PEA.L	(A3)
00020bb2 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020bb6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020bbc de c2                    |        |		ADDA.W	D2,A7
00020bbe 2e ae ff f6              |.       |		MOVE.L	(A6-0xa),(A7)
00020bc2 42 67                    |Bg      |		CLR.W	-(A7)
00020bc4 42 67                    |Bg      |		CLR.W	-(A7)
00020bc6 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00020bca 1f 01                    |        |		MOVE.B	D1,-(A7)
00020bcc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020bce 48 53                    |HS      |		PEA.L	(A3)
00020bd0 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020bd6 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020bda 42 17                    |B       |		CLR.B	(A7)
00020bdc 1f 01                    |        |		MOVE.B	D1,-(A7)
00020bde 48 78 00 01              |Hx      |		PEA.L	0x1
00020be2 48 53                    |HS      |		PEA.L	(A3)
00020be4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020be8 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020bee de c2                    |        |		ADDA.W	D2,A7
00020bf0 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020bf4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020bfa 2e 92                    |.       |		MOVE.L	(A2),(A7)
00020bfc 42 27                    |B'      |		CLR.B	-(A7)
00020bfe 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c00 48 78 00 00              |Hx      |		PEA.L	0x0
00020c04 48 53                    |HS      |		PEA.L	(A3)
00020c06 48 54                    |HT      |		PEA.L	(A4)
00020c08 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020c0e de c2                    |        |		ADDA.W	D2,A7
00020c10 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020c12 42 67                    |Bg      |		CLR.W	-(A7)
00020c14 42 67                    |Bg      |		CLR.W	-(A7)
00020c16 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020c1a 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c1c 41 ee fb f2              |A       |		LEA.L	(A6-0x40e),A0
00020c20 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c22 48 53                    |HS      |		PEA.L	(A3)
00020c24 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020c2a de fc 00 14              |        |		ADDA.W	#0x14,A7
00020c2e 20 54                    | T      |		MOVEA.L	(A4),A0
00020c30 3e 28 00 20              |>(      |		MOVE.W	(A0+0x20),D7
00020c34 3c 2e fb f2              |<.      |		MOVE.W	(A6-0x40e),D6
00020c38 42 80                    |B       |		CLR.L	D0
00020c3a 30 07                    |0       |		MOVE.W	D7,D0
00020c3c 53 80                    |S       |		SUBQ.L	#0x1,D0
00020c3e 04 80 00 00 00 28        |     (  |		SUBI.L	#0x00000028,D0
00020c44 28 00                    |(       |		MOVE.L	D0,D4
00020c46 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020c48 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00020c4e eb 84                    |        |		ASL.L	#0x5,D4
00020c50 0c 84 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D4
00020c56 63 02                    |c       |		BLS	0x20c5a
00020c58 4e 4f                    |NO      |		TRAP	#15
00020c5a 3a 04                    |:       |		MOVE.W	D4,D5
00020c5c bc 45                    | E      |		CMP.W	D5,D6
00020c5e 67 36                    |g6      |		BEQ	0x20c96
00020c60 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00020c64 20 4f                    | O      |		MOVEA.L	A7,A0
00020c66 43 fa f9 42              |C  B    |		LEA.L	0x205aa,A1
00020c6a 70 20                    |p       |		MOVEQ.L	#0x20,D0
00020c6c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c6e 51 c8 ff fc              |Q       |		DBF	D0,0x20c6c
00020c72 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020c76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c78 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020c7c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c80 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020c84 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c8c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020c92 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020c96 33 fc 01 00 00 02 32 ee  |3     2 |		MOVE.W	#0x100,0x232ee
00020c9e 42 80                    |B       |		CLR.L	D0
00020ca0 30 06                    |0       |		MOVE.W	D6,D0
00020ca2 06 80 00 00 01 00        |        |		ADDI.L	#0x00000100,D0
00020ca8 53 80                    |S       |		SUBQ.L	#0x1,D0
00020caa 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020cb0 63 02                    |c       |		BLS	0x20cb4
00020cb2 4e 4f                    |NO      |		TRAP	#15
00020cb4 33 c0 00 02 32 f0        |3   2   |		MOVE.W	D0,0x232f0
00020cba 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020cbe 4e 5e                    |N^      |		UNLK	A6
00020cc0 4e 75                    |Nu      |		RTS
00020cc2 ; --------------------------------------------------------------------------------------
00020cc2 ; OMSI PASCAL Function
00020cc2 ;    <LVAR  0x012 1(rw)>
00020cc2 ;    <LVAR  0x008 2(r)>
00020cc2 ; --------------------------------------------------------------------------------------
00020cc2 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00020cc6 bf d5                    |        |		CMPA.L	(A5),A7
00020cc8 62 06                    |b       |		BHI	0x20cd0
00020cca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cce 4e 76                    |Nv      |		TRAPV
00020cd0 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cd4 48 e7 e0 80              |H       |		MOVEM.L	A0+D2+D1+D0,-(A7)
00020cd8 42 2e 00 12              |B.      |		CLR.B	(A6+0x12)
00020cdc 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020ce0 e8 48                    | H      |		LSR.W	#0x4,D0
00020ce2 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00020ce6 e3 40                    | @      |		ASL.W	#0x1,D0
00020ce8 42 81                    |B       |		CLR.L	D1
00020cea 32 00                    |2       |		MOVE.W	D0,D1
00020cec 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020cf0 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
00020cf4 e3 40                    | @      |		ASL.W	#0x1,D0
00020cf6 42 82                    |B       |		CLR.L	D2
00020cf8 34 00                    |4       |		MOVE.W	D0,D2
00020cfa 41 fa fa 14              |A       |		LEA.L	0x20710,A0
00020cfe 30 36 18 0a              |06      |		MOVE.W	(A6+D1.L+#0xa),D0
00020d02 c0 70 28 00              | p(     |		AND.W	(A0+D2.L),D0
00020d06 67 04                    |g       |		BEQ	0x20d0c
00020d08 52 2e 00 12              |R.      |		ADDQ.B	#0x1,(A6+0x12)
00020d0c 4c df 01 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0
00020d10 4e 5e                    |N^      |		UNLK	A6
00020d12 4e 75                    |Nu      |		RTS
00020d14 ; --------------------------------------------------------------------------------------
00020d14 ; OMSI PASCAL Function
00020d14 ;    <LVAR  0x00a 4(r)>
00020d14 ;    <LVAR  0x008 2(r)>
00020d14 ; --------------------------------------------------------------------------------------
00020d14 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6		; Spelunked
00020d18 bf d5                    |        |		CMPA.L	(A5),A7
00020d1a 62 06                    |b       |		BHI	0x20d22
00020d1c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d20 4e 76                    |Nv      |		TRAPV
00020d22 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020d26 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00020d2a 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020d2e e8 48                    | H      |		LSR.W	#0x4,D0
00020d30 42 81                    |B       |		CLR.L	D1
00020d32 32 00                    |2       |		MOVE.W	D0,D1
00020d34 2e 01                    |.       |		MOVE.L	D1,D7
00020d36 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020d3a 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00020d40 63 02                    |c       |		BLS	0x20d44
00020d42 4e 4f                    |NO      |		TRAP	#15
00020d44 20 07                    |        |		MOVE.L	D7,D0
00020d46 e3 80                    |        |		ASL.L	#0x1,D0
00020d48 32 2e 00 08              |2.      |		MOVE.W	(A6+0x8),D1
00020d4c 02 41 00 0f              | A      |		ANDI.W	#0x000f,D1
00020d50 e3 41                    | A      |		ASL.W	#0x1,D1
00020d52 42 82                    |B       |		CLR.L	D2
00020d54 34 01                    |4       |		MOVE.W	D1,D2
00020d56 43 fa f9 b8              |C       |		LEA.L	0x20710,A1
00020d5a 32 31 28 00              |21(     |		MOVE.W	(A1+D2.L),D1
00020d5e 82 70 08 00              | p      |		OR.W	(A0+D0.L),D1
00020d62 31 81 08 00              |1       |		MOVE.W	D1,(A0+D0.L)
00020d66 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
00020d6a 4e 5e                    |N^      |		UNLK	A6
00020d6c 4e 75                    |Nu      |		RTS
00020d6e ; --------------------------------------------------------------------------------------
00020d6e ; OMSI PASCAL Function
00020d6e ;    <LVAR  0x010 4(w)>
00020d6e ;    <LVAR  0x00c 4(r)>
00020d6e ;    <LVAR  0x008 4(r)>
00020d6e ; --------------------------------------------------------------------------------------
00020d6e 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00020d72 bf d5                    |        |		CMPA.L	(A5),A7
00020d74 62 06                    |b       |		BHI	0x20d7c
00020d76 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d7a 4e 76                    |Nv      |		TRAPV
00020d7c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020d80 48 e7 03 00              |H       |		MOVEM.L	D7+D6,-(A7)
00020d84 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d86 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020d88 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d8a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020d8e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020d92 0c 86 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D6
00020d98 63 02                    |c       |		BLS	0x20d9c
00020d9a 4e 4f                    |NO      |		TRAP	#15
00020d9c 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020d9e 4e ba ff 22              |N  "    |		JSR	0x20cc2
00020da2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020da6 4a 1f                    |J       |		TST.B	(A7)+
00020da8 67 02                    |g       |		BEQ	0x20dac
00020daa 52 87                    |R       |		ADDQ.L	#0x1,D7
00020dac 52 86                    |R       |		ADDQ.L	#0x1,D6
00020dae 0c 86 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D6
00020db4 6f d2                    |o       |		BLE	0x20d88
00020db6 2d 47 00 10              |-G      |		MOVE.L	D7,(A6+0x10)
00020dba 4c df 00 c0              |L       |		MOVEM.L	(A7)+,D6+D7
00020dbe 4e 5e                    |N^      |		UNLK	A6
00020dc0 4e 75                    |Nu      |		RTS
00020dc2 ; --------------------------------------------------------------------------------------
00020dc2 ; OMSI PASCAL Function
00020dc2 ;    <LVAR  0x048 4(r)>
00020dc2 ;    <LVAR  0x044 4(r)>
00020dc2 ;    <LVAR  0x010 4(r)>
00020dc2 ;    <LVAR  0x00c 4(r)>
00020dc2 ;    <LVAR  0x008 4(r)>
00020dc2 ; --------------------------------------------------------------------------------------
00020dc2 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc		; Spelunked
00020dc6 bf d5                    |        |		CMPA.L	(A5),A7
00020dc8 62 06                    |b       |		BHI	0x20dd0
00020dca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020dce 4e 76                    |Nv      |		TRAPV
00020dd0 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020dd4 48 e7 e1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00020dd8 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00020ddc 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020dde 20 53                    | S      |		MOVEA.L	(A3),A0
00020de0 43 fa f9 4e              |C  N    |		LEA.L	0x20730,A1
00020de4 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020de6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020de8 51 c8 ff fc              |Q       |		DBF	D0,0x20de6
00020dec 7e 10                    |~       |		MOVEQ.L	#0x10,D7
00020dee 20 07                    |        |		MOVE.L	D7,D0
00020df0 90 82                    |        |		SUB.L	D2,D0
00020df2 0c 80 00 00 00 2f        |     /  |		CMPI.L	#0x0000002f,D0
00020df8 63 02                    |c       |		BLS	0x20dfc
00020dfa 4e 4f                    |NO      |		TRAP	#15
00020dfc 42 81                    |B       |		CLR.L	D1
00020dfe 12 36 08 14              | 6      |		MOVE.B	(A6+D0.L+#0x14),D1
00020e02 0c 41 00 40              | A @    |		CMPI.W	#0x0040,D1
00020e06 67 2e                    |g.      |		BEQ	0x20e36
00020e08 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e0a 2f 2e 00 48              |/. H    |		MOVE.L	(A6+0x48),-(A7)
00020e0e 2f 2e 00 44              |/. D    |		MOVE.L	(A6+0x44),-(A7)
00020e12 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e14 4e ba fe ac              |N       |		JSR	0x20cc2
00020e18 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020e1c 4a 1f                    |J       |		TST.B	(A7)+
00020e1e 67 16                    |g       |		BEQ	0x20e36
00020e20 20 53                    | S      |		MOVEA.L	(A3),A0
00020e22 48 50                    |HP      |		PEA.L	(A0)
00020e24 0c 87 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D7
00020e2a 63 02                    |c       |		BLS	0x20e2e
00020e2c 4e 4f                    |NO      |		TRAP	#15
00020e2e 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020e30 4e ba fe e2              |N       |		JSR	0x20d14
00020e34 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e36 52 87                    |R       |		ADDQ.L	#0x1,D7
00020e38 0c 87 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D7
00020e3e 6f ae                    |o       |		BLE	0x20dee
00020e40 20 53                    | S      |		MOVEA.L	(A3),A0
00020e42 9e c2                    |        |		SUBA.W	D2,A7
00020e44 22 4f                    |"O      |		MOVEA.L	A7,A1
00020e46 24 48                    |$H      |		MOVEA.L	A0,A2
00020e48 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020e4a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020e4c 51 c8 ff fc              |Q       |		DBF	D0,0x20e4a
00020e50 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00020e54 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020e58 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00020e5e de c2                    |        |		ADDA.W	D2,A7
00020e60 22 4f                    |"O      |		MOVEA.L	A7,A1
00020e62 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020e64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e66 51 c8 ff fc              |Q       |		DBF	D0,0x20e64
00020e6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e6c 4c df 0f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3
00020e70 4e 5e                    |N^      |		UNLK	A6
00020e72 4e 75                    |Nu      |		RTS
00020e74 ; --------------------------------------------------------------------------------------
00020e74 ; OMSI PASCAL Function
00020e74 ;    <LVAR  0x02c 4(w)>
00020e74 ;    <LVAR  0x028 4(w)>
00020e74 ;    <LVAR  0x01c 4(r)>
00020e74 ;    <LVAR  0x018 4(r)>
00020e74 ;    <LVAR -0x006 4(r)>
00020e74 ;    <LVAR -0x00a @ 4(r)>
00020e74 ;    <LVAR -0x00b 1(r)>
00020e74 ;    <LVAR -0x00c 1(r)>
00020e74 ;    <LVAR -0x00d 1(r)>
00020e74 ;    <LVAR -0x00e 1(r)>
00020e74 ;    <LVAR -0x00f 1(r)>
00020e74 ;    <LVAR -0x010 1(r)>
00020e74 ;    <LVAR -0x011 1(r)>
00020e74 ;    <LVAR -0x012 @ 1(r)>
00020e74 ;    <LVAR -0x013 1(w)>
00020e74 ;    <LVAR -0x014 1(w) 2(r)>
00020e74 ; --------------------------------------------------------------------------------------
00020e74 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00020e78 bf d5                    |        |		CMPA.L	(A5),A7
00020e7a 62 06                    |b       |		BHI	0x20e82
00020e7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e80 4e 76                    |Nv      |		TRAPV
00020e82 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020e86 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00020e8a 74 03                    |t       |		MOVEQ.L	#0x03,D2
00020e8c 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
00020e90 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00020e94 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020e98 48 78 00 00              |Hx      |		PEA.L	0x0
00020e9c 48 78 00 07              |Hx      |		PEA.L	0x7
00020ea0 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
00020ea6 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020eaa 42 80                    |B       |		CLR.L	D0
00020eac 10 2e ff ee              | .      |		MOVE.B	(A6-0x12),D0
00020eb0 c0 42                    | B      |		AND.W	D2,D0
00020eb2 ed 40                    | @      |		ASL.W	#0x6,D0
00020eb4 42 81                    |B       |		CLR.L	D1
00020eb6 12 2e ff ef              | .      |		MOVE.B	(A6-0x11),D1
00020eba c2 42                    | B      |		AND.W	D2,D1
00020ebc e9 41                    | A      |		ASL.W	#0x4,D1
00020ebe d2 40                    | @      |		ADD.W	D0,D1
00020ec0 42 80                    |B       |		CLR.L	D0
00020ec2 10 2e ff f0              | .      |		MOVE.B	(A6-0x10),D0
00020ec6 c0 42                    | B      |		AND.W	D2,D0
00020ec8 e5 40                    | @      |		ASL.W	#0x2,D0
00020eca d0 41                    | A      |		ADD.W	D1,D0
00020ecc 42 81                    |B       |		CLR.L	D1
00020ece 12 2e ff f1              | .      |		MOVE.B	(A6-0xf),D1
00020ed2 c2 42                    | B      |		AND.W	D2,D1
00020ed4 d2 40                    | @      |		ADD.W	D0,D1
00020ed6 1d 41 ff ec              | A      |		MOVE.B	D1,(A6-0x14)
00020eda 42 80                    |B       |		CLR.L	D0
00020edc 10 2e ff f2              | .      |		MOVE.B	(A6-0xe),D0
00020ee0 c0 42                    | B      |		AND.W	D2,D0
00020ee2 ed 40                    | @      |		ASL.W	#0x6,D0
00020ee4 42 81                    |B       |		CLR.L	D1
00020ee6 12 2e ff f3              | .      |		MOVE.B	(A6-0xd),D1
00020eea c2 42                    | B      |		AND.W	D2,D1
00020eec e9 41                    | A      |		ASL.W	#0x4,D1
00020eee d2 40                    | @      |		ADD.W	D0,D1
00020ef0 42 80                    |B       |		CLR.L	D0
00020ef2 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00020ef6 c0 42                    | B      |		AND.W	D2,D0
00020ef8 e5 40                    | @      |		ASL.W	#0x2,D0
00020efa d0 41                    | A      |		ADD.W	D1,D0
00020efc 42 81                    |B       |		CLR.L	D1
00020efe 12 2e ff f5              | .      |		MOVE.B	(A6-0xb),D1
00020f02 c2 42                    | B      |		AND.W	D2,D1
00020f04 d2 40                    | @      |		ADD.W	D0,D1
00020f06 1d 41 ff ed              | A      |		MOVE.B	D1,(A6-0x13)
00020f0a 3f 2e ff ec              |?.      |		MOVE.W	(A6-0x14),-(A7)
00020f0e 48 57                    |HW      |		PEA.L	(A7)
00020f10 48 78 00 00              |Hx      |		PEA.L	0x0
00020f14 48 78 00 01              |Hx      |		PEA.L	0x1
00020f18 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020f1c 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020f22 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020f26 2d 6e ff f6 00 28        |-n   (  |		MOVE.L	(A6-0xa),(A6+0x28)
00020f2c 2d 6e ff fa 00 2c        |-n   ,  |		MOVE.L	(A6-0x6),(A6+0x2c)
00020f32 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00020f36 4e 5e                    |N^      |		UNLK	A6
00020f38 4e 75                    |Nu      |		RTS
00020f3a ; --------------------------------------------------------------------------------------
00020f3a ; OMSI PASCAL Function
00020f3a ;    <LVAR  0x02c 4(w)>
00020f3a ;    <LVAR  0x028 4(w)>
00020f3a ;    <LVAR  0x00c 4(r)>
00020f3a ;    <LVAR  0x008 4(r)>
00020f3a ;    <LVAR -0x006 4(r)>
00020f3a ;    <LVAR -0x00a @ 4(r)>
00020f3a ;    <LVAR -0x00c 2(r)>
00020f3a ;    <LVAR -0x00e 2(r)>
00020f3a ;    <LVAR -0x010 @ 2(r)>
00020f3a ;    <LVAR -0x014 4(r)>
00020f3a ;    <LVAR -0x018 @ 4(r)>
00020f3a ; --------------------------------------------------------------------------------------
00020f3a 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020f3e bf d5                    |        |		CMPA.L	(A5),A7
00020f40 62 06                    |b       |		BHI	0x20f48
00020f42 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f46 4e 76                    |Nv      |		TRAPV
00020f48 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020f4c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020f50 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020f54 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020f58 48 78 00 00              |Hx      |		PEA.L	0x0
00020f5c 48 78 00 07              |Hx      |		PEA.L	0x7
00020f60 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
00020f66 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020f6a 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00020f6e 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00020f72 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00020f76 4e b9 00 02 2f c6        |N   /   |		JSR	exp_UNPERMUTE_UIR.TYP(Sw_8, &Sr_6)
00020f7c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020f80 3e ae ff f4              |>       |		MOVE.W	(A6-0xc),(A7)
00020f84 3f 2e ff f2              |?.      |		MOVE.W	(A6-0xe),-(A7)
00020f88 3f 2e ff f0              |?.      |		MOVE.W	(A6-0x10),-(A7)
00020f8c 48 57                    |HW      |		PEA.L	(A7)
00020f8e 48 78 00 00              |Hx      |		PEA.L	0x0
00020f92 48 78 00 05              |Hx      |		PEA.L	0x5
00020f96 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020f9a 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020fa0 de fc 00 16              |        |		ADDA.W	#0x16,A7
00020fa4 2d 6e ff f6 00 28        |-n   (  |		MOVE.L	(A6-0xa),(A6+0x28)
00020faa 2d 6e ff fa 00 2c        |-n   ,  |		MOVE.L	(A6-0x6),(A6+0x2c)
00020fb0 4e 5e                    |N^      |		UNLK	A6
00020fb2 4e 75                    |Nu      |		RTS
00020fb4 ; --------------------------------------------------------------------------------------
00020fb4 ; OMSI PASCAL Function
00020fb4 ;    <LVAR  0x02c 4(w)>
00020fb4 ;    <LVAR  0x028 4(w)>
00020fb4 ;    <LVAR  0x014 4(r)>
00020fb4 ;    <LVAR  0x010 4(r)>
00020fb4 ;    <LVAR -0x006 4(r)>
00020fb4 ;    <LVAR -0x00a @ 4(r)>
00020fb4 ;    <LVAR -0x010 @>
00020fb4 ;    <LVAR -0x014 4(r)>
00020fb4 ;    <LVAR -0x018 @ 4(r)>
00020fb4 ; --------------------------------------------------------------------------------------
00020fb4 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
00020fb8 bf d5                    |        |		CMPA.L	(A5),A7
00020fba 62 06                    |b       |		BHI	0x20fc2
00020fbc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fc0 4e 76                    |Nv      |		TRAPV
00020fc2 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00020fc6 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020fca 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00020fce 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00020fd2 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020fd6 48 78 00 00              |Hx      |		PEA.L	0x0
00020fda 48 78 00 07              |Hx      |		PEA.L	0x7
00020fde 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
00020fe4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020fe8 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00020fec 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00020ff0 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00020ff4 4e b9 00 02 30 5e        |N   0^  |		JSR	exp_UNPERMUTE_UIR.VAL(Sw_8, &Sr_5)
00020ffa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ffc 20 4f                    | O      |		MOVEA.L	A7,A0
00020ffe 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00021002 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021004 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021006 51 c8 ff fc              |Q       |		DBF	D0,0x21004
0002100a 48 57                    |HW      |		PEA.L	(A7)
0002100c 48 78 00 00              |Hx      |		PEA.L	0x0
00021010 48 78 00 04              |Hx      |		PEA.L	0x4
00021014 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021018 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002101e de fc 00 16              |        |		ADDA.W	#0x16,A7
00021022 2d 6e ff f6 00 28        |-n   (  |		MOVE.L	(A6-0xa),(A6+0x28)
00021028 2d 6e ff fa 00 2c        |-n   ,  |		MOVE.L	(A6-0x6),(A6+0x2c)
0002102e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021032 4e 5e                    |N^      |		UNLK	A6
00021034 4e 75                    |Nu      |		RTS
00021036 ; --------------------------------------------------------------------------------------
00021036 ; OMSI PASCAL Function
00021036 ;    <LVAR  0x02c 4(w)>
00021036 ;    <LVAR  0x028 4(w)>
00021036 ;    <LVAR  0x024 4(r)>
00021036 ;    <LVAR  0x020 4(r)>
00021036 ;    <LVAR -0x006 4(r)>
00021036 ;    <LVAR -0x00a @ 4(r)>
00021036 ;    <LVAR -0x00c 2(r)>
00021036 ;    <LVAR -0x00e 2(r)>
00021036 ;    <LVAR -0x010 @ 2(r)>
00021036 ;    <LVAR -0x014 4(r)>
00021036 ;    <LVAR -0x018 @ 4(r)>
00021036 ; --------------------------------------------------------------------------------------
00021036 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
0002103a bf d5                    |        |		CMPA.L	(A5),A7
0002103c 62 06                    |b       |		BHI	0x21044
0002103e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021042 4e 76                    |Nv      |		TRAPV
00021044 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021048 2f 2e 00 24              |/. $    |		MOVE.L	(A6+0x24),-(A7)
0002104c 2f 2e 00 20              |/.      |		MOVE.L	(A6+0x20),-(A7)
00021050 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021054 48 78 00 00              |Hx      |		PEA.L	0x0
00021058 48 78 00 07              |Hx      |		PEA.L	0x7
0002105c 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
00021062 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021066 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
0002106a 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
0002106e 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00021072 4e b9 00 02 2d 9e        |N   -   |		JSR	exp_UNPERMUTE_UIR.SEQ(Sw_8, &Sr_6)
00021078 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002107c 3e ae ff f4              |>       |		MOVE.W	(A6-0xc),(A7)
00021080 3f 2e ff f2              |?.      |		MOVE.W	(A6-0xe),-(A7)
00021084 3f 2e ff f0              |?.      |		MOVE.W	(A6-0x10),-(A7)
00021088 48 57                    |HW      |		PEA.L	(A7)
0002108a 48 78 00 00              |Hx      |		PEA.L	0x0
0002108e 48 78 00 05              |Hx      |		PEA.L	0x5
00021092 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021096 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002109c de fc 00 16              |        |		ADDA.W	#0x16,A7
000210a0 2d 6e ff f6 00 28        |-n   (  |		MOVE.L	(A6-0xa),(A6+0x28)
000210a6 2d 6e ff fa 00 2c        |-n   ,  |		MOVE.L	(A6-0x6),(A6+0x2c)
000210ac 4e 5e                    |N^      |		UNLK	A6
000210ae 4e 75                    |Nu      |		RTS
000210b0 ; --------------------------------------------------------------------------------------
000210b0 ; OMSI PASCAL Function
000210b0 ;    <LVAR  0x02c 4(w)>
000210b0 ;    <LVAR  0x028 4(w)>
000210b0 ;    <LVAR  0x01c 4(r)>
000210b0 ;    <LVAR  0x018 4(r)>
000210b0 ;    <LVAR -0x006 4(r)>
000210b0 ;    <LVAR -0x00a @ 4(r)>
000210b0 ;    <LVAR -0x00c 2(r)>
000210b0 ;    <LVAR -0x00e 2(r)>
000210b0 ;    <LVAR -0x010 @ 2(r)>
000210b0 ;    <LVAR -0x014 4(r)>
000210b0 ;    <LVAR -0x018 @ 4(r)>
000210b0 ; --------------------------------------------------------------------------------------
000210b0 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000210b4 bf d5                    |        |		CMPA.L	(A5),A7
000210b6 62 06                    |b       |		BHI	0x210be
000210b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000210bc 4e 76                    |Nv      |		TRAPV
000210be de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000210c2 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
000210c6 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
000210ca 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
000210ce 48 78 00 00              |Hx      |		PEA.L	0x0
000210d2 48 78 00 07              |Hx      |		PEA.L	0x7
000210d6 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
000210dc de fc 00 10              |        |		ADDA.W	#0x10,A7
000210e0 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
000210e4 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
000210e8 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000210ec 4e b9 00 02 2c f0        |N   ,   |		JSR	exp_UNPERMUTE_UIR.FIU(Sw_8, &Sr_6)
000210f2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000210f6 3e ae ff f4              |>       |		MOVE.W	(A6-0xc),(A7)
000210fa 3f 2e ff f2              |?.      |		MOVE.W	(A6-0xe),-(A7)
000210fe 3f 2e ff f0              |?.      |		MOVE.W	(A6-0x10),-(A7)
00021102 48 57                    |HW      |		PEA.L	(A7)
00021104 48 78 00 00              |Hx      |		PEA.L	0x0
00021108 48 78 00 05              |Hx      |		PEA.L	0x5
0002110c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021110 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00021116 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002111a 2d 6e ff f6 00 28        |-n   (  |		MOVE.L	(A6-0xa),(A6+0x28)
00021120 2d 6e ff fa 00 2c        |-n   ,  |		MOVE.L	(A6-0x6),(A6+0x2c)
00021126 4e 5e                    |N^      |		UNLK	A6
00021128 4e 75                    |Nu      |		RTS
0002112a ; --------------------------------------------------------------------------------------
0002112a ; OMSI PASCAL Function
0002112a ;    <LVAR  0x008 4(r)>
0002112a ; --------------------------------------------------------------------------------------
0002112a 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
0002112e bf d5                    |        |		CMPA.L	(A5),A7
00021130 62 06                    |b       |		BHI	0x21138
00021132 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021136 4e 76                    |Nv      |		TRAPV
00021138 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0002113c 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00021140 47 ee 00 2c              |G  ,    |		LEA.L	(A6+0x2c),A3
00021144 72 20                    |r       |		MOVEQ.L	#0x20,D1
00021146 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002114a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002114c 22 4b                    |"K      |		MOVEA.L	A3,A1
0002114e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021150 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00021152 51 c8 ff fc              |Q       |		DBF	D0,0x21150
00021156 4e ba fd 1c              |N       |		JSR	0x20e74
0002115a de c1                    |        |		ADDA.W	D1,A7
0002115c 43 e8 00 20              |C       |		LEA.L	(A0+0x20),A1
00021160 24 4f                    |$O      |		MOVEA.L	A7,A2
00021162 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021164 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021166 51 c8 ff fc              |Q       |		DBF	D0,0x21164
0002116a 22 4b                    |"K      |		MOVEA.L	A3,A1
0002116c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002116e 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00021170 51 c8 ff fc              |Q       |		DBF	D0,0x2116e
00021174 4e ba fd c4              |N       |		JSR	0x20f3a
00021178 de c1                    |        |		ADDA.W	D1,A7
0002117a 43 e8 00 08              |C       |		LEA.L	(A0+0x8),A1
0002117e 24 4f                    |$O      |		MOVEA.L	A7,A2
00021180 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021182 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021184 51 c8 ff fc              |Q       |		DBF	D0,0x21182
00021188 22 4b                    |"K      |		MOVEA.L	A3,A1
0002118a 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002118c 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
0002118e 51 c8 ff fc              |Q       |		DBF	D0,0x2118c
00021192 4e ba fe 20              |N       |		JSR	0x20fb4
00021196 de c1                    |        |		ADDA.W	D1,A7
00021198 22 48                    |"H      |		MOVEA.L	A0,A1
0002119a 24 4f                    |$O      |		MOVEA.L	A7,A2
0002119c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002119e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000211a0 51 c8 ff fc              |Q       |		DBF	D0,0x2119e
000211a4 22 4b                    |"K      |		MOVEA.L	A3,A1
000211a6 70 07                    |p       |		MOVEQ.L	#0x07,D0
000211a8 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000211aa 51 c8 ff fc              |Q       |		DBF	D0,0x211a8
000211ae 4e ba fe 86              |N       |		JSR	0x21036
000211b2 de c1                    |        |		ADDA.W	D1,A7
000211b4 43 e8 00 10              |C       |		LEA.L	(A0+0x10),A1
000211b8 24 4f                    |$O      |		MOVEA.L	A7,A2
000211ba 70 07                    |p       |		MOVEQ.L	#0x07,D0
000211bc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000211be 51 c8 ff fc              |Q       |		DBF	D0,0x211bc
000211c2 22 4b                    |"K      |		MOVEA.L	A3,A1
000211c4 70 07                    |p       |		MOVEQ.L	#0x07,D0
000211c6 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000211c8 51 c8 ff fc              |Q       |		DBF	D0,0x211c6
000211cc 4e ba fe e2              |N       |		JSR	0x210b0
000211d0 de c1                    |        |		ADDA.W	D1,A7
000211d2 41 e8 00 18              |A       |		LEA.L	(A0+0x18),A0
000211d6 22 4f                    |"O      |		MOVEA.L	A7,A1
000211d8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000211da 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211dc 51 c8 ff fc              |Q       |		DBF	D0,0x211da
000211e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211e2 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
000211e6 4e 5e                    |N^      |		UNLK	A6
000211e8 4e 75                    |Nu      |		RTS
000211ea ; --------------------------------------------------------------------------------------
000211ea ; OMSI PASCAL Function
000211ea ;    <LVAR  0x00c 2(r)>
000211ea ;    <LVAR  0x008 4(r)>
000211ea ;    <LVAR -0x001 @ 1(r)>
000211ea ;    <LVAR -0x002 1(r)>
000211ea ;    <LVAR -0x003 @ 1(r)>
000211ea ;    <LVAR -0x009 @>
000211ea ;    <LVAR -0x00f @>
000211ea ;    <LVAR -0x014 @>
000211ea ;    <LVAR -0x016 2(r)>
000211ea ;    <LVAR -0x018 2(r)>
000211ea ;    <LVAR -0x01a @ 2(r)>
000211ea ;    <LVAR -0x01c @ 2(r)>
000211ea ;    <LVAR -0x020 4(rw)>
000211ea ;    <LVAR -0x022 @>
000211ea ;    <LVAR -0x028 2(w)>
000211ea ;    <LVAR -0x42a @>
000211ea ; --------------------------------------------------------------------------------------
000211ea 4e 56 fb 76              |NV v    |		LINK.W	A6,#0xfb76
000211ee bf d5                    |        |		CMPA.L	(A5),A7
000211f0 62 06                    |b       |		BHI	0x211f8
000211f2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211f6 4e 76                    |Nv      |		TRAPV
000211f8 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
000211fc 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021200 47 ee ff ff              |G       |		LEA.L	(A6-0x1),A3
00021204 49 ee ff e4              |I       |		LEA.L	(A6-0x1c),A4
00021208 74 16                    |t       |		MOVEQ.L	#0x16,D2
0002120a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002120c 42 80                    |B       |		CLR.L	D0
0002120e 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
00021212 42 81                    |B       |		CLR.L	D1
00021214 32 39 00 02 32 ee        |29  2   |		MOVE.W	0x232ee,D1
0002121a 44 81                    |D       |		NEG.L	D1
0002121c d2 80                    |        |		ADD.L	D0,D1
0002121e 28 01                    |(       |		MOVE.L	D1,D4
00021220 76 20                    |v       |		MOVEQ.L	#0x20,D3
00021222 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021228 52 84                    |R       |		ADDQ.L	#0x1,D4
0002122a 06 44 00 28              | D (    |		ADDI.W	#0x0028,D4
0002122e 0c 44 ff ff              | D      |		CMPI.W	#0xffff,D4
00021232 63 02                    |c       |		BLS	0x21236
00021234 4e 4f                    |NO      |		TRAP	#15
00021236 3d 44 ff d8              |=D      |		MOVE.W	D4,(A6-0x28)
0002123a 02 40 00 1f              | @      |		ANDI.W	#0x001f,D0
0002123e 3a 00                    |:       |		MOVE.W	D0,D5
00021240 41 ee fb d6              |A       |		LEA.L	(A6-0x42a),A0
00021244 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021246 2d 5f ff e0              |-_      |		MOVE.L	(A7)+,(A6-0x20)
0002124a 3c 04                    |<       |		MOVE.W	D4,D6
0002124c 2f 39 00 02 32 ea        |/9  2   |		MOVE.L	0x232ea,-(A7)
00021252 4d bc 40 00              |M @     |		CHK.W	#0x4000,D6
00021256 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021258 42 67                    |Bg      |		CLR.W	-(A7)
0002125a 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0002125e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021262 2f 2e ff e0              |/.      |		MOVE.L	(A6-0x20),-(A7)
00021266 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
0002126a 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021270 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021274 42 80                    |B       |		CLR.L	D0
00021276 30 06                    |0       |		MOVE.W	D6,D0
00021278 52 80                    |R       |		ADDQ.L	#0x1,D0
0002127a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021280 63 02                    |c       |		BLS	0x21284
00021282 4e 4f                    |NO      |		TRAP	#15
00021284 3c 00                    |<       |		MOVE.W	D0,D6
00021286 42 80                    |B       |		CLR.L	D0
00021288 30 07                    |0       |		MOVE.W	D7,D0
0002128a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002128c 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021292 63 02                    |c       |		BLS	0x21296
00021294 4e 4f                    |NO      |		TRAP	#15
00021296 3e 00                    |>       |		MOVE.W	D0,D7
00021298 66 b2                    |f       |		BNE	0x2124c
0002129a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002129e 4b bc 00 1f              |K       |		CHK.W	#0x1f,D5
000212a2 42 80                    |B       |		CLR.L	D0
000212a4 30 05                    |0       |		MOVE.W	D5,D0
000212a6 eb 80                    |        |		ASL.L	#0x5,D0
000212a8 43 ee fb d6              |C       |		LEA.L	(A6-0x42a),A1
000212ac 43 f1 08 20              |C       |		LEA.L	(A1+D0.L+#0x20),A1
000212b0 70 07                    |p       |		MOVEQ.L	#0x07,D0
000212b2 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000212b4 51 c8 ff fc              |Q       |		DBF	D0,0x212b2
000212b8 48 50                    |HP      |		PEA.L	(A0)
000212ba 4e ba fe 6e              |N  n    |		JSR	0x2112a
000212be de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000212c2 42 80                    |B       |		CLR.L	D0
000212c4 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
000212c8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000212ca 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
000212d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212d2 48 54                    |HT      |		PEA.L	(A4)
000212d4 48 78 00 00              |Hx      |		PEA.L	0x0
000212d8 48 78 00 01              |Hx      |		PEA.L	0x1
000212dc 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
000212e2 de fc 00 12              |        |		ADDA.W	#0x12,A7
000212e6 3e 94                    |>       |		MOVE.W	(A4),(A7)
000212e8 42 27                    |B'      |		CLR.B	-(A7)
000212ea 48 6e ff e6              |Hn      |		PEA.L	(A6-0x1a)
000212ee 48 53                    |HS      |		PEA.L	(A3)
000212f0 4e b9 00 02 2d 10        |N   -   |		JSR	exp_READ_WCS.FIU(Sw_2, Sw_1, &Sr_6, &Fr)
000212f6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000212fa 3e ae ff ea              |>       |		MOVE.W	(A6-0x16),(A7)
000212fe 3f 2e ff e8              |?.      |		MOVE.W	(A6-0x18),-(A7)
00021302 3f 2e ff e6              |?.      |		MOVE.W	(A6-0x1a),-(A7)
00021306 48 57                    |HW      |		PEA.L	(A7)
00021308 48 78 00 00              |Hx      |		PEA.L	0x0
0002130c 48 78 00 05              |Hx      |		PEA.L	0x5
00021310 48 68 00 40              |Hh @    |		PEA.L	(A0+0x40)
00021314 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002131a de c2                    |        |		ADDA.W	D2,A7
0002131c 11 53 00 53              | S S    |		MOVE.B	(A3),(A0+0x53)
00021320 44 28 00 53              |D( S    |		NEG.B	(A0+0x53)
00021324 52 28 00 53              |R( S    |		ADDQ.B	#0x1,(A0+0x53)
00021328 3f 14                    |?       |		MOVE.W	(A4),-(A7)
0002132a 42 27                    |B'      |		CLR.B	-(A7)
0002132c 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021330 48 53                    |HS      |		PEA.L	(A3)
00021332 4e b9 00 02 30 7e        |N   0~  |		JSR	exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
00021338 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002133a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002133c 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00021340 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021342 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021344 51 c8 ff fc              |Q       |		DBF	D0,0x21342
00021348 48 57                    |HW      |		PEA.L	(A7)
0002134a 48 78 00 00              |Hx      |		PEA.L	0x0
0002134e 48 78 00 04              |Hx      |		PEA.L	0x4
00021352 48 68 00 28              |Hh (    |		PEA.L	(A0+0x28)
00021356 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002135c de c2                    |        |		ADDA.W	D2,A7
0002135e 11 53 00 50              | S P    |		MOVE.B	(A3),(A0+0x50)
00021362 3f 14                    |?       |		MOVE.W	(A4),-(A7)
00021364 42 27                    |B'      |		CLR.B	-(A7)
00021366 48 6e ff f1              |Hn      |		PEA.L	(A6-0xf)
0002136a 48 53                    |HS      |		PEA.L	(A3)
0002136c 4e b9 00 02 2f e6        |N   /   |		JSR	exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
00021372 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021374 22 4f                    |"O      |		MOVEA.L	A7,A1
00021376 45 ee ff f1              |E       |		LEA.L	(A6-0xf),A2
0002137a 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002137c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002137e 51 c8 ff fc              |Q       |		DBF	D0,0x2137c
00021382 48 57                    |HW      |		PEA.L	(A7)
00021384 48 78 00 00              |Hx      |		PEA.L	0x0
00021388 48 78 00 05              |Hx      |		PEA.L	0x5
0002138c 48 68 00 30              |Hh 0    |		PEA.L	(A0+0x30)
00021390 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00021396 de c2                    |        |		ADDA.W	D2,A7
00021398 11 53 00 51              | S Q    |		MOVE.B	(A3),(A0+0x51)
0002139c 3f 14                    |?       |		MOVE.W	(A4),-(A7)
0002139e 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
000213a2 48 53                    |HS      |		PEA.L	(A3)
000213a4 4e b9 00 02 2e a6        |N   .   |		JSR	exp_READ_WCS_AND_PARITY.SEQ(Sw_2, &Sr_6, &Fr)
000213aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213ac 22 4f                    |"O      |		MOVEA.L	A7,A1
000213ae 45 ee ff f7              |E       |		LEA.L	(A6-0x9),A2
000213b2 70 05                    |p       |		MOVEQ.L	#0x05,D0
000213b4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000213b6 51 c8 ff fc              |Q       |		DBF	D0,0x213b4
000213ba 48 57                    |HW      |		PEA.L	(A7)
000213bc 48 78 00 00              |Hx      |		PEA.L	0x0
000213c0 48 78 00 05              |Hx      |		PEA.L	0x5
000213c4 48 68 00 38              |Hh 8    |		PEA.L	(A0+0x38)
000213c8 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000213ce de c2                    |        |		ADDA.W	D2,A7
000213d0 11 53 00 52              | S R    |		MOVE.B	(A3),(A0+0x52)
000213d4 44 28 00 52              |D( R    |		NEG.B	(A0+0x52)
000213d8 52 28 00 52              |R( R    |		ADDQ.B	#0x1,(A0+0x52)
000213dc 3f 14                    |?       |		MOVE.W	(A4),-(A7)
000213de 42 27                    |B'      |		CLR.B	-(A7)
000213e0 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000213e4 48 53                    |HS      |		PEA.L	(A3)
000213e6 4e b9 00 02 30 9c        |N   0   |		JSR	exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
000213ec de fc 00 0a              |        |		ADDA.W	#0xa,A7
000213f0 1e ae ff fd              |        |		MOVE.B	(A6-0x3),(A7)
000213f4 1f 6e ff fe 00 01        | n      |		MOVE.B	(A6-0x2),(A7+0x1)
000213fa 48 57                    |HW      |		PEA.L	(A7)
000213fc 48 78 00 00              |Hx      |		PEA.L	0x0
00021400 48 78 00 01              |Hx      |		PEA.L	0x1
00021404 48 68 00 48              |Hh H    |		PEA.L	(A0+0x48)
00021408 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002140e de fc 00 12              |        |		ADDA.W	#0x12,A7
00021412 11 53 00 54              | S T    |		MOVE.B	(A3),(A0+0x54)
00021416 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002141a 4e 5e                    |N^      |		UNLK	A6
0002141c 4e 75                    |Nu      |		RTS
0002141e ; --------------------------------------------------------------------------------------
0002141e ; OMSI PASCAL Function
0002141e ;    <LVAR  0x018 4(r)>
0002141e ;    <LVAR  0x014 4(r)>
0002141e ;    <LVAR  0x010 4(r)>
0002141e ;    <LVAR  0x00c 4(r)>
0002141e ;    <LVAR  0x008 4(r)>
0002141e ; --------------------------------------------------------------------------------------
0002141e 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00021422 bf d5                    |        |		CMPA.L	(A5),A7
00021424 62 06                    |b       |		BHI	0x2142c
00021426 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002142a 4e 76                    |Nv      |		TRAPV
0002142c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021430 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021434 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00021438 48 50                    |HP      |		PEA.L	(A0)
0002143a 4e b9 00 02 2e ce        |N   .   |		JSR	exp_READ_UIR.SEQ(&Sr_6)
00021440 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021442 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00021446 48 50                    |HP      |		PEA.L	(A0)
00021448 4e b9 00 02 2f 26        |N   /&  |		JSR	exp_READ_MISC.SEQ(&Sr_2_2_1_1_3)
0002144e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021450 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021454 48 50                    |HP      |		PEA.L	(A0)
00021456 4e b9 00 02 2f 62        |N   /b  |		JSR	exp_READ_DEC.SEQ(&Sr_2_1_1_1)
0002145c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002145e 42 17                    |B       |		CLR.B	(A7)
00021460 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021464 48 50                    |HP      |		PEA.L	(A0)
00021466 4e b9 00 02 30 04        |N   0   |		JSR	exp_READ_UIR.TYP(Sw_1, &Sr_6)
0002146c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002146e 4e b9 00 02 30 3c        |N   0<  |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
00021474 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021478 48 50                    |HP      |		PEA.L	(A0)
0002147a 4e b9 00 02 2e e8        |N   .   |		JSR	exp_READ_SDR.SEQ(&Sr_8_8)
00021480 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021482 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00021486 4e 5e                    |N^      |		UNLK	A6
00021488 4e 75                    |Nu      |		RTS
0002148a ; --------------------------------------------------------------------------------------
0002148a ; OMSI PASCAL Function
0002148a ;    <LVAR  0x018 4(r)>
0002148a ;    <LVAR  0x014 4(r)>
0002148a ;    <LVAR  0x010 4(r)>
0002148a ;    <LVAR  0x00c 4(r)>
0002148a ;    <LVAR  0x008 4(r)>
0002148a ; --------------------------------------------------------------------------------------
0002148a 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0002148e bf d5                    |        |		CMPA.L	(A5),A7
00021490 62 06                    |b       |		BHI	0x21498
00021492 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021496 4e 76                    |Nv      |		TRAPV
00021498 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0002149c 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
000214a0 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000214a2 74 10                    |t       |		MOVEQ.L	#0x10,D2
000214a4 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000214a8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000214aa 22 4f                    |"O      |		MOVEA.L	A7,A1
000214ac 70 05                    |p       |		MOVEQ.L	#0x05,D0
000214ae 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214b0 51 c8 ff fc              |Q       |		DBF	D0,0x214ae
000214b4 4e b9 00 02 2d 2e        |N   -.  |		JSR	exp_WRITE_UIR.SEQ(Sw_6)
000214ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000214bc 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000214c0 9e c1                    |        |		SUBA.W	D1,A7
000214c2 22 4f                    |"O      |		MOVEA.L	A7,A1
000214c4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000214c6 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214c8 51 c8 ff fc              |Q       |		DBF	D0,0x214c6
000214cc 4e b9 00 02 2d 66        |N   -f  |		JSR	exp_WRITE_MISC.SEQ(Sw_2_2_1_1_3)
000214d2 de c1                    |        |		ADDA.W	D1,A7
000214d4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000214d8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000214da 22 4f                    |"O      |		MOVEA.L	A7,A1
000214dc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000214de 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214e0 51 c8 ff fc              |Q       |		DBF	D0,0x214de
000214e4 4e b9 00 02 2d 82        |N   -   |		JSR	exp_WRITE_DEC.SEQ(Sw_2_1_1_1)
000214ea 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000214ec 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000214f0 9e c2                    |        |		SUBA.W	D2,A7
000214f2 22 4f                    |"O      |		MOVEA.L	A7,A1
000214f4 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
000214f6 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000214f8 51 c8 ff fc              |Q       |		DBF	D0,0x214f6
000214fc 4e b9 00 02 2d 4a        |N   -J  |		JSR	exp_WRITE_SDR.SEQ(Sw_8_8)
00021502 de c2                    |        |		ADDA.W	D2,A7
00021504 4e b9 00 02 2f 02        |N   /   |		JSR	exp_RESTORE_PREDECODES.SEQ()
0002150a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002150e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021510 22 4f                    |"O      |		MOVEA.L	A7,A1
00021512 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021514 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021516 51 c8 ff fc              |Q       |		DBF	D0,0x21514
0002151a 42 27                    |B'      |		CLR.B	-(A7)
0002151c 4e b9 00 02 30 20        |N   0   |		JSR	exp_LOAD_UIR.TYP(Sw_6, Sw_1)
00021522 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021524 3e bc ff ff              |>       |		MOVE.W	#0xffff,(A7)
00021528 4e b9 00 02 2f a8        |N   /   |		JSR	exp_LOAD_COUNTER.SEQ(Sw_2)
0002152e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021530 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
00021534 4e 5e                    |N^      |		UNLK	A6
00021536 4e 75                    |Nu      |		RTS
00021538 ; --------------------------------------------------------------------------------------
00021538 ; OMSI PASCAL Function
00021538 ;    <LVAR  0x010 4(r)>
00021538 ;    <LVAR  0x00c 4(r)>
00021538 ;    <LVAR  0x008 4(r)>
00021538 ;    <LVAR -0x008 @>
00021538 ;    <LVAR -0x00c 4(r)>
00021538 ;    <LVAR -0x010 @ 4(r)>
00021538 ; --------------------------------------------------------------------------------------
00021538 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0002153c bf d5                    |        |		CMPA.L	(A5),A7
0002153e 62 06                    |b       |		BHI	0x21546
00021540 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021544 4e 76                    |Nv      |		TRAPV
00021546 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002154a 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002154e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021552 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021556 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002155a 48 78 00 00              |Hx      |		PEA.L	0x0
0002155e 48 78 00 07              |Hx      |		PEA.L	0x7
00021562 4e b9 00 01 04 ae        |N       |		JSR	FSCALL_104ae
00021568 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002156c 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021570 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00021574 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021578 4e b9 00 02 2d be        |N   -   |		JSR	exp_UNPERMUTE_DECODE.SEQ(Sw_8, &Sr_5)
0002157e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021580 20 4f                    | O      |		MOVEA.L	A7,A0
00021582 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00021586 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021588 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002158a 51 c8 ff fc              |Q       |		DBF	D0,0x21588
0002158e 48 57                    |HW      |		PEA.L	(A7)
00021590 48 78 00 00              |Hx      |		PEA.L	0x0
00021594 48 78 00 04              |Hx      |		PEA.L	0x4
00021598 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002159c 48 50                    |HP      |		PEA.L	(A0)
0002159e 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000215a4 de fc 00 16              |        |		ADDA.W	#0x16,A7
000215a8 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000215ac 4e 5e                    |N^      |		UNLK	A6
000215ae 4e 75                    |Nu      |		RTS
000215b0 ; --------------------------------------------------------------------------------------
000215b0 ; OMSI PASCAL Function
000215b0 ;    <LVAR  0x00e 2(r)>
000215b0 ;    <LVAR  0x00c 1(r)>
000215b0 ;    <LVAR  0x008 4(r)>
000215b0 ;    <LVAR -0x408 @>
000215b0 ;    <LVAR -0x40a @>
000215b0 ;    <LVAR -0x40c 2(rw)>
000215b0 ;    <LVAR -0x40e 2(rw)>
000215b0 ;    <LVAR -0x410 @>
000215b0 ; --------------------------------------------------------------------------------------
000215b0 4e 56 fb ac              |NV      |		LINK.W	A6,#0xfbac
000215b4 bf d5                    |        |		CMPA.L	(A5),A7
000215b6 62 06                    |b       |		BHI	0x215be
000215b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000215bc 4e 76                    |Nv      |		TRAPV
000215be de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000215c2 48 e7 f7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
000215c6 43 ee fb f4              |C       |		LEA.L	(A6-0x40c),A1
000215ca 74 01                    |t       |		MOVEQ.L	#0x01,D2
000215cc 76 7f                    |v       |		MOVEQ.L	#0x7f,D3
000215ce 3d 42 fb f2              |=B      |		MOVE.W	D2,(A6-0x40e)
000215d2 3a 2e 00 0e              |:.      |		MOVE.W	(A6+0xe),D5
000215d6 ee 4d                    | M      |		LSR.W	#0x7,D5
000215d8 52 45                    |RE      |		ADDQ.W	#0x1,D5
000215da 06 45 00 18              | E      |		ADDI.W	#0x0018,D5
000215de 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
000215e2 b0 02                    |        |		CMP.B	D2,D0
000215e4 66 12                    |f       |		BNE	0x215f8
000215e6 42 80                    |B       |		CLR.L	D0
000215e8 30 05                    |0       |		MOVE.W	D5,D0
000215ea 50 80                    |P       |		ADDQ.L	#0x8,D0
000215ec 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000215f2 63 02                    |c       |		BLS	0x215f6
000215f4 4e 4f                    |NO      |		TRAP	#15
000215f6 3a 00                    |:       |		MOVE.W	D0,D5
000215f8 32 ae 00 0e              |2       |		MOVE.W	(A6+0xe),(A1)
000215fc c7 51                    | Q      |		AND.W	D3,(A1)
000215fe 41 ee fb f8              |A       |		LEA.L	(A6-0x408),A0
00021602 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021604 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00021606 42 80                    |B       |		CLR.L	D0
00021608 30 05                    |0       |		MOVE.W	D5,D0
0002160a 42 81                    |B       |		CLR.L	D1
0002160c 32 2e fb f2              |2.      |		MOVE.W	(A6-0x40e),D1
00021610 d2 80                    |        |		ADD.L	D0,D1
00021612 53 81                    |S       |		SUBQ.L	#0x1,D1
00021614 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021616 42 80                    |B       |		CLR.L	D0
00021618 30 05                    |0       |		MOVE.W	D5,D0
0002161a 2c 00                    |,       |		MOVE.L	D0,D6
0002161c bc 97                    |        |		CMP.L	(A7),D6
0002161e 62 08                    |b       |		BHI	0x21628
00021620 20 17                    |        |		MOVE.L	(A7),D0
00021622 bc 80                    |        |		CMP.L	D0,D6
00021624 6d 02                    |m       |		BLT	0x21628
00021626 4e 4f                    |NO      |		TRAP	#15
00021628 bc 6f 00 02              | o      |		CMP.W	(A7+0x2),D6
0002162c 62 30                    |b0      |		BHI	0x2165e
0002162e 2f 39 00 02 32 ea        |/9  2   |		MOVE.L	0x232ea,-(A7)
00021634 4d bc 40 00              |M @     |		CHK.W	#0x4000,D6
00021638 3f 06                    |?       |		MOVE.W	D6,-(A7)
0002163a 42 67                    |Bg      |		CLR.W	-(A7)
0002163c 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00021640 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021644 2f 07                    |/       |		MOVE.L	D7,-(A7)
00021646 48 6e fb f6              |Hn      |		PEA.L	(A6-0x40a)
0002164a 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021650 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021654 06 87 00 00 04 00        |        |		ADDI.L	#0x00000400,D7
0002165a 52 46                    |RF      |		ADDQ.W	#0x1,D6
0002165c 64 ca                    |d       |		BCC	0x21628
0002165e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021660 30 11                    |0       |		MOVE.W	(A1),D0
00021662 41 83                    |A       |		CHK.W	D3,D0
00021664 42 81                    |B       |		CLR.L	D1
00021666 32 00                    |2       |		MOVE.W	D0,D1
00021668 e7 81                    |        |		ASL.L	#0x3,D1
0002166a 41 ee fb f0              |A       |		LEA.L	(A6-0x410),A0
0002166e 2f 30 18 0c              |/0      |		MOVE.L	(A0+D1.L+#0xc),-(A7)
00021672 2f 30 18 08              |/0      |		MOVE.L	(A0+D1.L+#0x8),-(A7)
00021676 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002167a 48 50                    |HP      |		PEA.L	(A0)
0002167c 4e ba fe ba              |N       |		JSR	0x21538
00021680 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021684 4c df 03 ef              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1
00021688 4e 5e                    |N^      |		UNLK	A6
0002168a 4e 75                    |Nu      |		RTS
0002168c ; --------------------------------------------------------------------------------------
0002168c ; OMSI PASCAL Function
0002168c ;    <LVAR  0x00c 2(r)>
0002168c ;    <LVAR  0x008 4(r)>
0002168c ;    <LVAR -0x003 1(w)>
0002168c ;    <LVAR -0x004 1(rw)>
0002168c ;    <LVAR -0x005 1(w)>
0002168c ;    <LVAR -0x006 1(w)>
0002168c ;    <LVAR -0x007 1(w)>
0002168c ;    <LVAR -0x008 @ 1(r)>
0002168c ;    <LVAR -0x00a @ 2(r)>
0002168c ;    <LVAR -0x00b 1(r)>
0002168c ;    <LVAR -0x00c 1(r)>
0002168c ;    <LVAR -0x00d @ 1(r)>
0002168c ;    <LVAR -0x00e 1(r)>
0002168c ;    <LVAR -0x00f 1(r)>
0002168c ;    <LVAR -0x010 1(r)>
0002168c ;    <LVAR -0x011 1(r)>
0002168c ;    <LVAR -0x012 @ 1(r)>
0002168c ;    <LVAR -0x013 1(w)>
0002168c ;    <LVAR -0x014 1(w) 2(r)>
0002168c ;    <LVAR -0x024 @>
0002168c ;    <LVAR -0x02a @>
0002168c ;    <LVAR -0x02f @>
0002168c ;    <LVAR -0x038 @>
0002168c ;    <LVAR -0x03e @>
0002168c ;    <LVAR -0x040 @>
0002168c ;    <LVAR -0x042 @ 4(r)>
0002168c ;    <LVAR -0x044 @>
0002168c ;    <LVAR -0x046 @ 4(r)>
0002168c ;    <LVAR -0x048 @>
0002168c ;    <LVAR -0x04a @ 4(r)>
0002168c ;    <LVAR -0x04c @>
0002168c ;    <LVAR -0x04e @ 4(r)>
0002168c ; --------------------------------------------------------------------------------------
0002168c 4e 56 ff 74              |NV t    |		LINK.W	A6,#0xff74
00021690 bf d5                    |        |		CMPA.L	(A5),A7
00021692 62 06                    |b       |		BHI	0x2169a
00021694 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021698 4e 76                    |Nv      |		TRAPV
0002169a de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
0002169e 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
000216a2 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
000216a6 72 12                    |r       |		MOVEQ.L	#0x12,D1
000216a8 74 14                    |t       |		MOVEQ.L	#0x14,D2
000216aa 48 6e ff c2              |Hn      |		PEA.L	(A6-0x3e)
000216ae 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000216b2 48 6e ff d1              |Hn      |		PEA.L	(A6-0x2f)
000216b6 48 6e ff d6              |Hn      |		PEA.L	(A6-0x2a)
000216ba 48 6e ff dc              |Hn      |		PEA.L	(A6-0x24)
000216be 4e ba fd 5e              |N  ^    |		JSR	0x2141e
000216c2 de c1                    |        |		ADDA.W	D1,A7
000216c4 42 17                    |B       |		CLR.B	(A7)
000216c6 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
000216ca 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000216ce 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000216d2 4e b9 00 02 2d e2        |N   -   |		JSR	exp_TEST_READ_MACRO_PC.SEQ(Sw_1, &Sr_3, &Sr_2, &Sr_1)
000216d8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000216dc 42 17                    |B       |		CLR.B	(A7)
000216de 48 6e ff b2              |Hn      |		PEA.L	(A6-0x4e)
000216e2 48 6e ff b4              |Hn      |		PEA.L	(A6-0x4c)
000216e6 48 6e ff b6              |Hn      |		PEA.L	(A6-0x4a)
000216ea 48 6e ff b8              |Hn      |		PEA.L	(A6-0x48)
000216ee 48 6e ff ba              |Hn      |		PEA.L	(A6-0x46)
000216f2 48 6e ff bc              |Hn      |		PEA.L	(A6-0x44)
000216f6 48 6e ff be              |Hn      |		PEA.L	(A6-0x42)
000216fa 48 6e ff c0              |Hn      |		PEA.L	(A6-0x40)
000216fe 4e b9 00 02 2e 0a        |N   .   |		JSR	exp_TEST_READ_IBUFF.SEQ(Sw_1, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2)
00021704 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021708 30 12                    |0       |		MOVE.W	(A2),D0
0002170a e0 48                    | H      |		LSR.W	#0x8,D0
0002170c 1d 40 ff ec              | @      |		MOVE.B	D0,(A6-0x14)
00021710 30 12                    |0       |		MOVE.W	(A2),D0
00021712 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00021716 1d 40 ff ed              | @      |		MOVE.B	D0,(A6-0x13)
0002171a 42 27                    |B'      |		CLR.B	-(A7)
0002171c 3f 2e ff ec              |?.      |		MOVE.W	(A6-0x14),-(A7)
00021720 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00021724 4e b9 00 02 2f 42        |N   /B  |		JSR	exp_READ_DECODE.SEQ(Sw_1, Sw_2, &Sr_2_1_1_1)
0002172a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002172c 1d 6e ff ee ff f9        | n      |		MOVE.B	(A6-0x12),(A6-0x7)
00021732 1d 6e ff ef ff fa        | n      |		MOVE.B	(A6-0x11),(A6-0x6)
00021738 42 80                    |B       |		CLR.L	D0
0002173a 10 2e ff f0              | .      |		MOVE.B	(A6-0x10),D0
0002173e 02 40 00 03              | @      |		ANDI.W	#0x0003,D0
00021742 1d 40 ff fb              | @      |		MOVE.B	D0,(A6-0x5)
00021746 1d 6e ff f1 ff fc        | n      |		MOVE.B	(A6-0xf),(A6-0x4)
0002174c 1d 6e ff f2 ff fd        | n      |		MOVE.B	(A6-0xe),(A6-0x3)
00021752 30 12                    |0       |		MOVE.W	(A2),D0
00021754 0c 40 03 ff              | @      |		CMPI.W	#0x03ff,D0
00021758 63 0e                    |c       |		BLS	0x21768
0002175a 42 80                    |B       |		CLR.L	D0
0002175c 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00021760 02 40 00 df              | @      |		ANDI.W	#0x00df,D0
00021764 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
00021768 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002176a 20 4f                    | O      |		MOVEA.L	A7,A0
0002176c 43 ee ff f9              |C       |		LEA.L	(A6-0x7),A1
00021770 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021772 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021774 51 c8 ff fc              |Q       |		DBF	D0,0x21772
00021778 48 57                    |HW      |		PEA.L	(A7)
0002177a 48 78 00 00              |Hx      |		PEA.L	0x0
0002177e 48 78 00 04              |Hx      |		PEA.L	0x4
00021782 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021786 48 50                    |HP      |		PEA.L	(A0)
00021788 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
0002178e de c2                    |        |		ADDA.W	D2,A7
00021790 42 17                    |B       |		CLR.B	(A7)
00021792 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021794 1e ae ff f3              |        |		MOVE.B	(A6-0xd),(A7)
00021798 1f 6e ff f4 00 01        | n      |		MOVE.B	(A6-0xc),(A7+0x1)
0002179e 1f 6e ff f5 00 02        | n      |		MOVE.B	(A6-0xb),(A7+0x2)
000217a4 3f 2e ff f6              |?.      |		MOVE.W	(A6-0xa),-(A7)
000217a8 1f 2e ff f8              | .      |		MOVE.B	(A6-0x8),-(A7)
000217ac 4e b9 00 02 2e 5a        |N   .Z  |		JSR	exp_TEST_LOAD_MACRO_PC.SEQ(Sw_1, Sw_3, Sw_2, Sw_1)
000217b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217b4 42 17                    |B       |		CLR.B	(A7)
000217b6 2f 2e ff b6              |/.      |		MOVE.L	(A6-0x4a),-(A7)
000217ba 2f 2e ff b2              |/.      |		MOVE.L	(A6-0x4e),-(A7)
000217be 2f 2e ff be              |/.      |		MOVE.L	(A6-0x42),-(A7)
000217c2 2f 2e ff ba              |/.      |		MOVE.L	(A6-0x46),-(A7)
000217c6 4e b9 00 02 2e 82        |N   .   |		JSR	exp_TEST_LOAD_IBUFF.SEQ(Sw_1, Sw_8, Sw_8)
000217cc de c1                    |        |		ADDA.W	D1,A7
000217ce 48 6e ff c2              |Hn      |		PEA.L	(A6-0x3e)
000217d2 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
000217d6 48 6e ff d1              |Hn      |		PEA.L	(A6-0x2f)
000217da 48 6e ff d6              |Hn      |		PEA.L	(A6-0x2a)
000217de 48 6e ff dc              |Hn      |		PEA.L	(A6-0x24)
000217e2 4e ba fc a6              |N       |		JSR	0x2148a
000217e6 de c2                    |        |		ADDA.W	D2,A7
000217e8 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
000217ec 4e 5e                    |N^      |		UNLK	A6
000217ee 4e 75                    |Nu      |		RTS
000217f0 ; --------------------------------------------------------------------------------------
000217f0 ; OMSI PASCAL Function
000217f0 ;    <LVAR  0x010 1(w)>
000217f0 ;    <LVAR  0x00f 1(w)>
000217f0 ;    <LVAR  0x00e 1(w)>
000217f0 ;    <LVAR  0x00c 1(r)>
000217f0 ;    <LVAR  0x008 4(r)>
000217f0 ; --------------------------------------------------------------------------------------
000217f0 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
000217f4 bf d5                    |        |		CMPA.L	(A5),A7
000217f6 62 06                    |b       |		BHI	0x217fe
000217f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217fc 4e 76                    |Nv      |		TRAPV
000217fe de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021802 48 e7 d8 80              |H       |		MOVEM.L	A0+D4+D3+D1+D0,-(A7)
00021806 72 27                    |r'      |		MOVEQ.L	#0x27,D1
00021808 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
0002180c 66 1a                    |f       |		BNE	0x21828
0002180e 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00021812 b0 81                    |        |		CMP.L	D1,D0
00021814 63 02                    |c       |		BLS	0x21818
00021816 4e 4f                    |NO      |		TRAP	#15
00021818 28 00                    |(       |		MOVE.L	D0,D4
0002181a 76 03                    |v       |		MOVEQ.L	#0x03,D3
0002181c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021822 41 fa f0 1c              |A       |		LEA.L	0x20840,A0
00021826 60 18                    |`       |		BRA	0x21840
00021828 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0002182c b0 81                    |        |		CMP.L	D1,D0
0002182e 63 02                    |c       |		BLS	0x21832
00021830 4e 4f                    |NO      |		TRAP	#15
00021832 28 00                    |(       |		MOVE.L	D0,D4
00021834 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021836 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002183c 41 fa ef 8a              |A       |		LEA.L	0x207c8,A0
00021840 1d 70 48 00 00 0e        | pH     |		MOVE.B	(A0+D4.L),(A6+0xe)
00021846 1d 70 48 01 00 0f        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A6+0xf)
0002184c 1d 70 48 02 00 10        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A6+0x10)
00021852 4c df 01 1b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+A0
00021856 4e 5e                    |N^      |		UNLK	A6
00021858 4e 75                    |Nu      |		RTS
0002185a ; --------------------------------------------------------------------------------------
0002185a ; OMSI PASCAL Function
0002185a ;    <LVAR  0x00a 1(w)>
0002185a ;    <LVAR  0x008 2(r)>
0002185a ; --------------------------------------------------------------------------------------
0002185a 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
0002185e bf d5                    |        |		CMPA.L	(A5),A7
00021860 62 06                    |b       |		BHI	0x21868
00021862 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021866 4e 76                    |Nv      |		TRAPV
00021868 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002186c 48 e7 81 00              |H       |		MOVEM.L	D7+D0,-(A7)
00021870 3e 2e 00 08              |>.      |		MOVE.W	(A6+0x8),D7
00021874 1f 07                    |        |		MOVE.B	D7,-(A7)
00021876 42 80                    |B       |		CLR.L	D0
00021878 10 1f                    |        |		MOVE.B	(A7)+,D0
0002187a 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
0002187e 1d 40 00 0a              | @      |		MOVE.B	D0,(A6+0xa)
00021882 4c df 00 81              |L       |		MOVEM.L	(A7)+,D0+D7
00021886 4e 5e                    |N^      |		UNLK	A6
00021888 4e 75                    |Nu      |		RTS
0002188a ; --------------------------------------------------------------------------------------
0002188a ; OMSI PASCAL Function
0002188a ;    <LVAR  0x00c 4(w)>
0002188a ;    <LVAR  0x008 4(r)>
0002188a ; --------------------------------------------------------------------------------------
0002188a 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0002188e bf d5                    |        |		CMPA.L	(A5),A7
00021890 62 06                    |b       |		BHI	0x21898
00021892 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021896 4e 76                    |Nv      |		TRAPV
00021898 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002189c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000218a0 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000218a4 55 80                    |U       |		SUBQ.L	#0x2,D0
000218a6 0c 80 00 00 00 05        |        |		CMPI.L	#0x00000005,D0
000218ac 63 02                    |c       |		BLS	0x218b0
000218ae					switch@0x218b2[0x3]:
000218ae 4e 4e                    |NN      |		TRAP	#14
000218b0 d0 40                    | @      |		ADD.W	D0,D0
000218b2 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000218ba 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x218c6
000218bc 00 20                    |        |		.CONST	0x20			; [0x1] -> 0x218da
000218be 00 34                    | 4      |		.CONST	0x34			; [0x2] -> 0x218ee
000218c0 ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x218ae
000218c2 00 48                    | H      |		.CONST	0x48			; [0x4] -> 0x21902
000218c4 00 5c                    | \      |		.CONST	0x5c			; [0x5] -> 0x21916
000218c6					switch@0x218b2[0x0]:
000218c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218c8 1e ba ed 22              |   "    |		MOVE.B	0x205ec,(A7)
000218cc 1f 7a ed 1f 00 01        | z      |		MOVE.B	0x205ed,(A7+0x1)
000218d2 1f 7a ed 1a 00 02        | z      |		MOVE.B	0x205ee,(A7+0x2)
000218d8 60 4e                    |`N      |		BRA	0x21928
000218da					switch@0x218b2[0x1]:
000218da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218dc 1e ba ed 12              |        |		MOVE.B	0x205f0,(A7)
000218e0 1f 7a ed 0f 00 01        | z      |		MOVE.B	0x205f1,(A7+0x1)
000218e6 1f 7a ed 0a 00 02        | z      |		MOVE.B	0x205f2,(A7+0x2)
000218ec 60 3a                    |`:      |		BRA	0x21928
000218ee					switch@0x218b2[0x2]:
000218ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218f0 1e ba ed 02              |        |		MOVE.B	0x205f4,(A7)
000218f4 1f 7a ec ff 00 01        | z      |		MOVE.B	0x205f5,(A7+0x1)
000218fa 1f 7a ec fa 00 02        | z      |		MOVE.B	0x205f6,(A7+0x2)
00021900 60 26                    |`&      |		BRA	0x21928
00021902					switch@0x218b2[0x4]:
00021902 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021904 1e ba ec f2              |        |		MOVE.B	0x205f8,(A7)
00021908 1f 7a ec ef 00 01        | z      |		MOVE.B	0x205f9,(A7+0x1)
0002190e 1f 7a ec ea 00 02        | z      |		MOVE.B	0x205fa,(A7+0x2)
00021914 60 12                    |`       |		BRA	0x21928
00021916					switch@0x218b2[0x5]:
00021916 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021918 1e ba ec e2              |        |		MOVE.B	0x205fc,(A7)
0002191c 1f 7a ec df 00 01        | z      |		MOVE.B	0x205fd,(A7+0x1)
00021922 1f 7a ec da 00 02        | z      |		MOVE.B	0x205fe,(A7+0x2)
00021928 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002192a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002192e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021932 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021936 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002193c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002193e 2d 5f 00 0c              |-_      |		MOVE.L	(A7)+,(A6+0xc)
00021942 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021944 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00021948 4e 5e                    |N^      |		UNLK	A6
0002194a 4e 75                    |Nu      |		RTS
0002194c ; --------------------------------------------------------------------------------------
0002194c ; OMSI PASCAL Function
0002194c ;    <LVAR  0x008 4(r)>
0002194c ; --------------------------------------------------------------------------------------
0002194c 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00021950 bf d5                    |        |		CMPA.L	(A5),A7
00021952 62 06                    |b       |		BHI	0x2195a
00021954 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021958 4e 76                    |Nv      |		TRAPV
0002195a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002195e 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021962 41 f9 00 02 32 f2        |A   2   |		LEA.L	0x232f2,A0
00021968 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002196a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002196c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021970 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021976 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021978 20 9f                    |        |		MOVE.L	(A7)+,(A0)
0002197a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002197c 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
00021980 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00021986 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021988 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0002198c 4e 5e                    |N^      |		UNLK	A6
0002198e 4e 75                    |Nu      |		RTS
00021990 ; --------------------------------------------------------------------------------------
00021990 ; OMSI PASCAL Function
00021990 ; --------------------------------------------------------------------------------------
00021990 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00021994 bf d5                    |        |		CMPA.L	(A5),A7
00021996 62 06                    |b       |		BHI	0x2199e
00021998 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002199c 4e 76                    |Nv      |		TRAPV
0002199e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000219a2 48 e7 c1 00              |H       |		MOVEM.L	D7+D1+D0,-(A7)
000219a6 72 07                    |r       |		MOVEQ.L	#0x07,D1
000219a8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000219aa be 81                    |        |		CMP.L	D1,D7
000219ac 63 02                    |c       |		BLS	0x219b0
000219ae 4e 4f                    |NO      |		TRAP	#15
000219b0 4a 36 78 08              |J6x     |		TST.B	(A6+D7.L+#0x8)
000219b4 66 04                    |f       |		BNE	0x219ba
000219b6 60 1e                    |`       |		BRA	0x219d6
000219b8 60 16                    |`       |		.XXX[0x2]
000219ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219bc 42 80                    |B       |		CLR.L	D0
000219be 10 36 78 08              | 6x     |		MOVE.B	(A6+D7.L+#0x8),D0
000219c2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000219c4 4e ba fe c4              |N       |		JSR	0x2188a
000219c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219ca 4e ba ff 80              |N       |		JSR	0x2194c
000219ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219d0 52 87                    |R       |		ADDQ.L	#0x1,D7
000219d2 be 81                    |        |		CMP.L	D1,D7
000219d4 6f d4                    |o       |		BLE	0x219aa
000219d6 4c df 00 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7
000219da 4e 5e                    |N^      |		UNLK	A6
000219dc 4e 75                    |Nu      |		RTS
000219de ; --------------------------------------------------------------------------------------
000219de ; OMSI PASCAL Function
000219de ;    <LVAR  0x010 1(rw)>
000219de ;    <LVAR  0x00e 2(w)>
000219de ;    <LVAR  0x00c 4(r)>
000219de ;    <LVAR  0x008 4(r)>
000219de ; --------------------------------------------------------------------------------------
000219de 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
000219e2 bf d5                    |        |		CMPA.L	(A5),A7
000219e4 62 06                    |b       |		BHI	0x219ec
000219e6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219ea 4e 76                    |Nv      |		TRAPV
000219ec de fc 00 18              |        |		ADDA.W	#0x18,A7
000219f0 48 e7 18 00              |H       |		MOVEM.L	D4+D3,-(A7)
000219f4 02 6e df f0 00 0e        | n      |		ANDI.W	#0xdff0,(A6+0xe)
000219fa 42 2e 00 10              |B.      |		CLR.B	(A6+0x10)
000219fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a00 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021a04 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021a08 4e ba f3 64              |N  d    |		JSR	0x20d6e
00021a0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a0e 28 1f                    |(       |		MOVE.L	(A7)+,D4
00021a10 76 02                    |v       |		MOVEQ.L	#0x02,D3
00021a12 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021a18 4a 83                    |J       |		TST.L	D3
00021a1a 66 04                    |f       |		BNE	0x21a20
00021a1c 52 2e 00 10              |R.      |		ADDQ.B	#0x1,(A6+0x10)
00021a20 4c df 00 18              |L       |		MOVEM.L	(A7)+,D3+D4
00021a24 4e 5e                    |N^      |		UNLK	A6
00021a26 4e 75                    |Nu      |		RTS
00021a28 ; --------------------------------------------------------------------------------------
00021a28 ; OMSI PASCAL Function
00021a28 ;    <LVAR  0x070 1(r)>
00021a28 ;    <LVAR  0x06f 1(r)>
00021a28 ;    <LVAR  0x06e 1(r)>
00021a28 ;    <LVAR  0x06d 1(r)>
00021a28 ;    <LVAR  0x06c 1(r)>
00021a28 ;    <LVAR  0x018 4(r)>
00021a28 ;    <LVAR  0x00c 4(r)>
00021a28 ;    <LVAR  0x008 4(r)>
00021a28 ; --------------------------------------------------------------------------------------
00021a28 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00021a2c bf d5                    |        |		CMPA.L	(A5),A7
00021a2e 62 06                    |b       |		BHI	0x21a36
00021a30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a34 4e 76                    |Nv      |		TRAPV
00021a36 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021a3a 48 e7 e7 80              |H       |		MOVEM.L	A0+D7+D6+D5+D2+D1+D0,-(A7)
00021a3e 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00021a40 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021a44 42 90                    |B       |		CLR.L	(A0)
00021a46 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00021a4a 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021a4c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021a4e bc 97                    |        |		CMP.L	(A7),D6
00021a50 6e 00 00 8a              |n       |		BGT	0x21adc
00021a54 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021a56 0c 86 00 00 00 07        |        |		CMPI.L	#0x00000007,D6
00021a5c 63 02                    |c       |		BLS	0x21a60
00021a5e 4e 4f                    |NO      |		TRAP	#15
00021a60 42 80                    |B       |		CLR.L	D0
00021a62 10 36 68 10              | 6h     |		MOVE.B	(A6+D6.L+#0x10),D0
00021a66 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021a68 4e ba fd f0              |N       |		JSR	0x2185a
00021a6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a6e 10 1f                    |        |		MOVE.B	(A7)+,D0
00021a70 48 80                    |H       |		EXTB.W	D0
00021a72 41 82                    |A       |		CHK.W	D2,D0
00021a74 1a 00                    |        |		MOVE.B	D0,D5
00021a76 10 05                    |        |		MOVE.B	D5,D0
00021a78 48 80                    |H       |		EXTB.W	D0
00021a7a 32 00                    |2       |		MOVE.W	D0,D1
00021a7c 55 41                    |UA      |		SUBQ.W	#0x2,D1
00021a7e 0c 41 00 05              | A      |		CMPI.W	#0x0005,D1
00021a82 63 02                    |c       |		BLS	0x21a86
00021a84					switch@0x21a88[0x3]:
00021a84 4e 4e                    |NN      |		TRAP	#14
00021a86 d2 41                    | A      |		ADD.W	D1,D1
00021a88 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00021a90 00 12                    |        |		.CONST	0x12			; [0x0] -> 0x21aa2
00021a92 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x21a9c
00021a94 00 24                    | $      |		.CONST	0x24			; [0x2] -> 0x21ab4
00021a96 ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x21a84
00021a98 00 1e                    |        |		.CONST	0x1e			; [0x4] -> 0x21aae
00021a9a 00 18                    |        |		.CONST	0x18			; [0x5] -> 0x21aa8
00021a9c					switch@0x21a88[0x1]:
00021a9c 1e 2e 00 6f              | . o    |		MOVE.B	(A6+0x6f),D7
00021aa0 60 16                    |`       |		BRA	0x21ab8
00021aa2					switch@0x21a88[0x0]:
00021aa2 1e 2e 00 6e              | . n    |		MOVE.B	(A6+0x6e),D7
00021aa6 60 10                    |`       |		BRA	0x21ab8
00021aa8					switch@0x21a88[0x5]:
00021aa8 1e 2e 00 6c              | . l    |		MOVE.B	(A6+0x6c),D7
00021aac 60 0a                    |`       |		BRA	0x21ab8
00021aae					switch@0x21a88[0x4]:
00021aae 1e 2e 00 6d              | . m    |		MOVE.B	(A6+0x6d),D7
00021ab2 60 04                    |`       |		BRA	0x21ab8
00021ab4					switch@0x21a88[0x2]:
00021ab4 1e 2e 00 70              | . p    |		MOVE.B	(A6+0x70),D7
00021ab8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021abc 41 82                    |A       |		CHK.W	D2,D0
00021abe e3 40                    | @      |		ASL.W	#0x1,D0
00021ac0 12 07                    |        |		MOVE.B	D7,D1
00021ac2 48 81                    |H       |		EXTB.W	D1
00021ac4 43 bc 00 01              |C       |		CHK.W	#0x1,D1
00021ac8 11 81 00 00              |        |		MOVE.B	D1,(A0+D0.W)
00021acc 4a 41                    |JA      |		TST.W	D1
00021ace 67 06                    |g       |		BEQ	0x21ad6
00021ad0 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021ad4 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00021ad6 52 86                    |R       |		ADDQ.L	#0x1,D6
00021ad8 68 00 ff 74              |h  t    |		BVC	0x21a4e
00021adc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ade 4c df 01 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0
00021ae2 4e 5e                    |N^      |		UNLK	A6
00021ae4 4e 75                    |Nu      |		RTS
00021ae6 ; --------------------------------------------------------------------------------------
00021ae6 ; OMSI PASCAL Function
00021ae6 ;    <LVAR  0x064 4(w)>
00021ae6 ;    <LVAR  0x060 4(w)>
00021ae6 ;    <LVAR  0x056 4(r)>
00021ae6 ;    <LVAR  0x052 4(r)>
00021ae6 ;    <LVAR  0x04e 4(r)>
00021ae6 ;    <LVAR  0x04a 4(r)>
00021ae6 ;    <LVAR  0x046 4(r)>
00021ae6 ;    <LVAR  0x042 4(r)>
00021ae6 ;    <LVAR  0x03e 4(r)>
00021ae6 ;    <LVAR  0x03a 4(r)>
00021ae6 ;    <LVAR  0x036 4(r)>
00021ae6 ;    <LVAR  0x032 4(r)>
00021ae6 ;    <LVAR  0x02e 4(r)>
00021ae6 ;    <LVAR  0x02a 4(r)>
00021ae6 ;    <LVAR  0x026 4(r)>
00021ae6 ;    <LVAR  0x022 4(r)>
00021ae6 ;    <LVAR  0x01e 4(r)>
00021ae6 ;    <LVAR  0x01a 4(r)>
00021ae6 ;    <LVAR  0x016 4(r)>
00021ae6 ;    <LVAR  0x012 4(r)>
00021ae6 ;    <LVAR  0x00e 4(r)>
00021ae6 ;    <LVAR  0x00a 4(r)>
00021ae6 ;    <LVAR  0x008 1(r)>
00021ae6 ; --------------------------------------------------------------------------------------
00021ae6 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00021aea bf d5                    |        |		CMPA.L	(A5),A7
00021aec 62 06                    |b       |		BHI	0x21af4
00021aee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021af2 4e 76                    |Nv      |		TRAPV
00021af4 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021af8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00021afc 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021b00 48 80                    |H       |		EXTB.W	D0
00021b02 55 40                    |U@      |		SUBQ.W	#0x2,D0
00021b04 0c 40 00 05              | @      |		CMPI.W	#0x0005,D0
00021b08 63 02                    |c       |		BLS	0x21b0c
00021b0a					switch@0x21b0e[0x3]:
00021b0a 4e 4e                    |NN      |		TRAP	#14
00021b0c d0 40                    | @      |		ADD.W	D0,D0
00021b0e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021b16 00 48                    | H      |		.CONST	0x48			; [0x0] -> 0x21b5e
00021b18 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x21b22
00021b1a 00 5c                    | \      |		.CONST	0x5c			; [0x2] -> 0x21b72
00021b1c ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x21b0a
00021b1e 00 20                    |        |		.CONST	0x20			; [0x4] -> 0x21b36
00021b20 00 34                    | 4      |		.CONST	0x34			; [0x5] -> 0x21b4a
00021b22					switch@0x21b0e[0x1]:
00021b22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b24 2f 2e 00 26              |/. &    |		MOVE.L	(A6+0x26),-(A7)
00021b28 2f 2e 00 22              |/. "    |		MOVE.L	(A6+0x22),-(A7)
00021b2c 2f 2e 00 4e              |/. N    |		MOVE.L	(A6+0x4e),-(A7)
00021b30 2f 2e 00 4a              |/. J    |		MOVE.L	(A6+0x4a),-(A7)
00021b34 60 4e                    |`N      |		BRA	0x21b84
00021b36					switch@0x21b0e[0x4]:
00021b36 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b38 2f 2e 00 16              |/.      |		MOVE.L	(A6+0x16),-(A7)
00021b3c 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00021b40 2f 2e 00 3e              |/. >    |		MOVE.L	(A6+0x3e),-(A7)
00021b44 2f 2e 00 3a              |/. :    |		MOVE.L	(A6+0x3a),-(A7)
00021b48 60 3a                    |`:      |		BRA	0x21b84
00021b4a					switch@0x21b0e[0x5]:
00021b4a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b4c 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00021b50 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00021b54 2f 2e 00 36              |/. 6    |		MOVE.L	(A6+0x36),-(A7)
00021b58 2f 2e 00 32              |/. 2    |		MOVE.L	(A6+0x32),-(A7)
00021b5c 60 26                    |`&      |		BRA	0x21b84
00021b5e					switch@0x21b0e[0x0]:
00021b5e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b60 2f 2e 00 1e              |/.      |		MOVE.L	(A6+0x1e),-(A7)
00021b64 2f 2e 00 1a              |/.      |		MOVE.L	(A6+0x1a),-(A7)
00021b68 2f 2e 00 46              |/. F    |		MOVE.L	(A6+0x46),-(A7)
00021b6c 2f 2e 00 42              |/. B    |		MOVE.L	(A6+0x42),-(A7)
00021b70 60 12                    |`       |		BRA	0x21b84
00021b72					switch@0x21b0e[0x2]:
00021b72 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b74 2f 2e 00 2e              |/. .    |		MOVE.L	(A6+0x2e),-(A7)
00021b78 2f 2e 00 2a              |/. *    |		MOVE.L	(A6+0x2a),-(A7)
00021b7c 2f 2e 00 56              |/. V    |		MOVE.L	(A6+0x56),-(A7)
00021b80 2f 2e 00 52              |/. R    |		MOVE.L	(A6+0x52),-(A7)
00021b84 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00021b8a de fc 00 10              |        |		ADDA.W	#0x10,A7
00021b8e 2d 5f 00 60              |-_ `    |		MOVE.L	(A7)+,(A6+0x60)
00021b92 2d 5f 00 64              |-_ d    |		MOVE.L	(A7)+,(A6+0x64)
00021b96 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00021b9a 4e 5e                    |N^      |		UNLK	A6
00021b9c 4e 75                    |Nu      |		RTS
00021b9e ; --------------------------------------------------------------------------------------
00021b9e ; OMSI PASCAL Function
00021b9e ;    <LVAR  0x01c 4(r)>
00021b9e ;    <LVAR  0x010 4(r)>
00021b9e ;    <LVAR  0x00c 4(r)>
00021b9e ;    <LVAR  0x008 4(r)>
00021b9e ;    <LVAR -0x004 4(rw)>
00021b9e ;    <LVAR -0x008 4(rw)>
00021b9e ; --------------------------------------------------------------------------------------
00021b9e 4e 56 ff 62              |NV b    |		LINK.W	A6,#0xff62
00021ba2 bf d5                    |        |		CMPA.L	(A5),A7
00021ba4 62 06                    |b       |		BHI	0x21bac
00021ba6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021baa 4e 76                    |Nv      |		TRAPV
00021bac de fc 00 90              |        |		ADDA.W	#0x90,A7
00021bb0 48 e7 e3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00021bb4 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00021bb8 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00021bbc 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00021bbe 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021bc2 42 90                    |B       |		CLR.L	(A0)
00021bc4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021bc8 42 90                    |B       |		CLR.L	(A0)
00021bca 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
00021bce 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021bd0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021bd2 be 97                    |        |		CMP.L	(A7),D7
00021bd4 6e 00 00 a2              |n       |		BGT	0x21c78
00021bd8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021bda 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00021be0 63 02                    |c       |		BLS	0x21be4
00021be2 4e 4f                    |NO      |		TRAP	#15
00021be4 42 80                    |B       |		CLR.L	D0
00021be6 10 36 78 14              | 6x     |		MOVE.B	(A6+D7.L+#0x14),D0
00021bea 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021bec 4e ba fc 6c              |N  l    |		JSR	0x2185a
00021bf0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021bf2 10 1f                    |        |		MOVE.B	(A7)+,D0
00021bf4 48 80                    |H       |		EXTB.W	D0
00021bf6 41 82                    |A       |		CHK.W	D2,D0
00021bf8 1c 00                    |        |		MOVE.B	D0,D6
00021bfa 9e fc 00 5e              |   ^    |		SUBA.W	#0x5e,A7
00021bfe 20 4f                    | O      |		MOVEA.L	A7,A0
00021c00 43 ee 00 20              |C       |		LEA.L	(A6+0x20),A1
00021c04 70 54                    |pT      |		MOVEQ.L	#0x54,D0
00021c06 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c08 51 c8 ff fc              |Q       |		DBF	D0,0x21c06
00021c0c 10 06                    |        |		MOVE.B	D6,D0
00021c0e 48 80                    |H       |		EXTB.W	D0
00021c10 41 82                    |A       |		CHK.W	D2,D0
00021c12 1f 00                    |        |		MOVE.B	D0,-(A7)
00021c14 4e ba fe d0              |N       |		JSR	0x21ae6
00021c18 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00021c1c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021c1e 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021c20 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021c24 10 06                    |        |		MOVE.B	D6,D0
00021c26 48 80                    |H       |		EXTB.W	D0
00021c28 41 82                    |A       |		CHK.W	D2,D0
00021c2a e3 40                    | @      |		ASL.W	#0x1,D0
00021c2c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021c2e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021c30 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c32 2f 3a eb 00              |/:      |		MOVE.L	0x20734,-(A7)
00021c36 2f 3a ea f8              |/:      |		MOVE.L	0x20730,-(A7)
00021c3a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021c40 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021c44 12 1f                    |        |		MOVE.B	(A7)+,D1
00021c46 48 81                    |H       |		EXTB.W	D1
00021c48 43 bc 00 01              |C       |		CHK.W	#0x1,D1
00021c4c 11 81 00 01              |        |		MOVE.B	D1,(A0+D0.W+#0x1)
00021c50 4a 01                    |J       |		TST.B	D1
00021c52 67 08                    |g       |		BEQ	0x21c5c
00021c54 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00021c58 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00021c5a 60 16                    |`       |		BRA	0x21c72
00021c5c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021c60 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c62 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021c64 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021c66 4e ba f1 06              |N       |		JSR	0x20d6e
00021c6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c6c 20 10                    |        |		MOVE.L	(A0),D0
00021c6e d0 9f                    |        |		ADD.L	(A7)+,D0
00021c70 20 80                    |        |		MOVE.L	D0,(A0)
00021c72 52 87                    |R       |		ADDQ.L	#0x1,D7
00021c74 68 00 ff 5c              |h  \    |		BVC	0x21bd2
00021c78 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c7a 4c df 0f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3
00021c7e 4e 5e                    |N^      |		UNLK	A6
00021c80 4e 75                    |Nu      |		RTS
00021c82 ; --------------------------------------------------------------------------------------
00021c82 ; OMSI PASCAL Function
00021c82 ;    <LVAR  0x008 1(rw)>
00021c82 ;    <LVAR -0x002 @ 1(r)>
00021c82 ;    <LVAR -0x004 @>
00021c82 ; --------------------------------------------------------------------------------------
00021c82 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00021c86 bf d5                    |        |		CMPA.L	(A5),A7
00021c88 62 06                    |b       |		BHI	0x21c90
00021c8a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c8e 4e 76                    |Nv      |		TRAPV
00021c90 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021c94 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021c98 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00021c9c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021ca0 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021ca4 4e b9 00 02 2f 7c        |N   /|  |		JSR	exp_READ_CUR_UADR_AND_PARITY.SEQ(&Sr_2, &Fr)
00021caa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cac 10 ae ff fe              |        |		MOVE.B	(A6-0x2),(A0)
00021cb0 44 10                    |D       |		NEG.B	(A0)
00021cb2 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00021cb4 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00021cb8 4e 5e                    |N^      |		UNLK	A6
00021cba 4e 75                    |Nu      |		RTS
00021cbc ; --------------------------------------------------------------------------------------
00021cbc ; OMSI PASCAL Function
00021cbc ;    <LVAR  0x00a 1(r)>
00021cbc ;    <LVAR  0x009 1(r)>
00021cbc ;    <LVAR  0x008 1(r)>
00021cbc ; --------------------------------------------------------------------------------------
00021cbc 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00021cc0 bf d5                    |        |		CMPA.L	(A5),A7
00021cc2 62 06                    |b       |		BHI	0x21cca
00021cc4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021cc8 4e 76                    |Nv      |		TRAPV
00021cca de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021cce 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021cd2 41 f9 00 02 32 f2        |A   2   |		LEA.L	0x232f2,A0
00021cd8 70 01                    |p       |		MOVEQ.L	#0x01,D0
00021cda 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cdc 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021ce0 1f 6e 00 09 00 01        | n      |		MOVE.B	(A6+0x9),(A7+0x1)
00021ce6 1f 6e 00 0a 00 02        | n      |		MOVE.B	(A6+0xa),(A7+0x2)
00021cec 3f 3a e9 12              |?:      |		MOVE.W	0x20600,-(A7)
00021cf0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cf2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021cf4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cf6 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00021cfa 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021cfc 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021d00 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d06 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d08 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021d0c 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021d0e 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021d12 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d1a 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021d20 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021d24 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021d26 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021d28 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021d2c 4e 5e                    |N^      |		UNLK	A6
00021d2e 4e 75                    |Nu      |		RTS
00021d30 ; --------------------------------------------------------------------------------------
00021d30 ; OMSI PASCAL Function
00021d30 ;    <LVAR  0x010 4(r)>
00021d30 ;    <LVAR  0x008 1(r)>
00021d30 ;    <LVAR -0x058 @>
00021d30 ;    <LVAR -0x05c 4(rw)>
00021d30 ;    <LVAR -0x060 4(rw)>
00021d30 ; --------------------------------------------------------------------------------------
00021d30 4e 56 ff 00              |NV      |		LINK.W	A6,#0xff00
00021d34 bf d5                    |        |		CMPA.L	(A5),A7
00021d36 62 06                    |b       |		BHI	0x21d3e
00021d38 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d3c 4e 76                    |Nv      |		TRAPV
00021d3e de fc 00 98              |        |		ADDA.W	#0x98,A7
00021d42 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021d46 45 ee ff a0              |E       |		LEA.L	(A6-0x60),A2
00021d4a 47 ee ff a4              |G       |		LEA.L	(A6-0x5c),A3
00021d4e 49 fa ef 72              |I  r    |		LEA.L	0x20cc2,A4
00021d52 72 2f                    |r/      |		MOVEQ.L	#0x2f,D1
00021d54 24 3c 00 00 ff ff        |$<      |		MOVE.L	#0xffff,D2
00021d5a 7a 0a                    |z       |		MOVEQ.L	#0x0a,D5
00021d5c 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00021d60 b0 82                    |        |		CMP.L	D2,D0
00021d62 63 02                    |c       |		BLS	0x21d66
00021d64 4e 4f                    |NO      |		TRAP	#15
00021d66 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021d68 48 6e ff a8              |Hn      |		PEA.L	(A6-0x58)
00021d6c 4e ba f4 7c              |N  |    |		JSR	0x211ea
00021d70 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d72 42 80                    |B       |		CLR.L	D0
00021d74 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021d78 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021d7a 4e ba fa de              |N       |		JSR	0x2185a
00021d7e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021d80 10 1f                    |        |		MOVE.B	(A7)+,D0
00021d82 48 80                    |H       |		EXTB.W	D0
00021d84 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00021d88 1c 00                    |        |		MOVE.B	D0,D6
00021d8a 9e fc 00 5e              |   ^    |		SUBA.W	#0x5e,A7
00021d8e 20 4f                    | O      |		MOVEA.L	A7,A0
00021d90 43 ee ff a8              |C       |		LEA.L	(A6-0x58),A1
00021d94 70 54                    |pT      |		MOVEQ.L	#0x54,D0
00021d96 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d98 51 c8 ff fc              |Q       |		DBF	D0,0x21d96
00021d9c 1f 06                    |        |		MOVE.B	D6,-(A7)
00021d9e 4e ba fd 46              |N  F    |		JSR	0x21ae6
00021da2 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00021da6 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021da8 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021daa 10 06                    |        |		MOVE.B	D6,D0
00021dac 48 80                    |H       |		EXTB.W	D0
00021dae 55 40                    |U@      |		SUBQ.W	#0x2,D0
00021db0 0c 40 00 05              | @      |		CMPI.W	#0x0005,D0
00021db4 63 02                    |c       |		BLS	0x21db8
00021db6					switch@0x21dba[0x3]:
00021db6 4e 4e                    |NN      |		TRAP	#14
00021db8 d0 40                    | @      |		ADD.W	D0,D0
00021dba 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021dc2 01 62                    | b      |		.CONST	0x162			; [0x0] -> 0x21f24
00021dc4 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x21dce
00021dc6 01 0a                    |        |		.CONST	0x10a			; [0x2] -> 0x21ecc
00021dc8 ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x21db6
00021dca 00 b8                    |        |		.CONST	0xb8			; [0x4] -> 0x21e7a
00021dcc 00 5e                    | ^      |		.CONST	0x5e			; [0x5] -> 0x21e20
00021dce					switch@0x21dba[0x1]:
00021dce 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021dd0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021dd2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021dd4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021dd6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021dd8 d0 87                    |        |		ADD.L	D7,D0
00021dda b0 82                    |        |		CMP.L	D2,D0
00021ddc 63 02                    |c       |		BLS	0x21de0
00021dde 4e 4f                    |NO      |		TRAP	#15
00021de0 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021de2 4e 94                    |N       |		JSR	(A4)
00021de4 de c5                    |        |		ADDA.W	D5,A7
00021de6 4a 1f                    |J       |		TST.B	(A7)+
00021de8 67 2c                    |g,      |		BEQ	0x21e16
00021dea be 81                    |        |		CMP.L	D1,D7
00021dec 63 02                    |c       |		BLS	0x21df0
00021dee 4e 4f                    |NO      |		TRAP	#15
00021df0 28 07                    |(       |		MOVE.L	D7,D4
00021df2 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021df4 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021dfa 41 fa ea ec              |A       |		LEA.L	0x208e8,A0
00021dfe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e00 1e b0 48 00              |  H     |		MOVE.B	(A0+D4.L),(A7)
00021e04 1f 70 48 01 00 01        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A7+0x1)
00021e0a 1f 70 48 02 00 02        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A7+0x2)
00021e10 4e ba fe aa              |N       |		JSR	0x21cbc
00021e14 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e16 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e18 be 81                    |        |		CMP.L	D1,D7
00021e1a 6f b4                    |o       |		BLE	0x21dd0
00021e1c 60 00 01 54              |`  T    |		BRA	0x21f72
00021e20					switch@0x21dba[0x5]:
00021e20 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021e22 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e24 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021e26 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e28 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021e2a d0 87                    |        |		ADD.L	D7,D0
00021e2c b0 82                    |        |		CMP.L	D2,D0
00021e2e 63 02                    |c       |		BLS	0x21e32
00021e30 4e 4f                    |NO      |		TRAP	#15
00021e32 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021e34 4e 94                    |N       |		JSR	(A4)
00021e36 de c5                    |        |		ADDA.W	D5,A7
00021e38 4a 1f                    |J       |		TST.B	(A7)+
00021e3a 67 30                    |g0      |		BEQ	0x21e6c
00021e3c 0c 87 00 00 00 27        |     '  |		CMPI.L	#0x00000027,D7
00021e42 63 02                    |c       |		BLS	0x21e46
00021e44 4e 4f                    |NO      |		TRAP	#15
00021e46 28 07                    |(       |		MOVE.L	D7,D4
00021e48 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021e4a 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021e50 41 fa eb 26              |A  &    |		LEA.L	0x20978,A0
00021e54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e56 1e b0 48 00              |  H     |		MOVE.B	(A0+D4.L),(A7)
00021e5a 1f 70 48 01 00 01        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A7+0x1)
00021e60 1f 70 48 02 00 02        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A7+0x2)
00021e66 4e ba fe 54              |N  T    |		JSR	0x21cbc
00021e6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e6c 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e6e 0c 87 00 00 00 27        |     '  |		CMPI.L	#0x00000027,D7
00021e74 6f ac                    |o       |		BLE	0x21e22
00021e76 60 00 00 fa              |`       |		BRA	0x21f72
00021e7a					switch@0x21dba[0x4]:
00021e7a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021e7c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e7e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021e80 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021e82 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021e84 d0 87                    |        |		ADD.L	D7,D0
00021e86 b0 82                    |        |		CMP.L	D2,D0
00021e88 63 02                    |c       |		BLS	0x21e8c
00021e8a 4e 4f                    |NO      |		TRAP	#15
00021e8c 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021e8e 4e 94                    |N       |		JSR	(A4)
00021e90 de c5                    |        |		ADDA.W	D5,A7
00021e92 4a 1f                    |J       |		TST.B	(A7)+
00021e94 67 2c                    |g,      |		BEQ	0x21ec2
00021e96 be 81                    |        |		CMP.L	D1,D7
00021e98 63 02                    |c       |		BLS	0x21e9c
00021e9a 4e 4f                    |NO      |		TRAP	#15
00021e9c 28 07                    |(       |		MOVE.L	D7,D4
00021e9e 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021ea0 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021ea6 41 fa eb 48              |A  H    |		LEA.L	0x209f0,A0
00021eaa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021eac 1e b0 48 00              |  H     |		MOVE.B	(A0+D4.L),(A7)
00021eb0 1f 70 48 01 00 01        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A7+0x1)
00021eb6 1f 70 48 02 00 02        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A7+0x2)
00021ebc 4e ba fd fe              |N       |		JSR	0x21cbc
00021ec0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ec2 52 87                    |R       |		ADDQ.L	#0x1,D7
00021ec4 be 81                    |        |		CMP.L	D1,D7
00021ec6 6f b4                    |o       |		BLE	0x21e7c
00021ec8 60 00 00 a8              |`       |		BRA	0x21f72
00021ecc					switch@0x21dba[0x2]:
00021ecc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021ece 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ed0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021ed2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021ed4 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00021ed6 d0 87                    |        |		ADD.L	D7,D0
00021ed8 b0 82                    |        |		CMP.L	D2,D0
00021eda 63 02                    |c       |		BLS	0x21ede
00021edc 4e 4f                    |NO      |		TRAP	#15
00021ede 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021ee0 4e 94                    |N       |		JSR	(A4)
00021ee2 de c5                    |        |		ADDA.W	D5,A7
00021ee4 4a 1f                    |J       |		TST.B	(A7)+
00021ee6 67 30                    |g0      |		BEQ	0x21f18
00021ee8 0c 87 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D7
00021eee 63 02                    |c       |		BLS	0x21ef2
00021ef0 4e 4f                    |NO      |		TRAP	#15
00021ef2 28 07                    |(       |		MOVE.L	D7,D4
00021ef4 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021ef6 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021efc 41 fa e9 ba              |A       |		LEA.L	0x208b8,A0
00021f00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f02 1e b0 48 00              |  H     |		MOVE.B	(A0+D4.L),(A7)
00021f06 1f 70 48 01 00 01        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A7+0x1)
00021f0c 1f 70 48 02 00 02        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A7+0x2)
00021f12 4e ba fd a8              |N       |		JSR	0x21cbc
00021f16 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f18 52 87                    |R       |		ADDQ.L	#0x1,D7
00021f1a 0c 87 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D7
00021f20 6f ac                    |o       |		BLE	0x21ece
00021f22 60 4e                    |`N      |		BRA	0x21f72
00021f24					switch@0x21dba[0x0]:
00021f24 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021f26 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021f28 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021f2a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021f2c 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021f2e d0 87                    |        |		ADD.L	D7,D0
00021f30 b0 82                    |        |		CMP.L	D2,D0
00021f32 63 02                    |c       |		BLS	0x21f36
00021f34 4e 4f                    |NO      |		TRAP	#15
00021f36 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021f38 4e 94                    |N       |		JSR	(A4)
00021f3a de c5                    |        |		ADDA.W	D5,A7
00021f3c 4a 1f                    |J       |		TST.B	(A7)+
00021f3e 67 2c                    |g,      |		BEQ	0x21f6c
00021f40 be 81                    |        |		CMP.L	D1,D7
00021f42 63 02                    |c       |		BLS	0x21f46
00021f44 4e 4f                    |NO      |		TRAP	#15
00021f46 28 07                    |(       |		MOVE.L	D7,D4
00021f48 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021f4a 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021f50 41 fa e7 e6              |A       |		LEA.L	0x20738,A0
00021f54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f56 1e b0 48 00              |  H     |		MOVE.B	(A0+D4.L),(A7)
00021f5a 1f 70 48 01 00 01        | pH     |		MOVE.B	(A0+D4.L+#0x1),(A7+0x1)
00021f60 1f 70 48 02 00 02        | pH     |		MOVE.B	(A0+D4.L+#0x2),(A7+0x2)
00021f66 4e ba fd 54              |N  T    |		JSR	0x21cbc
00021f6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f6c 52 87                    |R       |		ADDQ.L	#0x1,D7
00021f6e be 81                    |        |		CMP.L	D1,D7
00021f70 6f b4                    |o       |		BLE	0x21f26
00021f72 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021f76 4e 5e                    |N^      |		UNLK	A6
00021f78 4e 75                    |Nu      |		RTS
00021f7a ; --------------------------------------------------------------------------------------
00021f7a ; OMSI PASCAL Function
00021f7a ;    <LVAR  0x010 4(r)>
00021f7a ;    <LVAR  0x00c 4(r)>
00021f7a ;    <LVAR  0x008 4(r)>
00021f7a ; --------------------------------------------------------------------------------------
00021f7a 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00021f7e bf d5                    |        |		CMPA.L	(A5),A7
00021f80 62 06                    |b       |		BHI	0x21f88
00021f82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f86 4e 76                    |Nv      |		TRAPV
00021f88 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00021f8c 48 e7 d8 e0              |H       |		MOVEM.L	A2+A1+A0+D4+D3+D1+D0,-(A7)
00021f90 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021f94 42 90                    |B       |		CLR.L	(A0)
00021f96 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021f9a 42 10                    |B       |		CLR.B	(A0)
00021f9c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021fa0 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00021fa4 24 6c 00 2a              |$l *    |		MOVEA.L	(A4+0x2a),A2
00021fa8 20 10                    |        |		MOVE.L	(A0),D0
00021faa b0 92                    |        |		CMP.L	(A2),D0
00021fac 6c 4a                    |lJ      |		BGE	0x21ff8
00021fae 4a 11                    |J       |		TST.B	(A1)
00021fb0 66 46                    |fF      |		BNE	0x21ff8
00021fb2 52 80                    |R       |		ADDQ.L	#0x1,D0
00021fb4 20 80                    |        |		MOVE.L	D0,(A0)
00021fb6 42 11                    |B       |		CLR.B	(A1)
00021fb8 53 80                    |S       |		SUBQ.L	#0x1,D0
00021fba 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00021fc0 63 02                    |c       |		BLS	0x21fc4
00021fc2 4e 4f                    |NO      |		TRAP	#15
00021fc4 28 00                    |(       |		MOVE.L	D0,D4
00021fc6 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021fc8 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021fce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fd0 1f 2c 00 36              | , 6    |		MOVE.B	(A4+0x36),-(A7)
00021fd4 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021fd8 4e ba f8 16              |N       |		JSR	0x217f0
00021fdc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021fde 20 4f                    | O      |		MOVEA.L	A7,A0
00021fe0 45 f4 48 0a              |E H     |		LEA.L	(A4+D4.L+#0xa),A2
00021fe4 70 02                    |p       |		MOVEQ.L	#0x02,D0
00021fe6 b5 08                    |        |		CMPM.B	(A0)+,(A2)+
00021fe8 56 c8 ff fc              |V       |		DBNE	D0,0x21fe6
00021fec 67 04                    |g       |		BEQ	0x21ff2
00021fee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ff0 60 04                    |`       |		BRA	0x21ff6
00021ff2 52 11                    |R       |		ADDQ.B	#0x1,(A1)
00021ff4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ff6 60 a4                    |`       |		BRA	0x21f9c
00021ff8 4c df 07 1b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+A0+A1+A2
00021ffc 4e 5e                    |N^      |		UNLK	A6
00021ffe 4e 75                    |Nu      |		RTS
00022000 ; --------------------------------------------------------------------------------------
00022000 ; OMSI PASCAL Function
00022000 ;    <LVAR  0x014 1(r)>
00022000 ;    <LVAR  0x010 4(r)>
00022000 ;    <LVAR  0x00c 4(r)>
00022000 ;    <LVAR  0x008 4(r)>
00022000 ;    <LVAR -0x01c @ 4(r)>
00022000 ;    <LVAR -0x022 @ 1(r)>
00022000 ; --------------------------------------------------------------------------------------
00022000 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00022004 bf d5                    |        |		CMPA.L	(A5),A7
00022006 62 06                    |b       |		BHI	0x2200e
00022008 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002200c 4e 76                    |Nv      |		TRAPV
0002200e de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00022012 48 e7 d9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D1+D0,-(A7)
00022016 43 f9 00 02 32 f2        |C   2   |		LEA.L	0x232f2,A1
0002201c 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00022020 47 ee ff de              |G       |		LEA.L	(A6-0x22),A3
00022024 72 02                    |r       |		MOVEQ.L	#0x02,D1
00022026 20 52                    | R      |		MOVEA.L	(A2),A0
00022028 42 90                    |B       |		CLR.L	(A0)
0002202a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002202c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002202e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00022032 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022036 70 18                    |p       |		MOVEQ.L	#0x18,D0
00022038 d0 87                    |        |		ADD.L	D7,D0
0002203a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00022040 63 02                    |c       |		BLS	0x22044
00022042 4e 4f                    |NO      |		TRAP	#15
00022044 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022046 4e ba ec 7a              |N  z    |		JSR	0x20cc2
0002204a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002204e 4a 1f                    |J       |		TST.B	(A7)+
00022050 67 7c                    |g|      |		BEQ	0x220ce
00022052 2f 07                    |/       |		MOVE.L	D7,-(A7)
00022054 48 53                    |HS      |		PEA.L	(A3)
00022056 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
0002205a 28 4b                    |(K      |		MOVEA.L	A3,A4
0002205c 4e ba ff 1c              |N       |		JSR	0x21f7a
00022060 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022064 4a 13                    |J       |		TST.B	(A3)
00022066 67 14                    |g       |		BEQ	0x2207c
00022068 20 2e ff e4              | .      |		MOVE.L	(A6-0x1c),D0
0002206c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002206e b0 81                    |        |		CMP.L	D1,D0
00022070 63 02                    |c       |		BLS	0x22074
00022072 4e 4f                    |NO      |		TRAP	#15
00022074 e5 80                    |        |		ASL.L	#0x2,D0
00022076 52 b6 08 f2              |R       |		ADDQ.L	#0x1,(A6+D0.L-#0xe)
0002207a 60 52                    |`R      |		BRA	0x220ce
0002207c 20 52                    | R      |		MOVEA.L	(A2),A0
0002207e 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00022080 20 10                    |        |		MOVE.L	(A0),D0
00022082 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00022088 6f 04                    |o       |		BLE	0x2208e
0002208a 60 00 00 b2              |`       |		BRA	0x2213e
0002208e 20 52                    | R      |		MOVEA.L	(A2),A0
00022090 20 10                    |        |		MOVE.L	(A0),D0
00022092 53 80                    |S       |		SUBQ.L	#0x1,D0
00022094 b0 81                    |        |		CMP.L	D1,D0
00022096 63 02                    |c       |		BLS	0x2209a
00022098 4e 4f                    |NO      |		TRAP	#15
0002209a 28 00                    |(       |		MOVE.L	D0,D4
0002209c 76 03                    |v       |		MOVEQ.L	#0x03,D3
0002209e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000220a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220a6 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
000220aa 2f 07                    |/       |		MOVE.L	D7,-(A7)
000220ac 4e ba f7 42              |N  B    |		JSR	0x217f0
000220b0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000220b2 1d 97 48 e8              |  H     |		MOVE.B	(A7),(A6+D4.L-#0x18)
000220b6 1d af 00 01 48 e9        |    H   |		MOVE.B	(A7+0x1),(A6+D4.L-#0x17)
000220bc 1d af 00 02 48 ea        |    H   |		MOVE.B	(A7+0x2),(A6+D4.L-#0x16)
000220c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220c4 e5 80                    |        |		ASL.L	#0x2,D0
000220c6 2d bc 00 00 00 01 08 f2  |-       |		MOVE.L	#0x1,(A6+D0.L-#0xe)
000220ce 52 87                    |R       |		ADDQ.L	#0x1,D7
000220d0 0c 87 00 00 00 27        |     '  |		CMPI.L	#0x00000027,D7
000220d6 6f 00 ff 54              |o  T    |		BLE	0x2202c
000220da 20 52                    | R      |		MOVEA.L	(A2),A0
000220dc 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000220de 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000220e0 be 97                    |        |		CMP.L	(A7),D7
000220e2 6e 58                    |nX      |		BGT	0x2213c
000220e4 20 07                    |        |		MOVE.L	D7,D0
000220e6 53 80                    |S       |		SUBQ.L	#0x1,D0
000220e8 b0 81                    |        |		CMP.L	D1,D0
000220ea 63 02                    |c       |		BLS	0x220ee
000220ec 4e 4f                    |NO      |		TRAP	#15
000220ee 28 00                    |(       |		MOVE.L	D0,D4
000220f0 76 03                    |v       |		MOVEQ.L	#0x03,D3
000220f2 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000220f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220fa 1e b6 48 e8              |  H     |		MOVE.B	(A6+D4.L-#0x18),(A7)
000220fe 1f 76 48 e9 00 01        | vH     |		MOVE.B	(A6+D4.L-#0x17),(A7+0x1)
00022104 1f 76 48 ea 00 02        | vH     |		MOVE.B	(A6+D4.L-#0x16),(A7+0x2)
0002210a 4e ba fb b0              |N       |		JSR	0x21cbc
0002210e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022110 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022112 e5 80                    |        |		ASL.L	#0x2,D0
00022114 2f 36 08 f2              |/6      |		MOVE.L	(A6+D0.L-#0xe),-(A7)
00022118 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002211e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022120 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022126 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022128 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0002212a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002212c 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
00022130 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00022136 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022138 52 87                    |R       |		ADDQ.L	#0x1,D7
0002213a 68 a4                    |h       |		BVC	0x220e0
0002213c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002213e 4c df 1f 9b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D7+A0+A1+A2+A3+A4
00022142 4e 5e                    |N^      |		UNLK	A6
00022144 4e 75                    |Nu      |		RTS
00022146 ; --------------------------------------------------------------------------------------
00022146 ; OMSI PASCAL Function
00022146 ;    <LVAR  0x010 4(w)>
00022146 ; --------------------------------------------------------------------------------------
00022146 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0002214a bf d5                    |        |		CMPA.L	(A5),A7
0002214c 62 06                    |b       |		BHI	0x22154
0002214e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022152 4e 76                    |Nv      |		TRAPV
00022154 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022158 48 e7 83 00              |H       |		MOVEM.L	D7+D6+D0,-(A7)
0002215c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002215e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022160 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00022162 bc 80                    |        |		CMP.L	D0,D6
00022164 63 02                    |c       |		BLS	0x22168
00022166 4e 4f                    |NO      |		TRAP	#15
00022168 4a 36 68 08              |J6h     |		TST.B	(A6+D6.L+#0x8)
0002216c 66 02                    |f       |		BNE	0x22170
0002216e 60 08                    |`       |		BRA	0x22178
00022170 52 87                    |R       |		ADDQ.L	#0x1,D7
00022172 52 86                    |R       |		ADDQ.L	#0x1,D6
00022174 bc 80                    |        |		CMP.L	D0,D6
00022176 6f ea                    |o       |		BLE	0x22162
00022178 2d 47 00 10              |-G      |		MOVE.L	D7,(A6+0x10)
0002217c 4c df 00 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7
00022180 4e 5e                    |N^      |		UNLK	A6
00022182 4e 75                    |Nu      |		RTS
00022184 ; --------------------------------------------------------------------------------------
00022184 ; OMSI PASCAL Function
00022184 ;    <LVAR  0x034 1(rw)>
00022184 ;    <LVAR  0x028 4(r)>
00022184 ; --------------------------------------------------------------------------------------
00022184 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00022188 bf d5                    |        |		CMPA.L	(A5),A7
0002218a 62 06                    |b       |		BHI	0x22192
0002218c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022190 4e 76                    |Nv      |		TRAPV
00022192 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022196 48 e7 e7 80              |H       |		MOVEM.L	A0+D7+D6+D5+D2+D1+D0,-(A7)
0002219a 41 ee 00 34              |A  4    |		LEA.L	(A6+0x34),A0
0002219e 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
000221a0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000221a2 2f 2e 00 28              |/. (    |		MOVE.L	(A6+0x28),-(A7)
000221a6 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000221a8 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000221aa bc 97                    |        |		CMP.L	(A7),D6
000221ac 6e 3c                    |n<      |		BGT	0x221ea
000221ae 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000221b0 0c 86 00 00 00 07        |        |		CMPI.L	#0x00000007,D6
000221b6 63 02                    |c       |		BLS	0x221ba
000221b8 4e 4f                    |NO      |		TRAP	#15
000221ba 42 80                    |B       |		CLR.L	D0
000221bc 10 36 68 2c              | 6h,    |		MOVE.B	(A6+D6.L+#0x2c),D0
000221c0 3f 00                    |?       |		MOVE.W	D0,-(A7)
000221c2 4e ba f6 96              |N       |		JSR	0x2185a
000221c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000221c8 10 1f                    |        |		MOVE.B	(A7)+,D0
000221ca 48 80                    |H       |		EXTB.W	D0
000221cc 41 82                    |A       |		CHK.W	D2,D0
000221ce 1a 00                    |        |		MOVE.B	D0,D5
000221d0 10 05                    |        |		MOVE.B	D5,D0
000221d2 48 80                    |H       |		EXTB.W	D0
000221d4 41 82                    |A       |		CHK.W	D2,D0
000221d6 e3 40                    | @      |		ASL.W	#0x1,D0
000221d8 12 36 00 08              | 6      |		MOVE.B	(A6+D0.W+#0x8),D1
000221dc c2 36 00 09              | 6      |		AND.B	(A6+D0.W+#0x9),D1
000221e0 44 01                    |D       |		NEG.B	D1
000221e2 52 01                    |R       |		ADDQ.B	#0x1,D1
000221e4 ce 01                    |        |		AND.B	D1,D7
000221e6 52 86                    |R       |		ADDQ.L	#0x1,D6
000221e8 68 c0                    |h       |		BVC	0x221aa
000221ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221ec 10 87                    |        |		MOVE.B	D7,(A0)
000221ee 44 10                    |D       |		NEG.B	(A0)
000221f0 52 10                    |R       |		ADDQ.B	#0x1,(A0)
000221f2 4c df 01 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0
000221f6 4e 5e                    |N^      |		UNLK	A6
000221f8 4e 75                    |Nu      |		RTS
000221fa ; --------------------------------------------------------------------------------------
000221fa ; OMSI PASCAL Function
000221fa ;    <LVAR -0x004 @>
000221fa ; --------------------------------------------------------------------------------------
000221fa 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
000221fe bf d5                    |        |		CMPA.L	(A5),A7
00022200 62 06                    |b       |		BHI	0x22208
00022202 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022206 4e 76                    |Nv      |		TRAPV
00022208 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002220c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00022210 70 01                    |p       |		MOVEQ.L	#0x01,D0
00022212 42 27                    |B'      |		CLR.B	-(A7)
00022214 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022216 2f 39 00 02 32 e6        |/9  2   |		MOVE.L	0x232e6,-(A7)
0002221c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022222 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022224 1e 80                    |        |		MOVE.B	D0,(A7)
00022226 1f 00                    |        |		MOVE.B	D0,-(A7)
00022228 1f 00                    |        |		MOVE.B	D0,-(A7)
0002222a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002222e 4e ba e8 50              |N  P    |		JSR	0x20a80
00022232 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022236 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0002223a 4e 5e                    |N^      |		UNLK	A6
0002223c 4e 75                    |Nu      |		RTS
0002223e ; --------------------------------------------------------------------------------------
0002223e ; OMSI PASCAL Function
0002223e ;    <LVAR  0x00c 1(w)>
0002223e ;    <LVAR  0x008 4(r)>
0002223e ; --------------------------------------------------------------------------------------
0002223e 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0		; Spelunked
00022242 bf d5                    |        |		CMPA.L	(A5),A7
00022244 62 06                    |b       |		BHI	0x2224c
00022246 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002224a 4e 76                    |Nv      |		TRAPV
0002224c de fc 00 10              |        |		ADDA.W	#0x10,A7
00022250 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022254 41 ee 00 0c              |A       |		LEA.L	(A6+0xc),A0
00022258 72 05                    |r       |		MOVEQ.L	#0x05,D1
0002225a 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0002225e 55 80                    |U       |		SUBQ.L	#0x2,D0
00022260 b0 81                    |        |		CMP.L	D1,D0
00022262 62 32                    |b2      |		BHI	switch@0x22266[0x3]
00022264 d0 40                    | @      |		ADD.W	D0,D0
00022266 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002226e 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x2227a
00022270 00 10                    |        |		.CONST	0x10			; [0x1] -> 0x2227e
00022272 00 16                    |        |		.CONST	0x16			; [0x2] -> 0x22284
00022274 00 28                    | (      |		.CONST	0x28			; [0x3] -> 0x22296
00022276 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x2228a
00022278 00 22                    | "      |		.CONST	0x22			; [0x5] -> 0x22290
0002227a					switch@0x22266[0x0]:
0002227a 10 81                    |        |		MOVE.B	D1,(A0)
0002227c 60 1c                    |`       |		BRA	0x2229a
0002227e					switch@0x22266[0x1]:
0002227e 10 bc 00 06              |        |		MOVE.B	#0x06,(A0)
00022282 60 16                    |`       |		BRA	0x2229a
00022284					switch@0x22266[0x2]:
00022284 10 bc 00 2b              |   +    |		MOVE.B	#0x2b,(A0)
00022288 60 10                    |`       |		BRA	0x2229a
0002228a					switch@0x22266[0x4]:
0002228a 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
0002228e 60 0a                    |`       |		BRA	0x2229a
00022290					switch@0x22266[0x5]:
00022290 10 bc 00 04              |        |		MOVE.B	#0x04,(A0)
00022294 60 04                    |`       |		BRA	0x2229a
00022296					switch@0x22266[0x3]:
00022296 10 bc 00 27              |   '    |		MOVE.B	#0x27,(A0)
0002229a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0002229e 4e 5e                    |N^      |		UNLK	A6
000222a0 4e 75                    |Nu      |		RTS
000222a2 ; --------------------------------------------------------------------------------------
000222a2 ; OMSI PASCAL Function
000222a2 ;    <LVAR  0x008 4(r)>
000222a2 ; --------------------------------------------------------------------------------------
000222a2 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
000222a6 bf d5                    |        |		CMPA.L	(A5),A7
000222a8 62 06                    |b       |		BHI	0x222b0
000222aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000222ae 4e 76                    |Nv      |		TRAPV
000222b0 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000222b4 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000222b8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000222bc 10 bc 00 25              |   %    |		MOVE.B	#0x25,(A0)
000222c0 11 7c 00 29 00 01        | | )    |		MOVE.B	#0x29,(A0+0x1)
000222c6 11 7c 00 28 00 02        | | (    |		MOVE.B	#0x28,(A0+0x2)
000222cc 11 7c 00 01 00 03        | |      |		MOVE.B	#0x01,(A0+0x3)
000222d2 11 7c 00 2a 00 04        | | *    |		MOVE.B	#0x2a,(A0+0x4)
000222d8 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000222dc 4e 5e                    |N^      |		UNLK	A6
000222de 4e 75                    |Nu      |		RTS
000222e0 ; --------------------------------------------------------------------------------------
000222e0 ; OMSI PASCAL Function
000222e0 ;    <LVAR  0x01a 4(r)>
000222e0 ;    <LVAR  0x016 4(r)>
000222e0 ;    <LVAR  0x012 4(r)>
000222e0 ;    <LVAR  0x010 1(r)>
000222e0 ;    <LVAR  0x00c 4(r)>
000222e0 ;    <LVAR  0x008 1(r) 4(r)>
000222e0 ; --------------------------------------------------------------------------------------
000222e0 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
000222e4 bf d5                    |        |		CMPA.L	(A5),A7
000222e6 62 06                    |b       |		BHI	0x222ee
000222e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000222ec 4e 76                    |Nv      |		TRAPV
000222ee de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000222f2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000222f6 45 ee 00 16              |E       |		LEA.L	(A6+0x16),A2
000222fa 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000222fe 49 fa ff 3e              |I  >    |		LEA.L	0x2223e,A4
00022302 74 2a                    |t*      |		MOVEQ.L	#0x2a,D2
00022304 76 01                    |v       |		MOVEQ.L	#0x01,D3
00022306 78 07                    |x       |		MOVEQ.L	#0x07,D4
00022308 7a 05                    |z       |		MOVEQ.L	#0x05,D5
0002230a 20 6e 00 12              | n      |		MOVEA.L	(A6+0x12),A0
0002230e 42 80                    |B       |		CLR.L	D0
00022310 10 10                    |        |		MOVE.B	(A0),D0
00022312 2e 00                    |.       |		MOVE.L	D0,D7
00022314 1f 07                    |        |		MOVE.B	D7,-(A7)
00022316 10 1f                    |        |		MOVE.B	(A7)+,D0
00022318 48 80                    |H       |		EXTB.W	D0
0002231a 41 bc 00 12              |A       |		CHK.W	#0x12,D0
0002231e 1c 00                    |        |		MOVE.B	D0,D6
00022320 20 6e 00 1a              | n      |		MOVEA.L	(A6+0x1a),A0
00022324 42 10                    |B       |		CLR.B	(A0)
00022326 10 06                    |        |		MOVE.B	D6,D0
00022328 48 80                    |H       |		EXTB.W	D0
0002232a 0c 40 00 12              | @      |		CMPI.W	#0x0012,D0
0002232e 63 02                    |c       |		BLS	0x22332
00022330 4e 4e                    |NN      |		TRAP	#14
00022332 d0 40                    | @      |		ADD.W	D0,D0
00022334 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002233c 00 26                    | &      |		.CONST	0x26			; [0x0] -> 0x22362
0002233e 00 26                    | &      |		.CONST	0x26			; [0x1] -> 0x22362
00022340 00 32                    | 2      |		.CONST	0x32			; [0x2] -> 0x2236e
00022342 00 40                    | @      |		.CONST	0x40			; [0x3] -> 0x2237c
00022344 00 44                    | D      |		.CONST	0x44			; [0x4] -> 0x22380
00022346 00 4c                    | L      |		.CONST	0x4c			; [0x5] -> 0x22388
00022348 00 4c                    | L      |		.CONST	0x4c			; [0x6] -> 0x22388
0002234a 00 4c                    | L      |		.CONST	0x4c			; [0x7] -> 0x22388
0002234c 00 4c                    | L      |		.CONST	0x4c			; [0x8] -> 0x22388
0002234e 00 68                    | h      |		.CONST	0x68			; [0x9] -> 0x223a4
00022350 00 68                    | h      |		.CONST	0x68			; [0xa] -> 0x223a4
00022352 00 68                    | h      |		.CONST	0x68			; [0xb] -> 0x223a4
00022354 00 68                    | h      |		.CONST	0x68			; [0xc] -> 0x223a4
00022356 00 a0                    |        |		.CONST	0xa0			; [0xd] -> 0x223dc
00022358 00 c4                    |        |		.CONST	0xc4			; [0xe] -> 0x22400
0002235a 00 c6                    |        |		.CONST	0xc6			; [0xf] -> 0x22402
0002235c 01 1a                    |        |		.CONST	0x11a			; [0x10] -> 0x22456
0002235e 00 c4                    |        |		.CONST	0xc4			; [0x11] -> 0x22400
00022360 01 80                    |        |		.CONST	0x180			; [0x12] -> 0x224bc
00022362					switch@0x22334[0x0]:
00022362					switch@0x22334[0x1]:
00022362 20 52                    | R      |		MOVEA.L	(A2),A0
00022364 10 82                    |        |		MOVE.B	D2,(A0)
00022366 11 45 00 01              | E      |		MOVE.B	D5,(A0+0x1)
0002236a 60 00 01 56              |`  V    |		BRA	0x224c2
0002236e					switch@0x22334[0x2]:
0002236e 20 52                    | R      |		MOVEA.L	(A2),A0
00022370 10 82                    |        |		MOVE.B	D2,(A0)
00022372 11 7c 00 29 00 01        | | )    |		MOVE.B	#0x29,(A0+0x1)
00022378 60 00 01 48              |`  H    |		BRA	0x224c2
0002237c					switch@0x22334[0x3]:
0002237c 60 00 01 3e              |`  >    |		BRA	switch@0x22334[0x12]
00022380					switch@0x22334[0x4]:
00022380 20 52                    | R      |		MOVEA.L	(A2),A0
00022382 10 85                    |        |		MOVE.B	D5,(A0)
00022384 60 00 01 3c              |`  <    |		BRA	0x224c2
00022388					switch@0x22334[0x5]:
00022388					switch@0x22334[0x6]:
00022388					switch@0x22334[0x7]:
00022388					switch@0x22334[0x8]:
00022388 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
0002238c 67 06                    |g       |		BEQ	0x22394
0002238e 20 52                    | R      |		MOVEA.L	(A2),A0
00022390 10 85                    |        |		MOVE.B	D5,(A0)
00022392 60 0c                    |`       |		BRA	0x223a0
00022394 22 52                    |"R      |		MOVEA.L	(A2),A1
00022396 48 51                    |HQ      |		PEA.L	(A1)
00022398 4e ba ff 08              |N       |		JSR	0x222a2
0002239c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002239e 10 83                    |        |		MOVE.B	D3,(A0)
000223a0 60 00 01 20              |`       |		BRA	0x224c2
000223a4					switch@0x22334[0x9]:
000223a4					switch@0x22334[0xa]:
000223a4					switch@0x22334[0xb]:
000223a4					switch@0x22334[0xc]:
000223a4 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
000223a8 67 22                    |g"      |		BEQ	0x223cc
000223aa 20 52                    | R      |		MOVEA.L	(A2),A0
000223ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223ae 42 80                    |B       |		CLR.L	D0
000223b0 10 13                    |        |		MOVE.B	(A3),D0
000223b2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000223b4 4e 94                    |N       |		JSR	(A4)
000223b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223b8 10 1f                    |        |		MOVE.B	(A7)+,D0
000223ba 48 80                    |H       |		EXTB.W	D0
000223bc 48 c0                    |H       |		EXTW.L	D0
000223be 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000223c4 63 02                    |c       |		BLS	0x223c8
000223c6 4e 4f                    |NO      |		TRAP	#15
000223c8 10 80                    |        |		MOVE.B	D0,(A0)
000223ca 60 0c                    |`       |		BRA	0x223d8
000223cc 10 83                    |        |		MOVE.B	D3,(A0)
000223ce 20 52                    | R      |		MOVEA.L	(A2),A0
000223d0 48 50                    |HP      |		PEA.L	(A0)
000223d2 4e ba fe ce              |N       |		JSR	0x222a2
000223d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223d8 60 00 00 e8              |`       |		BRA	0x224c2
000223dc					switch@0x22334[0xd]:
000223dc 20 52                    | R      |		MOVEA.L	(A2),A0
000223de 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223e0 42 80                    |B       |		CLR.L	D0
000223e2 10 13                    |        |		MOVE.B	(A3),D0
000223e4 2f 00                    |/       |		MOVE.L	D0,-(A7)
000223e6 4e 94                    |N       |		JSR	(A4)
000223e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223ea 10 1f                    |        |		MOVE.B	(A7)+,D0
000223ec 48 80                    |H       |		EXTB.W	D0
000223ee 48 c0                    |H       |		EXTW.L	D0
000223f0 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000223f6 63 02                    |c       |		BLS	0x223fa
000223f8 4e 4f                    |NO      |		TRAP	#15
000223fa 10 80                    |        |		MOVE.B	D0,(A0)
000223fc 60 00 00 c4              |`       |		BRA	0x224c2
00022400					switch@0x22334[0x11]:
00022400					switch@0x22334[0xe]:
00022400 60 ca                    |`       |		BRA	0x223cc
00022402					switch@0x22334[0xf]:
00022402 10 83                    |        |		MOVE.B	D3,(A0)
00022404 20 52                    | R      |		MOVEA.L	(A2),A0
00022406 10 82                    |        |		MOVE.B	D2,(A0)
00022408 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002240a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002240e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022410 4e ba fd 34              |N  4    |		JSR	0x22146
00022414 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022416 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022418 be 97                    |        |		CMP.L	(A7),D7
0002241a 6e 38                    |n8      |		BGT	0x22454
0002241c 20 52                    | R      |		MOVEA.L	(A2),A0
0002241e be 84                    |        |		CMP.L	D4,D7
00022420 63 02                    |c       |		BLS	0x22424
00022422 4e 4f                    |NO      |		TRAP	#15
00022424 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022426 20 07                    |        |		MOVE.L	D7,D0
00022428 53 80                    |S       |		SUBQ.L	#0x1,D0
0002242a b0 84                    |        |		CMP.L	D4,D0
0002242c 63 02                    |c       |		BLS	0x22430
0002242e 4e 4f                    |NO      |		TRAP	#15
00022430 42 81                    |B       |		CLR.L	D1
00022432 12 36 08 08              | 6      |		MOVE.B	(A6+D0.L+#0x8),D1
00022436 2f 01                    |/       |		MOVE.L	D1,-(A7)
00022438 4e 94                    |N       |		JSR	(A4)
0002243a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002243c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002243e 48 80                    |H       |		EXTB.W	D0
00022440 48 c0                    |H       |		EXTW.L	D0
00022442 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00022448 63 02                    |c       |		BLS	0x2244c
0002244a 4e 4f                    |NO      |		TRAP	#15
0002244c 11 80 78 00              |  x     |		MOVE.B	D0,(A0+D7.L)
00022450 52 87                    |R       |		ADDQ.L	#0x1,D7
00022452 68 c4                    |h       |		BVC	0x22418
00022454 60 80                    |`       |		BRA	0x223d6
00022456					switch@0x22334[0x10]:
00022456 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
0002245a 67 52                    |gR      |		BEQ	0x224ae
0002245c 20 52                    | R      |		MOVEA.L	(A2),A0
0002245e 10 82                    |        |		MOVE.B	D2,(A0)
00022460 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022462 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022466 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022468 4e ba fc dc              |N       |		JSR	0x22146
0002246c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002246e 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022470 be 97                    |        |		CMP.L	(A7),D7
00022472 6e 38                    |n8      |		BGT	0x224ac
00022474 20 52                    | R      |		MOVEA.L	(A2),A0
00022476 be 84                    |        |		CMP.L	D4,D7
00022478 63 02                    |c       |		BLS	0x2247c
0002247a 4e 4f                    |NO      |		TRAP	#15
0002247c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002247e 20 07                    |        |		MOVE.L	D7,D0
00022480 53 80                    |S       |		SUBQ.L	#0x1,D0
00022482 b0 84                    |        |		CMP.L	D4,D0
00022484 63 02                    |c       |		BLS	0x22488
00022486 4e 4f                    |NO      |		TRAP	#15
00022488 42 81                    |B       |		CLR.L	D1
0002248a 12 36 08 08              | 6      |		MOVE.B	(A6+D0.L+#0x8),D1
0002248e 2f 01                    |/       |		MOVE.L	D1,-(A7)
00022490 4e 94                    |N       |		JSR	(A4)
00022492 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022494 10 1f                    |        |		MOVE.B	(A7)+,D0
00022496 48 80                    |H       |		EXTB.W	D0
00022498 48 c0                    |H       |		EXTW.L	D0
0002249a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000224a0 63 02                    |c       |		BLS	0x224a4
000224a2 4e 4f                    |NO      |		TRAP	#15
000224a4 11 80 78 00              |  x     |		MOVE.B	D0,(A0+D7.L)
000224a8 52 87                    |R       |		ADDQ.L	#0x1,D7
000224aa 68 c4                    |h       |		BVC	0x22470
000224ac 60 0a                    |`       |		BRA	0x224b8
000224ae 10 83                    |        |		MOVE.B	D3,(A0)
000224b0 20 52                    | R      |		MOVEA.L	(A2),A0
000224b2 48 50                    |HP      |		PEA.L	(A0)
000224b4 4e ba fd ec              |N       |		JSR	0x222a2
000224b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224ba 60 06                    |`       |		BRA	0x224c2
000224bc					switch@0x22334[0x12]:
000224bc 20 52                    | R      |		MOVEA.L	(A2),A0
000224be 10 bc 00 27              |   '    |		MOVE.B	#0x27,(A0)
000224c2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000224c6 4e 5e                    |N^      |		UNLK	A6
000224c8 4e 75                    |Nu      |		RTS
000224ca ; --------------------------------------------------------------------------------------
000224ca ; OMSI PASCAL Function
000224ca ;    <LVAR  0x00c 4(r)>
000224ca ;    <LVAR  0x008 4(r)>
000224ca ;    <LVAR -0x001 1(r)>
000224ca ;    <LVAR -0x004 @>
000224ca ; --------------------------------------------------------------------------------------
000224ca 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
000224ce bf d5                    |        |		CMPA.L	(A5),A7
000224d0 62 06                    |b       |		BHI	0x224d8
000224d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000224d6 4e 76                    |Nv      |		TRAPV
000224d8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000224dc 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000224e0 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000224e6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000224ea 4e b9 00 01 05 32        |N    2  |		JSR	IPC_GetLong() : Long
000224f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224f2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000224f6 48 50                    |HP      |		PEA.L	(A0)
000224f8 48 78 00 00              |Hx      |		PEA.L	0x0
000224fc 48 78 00 07              |Hx      |		PEA.L	0x7
00022500 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00022506 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002250a 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00022510 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022514 10 2e ff ff              | .      |		MOVE.B	(A6-0x1),D0
00022518 48 80                    |H       |		EXTB.W	D0
0002251a 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
0002251e 10 80                    |        |		MOVE.B	D0,(A0)
00022520 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022524 4e 5e                    |N^      |		UNLK	A6
00022526 4e 75                    |Nu      |		RTS
00022528 ; --------------------------------------------------------------------------------------
00022528 ; OMSI PASCAL Function
00022528 ;    <LVAR  0x010 4(r)>
00022528 ;    <LVAR  0x00c 4(r)>
00022528 ;    <LVAR  0x008 4(r)>
00022528 ;    <LVAR -0x001 1(r)>
00022528 ;    <LVAR -0x002 @ 1(r)>
00022528 ;    <LVAR -0x012 @>
00022528 ;    <LVAR -0x018 @>
00022528 ;    <LVAR -0x01d @>
00022528 ;    <LVAR -0x026 @>
00022528 ;    <LVAR -0x02c @>
00022528 ; --------------------------------------------------------------------------------------
00022528 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
0002252c bf d5                    |        |		CMPA.L	(A5),A7
0002252e 62 06                    |b       |		BHI	0x22536
00022530 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022534 4e 76                    |Nv      |		TRAPV
00022536 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002253a 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0002253e 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00022542 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00022546 48 6e ff e3              |Hn      |		PEA.L	(A6-0x1d)
0002254a 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
0002254e 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00022552 4e ba ee ca              |N       |		JSR	0x2141e
00022556 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002255a 42 17                    |B       |		CLR.B	(A7)
0002255c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00022560 4e b9 00 02 2e 34        |N   .4  |		JSR	exp_TEST_READ_DISPATCH.SEQ(Sw_1, &Sr_2)
00022566 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022568 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
0002256c 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00022570 48 6e ff e3              |Hn      |		PEA.L	(A6-0x1d)
00022574 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00022578 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
0002257c 4e ba ef 0c              |N       |		JSR	0x2148a
00022580 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022584 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022588 42 80                    |B       |		CLR.L	D0
0002258a 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
0002258e c0 fc 01 00              |        |		MULU.W	#0x100,D0
00022592 42 81                    |B       |		CLR.L	D1
00022594 12 2e ff ff              | .      |		MOVE.B	(A6-0x1),D1
00022598 d2 40                    | @      |		ADD.W	D0,D1
0002259a 30 81                    |0       |		MOVE.W	D1,(A0)
0002259c 30 01                    |0       |		MOVE.W	D1,D0
0002259e 02 40 fc 00              | @      |		ANDI.W	#0xfc00,D0
000225a2 67 10                    |g       |		BEQ	0x225b4
000225a4 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000225a8 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
000225ac 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000225b0 ec 49                    | I      |		LSR.W	#0x6,D1
000225b2 60 0a                    |`       |		BRA	0x225be
000225b4 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000225b8 42 10                    |B       |		CLR.B	(A0)
000225ba 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000225be 30 81                    |0       |		MOVE.W	D1,(A0)
000225c0 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000225c4 4e 5e                    |N^      |		UNLK	A6
000225c6 4e 75                    |Nu      |		RTS
000225c8 ; --------------------------------------------------------------------------------------
000225c8 ; OMSI PASCAL Function
000225c8 ;    <LVAR  0x00c 4(r)>
000225c8 ;    <LVAR  0x008 4(r)>
000225c8 ;    <LVAR -0x004 @ 1(r)>
000225c8 ;    <LVAR -0x006 @ 2(r)>
000225c8 ;    <LVAR -0x00a @ 4(r)>
000225c8 ;    <LVAR -0x00e 4(rw)>
000225c8 ;    <LVAR -0x012 4(rw)>
000225c8 ;    <LVAR -0x016 4(r)>
000225c8 ;    <LVAR -0x01a @ 4(r)>
000225c8 ;    <LVAR -0x01e 4(r)>
000225c8 ;    <LVAR -0x022 @ 4(r)>
000225c8 ;    <LVAR -0x024 @ 2(r)>
000225c8 ; --------------------------------------------------------------------------------------
000225c8 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
000225cc bf d5                    |        |		CMPA.L	(A5),A7
000225ce 62 06                    |b       |		BHI	0x225d6
000225d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225d4 4e 76                    |Nv      |		TRAPV
000225d6 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000225da 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
000225de 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000225e2 45 ee ff de              |E       |		LEA.L	(A6-0x22),A2
000225e6 47 ee ff e6              |G       |		LEA.L	(A6-0x1a),A3
000225ea 49 ee ff dc              |I       |		LEA.L	(A6-0x24),A4
000225ee 72 10                    |r       |		MOVEQ.L	#0x10,D1
000225f0 74 03                    |t       |		MOVEQ.L	#0x03,D2
000225f2 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
000225f4 78 01                    |x       |		MOVEQ.L	#0x01,D4
000225f6 48 54                    |HT      |		PEA.L	(A4)
000225f8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000225fc 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00022600 4e ba ff 26              |N  &    |		JSR	0x22528
00022604 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022608 3e ae ff fa              |>       |		MOVE.W	(A6-0x6),(A7)
0002260c 1f 2e ff fc              | .      |		MOVE.B	(A6-0x4),-(A7)
00022610 48 52                    |HR      |		PEA.L	(A2)
00022612 4e ba ef 9c              |N       |		JSR	0x215b0
00022616 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022618 2e ae ff e2              |.       |		MOVE.L	(A6-0x1e),(A7)
0002261c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002261e 4e ba f3 be              |N       |		JSR	0x219de
00022622 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022624 4a 1f                    |J       |		TST.B	(A7)+
00022626 67 08                    |g       |		BEQ	0x22630
00022628 20 51                    | Q      |		MOVEA.L	(A1),A0
0002262a 10 82                    |        |		MOVE.B	D2,(A0)
0002262c 60 00 01 10              |`       |		BRA	0x2273e
00022630 3f 14                    |?       |		MOVE.W	(A4),-(A7)
00022632 48 53                    |HS      |		PEA.L	(A3)
00022634 4e ba f0 56              |N  V    |		JSR	0x2168c
00022638 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002263a 42 80                    |B       |		CLR.L	D0
0002263c 30 14                    |0       |		MOVE.W	(A4),D0
0002263e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022640 48 78 00 04              |Hx      |		PEA.L	0x4
00022644 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
0002264a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002264c 4e ba f2 fe              |N       |		JSR	0x2194c
00022650 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022652 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022656 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022658 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
0002265c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002265e 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022664 de c1                    |        |		ADDA.W	D1,A7
00022666 4a 1f                    |J       |		TST.B	(A7)+
00022668 67 0a                    |g       |		BEQ	0x22674
0002266a 20 51                    | Q      |		MOVEA.L	(A1),A0
0002266c 10 bc 00 04              |        |		MOVE.B	#0x04,(A0)
00022670 60 00 00 9c              |`       |		BRA	0x2270e
00022674 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022676 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
0002267a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002267c 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
00022680 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022682 4e b9 00 01 03 40        |N    @  |		JSR	BitXor(a, b : Quad) : Quad
00022688 de c1                    |        |		ADDA.W	D1,A7
0002268a 2d 5f ff ee              |-_      |		MOVE.L	(A7)+,(A6-0x12)
0002268e 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00022692 1f 2e ff fc              | .      |		MOVE.B	(A6-0x4),-(A7)
00022696 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002269a 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
0002269e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000226a2 4e ba f9 5c              |N  \    |		JSR	0x22000
000226a6 de c3                    |        |		ADDA.W	D3,A7
000226a8 20 2e ff f6              | .      |		MOVE.L	(A6-0xa),D0
000226ac b0 82                    |        |		CMP.L	D2,D0
000226ae 62 58                    |bX      |		BHI	0x22708
000226b0 d0 40                    | @      |		ADD.W	D0,D0
000226b2 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000226ba 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x226c2
000226bc 00 36                    | 6      |		.CONST	0x36			; [0x1] -> 0x226f0
000226be 00 3e                    | >      |		.CONST	0x3e			; [0x2] -> 0x226f8
000226c0 00 46                    | F      |		.CONST	0x46			; [0x3] -> 0x22700
000226c2					switch@0x226b2[0x0]:
000226c2 41 fa df 5a              |A  Z    |		LEA.L	0x2061e,A0
000226c6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000226c8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000226ca 51 c8 ff fc              |Q       |		DBF	D0,0x226c8
000226ce 1f 03                    |        |		MOVE.B	D3,-(A7)
000226d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226d2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000226d6 3f 04                    |?       |		MOVE.W	D4,-(A7)
000226d8 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
000226dc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000226e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e4 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000226ea de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000226ee 60 1e                    |`       |		BRA	0x2270e
000226f0					switch@0x226b2[0x1]:
000226f0 20 51                    | Q      |		MOVEA.L	(A1),A0
000226f2 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
000226f6 60 16                    |`       |		BRA	0x2270e
000226f8					switch@0x226b2[0x2]:
000226f8 20 51                    | Q      |		MOVEA.L	(A1),A0
000226fa 10 bc 00 06              |        |		MOVE.B	#0x06,(A0)
000226fe 60 0e                    |`       |		BRA	0x2270e
00022700					switch@0x226b2[0x3]:
00022700 20 51                    | Q      |		MOVEA.L	(A1),A0
00022702 10 bc 00 07              |        |		MOVE.B	#0x07,(A0)
00022706 60 06                    |`       |		BRA	0x2270e
00022708 20 51                    | Q      |		MOVEA.L	(A1),A0
0002270a 10 bc 00 08              |        |		MOVE.B	#0x08,(A0)
0002270e 4e ba fa ea              |N       |		JSR	0x221fa
00022712 3f 14                    |?       |		MOVE.W	(A4),-(A7)
00022714 48 53                    |HS      |		PEA.L	(A3)
00022716 4e ba ef 74              |N  t    |		JSR	0x2168c
0002271a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002271c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022720 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022722 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022726 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022728 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
0002272c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002272e 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00022734 de c1                    |        |		ADDA.W	D1,A7
00022736 10 1f                    |        |		MOVE.B	(A7)+,D0
00022738 48 80                    |H       |		EXTB.W	D0
0002273a 41 84                    |A       |		CHK.W	D4,D0
0002273c 10 80                    |        |		MOVE.B	D0,(A0)
0002273e 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00022742 4e 5e                    |N^      |		UNLK	A6
00022744 4e 75                    |Nu      |		RTS
00022746 ; --------------------------------------------------------------------------------------
00022746 ; OMSI PASCAL Function
00022746 ;    <LVAR  0x010 4(r)>
00022746 ;    <LVAR  0x00c 4(r)>
00022746 ;    <LVAR  0x008 4(r)>
00022746 ; --------------------------------------------------------------------------------------
00022746 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
0002274a bf d5                    |        |		CMPA.L	(A5),A7
0002274c 62 06                    |b       |		BHI	0x22754
0002274e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022752 4e 76                    |Nv      |		TRAPV
00022754 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00022758 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002275c 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00022760 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022762 4a ae 00 10              |J       |		TST.L	(A6+0x10)
00022766 66 38                    |f8      |		BNE	0x227a0
00022768 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
0002276c 20 4f                    | O      |		MOVEA.L	A7,A0
0002276e 43 fa de ae              |C       |		LEA.L	0x2061e,A1
00022772 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00022774 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022776 51 c8 ff fc              |Q       |		DBF	D0,0x22774
0002277a 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
0002277e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022780 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022784 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022786 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
0002278a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022790 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022792 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022798 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0002279c 60 00 00 8c              |`       |		BRA	0x2282a
000227a0 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
000227a4 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
000227aa 66 2e                    |f.      |		BNE	0x227da
000227ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000227ae 4e ba f4 d2              |N       |		JSR	0x21c82
000227b2 4a 1f                    |J       |		TST.B	(A7)+
000227b4 67 08                    |g       |		BEQ	0x227be
000227b6 20 52                    | R      |		MOVEA.L	(A2),A0
000227b8 10 bc 00 02              |        |		MOVE.B	#0x02,(A0)
000227bc 60 1a                    |`       |		BRA	0x227d8
000227be 20 52                    | R      |		MOVEA.L	(A2),A0
000227c0 10 81                    |        |		MOVE.B	D1,(A0)
000227c2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000227c6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000227c8 22 4f                    |"O      |		MOVEA.L	A7,A1
000227ca 70 07                    |p       |		MOVEQ.L	#0x07,D0
000227cc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000227ce 51 c8 ff fc              |Q       |		DBF	D0,0x227cc
000227d2 4e ba f1 bc              |N       |		JSR	0x21990
000227d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227d8 60 50                    |`P      |		BRA	0x2282a
000227da 20 52                    | R      |		MOVEA.L	(A2),A0
000227dc 42 10                    |B       |		CLR.B	(A0)
000227de 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000227e0 4e ba f4 a0              |N       |		JSR	0x21c82
000227e4 4a 1f                    |J       |		TST.B	(A7)+
000227e6 67 2c                    |g,      |		BEQ	0x22814
000227e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227ea 1e ba de 5a              |   Z    |		MOVE.B	0x20646,(A7)
000227ee 1f 7a de 57 00 01        | z W    |		MOVE.B	0x20647,(A7+0x1)
000227f4 1f 7a de 52 00 02        | z R    |		MOVE.B	0x20648,(A7+0x2)
000227fa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227fc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022800 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022802 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022806 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002280c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002280e 4e ba f1 3c              |N  <    |		JSR	0x2194c
00022812 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022814 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022818 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002281a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002281c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002281e 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022820 51 c8 ff fc              |Q       |		DBF	D0,0x2281e
00022824 4e ba f1 6a              |N  j    |		JSR	0x21990
00022828 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002282a 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002282e 4e 5e                    |N^      |		UNLK	A6
00022830 4e 75                    |Nu      |		RTS
00022832 ; --------------------------------------------------------------------------------------
00022832 ; OMSI PASCAL Function
00022832 ;    <LVAR  0x008 4(r)>
00022832 ;    <LVAR -0x003 1(r)>
00022832 ;    <LVAR -0x004 @ 1(r)>
00022832 ; --------------------------------------------------------------------------------------
00022832 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00022836 bf d5                    |        |		CMPA.L	(A5),A7
00022838 62 06                    |b       |		BHI	0x22840
0002283a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002283e 4e 76                    |Nv      |		TRAPV
00022840 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
00022844 48 e7 e0 80              |H       |		MOVEM.L	A0+D2+D1+D0,-(A7)
00022848 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002284a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002284e 4e b9 00 02 30 ba        |N   0   |		JSR	exp_READ_LAST_PC.IOC(&Sr_2)
00022854 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022856 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002285a 42 80                    |B       |		CLR.L	D0
0002285c 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00022860 e1 40                    | @      |		ASL.W	#0x8,D0
00022862 42 81                    |B       |		CLR.L	D1
00022864 12 2e ff fd              | .      |		MOVE.B	(A6-0x3),D1
00022868 d2 40                    | @      |		ADD.W	D0,D1
0002286a 30 81                    |0       |		MOVE.W	D1,(A0)
0002286c 0c 41 01 00              | A      |		CMPI.W	#0x0100,D1
00022870 64 64                    |dd      |		BCC	0x228d6
00022872 41 fa dd fa              |A       |		LEA.L	0x2066e,A0
00022876 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022878 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002287a 51 c8 ff fc              |Q       |		DBF	D0,0x22878
0002287e 41 fa de 00              |A       |		LEA.L	0x20680,A0
00022882 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022884 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022886 51 c8 ff fc              |Q       |		DBF	D0,0x22884
0002288a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002288c 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00022890 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022892 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00022896 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002289c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002289e 42 80                    |B       |		CLR.L	D0
000228a0 30 01                    |0       |		MOVE.W	D1,D0
000228a2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000228a4 48 78 00 04              |Hx      |		PEA.L	0x4
000228a8 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000228ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228b0 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000228b4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000228b6 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000228ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000228c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228c2 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000228c8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000228cc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000228d2 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000228d6 4c df 01 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0
000228da 4e 5e                    |N^      |		UNLK	A6
000228dc 4e 75                    |Nu      |		RTS
000228de ; --------------------------------------------------------------------------------------
000228de ; OMSI PASCAL Function
000228de ;    <LVAR  0x014 4(r)>
000228de ;    <LVAR  0x010 4(r)>
000228de ;    <LVAR  0x00c 4(r)>
000228de ;    <LVAR  0x008 4(r)>
000228de ;    <LVAR -0x058 @>
000228de ;    <LVAR -0x05a @ 2(r)>
000228de ;    <LVAR -0x07a @>
000228de ;    <LVAR -0x07e @ 4(r)>
000228de ;    <LVAR -0x082 @ 4(r)>
000228de ;    <LVAR -0x086 @ 4(r)>
000228de ;    <LVAR -0x088 @>
000228de ; --------------------------------------------------------------------------------------
000228de 4e 56 fe cc              |NV      |		LINK.W	A6,#0xfecc
000228e2 bf d5                    |        |		CMPA.L	(A5),A7
000228e4 62 06                    |b       |		BHI	0x228ec
000228e6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000228ea 4e 76                    |Nv      |		TRAPV
000228ec de fc 00 ac              |        |		ADDA.W	#0xac,A7
000228f0 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
000228f4 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
000228f8 49 ee ff a6              |I       |		LEA.L	(A6-0x5a),A4
000228fc 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000228fe 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022900 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00022902 78 03                    |x       |		MOVEQ.L	#0x03,D4
00022904 7a 0d                    |z       |		MOVEQ.L	#0x0d,D5
00022906 48 54                    |HT      |		PEA.L	(A4)
00022908 4e ba ff 28              |N  (    |		JSR	0x22832
0002290c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002290e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022910 10 07                    |        |		MOVE.B	D7,D0
00022912 48 80                    |H       |		EXTB.W	D0
00022914 e3 40                    | @      |		ASL.W	#0x1,D0
00022916 41 ee ff 78              |A  x    |		LEA.L	(A6-0x88),A0
0002291a 31 82 00 0e              |1       |		MOVE.W	D2,(A0+D0.W+#0xe)
0002291e 52 07                    |R       |		ADDQ.B	#0x1,D7
00022920 be 03                    |        |		CMP.B	D3,D7
00022922 6f ec                    |o       |		BLE	0x22910
00022924 9e c1                    |        |		SUBA.W	D1,A7
00022926 42 80                    |B       |		CLR.L	D0
00022928 30 14                    |0       |		MOVE.W	(A4),D0
0002292a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002292c 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00022932 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022934 48 78 00 10              |Hx      |		PEA.L	0x10
00022938 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
0002293e de c1                    |        |		ADDA.W	D1,A7
00022940 4e ba f0 0a              |N       |		JSR	0x2194c
00022944 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022946 3e 94                    |>       |		MOVE.W	(A4),(A7)
00022948 48 6e ff a8              |Hn      |		PEA.L	(A6-0x58)
0002294c 4e ba e8 9c              |N       |		JSR	0x211ea
00022950 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022952 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022956 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022958 9e fc 00 56              |   V    |		SUBA.W	#0x56,A7
0002295c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002295e 45 ee ff a8              |E       |		LEA.L	(A6-0x58),A2
00022962 70 54                    |pT      |		MOVEQ.L	#0x54,D0
00022964 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022966 51 c8 ff fc              |Q       |		DBF	D0,0x22964
0002296a 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0002296e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022970 22 4f                    |"O      |		MOVEA.L	A7,A1
00022972 24 48                    |$H      |		MOVEA.L	A0,A2
00022974 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022976 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022978 51 c8 ff fc              |Q       |		DBF	D0,0x22976
0002297c 48 6e ff 7a              |Hn z    |		PEA.L	(A6-0x86)
00022980 48 6e ff 86              |Hn      |		PEA.L	(A6-0x7a)
00022984 4e ba f0 a2              |N       |		JSR	0x21a28
00022988 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002298c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002298e 45 ee ff a8              |E       |		LEA.L	(A6-0x58),A2
00022992 70 54                    |pT      |		MOVEQ.L	#0x54,D0
00022994 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022996 51 c8 ff fc              |Q       |		DBF	D0,0x22994
0002299a 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0002299e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000229a0 22 4f                    |"O      |		MOVEA.L	A7,A1
000229a2 24 48                    |$H      |		MOVEA.L	A0,A2
000229a4 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229a6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000229a8 51 c8 ff fc              |Q       |		DBF	D0,0x229a6
000229ac 48 6e ff 7e              |Hn ~    |		PEA.L	(A6-0x82)
000229b0 48 6e ff 86              |Hn      |		PEA.L	(A6-0x7a)
000229b4 48 6e ff 82              |Hn      |		PEA.L	(A6-0x7e)
000229b8 4e ba f1 e4              |N       |		JSR	0x21b9e
000229bc de fc 00 64              |   d    |		ADDA.W	#0x64,A7
000229c0 22 4f                    |"O      |		MOVEA.L	A7,A1
000229c2 24 48                    |$H      |		MOVEA.L	A0,A2
000229c4 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229c6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000229c8 51 c8 ff fc              |Q       |		DBF	D0,0x229c6
000229cc 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
000229d0 22 4c                    |"L      |		MOVEA.L	A4,A1
000229d2 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229d4 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000229d6 51 c8 ff fc              |Q       |		DBF	D0,0x229d4
000229da 4e ba f7 a8              |N       |		JSR	0x22184
000229de de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000229e2 4a 1f                    |J       |		TST.B	(A7)+
000229e4 67 0a                    |g       |		BEQ	0x229f0
000229e6 20 53                    | S      |		MOVEA.L	(A3),A0
000229e8 10 bc 00 12              |        |		MOVE.B	#0x12,(A0)
000229ec 60 00 00 b2              |`       |		BRA	0x22aa0
000229f0 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
000229f4 b0 82                    |        |		CMP.L	D2,D0
000229f6 66 7a                    |fz      |		BNE	0x22a72
000229f8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000229fa 22 4f                    |"O      |		MOVEA.L	A7,A1
000229fc 24 48                    |$H      |		MOVEA.L	A0,A2
000229fe 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022a00 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022a02 51 c8 ff fc              |Q       |		DBF	D0,0x22a00
00022a06 4e ba ef 88              |N       |		JSR	0x21990
00022a0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a0c 20 2e ff 82              | .      |		MOVE.L	(A6-0x7e),D0
00022a10 b0 84                    |        |		CMP.L	D4,D0
00022a12 62 30                    |b0      |		BHI	0x22a44
00022a14 d0 40                    | @      |		ADD.W	D0,D0
00022a16 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022a1e 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x22a26
00022a20 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x22a2c
00022a22 00 16                    |        |		.CONST	0x16			; [0x2] -> 0x22a34
00022a24 00 1e                    |        |		.CONST	0x1e			; [0x3] -> 0x22a3c
00022a26					switch@0x22a16[0x0]:
00022a26 20 53                    | S      |		MOVEA.L	(A3),A0
00022a28 10 85                    |        |		MOVE.B	D5,(A0)
00022a2a 60 1c                    |`       |		BRA	0x22a48
00022a2c					switch@0x22a16[0x1]:
00022a2c 20 53                    | S      |		MOVEA.L	(A3),A0
00022a2e 10 bc 00 09              |        |		MOVE.B	#0x09,(A0)
00022a32 60 14                    |`       |		BRA	0x22a48
00022a34					switch@0x22a16[0x2]:
00022a34 20 53                    | S      |		MOVEA.L	(A3),A0
00022a36 10 bc 00 0a              |        |		MOVE.B	#0x0a,(A0)
00022a3a 60 0c                    |`       |		BRA	0x22a48
00022a3c					switch@0x22a16[0x3]:
00022a3c 20 53                    | S      |		MOVEA.L	(A3),A0
00022a3e 10 bc 00 0b              |        |		MOVE.B	#0x0b,(A0)
00022a42 60 04                    |`       |		BRA	0x22a48
00022a44 20 53                    | S      |		MOVEA.L	(A3),A0
00022a46 10 81                    |        |		MOVE.B	D1,(A0)
00022a48 20 2e ff 82              | .      |		MOVE.L	(A6-0x7e),D0
00022a4c b0 82                    |        |		CMP.L	D2,D0
00022a4e 6d 20                    |m       |		BLT	0x22a70
00022a50 b0 84                    |        |		CMP.L	D4,D0
00022a52 6e 1c                    |n       |		BGT	0x22a70
00022a54 42 80                    |B       |		CLR.L	D0
00022a56 30 14                    |0       |		MOVE.W	(A4),D0
00022a58 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022a5a 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00022a5e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022a60 22 4f                    |"O      |		MOVEA.L	A7,A1
00022a62 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022a64 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022a66 51 c8 ff fc              |Q       |		DBF	D0,0x22a64
00022a6a 4e ba f2 c4              |N       |		JSR	0x21d30
00022a6e de c1                    |        |		ADDA.W	D1,A7
00022a70 60 2e                    |`.      |		BRA	0x22aa0
00022a72 b0 ae ff 7a              |   z    |		CMP.L	(A6-0x86),D0
00022a76 66 08                    |f       |		BNE	0x22a80
00022a78 20 53                    | S      |		MOVEA.L	(A3),A0
00022a7a 10 bc 00 0e              |        |		MOVE.B	#0x0e,(A0)
00022a7e 60 20                    |`       |		BRA	0x22aa0
00022a80 4a ae ff 7a              |J  z    |		TST.L	(A6-0x86)
00022a84 67 08                    |g       |		BEQ	0x22a8e
00022a86 20 53                    | S      |		MOVEA.L	(A3),A0
00022a88 10 bc 00 11              |        |		MOVE.B	#0x11,(A0)
00022a8c 60 12                    |`       |		BRA	0x22aa0
00022a8e b0 ae ff 7e              |   ~    |		CMP.L	(A6-0x82),D0
00022a92 66 06                    |f       |		BNE	0x22a9a
00022a94 20 53                    | S      |		MOVEA.L	(A3),A0
00022a96 10 83                    |        |		MOVE.B	D3,(A0)
00022a98 60 06                    |`       |		BRA	0x22aa0
00022a9a 20 53                    | S      |		MOVEA.L	(A3),A0
00022a9c 10 bc 00 10              |        |		MOVE.B	#0x10,(A0)
00022aa0 20 53                    | S      |		MOVEA.L	(A3),A0
00022aa2 42 80                    |B       |		CLR.L	D0
00022aa4 10 10                    |        |		MOVE.B	(A0),D0
00022aa6 b0 43                    | C      |		CMP.W	D3,D0
00022aa8 67 5a                    |gZ      |		BEQ	0x22b04
00022aaa b0 45                    | E      |		CMP.W	D5,D0
00022aac 67 56                    |gV      |		BEQ	0x22b04
00022aae 4e ba f7 4a              |N  J    |		JSR	0x221fa
00022ab2 3f 14                    |?       |		MOVE.W	(A4),-(A7)
00022ab4 48 6e ff a8              |Hn      |		PEA.L	(A6-0x58)
00022ab8 4e ba e7 30              |N  0    |		JSR	0x211ea
00022abc 9e fc 00 50              |   P    |		SUBA.W	#0x50,A7
00022ac0 20 4f                    | O      |		MOVEA.L	A7,A0
00022ac2 43 ee ff a8              |C       |		LEA.L	(A6-0x58),A1
00022ac6 70 54                    |pT      |		MOVEQ.L	#0x54,D0
00022ac8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022aca 51 c8 ff fc              |Q       |		DBF	D0,0x22ac8
00022ace 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00022ad2 20 6f 00 5a              | o Z    |		MOVEA.L	(A7+0x5a),A0
00022ad6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ad8 22 4f                    |"O      |		MOVEA.L	A7,A1
00022ada 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022adc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022ade 51 c8 ff fc              |Q       |		DBF	D0,0x22adc
00022ae2 48 6e ff 7e              |Hn ~    |		PEA.L	(A6-0x82)
00022ae6 48 6e ff 86              |Hn      |		PEA.L	(A6-0x7a)
00022aea 48 6e ff 82              |Hn      |		PEA.L	(A6-0x7e)
00022aee 4e ba f0 ae              |N       |		JSR	0x21b9e
00022af2 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00022af6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022afa 42 10                    |B       |		CLR.B	(A0)
00022afc 4a ae ff 82              |J       |		TST.L	(A6-0x7e)
00022b00 66 02                    |f       |		BNE	0x22b04
00022b02 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00022b04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b06 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00022b0a 4e 5e                    |N^      |		UNLK	A6
00022b0c 4e 75                    |Nu      |		RTS
00022b0e ; --------------------------------------------------------------------------------------
00022b0e ; OMSI PASCAL Function
00022b0e ; --------------------------------------------------------------------------------------
00022b0e					START:
00022b0e 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00022b12 4e f9 00 01 02 80        |N       |		JMP	?start_program
00022b18					MAIN:
00022b18 45 f9 00 02 33 0b        |E   3   |		LEA.L	0x2330b,A2
00022b1e 47 f9 00 02 33 0a        |G   3   |		LEA.L	0x2330a,A3
00022b24 49 f9 00 02 32 f6        |I   2   |		LEA.L	0x232f6,A4
00022b2a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022b2c 74 07                    |t       |		MOVEQ.L	#0x07,D2
00022b2e 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00022b30 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00022b36 48 78 00 00              |Hx      |		PEA.L	0x0
00022b3a 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00022b40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b42 48 79 00 02 33 00        |Hy  3   |		PEA.L	0x23300
00022b48 48 52                    |HR      |		PEA.L	(A2)
00022b4a 4e ba f9 7e              |N  ~    |		JSR	0x224ca
00022b4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b50 48 79 00 02 32 f2        |Hy  2   |		PEA.L	0x232f2
00022b56 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022b5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b5e 42 13                    |B       |		CLR.B	(A3)
00022b60 70 00                    |p       |		MOVEQ.L	#0x00,D0
00022b62 23 c0 00 02 33 06        |#   3   |		MOVE.L	D0,0x23306
00022b68 b0 82                    |        |		CMP.L	D2,D0
00022b6a 63 02                    |c       |		BLS	0x22b6e
00022b6c 4e 4f                    |NO      |		TRAP	#15
00022b6e 41 f9 00 02 32 de        |A   2   |		LEA.L	0x232de,A0
00022b74 42 30 08 19              |B0      |		CLR.B	(A0+D0.L+#0x19)
00022b78 52 80                    |R       |		ADDQ.L	#0x1,D0
00022b7a b0 82                    |        |		CMP.L	D2,D0
00022b7c 6f e4                    |o       |		BLE	0x22b62
00022b7e 4e ba df c8              |N       |		JSR	0x20b48
00022b82 9e c3                    |        |		SUBA.W	D3,A7
00022b84 20 4f                    | O      |		MOVEA.L	A7,A0
00022b86 22 4a                    |"J      |		MOVEA.L	A2,A1
00022b88 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022b8a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b8c 51 c8 ff fc              |Q       |		DBF	D0,0x22b8a
00022b90 4e ba f5 b4              |N       |		JSR	0x22146
00022b94 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b96 23 df 00 02 33 02        |#   3   |		MOVE.L	(A7)+,0x23302
00022b9c 10 39 00 02 33 00        | 9  3   |		MOVE.B	0x23300,D0
00022ba2 48 80                    |H       |		EXTB.W	D0
00022ba4 57 40                    |W@      |		SUBQ.W	#0x3,D0
00022ba6 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00022baa 62 44                    |bD      |		BHI	0x22bf0
00022bac d0 40                    | @      |		ADD.W	D0,D0
00022bae 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022bb6 00 12                    |        |		.CONST	0x12			; [0x0] -> 0x22bc8
00022bb8 00 24                    | $      |		.CONST	0x24			; [0x1] -> 0x22bda
00022bba 00 06                    |        |		.CONST	0x6			; [0x2] -> 0x22bbc
00022bbc					switch@0x22bae[0x2]:
00022bbc 48 53                    |HS      |		PEA.L	(A3)
00022bbe 48 54                    |HT      |		PEA.L	(A4)
00022bc0 4e ba fa 06              |N       |		JSR	0x225c8
00022bc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022bc6 60 5c                    |`\      |		BRA	0x22c24
00022bc8					switch@0x22bae[0x0]:
00022bc8 2f 39 00 02 33 02        |/9  3   |		MOVE.L	0x23302,-(A7)
00022bce 48 54                    |HT      |		PEA.L	(A4)
00022bd0 48 52                    |HR      |		PEA.L	(A2)
00022bd2 4e ba fb 72              |N  r    |		JSR	0x22746
00022bd6 de c3                    |        |		ADDA.W	D3,A7
00022bd8 60 4a                    |`J      |		BRA	0x22c24
00022bda					switch@0x22bae[0x1]:
00022bda 2f 39 00 02 33 02        |/9  3   |		MOVE.L	0x23302,-(A7)
00022be0 48 53                    |HS      |		PEA.L	(A3)
00022be2 48 54                    |HT      |		PEA.L	(A4)
00022be4 48 52                    |HR      |		PEA.L	(A2)
00022be6 4e ba fc f6              |N       |		JSR	0x228de
00022bea de fc 00 10              |        |		ADDA.W	#0x10,A7
00022bee 60 34                    |`4      |		BRA	0x22c24
00022bf0 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00022bf4 20 4f                    | O      |		MOVEA.L	A7,A0
00022bf6 43 fa da 88              |C       |		LEA.L	0x20680,A1
00022bfa 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00022bfc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022bfe 51 c8 ff fc              |Q       |		DBF	D0,0x22bfc
00022c02 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00022c06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c08 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022c0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c0e 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00022c12 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c1a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022c20 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00022c24 4a 13                    |J       |		TST.B	(A3)
00022c26 67 2a                    |g*      |		BEQ	0x22c52
00022c28 41 fa da aa              |A       |		LEA.L	0x206d4,A0
00022c2c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022c2e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022c30 51 c8 ff fc              |Q       |		DBF	D0,0x22c2e
00022c34 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c3a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c3c 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
00022c40 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c48 4e ba ed 02              |N       |		JSR	0x2194c
00022c4c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022c50 60 28                    |`(      |		BRA	0x22c7a
00022c52 41 fa da b6              |A       |		LEA.L	0x2070a,A0
00022c56 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00022c58 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022c5a 51 c8 ff fc              |Q       |		DBF	D0,0x22c58
00022c5e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c60 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c64 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c66 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
00022c6a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c72 4e ba ec d8              |N       |		JSR	0x2194c
00022c76 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022c7a 48 79 00 02 32 ff        |Hy  2   |		PEA.L	0x232ff
00022c80 48 79 00 02 32 f7        |Hy  2   |		PEA.L	0x232f7
00022c86 48 54                    |HT      |		PEA.L	(A4)
00022c88 1f 13                    |        |		MOVE.B	(A3),-(A7)
00022c8a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022c8c 20 4f                    | O      |		MOVEA.L	A7,A0
00022c8e 22 4a                    |"J      |		MOVEA.L	A2,A1
00022c90 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022c92 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c94 51 c8 ff fc              |Q       |		DBF	D0,0x22c92
00022c98 4e ba f6 46              |N  F    |		JSR	0x222e0
00022c9c de fc 00 14              |        |		ADDA.W	#0x14,A7
00022ca0 3e ba da 6c              |>  l    |		MOVE.W	0x2070e,(A7)
00022ca4 3f 3a da 66              |?: f    |		MOVE.W	0x2070c,-(A7)
00022ca8 3f 3a da 60              |?: `    |		MOVE.W	0x2070a,-(A7)
00022cac 1f 39 00 02 32 ff        | 9  2   |		MOVE.B	0x232ff,-(A7)
00022cb2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cb4 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022cb8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022cba 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00022cbe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022cc4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022cc6 2e b9 00 02 32 f2        |.   2   |		MOVE.L	0x232f2,(A7)
00022ccc 1f 14                    |        |		MOVE.B	(A4),-(A7)
00022cce 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022cd0 20 4f                    | O      |		MOVEA.L	A7,A0
00022cd2 43 f9 00 02 32 f7        |C   2   |		LEA.L	0x232f7,A1
00022cd8 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022cda 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022cdc 51 c8 ff fc              |Q       |		DBF	D0,0x22cda
00022ce0 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00022ce6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022cea 4e b9 00 01 02 84        |N       |		JSR	?exit
00022cf0					exp_UNPERMUTE_UIR.FIU(Sw_8, &Sr_6):
00022cf0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022cf6 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022cf8 11 55 4e 50 45 52 4d 55  | UNPERMU|		.TXT	17,'UNPERMUTE_UIR.FIU'
00022d0a 00                       |        |		.CONST	0x0
00022d0b 03                       |        |		.CONST	0x3			; DIPROC address
00022d0c 01                       |        |		.CONST	0x1			; Output Parameters
00022d0d 01                       |        |		.CONST	0x1			; Input Parameters
00022d0e 07                       |        |		.CONST	0x7			; In arg [8]
00022d0f 05                       |        |		.CONST	0x5			; Out arg [6]
00022d10					exp_READ_WCS.FIU(Sw_2, Sw_1, &Sr_6, &Fr):
00022d10 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d16 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022d18 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.FIU'
00022d25 00                       |        |		.CONST	0x0
00022d26 03                       |        |		.CONST	0x3			; DIPROC address
00022d27 02                       |        |		.CONST	0x2			; Output Parameters
00022d28 02                       |        |		.CONST	0x2			; Input Parameters
00022d29 01                       |        |		.CONST	0x1			; In arg [2]
00022d2a 00                       |        |		.CONST	0x0			; In arg [1]
00022d2b 05                       |        |		.CONST	0x5			; Out arg [6]
00022d2c 08                       |        |		.CONST	0x8			; Out arg flag
00022d2d 00                       |        |		.PAD	0x0
00022d2e					exp_WRITE_UIR.SEQ(Sw_6):
00022d2e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d34 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022d36 0d 57 52 49 54 45 5f 55  | WRITE_U|		.TXT	13,'WRITE_UIR.SEQ'
00022d44 00                       |        |		.CONST	0x0
00022d45 02                       |        |		.CONST	0x2			; DIPROC address
00022d46 00                       |        |		.CONST	0x0			; Output Parameters
00022d47 01                       |        |		.CONST	0x1			; Input Parameters
00022d48 05                       |        |		.CONST	0x5			; In arg [6]
00022d49 00                       |        |		.PAD	0x0
00022d4a					exp_WRITE_SDR.SEQ(Sw_8_8):
00022d4a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d50 00 18                    |        |		.CONST	0x0018			; Stack-delta
00022d52 0d 57 52 49 54 45 5f 53  | WRITE_S|		.TXT	13,'WRITE_SDR.SEQ'
00022d60 00                       |        |		.CONST	0x0
00022d61 02                       |        |		.CONST	0x2			; DIPROC address
00022d62 00                       |        |		.CONST	0x0			; Output Parameters
00022d63 01                       |        |		.CONST	0x1			; Input Parameters
00022d64 09                       |        |		.CONST	0x9			; In arg [8, 8]
00022d65 00                       |        |		.PAD	0x0
00022d66					exp_WRITE_MISC.SEQ(Sw_2_2_1_1_3):
00022d66 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d6c 00 12                    |        |		.CONST	0x0012			; Stack-delta
00022d6e 0e 57 52 49 54 45 5f 4d  | WRITE_M|		.TXT	14,'WRITE_MISC.SEQ'
00022d7d 00                       |        |		.CONST	0x0
00022d7e 02                       |        |		.CONST	0x2			; DIPROC address
00022d7f 00                       |        |		.CONST	0x0			; Output Parameters
00022d80 01                       |        |		.CONST	0x1			; Input Parameters
00022d81 0e                       |        |		.CONST	0xe			; In arg [2, 2, 1, 1, 3]
00022d82					exp_WRITE_DEC.SEQ(Sw_2_1_1_1):
00022d82 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d88 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022d8a 0d 57 52 49 54 45 5f 44  | WRITE_D|		.TXT	13,'WRITE_DEC.SEQ'
00022d98 00                       |        |		.CONST	0x0
00022d99 02                       |        |		.CONST	0x2			; DIPROC address
00022d9a 00                       |        |		.CONST	0x0			; Output Parameters
00022d9b 01                       |        |		.CONST	0x1			; Input Parameters
00022d9c 0f                       |        |		.CONST	0xf			; In arg [2, 1, 1, 1]
00022d9d 00                       |        |		.PAD	0x0
00022d9e					exp_UNPERMUTE_UIR.SEQ(Sw_8, &Sr_6):
00022d9e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022da4 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022da6 11 55 4e 50 45 52 4d 55  | UNPERMU|		.TXT	17,'UNPERMUTE_UIR.SEQ'
00022db8 00                       |        |		.CONST	0x0
00022db9 02                       |        |		.CONST	0x2			; DIPROC address
00022dba 01                       |        |		.CONST	0x1			; Output Parameters
00022dbb 01                       |        |		.CONST	0x1			; Input Parameters
00022dbc 07                       |        |		.CONST	0x7			; In arg [8]
00022dbd 05                       |        |		.CONST	0x5			; Out arg [6]
00022dbe					exp_UNPERMUTE_DECODE.SEQ(Sw_8, &Sr_5):
00022dbe 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022dc4 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022dc6 14 55 4e 50 45 52 4d 55  | UNPERMU|		.TXT	20,'UNPERMUTE_DECODE.SEQ'
00022ddb 00                       |        |		.CONST	0x0
00022ddc 02                       |        |		.CONST	0x2			; DIPROC address
00022ddd 01                       |        |		.CONST	0x1			; Output Parameters
00022dde 01                       |        |		.CONST	0x1			; Input Parameters
00022ddf 07                       |        |		.CONST	0x7			; In arg [8]
00022de0 04                       |        |		.CONST	0x4			; Out arg [5]
00022de1 00                       |        |		.PAD	0x0
00022de2					exp_TEST_READ_MACRO_PC.SEQ(Sw_1, &Sr_3, &Sr_2, &Sr_1):
00022de2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022de8 00 16                    |        |		.CONST	0x0016			; Stack-delta
00022dea 16 54 45 53 54 5f 52 45  | TEST_RE|		.TXT	22,'TEST_READ_MACRO_PC.SEQ'
00022e01 00                       |        |		.CONST	0x0
00022e02 02                       |        |		.CONST	0x2			; DIPROC address
00022e03 03                       |        |		.CONST	0x3			; Output Parameters
00022e04 01                       |        |		.CONST	0x1			; Input Parameters
00022e05 00                       |        |		.CONST	0x0			; In arg [1]
00022e06 02                       |        |		.CONST	0x2			; Out arg [3]
00022e07 01                       |        |		.CONST	0x1			; Out arg [2]
00022e08 00                       |        |		.CONST	0x0			; Out arg [1]
00022e09 00                       |        |		.PAD	0x0
00022e0a					exp_TEST_READ_IBUFF.SEQ(Sw_1, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2, &Sr_2):
00022e0a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e10 00 2a                    | *      |		.CONST	0x002a			; Stack-delta
00022e12 13 54 45 53 54 5f 52 45  | TEST_RE|		.TXT	19,'TEST_READ_IBUFF.SEQ'
00022e26 00                       |        |		.CONST	0x0
00022e27 02                       |        |		.CONST	0x2			; DIPROC address
00022e28 08                       |        |		.CONST	0x8			; Output Parameters
00022e29 01                       |        |		.CONST	0x1			; Input Parameters
00022e2a 00                       |        |		.CONST	0x0			; In arg [1]
00022e2b 01                       |        |		.CONST	0x1			; Out arg [2]
00022e2c 01                       |        |		.CONST	0x1			; Out arg [2]
00022e2d 01                       |        |		.CONST	0x1			; Out arg [2]
00022e2e 01                       |        |		.CONST	0x1			; Out arg [2]
00022e2f 01                       |        |		.CONST	0x1			; Out arg [2]
00022e30 01                       |        |		.CONST	0x1			; Out arg [2]
00022e31 01                       |        |		.CONST	0x1			; Out arg [2]
00022e32 01                       |        |		.CONST	0x1			; Out arg [2]
00022e33 00                       |        |		.PAD	0x0
00022e34					exp_TEST_READ_DISPATCH.SEQ(Sw_1, &Sr_2):
00022e34 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e3a 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022e3c 16 54 45 53 54 5f 52 45  | TEST_RE|		.TXT	22,'TEST_READ_DISPATCH.SEQ'
00022e53 00                       |        |		.CONST	0x0
00022e54 02                       |        |		.CONST	0x2			; DIPROC address
00022e55 01                       |        |		.CONST	0x1			; Output Parameters
00022e56 01                       |        |		.CONST	0x1			; Input Parameters
00022e57 00                       |        |		.CONST	0x0			; In arg [1]
00022e58 01                       |        |		.CONST	0x1			; Out arg [2]
00022e59 00                       |        |		.PAD	0x0
00022e5a					exp_TEST_LOAD_MACRO_PC.SEQ(Sw_1, Sw_3, Sw_2, Sw_1):
00022e5a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e60 00 12                    |        |		.CONST	0x0012			; Stack-delta
00022e62 16 54 45 53 54 5f 4c 4f  | TEST_LO|		.TXT	22,'TEST_LOAD_MACRO_PC.SEQ'
00022e79 00                       |        |		.CONST	0x0
00022e7a 02                       |        |		.CONST	0x2			; DIPROC address
00022e7b 00                       |        |		.CONST	0x0			; Output Parameters
00022e7c 04                       |        |		.CONST	0x4			; Input Parameters
00022e7d 00                       |        |		.CONST	0x0			; In arg [1]
00022e7e 02                       |        |		.CONST	0x2			; In arg [3]
00022e7f 01                       |        |		.CONST	0x1			; In arg [2]
00022e80 00                       |        |		.CONST	0x0			; In arg [1]
00022e81 00                       |        |		.PAD	0x0
00022e82					exp_TEST_LOAD_IBUFF.SEQ(Sw_1, Sw_8, Sw_8):
00022e82 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e88 00 1a                    |        |		.CONST	0x001a			; Stack-delta
00022e8a 13 54 45 53 54 5f 4c 4f  | TEST_LO|		.TXT	19,'TEST_LOAD_IBUFF.SEQ'
00022e9e 00                       |        |		.CONST	0x0
00022e9f 02                       |        |		.CONST	0x2			; DIPROC address
00022ea0 00                       |        |		.CONST	0x0			; Output Parameters
00022ea1 03                       |        |		.CONST	0x3			; Input Parameters
00022ea2 00                       |        |		.CONST	0x0			; In arg [1]
00022ea3 07                       |        |		.CONST	0x7			; In arg [8]
00022ea4 07                       |        |		.CONST	0x7			; In arg [8]
00022ea5 00                       |        |		.PAD	0x0
00022ea6					exp_READ_WCS_AND_PARITY.SEQ(Sw_2, &Sr_6, &Fr):
00022ea6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022eac 00 12                    |        |		.CONST	0x0012			; Stack-delta
00022eae 17 52 45 41 44 5f 57 43  | READ_WC|		.TXT	23,'READ_WCS_AND_PARITY.SEQ'
00022ec6 00                       |        |		.CONST	0x0
00022ec7 02                       |        |		.CONST	0x2			; DIPROC address
00022ec8 02                       |        |		.CONST	0x2			; Output Parameters
00022ec9 01                       |        |		.CONST	0x1			; Input Parameters
00022eca 01                       |        |		.CONST	0x1			; In arg [2]
00022ecb 05                       |        |		.CONST	0x5			; Out arg [6]
00022ecc 08                       |        |		.CONST	0x8			; Out arg flag
00022ecd 00                       |        |		.PAD	0x0
00022ece					exp_READ_UIR.SEQ(&Sr_6):
00022ece 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022ed4 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022ed6 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.SEQ'
00022ee3 00                       |        |		.CONST	0x0
00022ee4 02                       |        |		.CONST	0x2			; DIPROC address
00022ee5 01                       |        |		.CONST	0x1			; Output Parameters
00022ee6 00                       |        |		.CONST	0x0			; Input Parameters
00022ee7 05                       |        |		.CONST	0x5			; Out arg [6]
00022ee8					exp_READ_SDR.SEQ(&Sr_8_8):
00022ee8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022eee 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022ef0 0c 52 45 41 44 5f 53 44  | READ_SD|		.TXT	12,'READ_SDR.SEQ'
00022efd 00                       |        |		.CONST	0x0
00022efe 02                       |        |		.CONST	0x2			; DIPROC address
00022eff 01                       |        |		.CONST	0x1			; Output Parameters
00022f00 00                       |        |		.CONST	0x0			; Input Parameters
00022f01 09                       |        |		.CONST	0x9			; Out arg [8, 8]
00022f02					exp_RESTORE_PREDECODES.SEQ():
00022f02 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022f08 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022f0a 16 52 45 53 54 4f 52 45  | RESTORE|		.TXT	22,'RESTORE_PREDECODES.SEQ'
00022f21 00                       |        |		.CONST	0x0
00022f22 02                       |        |		.CONST	0x2			; DIPROC address
00022f23 00                       |        |		.CONST	0x0			; Output Parameters
00022f24 00                       |        |		.CONST	0x0			; Input Parameters
00022f25 00                       |        |		.PAD	0x0
00022f26					exp_READ_MISC.SEQ(&Sr_2_2_1_1_3):
00022f26 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022f2c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022f2e 0d 52 45 41 44 5f 4d 49  | READ_MI|		.TXT	13,'READ_MISC.SEQ'
00022f3c 00                       |        |		.CONST	0x0
00022f3d 02                       |        |		.CONST	0x2			; DIPROC address
00022f3e 01                       |        |		.CONST	0x1			; Output Parameters
00022f3f 00                       |        |		.CONST	0x0			; Input Parameters
00022f40 0e                       |        |		.CONST	0xe			; Out arg [2, 2, 1, 1, 3]
00022f41 00                       |        |		.PAD	0x0
00022f42					exp_READ_DECODE.SEQ(Sw_1, Sw_2, &Sr_2_1_1_1):
00022f42 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022f48 00 10                    |        |		.CONST	0x0010			; Stack-delta
00022f4a 0f 52 45 41 44 5f 44 45  | READ_DE|		.TXT	15,'READ_DECODE.SEQ'
00022f5a 00                       |        |		.CONST	0x0
00022f5b 02                       |        |		.CONST	0x2			; DIPROC address
00022f5c 01                       |        |		.CONST	0x1			; Output Parameters
00022f5d 02                       |        |		.CONST	0x2			; Input Parameters
00022f5e 00                       |        |		.CONST	0x0			; In arg [1]
00022f5f 01                       |        |		.CONST	0x1			; In arg [2]
00022f60 0f                       |        |		.CONST	0xf			; Out arg [2, 1, 1, 1]
00022f61 00                       |        |		.PAD	0x0
00022f62					exp_READ_DEC.SEQ(&Sr_2_1_1_1):
00022f62 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022f68 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022f6a 0c 52 45 41 44 5f 44 45  | READ_DE|		.TXT	12,'READ_DEC.SEQ'
00022f77 00                       |        |		.CONST	0x0
00022f78 02                       |        |		.CONST	0x2			; DIPROC address
00022f79 01                       |        |		.CONST	0x1			; Output Parameters
00022f7a 00                       |        |		.CONST	0x0			; Input Parameters
00022f7b 0f                       |        |		.CONST	0xf			; Out arg [2, 1, 1, 1]
00022f7c					exp_READ_CUR_UADR_AND_PARITY.SEQ(&Sr_2, &Fr):
00022f7c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022f82 00 10                    |        |		.CONST	0x0010			; Stack-delta
00022f84 1c 52 45 41 44 5f 43 55  | READ_CU|		.TXT	28,'READ_CUR_UADR_AND_PARITY.SEQ'
00022fa1 00                       |        |		.CONST	0x0
00022fa2 02                       |        |		.CONST	0x2			; DIPROC address
00022fa3 02                       |        |		.CONST	0x2			; Output Parameters
00022fa4 00                       |        |		.CONST	0x0			; Input Parameters
00022fa5 01                       |        |		.CONST	0x1			; Out arg [2]
00022fa6 08                       |        |		.CONST	0x8			; Out arg flag
00022fa7 00                       |        |		.PAD	0x0
00022fa8					exp_LOAD_COUNTER.SEQ(Sw_2):
00022fa8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022fae 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00022fb0 10 4c 4f 41 44 5f 43 4f  | LOAD_CO|		.TXT	16,'LOAD_COUNTER.SEQ'
00022fc1 00                       |        |		.CONST	0x0
00022fc2 02                       |        |		.CONST	0x2			; DIPROC address
00022fc3 00                       |        |		.CONST	0x0			; Output Parameters
00022fc4 01                       |        |		.CONST	0x1			; Input Parameters
00022fc5 01                       |        |		.CONST	0x1			; In arg [2]
00022fc6					exp_UNPERMUTE_UIR.TYP(Sw_8, &Sr_6):
00022fc6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022fcc 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022fce 11 55 4e 50 45 52 4d 55  | UNPERMU|		.TXT	17,'UNPERMUTE_UIR.TYP'
00022fe0 00                       |        |		.CONST	0x0
00022fe1 06                       |        |		.CONST	0x6			; DIPROC address
00022fe2 01                       |        |		.CONST	0x1			; Output Parameters
00022fe3 01                       |        |		.CONST	0x1			; Input Parameters
00022fe4 07                       |        |		.CONST	0x7			; In arg [8]
00022fe5 05                       |        |		.CONST	0x5			; Out arg [6]
00022fe6					exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr):
00022fe6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022fec 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022fee 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.TYP'
00022ffb 00                       |        |		.CONST	0x0
00022ffc 06                       |        |		.CONST	0x6			; DIPROC address
00022ffd 02                       |        |		.CONST	0x2			; Output Parameters
00022ffe 02                       |        |		.CONST	0x2			; Input Parameters
00022fff 01                       |        |		.CONST	0x1			; In arg [2]
00023000 00                       |        |		.CONST	0x0			; In arg [1]
00023001 05                       |        |		.CONST	0x5			; Out arg [6]
00023002 08                       |        |		.CONST	0x8			; Out arg flag
00023003 00                       |        |		.PAD	0x0
00023004					exp_READ_UIR.TYP(Sw_1, &Sr_6):
00023004 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002300a 00 0e                    |        |		.CONST	0x000e			; Stack-delta
0002300c 0c 52 45 41 44 5f 55 49  | READ_UI|		.TXT	12,'READ_UIR.TYP'
00023019 00                       |        |		.CONST	0x0
0002301a 06                       |        |		.CONST	0x6			; DIPROC address
0002301b 01                       |        |		.CONST	0x1			; Output Parameters
0002301c 01                       |        |		.CONST	0x1			; Input Parameters
0002301d 00                       |        |		.CONST	0x0			; In arg [1]
0002301e 05                       |        |		.CONST	0x5			; Out arg [6]
0002301f 00                       |        |		.PAD	0x0
00023020					exp_LOAD_UIR.TYP(Sw_6, Sw_1):
00023020 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023026 00 10                    |        |		.CONST	0x0010			; Stack-delta
00023028 0c 4c 4f 41 44 5f 55 49  | LOAD_UI|		.TXT	12,'LOAD_UIR.TYP'
00023035 00                       |        |		.CONST	0x0
00023036 06                       |        |		.CONST	0x6			; DIPROC address
00023037 00                       |        |		.CONST	0x0			; Output Parameters
00023038 02                       |        |		.CONST	0x2			; Input Parameters
00023039 05                       |        |		.CONST	0x5			; In arg [6]
0002303a 00                       |        |		.CONST	0x0			; In arg [1]
0002303b 00                       |        |		.PAD	0x0
0002303c					exp_LOAD_BENIGN_UWORD.TYP():
0002303c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023042 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023044 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
0002305a 00                       |        |		.CONST	0x0
0002305b 06                       |        |		.CONST	0x6			; DIPROC address
0002305c 00                       |        |		.CONST	0x0			; Output Parameters
0002305d 00                       |        |		.CONST	0x0			; Input Parameters
0002305e					exp_UNPERMUTE_UIR.VAL(Sw_8, &Sr_5):
0002305e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023064 00 14                    |        |		.CONST	0x0014			; Stack-delta
00023066 11 55 4e 50 45 52 4d 55  | UNPERMU|		.TXT	17,'UNPERMUTE_UIR.VAL'
00023078 00                       |        |		.CONST	0x0
00023079 07                       |        |		.CONST	0x7			; DIPROC address
0002307a 01                       |        |		.CONST	0x1			; Output Parameters
0002307b 01                       |        |		.CONST	0x1			; Input Parameters
0002307c 07                       |        |		.CONST	0x7			; In arg [8]
0002307d 04                       |        |		.CONST	0x4			; Out arg [5]
0002307e					exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr):
0002307e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023084 00 14                    |        |		.CONST	0x0014			; Stack-delta
00023086 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.VAL'
00023093 00                       |        |		.CONST	0x0
00023094 07                       |        |		.CONST	0x7			; DIPROC address
00023095 02                       |        |		.CONST	0x2			; Output Parameters
00023096 02                       |        |		.CONST	0x2			; Input Parameters
00023097 01                       |        |		.CONST	0x1			; In arg [2]
00023098 00                       |        |		.CONST	0x0			; In arg [1]
00023099 04                       |        |		.CONST	0x4			; Out arg [5]
0002309a 08                       |        |		.CONST	0x8			; Out arg flag
0002309b 00                       |        |		.PAD	0x0
0002309c					exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr):
0002309c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000230a2 00 14                    |        |		.CONST	0x0014			; Stack-delta
000230a4 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.IOC'
000230b1 00                       |        |		.CONST	0x0
000230b2 04                       |        |		.CONST	0x4			; DIPROC address
000230b3 02                       |        |		.CONST	0x2			; Output Parameters
000230b4 02                       |        |		.CONST	0x2			; Input Parameters
000230b5 01                       |        |		.CONST	0x1			; In arg [2]
000230b6 00                       |        |		.CONST	0x0			; In arg [1]
000230b7 01                       |        |		.CONST	0x1			; Out arg [2]
000230b8 08                       |        |		.CONST	0x8			; Out arg flag
000230b9 00                       |        |		.PAD	0x0
000230ba					exp_READ_LAST_PC.IOC(&Sr_2):
000230ba 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000230c0 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000230c2 10 52 45 41 44 5f 4c 41  | READ_LA|		.TXT	16,'READ_LAST_PC.IOC'
000230d3 00                       |        |		.CONST	0x0
000230d4 04                       |        |		.CONST	0x4			; DIPROC address
000230d5 01                       |        |		.CONST	0x1			; Output Parameters
000230d6 00                       |        |		.CONST	0x0			; Input Parameters
000230d7 01                       |        |		.CONST	0x1			; Out arg [2]
000230d8 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000230e6 ; --------------------------------------------------------------------------------------
000230e6 ; OMSI PASCAL Function
000230e6 ;    <LVAR  0x008 1(r)>
000230e6 ; --------------------------------------------------------------------------------------
000230e6					PROG_FAIL:
000230e6 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000230ea bf d5                    |        |		CMPA.L	(A5),A7
000230ec 62 06                    |b       |		BHI	0x230f4
000230ee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230f2 4e 76                    |Nv      |		TRAPV
000230f4 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000230f8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000230fc 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00023100 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023102 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023104 51 c8 ff fc              |Q       |		DBF	D0,0x23102
00023108 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002310c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002310e 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00023112 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023116 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002311a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023120 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023122 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00023126 48 80                    |H       |		EXTB.W	D0
00023128 48 c0                    |H       |		EXTW.L	D0
0002312a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002312c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00023132 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023134 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002313a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002313c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023142 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023146 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002314a 4e 5e                    |N^      |		UNLK	A6
0002314c 4e 75                    |Nu      |		RTS
0002314e 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002315c 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002316a 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00023178 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002318a 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000231a2 ; --------------------------------------------------------------------------------------
000231a2 ; OMSI PASCAL Function
000231a2 ;    <LVAR  0x00e 1(r)>
000231a2 ;    <LVAR  0x00a 4(r)>
000231a2 ;    <LVAR  0x008 1(r)>
000231a2 ; --------------------------------------------------------------------------------------
000231a2					EXP_FAIL:
000231a2 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000231a6 bf d5                    |        |		CMPA.L	(A5),A7
000231a8 62 06                    |b       |		BHI	0x231b0
000231aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000231ae 4e 76                    |Nv      |		TRAPV
000231b0 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000231b4 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000231b8 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000231be 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000231c4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000231c6 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000231c8 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000231ca 78 12                    |x       |		MOVEQ.L	#0x12,D4
000231cc 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000231ce 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000231d4 41 fa ff b4              |A       |		LEA.L	0x2318a,A0
000231d8 70 08                    |p       |		MOVEQ.L	#0x08,D0
000231da 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000231dc 51 c8 ff fc              |Q       |		DBF	D0,0x231da
000231e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000231e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000231e8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000231ea 4e 93                    |N       |		JSR	(A3)
000231ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000231ee 4e 94                    |N       |		JSR	(A4)
000231f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000231f2 20 4f                    | O      |		MOVEA.L	A7,A0
000231f4 43 fa ff 58              |C  X    |		LEA.L	0x2314e,A1
000231f8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000231fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000231fc 51 c8 ff fc              |Q       |		DBF	D0,0x231fa
00023200 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023202 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023206 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023208 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002320a 4e 93                    |N       |		JSR	(A3)
0002320c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002320e 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00023212 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00023218 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002321a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023220 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023222 4e 94                    |N       |		JSR	(A4)
00023224 de c4                    |        |		ADDA.W	D4,A7
00023226 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
0002322a b0 c1                    |        |		CMPA.W	D1,A0
0002322c 67 48                    |gH      |		BEQ	0x23276
0002322e 9e c5                    |        |		SUBA.W	D5,A7
00023230 22 4f                    |"O      |		MOVEA.L	A7,A1
00023232 45 fa ff 28              |E  (    |		LEA.L	0x2315c,A2
00023236 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023238 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002323a 51 c8 ff fc              |Q       |		DBF	D0,0x23238
0002323e 9e c3                    |        |		SUBA.W	D3,A7
00023240 22 4f                    |"O      |		MOVEA.L	A7,A1
00023242 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00023246 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00023248 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002324a 51 c8 ff fc              |Q       |		DBF	D0,0x23248
0002324e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023250 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00023254 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023256 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023258 4e 93                    |N       |		JSR	(A3)
0002325a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002325c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023260 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023262 3f 03                    |?       |		MOVE.W	D3,-(A7)
00023264 4e 93                    |N       |		JSR	(A3)
00023266 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023268 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002326e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023270 4e 94                    |N       |		JSR	(A4)
00023272 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023276 9e c5                    |        |		SUBA.W	D5,A7
00023278 20 4f                    | O      |		MOVEA.L	A7,A0
0002327a 43 fa fe ee              |C       |		LEA.L	0x2316a,A1
0002327e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023280 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023282 51 c8 ff fc              |Q       |		DBF	D0,0x23280
00023286 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023288 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002328c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002328e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023290 4e 93                    |N       |		JSR	(A3)
00023292 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023294 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00023298 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002329e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000232a0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000232a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232a8 4e 94                    |N       |		JSR	(A4)
000232aa 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000232ac 20 4f                    | O      |		MOVEA.L	A7,A0
000232ae 43 fa fe da              |C       |		LEA.L	0x2318a,A1
000232b2 70 16                    |p       |		MOVEQ.L	#0x16,D0
000232b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000232b6 51 c8 ff fc              |Q       |		DBF	D0,0x232b4
000232ba 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000232be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232c0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000232c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232c6 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000232ca 4e 93                    |N       |		JSR	(A3)
000232cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232ce 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000232d4 de c3                    |        |		ADDA.W	D3,A7
000232d6 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000232da 4e 5e                    |N^      |		UNLK	A6
000232dc 4e 75                    |Nu      |		RTS