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

⟦b86b6f0fc⟧ M200

    Length: 5120 (0x1400)
    Types: M200
    Notes: M200_PROGRAM
    Names: »P2TYP.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »P2TYP.M200« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »P2TYP.M200« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »P2TYP.M200« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »P2TYP.M200« 
    └─ ⟦this⟧ »P2TYP.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »P2TYP.M200« 

Disassembly

0x20162


@ 20162
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 20162-201bc Body>                                              
        <POP 20162-20178 Prologue>                           Σ0         ↓
        <POP 20178-20184 RegCacheLoad>                       Σ0         ↓
        <POP 20184-2018a Naked>                              Σ0         ↓ →0x201b4
            <MI 20184  TST.B   (A6+0xa)>                                        {}
            <MI 20188  BNE     0x201b4>                                         {}
        <POP 2018a-201b4 Naked>                              Σ0         ↓
            <MI 2018a  MOVE.B  (A6+0x8),0x213a5>                                {}
            <MI 2018e  MOVE.B  #0x03,0x213a6>                                   {}
            <MI 20192  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Blob 0x20194 [4] 0x21362>                       Δ-4                {[#0]|[«4»]}
            <Blob 0x2019a [4] 0x21366>                       Δ-4                {[#0]|[«4»]|[«4»]}
            <Blob 0x201a0 [2] 0x213a5>                       Δ-2                {[#0]|[«4»]|[«4»]|[«2»]}
            <Blob 0x201a2 [4] 0x213aa>                       Δ-4                {[#0]|[«4»]|[«4»]|[«2»]|[«4»]}
            <Blob 0x201a8 [4] 0x213a6>                       Δ-4                {[#0]|[«4»]|[«4»]|[«2»]|[«4»]|[«4»]}
            <Call 0x201aa 0x1054a>                                              {[#0]|[«4»]|[«4»]|[«2»]|[«4»]|[«4»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 201b0-201b4 StackAdj>                       Δ+20               {}
        <POP 201b4-201bc Epilogue>                           Σ0         ←0x20184

0x201bc


@ 201bc
    <POP 201bc-201f8 Body>                                              
        <POP 201bc-201ce Prologue>                           Σ0         ↓
        <POP 201ce-201f4 Naked>                              Σ0         ↓
            <Call 0x201ce 0x21136>                                              {}
                exp_CLEAR_PARITY.TYP()
            <MI 201d4  CLR.W   -(A7)>                        Δ-2                {[#0]}
            <Blob 0x201d6 [2] @>                             Δ-2                {[#0]|[«2""»]}
            <Blob 0x201da [2] @>                             Δ-2                {[#0]|[«2""»]|[«2""»]}
            <Blob 0x201de [2] @>                             Δ-2                {[#0]|[«2""»]|[«2""»]|[«2""»]}
            <MI 201e2  CLR.B   -(A7)>                        Δ-2                {[#0]|[«2""»]|[«2""»]|[«2""»]|[#0]}
            <Call 0x201e4 0x210fc>                                              {[#0]|[«2""»]|[«2""»]|[«2""»]|[#0]}
                exp_LOAD_WCS_UIR.TYP(Sw_2, Sw_6, Sw_1)
            <POP 201ea-201ee StackAdj>                       Δ+10               {}
            <Call 0x201ee 0x20f8e>                                              {}
                exp_RESET.TYP()
        <POP 201f4-201f8 Epilogue>                           Σ0         

0x201f8


@ 201f8
        <LVAR -0x009 @>
        <LVAR -0x00b @>
        <LVAR -0x00c @ 1(r)>
    <POP 201f8-20292 Body>                                              
        <POP 201f8-2020e Prologue>                           Σ0         ↓
        <POP 2020e-20222 RegCacheLoad>                       Σ0         ↓
        <POP 20222-2028a Naked>                              Σ0         ↓
            <Pointer.fp 0x20222 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x20224 <LVAR -0x00b @>>             Δ-4                {[@@-12]|[@@-11]}
            <Call 0x20228 0x20bb2>                                              {[@@-12]|[@@-11]}
                exp_TEST_WCS_ADDRESS.TYP(&Fr, &Sr_2)
            <POP 2022e-20230 StackAdj>                       Δ+6                {[-2-]}
            <MI 20230  MOVE.B  (A6-0xc),(A7)>                                   {[-2-]}
            <Const 0x20232 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Call 0x20236 0x20162>                                              {[-2-]|[#1]}
            <POP 20238-2023a StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2023a <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Const 0x2023c 0x2136d.4>                        Δ-4                {[@@-12]|[##136045]}
            <Const 0x2023e 0x21385.4>                        Δ-4                {[@@-12]|[##136045]|[##136069]}
            <Call 0x20240 0x20b90>                                              {[@@-12]|[##136045]|[##136069]}
                exp_TEST_WCS_DATA.TYP(&Fr, &Sr_6, &Sr_6)
            <POP 20246-2024a StackAdj>                       Δ+10               {[-2-]}
            <MI 2024a  MOVE.B  (A6-0xc),(A7)>                                   {[-2-]}
            <Const 0x2024c 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Call 0x20250 0x20162>                                              {[-2-]|[#2]}
            <POP 20252-20254 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20254 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x20256 <LVAR -0x009 @>>             Δ-4                {[@@-12]|[@@-9]}
            <Call 0x2025a 0x20b1e>                                              {[@@-12]|[@@-9]}
                exp_TEST_WCS_PARITY.TYP(&Fr, &Sr_6)
            <POP 20260-20262 StackAdj>                       Δ+6                {[-2-]}
            <MI 20262  MOVE.B  (A6-0xc),(A7)>                                   {[-2-]}
            <Const 0x20264 0x3.2>                            Δ-2                {[-2-]|[#3]}
            <Call 0x20268 0x20162>                                              {[-2-]|[#3]}
            <POP 2026a-2026c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2026c <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x2026e <LVAR -0x00b @>>             Δ-4                {[@@-12]|[@@-11]}
            <Const 0x20272 0x2136d.4>                        Δ-4                {[@@-12]|[@@-11]|[##136045]}
            <Const 0x20274 0x21385.4>                        Δ-4                {[@@-12]|[@@-11]|[##136045]|[##136069]}
            <Call 0x20276 0x20b40>                                              {[@@-12]|[@@-11]|[##136045]|[##136069]}
                exp_TEST_WCS_LOCATIONS.TYP(&Fr, &Sr_2, &Sr_6, &Sr_6)
            <POP 2027c-20280 StackAdj>                       Δ+14               {[-2-]}
            <MI 20280  MOVE.B  (A6-0xc),(A7)>                                   {[-2-]}
            <Const 0x20282 0x4.2>                            Δ-2                {[-2-]|[#4]}
            <Call 0x20286 0x20162>                                              {[-2-]|[#4]}
            <POP 20288-2028a StackAdj>                       Δ+4                {}
        <POP 2028a-20292 Epilogue>                           Σ0         

0x20292


@ 20292
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x011 @ 1(r)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 20292-20386 Body>                                   Δ+8        
        <POP 20292-202a8 Prologue>                           Σ0         ↓
        <POP 202a8-202ae RegCacheLoad>                       Σ0         ↓
        <POP 202ae-202ce Naked>                              Σ0         ↓ →0x202d6
            <Pointer.fp 0x202ae <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x202b0 <LVAR -0x013 @ 1(r)>>        Δ-4                {[@@-20]|[@@-19]}
            <Const 0x202b4 0x2137b.4>                        Δ-4                {[@@-20]|[@@-19]|[##136059]}
            <Const 0x202ba 0x21393.4>                        Δ-4                {[@@-20]|[@@-19]|[##136059]|[##136083]}
            <Call 0x202c0 0x20d54>                                              {[@@-20]|[@@-19]|[##136059]|[##136083]}
                exp_TEST_LOAD_WDR.TYP(&Fr, &Fr, &Sr_8_1, &Sr_8_1)
            <POP 202c6-202ca StackAdj>                       Δ+16               {}
            <MI 202ca  TST.B   (A6-0x14)>                                       {}
            <MI 202cc  BEQ     0x202d6>                                         {}
        <POP 202ce-202d6 Naked>                              Σ0         ↓ →0x2037e
            <MI 202ce  TST.B   (A6-0x13)>                                       {}
            <MI 202d2  BNE     0x2037e>                                         {}
        <POP 202d6-202e0 Naked>                              Σ0         ↓ →0x20366 ←0x202ae
            <MI 202d6  TST.B   0x213ae>                                         {}
            <MI 202dc  BEQ     0x20366>                                         {}
        <POP 202e0-2032a Naked>                              Σ0         ↓ →0x20344
            <Blob 0x202e0 [4] @>                             Δ-4                {[«4""»]}
            <POP 202e4-202e6 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x202e6 4>                                                     {[«4""»]|[$$P2FP]}
            <POP 202f6-202f8 StackAdj>                       Δ-2                {[«4""»]|[$$P2FP]|[-2-]}
            <POP 202f8-202f9 StackAdj>                       Δ+2                {[«4""»]|[$$P2FP]}
            <Const 0x202f9 0x1.2>                            Δ-2                {[«4""»]|[$$P2FP]|[#1]}
            <MI 202fa  MOVE.B  0x213af,D0>                                      {[«4""»]|[$$P2FP]|[#1]}
            <MI 20300  EXTB.W  D0>                                              {[«4""»]|[$$P2FP]|[#1]}
            <POP 0x20302 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«4""»]|[$$P2FP]|[#1]}
            <MI 20304  MOVE.B  D0,-(A7)>                     Δ-2                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']}
            <Pointer.fp 0x20306 <LVAR -0x012 @ 1(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]}
            <Pointer.fp 0x2030a <LVAR -0x008 @ 4(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]|[@@-8]}
            <Pointer.fp 0x2030e <LVAR -0x004 @ 4(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]|[@@-8]|[@@-4]}
            <Pointer.fp 0x20312 <LVAR -0x011 @ 1(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]|[@@-8]|[@@-4]|[@@-17]}
            <Pointer.fp 0x20316 <LVAR -0x010 @ 4(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]|[@@-8]|[@@-4]|[@@-17]|[@@-16]}
            <Call 0x2031a 0x1053e>                                              {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-18]|[@@-8]|[@@-4]|[@@-17]|[@@-16]}
                FSCALL_1053e
            <POP 20320-20324 StackAdj>                       Δ+32               {}
            <MI 20324  TST.B   (A6-0x12)>                                       {}
            <MI 20328  BEQ     0x20344>                                         {}
        <POP 2032a-2032e Naked>                              Σ0         ↓ →0x20336
            <MI 2032a  TST.B   (A6-0x14)>                                       {}
            <MI 2032c  BEQ     0x20336>                                         {}
        <POP 2032e-20336 Naked>                              Σ0 Δ-4     →0x2033c
            <MI 2032e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20330 0x6.2>                            Δ-2                {[#0]|[#6]}
            <MI 20334  BRA     0x2033c>                                         {[#0]|[#6]}
        <POP 20336-2033c Naked>                              Σ0 Δ-4     ↓ ←0x2032a
            <MI 20336  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20338 0x5.2>                            Δ-2                {[#0]|[#5]}
        <POP 2033c-20344 Naked>                              Σ-4 Δ+4    →0x20364 ←0x2032e
            <Call 0x2033c 0x20162>                                              {[-4-]}
            <POP 20340-20342 StackAdj>                       Δ+4                {}
            <MI 20342  BRA     0x20364>                                         {}
        <POP 20344-20364 Naked>                              Σ0         ↓ ←0x202e0
            <MI 20344  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20346  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[#0]|[4, '(A6-0x8)']}
            <MI 2034a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <MI 2034e  MOVE.B  (A6-0x11),-(A7)>              Δ-2                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x11)']}
            <MI 20352  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x11)']|[4, '(A6-0xc)']}
            <MI 20356  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x11)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x2035a 0x1054a>                                              {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x11)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20360-20364 StackAdj>                       Δ+20               {}
        <POP 20364-20366 Naked>                              Σ0         →0x2037e ←0x2033c
            <MI 20364  BRA     0x2037e>                                         {}
        <POP 20366-2036a Naked>                              Σ0         ↓ →0x20372 ←0x202d6
            <MI 20366  TST.B   (A6-0x14)>                                       {}
            <MI 20368  BEQ     0x20372>                                         {}
        <POP 2036a-20372 Naked>                              Σ0 Δ-4     →0x20378
            <MI 2036a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2036c 0x7.2>                            Δ-2                {[#0]|[#7]}
            <MI 20370  BRA     0x20378>                                         {[#0]|[#7]}
        <POP 20372-20378 Naked>                              Σ0 Δ-4     ↓ ←0x20366
            <MI 20372  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20374 0x8.2>                            Δ-2                {[#0]|[#8]}
        <POP 20378-2037e Naked>                              Σ-4 Δ+4    ↓ ←0x2036a
            <Call 0x20378 0x20162>                                              {[-4-]}
            <POP 2037c-2037e StackAdj>                       Δ+4                {}
        <POP 2037e-20386 Epilogue>                           Σ0         ←0x202ce ←0x20364

0x20386


@ 20386
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x011 @>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 20386-20460 Body>                                              
        <POP 20386-2039c Prologue>                           Σ0         ↓
        <POP 2039c-2039e RegCacheLoad>                       Σ0         ↓
        <POP 2039e-203c0 Naked>                              Σ0         ↓ →0x20458
            <Pointer.fp 0x2039e <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Const 0x203a2 0x2137b.4>                        Δ-4                {[@@-20]|[##136059]}
            <Const 0x203a8 0x21393.4>                        Δ-4                {[@@-20]|[##136059]|[##136083]}
            <Call 0x203ae 0x20e30>                                              {[@@-20]|[##136059]|[##136083]}
                exp_TEST_FIU_BUS.TYP(&Fr, &Sr_8_1, &Sr_8_1)
            <POP 203b4-203b8 StackAdj>                       Δ+12               {}
            <MI 203b8  TST.B   (A6-0x14)>                                       {}
            <MI 203bc  BNE     0x20458>                                         {}
        <POP 203c0-203ca Naked>                              Σ0         ↓ →0x2044c
            <MI 203c0  TST.B   0x213ae>                                         {}
            <MI 203c6  BEQ     0x2044c>                                         {}
        <POP 203ca-20414 Naked>                              Σ0         ↓ →0x20422
            <Blob 0x203ca [4] @>                             Δ-4                {[«4""»]}
            <POP 203ce-203d0 StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x203d0 4>                                                     {[«4""»]|[$$P2FP]}
            <POP 203e0-203e2 StackAdj>                       Δ-2                {[«4""»]|[$$P2FP]|[-2-]}
            <POP 203e2-203e3 StackAdj>                       Δ+2                {[«4""»]|[$$P2FP]}
            <Const 0x203e3 0x1.2>                            Δ-2                {[«4""»]|[$$P2FP]|[#1]}
            <MI 203e4  MOVE.B  0x213af,D0>                                      {[«4""»]|[$$P2FP]|[#1]}
            <MI 203ea  EXTB.W  D0>                                              {[«4""»]|[$$P2FP]|[#1]}
            <POP 0x203ec LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«4""»]|[$$P2FP]|[#1]}
            <MI 203ee  MOVE.B  D0,-(A7)>                     Δ-2                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']}
            <Pointer.fp 0x203f0 <LVAR -0x013 @ 1(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]}
            <Pointer.fp 0x203f4 <LVAR -0x008 @ 4(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]|[@@-8]}
            <Pointer.fp 0x203f8 <LVAR -0x004 @ 4(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]|[@@-8]|[@@-4]}
            <Pointer.fp 0x203fc <LVAR -0x012 @ 1(r)>>        Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]|[@@-8]|[@@-4]|[@@-18]}
            <Pointer.fp 0x20400 <LVAR -0x011 @>>             Δ-4                {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]|[@@-8]|[@@-4]|[@@-18]|[@@-17]}
            <Call 0x20404 0x1053e>                                              {[«4""»]|[$$P2FP]|[#1]|[2, 'D0']|[@@-19]|[@@-8]|[@@-4]|[@@-18]|[@@-17]}
                FSCALL_1053e
            <POP 2040a-2040e StackAdj>                       Δ+32               {}
            <MI 2040e  TST.B   (A6-0x13)>                                       {}
            <MI 20412  BEQ     0x20422>                                         {}
        <POP 20414-20422 Naked>                              Σ0         →0x2044a
            <MI 20414  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20416 0x9.2>                            Δ-2                {[#0]|[#9]}
            <Call 0x2041a 0x20162>                                              {[#0]|[#9]}
            <POP 2041e-20420 StackAdj>                       Δ+4                {}
            <MI 20420  BRA     0x2044a>                                         {}
        <POP 20422-2044a Naked>                              Σ0         ↓ ←0x203ca
            <MI 20422  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 20424  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[#0]|[4, '(A6-0x8)']}
            <MI 20428  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
            <MI 2042c  MOVE.B  (A6-0x12),-(A7)>              Δ-2                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x12)']}
            <Blob 0x20430 [8] (A6-0x11)>                     Δ-8                {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x12)']|[«8»]}
            <Call 0x20440 0x1054a>                                              {[#0]|[4, '(A6-0x8)']|[4, '(A6-0x4)']|[2, '(A6-0x12)']|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20446-2044a StackAdj>                       Δ+20               {}
        <POP 2044a-2044c Naked>                              Σ0         →0x20458 ←0x20414
            <MI 2044a  BRA     0x20458>                                         {}
        <POP 2044c-20458 Naked>                              Σ0         ↓ ←0x203c0
            <MI 2044c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2044e 0xa.2>                            Δ-2                {[#0]|[#10]}
            <Call 0x20452 0x20162>                                              {[#0]|[#10]}
            <POP 20456-20458 StackAdj>                       Δ+4                {}
        <POP 20458-20460 Epilogue>                           Σ0         ←0x2039e ←0x2044a

0x20460


@ 20460
        <LVAR -0x005 @>
        <LVAR -0x007 @>
        <LVAR -0x008 @>
        <LVAR -0x009 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b @>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x014 @ 4(r)>
    <POP 20460-20586 Body>                                              
        <POP 20460-20476 Prologue>                           Σ0         ↓
        <POP 20476-2048a RegCacheLoad>                       Σ0         ↓
        <POP 2048a-20510 Naked>                              Σ0         ↓
            <Pointer.fp 0x2048a <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-9]}
            <Pointer.fp 0x2048c <LVAR -0x008 @>>             Δ-4                {[@@-9]|[@@-8]}
            <Pointer.fp 0x20490 <LVAR -0x007 @>>             Δ-4                {[@@-9]|[@@-8]|[@@-7]}
            <Pointer.fp 0x20494 <LVAR -0x005 @>>             Δ-4                {[@@-9]|[@@-8]|[@@-7]|[@@-5]}
            <Call 0x20498 0x20d76>                                              {[@@-9]|[@@-8]|[@@-7]|[@@-5]}
                exp_TEST_LOAD_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_2, &Sr_2)
            <POP 2049e-204a0 StackAdj>                       Δ+14               {[-2-]}
            <MI 204a0  MOVE.B  (A6-0x9),(A7)>                                   {[-2-]}
            <Const 0x204a2 0xb.2>                            Δ-2                {[-2-]|[#11]}
            <Call 0x204a6 0x20162>                                              {[-2-]|[#11]}
            <POP 204a8-204aa StackAdj>                       Δ+4                {}
            <Pointer.fp 0x204aa <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-9]}
            <Pointer.fp 0x204ac <LVAR -0x008 @>>             Δ-4                {[@@-9]|[@@-8]}
            <Const 0x204b0 0x21373.4>                        Δ-4                {[@@-9]|[@@-8]|[##136051]}
            <Const 0x204b6 0x2138b.4>                        Δ-4                {[@@-9]|[@@-8]|[##136051]|[##136075]}
            <Call 0x204bc 0x20eba>                                              {[@@-9]|[@@-8]|[##136051]|[##136075]}
                exp_TEST_COUNT_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
            <POP 204c2-204c4 StackAdj>                       Δ+14               {[-2-]}
            <MI 204c4  MOVE.B  (A6-0x9),(A7)>                                   {[-2-]}
            <Const 0x204c6 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x204ca 0x20162>                                              {[-2-]|[#12]}
            <POP 204cc-204cd StackAdj>                       Δ+4        ↓       {}
            <Blob 0x204cd [28] @>                            Δ-28               {[«28""»]}
            <POP 204de-204e0 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x204e0 27>                                                    {[«28""»]|[$$TEST_LOOP_CNTR_OVERFLOW.TYP]}
            <Pointer.fp 0x204f2 <LVAR -0x014 @ 4(r)>>        Δ-4                {[«28""»]|[$$TEST_LOOP_CNTR_OVERFLOW.TYP]|[@@-20]}
            <Call 0x204f4 0x10460>                                              {[«28""»]|[$$TEST_LOOP_CNTR_OVERFLOW.TYP]|[@@-20]}
                ExpLoad(a : String; b: Pointer)
            <POP 204fa-204fe StackAdj>                       Δ+34               {[-2-]}
            <POP 204fe-204ff StackAdj>                       Δ+2                {}
            <Const 0x204ff 0x6.2>                            Δ-2                {[#6]}
            <MI 20500  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[#6]|[4, '(A6-0x14)']}
            <Call 0x20502 0x1047e>                                              {[#6]|[4, '(A6-0x14)']}
                ExpXmit(adr : Byte; b : Pointer)
            <POP 20508-2050a StackAdj>                       Δ+6                {}
            <MI 2050a  MOVE.L  #0xffffec78,D7>                                  {}
        <POP 20510-2052a Naked>                              Σ0         ↓ →0x20532 ←0x2052a
            <Const 0x20510 0x6.2>                            Δ-2                {[#6]}
            <Pointer.fp 0x20512 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#6]|[@@-12]}
            <Pointer.fp 0x20516 <LVAR -0x00b @>>             Δ-4                {[#6]|[@@-12]|[@@-11]}
            <Pointer.fp 0x2051a <LVAR -0x00a @>>             Δ-4                {[#6]|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x2051e 0x10484>                                              {[#6]|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20524-20526 StackAdj>                       Δ+14               {}
            <MI 20526  ADDQ.L  #0x1,D7>                                         {}
            <MI 20528  BEQ     0x20532>                                         {}
        <POP 2052a-20532 Naked>                              Σ0         ↓ →0x20510
            <MI 2052a  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 2052e  CMP.B   #0x01,D0>                                        {}
            <MI 20530  BNE     0x20510>                                         {}
        <POP 20532-2053a Naked>                              Σ0         ↓ →0x20542 ←0x20510
            <MI 20532  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 20536  CMP.B   #0x01,D0>                                        {}
            <MI 20538  BEQ     0x20542>                                         {}
        <POP 2053a-20542 Naked>                              Σ0         ↓
            <MI 2053a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2053c 0xd.2>                            Δ-2                {[#0]|[#13]}
            <Call 0x2053e 0x20162>                                              {[#0]|[#13]}
            <POP 20540-20542 StackAdj>                       Δ+4                {}
        <POP 20542-2057e Naked>                              Σ0         ↓ ←0x20532
            <Const 0x20542 0x6.2>                            Δ-2                {[#6]}
            <MI 20544  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[#6]|[4, '(A6-0x14)']}
            <Pointer.fp 0x20546 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#6]|[4, '(A6-0x14)']|[@@-12]}
            <Call 0x2054a 0x10490>                                              {[#6]|[4, '(A6-0x14)']|[@@-12]}
                ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
            <POP 20550-20552 StackAdj>                       Δ+6                {[#6]|[-2-]}
            <MI 20552  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Pointer.fp 0x20554 <LVAR -0x009 @ 1(r)>>        Δ-4                {[4, '(A6-0x14)']|[@@-9]}
            <Call 0x20556 0x10478>                                              {[4, '(A6-0x14)']|[@@-9]}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 2055c-2055e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2055e <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-20]}
            <Call 0x20560 0x10496>                                              {[@@-20]}
                ExpClose(exp : Pointer)
            <POP 20566-20568 StackAdj>                       Δ+2                {[-2-]}
            <POP 20568-20569 StackAdj>                       Δ+2                {}
            <Const 0x20569 0x6.2>                            Δ-2                {[#6]}
            <Const 0x2056a 0x2.2>                            Δ-2                {[#6]|[#2]}
            <Call 0x2056e 0x1048a>                                              {[#6]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20574-20576 StackAdj>                       Δ+2                {[#6]}
            <MI 20576  MOVE.B  (A6-0x9),(A7)>                                   {[-2-]}
            <Const 0x20578 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2057a 0x20162>                                              {[-2-]|[#13]}
            <POP 2057c-2057e StackAdj>                       Δ+4                {}
        <POP 2057e-20586 Epilogue>                           Σ0         

0x20586


@ 20586
        <LVAR -0x002 @>
        <LVAR -0x003 @>
        <LVAR -0x00b @>
        <LVAR -0x013 @>
        <LVAR -0x014 @ 1(r)>
    <POP 20586-2064e Body>                                              
        <POP 20586-2059c Prologue>                           Σ0         ↓
        <POP 2059c-205b8 RegCacheLoad>                       Σ0         ↓
        <POP 205b8-20646 Naked>                              Σ0         ↓
            <Pointer.fp 0x205b8 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x205ba <LVAR -0x013 @>>             Δ-4                {[@@-20]|[@@-19]}
            <Pointer.fp 0x205bc <LVAR -0x013 @>>             Δ-4                {[@@-20]|[@@-19]|[@@-19]}
            <Const 0x205be 0x2138b.4>                        Δ-4                {[@@-20]|[@@-19]|[@@-19]|[##136075]}
            <Call 0x205c0 0x20ca2>                                              {[@@-20]|[@@-19]|[@@-19]|[##136075]}
                exp_TEST_RF_DATA_LINES.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8)
            <POP 205c6-205c8 StackAdj>                       Δ+14               {[-2-]}
            <MI 205c8  MOVE.B  (A6-0x14),(A7)>                                  {[-2-]}
            <Const 0x205ca 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x205cc 0x20162>                                              {[-2-]|[#14]}
            <POP 205ce-205cf StackAdj>                       Δ+4                {}
            <Blob 0x205cf [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x205d2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Call 0x205d6 0x2111c>                                              {[«4""»]|[«4""»]}
                exp_INIT_RF.TYP(Sw_8)
            <POP 205dc-205de StackAdj>                       Δ+8                {}
            <Pointer.fp 0x205de <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x205e0 <LVAR -0x013 @>>             Δ-4                {[@@-20]|[@@-19]}
            <Pointer.fp 0x205e2 <LVAR -0x00b @>>             Δ-4                {[@@-20]|[@@-19]|[@@-11]}
            <Const 0x205e4 0x2138b.4>                        Δ-4                {[@@-20]|[@@-19]|[@@-11]|[##136075]}
            <Call 0x205e6 0x20e08>                                              {[@@-20]|[@@-19]|[@@-11]|[##136075]}
                exp_TEST_FRAME_REG_ADR.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8)
            <POP 205ec-205ee StackAdj>                       Δ+14               {[-2-]}
            <MI 205ee  MOVE.B  (A6-0x14),(A7)>                                  {[-2-]}
            <Const 0x205f0 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x205f4 0x20162>                                              {[-2-]|[#15]}
            <POP 205f6-205f7 StackAdj>                       Δ+4                {}
            <Blob 0x205f7 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x205fa [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Call 0x205fe 0x2111c>                                              {[«4""»]|[«4""»]}
                exp_INIT_RF.TYP(Sw_8)
            <POP 20604-20606 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x20606 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x20608 <LVAR -0x003 @>>             Δ-4                {[@@-20]|[@@-3]}
            <Pointer.fp 0x2060c <LVAR -0x002 @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]}
            <Pointer.fp 0x20610 <LVAR -0x013 @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]}
            <Pointer.fp 0x20612 <LVAR -0x00b @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]}
            <Const 0x20614 0x2138b.4>                        Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]|[##136075]}
            <Call 0x20616 0x20b68>                                              {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]|[##136075]}
                exp_TEST_WRITE_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8)
            <POP 2061c-2061e StackAdj>                       Δ+22               {[-2-]}
            <MI 2061e  MOVE.B  (A6-0x14),(A7)>                                  {[-2-]}
            <Const 0x20620 0x10.2>                           Δ-2                {[-2-]|[#16]}
            <Call 0x20622 0x20162>                                              {[-2-]|[#16]}
            <POP 20624-20626 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20626 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Pointer.fp 0x20628 <LVAR -0x003 @>>             Δ-4                {[@@-20]|[@@-3]}
            <Pointer.fp 0x2062c <LVAR -0x002 @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]}
            <Pointer.fp 0x20630 <LVAR -0x013 @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]}
            <Pointer.fp 0x20632 <LVAR -0x00b @>>             Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]}
            <Const 0x20634 0x2138b.4>                        Δ-4                {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]|[##136075]}
            <Call 0x20636 0x20c7a>                                              {[@@-20]|[@@-3]|[@@-2]|[@@-19]|[@@-11]|[##136075]}
                exp_TEST_READ_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8)
            <POP 2063c-2063e StackAdj>                       Δ+22               {[-2-]}
            <MI 2063e  MOVE.B  (A6-0x14),(A7)>                                  {[-2-]}
            <Const 0x20640 0x10.2>                           Δ-2                {[-2-]|[#16]}
            <Call 0x20642 0x20162>                                              {[-2-]|[#16]}
            <POP 20644-20646 StackAdj>                       Δ+4                {}
        <POP 20646-2064e Epilogue>                           Σ0         

0x2064e


@ 2064e
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x007 @>
        <LVAR -0x008 @>
        <LVAR -0x009 @ 1(r)>
        <LVAR -0x00b @>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x014 @>
        <LVAR -0x015 @ 1(r)>
        <LVAR -0x01e @>
        <LVAR -0x01f @>
        <LVAR -0x020 @ 1(r)>
    <POP 2064e-20754 Body>                                   Δ+8        
        <POP 2064e-20664 Prologue>                           Σ0         ↓
        <POP 20664-2067e RegCacheLoad>                       Σ0         ↓
        <POP 2067e-206b8 Naked>                              Σ0         ↓ →0x206c6
            <Pointer.fp 0x2067e <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x20682 <LVAR -0x00b @>>             Δ-4                {[@@-12]|[@@-11]}
            <Pointer.fp 0x20686 <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-12]|[@@-11]|[@@-9]}
            <Pointer.fp 0x2068a <LVAR -0x008 @>>             Δ-4                {[@@-12]|[@@-11]|[@@-9]|[@@-8]}
            <Pointer.fp 0x2068e <LVAR -0x007 @>>             Δ-4                {[@@-12]|[@@-11]|[@@-9]|[@@-8]|[@@-7]}
            <Pointer.fp 0x20692 <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-12]|[@@-11]|[@@-9]|[@@-8]|[@@-7]|[@@-5]}
            <Call 0x20696 0x20af6>                                              {[@@-12]|[@@-11]|[@@-9]|[@@-8]|[@@-7]|[@@-5]}
                exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <POP 2069c-206a0 StackAdj>                       Δ+22               {[-2-]}
            <MI 206a0  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x206a4 0x11.2>                           Δ-2                {[-2-]|[#17]}
            <Call 0x206a8 0x20162>                                              {[-2-]|[#17]}
            <POP 206aa-206ac StackAdj>                       Δ+4                {}
            <MI 206ac  CLR.L   D0>                                              {}
            <MI 206ae  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 206b2  CMPI.W  #0x0003,D0>                                      {}
            <MI 206b6  BNE     0x206c6>                                         {}
        <POP 206b8-206c2 Naked>                              Σ0         ↓ →0x206c6
            <MI 206b8  CLR.L   D0>                                              {}
            <MI 206ba  MOVE.B  (A6-0x9),D0>                                     {}
            <MI 206be  CMP.W   #0x01,D0>                                        {}
            <MI 206c0  BNE     0x206c6>                                         {}
        <POP 206c2-206c6 Naked>                              Σ0         →0x206ca
            <MI 206c2  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 206c4  BRA     0x206ca>                                         {}
        <POP 206c6-206ca Naked>                              Σ0         ↓ ←0x2067e ←0x206b8
            <MI 206c6  MOVE.B  #0x02,(A6-0x4)>                                  {}
        <POP 206ca-20706 Naked>                              Σ0         ↓ →0x2070e ←0x206c2
            <MI 206ca  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <Pointer.fp 0x206cc <LVAR -0x020 @ 1(r)>>        Δ-4                {[2, '(A6-0x4)']|[@@-32]}
            <Pointer.fp 0x206ce <LVAR -0x01f @>>             Δ-4                {[2, '(A6-0x4)']|[@@-32]|[@@-31]}
            <Pointer.fp 0x206d2 <LVAR -0x01e @>>             Δ-4                {[2, '(A6-0x4)']|[@@-32]|[@@-31]|[@@-30]}
            <Call 0x206d6 0x20c02>                                              {[2, '(A6-0x4)']|[@@-32]|[@@-31]|[@@-30]}
                exp_TEST_RF_PARITY_CHECKERS.TYP(Sw_1, &Fr, &Fr, &Sr_8_1)
            <POP 206dc-206e0 StackAdj>                       Δ+12               {[2, '(A6-0x4)']}
            <MI 206e0  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x206e2 0x12.2>                           Δ-2                {[-2-]|[#18]}
            <Call 0x206e6 0x20162>                                              {[-2-]|[#18]}
            <POP 206e8-206ea StackAdj>                       Δ+4                {}
            <Pointer.fp 0x206ea <LVAR -0x020 @ 1(r)>>        Δ-4                {[@@-32]}
            <Pointer.fp 0x206ec <LVAR -0x015 @ 1(r)>>        Δ-4                {[@@-32]|[@@-21]}
            <Pointer.fp 0x206ee <LVAR -0x014 @>>             Δ-4                {[@@-32]|[@@-21]|[@@-20]}
            <Const 0x206f2 0x2136a.4>                        Δ-4                {[@@-32]|[@@-21]|[@@-20]|[##136042]}
            <Const 0x206f4 0x21384.4>                        Δ-4                {[@@-32]|[@@-21]|[@@-20]|[##136042]|[##136068]}
            <Call 0x206fa 0x20f38>                                              {[@@-32]|[@@-21]|[@@-20]|[##136042]|[##136068]}
                exp_TEST_BUS_PARITY_CHECKERS.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1)
            <POP 20700-20702 StackAdj>                       Δ+20               {}
            <MI 20702  TST.B   (A6-0x15)>                                       {}
            <MI 20704  BEQ     0x2070e>                                         {}
        <POP 20706-2070e Naked>                              Σ0 Δ-4     →0x20714
            <MI 20706  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x20708 0x1b.2>                           Δ-2                {[2, '(A6-0x20)']|[#27]}
            <MI 2070c  BRA     0x20714>                                         {[2, '(A6-0x20)']|[#27]}
        <POP 2070e-20714 Naked>                              Σ0 Δ-4     ↓ ←0x206ca
            <MI 2070e  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x20710 0x1a.2>                           Δ-2                {[2, '(A6-0x20)']|[#26]}
        <POP 20714-2073a Naked>                              Σ-4 Δ+4    ↓ →0x20742 ←0x20706
            <Call 0x20714 0x20162>                                              {[-4-]}
            <POP 20716-20718 StackAdj>                       Δ+4                {}
            <Call 0x20718 0x20fcc>                                              {}
                exp_PREP_TEST_RF_PAR_ADDR.TYP()
            <Pointer.fp 0x2071e <LVAR -0x020 @ 1(r)>>        Δ-4                {[@@-32]}
            <Pointer.fp 0x20720 <LVAR -0x015 @ 1(r)>>        Δ-4                {[@@-32]|[@@-21]}
            <Pointer.fp 0x20722 <LVAR -0x014 @>>             Δ-4                {[@@-32]|[@@-21]|[@@-20]}
            <Const 0x20726 0x2136a.4>                        Δ-4                {[@@-32]|[@@-21]|[@@-20]|[##136042]}
            <Const 0x20728 0x21384.4>                        Δ-4                {[@@-32]|[@@-21]|[@@-20]|[##136042]|[##136068]}
            <Call 0x2072e 0x20c2e>                                              {[@@-32]|[@@-21]|[@@-20]|[##136042]|[##136068]}
                exp_TEST_RF_PAR_ADDR.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1)
            <POP 20734-20736 StackAdj>                       Δ+20               {}
            <MI 20736  TST.B   (A6-0x15)>                                       {}
            <MI 20738  BEQ     0x20742>                                         {}
        <POP 2073a-20742 Naked>                              Σ0 Δ-4     →0x20748
            <MI 2073a  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x2073c 0x1d.2>                           Δ-2                {[2, '(A6-0x20)']|[#29]}
            <MI 20740  BRA     0x20748>                                         {[2, '(A6-0x20)']|[#29]}
        <POP 20742-20748 Naked>                              Σ0 Δ-4     ↓ ←0x20714
            <MI 20742  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x20744 0x1c.2>                           Δ-2                {[2, '(A6-0x20)']|[#28]}
        <POP 20748-2074c Naked>                              Σ-4 Δ+4    ↓ ←0x2073a
            <Call 0x20748 0x20162>                                              {[-4-]}
            <POP 2074a-2074c StackAdj>                       Δ+4                {}
        <POP 2074c-20754 Epilogue>                           Σ0         

0x20754


@ 20754
        <LVAR -0x003 @>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x005 @>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 20754-20930 Body>                                              
        <POP 20754-2076a Prologue>                           Σ0         ↓
        <POP 2076a-2078c RegCacheLoad>                       Σ0         ↓
        <POP 2078c-20928 Naked>                              Σ0         ↓
            <Call 0x2078c 0x20fa4>                                              {}
                exp_PREP_UCODE_LOGICAL_ALU.TYP()
            <Call 0x20792 0x210d8>                                              {}
                exp_PREP_RF_LOGICAL_ALU.TYP()
            <Pointer.fp 0x20798 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x2079a 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x2079c 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x2079e 0x20da2>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_LOGICAL_ALU.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 207a4-207a6 StackAdj>                       Δ+10               {[-2-]}
            <MI 207a6  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x207a8 0x13.2>                           Δ-2                {[-2-]|[#19]}
            <Call 0x207aa 0x20162>                                              {[-2-]|[#19]}
            <POP 207ac-207ae StackAdj>                       Δ+4                {}
            <Pointer.fp 0x207ae <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x207b0 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x207b2 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x207b4 0x20d10>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_NOT_B_OP.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 207ba-207bc StackAdj>                       Δ+10               {[-2-]}
            <MI 207bc  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x207be 0x13.2>                           Δ-2                {[-2-]|[#19]}
            <Call 0x207c0 0x20162>                                              {[-2-]|[#19]}
            <POP 207c2-207c4 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x207c4 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x207c6 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-8]|[@@-4]}
            <Const 0x207ca 0x2138b.4>                        Δ-4                {[@@-8]|[@@-4]|[##136075]}
            <Const 0x207cc 0x21373.4>                        Δ-4                {[@@-8]|[@@-4]|[##136075]|[##136051]}
            <Call 0x207ce 0x20f66>                                              {[@@-8]|[@@-4]|[##136075]|[##136051]}
                exp_TEST_ALU_ZEROS_ONES.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
            <POP 207d4-207d6 StackAdj>                       Δ+14               {[-2-]}
            <MI 207d6  MOVE.B  (A6-0x4),(A7)>                                   {[-2-]}
            <Const 0x207da 0x14.2>                           Δ-2                {[-2-]|[#20]}
            <Call 0x207de 0x20162>                                              {[-2-]|[#20]}
            <POP 207e0-207e2 StackAdj>                       Δ+2                {[-2-]}
            <MI 207e2  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x207e4 0x15.2>                           Δ-2                {[-2-]|[#21]}
            <Call 0x207e8 0x20162>                                              {[-2-]|[#21]}
            <POP 207ea-207ec StackAdj>                       Δ+4                {}
            <Pointer.fp 0x207ec <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x207ee <LVAR -0x005 @>>             Δ-4                {[@@-8]|[@@-5]}
            <Const 0x207f2 0x2138b.4>                        Δ-4                {[@@-8]|[@@-5]|[##136075]}
            <Const 0x207f4 0x21373.4>                        Δ-4                {[@@-8]|[@@-5]|[##136075]|[##136051]}
            <Call 0x207f6 0x20cca>                                              {[@@-8]|[@@-5]|[##136075]|[##136051]}
                exp_TEST_PASS_RANDOMS.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
            <POP 207fc-207fe StackAdj>                       Δ+14               {[-2-]}
            <MI 207fe  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x20800 0x16.2>                           Δ-2                {[-2-]|[#22]}
            <Call 0x20804 0x20162>                                              {[-2-]|[#22]}
            <POP 20806-20808 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20808 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Pointer.fp 0x2080a <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]}
            <Const 0x2080e 0x21373.4>                        Δ-4                {[@@-7]|[@@-6]|[##136051]}
            <Call 0x20810 0x20ff2>                                              {[@@-7]|[@@-6]|[##136051]}
                exp_PREP_TEST_PLUS_MINUS.TYP(&Fr, &Fr, &Sr_8)
            <POP 20816-20818 StackAdj>                       Δ+10               {[-2-]}
            <MI 20818  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x2081a 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x2081c 0x20162>                                              {[-2-]|[#23]}
            <POP 2081e-20820 StackAdj>                       Δ+2                {[-2-]}
            <MI 20820  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x20824 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x20826 0x20162>                                              {[-2-]|[#23]}
            <POP 20828-2082a StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2082a <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x2082c 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x2082e 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x20830 0x20cf0>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_PLUS_OP.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 20836-20838 StackAdj>                       Δ+10               {[-2-]}
            <MI 20838  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2083a 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x2083c 0x20162>                                              {[-2-]|[#23]}
            <POP 2083e-20840 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20840 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Pointer.fp 0x20842 <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]}
            <Const 0x20846 0x21373.4>                        Δ-4                {[@@-7]|[@@-6]|[##136051]}
            <Call 0x20848 0x20ff2>                                              {[@@-7]|[@@-6]|[##136051]}
                exp_PREP_TEST_PLUS_MINUS.TYP(&Fr, &Fr, &Sr_8)
            <POP 2084e-20852 StackAdj>                       Δ+12               {}
            <Pointer.fp 0x20852 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x20854 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x20856 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x20858 0x20d32>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_MINUS_OP.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 2085e-20860 StackAdj>                       Δ+10               {[-2-]}
            <MI 20860  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x20862 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x20864 0x20162>                                              {[-2-]|[#23]}
            <POP 20866-20868 StackAdj>                       Δ+4                {}
            <Call 0x20868 0x2101a>                                              {}
                exp_PREP_TEST_INC_DEC.TYP()
            <Pointer.fp 0x2086e <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x20870 <LVAR -0x003 @>>             Δ-4                {[@@-8]|[@@-3]}
            <Const 0x20874 0x2138b.4>                        Δ-4                {[@@-8]|[@@-3]|[##136075]}
            <Const 0x20876 0x21373.4>                        Δ-4                {[@@-8]|[@@-3]|[##136075]|[##136051]}
            <Call 0x20878 0x20dc6>                                              {[@@-8]|[@@-3]|[##136075]|[##136051]}
                exp_TEST_INC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
            <POP 2087e-20880 StackAdj>                       Δ+14               {[-2-]}
            <MI 20880  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x20882 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x20884 0x20162>                                              {[-2-]|[#23]}
            <POP 20886-20888 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20888 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x2088a <LVAR -0x003 @>>             Δ-4                {[@@-8]|[@@-3]}
            <Const 0x2088e 0x2138b.4>                        Δ-4                {[@@-8]|[@@-3]|[##136075]}
            <Const 0x20890 0x21373.4>                        Δ-4                {[@@-8]|[@@-3]|[##136075]|[##136051]}
            <Call 0x20892 0x20e50>                                              {[@@-8]|[@@-3]|[##136075]|[##136051]}
                exp_TEST_DEC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
            <POP 20898-2089a StackAdj>                       Δ+14               {[-2-]}
            <MI 2089a  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x2089c 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x2089e 0x20162>                                              {[-2-]|[#23]}
            <POP 208a0-208a2 StackAdj>                       Δ+4                {}
            <Call 0x208a2 0x2103c>                                              {}
                exp_PREP_TEST_INC_DEC_128.TYP()
            <Pointer.fp 0x208a8 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x208aa 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x208ac 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x208ae 0x20de8>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_INC_128.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 208b4-208b6 StackAdj>                       Δ+10               {[-2-]}
            <MI 208b6  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x208b8 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x208ba 0x20162>                                              {[-2-]|[#23]}
            <POP 208bc-208be StackAdj>                       Δ+4                {}
            <Pointer.fp 0x208be <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x208c0 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x208c2 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x208c4 0x20e72>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_DEC_128.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 208ca-208cc StackAdj>                       Δ+10               {[-2-]}
            <MI 208cc  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x208ce 0x17.2>                           Δ-2                {[-2-]|[#23]}
            <Call 0x208d0 0x20162>                                              {[-2-]|[#23]}
            <POP 208d2-208d4 StackAdj>                       Δ+4                {}
            <Call 0x208d4 0x21062>                                              {}
                exp_PREP_TEST_CARRY_PROP.TYP()
            <Pointer.fp 0x208da <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x208dc 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x208de 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x208e0 0x20e92>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_CARRY_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 208e6-208e8 StackAdj>                       Δ+10               {[-2-]}
            <MI 208e8  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x208ea 0x18.2>                           Δ-2                {[-2-]|[#24]}
            <Call 0x208ec 0x20162>                                              {[-2-]|[#24]}
            <POP 208ee-208f0 StackAdj>                       Δ+4                {}
            <Call 0x208f0 0x210b2>                                              {}
                exp_PREP_TEST_BORROW_PROP.TYP()
            <Pointer.fp 0x208f6 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x208f8 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x208fa 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x208fc 0x20f0e>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_BORROW_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 20902-20904 StackAdj>                       Δ+10               {[-2-]}
            <MI 20904  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x20906 0x18.2>                           Δ-2                {[-2-]|[#24]}
            <Call 0x20908 0x20162>                                              {[-2-]|[#24]}
            <POP 2090a-2090c StackAdj>                       Δ+4                {}
            <Call 0x2090c 0x21088>                                              {}
                exp_PREP_TEST_CARRY_GENERATE.TYP()
            <Pointer.fp 0x20912 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Const 0x20914 0x2138b.4>                        Δ-4                {[@@-8]|[##136075]}
            <Const 0x20916 0x21373.4>                        Δ-4                {[@@-8]|[##136075]|[##136051]}
            <Call 0x20918 0x20ee6>                                              {[@@-8]|[##136075]|[##136051]}
                exp_TEST_CARRY_GENERATE.TYP(&Fr, &Sr_8, &Sr_8)
            <POP 2091e-20920 StackAdj>                       Δ+10               {[-2-]}
            <MI 20920  MOVE.B  (A6-0x8),(A7)>                                   {[-2-]}
            <Const 0x20922 0x18.2>                           Δ-2                {[-2-]|[#24]}
            <Call 0x20924 0x20162>                                              {[-2-]|[#24]}
            <POP 20926-20928 StackAdj>                       Δ+4                {}
        <POP 20928-20930 Epilogue>                           Σ0         

0x20930


@ 20930
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 20930-20a0a Body>                                   Δ+8        
        <POP 20930-20946 Prologue>                           Σ0         ↓
        <POP 20946-20964 RegCacheLoad>                       Σ0         ↓
        <POP 20964-209a0 Naked>                              Σ0         ↓ →0x209a6
            <Blob 0x20964 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20968 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Call 0x2096c 0x2111c>                                              {[«4""»]|[«4""»]}
                exp_INIT_RF.TYP(Sw_8)
            <POP 2096e-20970 StackAdj>                       Δ+4                {[«4""»]}
            <POP 20970-20971 StackAdj>                       Δ+4                {}
            <Blob 0x20971 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20974 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Pointer.fp 0x20978 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«4""»]|[«4""»]|[@@-4]}
            <Const 0x2097a 0x21373.4>                        Δ-4                {[«4""»]|[«4""»]|[@@-4]|[##136051]}
            <Call 0x20980 0x20c54>                                              {[«4""»]|[«4""»]|[@@-4]|[##136051]}
                exp_TEST_RF_LOCATIONS.TYP(Sw_8, &Fr, &Sr_8)
            <POP 20986-20988 StackAdj>                       Δ+14               {[-2-]}
            <MI 20988  MOVE.B  (A6-0x4),(A7)>                                   {[-2-]}
            <Const 0x2098a 0x19.2>                           Δ-2                {[-2-]|[#25]}
            <Call 0x2098c 0x20162>                                              {[-2-]|[#25]}
            <POP 2098e-20990 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20990 <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-3]}
            <Pointer.fp 0x20992 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-3]|[@@-2]}
            <Call 0x20994 0x20bd6>                                              {[@@-3]|[@@-2]}
                exp_TEST_RF_PARITY_LOCATIONS.TYP(&Fr, &Fr)
            <POP 2099a-2099c StackAdj>                       Δ+8                {}
            <MI 2099c  TST.B   (A6-0x3)>                                        {}
            <MI 2099e  BNE     0x209a6>                                         {}
        <POP 209a0-209a6 Naked>                              Σ0 Δ-4     →0x209aa
            <MI 209a0  MOVE.B  (A6-0x3),-(A7)>               Δ-2                {[2, '(A6-0x3)']}
            <Const 0x209a2 0x1e.2>                           Δ-2                {[2, '(A6-0x3)']|[#30]}
            <MI 209a4  BRA     0x209aa>                                         {[2, '(A6-0x3)']|[#30]}
        <POP 209a6-209aa Naked>                              Σ0 Δ-4     ↓ ←0x20964
            <MI 209a6  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[2, '(A6-0x2)']}
            <Const 0x209a8 0x1f.2>                           Δ-2                {[2, '(A6-0x2)']|[#31]}
        <POP 209aa-209f4 Naked>                              Σ-4 Δ+4    ↓ →0x209fa ←0x209a0
            <Call 0x209aa 0x20162>                                              {[-4-]}
            <POP 209ac-209ae StackAdj>                       Δ+4                {}
            <Blob 0x209ae [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x209b2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Call 0x209b6 0x2111c>                                              {[«4""»]|[«4""»]}
                exp_INIT_RF.TYP(Sw_8)
            <POP 209b8-209ba StackAdj>                       Δ+4                {[«4""»]}
            <POP 209ba-209bb StackAdj>                       Δ+4                {}
            <Blob 0x209bb [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x209be [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Pointer.fp 0x209c2 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«4""»]|[«4""»]|[@@-4]}
            <Const 0x209c4 0x21373.4>                        Δ-4                {[«4""»]|[«4""»]|[@@-4]|[##136051]}
            <Call 0x209ca 0x20c54>                                              {[«4""»]|[«4""»]|[@@-4]|[##136051]}
                exp_TEST_RF_LOCATIONS.TYP(Sw_8, &Fr, &Sr_8)
            <POP 209d0-209d2 StackAdj>                       Δ+14               {[-2-]}
            <MI 209d2  MOVE.B  (A6-0x4),(A7)>                                   {[-2-]}
            <Const 0x209d4 0x19.2>                           Δ-2                {[-2-]|[#25]}
            <Call 0x209d6 0x20162>                                              {[-2-]|[#25]}
            <POP 209d8-209d9 StackAdj>                       Δ+4                {}
            <Blob 0x209d9 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x209dc [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Call 0x209e0 0x2111c>                                              {[«4""»]|[«4""»]}
                exp_INIT_RF.TYP(Sw_8)
            <POP 209e2-209e4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x209e4 <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-3]}
            <Pointer.fp 0x209e6 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-3]|[@@-2]}
            <Call 0x209e8 0x20bd6>                                              {[@@-3]|[@@-2]}
                exp_TEST_RF_PARITY_LOCATIONS.TYP(&Fr, &Fr)
            <POP 209ee-209f0 StackAdj>                       Δ+8                {}
            <MI 209f0  TST.B   (A6-0x3)>                                        {}
            <MI 209f2  BNE     0x209fa>                                         {}
        <POP 209f4-209fa Naked>                              Σ0 Δ-4     →0x209fe
            <MI 209f4  MOVE.B  (A6-0x3),-(A7)>               Δ-2                {[2, '(A6-0x3)']}
            <Const 0x209f6 0x1e.2>                           Δ-2                {[2, '(A6-0x3)']|[#30]}
            <MI 209f8  BRA     0x209fe>                                         {[2, '(A6-0x3)']|[#30]}
        <POP 209fa-209fe Naked>                              Σ0 Δ-4     ↓ ←0x209aa
            <MI 209fa  MOVE.B  (A6-0x2),-(A7)>               Δ-2                {[2, '(A6-0x2)']}
            <Const 0x209fc 0x1f.2>                           Δ-2                {[2, '(A6-0x2)']|[#31]}
        <POP 209fe-20a02 Naked>                              Σ-4 Δ+4    ↓ ←0x209f4
            <Call 0x209fe 0x20162>                                              {[-4-]}
            <POP 20a00-20a02 StackAdj>                       Δ+4                {}
        <POP 20a02-20a0a Epilogue>                           Σ0         

0x20a0a


@ 20a0a
START
    <POP 20a0a--0001 Body>                                              
        <POP 20a0a-20a14 Prologue>                           Σ0         
        <POP 20a14-20a2a RegCacheLoad>                       Σ0         ↓
        <POP 20a2a-20a8e Naked>                              Σ0         ↓
            <Call 0x20a2a 0x10398>                                              {}
                FSCALL_10398
            <Const 0x20a30 0x0.4>                            Δ-4                {[##0]}
            <Call 0x20a34 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 20a3a-20a3c StackAdj>                       Δ+4                {}
            <Const 0x20a3c 0x213ae.4>                        Δ-4                {[##136110]}
            <Const 0x20a42 0x213af.4>                        Δ-4                {[##136110]|[##136111]}
            <Call 0x20a44 0x10544>                                              {[##136110]|[##136111]}
                IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
            <POP 20a4a-20a4c StackAdj>                       Δ+6                {[-2-]}
            <POP 20a4c-20a4d StackAdj>                       Δ+2                {}
            <Blob 0x20a4d [2] 0x213af>                       Δ-2                {[«2»]}
            <Call 0x20a4e 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 20a54-20a55 StackAdj>                       Δ+2        ↓       {}
            <Blob 0x20a55 [6] @>                             Δ-6                {[«6""»]}
            <POP 20a64-20a66 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x20a66 5>                                                     {[«6""»]|[$$P2TYP]}
            <MI 20a78  MOVE.L  (A7)+,0x21362>                Δ+4                {[«6""»]}
            <POP 20a7a-20a7c StackAdj>                       Δ+6                {}
            <Const 0x20a7c 0x21366.4>                        Δ-4                {[##136038]}
            <Call 0x20a7e 0x102b8>                                              {[##136038]}
                NewString(VAR a : String)
            <POP 20a84-20a86 StackAdj>                       Δ+4                {}
            <MI 20a86  CLR.B   0x213a5>                                         {}
            <MI 20a8c  MOVEQ.L #0x00,D0>                                        {}
        <POP 20a8e-20aaa Naked>                              Σ0         ↓ →0x20a8e ←0x20a8e
            <MI 20a8e  MOVE.L  D0,0x213b0>                                      {}
            <POP 0x20a94 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 20a9a  LEA.L   0x2135a,A0>                                      {}
            <MI 20aa0  CLR.B   (A0+D0.L+#0x4c)>                                 {}
            <MI 20aa4  ADDQ.L  #0x1,D0>                                         {}
            <MI 20aa6  CMP.L   #0x07,D0>                                        {}
            <MI 20aa8  BLE     0x20a8e>                                         {}
        <POP 20aaa-20af0 Naked>                              Σ0         ↓
            <Call 0x20aaa 0x201f8>                                              {}
            <Call 0x20aae 0x20292>                                              {}
            <Call 0x20ab2 0x20386>                                              {}
            <Call 0x20ab6 0x20460>                                              {}
            <Call 0x20aba 0x20586>                                              {}
            <Call 0x20abe 0x2064e>                                              {}
            <Call 0x20ac2 0x20754>                                              {}
            <Call 0x20ac6 0x20930>                                              {}
            <Call 0x20aca 0x201bc>                                              {}
            <Const 0x20ace 0x1.2>                            Δ-2                {[#1]}
            <Blob 0x20ad0 [4] 0x21362>                       Δ-4                {[#1]|[«4»]}
            <Blob 0x20ad2 [4] 0x21366>                       Δ-4                {[#1]|[«4»]|[«4»]}
            <Blob 0x20ad4 [2] 0x213a5>                       Δ-2                {[#1]|[«4»]|[«4»]|[«2»]}
            <Blob 0x20ada [4] 0x213aa>                       Δ-4                {[#1]|[«4»]|[«4»]|[«2»]|[«4»]}
            <Blob 0x20ae0 [4] 0x213a6>                       Δ-4                {[#1]|[«4»]|[«4»]|[«2»]|[«4»]|[«4»]}
            <Call 0x20ae6 0x1054a>                                              {[#1]|[«4»]|[«4»]|[«2»]|[«4»]|[«4»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 20aec-20af0 StackAdj>                       Δ+20               {}
        <POP 20af0-20af6 Naked>                              Σ0         
            <Call 0x20af0 0x10284>                                              {}
                ?exit

0x21162


@ 21162
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 21162-211ca Body>                                              
        <POP 21162-21178 Prologue>                           Σ0         ↓
        <POP 21178-211c2 Naked>                              Σ0         ↓
            <Blob 0x21178 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x21184 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 21188-2118a StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2118a 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 2119c-2119e StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2119e  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 211a2  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 211a4  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 211a6  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x211a8 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 211ae-211b0 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x211b0 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 211b6-211b8 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x211b8 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 211be-211c2 StackAdj>                       Δ+20               {}
        <POP 211c2-211ca Epilogue>                           Σ0         

0x2121e


@ 2121e
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 2121e-2135a Body>                                              
        <POP 2121e-21234 Prologue>                           Σ0         ↓
        <POP 21234-2124a RegCacheLoad>                       Σ0         ↓
        <POP 2124a-212aa Naked>                              Σ0         ↓ →0x212f2
            <Call 0x2124a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21250 [18] @>                            Δ-18               {[«18""»]}
            <POP 2125c-2125e StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2125e 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2126a 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2126c-2126d StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2126d [14] @>                            Δ-14               {[«14""»]}
            <POP 2127c-2127e StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2127e 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21288-2128a StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2128a  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x2128e 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21294-21296 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21296 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2129c-2129e StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2129e 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 212a0-212a2 StackAdj>                       Δ+18               {}
            <MI 212a2  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 212a6  CMPA.W  #0x01,A0>                                        {}
            <MI 212a8  BEQ     0x212f2>                                         {}
        <POP 212aa-212f2 Naked>                              Σ0         ↓
            <Blob 0x212aa [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x212ba [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 212ca-212cc StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x212cc 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 212d6-212d8 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x212d8>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x212d8 12>                      Δ-4        
                <Const 0x212dc 0x1.2>                        Δ-2        
                <Const 0x212de 0x1e.2>                       Δ-2        
                <Call 0x212e0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 212e2-212e4 StackAdj>                   Δ+8        
            <Call 0x212e4 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 212ea-212ec StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x212ec 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 212ee-212f2 StackAdj>                       Δ+48               {}
        <POP 212f2-21352 Naked>                              Σ0         ↓ ←0x2124a
            <Blob 0x212f2 [14] @>                            Δ-14               {[«14""»]}
            <POP 21302-21304 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21304 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 2130e-21310 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21310  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21314 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2131a-2131c StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2131c 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21322-21324 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21324 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21326-21327 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21327 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21336 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2133a-2133c StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2133c 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2134a 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21350-21352 StackAdj>                       Δ+30               {}
        <POP 21352-2135a Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.de9210439e2d9c41
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0a 0a              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 13 c6              |        |		.PTR	0x213c6
00020010					code.end:
00020010 00 02 13 5a              |   Z    |		.PTR	0x2135a
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 11 62              |   b    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 12 1e              |        |		.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 50 32 46 50              |P2FP    |		.TXT	'P2FP'
0002010e 50 32 46 50              |P2FP    |		.TXT	'P2FP'
00020112 54 45 53 54 5f 4c 4f 4f  |TEST_LOO|		.TXT	'TEST_LOOP_CNTR_OVERFLOW.TYP '
0002012e 50 32 54 59 50 20        |P2TYP   |		.TXT	'P2TYP '
00020134 00 0f                    |        |		.CONST	0x0,0xf
00020136 e0 a7                    |        |		.CONST	0xe0,0xa7
00020138 ff 0d                    |        |		.CONST	0xff,0xd
0002013a 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002013e 00 00 0a dd              |        |		.CONST	0x0,0x0,0xa,0xdd
00020142 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020146 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002014a 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002014e 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020152 ff ff ff ff              |        |		.CONST	0xff,0xff,0xff,0xff
00020156 ff ff ff ff              |        |		.CONST	0xff,0xff,0xff,0xff
0002015a 01 01 01 01              |        |		.CONST	0x1,0x1,0x1,0x1
0002015e 01 01 01 01              |        |		.CONST	0x1,0x1,0x1,0x1
00020162 ; --------------------------------------------------------------------------------------
00020162 ; OMSI PASCAL Function
00020162 ;    <LVAR  0x00a 1(r)>
00020162 ;    <LVAR  0x008 1(r)>
00020162 ; --------------------------------------------------------------------------------------
00020162 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020166 bf d5                    |        |		CMPA.L	(A5),A7
00020168 62 06                    |b       |		BHI	0x20170
0002016a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002016e 4e 76                    |Nv      |		TRAPV
00020170 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020174 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00020178 41 f9 00 02 13 a5        |A       |		LEA.L	0x213a5,A0
0002017e 43 f9 00 02 13 a6        |C       |		LEA.L	0x213a6,A1
00020184 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
00020188 66 2a                    |f*      |		BNE	0x201b4
0002018a 10 ae 00 08              |        |		MOVE.B	(A6+0x8),(A0)
0002018e 12 bc 00 03              |        |		MOVE.B	#0x03,(A1)
00020192 42 27                    |B'      |		CLR.B	-(A7)
00020194 2f 39 00 02 13 62        |/9   b  |		MOVE.L	0x21362,-(A7)
0002019a 2f 39 00 02 13 66        |/9   f  |		MOVE.L	0x21366,-(A7)
000201a0 1f 10                    |        |		MOVE.B	(A0),-(A7)
000201a2 2f 39 00 02 13 aa        |/9      |		MOVE.L	0x213aa,-(A7)
000201a8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000201aa 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000201b0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000201b4 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000201b8 4e 5e                    |N^      |		UNLK	A6
000201ba 4e 75                    |Nu      |		RTS
000201bc ; --------------------------------------------------------------------------------------
000201bc ; OMSI PASCAL Function
000201bc ; --------------------------------------------------------------------------------------
000201bc 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
000201c0 bf d5                    |        |		CMPA.L	(A5),A7
000201c2 62 06                    |b       |		BHI	0x201ca
000201c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000201c8 4e 76                    |Nv      |		TRAPV
000201ca de fc 00 0e              |        |		ADDA.W	#0xe,A7
000201ce 4e b9 00 02 11 36        |N    6  |		JSR	exp_CLEAR_PARITY.TYP()
000201d4 42 67                    |Bg      |		CLR.W	-(A7)
000201d6 3f 3a ff 60              |?: `    |		MOVE.W	0x20138,-(A7)
000201da 3f 3a ff 5a              |?: Z    |		MOVE.W	0x20136,-(A7)
000201de 3f 3a ff 54              |?: T    |		MOVE.W	0x20134,-(A7)
000201e2 42 27                    |B'      |		CLR.B	-(A7)
000201e4 4e b9 00 02 10 fc        |N       |		JSR	exp_LOAD_WCS_UIR.TYP(Sw_2, Sw_6, Sw_1)
000201ea de fc 00 0a              |        |		ADDA.W	#0xa,A7
000201ee 4e b9 00 02 0f 8e        |N       |		JSR	exp_RESET.TYP()
000201f4 4e 5e                    |N^      |		UNLK	A6
000201f6 4e 75                    |Nu      |		RTS
000201f8 ; --------------------------------------------------------------------------------------
000201f8 ; OMSI PASCAL Function
000201f8 ;    <LVAR -0x009 @>
000201f8 ;    <LVAR -0x00b @>
000201f8 ;    <LVAR -0x00c @ 1(r)>
000201f8 ; --------------------------------------------------------------------------------------
000201f8 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000201fc bf d5                    |        |		CMPA.L	(A5),A7
000201fe 62 06                    |b       |		BHI	0x20206
00020200 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020204 4e 76                    |Nv      |		TRAPV
00020206 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002020a 48 e7 00 f0              |H       |		MOVEM.L	A3+A2+A1+A0,-(A7)
0002020e 41 ee ff f4              |A       |		LEA.L	(A6-0xc),A0
00020212 43 fa ff 4e              |C  N    |		LEA.L	0x20162,A1
00020216 45 f9 00 02 13 6d        |E    m  |		LEA.L	0x2136d,A2
0002021c 47 f9 00 02 13 85        |G       |		LEA.L	0x21385,A3
00020222 48 50                    |HP      |		PEA.L	(A0)
00020224 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020228 4e b9 00 02 0b b2        |N       |		JSR	exp_TEST_WCS_ADDRESS.TYP(&Fr, &Sr_2)
0002022e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020230 1e 90                    |        |		MOVE.B	(A0),(A7)
00020232 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00020236 4e 91                    |N       |		JSR	(A1)
00020238 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002023a 48 50                    |HP      |		PEA.L	(A0)
0002023c 48 52                    |HR      |		PEA.L	(A2)
0002023e 48 53                    |HS      |		PEA.L	(A3)
00020240 4e b9 00 02 0b 90        |N       |		JSR	exp_TEST_WCS_DATA.TYP(&Fr, &Sr_6, &Sr_6)
00020246 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002024a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002024c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020250 4e 91                    |N       |		JSR	(A1)
00020252 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020254 48 50                    |HP      |		PEA.L	(A0)
00020256 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
0002025a 4e b9 00 02 0b 1e        |N       |		JSR	exp_TEST_WCS_PARITY.TYP(&Fr, &Sr_6)
00020260 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020262 1e 90                    |        |		MOVE.B	(A0),(A7)
00020264 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020268 4e 91                    |N       |		JSR	(A1)
0002026a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002026c 48 50                    |HP      |		PEA.L	(A0)
0002026e 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020272 48 52                    |HR      |		PEA.L	(A2)
00020274 48 53                    |HS      |		PEA.L	(A3)
00020276 4e b9 00 02 0b 40        |N    @  |		JSR	exp_TEST_WCS_LOCATIONS.TYP(&Fr, &Sr_2, &Sr_6, &Sr_6)
0002027c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020280 1e 90                    |        |		MOVE.B	(A0),(A7)
00020282 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00020286 4e 91                    |N       |		JSR	(A1)
00020288 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002028a 4c df 0f 00              |L       |		MOVEM.L	(A7)+,A0+A1+A2+A3
0002028e 4e 5e                    |N^      |		UNLK	A6
00020290 4e 75                    |Nu      |		RTS
00020292 ; --------------------------------------------------------------------------------------
00020292 ; OMSI PASCAL Function
00020292 ;    <LVAR -0x004 @ 4(r)>
00020292 ;    <LVAR -0x008 @ 4(r)>
00020292 ;    <LVAR -0x00c 4(r)>
00020292 ;    <LVAR -0x010 @ 4(r)>
00020292 ;    <LVAR -0x011 @ 1(r)>
00020292 ;    <LVAR -0x012 @ 1(r)>
00020292 ;    <LVAR -0x013 @ 1(r)>
00020292 ;    <LVAR -0x014 @ 1(r)>
00020292 ; --------------------------------------------------------------------------------------
00020292 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00020296 bf d5                    |        |		CMPA.L	(A5),A7
00020298 62 06                    |b       |		BHI	0x202a0
0002029a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002029e 4e 76                    |Nv      |		TRAPV
000202a0 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000202a4 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000202a8 41 ee ff ec              |A       |		LEA.L	(A6-0x14),A0
000202ac 72 01                    |r       |		MOVEQ.L	#0x01,D1
000202ae 48 50                    |HP      |		PEA.L	(A0)
000202b0 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
000202b4 48 79 00 02 13 7b        |Hy   {  |		PEA.L	0x2137b
000202ba 48 79 00 02 13 93        |Hy      |		PEA.L	0x21393
000202c0 4e b9 00 02 0d 54        |N    T  |		JSR	exp_TEST_LOAD_WDR.TYP(&Fr, &Fr, &Sr_8_1, &Sr_8_1)
000202c6 de fc 00 10              |        |		ADDA.W	#0x10,A7
000202ca 4a 10                    |J       |		TST.B	(A0)
000202cc 67 08                    |g       |		BEQ	0x202d6
000202ce 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
000202d2 66 00 00 aa              |f       |		BNE	0x2037e
000202d6 4a 39 00 02 13 ae        |J9      |		TST.B	0x213ae
000202dc 67 00 00 88              |g       |		BEQ	0x20366
000202e0 2f 3a fe 28              |/: (    |		MOVE.L	0x2010a,-(A7)
000202e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000202e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000202ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000202ec 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000202f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000202f6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000202f8 1e 81                    |        |		MOVE.B	D1,(A7)
000202fa 10 39 00 02 13 af        | 9      |		MOVE.B	0x213af,D0
00020300 48 80                    |H       |		EXTB.W	D0
00020302 41 81                    |A       |		CHK.W	D1,D0
00020304 1f 00                    |        |		MOVE.B	D0,-(A7)
00020306 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
0002030a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002030e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020312 48 6e ff ef              |Hn      |		PEA.L	(A6-0x11)
00020316 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002031a 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
00020320 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020324 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
00020328 67 1a                    |g       |		BEQ	0x20344
0002032a 4a 10                    |J       |		TST.B	(A0)
0002032c 67 08                    |g       |		BEQ	0x20336
0002032e 42 27                    |B'      |		CLR.B	-(A7)
00020330 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020334 60 06                    |`       |		BRA	0x2033c
00020336 42 27                    |B'      |		CLR.B	-(A7)
00020338 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
0002033c 4e ba fe 24              |N  $    |		JSR	0x20162
00020340 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020342 60 20                    |`       |		BRA	0x20364
00020344 42 27                    |B'      |		CLR.B	-(A7)
00020346 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
0002034a 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
0002034e 1f 2e ff ef              | .      |		MOVE.B	(A6-0x11),-(A7)
00020352 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00020356 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002035a 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020360 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020364 60 18                    |`       |		BRA	0x2037e
00020366 4a 10                    |J       |		TST.B	(A0)
00020368 67 08                    |g       |		BEQ	0x20372
0002036a 42 27                    |B'      |		CLR.B	-(A7)
0002036c 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00020370 60 06                    |`       |		BRA	0x20378
00020372 42 27                    |B'      |		CLR.B	-(A7)
00020374 1f 3c 00 08              | <      |		MOVE.B	#0x08,-(A7)
00020378 4e ba fd e8              |N       |		JSR	0x20162
0002037c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002037e 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020382 4e 5e                    |N^      |		UNLK	A6
00020384 4e 75                    |Nu      |		RTS
00020386 ; --------------------------------------------------------------------------------------
00020386 ; OMSI PASCAL Function
00020386 ;    <LVAR -0x004 @ 4(r)>
00020386 ;    <LVAR -0x008 @ 4(r)>
00020386 ;    <LVAR -0x011 @>
00020386 ;    <LVAR -0x012 @ 1(r)>
00020386 ;    <LVAR -0x013 @ 1(r)>
00020386 ;    <LVAR -0x014 @ 1(r)>
00020386 ; --------------------------------------------------------------------------------------
00020386 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
0002038a bf d5                    |        |		CMPA.L	(A5),A7
0002038c 62 06                    |b       |		BHI	0x20394
0002038e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020392 4e 76                    |Nv      |		TRAPV
00020394 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00020398 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
0002039c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002039e 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000203a2 48 79 00 02 13 7b        |Hy   {  |		PEA.L	0x2137b
000203a8 48 79 00 02 13 93        |Hy      |		PEA.L	0x21393
000203ae 4e b9 00 02 0e 30        |N    0  |		JSR	exp_TEST_FIU_BUS.TYP(&Fr, &Sr_8_1, &Sr_8_1)
000203b4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000203b8 4a 2e ff ec              |J.      |		TST.B	(A6-0x14)
000203bc 66 00 00 9a              |f       |		BNE	0x20458
000203c0 4a 39 00 02 13 ae        |J9      |		TST.B	0x213ae
000203c6 67 00 00 84              |g       |		BEQ	0x2044c
000203ca 2f 3a fd 42              |/: B    |		MOVE.L	0x2010e,-(A7)
000203ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000203d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000203d6 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000203da 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000203e0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000203e2 1e 81                    |        |		MOVE.B	D1,(A7)
000203e4 10 39 00 02 13 af        | 9      |		MOVE.B	0x213af,D0
000203ea 48 80                    |H       |		EXTB.W	D0
000203ec 41 81                    |A       |		CHK.W	D1,D0
000203ee 1f 00                    |        |		MOVE.B	D0,-(A7)
000203f0 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
000203f4 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000203f8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000203fc 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020400 48 6e ff ef              |Hn      |		PEA.L	(A6-0x11)
00020404 4e b9 00 01 05 3e        |N    >  |		JSR	FSCALL_1053e
0002040a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002040e 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
00020412 67 0e                    |g       |		BEQ	0x20422
00020414 42 27                    |B'      |		CLR.B	-(A7)
00020416 1f 3c 00 09              | <      |		MOVE.B	#0x09,-(A7)
0002041a 4e ba fd 46              |N  F    |		JSR	0x20162
0002041e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020420 60 28                    |`(      |		BRA	0x2044a
00020422 42 27                    |B'      |		CLR.B	-(A7)
00020424 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00020428 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
0002042c 1f 2e ff ee              | .      |		MOVE.B	(A6-0x12),-(A7)
00020430 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020432 20 4f                    | O      |		MOVEA.L	A7,A0
00020434 43 ee ff ef              |C       |		LEA.L	(A6-0x11),A1
00020438 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002043a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002043c 51 c8 ff fc              |Q       |		DBF	D0,0x2043a
00020440 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020446 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002044a 60 0c                    |`       |		BRA	0x20458
0002044c 42 27                    |B'      |		CLR.B	-(A7)
0002044e 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00020452 4e ba fd 0e              |N       |		JSR	0x20162
00020456 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020458 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
0002045c 4e 5e                    |N^      |		UNLK	A6
0002045e 4e 75                    |Nu      |		RTS
00020460 ; --------------------------------------------------------------------------------------
00020460 ; OMSI PASCAL Function
00020460 ;    <LVAR -0x005 @>
00020460 ;    <LVAR -0x007 @>
00020460 ;    <LVAR -0x008 @>
00020460 ;    <LVAR -0x009 @ 1(r)>
00020460 ;    <LVAR -0x00a @>
00020460 ;    <LVAR -0x00b @>
00020460 ;    <LVAR -0x00c @ 1(r)>
00020460 ;    <LVAR -0x014 @ 4(r)>
00020460 ; --------------------------------------------------------------------------------------
00020460 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00020464 bf d5                    |        |		CMPA.L	(A5),A7
00020466 62 06                    |b       |		BHI	0x2046e
00020468 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002046c 4e 76                    |Nv      |		TRAPV
0002046e de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00020472 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00020476 45 ee ff f7              |E       |		LEA.L	(A6-0x9),A2
0002047a 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
0002047e 49 fa fc e2              |I       |		LEA.L	0x20162,A4
00020482 72 06                    |r       |		MOVEQ.L	#0x06,D1
00020484 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020486 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020488 78 0d                    |x       |		MOVEQ.L	#0x0d,D4
0002048a 48 52                    |HR      |		PEA.L	(A2)
0002048c 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020490 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020494 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00020498 4e b9 00 02 0d 76        |N    v  |		JSR	exp_TEST_LOAD_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_2, &Sr_2)
0002049e de c2                    |        |		ADDA.W	D2,A7
000204a0 1e 92                    |        |		MOVE.B	(A2),(A7)
000204a2 1f 3c 00 0b              | <      |		MOVE.B	#0x0b,-(A7)
000204a6 4e 94                    |N       |		JSR	(A4)
000204a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000204aa 48 52                    |HR      |		PEA.L	(A2)
000204ac 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000204b0 48 79 00 02 13 73        |Hy   s  |		PEA.L	0x21373
000204b6 48 79 00 02 13 8b        |Hy      |		PEA.L	0x2138b
000204bc 4e b9 00 02 0e ba        |N       |		JSR	exp_TEST_COUNT_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
000204c2 de c2                    |        |		ADDA.W	D2,A7
000204c4 1e 92                    |        |		MOVE.B	(A2),(A7)
000204c6 1f 3c 00 0c              | <      |		MOVE.B	#0x0c,-(A7)
000204ca 4e 94                    |N       |		JSR	(A4)
000204cc 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000204d0 20 4f                    | O      |		MOVEA.L	A7,A0
000204d2 43 fa fc 3e              |C  >    |		LEA.L	0x20112,A1
000204d6 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000204d8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000204da 51 c8 ff fc              |Q       |		DBF	D0,0x204d8
000204de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204e4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000204e6 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000204ea 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000204f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204f2 48 53                    |HS      |		PEA.L	(A3)
000204f4 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000204fa de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000204fe 1e 81                    |        |		MOVE.B	D1,(A7)
00020500 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020502 4e b9 00 01 04 7e        |N    ~  |		JSR	ExpXmit(adr : Byte; b : Pointer)
00020508 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002050a 2e 3c ff ff ec 78        |.<   x  |		MOVE.L	#0xffffec78,D7
00020510 1f 01                    |        |		MOVE.B	D1,-(A7)
00020512 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020516 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
0002051a 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
0002051e 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00020524 de c2                    |        |		ADDA.W	D2,A7
00020526 52 87                    |R       |		ADDQ.L	#0x1,D7
00020528 67 08                    |g       |		BEQ	0x20532
0002052a 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
0002052e b0 03                    |        |		CMP.B	D3,D0
00020530 66 de                    |f       |		BNE	0x20510
00020532 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00020536 b0 03                    |        |		CMP.B	D3,D0
00020538 67 08                    |g       |		BEQ	0x20542
0002053a 42 27                    |B'      |		CLR.B	-(A7)
0002053c 1f 04                    |        |		MOVE.B	D4,-(A7)
0002053e 4e 94                    |N       |		JSR	(A4)
00020540 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020542 1f 01                    |        |		MOVE.B	D1,-(A7)
00020544 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020546 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002054a 4e b9 00 01 04 90        |N       |		JSR	ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
00020550 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020552 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020554 48 52                    |HR      |		PEA.L	(A2)
00020556 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
0002055c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002055e 48 53                    |HS      |		PEA.L	(A3)
00020560 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020566 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020568 1e 81                    |        |		MOVE.B	D1,(A7)
0002056a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002056e 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020574 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020576 1e 92                    |        |		MOVE.B	(A2),(A7)
00020578 1f 04                    |        |		MOVE.B	D4,-(A7)
0002057a 4e 94                    |N       |		JSR	(A4)
0002057c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002057e 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00020582 4e 5e                    |N^      |		UNLK	A6
00020584 4e 75                    |Nu      |		RTS
00020586 ; --------------------------------------------------------------------------------------
00020586 ; OMSI PASCAL Function
00020586 ;    <LVAR -0x002 @>
00020586 ;    <LVAR -0x003 @>
00020586 ;    <LVAR -0x00b @>
00020586 ;    <LVAR -0x013 @>
00020586 ;    <LVAR -0x014 @ 1(r)>
00020586 ; --------------------------------------------------------------------------------------
00020586 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
0002058a bf d5                    |        |		CMPA.L	(A5),A7
0002058c 62 06                    |b       |		BHI	0x20594
0002058e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020592 4e 76                    |Nv      |		TRAPV
00020594 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020598 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
0002059c 41 ee ff ec              |A       |		LEA.L	(A6-0x14),A0
000205a0 43 f9 00 02 13 8b        |C       |		LEA.L	0x2138b,A1
000205a6 45 ee ff ed              |E       |		LEA.L	(A6-0x13),A2
000205aa 47 fa fb b6              |G       |		LEA.L	0x20162,A3
000205ae 49 ee ff f5              |I       |		LEA.L	(A6-0xb),A4
000205b2 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000205b4 72 16                    |r       |		MOVEQ.L	#0x16,D1
000205b6 74 10                    |t       |		MOVEQ.L	#0x10,D2
000205b8 48 50                    |HP      |		PEA.L	(A0)
000205ba 48 52                    |HR      |		PEA.L	(A2)
000205bc 48 52                    |HR      |		PEA.L	(A2)
000205be 48 51                    |HQ      |		PEA.L	(A1)
000205c0 4e b9 00 02 0c a2        |N       |		JSR	exp_TEST_RF_DATA_LINES.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8)
000205c6 de c0                    |        |		ADDA.W	D0,A7
000205c8 1e 90                    |        |		MOVE.B	(A0),(A7)
000205ca 1f 00                    |        |		MOVE.B	D0,-(A7)
000205cc 4e 93                    |N       |		JSR	(A3)
000205ce 2e ba fb 6e              |.  n    |		MOVE.L	0x2013e,(A7)
000205d2 2f 3a fb 66              |/: f    |		MOVE.L	0x2013a,-(A7)
000205d6 4e b9 00 02 11 1c        |N       |		JSR	exp_INIT_RF.TYP(Sw_8)
000205dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205de 48 50                    |HP      |		PEA.L	(A0)
000205e0 48 52                    |HR      |		PEA.L	(A2)
000205e2 48 54                    |HT      |		PEA.L	(A4)
000205e4 48 51                    |HQ      |		PEA.L	(A1)
000205e6 4e b9 00 02 0e 08        |N       |		JSR	exp_TEST_FRAME_REG_ADR.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8)
000205ec de c0                    |        |		ADDA.W	D0,A7
000205ee 1e 90                    |        |		MOVE.B	(A0),(A7)
000205f0 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
000205f4 4e 93                    |N       |		JSR	(A3)
000205f6 2e ba fb 4e              |.  N    |		MOVE.L	0x20146,(A7)
000205fa 2f 3a fb 46              |/: F    |		MOVE.L	0x20142,-(A7)
000205fe 4e b9 00 02 11 1c        |N       |		JSR	exp_INIT_RF.TYP(Sw_8)
00020604 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020606 48 50                    |HP      |		PEA.L	(A0)
00020608 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002060c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020610 48 52                    |HR      |		PEA.L	(A2)
00020612 48 54                    |HT      |		PEA.L	(A4)
00020614 48 51                    |HQ      |		PEA.L	(A1)
00020616 4e b9 00 02 0b 68        |N    h  |		JSR	exp_TEST_WRITE_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8)
0002061c de c1                    |        |		ADDA.W	D1,A7
0002061e 1e 90                    |        |		MOVE.B	(A0),(A7)
00020620 1f 02                    |        |		MOVE.B	D2,-(A7)
00020622 4e 93                    |N       |		JSR	(A3)
00020624 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020626 48 50                    |HP      |		PEA.L	(A0)
00020628 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002062c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020630 48 52                    |HR      |		PEA.L	(A2)
00020632 48 54                    |HT      |		PEA.L	(A4)
00020634 48 51                    |HQ      |		PEA.L	(A1)
00020636 4e b9 00 02 0c 7a        |N    z  |		JSR	exp_TEST_READ_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8)
0002063c de c1                    |        |		ADDA.W	D1,A7
0002063e 1e 90                    |        |		MOVE.B	(A0),(A7)
00020640 1f 02                    |        |		MOVE.B	D2,-(A7)
00020642 4e 93                    |N       |		JSR	(A3)
00020644 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020646 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
0002064a 4e 5e                    |N^      |		UNLK	A6
0002064c 4e 75                    |Nu      |		RTS
0002064e ; --------------------------------------------------------------------------------------
0002064e ; OMSI PASCAL Function
0002064e ;    <LVAR -0x004 1(rw)>
0002064e ;    <LVAR -0x005 @ 1(r)>
0002064e ;    <LVAR -0x007 @>
0002064e ;    <LVAR -0x008 @>
0002064e ;    <LVAR -0x009 @ 1(r)>
0002064e ;    <LVAR -0x00b @>
0002064e ;    <LVAR -0x00c @ 1(r)>
0002064e ;    <LVAR -0x014 @>
0002064e ;    <LVAR -0x015 @ 1(r)>
0002064e ;    <LVAR -0x01e @>
0002064e ;    <LVAR -0x01f @>
0002064e ;    <LVAR -0x020 @ 1(r)>
0002064e ; --------------------------------------------------------------------------------------
0002064e 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
00020652 bf d5                    |        |		CMPA.L	(A5),A7
00020654 62 06                    |b       |		BHI	0x2065c
00020656 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002065a 4e 76                    |Nv      |		TRAPV
0002065c de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020660 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00020664 41 ee ff e0              |A       |		LEA.L	(A6-0x20),A0
00020668 43 fa fa f8              |C       |		LEA.L	0x20162,A1
0002066c 45 ee ff eb              |E       |		LEA.L	(A6-0x15),A2
00020670 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00020674 49 f9 00 02 13 6a        |I    j  |		LEA.L	0x2136a,A4
0002067a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002067c 74 14                    |t       |		MOVEQ.L	#0x14,D2
0002067e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020682 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020686 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
0002068a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002068e 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020692 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00020696 4e b9 00 02 0a f6        |N       |		JSR	exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
0002069c de fc 00 16              |        |		ADDA.W	#0x16,A7
000206a0 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
000206a4 1f 3c 00 11              | <      |		MOVE.B	#0x11,-(A7)
000206a8 4e 91                    |N       |		JSR	(A1)
000206aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206ac 42 80                    |B       |		CLR.L	D0
000206ae 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
000206b2 0c 40 00 03              | @      |		CMPI.W	#0x0003,D0
000206b6 66 0e                    |f       |		BNE	0x206c6
000206b8 42 80                    |B       |		CLR.L	D0
000206ba 10 2e ff f7              | .      |		MOVE.B	(A6-0x9),D0
000206be b0 41                    | A      |		CMP.W	D1,D0
000206c0 66 04                    |f       |		BNE	0x206c6
000206c2 16 81                    |        |		MOVE.B	D1,(A3)
000206c4 60 04                    |`       |		BRA	0x206ca
000206c6 16 bc 00 02              |        |		MOVE.B	#0x02,(A3)
000206ca 1f 13                    |        |		MOVE.B	(A3),-(A7)
000206cc 48 50                    |HP      |		PEA.L	(A0)
000206ce 48 6e ff e1              |Hn      |		PEA.L	(A6-0x1f)
000206d2 48 6e ff e2              |Hn      |		PEA.L	(A6-0x1e)
000206d6 4e b9 00 02 0c 02        |N       |		JSR	exp_TEST_RF_PARITY_CHECKERS.TYP(Sw_1, &Fr, &Fr, &Sr_8_1)
000206dc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000206e0 1e 90                    |        |		MOVE.B	(A0),(A7)
000206e2 1f 3c 00 12              | <      |		MOVE.B	#0x12,-(A7)
000206e6 4e 91                    |N       |		JSR	(A1)
000206e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206ea 48 50                    |HP      |		PEA.L	(A0)
000206ec 48 52                    |HR      |		PEA.L	(A2)
000206ee 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000206f2 48 54                    |HT      |		PEA.L	(A4)
000206f4 48 79 00 02 13 84        |Hy      |		PEA.L	0x21384
000206fa 4e b9 00 02 0f 38        |N    8  |		JSR	exp_TEST_BUS_PARITY_CHECKERS.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1)
00020700 de c2                    |        |		ADDA.W	D2,A7
00020702 4a 12                    |J       |		TST.B	(A2)
00020704 67 08                    |g       |		BEQ	0x2070e
00020706 1f 10                    |        |		MOVE.B	(A0),-(A7)
00020708 1f 3c 00 1b              | <      |		MOVE.B	#0x1b,-(A7)
0002070c 60 06                    |`       |		BRA	0x20714
0002070e 1f 10                    |        |		MOVE.B	(A0),-(A7)
00020710 1f 3c 00 1a              | <      |		MOVE.B	#0x1a,-(A7)
00020714 4e 91                    |N       |		JSR	(A1)
00020716 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020718 4e b9 00 02 0f cc        |N       |		JSR	exp_PREP_TEST_RF_PAR_ADDR.TYP()
0002071e 48 50                    |HP      |		PEA.L	(A0)
00020720 48 52                    |HR      |		PEA.L	(A2)
00020722 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00020726 48 54                    |HT      |		PEA.L	(A4)
00020728 48 79 00 02 13 84        |Hy      |		PEA.L	0x21384
0002072e 4e b9 00 02 0c 2e        |N    .  |		JSR	exp_TEST_RF_PAR_ADDR.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1)
00020734 de c2                    |        |		ADDA.W	D2,A7
00020736 4a 12                    |J       |		TST.B	(A2)
00020738 67 08                    |g       |		BEQ	0x20742
0002073a 1f 10                    |        |		MOVE.B	(A0),-(A7)
0002073c 1f 3c 00 1d              | <      |		MOVE.B	#0x1d,-(A7)
00020740 60 06                    |`       |		BRA	0x20748
00020742 1f 10                    |        |		MOVE.B	(A0),-(A7)
00020744 1f 3c 00 1c              | <      |		MOVE.B	#0x1c,-(A7)
00020748 4e 91                    |N       |		JSR	(A1)
0002074a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002074c 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020750 4e 5e                    |N^      |		UNLK	A6
00020752 4e 75                    |Nu      |		RTS
00020754 ; --------------------------------------------------------------------------------------
00020754 ; OMSI PASCAL Function
00020754 ;    <LVAR -0x003 @>
00020754 ;    <LVAR -0x004 @ 1(r)>
00020754 ;    <LVAR -0x005 @>
00020754 ;    <LVAR -0x006 @ 1(r)>
00020754 ;    <LVAR -0x007 @ 1(r)>
00020754 ;    <LVAR -0x008 @ 1(r)>
00020754 ; --------------------------------------------------------------------------------------
00020754 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00020758 bf d5                    |        |		CMPA.L	(A5),A7
0002075a 62 06                    |b       |		BHI	0x20762
0002075c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020760 4e 76                    |Nv      |		TRAPV
00020762 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020766 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
0002076a 41 f9 00 02 13 73        |A    s  |		LEA.L	0x21373,A0
00020770 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00020774 45 f9 00 02 13 8b        |E       |		LEA.L	0x2138b,A2
0002077a 47 fa f9 e6              |G       |		LEA.L	0x20162,A3
0002077e 49 ee ff f9              |I       |		LEA.L	(A6-0x7),A4
00020782 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020784 72 17                    |r       |		MOVEQ.L	#0x17,D1
00020786 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020788 76 18                    |v       |		MOVEQ.L	#0x18,D3
0002078a 78 13                    |x       |		MOVEQ.L	#0x13,D4
0002078c 4e b9 00 02 0f a4        |N       |		JSR	exp_PREP_UCODE_LOGICAL_ALU.TYP()
00020792 4e b9 00 02 10 d8        |N       |		JSR	exp_PREP_RF_LOGICAL_ALU.TYP()
00020798 48 51                    |HQ      |		PEA.L	(A1)
0002079a 48 52                    |HR      |		PEA.L	(A2)
0002079c 48 50                    |HP      |		PEA.L	(A0)
0002079e 4e b9 00 02 0d a2        |N       |		JSR	exp_TEST_LOGICAL_ALU.TYP(&Fr, &Sr_8, &Sr_8)
000207a4 de c0                    |        |		ADDA.W	D0,A7
000207a6 1e 91                    |        |		MOVE.B	(A1),(A7)
000207a8 1f 04                    |        |		MOVE.B	D4,-(A7)
000207aa 4e 93                    |N       |		JSR	(A3)
000207ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207ae 48 51                    |HQ      |		PEA.L	(A1)
000207b0 48 52                    |HR      |		PEA.L	(A2)
000207b2 48 50                    |HP      |		PEA.L	(A0)
000207b4 4e b9 00 02 0d 10        |N       |		JSR	exp_TEST_NOT_B_OP.TYP(&Fr, &Sr_8, &Sr_8)
000207ba de c0                    |        |		ADDA.W	D0,A7
000207bc 1e 91                    |        |		MOVE.B	(A1),(A7)
000207be 1f 04                    |        |		MOVE.B	D4,-(A7)
000207c0 4e 93                    |N       |		JSR	(A3)
000207c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207c4 48 51                    |HQ      |		PEA.L	(A1)
000207c6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000207ca 48 52                    |HR      |		PEA.L	(A2)
000207cc 48 50                    |HP      |		PEA.L	(A0)
000207ce 4e b9 00 02 0f 66        |N    f  |		JSR	exp_TEST_ALU_ZEROS_ONES.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
000207d4 de c2                    |        |		ADDA.W	D2,A7
000207d6 1e ae ff fc              |        |		MOVE.B	(A6-0x4),(A7)
000207da 1f 3c 00 14              | <      |		MOVE.B	#0x14,-(A7)
000207de 4e 93                    |N       |		JSR	(A3)
000207e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207e2 1e 91                    |        |		MOVE.B	(A1),(A7)
000207e4 1f 3c 00 15              | <      |		MOVE.B	#0x15,-(A7)
000207e8 4e 93                    |N       |		JSR	(A3)
000207ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207ec 48 51                    |HQ      |		PEA.L	(A1)
000207ee 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000207f2 48 52                    |HR      |		PEA.L	(A2)
000207f4 48 50                    |HP      |		PEA.L	(A0)
000207f6 4e b9 00 02 0c ca        |N       |		JSR	exp_TEST_PASS_RANDOMS.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
000207fc de c2                    |        |		ADDA.W	D2,A7
000207fe 1e 91                    |        |		MOVE.B	(A1),(A7)
00020800 1f 3c 00 16              | <      |		MOVE.B	#0x16,-(A7)
00020804 4e 93                    |N       |		JSR	(A3)
00020806 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020808 48 54                    |HT      |		PEA.L	(A4)
0002080a 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002080e 48 50                    |HP      |		PEA.L	(A0)
00020810 4e b9 00 02 0f f2        |N       |		JSR	exp_PREP_TEST_PLUS_MINUS.TYP(&Fr, &Fr, &Sr_8)
00020816 de c0                    |        |		ADDA.W	D0,A7
00020818 1e 94                    |        |		MOVE.B	(A4),(A7)
0002081a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002081c 4e 93                    |N       |		JSR	(A3)
0002081e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020820 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00020824 1f 01                    |        |		MOVE.B	D1,-(A7)
00020826 4e 93                    |N       |		JSR	(A3)
00020828 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002082a 48 51                    |HQ      |		PEA.L	(A1)
0002082c 48 52                    |HR      |		PEA.L	(A2)
0002082e 48 50                    |HP      |		PEA.L	(A0)
00020830 4e b9 00 02 0c f0        |N       |		JSR	exp_TEST_PLUS_OP.TYP(&Fr, &Sr_8, &Sr_8)
00020836 de c0                    |        |		ADDA.W	D0,A7
00020838 1e 91                    |        |		MOVE.B	(A1),(A7)
0002083a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002083c 4e 93                    |N       |		JSR	(A3)
0002083e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020840 48 54                    |HT      |		PEA.L	(A4)
00020842 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020846 48 50                    |HP      |		PEA.L	(A0)
00020848 4e b9 00 02 0f f2        |N       |		JSR	exp_PREP_TEST_PLUS_MINUS.TYP(&Fr, &Fr, &Sr_8)
0002084e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020852 48 51                    |HQ      |		PEA.L	(A1)
00020854 48 52                    |HR      |		PEA.L	(A2)
00020856 48 50                    |HP      |		PEA.L	(A0)
00020858 4e b9 00 02 0d 32        |N    2  |		JSR	exp_TEST_MINUS_OP.TYP(&Fr, &Sr_8, &Sr_8)
0002085e de c0                    |        |		ADDA.W	D0,A7
00020860 1e 91                    |        |		MOVE.B	(A1),(A7)
00020862 1f 01                    |        |		MOVE.B	D1,-(A7)
00020864 4e 93                    |N       |		JSR	(A3)
00020866 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020868 4e b9 00 02 10 1a        |N       |		JSR	exp_PREP_TEST_INC_DEC.TYP()
0002086e 48 51                    |HQ      |		PEA.L	(A1)
00020870 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020874 48 52                    |HR      |		PEA.L	(A2)
00020876 48 50                    |HP      |		PEA.L	(A0)
00020878 4e b9 00 02 0d c6        |N       |		JSR	exp_TEST_INC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
0002087e de c2                    |        |		ADDA.W	D2,A7
00020880 1e 91                    |        |		MOVE.B	(A1),(A7)
00020882 1f 01                    |        |		MOVE.B	D1,-(A7)
00020884 4e 93                    |N       |		JSR	(A3)
00020886 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020888 48 51                    |HQ      |		PEA.L	(A1)
0002088a 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002088e 48 52                    |HR      |		PEA.L	(A2)
00020890 48 50                    |HP      |		PEA.L	(A0)
00020892 4e b9 00 02 0e 50        |N    P  |		JSR	exp_TEST_DEC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8)
00020898 de c2                    |        |		ADDA.W	D2,A7
0002089a 1e 91                    |        |		MOVE.B	(A1),(A7)
0002089c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002089e 4e 93                    |N       |		JSR	(A3)
000208a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208a2 4e b9 00 02 10 3c        |N    <  |		JSR	exp_PREP_TEST_INC_DEC_128.TYP()
000208a8 48 51                    |HQ      |		PEA.L	(A1)
000208aa 48 52                    |HR      |		PEA.L	(A2)
000208ac 48 50                    |HP      |		PEA.L	(A0)
000208ae 4e b9 00 02 0d e8        |N       |		JSR	exp_TEST_INC_128.TYP(&Fr, &Sr_8, &Sr_8)
000208b4 de c0                    |        |		ADDA.W	D0,A7
000208b6 1e 91                    |        |		MOVE.B	(A1),(A7)
000208b8 1f 01                    |        |		MOVE.B	D1,-(A7)
000208ba 4e 93                    |N       |		JSR	(A3)
000208bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208be 48 51                    |HQ      |		PEA.L	(A1)
000208c0 48 52                    |HR      |		PEA.L	(A2)
000208c2 48 50                    |HP      |		PEA.L	(A0)
000208c4 4e b9 00 02 0e 72        |N    r  |		JSR	exp_TEST_DEC_128.TYP(&Fr, &Sr_8, &Sr_8)
000208ca de c0                    |        |		ADDA.W	D0,A7
000208cc 1e 91                    |        |		MOVE.B	(A1),(A7)
000208ce 1f 01                    |        |		MOVE.B	D1,-(A7)
000208d0 4e 93                    |N       |		JSR	(A3)
000208d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208d4 4e b9 00 02 10 62        |N    b  |		JSR	exp_PREP_TEST_CARRY_PROP.TYP()
000208da 48 51                    |HQ      |		PEA.L	(A1)
000208dc 48 52                    |HR      |		PEA.L	(A2)
000208de 48 50                    |HP      |		PEA.L	(A0)
000208e0 4e b9 00 02 0e 92        |N       |		JSR	exp_TEST_CARRY_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8)
000208e6 de c0                    |        |		ADDA.W	D0,A7
000208e8 1e 91                    |        |		MOVE.B	(A1),(A7)
000208ea 1f 03                    |        |		MOVE.B	D3,-(A7)
000208ec 4e 93                    |N       |		JSR	(A3)
000208ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208f0 4e b9 00 02 10 b2        |N       |		JSR	exp_PREP_TEST_BORROW_PROP.TYP()
000208f6 48 51                    |HQ      |		PEA.L	(A1)
000208f8 48 52                    |HR      |		PEA.L	(A2)
000208fa 48 50                    |HP      |		PEA.L	(A0)
000208fc 4e b9 00 02 0f 0e        |N       |		JSR	exp_TEST_BORROW_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8)
00020902 de c0                    |        |		ADDA.W	D0,A7
00020904 1e 91                    |        |		MOVE.B	(A1),(A7)
00020906 1f 03                    |        |		MOVE.B	D3,-(A7)
00020908 4e 93                    |N       |		JSR	(A3)
0002090a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002090c 4e b9 00 02 10 88        |N       |		JSR	exp_PREP_TEST_CARRY_GENERATE.TYP()
00020912 48 51                    |HQ      |		PEA.L	(A1)
00020914 48 52                    |HR      |		PEA.L	(A2)
00020916 48 50                    |HP      |		PEA.L	(A0)
00020918 4e b9 00 02 0e e6        |N       |		JSR	exp_TEST_CARRY_GENERATE.TYP(&Fr, &Sr_8, &Sr_8)
0002091e de c0                    |        |		ADDA.W	D0,A7
00020920 1e 91                    |        |		MOVE.B	(A1),(A7)
00020922 1f 03                    |        |		MOVE.B	D3,-(A7)
00020924 4e 93                    |N       |		JSR	(A3)
00020926 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020928 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
0002092c 4e 5e                    |N^      |		UNLK	A6
0002092e 4e 75                    |Nu      |		RTS
00020930 ; --------------------------------------------------------------------------------------
00020930 ; OMSI PASCAL Function
00020930 ;    <LVAR -0x002 @ 1(r)>
00020930 ;    <LVAR -0x003 @ 1(r)>
00020930 ;    <LVAR -0x004 @ 1(r)>
00020930 ; --------------------------------------------------------------------------------------
00020930 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00020934 bf d5                    |        |		CMPA.L	(A5),A7
00020936 62 06                    |b       |		BHI	0x2093e
00020938 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002093c 4e 76                    |Nv      |		TRAPV
0002093e de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00020942 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00020946 41 ee ff fd              |A       |		LEA.L	(A6-0x3),A0
0002094a 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002094e 45 fa f8 12              |E       |		LEA.L	0x20162,A2
00020952 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
00020956 49 f9 00 02 11 1c        |I       |		LEA.L	exp_INIT_RF.TYP(Sw_8),A4
0002095c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002095e 72 19                    |r       |		MOVEQ.L	#0x19,D1
00020960 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020962 76 1f                    |v       |		MOVEQ.L	#0x1f,D3
00020964 2f 3a f7 e8              |/:      |		MOVE.L	0x2014e,-(A7)
00020968 2f 3a f7 e0              |/:      |		MOVE.L	0x2014a,-(A7)
0002096c 4e 94                    |N       |		JSR	(A4)
0002096e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020970 2e ba f7 dc              |.       |		MOVE.L	0x2014e,(A7)
00020974 2f 3a f7 d4              |/:      |		MOVE.L	0x2014a,-(A7)
00020978 48 51                    |HQ      |		PEA.L	(A1)
0002097a 48 79 00 02 13 73        |Hy   s  |		PEA.L	0x21373
00020980 4e b9 00 02 0c 54        |N    T  |		JSR	exp_TEST_RF_LOCATIONS.TYP(Sw_8, &Fr, &Sr_8)
00020986 de c0                    |        |		ADDA.W	D0,A7
00020988 1e 91                    |        |		MOVE.B	(A1),(A7)
0002098a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002098c 4e 92                    |N       |		JSR	(A2)
0002098e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020990 48 50                    |HP      |		PEA.L	(A0)
00020992 48 53                    |HS      |		PEA.L	(A3)
00020994 4e b9 00 02 0b d6        |N       |		JSR	exp_TEST_RF_PARITY_LOCATIONS.TYP(&Fr, &Fr)
0002099a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002099c 4a 10                    |J       |		TST.B	(A0)
0002099e 66 06                    |f       |		BNE	0x209a6
000209a0 1f 10                    |        |		MOVE.B	(A0),-(A7)
000209a2 1f 02                    |        |		MOVE.B	D2,-(A7)
000209a4 60 04                    |`       |		BRA	0x209aa
000209a6 1f 13                    |        |		MOVE.B	(A3),-(A7)
000209a8 1f 03                    |        |		MOVE.B	D3,-(A7)
000209aa 4e 92                    |N       |		JSR	(A2)
000209ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209ae 2f 3a f7 a6              |/:      |		MOVE.L	0x20156,-(A7)
000209b2 2f 3a f7 9e              |/:      |		MOVE.L	0x20152,-(A7)
000209b6 4e 94                    |N       |		JSR	(A4)
000209b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209ba 2e ba f7 9a              |.       |		MOVE.L	0x20156,(A7)
000209be 2f 3a f7 92              |/:      |		MOVE.L	0x20152,-(A7)
000209c2 48 51                    |HQ      |		PEA.L	(A1)
000209c4 48 79 00 02 13 73        |Hy   s  |		PEA.L	0x21373
000209ca 4e b9 00 02 0c 54        |N    T  |		JSR	exp_TEST_RF_LOCATIONS.TYP(Sw_8, &Fr, &Sr_8)
000209d0 de c0                    |        |		ADDA.W	D0,A7
000209d2 1e 91                    |        |		MOVE.B	(A1),(A7)
000209d4 1f 01                    |        |		MOVE.B	D1,-(A7)
000209d6 4e 92                    |N       |		JSR	(A2)
000209d8 2e ba f7 84              |.       |		MOVE.L	0x2015e,(A7)
000209dc 2f 3a f7 7c              |/: |    |		MOVE.L	0x2015a,-(A7)
000209e0 4e 94                    |N       |		JSR	(A4)
000209e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209e4 48 50                    |HP      |		PEA.L	(A0)
000209e6 48 53                    |HS      |		PEA.L	(A3)
000209e8 4e b9 00 02 0b d6        |N       |		JSR	exp_TEST_RF_PARITY_LOCATIONS.TYP(&Fr, &Fr)
000209ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209f0 4a 10                    |J       |		TST.B	(A0)
000209f2 66 06                    |f       |		BNE	0x209fa
000209f4 1f 10                    |        |		MOVE.B	(A0),-(A7)
000209f6 1f 02                    |        |		MOVE.B	D2,-(A7)
000209f8 60 04                    |`       |		BRA	0x209fe
000209fa 1f 13                    |        |		MOVE.B	(A3),-(A7)
000209fc 1f 03                    |        |		MOVE.B	D3,-(A7)
000209fe 4e 92                    |N       |		JSR	(A2)
00020a00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a02 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00020a06 4e 5e                    |N^      |		UNLK	A6
00020a08 4e 75                    |Nu      |		RTS
00020a0a ; --------------------------------------------------------------------------------------
00020a0a ; OMSI PASCAL Function
00020a0a ; --------------------------------------------------------------------------------------
00020a0a					START:
00020a0a 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020a0e 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020a14					MAIN:
00020a14 45 f9 00 02 13 af        |E       |		LEA.L	0x213af,A2
00020a1a 47 f9 00 02 13 62        |G    b  |		LEA.L	0x21362,A3
00020a20 49 f9 00 02 13 66        |I    f  |		LEA.L	0x21366,A4
00020a26 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020a28 74 07                    |t       |		MOVEQ.L	#0x07,D2
00020a2a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020a30 48 78 00 00              |Hx      |		PEA.L	0x0
00020a34 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020a3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a3c 48 79 00 02 13 ae        |Hy      |		PEA.L	0x213ae
00020a42 48 52                    |HR      |		PEA.L	(A2)
00020a44 4e b9 00 01 05 44        |N    D  |		JSR	IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00020a4a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a4c 1e 92                    |        |		MOVE.B	(A2),(A7)
00020a4e 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020a54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a56 20 4f                    | O      |		MOVEA.L	A7,A0
00020a58 43 fa f6 d4              |C       |		LEA.L	0x2012e,A1
00020a5c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020a5e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a60 51 c8 ff fc              |Q       |		DBF	D0,0x20a5e
00020a64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a6c 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020a70 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a78 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00020a7a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a7c 48 54                    |HT      |		PEA.L	(A4)
00020a7e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020a84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a86 42 39 00 02 13 a5        |B9      |		CLR.B	0x213a5
00020a8c 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020a8e 23 c0 00 02 13 b0        |#       |		MOVE.L	D0,0x213b0
00020a94 b0 82                    |        |		CMP.L	D2,D0
00020a96 63 02                    |c       |		BLS	0x20a9a
00020a98 4e 4f                    |NO      |		TRAP	#15
00020a9a 41 f9 00 02 13 5a        |A    Z  |		LEA.L	0x2135a,A0
00020aa0 42 30 08 4c              |B0 L    |		CLR.B	(A0+D0.L+#0x4c)
00020aa4 52 80                    |R       |		ADDQ.L	#0x1,D0
00020aa6 b0 82                    |        |		CMP.L	D2,D0
00020aa8 6f e4                    |o       |		BLE	0x20a8e
00020aaa 4e ba f7 4c              |N  L    |		JSR	0x201f8
00020aae 4e ba f7 e2              |N       |		JSR	0x20292
00020ab2 4e ba f8 d2              |N       |		JSR	0x20386
00020ab6 4e ba f9 a8              |N       |		JSR	0x20460
00020aba 4e ba fa ca              |N       |		JSR	0x20586
00020abe 4e ba fb 8e              |N       |		JSR	0x2064e
00020ac2 4e ba fc 90              |N       |		JSR	0x20754
00020ac6 4e ba fe 68              |N  h    |		JSR	0x20930
00020aca 4e ba f6 f0              |N       |		JSR	0x201bc
00020ace 1f 01                    |        |		MOVE.B	D1,-(A7)
00020ad0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020ad2 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020ad4 1f 39 00 02 13 a5        | 9      |		MOVE.B	0x213a5,-(A7)
00020ada 2f 39 00 02 13 aa        |/9      |		MOVE.L	0x213aa,-(A7)
00020ae0 2f 39 00 02 13 a6        |/9      |		MOVE.L	0x213a6,-(A7)
00020ae6 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020aec de fc 00 14              |        |		ADDA.W	#0x14,A7
00020af0 4e b9 00 01 02 84        |N       |		JSR	?exit
00020af6					exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
00020af6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020afc 00 20                    |        |		.CONST	0x0020			; Stack-delta
00020afe 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.TYP'
00020b13 00                       |        |		.CONST	0x0
00020b14 06                       |        |		.CONST	0x6			; DIPROC address
00020b15 06                       |        |		.CONST	0x6			; Output Parameters
00020b16 00                       |        |		.CONST	0x0			; Input Parameters
00020b17 00                       |        |		.CONST	0x0			; Out arg [1]
00020b18 01                       |        |		.CONST	0x1			; Out arg [2]
00020b19 00                       |        |		.CONST	0x0			; Out arg [1]
00020b1a 00                       |        |		.CONST	0x0			; Out arg [1]
00020b1b 01                       |        |		.CONST	0x1			; Out arg [2]
00020b1c 08                       |        |		.CONST	0x8			; Out arg flag
00020b1d 00                       |        |		.PAD	0x0
00020b1e					exp_TEST_WCS_PARITY.TYP(&Fr, &Sr_6):
00020b1e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020b24 00 10                    |        |		.CONST	0x0010			; Stack-delta
00020b26 13 54 45 53 54 5f 57 43  | TEST_WC|		.TXT	19,'TEST_WCS_PARITY.TYP'
00020b3a 00                       |        |		.CONST	0x0
00020b3b 06                       |        |		.CONST	0x6			; DIPROC address
00020b3c 02                       |        |		.CONST	0x2			; Output Parameters
00020b3d 00                       |        |		.CONST	0x0			; Input Parameters
00020b3e 08                       |        |		.CONST	0x8			; Out arg flag
00020b3f 05                       |        |		.CONST	0x5			; Out arg [6]
00020b40					exp_TEST_WCS_LOCATIONS.TYP(&Fr, &Sr_2, &Sr_6, &Sr_6):
00020b40 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020b46 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020b48 16 54 45 53 54 5f 57 43  | TEST_WC|		.TXT	22,'TEST_WCS_LOCATIONS.TYP'
00020b5f 00                       |        |		.CONST	0x0
00020b60 06                       |        |		.CONST	0x6			; DIPROC address
00020b61 04                       |        |		.CONST	0x4			; Output Parameters
00020b62 00                       |        |		.CONST	0x0			; Input Parameters
00020b63 08                       |        |		.CONST	0x8			; Out arg flag
00020b64 01                       |        |		.CONST	0x1			; Out arg [2]
00020b65 05                       |        |		.CONST	0x5			; Out arg [6]
00020b66 05                       |        |		.CONST	0x5			; Out arg [6]
00020b67 00                       |        |		.PAD	0x0
00020b68					exp_TEST_WRITE_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8):
00020b68 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020b6e 00 20                    |        |		.CONST	0x0020			; Stack-delta
00020b70 15 54 45 53 54 5f 57 52  | TEST_WR|		.TXT	21,'TEST_WRITE_GP_ADR.TYP'
00020b86 00                       |        |		.CONST	0x0
00020b87 06                       |        |		.CONST	0x6			; DIPROC address
00020b88 06                       |        |		.CONST	0x6			; Output Parameters
00020b89 00                       |        |		.CONST	0x0			; Input Parameters
00020b8a 08                       |        |		.CONST	0x8			; Out arg flag
00020b8b 00                       |        |		.CONST	0x0			; Out arg [1]
00020b8c 00                       |        |		.CONST	0x0			; Out arg [1]
00020b8d 07                       |        |		.CONST	0x7			; Out arg [8]
00020b8e 07                       |        |		.CONST	0x7			; Out arg [8]
00020b8f 07                       |        |		.CONST	0x7			; Out arg [8]
00020b90					exp_TEST_WCS_DATA.TYP(&Fr, &Sr_6, &Sr_6):
00020b90 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020b96 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020b98 11 54 45 53 54 5f 57 43  | TEST_WC|		.TXT	17,'TEST_WCS_DATA.TYP'
00020baa 00                       |        |		.CONST	0x0
00020bab 06                       |        |		.CONST	0x6			; DIPROC address
00020bac 03                       |        |		.CONST	0x3			; Output Parameters
00020bad 00                       |        |		.CONST	0x0			; Input Parameters
00020bae 08                       |        |		.CONST	0x8			; Out arg flag
00020baf 05                       |        |		.CONST	0x5			; Out arg [6]
00020bb0 05                       |        |		.CONST	0x5			; Out arg [6]
00020bb1 00                       |        |		.PAD	0x0
00020bb2					exp_TEST_WCS_ADDRESS.TYP(&Fr, &Sr_2):
00020bb2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020bb8 00 10                    |        |		.CONST	0x0010			; Stack-delta
00020bba 14 54 45 53 54 5f 57 43  | TEST_WC|		.TXT	20,'TEST_WCS_ADDRESS.TYP'
00020bcf 00                       |        |		.CONST	0x0
00020bd0 06                       |        |		.CONST	0x6			; DIPROC address
00020bd1 02                       |        |		.CONST	0x2			; Output Parameters
00020bd2 00                       |        |		.CONST	0x0			; Input Parameters
00020bd3 08                       |        |		.CONST	0x8			; Out arg flag
00020bd4 01                       |        |		.CONST	0x1			; Out arg [2]
00020bd5 00                       |        |		.PAD	0x0
00020bd6					exp_TEST_RF_PARITY_LOCATIONS.TYP(&Fr, &Fr):
00020bd6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020bdc 00 10                    |        |		.CONST	0x0010			; Stack-delta
00020bde 1c 54 45 53 54 5f 52 46  | TEST_RF|		.TXT	28,'TEST_RF_PARITY_LOCATIONS.TYP'
00020bfb 00                       |        |		.CONST	0x0
00020bfc 06                       |        |		.CONST	0x6			; DIPROC address
00020bfd 02                       |        |		.CONST	0x2			; Output Parameters
00020bfe 00                       |        |		.CONST	0x0			; Input Parameters
00020bff 08                       |        |		.CONST	0x8			; Out arg flag
00020c00 08                       |        |		.CONST	0x8			; Out arg flag
00020c01 00                       |        |		.PAD	0x0
00020c02					exp_TEST_RF_PARITY_CHECKERS.TYP(Sw_1, &Fr, &Fr, &Sr_8_1):
00020c02 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020c08 00 16                    |        |		.CONST	0x0016			; Stack-delta
00020c0a 1b 54 45 53 54 5f 52 46  | TEST_RF|		.TXT	27,'TEST_RF_PARITY_CHECKERS.TYP'
00020c26 00                       |        |		.CONST	0x0
00020c27 06                       |        |		.CONST	0x6			; DIPROC address
00020c28 03                       |        |		.CONST	0x3			; Output Parameters
00020c29 01                       |        |		.CONST	0x1			; Input Parameters
00020c2a 00                       |        |		.CONST	0x0			; In arg [1]
00020c2b 08                       |        |		.CONST	0x8			; Out arg flag
00020c2c 08                       |        |		.CONST	0x8			; Out arg flag
00020c2d 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00020c2e					exp_TEST_RF_PAR_ADDR.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1):
00020c2e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020c34 00 1c                    |        |		.CONST	0x001c			; Stack-delta
00020c36 14 54 45 53 54 5f 52 46  | TEST_RF|		.TXT	20,'TEST_RF_PAR_ADDR.TYP'
00020c4b 00                       |        |		.CONST	0x0
00020c4c 06                       |        |		.CONST	0x6			; DIPROC address
00020c4d 05                       |        |		.CONST	0x5			; Output Parameters
00020c4e 00                       |        |		.CONST	0x0			; Input Parameters
00020c4f 08                       |        |		.CONST	0x8			; Out arg flag
00020c50 08                       |        |		.CONST	0x8			; Out arg flag
00020c51 07                       |        |		.CONST	0x7			; Out arg [8]
00020c52 00                       |        |		.CONST	0x0			; Out arg [1]
00020c53 00                       |        |		.CONST	0x0			; Out arg [1]
00020c54					exp_TEST_RF_LOCATIONS.TYP(Sw_8, &Fr, &Sr_8):
00020c54 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020c5a 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020c5c 15 54 45 53 54 5f 52 46  | TEST_RF|		.TXT	21,'TEST_RF_LOCATIONS.TYP'
00020c72 00                       |        |		.CONST	0x0
00020c73 06                       |        |		.CONST	0x6			; DIPROC address
00020c74 02                       |        |		.CONST	0x2			; Output Parameters
00020c75 01                       |        |		.CONST	0x1			; Input Parameters
00020c76 07                       |        |		.CONST	0x7			; In arg [8]
00020c77 08                       |        |		.CONST	0x8			; Out arg flag
00020c78 07                       |        |		.CONST	0x7			; Out arg [8]
00020c79 00                       |        |		.PAD	0x0
00020c7a					exp_TEST_READ_GP_ADR.TYP(&Fr, &Sr_1, &Sr_1, &Sr_8, &Sr_8, &Sr_8):
00020c7a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020c80 00 20                    |        |		.CONST	0x0020			; Stack-delta
00020c82 14 54 45 53 54 5f 52 45  | TEST_RE|		.TXT	20,'TEST_READ_GP_ADR.TYP'
00020c97 00                       |        |		.CONST	0x0
00020c98 06                       |        |		.CONST	0x6			; DIPROC address
00020c99 06                       |        |		.CONST	0x6			; Output Parameters
00020c9a 00                       |        |		.CONST	0x0			; Input Parameters
00020c9b 08                       |        |		.CONST	0x8			; Out arg flag
00020c9c 00                       |        |		.CONST	0x0			; Out arg [1]
00020c9d 00                       |        |		.CONST	0x0			; Out arg [1]
00020c9e 07                       |        |		.CONST	0x7			; Out arg [8]
00020c9f 07                       |        |		.CONST	0x7			; Out arg [8]
00020ca0 07                       |        |		.CONST	0x7			; Out arg [8]
00020ca1 00                       |        |		.PAD	0x0
00020ca2					exp_TEST_RF_DATA_LINES.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8):
00020ca2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020ca8 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020caa 16 54 45 53 54 5f 52 46  | TEST_RF|		.TXT	22,'TEST_RF_DATA_LINES.TYP'
00020cc1 00                       |        |		.CONST	0x0
00020cc2 06                       |        |		.CONST	0x6			; DIPROC address
00020cc3 04                       |        |		.CONST	0x4			; Output Parameters
00020cc4 00                       |        |		.CONST	0x0			; Input Parameters
00020cc5 08                       |        |		.CONST	0x8			; Out arg flag
00020cc6 07                       |        |		.CONST	0x7			; Out arg [8]
00020cc7 07                       |        |		.CONST	0x7			; Out arg [8]
00020cc8 07                       |        |		.CONST	0x7			; Out arg [8]
00020cc9 00                       |        |		.PAD	0x0
00020cca					exp_TEST_PASS_RANDOMS.TYP(&Fr, &Fr, &Sr_8, &Sr_8):
00020cca 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020cd0 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020cd2 15 54 45 53 54 5f 50 41  | TEST_PA|		.TXT	21,'TEST_PASS_RANDOMS.TYP'
00020ce8 00                       |        |		.CONST	0x0
00020ce9 06                       |        |		.CONST	0x6			; DIPROC address
00020cea 04                       |        |		.CONST	0x4			; Output Parameters
00020ceb 00                       |        |		.CONST	0x0			; Input Parameters
00020cec 08                       |        |		.CONST	0x8			; Out arg flag
00020ced 08                       |        |		.CONST	0x8			; Out arg flag
00020cee 07                       |        |		.CONST	0x7			; Out arg [8]
00020cef 07                       |        |		.CONST	0x7			; Out arg [8]
00020cf0					exp_TEST_PLUS_OP.TYP(&Fr, &Sr_8, &Sr_8):
00020cf0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020cf6 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020cf8 10 54 45 53 54 5f 50 4c  | TEST_PL|		.TXT	16,'TEST_PLUS_OP.TYP'
00020d09 00                       |        |		.CONST	0x0
00020d0a 06                       |        |		.CONST	0x6			; DIPROC address
00020d0b 03                       |        |		.CONST	0x3			; Output Parameters
00020d0c 00                       |        |		.CONST	0x0			; Input Parameters
00020d0d 08                       |        |		.CONST	0x8			; Out arg flag
00020d0e 07                       |        |		.CONST	0x7			; Out arg [8]
00020d0f 07                       |        |		.CONST	0x7			; Out arg [8]
00020d10					exp_TEST_NOT_B_OP.TYP(&Fr, &Sr_8, &Sr_8):
00020d10 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020d16 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020d18 11 54 45 53 54 5f 4e 4f  | TEST_NO|		.TXT	17,'TEST_NOT_B_OP.TYP'
00020d2a 00                       |        |		.CONST	0x0
00020d2b 06                       |        |		.CONST	0x6			; DIPROC address
00020d2c 03                       |        |		.CONST	0x3			; Output Parameters
00020d2d 00                       |        |		.CONST	0x0			; Input Parameters
00020d2e 08                       |        |		.CONST	0x8			; Out arg flag
00020d2f 07                       |        |		.CONST	0x7			; Out arg [8]
00020d30 07                       |        |		.CONST	0x7			; Out arg [8]
00020d31 00                       |        |		.PAD	0x0
00020d32					exp_TEST_MINUS_OP.TYP(&Fr, &Sr_8, &Sr_8):
00020d32 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020d38 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020d3a 11 54 45 53 54 5f 4d 49  | TEST_MI|		.TXT	17,'TEST_MINUS_OP.TYP'
00020d4c 00                       |        |		.CONST	0x0
00020d4d 06                       |        |		.CONST	0x6			; DIPROC address
00020d4e 03                       |        |		.CONST	0x3			; Output Parameters
00020d4f 00                       |        |		.CONST	0x0			; Input Parameters
00020d50 08                       |        |		.CONST	0x8			; Out arg flag
00020d51 07                       |        |		.CONST	0x7			; Out arg [8]
00020d52 07                       |        |		.CONST	0x7			; Out arg [8]
00020d53 00                       |        |		.PAD	0x0
00020d54					exp_TEST_LOAD_WDR.TYP(&Fr, &Fr, &Sr_8_1, &Sr_8_1):
00020d54 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020d5a 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020d5c 11 54 45 53 54 5f 4c 4f  | TEST_LO|		.TXT	17,'TEST_LOAD_WDR.TYP'
00020d6e 00                       |        |		.CONST	0x0
00020d6f 06                       |        |		.CONST	0x6			; DIPROC address
00020d70 04                       |        |		.CONST	0x4			; Output Parameters
00020d71 00                       |        |		.CONST	0x0			; Input Parameters
00020d72 08                       |        |		.CONST	0x8			; Out arg flag
00020d73 08                       |        |		.CONST	0x8			; Out arg flag
00020d74 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00020d75 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00020d76					exp_TEST_LOAD_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_2, &Sr_2):
00020d76 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020d7c 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020d7e 1a 54 45 53 54 5f 4c 4f  | TEST_LO|		.TXT	26,'TEST_LOAD_LOOP_COUNTER.TYP'
00020d99 00                       |        |		.CONST	0x0
00020d9a 06                       |        |		.CONST	0x6			; DIPROC address
00020d9b 04                       |        |		.CONST	0x4			; Output Parameters
00020d9c 00                       |        |		.CONST	0x0			; Input Parameters
00020d9d 08                       |        |		.CONST	0x8			; Out arg flag
00020d9e 08                       |        |		.CONST	0x8			; Out arg flag
00020d9f 01                       |        |		.CONST	0x1			; Out arg [2]
00020da0 01                       |        |		.CONST	0x1			; Out arg [2]
00020da1 00                       |        |		.PAD	0x0
00020da2					exp_TEST_LOGICAL_ALU.TYP(&Fr, &Sr_8, &Sr_8):
00020da2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020da8 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020daa 14 54 45 53 54 5f 4c 4f  | TEST_LO|		.TXT	20,'TEST_LOGICAL_ALU.TYP'
00020dbf 00                       |        |		.CONST	0x0
00020dc0 06                       |        |		.CONST	0x6			; DIPROC address
00020dc1 03                       |        |		.CONST	0x3			; Output Parameters
00020dc2 00                       |        |		.CONST	0x0			; Input Parameters
00020dc3 08                       |        |		.CONST	0x8			; Out arg flag
00020dc4 07                       |        |		.CONST	0x7			; Out arg [8]
00020dc5 07                       |        |		.CONST	0x7			; Out arg [8]
00020dc6					exp_TEST_INC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8):
00020dc6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020dcc 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020dce 11 54 45 53 54 5f 49 4e  | TEST_IN|		.TXT	17,'TEST_INC_A_OP.TYP'
00020de0 00                       |        |		.CONST	0x0
00020de1 06                       |        |		.CONST	0x6			; DIPROC address
00020de2 04                       |        |		.CONST	0x4			; Output Parameters
00020de3 00                       |        |		.CONST	0x0			; Input Parameters
00020de4 08                       |        |		.CONST	0x8			; Out arg flag
00020de5 08                       |        |		.CONST	0x8			; Out arg flag
00020de6 07                       |        |		.CONST	0x7			; Out arg [8]
00020de7 07                       |        |		.CONST	0x7			; Out arg [8]
00020de8					exp_TEST_INC_128.TYP(&Fr, &Sr_8, &Sr_8):
00020de8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020dee 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020df0 10 54 45 53 54 5f 49 4e  | TEST_IN|		.TXT	16,'TEST_INC_128.TYP'
00020e01 00                       |        |		.CONST	0x0
00020e02 06                       |        |		.CONST	0x6			; DIPROC address
00020e03 03                       |        |		.CONST	0x3			; Output Parameters
00020e04 00                       |        |		.CONST	0x0			; Input Parameters
00020e05 08                       |        |		.CONST	0x8			; Out arg flag
00020e06 07                       |        |		.CONST	0x7			; Out arg [8]
00020e07 07                       |        |		.CONST	0x7			; Out arg [8]
00020e08					exp_TEST_FRAME_REG_ADR.TYP(&Fr, &Sr_8, &Sr_8, &Sr_8):
00020e08 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020e0e 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020e10 16 54 45 53 54 5f 46 52  | TEST_FR|		.TXT	22,'TEST_FRAME_REG_ADR.TYP'
00020e27 00                       |        |		.CONST	0x0
00020e28 06                       |        |		.CONST	0x6			; DIPROC address
00020e29 04                       |        |		.CONST	0x4			; Output Parameters
00020e2a 00                       |        |		.CONST	0x0			; Input Parameters
00020e2b 08                       |        |		.CONST	0x8			; Out arg flag
00020e2c 07                       |        |		.CONST	0x7			; Out arg [8]
00020e2d 07                       |        |		.CONST	0x7			; Out arg [8]
00020e2e 07                       |        |		.CONST	0x7			; Out arg [8]
00020e2f 00                       |        |		.PAD	0x0
00020e30					exp_TEST_FIU_BUS.TYP(&Fr, &Sr_8_1, &Sr_8_1):
00020e30 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020e36 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020e38 10 54 45 53 54 5f 46 49  | TEST_FI|		.TXT	16,'TEST_FIU_BUS.TYP'
00020e49 00                       |        |		.CONST	0x0
00020e4a 06                       |        |		.CONST	0x6			; DIPROC address
00020e4b 03                       |        |		.CONST	0x3			; Output Parameters
00020e4c 00                       |        |		.CONST	0x0			; Input Parameters
00020e4d 08                       |        |		.CONST	0x8			; Out arg flag
00020e4e 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00020e4f 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00020e50					exp_TEST_DEC_A_OP.TYP(&Fr, &Fr, &Sr_8, &Sr_8):
00020e50 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020e56 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020e58 11 54 45 53 54 5f 44 45  | TEST_DE|		.TXT	17,'TEST_DEC_A_OP.TYP'
00020e6a 00                       |        |		.CONST	0x0
00020e6b 06                       |        |		.CONST	0x6			; DIPROC address
00020e6c 04                       |        |		.CONST	0x4			; Output Parameters
00020e6d 00                       |        |		.CONST	0x0			; Input Parameters
00020e6e 08                       |        |		.CONST	0x8			; Out arg flag
00020e6f 08                       |        |		.CONST	0x8			; Out arg flag
00020e70 07                       |        |		.CONST	0x7			; Out arg [8]
00020e71 07                       |        |		.CONST	0x7			; Out arg [8]
00020e72					exp_TEST_DEC_128.TYP(&Fr, &Sr_8, &Sr_8):
00020e72 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020e78 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020e7a 10 54 45 53 54 5f 44 45  | TEST_DE|		.TXT	16,'TEST_DEC_128.TYP'
00020e8b 00                       |        |		.CONST	0x0
00020e8c 06                       |        |		.CONST	0x6			; DIPROC address
00020e8d 03                       |        |		.CONST	0x3			; Output Parameters
00020e8e 00                       |        |		.CONST	0x0			; Input Parameters
00020e8f 08                       |        |		.CONST	0x8			; Out arg flag
00020e90 07                       |        |		.CONST	0x7			; Out arg [8]
00020e91 07                       |        |		.CONST	0x7			; Out arg [8]
00020e92					exp_TEST_CARRY_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8):
00020e92 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020e98 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020e9a 18 54 45 53 54 5f 43 41  | TEST_CA|		.TXT	24,'TEST_CARRY_PROPAGATE.TYP'
00020eb3 00                       |        |		.CONST	0x0
00020eb4 06                       |        |		.CONST	0x6			; DIPROC address
00020eb5 03                       |        |		.CONST	0x3			; Output Parameters
00020eb6 00                       |        |		.CONST	0x0			; Input Parameters
00020eb7 08                       |        |		.CONST	0x8			; Out arg flag
00020eb8 07                       |        |		.CONST	0x7			; Out arg [8]
00020eb9 07                       |        |		.CONST	0x7			; Out arg [8]
00020eba					exp_TEST_COUNT_LOOP_COUNTER.TYP(&Fr, &Fr, &Sr_8, &Sr_8):
00020eba 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020ec0 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020ec2 1b 54 45 53 54 5f 43 4f  | TEST_CO|		.TXT	27,'TEST_COUNT_LOOP_COUNTER.TYP'
00020ede 00                       |        |		.CONST	0x0
00020edf 06                       |        |		.CONST	0x6			; DIPROC address
00020ee0 04                       |        |		.CONST	0x4			; Output Parameters
00020ee1 00                       |        |		.CONST	0x0			; Input Parameters
00020ee2 08                       |        |		.CONST	0x8			; Out arg flag
00020ee3 08                       |        |		.CONST	0x8			; Out arg flag
00020ee4 07                       |        |		.CONST	0x7			; Out arg [8]
00020ee5 07                       |        |		.CONST	0x7			; Out arg [8]
00020ee6					exp_TEST_CARRY_GENERATE.TYP(&Fr, &Sr_8, &Sr_8):
00020ee6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020eec 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020eee 17 54 45 53 54 5f 43 41  | TEST_CA|		.TXT	23,'TEST_CARRY_GENERATE.TYP'
00020f06 00                       |        |		.CONST	0x0
00020f07 06                       |        |		.CONST	0x6			; DIPROC address
00020f08 03                       |        |		.CONST	0x3			; Output Parameters
00020f09 00                       |        |		.CONST	0x0			; Input Parameters
00020f0a 08                       |        |		.CONST	0x8			; Out arg flag
00020f0b 07                       |        |		.CONST	0x7			; Out arg [8]
00020f0c 07                       |        |		.CONST	0x7			; Out arg [8]
00020f0d 00                       |        |		.PAD	0x0
00020f0e					exp_TEST_BORROW_PROPAGATE.TYP(&Fr, &Sr_8, &Sr_8):
00020f0e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f14 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020f16 19 54 45 53 54 5f 42 4f  | TEST_BO|		.TXT	25,'TEST_BORROW_PROPAGATE.TYP'
00020f30 00                       |        |		.CONST	0x0
00020f31 06                       |        |		.CONST	0x6			; DIPROC address
00020f32 03                       |        |		.CONST	0x3			; Output Parameters
00020f33 00                       |        |		.CONST	0x0			; Input Parameters
00020f34 08                       |        |		.CONST	0x8			; Out arg flag
00020f35 07                       |        |		.CONST	0x7			; Out arg [8]
00020f36 07                       |        |		.CONST	0x7			; Out arg [8]
00020f37 00                       |        |		.PAD	0x0
00020f38					exp_TEST_BUS_PARITY_CHECKERS.TYP(&Fr, &Fr, &Sr_8, &Sr_1, &Sr_1):
00020f38 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f3e 00 1c                    |        |		.CONST	0x001c			; Stack-delta
00020f40 1c 54 45 53 54 5f 42 55  | TEST_BU|		.TXT	28,'TEST_BUS_PARITY_CHECKERS.TYP'
00020f5d 00                       |        |		.CONST	0x0
00020f5e 06                       |        |		.CONST	0x6			; DIPROC address
00020f5f 05                       |        |		.CONST	0x5			; Output Parameters
00020f60 00                       |        |		.CONST	0x0			; Input Parameters
00020f61 08                       |        |		.CONST	0x8			; Out arg flag
00020f62 08                       |        |		.CONST	0x8			; Out arg flag
00020f63 07                       |        |		.CONST	0x7			; Out arg [8]
00020f64 00                       |        |		.CONST	0x0			; Out arg [1]
00020f65 00                       |        |		.CONST	0x0			; Out arg [1]
00020f66					exp_TEST_ALU_ZEROS_ONES.TYP(&Fr, &Fr, &Sr_8, &Sr_8):
00020f66 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f6c 00 18                    |        |		.CONST	0x0018			; Stack-delta
00020f6e 17 54 45 53 54 5f 41 4c  | TEST_AL|		.TXT	23,'TEST_ALU_ZEROS_ONES.TYP'
00020f86 00                       |        |		.CONST	0x0
00020f87 06                       |        |		.CONST	0x6			; DIPROC address
00020f88 04                       |        |		.CONST	0x4			; Output Parameters
00020f89 00                       |        |		.CONST	0x0			; Input Parameters
00020f8a 08                       |        |		.CONST	0x8			; Out arg flag
00020f8b 08                       |        |		.CONST	0x8			; Out arg flag
00020f8c 07                       |        |		.CONST	0x7			; Out arg [8]
00020f8d 07                       |        |		.CONST	0x7			; Out arg [8]
00020f8e					exp_RESET.TYP():
00020f8e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f94 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020f96 09 52 45 53 45 54 2e 54  | RESET.T|		.TXT	9,'RESET.TYP'
00020fa0 00                       |        |		.CONST	0x0
00020fa1 06                       |        |		.CONST	0x6			; DIPROC address
00020fa2 00                       |        |		.CONST	0x0			; Output Parameters
00020fa3 00                       |        |		.CONST	0x0			; Input Parameters
00020fa4					exp_PREP_UCODE_LOGICAL_ALU.TYP():
00020fa4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020faa 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fac 1a 50 52 45 50 5f 55 43  | PREP_UC|		.TXT	26,'PREP_UCODE_LOGICAL_ALU.TYP'
00020fc7 00                       |        |		.CONST	0x0
00020fc8 06                       |        |		.CONST	0x6			; DIPROC address
00020fc9 00                       |        |		.CONST	0x0			; Output Parameters
00020fca 00                       |        |		.CONST	0x0			; Input Parameters
00020fcb 00                       |        |		.PAD	0x0
00020fcc					exp_PREP_TEST_RF_PAR_ADDR.TYP():
00020fcc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fd2 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fd4 19 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	25,'PREP_TEST_RF_PAR_ADDR.TYP'
00020fee 00                       |        |		.CONST	0x0
00020fef 06                       |        |		.CONST	0x6			; DIPROC address
00020ff0 00                       |        |		.CONST	0x0			; Output Parameters
00020ff1 00                       |        |		.CONST	0x0			; Input Parameters
00020ff2					exp_PREP_TEST_PLUS_MINUS.TYP(&Fr, &Fr, &Sr_8):
00020ff2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020ff8 00 14                    |        |		.CONST	0x0014			; Stack-delta
00020ffa 18 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	24,'PREP_TEST_PLUS_MINUS.TYP'
00021013 00                       |        |		.CONST	0x0
00021014 06                       |        |		.CONST	0x6			; DIPROC address
00021015 03                       |        |		.CONST	0x3			; Output Parameters
00021016 00                       |        |		.CONST	0x0			; Input Parameters
00021017 08                       |        |		.CONST	0x8			; Out arg flag
00021018 08                       |        |		.CONST	0x8			; Out arg flag
00021019 07                       |        |		.CONST	0x7			; Out arg [8]
0002101a					exp_PREP_TEST_INC_DEC.TYP():
0002101a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021020 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021022 15 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	21,'PREP_TEST_INC_DEC.TYP'
00021038 00                       |        |		.CONST	0x0
00021039 06                       |        |		.CONST	0x6			; DIPROC address
0002103a 00                       |        |		.CONST	0x0			; Output Parameters
0002103b 00                       |        |		.CONST	0x0			; Input Parameters
0002103c					exp_PREP_TEST_INC_DEC_128.TYP():
0002103c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021042 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021044 19 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	25,'PREP_TEST_INC_DEC_128.TYP'
0002105e 00                       |        |		.CONST	0x0
0002105f 06                       |        |		.CONST	0x6			; DIPROC address
00021060 00                       |        |		.CONST	0x0			; Output Parameters
00021061 00                       |        |		.CONST	0x0			; Input Parameters
00021062					exp_PREP_TEST_CARRY_PROP.TYP():
00021062 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021068 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002106a 18 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	24,'PREP_TEST_CARRY_PROP.TYP'
00021083 00                       |        |		.CONST	0x0
00021084 06                       |        |		.CONST	0x6			; DIPROC address
00021085 00                       |        |		.CONST	0x0			; Output Parameters
00021086 00                       |        |		.CONST	0x0			; Input Parameters
00021087 00                       |        |		.PAD	0x0
00021088					exp_PREP_TEST_CARRY_GENERATE.TYP():
00021088 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002108e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021090 1c 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	28,'PREP_TEST_CARRY_GENERATE.TYP'
000210ad 00                       |        |		.CONST	0x0
000210ae 06                       |        |		.CONST	0x6			; DIPROC address
000210af 00                       |        |		.CONST	0x0			; Output Parameters
000210b0 00                       |        |		.CONST	0x0			; Input Parameters
000210b1 00                       |        |		.PAD	0x0
000210b2					exp_PREP_TEST_BORROW_PROP.TYP():
000210b2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210b8 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210ba 19 50 52 45 50 5f 54 45  | PREP_TE|		.TXT	25,'PREP_TEST_BORROW_PROP.TYP'
000210d4 00                       |        |		.CONST	0x0
000210d5 06                       |        |		.CONST	0x6			; DIPROC address
000210d6 00                       |        |		.CONST	0x0			; Output Parameters
000210d7 00                       |        |		.CONST	0x0			; Input Parameters
000210d8					exp_PREP_RF_LOGICAL_ALU.TYP():
000210d8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210de 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210e0 17 50 52 45 50 5f 52 46  | PREP_RF|		.TXT	23,'PREP_RF_LOGICAL_ALU.TYP'
000210f8 00                       |        |		.CONST	0x0
000210f9 06                       |        |		.CONST	0x6			; DIPROC address
000210fa 00                       |        |		.CONST	0x0			; Output Parameters
000210fb 00                       |        |		.CONST	0x0			; Input Parameters
000210fc					exp_LOAD_WCS_UIR.TYP(Sw_2, Sw_6, Sw_1):
000210fc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021102 00 12                    |        |		.CONST	0x0012			; Stack-delta
00021104 10 4c 4f 41 44 5f 57 43  | LOAD_WC|		.TXT	16,'LOAD_WCS_UIR.TYP'
00021115 00                       |        |		.CONST	0x0
00021116 06                       |        |		.CONST	0x6			; DIPROC address
00021117 00                       |        |		.CONST	0x0			; Output Parameters
00021118 03                       |        |		.CONST	0x3			; Input Parameters
00021119 01                       |        |		.CONST	0x1			; In arg [2]
0002111a 05                       |        |		.CONST	0x5			; In arg [6]
0002111b 00                       |        |		.CONST	0x0			; In arg [1]
0002111c					exp_INIT_RF.TYP(Sw_8):
0002111c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021122 00 10                    |        |		.CONST	0x0010			; Stack-delta
00021124 0b 49 4e 49 54 5f 52 46  | INIT_RF|		.TXT	11,'INIT_RF.TYP'
00021130 00                       |        |		.CONST	0x0
00021131 06                       |        |		.CONST	0x6			; DIPROC address
00021132 00                       |        |		.CONST	0x0			; Output Parameters
00021133 01                       |        |		.CONST	0x1			; Input Parameters
00021134 07                       |        |		.CONST	0x7			; In arg [8]
00021135 00                       |        |		.PAD	0x0
00021136					exp_CLEAR_PARITY.TYP():
00021136 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002113c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002113e 10 43 4c 45 41 52 5f 50  | CLEAR_P|		.TXT	16,'CLEAR_PARITY.TYP'
0002114f 00                       |        |		.CONST	0x0
00021150 06                       |        |		.CONST	0x6			; DIPROC address
00021151 00                       |        |		.CONST	0x0			; Output Parameters
00021152 00                       |        |		.CONST	0x0			; Input Parameters
00021153 00                       |        |		.PAD	0x0
00021154 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00021162 ; --------------------------------------------------------------------------------------
00021162 ; OMSI PASCAL Function
00021162 ;    <LVAR  0x008 1(r)>
00021162 ; --------------------------------------------------------------------------------------
00021162					PROG_FAIL:
00021162 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00021166 bf d5                    |        |		CMPA.L	(A5),A7
00021168 62 06                    |b       |		BHI	0x21170
0002116a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002116e 4e 76                    |Nv      |		TRAPV
00021170 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021174 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021178 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
0002117c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002117e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021180 51 c8 ff fc              |Q       |		DBF	D0,0x2117e
00021184 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021188 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002118a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002118e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021192 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021196 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002119c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002119e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000211a2 48 80                    |H       |		EXTB.W	D0
000211a4 48 c0                    |H       |		EXTW.L	D0
000211a6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000211a8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000211ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211b0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000211b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211b8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000211be de fc 00 14              |        |		ADDA.W	#0x14,A7
000211c2 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000211c6 4e 5e                    |N^      |		UNLK	A6
000211c8 4e 75                    |Nu      |		RTS
000211ca 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000211d8 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
000211e6 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000211f4 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00021206 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002121e ; --------------------------------------------------------------------------------------
0002121e ; OMSI PASCAL Function
0002121e ;    <LVAR  0x00e 1(r)>
0002121e ;    <LVAR  0x00a 4(r)>
0002121e ;    <LVAR  0x008 1(r)>
0002121e ; --------------------------------------------------------------------------------------
0002121e					EXP_FAIL:
0002121e 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00021222 bf d5                    |        |		CMPA.L	(A5),A7
00021224 62 06                    |b       |		BHI	0x2122c
00021226 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002122a 4e 76                    |Nv      |		TRAPV
0002122c de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021230 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021234 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002123a 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021240 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021242 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00021244 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00021246 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021248 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002124a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021250 41 fa ff b4              |A       |		LEA.L	0x21206,A0
00021254 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021256 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021258 51 c8 ff fc              |Q       |		DBF	D0,0x21256
0002125c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002125e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021262 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021264 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021266 4e 93                    |N       |		JSR	(A3)
00021268 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002126a 4e 94                    |N       |		JSR	(A4)
0002126c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002126e 20 4f                    | O      |		MOVEA.L	A7,A0
00021270 43 fa ff 58              |C  X    |		LEA.L	0x211ca,A1
00021274 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021276 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021278 51 c8 ff fc              |Q       |		DBF	D0,0x21276
0002127c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002127e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021282 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021284 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021286 4e 93                    |N       |		JSR	(A3)
00021288 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002128a 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
0002128e 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021294 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021296 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002129c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002129e 4e 94                    |N       |		JSR	(A4)
000212a0 de c4                    |        |		ADDA.W	D4,A7
000212a2 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000212a6 b0 c1                    |        |		CMPA.W	D1,A0
000212a8 67 48                    |gH      |		BEQ	0x212f2
000212aa 9e c5                    |        |		SUBA.W	D5,A7
000212ac 22 4f                    |"O      |		MOVEA.L	A7,A1
000212ae 45 fa ff 28              |E  (    |		LEA.L	0x211d8,A2
000212b2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000212b4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000212b6 51 c8 ff fc              |Q       |		DBF	D0,0x212b4
000212ba 9e c3                    |        |		SUBA.W	D3,A7
000212bc 22 4f                    |"O      |		MOVEA.L	A7,A1
000212be 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000212c2 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000212c4 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000212c6 51 c8 ff fc              |Q       |		DBF	D0,0x212c4
000212ca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212cc 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000212d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000212d2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000212d4 4e 93                    |N       |		JSR	(A3)
000212d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212d8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000212dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000212de 3f 03                    |?       |		MOVE.W	D3,-(A7)
000212e0 4e 93                    |N       |		JSR	(A3)
000212e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212e4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000212ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212ec 4e 94                    |N       |		JSR	(A4)
000212ee de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000212f2 9e c5                    |        |		SUBA.W	D5,A7
000212f4 20 4f                    | O      |		MOVEA.L	A7,A0
000212f6 43 fa fe ee              |C       |		LEA.L	0x211e6,A1
000212fa 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000212fc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000212fe 51 c8 ff fc              |Q       |		DBF	D0,0x212fc
00021302 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021304 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021308 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002130a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002130c 4e 93                    |N       |		JSR	(A3)
0002130e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021310 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021314 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002131a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002131c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021322 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021324 4e 94                    |N       |		JSR	(A4)
00021326 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021328 20 4f                    | O      |		MOVEA.L	A7,A0
0002132a 43 fa fe da              |C       |		LEA.L	0x21206,A1
0002132e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021330 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021332 51 c8 ff fc              |Q       |		DBF	D0,0x21330
00021336 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002133a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002133c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021340 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021342 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021346 4e 93                    |N       |		JSR	(A3)
00021348 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002134a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021350 de c3                    |        |		ADDA.W	D3,A7
00021352 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021356 4e 5e                    |N^      |		UNLK	A6
00021358 4e 75                    |Nu      |		RTS